From d88d7a8bc28285cb1088060e8daf9cc97c01dd50 Mon Sep 17 00:00:00 2001
From: historicalsource <historicalsoftware@textfiles.com>
Date: Sat, 13 Apr 2019 21:39:50 -0400
Subject: [PATCH] Original Source

---
 README.md            |    1 +
 clock.zil            |   66 ++
 crufty.xzap          |   22 +
 crufty.zil           |   16 +
 globals.zil          |  393 +++++++
 goal.zil             |  586 +++++++++++
 gparser.zil          | 1189 +++++++++++++++++++++
 load.zil             |   58 +
 mac.zip              |  Bin 0 -> 105584 bytes
 macros.zil           |  124 +++
 main.zil             |  297 ++++++
 objects.zil          | 1667 +++++++++++++++++++++++++++++
 parser.cmp           | 1399 +++++++++++++++++++++++++
 parser.zil           | 1325 +++++++++++++++++++++++
 people.zil           |  507 +++++++++
 r7.zip               |  Bin 0 -> 105500 bytes
 robots.zil           |  932 +++++++++++++++++
 rooms.cmp            |   43 +
 rooms.zil            | 1716 ++++++++++++++++++++++++++++++
 s2.zil               |   58 +
 script.mss           |  140 +++
 setup.zil            |  107 ++
 status.zil           |  101 ++
 suspended.cmp        |   10 +
 suspended.vocabulary |  163 +++
 suspended.xzap       |   51 +
 suspended.zil        |   58 +
 suspended.zip        |  Bin 0 -> 105492 bytes
 suspendedfreq.xzap   |  200 ++++
 syntax.zil           |  544 ++++++++++
 verbs.zil            | 2381 ++++++++++++++++++++++++++++++++++++++++++
 31 files changed, 14154 insertions(+)
 create mode 100644 README.md
 create mode 100644 clock.zil
 create mode 100644 crufty.xzap
 create mode 100644 crufty.zil
 create mode 100644 globals.zil
 create mode 100644 goal.zil
 create mode 100644 gparser.zil
 create mode 100644 load.zil
 create mode 100644 mac.zip
 create mode 100644 macros.zil
 create mode 100644 main.zil
 create mode 100644 objects.zil
 create mode 100644 parser.cmp
 create mode 100644 parser.zil
 create mode 100644 people.zil
 create mode 100644 r7.zip
 create mode 100644 robots.zil
 create mode 100644 rooms.cmp
 create mode 100644 rooms.zil
 create mode 100644 s2.zil
 create mode 100644 script.mss
 create mode 100644 setup.zil
 create mode 100644 status.zil
 create mode 100644 suspended.cmp
 create mode 100644 suspended.vocabulary
 create mode 100644 suspended.xzap
 create mode 100644 suspended.zil
 create mode 100644 suspended.zip
 create mode 100644 suspendedfreq.xzap
 create mode 100644 syntax.zil
 create mode 100644 verbs.zil

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..6d656dd
--- /dev/null
+++ b/README.md
@@ -0,0 +1 @@
+# suspended
diff --git a/clock.zil b/clock.zil
new file mode 100644
index 0000000..01d092d
--- /dev/null
+++ b/clock.zil
@@ -0,0 +1,66 @@
+"CLOCK for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+<CONSTANT C-TABLELEN 180>
+
+<GLOBAL C-TABLE <ITABLE NONE 180>>
+
+<GLOBAL C-DEMONS 180>
+
+<GLOBAL C-INTS 180>
+
+<CONSTANT C-INTLEN 6>
+
+<CONSTANT C-ENABLED? 0>
+
+<CONSTANT C-TICK 1>
+
+<CONSTANT C-RTN 2>
+
+<ROUTINE DEMON (RTN TICK "AUX" CINT)
+	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
+	 <PUT <SET CINT <INT .RTN T>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE QUEUE (RTN TICK "AUX" CINT)
+	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
+	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE INT (RTN "OPTIONAL" (DEMON <>) E C INT)
+	 #DECL ((RTN) ATOM (DEMON) <OR ATOM FALSE> (E C INT) <PRIMTYPE
+							      VECTOR>)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<==? .C .E>
+			<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
+			<AND .DEMON <SETG C-DEMONS <- ,C-DEMONS ,C-INTLEN>>>
+			<SET INT <REST ,C-TABLE ,C-INTS>>
+			<PUT .INT ,C-RTN .RTN>
+			<RETURN .INT>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN> <RETURN .C>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<GLOBAL CLOCK-WAIT <>>
+
+<ROUTINE CLOCKER ("AUX" C E TICK (FLG <>))
+	 #DECL ((C E) <PRIMTYPE VECTOR> (TICK) FIX (FLG) <OR FALSE ATOM>)
+	 <COND (,CLOCK-WAIT <SETG CLOCK-WAIT <>> <RFALSE>)>
+	 <SET C <REST ,C-TABLE <COND (,P-WON ,C-INTS) (T ,C-DEMONS)>>>
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <REPEAT ()
+		 <COND (<==? .C .E>
+			<SETG MOVES <+ ,MOVES 1>>
+			<RETURN .FLG>)
+		       (<NOT <0? <GET .C ,C-ENABLED?>>>
+			<SET TICK <GET .C ,C-TICK>>
+			<COND (<0? .TICK>)
+			      (T
+			       <PUT .C ,C-TICK <- .TICK 1>>
+			       <COND (<AND <NOT <G? .TICK 1>>
+					   <APPLY <GET .C ,C-RTN>>>
+				      <SET FLG T>)>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
diff --git a/crufty.xzap b/crufty.xzap
new file mode 100644
index 0000000..77a67bc
--- /dev/null
+++ b/crufty.xzap
@@ -0,0 +1,22 @@
+
+	.FUNCT	THIS-IT?,OBJ,TBL,SYNS,?TMP1
+	FSET?	OBJ,INVISIBLE /FALSE
+	ZERO?	P-NAM /?THN3
+	GETPT	OBJ,P?SYNONYM >SYNS
+	PTSIZE	SYNS
+	DIV	STACK,2
+	SUB	STACK,1
+	CALL	ZMEMQ,P-NAM,SYNS,STACK
+	ZERO?	STACK /FALSE
+?THN3:	ZERO?	P-ADJ /?ELS8
+	GETPT	OBJ,P?ADJECTIVE >SYNS
+	ZERO?	SYNS /FALSE
+	PTSIZE	SYNS
+	SUB	STACK,1
+	CALL	ZMEMQB,P-ADJ,SYNS,STACK
+	ZERO?	STACK /FALSE
+?ELS8:	ZERO?	P-GWIMBIT /TRUE
+	FSET?	OBJ,P-GWIMBIT /TRUE
+	RFALSE	
+
+	.ENDI
diff --git a/crufty.zil b/crufty.zil
new file mode 100644
index 0000000..4a3cd00
--- /dev/null
+++ b/crufty.zil
@@ -0,0 +1,16 @@
+"(c) Copyright 1983 Infocom, Inc.  All Rights Reserved."
+
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS) 
+ <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
+       (<AND ,P-NAM
+	     <NOT <ZMEMQ ,P-NAM
+			 <SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+			 <- </ <PTSIZE .SYNS> 2> 1>>>>
+	<RFALSE>)
+       (<AND ,P-ADJ
+	     <OR <NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>>
+		 <NOT <ZMEMQB ,P-ADJ .SYNS <- <PTSIZE .SYNS> 1>>>>>
+	<RFALSE>)
+       (<AND <NOT <0? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+	<RFALSE>)>
+ <RTRUE>>
diff --git a/globals.zil b/globals.zil
new file mode 100644
index 0000000..192c52e
--- /dev/null
+++ b/globals.zil
@@ -0,0 +1,393 @@
+"GLOBALS for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+<DIRECTIONS NORTH EAST WEST SOUTH UP DOWN IN OUT SE SW NE NW>
+
+"SUBTITLE GLOBAL OBJECTS"
+
+<GLOBAL WINNER-HERE <>>
+<GLOBAL LOAD-ALLOWED 100>
+<GLOBAL LOAD-MAX 0>
+
+<OBJECT GLOBAL-OBJECTS
+	(FLAGS RMUNGBIT INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT
+	       CUTBIT OPENBIT SEARCHBIT TRANSBIT WEARBIT FIXABLEBIT)>
+
+<OBJECT LOCAL-GLOBALS
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ZZMGCK)
+	(DESCFCN 0)
+        (GLOBAL GLOBAL-OBJECTS)
+	(PSEUDO 0)
+	(CONTFCN 0)
+	(SIZE 0)>
+;"Yes, this synonym for LOCAL-GLOBALS needs to exist... sigh"
+
+<OBJECT ROOMS>
+
+<OBJECT INTNUM
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM INTNUM)
+	(DESC "number")>
+
+<OBJECT LISTENING
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM LISTEN)
+	(DESC "listening")>
+
+<OBJECT DRAGGING
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM DRAGGI)
+	(DESC "dragging")>
+
+<OBJECT LEFT
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM LEFT BACK BACKWA)
+	(DESC "left")>
+
+<OBJECT RIGHT
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM RIGHT FORWARD)
+	(DESC "right")>
+
+<OBJECT LOCATION
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM LOCATION LOC)
+	(DESC "location")>
+
+<OBJECT PSEUDO-OBJECT
+	(DESC "pseudo")
+	(ACTION CRETIN)>
+
+<OBJECT IT	;"was IT"
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM IT THAT HER HIM)
+	(DESC "random object")
+	(FLAGS NDESCBIT TOUCHBIT)>
+
+<OBJECT COMPLEX
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM COMPLEX)
+	(ADJECTIVE UNDERG)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "underground complex")
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "underground complex" "underground complex" "underground complex" "underground complex" "underground complex" "underground complex" 0 0 0 0 0 0>)
+	(CLC-TXT <PLTABLE 0 0 "The Complex was started on this terraformed planet to provide the surface-side dwellers with a simpler, easier life. The Complex was built 122 years after the planet was settled, and was designed to operate on its own, with human intervention required only by emergency situations.">)>
+
+<OBJECT PLANET
+	(IN GLOBAL-OBJECTS)
+	(DESC "planetary surface")
+	(SYNONYM CONTRA)
+	(ADJECTIVE SURFACE)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "planetary surface" "planetary surface" "planetary surface" "planetary surface" "planetary surface" "planetary surface" 0 0 0 0 0 0>)
+	(CLC-TXT <PLTABLE "Access to the surface is through the Sterilization Chamber." "The three Filtering Computers must be brought into balance for there to be a surface much longer." "The surface systems were originally controlled by the people living on the surface, but this situation changed once long-term terraforming had been accomplished.">)>
+
+<OBJECT ZORK
+	(IN GLOBAL-OBJECTS)
+	(DESC "Zork")
+	(SYNONYM ZORK)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "Zork""Zork""Zork""Zork""Zork""Zork"
+			  0 0 0 0 0 0>)>
+
+<OBJECT FRANKLIN
+	(IN GLOBAL-OBJECTS)
+	(DESC "Franklin")
+	(SYNONYM GREGOR FRANKL)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "Gregory""Gregory""Gregory""Gregory""Gregory""Gregory" 0 0 0 0 0 0>)
+	(CLC-TXT <PLTABLE 0 0 "Refer to your manual for further data.">)>
+
+<OBJECT FCS
+	(IN GLOBAL-OBJECTS)
+	(DESC "Filtering Computers")
+	(FLAGS NDESCBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "FCs""FCs""FCs""FCs""FCs""FCs" 0 0 0 0 0 0>)
+	(SYNONYM FC FCS COMPUTER)
+	(ADJECTIVE FILTERING)
+	(CLC-TXT <PLTABLE "The three Filtering Computers are kept in balance by two series of four cables. Four cables run through the Primary Channel, while another four run through the Secondary Channel." "All defective cables should be replaced, then the reset code should be entered at the machine in the Main Supply Room." "The Filtering Computers have long provided Contra with surface-side maintenance, providing the surface-dwellers with an easy lifestyle.">)>
+
+<OBJECT CLONES
+	(IN GLOBAL-OBJECTS)
+	(DESC "clones")
+	(FLAGS NDESCBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "clones""clones""clones""clones""clones""clones" 0 0 0 0 0 0>)
+	(SYNONYM CLONES)
+	(CLC-TXT <PLTABLE 0 0 "These clones are clones of you and are your replacements.">)>
+
+<OBJECT GROUND	;"was GROUND"
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM FLOOR)
+	(DESC "floor")
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1
+	 "floor""floor""floor""floor""floor""floor"
+	 0 0 0 0 0 0>)>
+
+<OBJECT WALLS
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "wall")
+	(SYNONYM WALL WALLS)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "wall""wall""wall""wall""wall""wall" 0 0 0 0 0 0>)>
+
+<OBJECT CEILING
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "ceiling")
+	(SYNONYM CEILIN)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "ceiling""ceiling""ceiling""ceiling""ceiling""ceiling" 0 0 0 0 0 0>)>
+
+<OBJECT HANDS	;"was HANDS"
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM EXTENS)
+	(ADJECTIVE GRASPING)
+	(DESC "extensions")
+	(FLAGS NDESCBIT TOOLBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1 "grasping extension""grasping extension""grasping extension"
+"grasping extension""grasping extension""grasping extension" 0 0 0 0 0 0>)>
+
+<OBJECT ME
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ME MYSELF SELF WE)
+	(DESC "cylinder occupant")
+	(FLAGS VILLAIN TOUCHBIT)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1  "cylinder occupant" "cylinder occupant" "cylinder occupant" "cylinder occupant" "cylinder occupant" "cylinder occupant" 0 0 0 0 0 0>)
+	(ACTION CRETIN)> 
+	
+<ROUTINE CRETIN ()
+	 <COND (<VERB? GIVE>
+		<TELL "FC: I think you're a little confused." CR>
+		<RTRUE>)
+	       (<VERB? KILL MUNG>
+		<COND (<IN? ,WINNER ,CPU-ROOM>
+		       <ROBOT-TELL "I'll open the " <>>
+		       <TELL D ,HOME " and see what I can do." CR>
+		       <PERFORM ,V?OPEN ,HOME>)
+		      (T
+		       <ROBOT-TELL "I'll consider it only after I'm in the
+Central Chamber.">
+		       <RTRUE>)>)
+	       (<VERB? TAKE>
+		<ROBOT-TELL "Hey, let's do the job we're supposed to, okay?">)
+	       (<VERB? DISEMBARK>
+		<ROBOT-TELL "You'll have to do that on your own.">)
+	       (<VERB? EXAMINE>
+		<ROBOT-TELL "That's difficult unless the " <>>
+		<TELL D ,HOME " has been opened." CR>)
+	       (<VERB? FIND>
+		<COND (<NOT <IN? ,WINNER ,CPU-ROOM>>
+		       <PERFORM ,V?WALK-TO ,CPU-ROOM>)
+		      (T <ROBOT-TELL
+			  "You're right here, inside the " <>>
+		       <TELL D ,HOME "." CR>)>
+		<RTRUE>)>>
+
+
+
+
+
+;"LOCAL-GLOBALS start here for easier hunting of all ridiculousness which must
+                be included in the game for sadistic game-testers."
+
+<OBJECT SIGNPOST
+	(IN LOCAL-GLOBALS)
+	(DESC "sign")
+	(FLAGS TOUCHBIT NDESCBIT)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "little sign" "recessed sign" "sign" "buzzing sign" "signpost" "ACS" 0 0 0 0 0 0>)
+	(CLC-TXT <PLTABLE "This sign shows the access code needed for resetting the Filtering Computers." "You should be able to get Iris to see it somehow." 0>)
+	(SYNONYM SIGN SIGNPOST ACS)
+	(ADJECTIVE BUZZIN LITTLE RECESS)>
+
+<OBJECT CONTROL-PANELS
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "panel")
+	(OBJDESCS <PLTABLE 1 1 1 1 1 "panel""panel""panel""panel""panel""panel" 0 0 0 0 0 0>)
+	(SYNONYM PANEL CONSOL)
+	(ADJECTIVE SMALL)>
+
+<OBJECT AIRCON
+	(IN LOCAL-GLOBALS)
+	(DESC "air conditioning")
+	(FLAGS NDESCBIT TOUCHBIT)
+	(SYNONYM CONDIT AIRCON)
+	(ADJECTIVE AIR)
+	(OBJDESCS <PLTABLE 0 0 0 1 0 0
+			  "air conditioning""air conditioning""air conditioning"
+			  "air conditioning""air conditioning""air conditioning"
+			  0 0 0 0 0 0>)> 
+
+<OBJECT DEBRIS
+	(IN LOCAL-GLOBALS)
+	(SYNONYM DEBRIS JUNK RUBBLE)
+	(DESC "debris")
+	(FLAGS NDESCBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE 1 1 0 0 1 0 "debris""debris""debris""debris""debris"
+"debris" 0 0 0 0 0 0>)>
+
+
+<OBJECT CABLES
+	(IN LOCAL-GLOBALS)
+	(SYNONYM TUBES CABLES)
+	(ADJECTIVE CONNECTING)
+	(DESC "cables")
+	(FLAGS NDESCBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1
+"cables""cables""cables""cables""cables""cables"
+"The first, second, third and fourth cables are of all different colors."
+"The first, second, third and fourth cables are of all different lengths.""The first, second, third and fourth cables are of all different lengths.""The first, second, third and fourth cables are of all different lengths.""The first, second, third and fourth cables are of all different lengths.""The first, second, third and fourth cables are of all different lengths."
+>)
+	(CLC-TXT <PLTABLE "These cables were designed for easy replacement. Each is equipped with a simple snap connector so replacement is virtually automatic. All cables of the same color conduct the same voltage charges and are totally interchangeable." "Be careful of removing or replacing active cables." "When this complex was built, a color-coding scheme was agreed upon for the sake of standardization.">)>
+
+<OBJECT WIRING
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(SYNONYM WIRING CIRCUI)
+	(DESC "wiring")
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "wiring""wiring""wiring""wiring""wiring""wiring" 0 0 0 0 0 0>)>
+
+<OBJECT TVHOLE
+	(IN LOCAL-GLOBALS)
+	(SYNONYM PLUG HOLE PL-1)
+	(ADJECTIVE SMALL)
+	(DESC "hole")
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1 "plug with a cable in it""plug""plug""plug""plug""plug"
+0 
+"Its diameter may fit a small cable."
+"It is a female receptacle."
+0 
+"Its depth just cannot compare to mine."
+"This PL-1 forms a link for the TV-1.">)
+	(FLAGS NDESCBIT TOUCHBIT)>
+
+<OBJECT STEP
+	(IN LOCAL-GLOBALS)
+	(DESC "step")
+	(FLAGS TOUCHBIT NDESCBIT)
+	(SYNONYM STEP STAIR DROPOF)
+	(ADJECTIVE SMALL)
+	(ACTION STEP-FCN)
+	(OBJDESCS <PLTABLE
+1 1 1 0 1 1 "step" "step" "step" "step" "step" "step" 0 0 0 0 0 0 >)>
+
+<ROUTINE STEP-FCN ()
+	 <COND (<AND <VERB? PUT-AGAINST>
+		     <EQUAL? ,PRSO ,WEDGE>
+		     <OR <IN? ,WEDGE ,WINNER>
+			 <IN? ,WEDGE ,WINNER-HERE>>>
+		<COND (<NOT <EQUAL? ,WEDGE-PLACED 0>>
+		       <ROBOT-TELL "It's already in position.">
+		       <RTRUE>)>
+		<COND (<EQUAL? ,WINNER-HERE ,REPAIR1>
+		       <SETG WEDGE-PLACED 1>)
+		      (<EQUAL? ,WINNER-HERE ,HALLWAY-JUNCTION ,HUMAN-ENTRY>
+		       <SETG WEDGE-PLACED 2>)
+		      (ELSE
+		       <SETG WEDGE-PLACED 0>)>
+		<MOVE ,WEDGE ,WINNER-HERE>
+		<TELL "The " D ,WEDGE " has been positioned at the "
+		      D ,PRSI "." CR>
+		<RTRUE>)>>
+
+<OBJECT STAIRS
+	(IN LOCAL-GLOBALS)
+	(SYNONYM STAIRS STEPS LADDER STAIRWAY)
+	(DESC "stairs")
+	(FLAGS NDESCBIT CLIMBBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1 "stairs""stairs""stairs""stairs""stairs""stairs" 0 0 0 0 0 0>)>
+
+<OBJECT MONITOR
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(SYNONYM MONITO METERS UNITS)
+	(ADJECTIVE SMALL)
+	(DESC "monitor")
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "monitor""monitor""small unit""monitor""monitor""monitor"0 0 "The unit is active." 0 0 0 "The monitor has been diagnosed as working properly.">)>
+
+
+;"GLOBAL ATOMS START HERE"
+
+<GLOBAL NUM-EXT 0>
+<GLOBAL CAR-FULL 0>
+<GLOBAL WEDGE-PLACED 0>
+<GLOBAL PLUGGED-IN <>>
+<GLOBAL IRIS-FIXED <>>
+<GLOBAL DEGREES 60>
+<GLOBAL WINDS 10>
+<GLOBAL PRESSURE1 55>
+<GLOBAL PRESSURE2 50>
+<GLOBAL PRESSURE3 55>
+<GLOBAL NAME-TBL
+	<TABLE IRIS
+	       WALDO
+	       SENSA
+	       AUDA
+	       POET
+	       WHIZ
+	       PEOPLE>>
+<GLOBAL LIT T>
+<GLOBAL MOVES 0>
+<GLOBAL SCORE 3>
+<GLOBAL WON-FLAG <>>
+<GLOBAL INDENTS
+	<TABLE ""
+	       "  "
+	       "    "
+	       "      "
+	       "        "
+	       
+"          ">>
+<GLOBAL ON-WEDGE <>>
+<GLOBAL DIALSETS
+	<LTABLE 55 55 55 70 30 50>> ;"First 3 dials, 2nd 3 are Hydro Levers"
+<GLOBAL DECAY 6>
+<GLOBAL TV-ON <>>
+<GLOBAL REDSET <>>
+<GLOBAL ORANGESET <>>
+<GLOBAL AUDA-LISTENS <>>
+<GLOBAL CAR-GONE 0>
+<GLOBAL ACID-FIXED T>
+<GLOBAL RTHIEF 0>
+<GLOBAL TAKE-BACK 0>
+<GLOBAL SLEEPERS 0>
+<GLOBAL BELT-ON <>>
+<GLOBAL TOTAL-SCORE 3>
+<GLOBAL PLAY-STARCROSS 0>
+<GLOBAL WATER-LEVEL 70>
+<GLOBAL MINERALS 30>
+<GLOBAL WATTS 50>
+<GLOBAL FOOD-TONS 100>
+
+<GLOBAL FLOATERS 1>
+<GLOBAL TAXIS 3>
+<GLOBAL RAMP-SPEED 30>
+<GLOBAL CRASH-RATE 0>
+<GLOBAL COLLISIONS 0>
+<GLOBAL RAMP-KILLS 0>
+
+<CONSTANT WATER-OPT 70>
+<CONSTANT MINERALS-OPT 30>
+<CONSTANT WATTS-OPT 50>
+<CONSTANT FOOD-OPT 100>
+
+<GLOBAL CODE1 CIRCLE1>
+<GLOBAL CODE2 CIRCLE1>
+<GLOBAL CODE-TBL
+	<LTABLE CIRCLE1 CIRCLE2 CIRCLE3 CIRCLE4
+		CIRCLE5 CIRCLE6 CIRCLE7 CIRCLE8>>
+<GLOBAL CODE-SET1 <>>
+<GLOBAL CODE-SET2 <>>
+
+<GLOBAL IRIS-HINTS 0>
+<GLOBAL DYING1 3>
+<GLOBAL DYING2 5>
+<GLOBAL DYING3 7>
+<GLOBAL ADVANCED-FLAG <>>
+
+<GLOBAL WAITING-QUIP <>>
\ No newline at end of file
diff --git a/goal.zil b/goal.zil
new file mode 100644
index 0000000..6e8ad2a
--- /dev/null
+++ b/goal.zil
@@ -0,0 +1,586 @@
+"GOAL for
+			    SUSPENDED
+	Copyright 1982 Infocom, Inc.  All rights reserved.
+"
+
+"This code is the local T system."
+
+<GLOBAL DIR-STRINGS
+	<PTABLE  P?NORTH "north" P?SOUTH "south"
+		P?EAST "east" P?WEST "west"
+		P?NW "northwest" P?NE "northeast"
+		P?SW "southwest" P?SE "southeast"
+		P?DOWN "downstairs" P?UP "upstairs"
+		P?IN "in" P?OUT "out">>
+
+"Rapid Transit Line Definitions and Identifiers"
+
+<CONSTANT A-LINE-C 0>
+<CONSTANT B-LINE-C 1>
+<CONSTANT C-LINE-C 2>
+<CONSTANT D-LINE-C 3>
+<CONSTANT E-LINE-C 4>
+<CONSTANT F-LINE-C 5>
+
+<GLOBAL A-LINE
+	<PTABLE 0 SKY3 P?EAST
+	       P?WEST SKY2 P?EAST
+	       P?WEST SKY1 P?SOUTH
+	       P?NORTH NE-PASSAGE2 P?SW
+	       P?NE NE-PASSAGE1 0>>
+
+<GLOBAL B-LINE
+	<PTABLE 0 SUPPLIES-MID P?NORTH
+	       P?SOUTH SUPPLIES-NORTH P?EAST
+	       P?WEST WEATHER-BANKS P?EAST
+	       P?WEST CPU-ROOM P?NE
+	       P?SW CORRIDOR-1 P?NE
+	       P?SW CORRIDOR-2 P?EAST
+	       P?WEST HALLWAY-JUNCTION P?SOUTH
+	       P?NORTH OUTSIDE-CLC P?SOUTH
+	       P?NORTH PERIPH-1 P?SE
+	       P?NW PERIPH-2 P?SW
+	       P?NE PERIPH-3 P?NW
+	       P?SE PERIPH-4 P?EAST
+	       P?WEST CLC-CORE 0>>
+
+<GLOBAL C-LINE
+	<PTABLE 0 REPAIR3 P?NORTH
+	       P?SOUTH REPAIR2 P?NORTH
+	       P?SOUTH REPAIR1 P?NORTH
+	       P?SOUTH ROBOT-Z P?NW
+	       P?SE ROBOT-PASSAGE P?NW
+	       P?SE CORRIDOR-3 P?EAST
+	       P?WEST CORRIDOR-4 P?EAST
+	       P?WEST ACIDMIST P?EAST
+	       P?WEST MIDMIST P?NE
+	       P?SW FC1 P?SOUTH
+	       P?NORTH TUBE2 P?SOUTH
+	       P?NORTH FC2 P?SOUTH
+	       P?NORTH TUBE1 P?SOUTH
+	       P?NORTH FC3 0>>
+
+<GLOBAL D-LINE
+	<PTABLE 0 HUMAN-ENTRY P?NORTH
+	       P?SOUTH HALL-STOP3 P?WEST
+	       P?EAST HALL-STOP2 P?WEST
+	       P?EAST HALL-STOP1 P?WEST
+	       P?EAST NORTH-ENTRY P?WEST
+	       P?EAST DEAD-END-1 0>>
+
+<GLOBAL E-LINE
+	<PTABLE 0 STERILE-AREA P?EAST
+	       P?WEST DECON-CHAMBER P?EAST
+	       P?WEST ENTRY-AREA P?EAST
+	       P?WEST TOOL-AREA P?EAST
+	       P?WEST REC-AREA P?EAST
+	       P?WEST SLEEP-CHAMBER 0>>
+
+<GLOBAL F-LINE
+	<PTABLE 0 HALL-STOP4 P?EAST
+	       P?WEST HALL-STOP5 P?SOUTH
+	       P?NORTH HALL-T P?SOUTH
+	       P?NORTH LOWER-CORE P?SOUTH
+	       P?NORTH HALL-END P?EAST
+	       P?WEST CAR-AREA P?NORTH
+	       P?SOUTH BIO-INT P?NORTH
+	       P?SOUTH CRYOUNITS 0>>
+	       
+<GLOBAL TRANSFER-TABLE
+	<PTABLE 0 0
+	       NE-PASSAGE1 CORRIDOR-4
+	       NE-PASSAGE1 CORRIDOR-4
+	       NE-PASSAGE1 CORRIDOR-4
+	       NE-PASSAGE1 CORRIDOR-4
+	       NE-PASSAGE1 CORRIDOR-4
+
+	       HALLWAY-JUNCTION CORRIDOR-3
+	       0 0
+	       HALLWAY-JUNCTION CORRIDOR-3
+	       HALLWAY-JUNCTION HUMAN-ENTRY
+	       HALLWAY-JUNCTION HUMAN-ENTRY
+	       HALLWAY-JUNCTION HUMAN-ENTRY
+
+	       CORRIDOR-4 NE-PASSAGE1
+	       CORRIDOR-3 HALLWAY-JUNCTION
+	       0 0
+	       CORRIDOR-3 HALLWAY-JUNCTION
+	       CORRIDOR-3 HALLWAY-JUNCTION
+	       CORRIDOR-3 HALLWAY-JUNCTION
+
+	       HUMAN-ENTRY HALLWAY-JUNCTION
+	       HUMAN-ENTRY HALLWAY-JUNCTION
+	       HUMAN-ENTRY HALLWAY-JUNCTION
+	       0 0
+	       NORTH-ENTRY STERILE-AREA
+	       HALL-STOP3 HALL-STOP4
+
+	       SLEEP-CHAMBER HALL-STOP5
+	       SLEEP-CHAMBER HALL-STOP5
+	       SLEEP-CHAMBER HALL-STOP5
+	       SLEEP-CHAMBER HALL-STOP5
+	       0 0
+	       SLEEP-CHAMBER HALL-STOP5
+
+	       HALL-STOP4 HALL-STOP3
+	       HALL-STOP4 HALL-STOP3
+	       HALL-STOP4 HALL-STOP3
+	       HALL-STOP4 HALL-STOP3
+	       HALL-STOP5 SLEEP-CHAMBER
+	       0 0>>
+
+<GLOBAL COR-1
+	<PTABLE P?WEST P?EAST
+	       STERILE-AREA DECON-CHAMBER ENTRY-AREA TOOL-AREA REC-AREA
+	       SLEEP-CHAMBER 0>>
+
+<GLOBAL COR-2
+	<PTABLE P?WEST P?EAST
+	       DEAD-END-1 NORTH-ENTRY HALL-STOP1 HALL-STOP2 HALL-STOP3
+	       HALL-STOP4 HALL-STOP5 0>>
+
+<GLOBAL COR-4
+	<PTABLE P?NORTH P?SOUTH
+	       HALL-STOP3 HUMAN-ENTRY HALLWAY-JUNCTION 0>>
+
+<GLOBAL COR-8
+	<PTABLE P?SW P?NE
+	       CPU-ROOM CORRIDOR-1 CORRIDOR-2 0>>
+
+<GLOBAL COR-16
+	<PTABLE P?WEST P?EAST
+	       CORRIDOR-2 HALLWAY-JUNCTION CORRIDOR-3 CORRIDOR-4 ACIDMIST MIDMIST 0>>
+
+<GLOBAL COR-32
+	<PTABLE P?NORTH P?SOUTH
+	       SLEEP-CHAMBER HALL-STOP5 HALL-T LOWER-CORE HALL-END 0>>
+
+<GLOBAL COR-64
+	<PTABLE P?WEST P?EAST
+	       HALL-END CAR-AREA 0>>
+
+<GLOBAL COR-128
+	<PTABLE P?SW P?NE
+	       CORRIDOR-4 NE-PASSAGE1 NE-PASSAGE2 0>>
+
+<GLOBAL COR-256
+	<PTABLE P?WEST P?EAST
+	       SKY4 SKY3 SKY2 SKY1 0>>
+	       
+
+"CODE"
+
+<ROUTINE KILL-GOAL (RBT "OPTIONAL" (DRAG <>) "AUX" GT OFFSET)
+	 <SET OFFSET <GETP .RBT ,P?ROBOT>>
+	 <SET GT <GET ,GOAL-TABLES .OFFSET>>
+	 <PUT .GT ,GOAL-S <>>
+	 <PUT .GT ,GOAL-F <>>
+	 <PUT .GT ,GOAL-ENABLE T>
+	 <COND (.DRAG
+		<PUT ,DRAG-TBL .OFFSET 0>)>
+	 <RFALSE>>
+
+<ROUTINE SET-GOAL (RBT GOAL "AUX" (HERE <LOC .RBT>) HL GL GT)
+	 #DECL ((RBT GOAL HERE) OBJECT (HL GL) FIX
+		(PRIORITY) <OR FALSE ATOM>)
+	 <SET GT <GET ,GOAL-TABLES <GETP .RBT ,P?ROBOT>>>
+	 <PUT .GT ,GOAL-I <+ <* <GETP .HERE ,P?LINE> 12>
+			     <* <GETP .GOAL ,P?LINE> 2>>>
+	 <PUT .GT ,GOAL-S <GETP .GOAL ,P?STATION>>
+	 <PUT .GT ,GOAL-F .GOAL>
+	 <PUT .GT ,GOAL-ENABLE T>
+	 <LOC .RBT>>
+
+<ROUTINE FOLLOW-GOAL (RBT "AUX" (HERE <LOC .RBT>) LINE LN RM GT GOAL FLG
+		      		   (GOAL-FLAG <>) (IGOAL <>) LOC (CNT 1) DIR)
+	 #DECL ((RBT HERE LOC RM) OBJECT (LN CNT) FIX
+		(GOAL-FLAG) <OR ATOM FALSE>)
+	 <SET GT <GET ,GOAL-TABLES <GETP .RBT ,P?ROBOT>>>
+	 <COND (<==? .HERE <GET .GT ,GOAL-F>>
+		<ARRIVAL .RBT>
+		<COND (<NOT <EQUAL? .RBT ,PEOPLE>>
+		       <RTRUE>)
+		      (T <RFALSE>)>)
+	       (<NOT <GET .GT ,GOAL-ENABLE>> <RFALSE>)>
+	 %<COND (<GASSIGNED? PREDGEN>
+		 '<COND (<NOT <EQUAL? <SET LOC <GETP .HERE ,P?STATION>>
+				      .HERE>>
+			 <RETURN <MOVE-RBT .RBT .LOC>>)>)
+		(T
+		 '<COND (<NOT <EQUAL? <SET LOC ,<GETP .HERE ,P?STATION>>
+				      .HERE>>
+			 <RETURN <MOVE-RBT .RBT .LOC>>)>)>
+	 <COND (<==? <SET GOAL <GET ,TRANSFER-TABLE
+				    <SET IGOAL <GET .GT ,GOAL-I>>>> 0>
+		<SET IGOAL <>>
+		<SET GOAL <GET .GT ,GOAL-S>>)>
+	 <COND (<NOT .GOAL> <RFALSE>)
+	       (<==? .HERE .GOAL>
+		<COND (.IGOAL
+		       <COND (<NOT <SET FLG
+			           <MOVE-RBT .RBT
+				             <GET ,TRANSFER-TABLE
+						  <+ .IGOAL 1>>>>>
+			      <SET-GOAL .RBT <GET .GT ,GOAL-F>>)>
+		       <RETURN .FLG>)
+		      (<NOT <==? .HERE <GET .GT ,GOAL-F>>>
+		       <MOVE-RBT .RBT <GET .GT ,GOAL-F>>
+		       <RETURN <ARRIVAL .RBT>>)
+		      (T
+		       <RETURN <ARRIVAL .RBT>>)>)>
+	 <SET LINE <GET-LINE <GETP .GOAL ,P?LINE>>>
+	 <REPEAT ()
+		 <COND (<==? <SET RM <GET .LINE .CNT>> .HERE>
+		        <COND (.GOAL-FLAG
+			       <SET LOC <GET .LINE <- .CNT 3>>>)
+			      (T
+			       <SET LOC <GET .LINE <+ .CNT 3>>>)>
+			<RETURN <MOVE-RBT .RBT .LOC>>)
+		       (<==? .RM .GOAL>
+			<SET GOAL-FLAG T>)>
+		 <SET CNT <+ .CNT 3>>>>
+
+<GLOBAL STUCK-QUIPS
+	<PLTABLE "Internal mapping doesn't extend from "
+                "Sonar doesn't detect an easy way to get from "
+		"Sensory mechanisms indicate it's impossible to get from "
+		"Holy earwax. I can't get from "
+		"Alas, stuck, stuck, stuck. I can't get from "
+		"CLC indicates I cannot relocate going from ">>
+
+<GLOBAL MORE-STUCKS
+	<PLTABLE "I'm waiting for alternate instructions."
+		"Directions requested."
+		"Please advise."
+		"I'm listening for additional instructions."
+		"Tell me, oh leader, what to do next."
+		"Awaiting instructions.">>
+		
+<ROUTINE STUCK (RBT WHERE "AUX" GT TEMP OFFSET)
+	 <SET OFFSET <GETP .RBT ,P?ROBOT>>
+	 <SET GT <GET ,GOAL-TABLES .OFFSET>>
+	 <SET TEMP ,WINNER>
+	 <CHANGE-WINNER .RBT T>
+	 <COND (<EQUAL? ,WINNER .TEMP>
+		<ROBOT-TELL <GET ,STUCK-QUIPS ,ROFF> <>>)
+	       (T 
+		<TELL <GET ,INTER-TBL ,ROFF> " " <GET ,STUCK-QUIPS ,ROFF>>)> 
+	 <TELL SD <LOC .RBT> " to ">
+	 <COND (<IRIS?>
+		<TELL "Angling Corridor">)
+	       (T
+		<TELL SD .WHERE>)>
+	 <TELL ". " <GET ,MORE-STUCKS ,ROFF> CR>
+	 <KILL-GOAL .RBT>
+	 <PUT ,ROBOT-FOLLOW .OFFSET 0>
+	 <PUT ,FOLLOW-TBL ,ROFF 0>
+	 <CHANGE-WINNER .TEMP T>
+	 <RTRUE>>
+
+<ROUTINE MOVE-RBT (RBT WHERE "AUX" (L <LOC .RBT>) (COUNT 0) FLOC FROB)
+	 #DECL ((RBT WHERE) OBJECT)
+	 <COND (<MOVE-RBT? .RBT .L .WHERE>
+		<RTRUE> ;"Prints something")>
+	 <REPEAT ()
+		 <SET COUNT <+ .COUNT 1>>
+		 <COND (<EQUAL? .COUNT 7>
+			<RETURN>)>
+		 <COND (<EQUAL? <GET ,FOLLOW-TBL .COUNT> .RBT>
+			<SET FROB <GET ,NAME-TBL <- .COUNT 1>>>
+			<SET FLOC <LOC .FROB>>
+			<COND (<AND <EQUAL? .FROB ,IRIS>
+				    <EQUAL? ,CORRIDOR-1 .WHERE>>
+			       <STUCK ,IRIS ,CPU-ROOM>)
+			      (T
+			       <MOVE-RBT? .FROB .FLOC .WHERE>)>)>>
+	 <RFALSE>>
+
+<ROUTINE MOVE-RBT? (RBT L WHERE)
+	 <COND (<AND <EQUAL? .L ,HUMAN-ENTRY ,HALLWAY-JUNCTION>
+		     <EQUAL? .WHERE ,HUMAN-ENTRY ,HALLWAY-JUNCTION>
+		     <NOT <EQUAL? ,WEDGE-PLACED 2>>
+		     ;<NOT <EQUAL? <LOC ,WEDGE> ,HUMAN-ENTRY ,HALLWAY-JUNCTION>>
+		     <NOT <EQUAL? .RBT ,PEOPLE>>>
+		<STUCK .RBT .WHERE>
+		<RTRUE>)
+	       (<AND <EQUAL? .L ,CORRIDOR-4>
+		     <EQUAL? .WHERE ACIDMIST>
+		     <NOT ,ACID-FIXED>
+		     <NOT <EQUAL? ,PEOPLE .RBT>>>
+		<COND (<EQUAL? <GET ,DEADBOTS <GETP .RBT ,P?ROBOT>> 0>
+		       <PUT ,DEADBOTS <GETP .RBT ,P?ROBOT> 1>
+		       <DO-THE-MOVE .RBT .L .WHERE>
+		       <RFALSE>)
+		      (T
+		       <DO-THE-MOVE .RBT .L .WHERE>
+		       <RFALSE>)>)
+	       (<AND <EQUAL? .L ,HALL-END ,CAR-AREA>
+		     <EQUAL? .WHERE ,HALL-END ,CAR-AREA>>
+		<STUCK .RBT .WHERE>
+		<RTRUE>)
+	       (<AND <EQUAL? .RBT ,IRIS>
+		     <EQUAL? .L ,CPU-ROOM ,CORRIDOR-1>
+		     <EQUAL? .WHERE ,CORRIDOR-1 ,CORRIDOR-2>>
+		<MOVE ,IRIS ,CPU-ROOM>
+		<SET .WHERE ,CORRIDOR-1>
+		<SET .L ,CPU-ROOM>
+		<STUCK .RBT .WHERE>
+		<RTRUE>)
+	       (ELSE
+		<DO-THE-MOVE .RBT .L .WHERE>
+		<RFALSE>)>>
+
+<ROUTINE DO-THE-MOVE (RBT L WHERE "AUX" DRAGEE)
+	 <MOVE .RBT .WHERE>
+	 <COND (<==? .RBT ,WINNER>
+		<SETG WINNER-HERE .WHERE>)>
+	 <PUT ,LAST-ROOM <GETP .RBT ,P?ROBOT> .L>
+	 <COND (<NOT <EQUAL? .RBT ,PEOPLE>>
+		<COND (<NOT <EQUAL? 
+			     <SET DRAGEE 
+				  <GET ,DRAG-TBL 
+				       <GETP .RBT ,P?ROBOT>>> 0>>
+		       <MOVE .DRAGEE .WHERE>
+		       <PUT ,LAST-ROOM <GETP .DRAGEE ,P?ROBOT> .L>)>)>
+	 <RFALSE>>
+
+<ROUTINE COR-DIR (HERE THERE "AUX" COR RM (PAST 0) (CNT 2))
+	 <SET COR <GET-COR <BAND <GETP .THERE ,P?CORRIDOR>
+				 <GETP .HERE ,P?CORRIDOR>>>>
+	 <REPEAT ()
+		 <COND (<==? <SET RM <GET .COR .CNT>> .HERE>
+			<SET PAST 1>
+			<RETURN>)
+		       (<==? .RM .THERE>
+			<RETURN>)>
+		 <SET CNT <+ .CNT 1>>>
+	 <GET .COR .PAST>>
+
+<ROUTINE GET-LINE (LN)
+	 <COND (<==? .LN 0> ,A-LINE)
+	       (<==? .LN 1> ,B-LINE)
+	       (<==? .LN 2> ,C-LINE)
+	       (<==? .LN 3> ,D-LINE)
+	       (<==? .LN 4> ,E-LINE)
+	       (T ,F-LINE)>>
+
+<ROUTINE GET-COR (NUM)
+	 #DECL ((NUM) FIX)
+	 <COND (<==? .NUM 1> ,COR-1)
+	       (<==? .NUM 2> ,COR-2)
+	       (<==? .NUM 4> ,COR-4)
+	       (<==? .NUM 8> ,COR-8)
+	       (<==? .NUM 16> ,COR-16)
+	       (<==? .NUM 32> ,COR-32)
+	       (<==? .NUM 64> ,COR-64)
+	       (<==? .NUM 128> ,COR-128)
+	       (T ,COR-256)>>
+
+<ROUTINE DIR-PRINT (DIR "AUX" (CNT 0))
+	 #DECL ((DIR CNT) FIX)
+	 <REPEAT ()
+		 <COND (<==? <GET ,DIR-STRINGS .CNT> .DIR>
+			<COND (<NOT <EQUAL? .DIR ,P?UP ,P?DOWN>>
+			       <TELL "the ">)>
+			<PRINT <GET ,DIR-STRINGS <+ .CNT 1>>>
+			<RTRUE>)>
+		 <SET CNT <+ .CNT 1>>>>
+
+"Goal tables for the 6 characters, offset by a constant, which,
+for a given robot, is the P?ROBOT property of the object."
+
+<GLOBAL GOAL-TABLES
+	<TABLE <TABLE <> <> <> <> 1 <> <> I-FOLLOW>
+	       <TABLE <> <> <> <> 1 <> <> G-ROBOT>
+	       <TABLE <> <> <> <> 1 <> <> G-ROBOT>
+	       <TABLE <> <> <> <> 1 <> <> G-ROBOT>
+	       <TABLE <> <> <> <> 1 <> <> G-ROBOT>
+	       <TABLE <> <> <> <> 1 <> <> G-ROBOT>
+	       <TABLE <> <> <> <> 1 <> <> G-ROBOT>
+	       <TABLE <> <> <> <> 1 <> <> G-PEOPLE>>>
+
+<CONSTANT CHARACTER-MAX 7>
+
+"Offsets into GOAL-TABLEs"
+
+<CONSTANT GOAL-F 0>
+<CONSTANT GOAL-S 1>
+<CONSTANT GOAL-I 2>
+<CONSTANT GOAL-LDIR 3>
+<CONSTANT GOAL-ENABLE 4>
+<CONSTANT GOAL-PRIORITY 5>
+<CONSTANT GOAL-QUEUED 6>
+<CONSTANT GOAL-FUNCTION 7>
+ 
+"Goal-function constants, similar to M-xxx in MAIN"
+
+<CONSTANT G-REACHED 1>
+<CONSTANT G-ENROUTE 2>
+
+<ROUTINE GOAL? (RBT)
+	 <GET <GET ,GOAL-TABLES <GETP .RBT ,P?ROBOT>> ,GOAL-F>>
+
+<ROUTINE I-FOLLOW ("AUX" (FLG <>) (CNT 0) GT)
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> ,CHARACTER-MAX>
+			<RETURN>)
+		       (<AND <GET <SET GT <GET ,GOAL-TABLES .CNT>> ,GOAL-S>
+			     <GET .GT ,GOAL-ENABLE>>
+			<PUT .GT ,GOAL-ENABLE T>
+			<COND (<FOLLOW-GOAL <GET ,CHARACTER-TBL .CNT>>
+			       <SET FLG T>)>)>>
+	 .FLG>
+
+<ROUTINE ARRIVAL (RBT "AUX" GT)
+	 <SET GT <GET ,GOAL-TABLES <GETP .RBT ,P?ROBOT>>>
+	 <PUT .GT ,GOAL-S <>>
+	 <PUT .GT ,GOAL-F <>>
+	 <APPLY <GET .GT ,GOAL-FUNCTION> .RBT ,G-REACHED>
+	 <RTRUE>>
+
+<GLOBAL ARRIVAL-QUIPS
+	<PLTABLE "I've reached my destination, the "
+		"Internal mapping indicates arrival at the "
+		"Sensory mechanisms match goal directive. I am at the "
+		"From what I can hear, I've arrived at the "
+		"As much as I can be anyplace, I'm here at the "
+		"CLC indicates matched arrival coordinates at the ">>
+
+<ROUTINE G-ROBOT (RBT GARG "AUX" TEMP COUNT CHASED)
+	 <COND (<==? .GARG ,G-REACHED>
+		<SET TEMP ,WINNER>
+		<CHANGE-WINNER .RBT T>
+		<CRLF>
+		<COND (<EQUAL? ,WINNER .TEMP>
+		       <ROBOT-TELL <GET ,ARRIVAL-QUIPS ,ROFF> <>>)
+		      (T 
+		       <TELL <GET ,INTER-TBL ,ROFF> " " 
+			     <GET ,ARRIVAL-QUIPS ,ROFF>>)>
+		<KILL-GOAL ,WINNER T>
+		<TELL SD <LOC ,WINNER> ".">
+		<COND (<NOT <EQUAL? <SET CHASED <GET ,ROBOT-FOLLOW ,ROFF>> 0>>
+		       <COND (<NOT <EQUAL? <LOC .CHASED> <LOC .RBT>>>
+			      <TELL " Looks like I missed "
+				    D .CHASED " though." CR>)>)>
+		<PUT ,ROBOT-FOLLOW <GETP .RBT ,P?ROBOT> 0>
+		<APPLY <GETP ,WINNER-HERE ,P?ACTION> ,M-ENTER>
+		<CRLF>
+		<CHANGE-WINNER .TEMP T>
+		<RFATAL>)>>
+
+;"NOTE: Follow-tbl, found in VERBS, puts the person to be followed into the 
+        table.
+  NOTE: ROBOT-FOLLOW is used to indicate the robot expected to be found on 
+        arrival, set by GO TO a ROBOT.
+  NOTE: LAST-ROOM is a table used by the verb FOLLOW to determine whether or  
+        the robot to be followed was just here."
+
+<GLOBAL ROBOT-FOLLOW
+	<LTABLE 0 0 0 0 0 0>>
+
+<GLOBAL DRAG-TBL
+	<LTABLE 0 0 0 0 0 0 0>>
+
+<GLOBAL LAST-ROOM
+	<LTABLE 0 0 0 0 0 0 0>>
+
+<ROUTINE G-PEOPLE (RBT GARG "AUX" COUNT)
+	 <COND (<==? .GARG ,G-REACHED>
+		<COND (<EQUAL? ,PR-NUMBER 1>
+		       <PARRIVE1>)
+		      (<EQUAL? ,PR-NUMBER 2>
+		       <PARRIVE2>)
+		      (<EQUAL? ,PR-NUMBER 3>
+		       <PARRIVE3>)
+		      (<EQUAL? ,PR-NUMBER 4>
+		       <PARRIVE4>)
+		      (<EQUAL? ,PR-NUMBER 5>
+		       <PARRIVE5>)
+		      (<EQUAL? ,PR-NUMBER 6>
+		       <PARRIVE6>)
+		      (<EQUAL? ,PR-NUMBER 7>
+		       <PARRIVE7>)
+		      (<EQUAL? ,PR-NUMBER 8>
+		       <PARRIVE8>)
+		      (<EQUAL? ,PR-NUMBER 9>
+		       <PARRIVE9>)>)>>
+
+"Routines to do looking down corridors"
+
+<ROUTINE CORRIDOR-LOOK ("OPTIONAL" (ITM <>) "AUX" C Z COR VAL (FOUND <>))
+	 <COND (<SET C <GETP ,WINNER-HERE ,P?CORRIDOR>>
+		<REPEAT ()
+			<COND (<NOT <L? <SET Z <- .C 256>> 0>>
+			       <SET COR ,COR-256>)
+			      (<NOT <L? <SET Z <- .C 128>> 0>>
+			       <SET COR ,COR-128>)
+			      (<NOT <L? <SET Z <- .C 64>> 0>>
+			       <SET COR ,COR-64>)
+			      (<NOT <L? <SET Z <- .C 32>> 0>>
+			       <SET COR ,COR-32>)
+			      (<NOT <L? <SET Z <- .C 16>> 0>>
+			       <SET COR ,COR-16>)
+			      (<NOT <L? <SET Z <- .C 8>> 0>>
+			       <SET COR ,COR-8>)
+			      (<NOT <L? <SET Z <- .C 4>> 0>>
+			       <SET COR ,COR-4>)
+			      (<NOT <L? <SET Z <- .C 2>> 0>>
+			       <SET COR ,COR-2>)
+			      (<NOT <L? <SET Z <- .C 1>> 0>>
+			       <SET COR ,COR-1>)
+			      (T <RETURN>)>
+			<SET VAL <CORRIDOR-CHECK .COR .ITM>>
+			<COND (<NOT .FOUND> <SET FOUND .VAL>)>
+			<SET C .Z>>
+		.FOUND)>>
+
+<ROUTINE CORRIDOR-CHECK (COR ITM "AUX" (CNT 2) (PAST 0) (FOUND <>) RM OBJ)
+	 <REPEAT ()
+		 <COND (<==? <SET RM <GET .COR .CNT>> 0>
+			<RFALSE>)
+		       (<==? .RM ,WINNER-HERE> <SET PAST 1>)
+		       (<SET OBJ <FIRST? .RM>>
+			<REPEAT ()
+				<COND (.ITM
+				       <COND (<==? .OBJ .ITM>
+					      <SET FOUND <GET .COR .PAST>>
+					      <RETURN>)>)
+				      (<GETP .OBJ ,P?ROBOT>
+				       <COND (<EQUAL? <GETP .OBJ ,P?ROBOT> 7>
+					      <TELL "Some " D .OBJ " are ">)
+					     (ELSE
+					      <TELL D .OBJ " is ">)>
+				       <COND (<IN-MOTION? .OBJ>
+					      <TELL "in motion ">)>
+				       <TELL "off to ">
+				       <DIR-PRINT <GET .COR .PAST>>
+				       <DRAGGING? .OBJ>
+				       <TELL ".">
+				       <COND (<AND <EQUAL? .OBJ ,PEOPLE>
+						   ,CHASING-THIEF
+						   <EQUAL? ,WINNER ,RTHIEF>>
+					      <TELL
+" They appear to be in hot pursuit.">)>
+				       <CRLF>)>
+				<SET OBJ <NEXT? .OBJ>>
+				<COND (<NOT .OBJ> <RETURN>)>>
+			<COND (.FOUND <RETURN .FOUND>)>)>
+		 <SET CNT <+ .CNT 1>>>>
+
+<ROUTINE DRAGGING? (RBT "AUX" DRAGEE)
+	 <COND (<EQUAL? .RBT ,PEOPLE>
+		<RFALSE>)
+	       (<NOT 
+		<EQUAL? <SET DRAGEE <GET ,DRAG-TBL <GETP .RBT ,P?ROBOT>>> 0>>
+		<TELL ", dragging " D .DRAGEE>
+		<RFALSE>)>>
+
+<ROUTINE IN-MOTION? (RBT "AUX" GT)
+	 <SET GT <GET ,GOAL-TABLES <GETP .RBT ,P?ROBOT>>>
+	 <COND (<AND <GET .GT ,GOAL-ENABLE>
+		     <GET .GT ,GOAL-S>
+		     <NOT <==? <LOC .RBT> <GET .GT ,GOAL-F>>>>
+		<RTRUE>)
+	       (T <RFALSE>)>>
+
+<GLOBAL CHARACTER-TBL <PLTABLE IRIS WALDO SENSA AUDA POET WHIZ PEOPLE>>
\ No newline at end of file
diff --git a/gparser.zil b/gparser.zil
new file mode 100644
index 0000000..a363184
--- /dev/null
+++ b/gparser.zil
@@ -0,0 +1,1189 @@
+			"Generic PARSER file for
+			    The ZORK Trilogy
+		       started on 7/28/83 by MARC"
+
+;"WHICH and TRAP retrofixes installed"
+
+"Parser global variable convention:  All parser globals will 
+  begin with 'P-'.  Local variables are not restricted in any
+  way.
+" 
+ 
+<SETG SIBREAKS ".,\"">
+ 
+;<GLOBAL GWIM-DISABLE <>> 
+ 
+<GLOBAL PRSA <>>
+ 
+<GLOBAL PRSI <>>
+
+<GLOBAL PRSO <>>
+
+<GLOBAL P-TABLE 0>  
+ 
+<GLOBAL P-ONEOBJ 0> 
+ 
+<GLOBAL P-SYNTAX 0> 
+ 
+<GLOBAL P-CCSRC 0>  
+ 
+<GLOBAL P-LEN 0>    
+ 
+;<GLOBAL P-DIR 0>    
+ 
+<GLOBAL HERE 0>
+ 
+<GLOBAL WINNER 0>   
+ 
+<GLOBAL P-LEXV <ITABLE BYTE 120>>
+;"INBUF - Input buffer for READ"   
+ 
+<GLOBAL P-INBUF <ITABLE BYTE 100>>
+;"Parse-cont variable"  
+ 
+<GLOBAL P-CONT <>>  
+ 
+<GLOBAL P-IT-OBJECT <>>
+<GLOBAL P-IT-LOC <>>
+
+;"Orphan flag" 
+ 
+<GLOBAL P-OFLAG <>> 
+ 
+<GLOBAL P-MERGED <>>
+
+<GLOBAL P-ACLAUSE <>>    
+ 
+<GLOBAL P-ANAM <>>  
+ 
+<GLOBAL P-AADJ <>>
+;"Parser variables and temporaries"
+ 
+<CONSTANT P-PHRLEN 3>    
+ 
+<CONSTANT P-ORPHLEN 7>   
+ 
+<CONSTANT P-RTLEN 3>
+;"Byte offset to # of entries in LEXV"
+
+<CONSTANT P-LEXWORDS 1>
+;"Word offset to start of LEXV entries" 
+ 
+<CONSTANT P-LEXSTART 1>
+;"Number of words per LEXV entry"  
+ 
+<CONSTANT P-LEXELEN 2>   
+ 
+<CONSTANT P-WORDLEN 4>
+;"Offset to parts of speech byte"   
+ 
+<CONSTANT P-PSOFF 4>
+;"Offset to first part of speech"
+ 
+<CONSTANT P-P1OFF 5>
+;"First part of speech bit mask in PSOFF byte"  
+ 
+<CONSTANT P-P1BITS 3>    
+ 
+<CONSTANT P-ITBLLEN 9>   
+ 
+<GLOBAL P-ITBL <TABLE 0 0 0 0 0 0 0 0 0 0>>  
+ 
+<GLOBAL P-OTBL <TABLE 0 0 0 0 0 0 0 0 0 0>>  
+ 
+<GLOBAL P-VTBL <TABLE 0 0 0 0>>
+
+<GLOBAL P-NCN 0>    
+ 
+<CONSTANT P-VERB 0> 
+ 
+<CONSTANT P-VERBN 1>
+ 
+<CONSTANT P-PREP1 2>
+ 
+<CONSTANT P-PREP1N 3>    
+ 
+<CONSTANT P-PREP2 4>
+ 
+<CONSTANT P-PREP2N 5>    
+ 
+<CONSTANT P-NC1 6>  
+ 
+<CONSTANT P-NC1L 7> 
+ 
+<CONSTANT P-NC2 8>  
+ 
+<CONSTANT P-NC2L 9> 
+ 
+<GLOBAL QUOTE-FLAG <>>
+
+" Grovel down the input finding the verb, prepositions, and noun clauses.
+   If the input is <direction> or <walk> <direction>, fall out immediately
+   setting PRSA to ,V?WALK and PRSO to <direction>.  Otherwise, perform
+   all required orphaning, syntax checking, and noun clause lookup."   
+
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WRD (VAL 0) (VERB <>)
+		       LEN (DIR <>) (NW 0) (LW 0) NUM SCNT (CNT -1)) 
+	<REPEAT ()
+		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-ITBL .CNT 0>)>>
+	<SETG P-ADVERB <>>
+	<SETG P-MERGED <>>
+	<PUT ,P-PRSO ,P-MATCHLEN 0>
+	<PUT ,P-PRSI ,P-MATCHLEN 0>
+	<PUT ,P-BUTS ,P-MATCHLEN 0>
+	<COND (<AND <NOT ,QUOTE-FLAG> <N==? ,WINNER ,PLAYER>>
+	       <SETG WINNER ,PLAYER>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <SETG LIT <LIT? ,HERE>>)>
+	<COND (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <COND (<AND <NOT ,SUPER-BRIEF>
+			   <==? ,PLAYER ,WINNER>
+			   <NOT <VERB? SAY>>>
+		      <CRLF>)>
+	       <SETG P-CONT <>>)
+	      (T
+	       <SETG WINNER ,PLAYER>
+	       <SETG QUOTE-FLAG <>>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <SETG LIT <LIT? ,HERE>>
+	       <COND (<NOT ,SUPER-BRIEF> <CRLF>)>
+	       <STATUS-LINE>
+	       <TELL ">">
+	       <READ ,P-INBUF ,P-LEXV>)>
+	<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	<COND (<0? ,P-LEN> <TELL "I beg your pardon?" CR> <RFALSE>)>
+	<SET LEN ,P-LEN>
+	;<SETG P-DIR <>>
+	<SETG P-NCN 0>
+	<SETG P-GETFLAGS 0>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <SETG QUOTE-FLAG <>>
+		       <RETURN>)
+		      (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<AND <==? .WRD ,W?TO>
+				   <EQUAL? .VERB ,ACT?TELL ;,ACT?ASK>>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <==? .WRD ,W?THEN>
+				   <NOT .VERB>
+				   <NOT ,QUOTE-FLAG> ;"Last NOT added 7/3">
+			      <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+			      <PUT ,P-ITBL ,P-VERBN 0>
+			      <SET WRD ,W?QUOTE>)>
+		       <COND (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <EQUAL? .WRD ,W?QUOTE>> 
+			      <COND (<EQUAL? .WRD ,W?QUOTE>
+				     <COND (,QUOTE-FLAG
+					    <SETG QUOTE-FLAG <>>)
+					   (T <SETG QUOTE-FLAG T>)>)>
+			      <OR <0? ,P-LEN>
+				  <SETG P-CONT <+ .PTR ,P-LEXELEN>>>
+			      <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
+			      <RETURN>)
+			     (<AND <SET VAL
+					<WT? .WRD
+					     ,PS?DIRECTION
+					     ,P1?DIRECTION>>
+				   <EQUAL? .VERB <> ,ACT?WALK>
+				   <OR <==? .LEN 1>
+				       <AND <==? .LEN 2>
+					    <EQUAL? .VERB ,ACT?WALK>>
+				       <AND <EQUAL? <SET NW
+						     <GET ,P-LEXV
+							  <+ .PTR ,P-LEXELEN>>>
+					            ,W?THEN
+					            ,W?PERIOD
+					            ,W?QUOTE>
+					    <NOT <L? .LEN 2>>>
+				       <AND ,QUOTE-FLAG
+					    <==? .LEN 2>
+					    <EQUAL? .NW ,W?QUOTE>>
+				       <AND <G? .LEN 2>
+					    <EQUAL? .NW ,W?COMMA ,W?AND>>>>
+			      <SET DIR .VAL>
+			      <COND (<EQUAL? .NW ,W?COMMA ,W?AND>
+				     <PUT ,P-LEXV
+					  <+ .PTR ,P-LEXELEN>
+					  ,W?THEN>)>
+			      <COND (<NOT <G? .LEN 2>>
+				     <SETG QUOTE-FLAG <>>
+				     <RETURN>)>)
+			     (<AND <SET VAL <WT? .WRD ,PS?VERB ,P1?VERB>>
+				   <NOT .VERB>>
+			      <SET VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
+			      <PUT ,P-VTBL 0 .WRD>
+			      <PUTB ,P-VTBL 2 <GETB ,P-LEXV
+						    <SET NUM
+							 <+ <* .PTR 2> 2>>>>
+			      <PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .NUM 1>>>)
+			     (<OR <SET VAL <WT? .WRD ,PS?PREPOSITION 0>>
+				  <AND <OR <EQUAL? .WRD ,W?ALL ,W?ONE ;,W?A>
+					   <WT? .WRD ,PS?ADJECTIVE>
+					   <WT? .WRD ,PS?OBJECT>>
+				       <SET VAL 0>>>
+			      <COND (<AND <G? ,P-LEN 0>
+					  <==? <GET ,P-LEXV
+						    <+ .PTR ,P-LEXELEN>>
+					       ,W?OF>
+					  <0? .VAL>
+					  <NOT
+					   <EQUAL? .WRD ,W?ALL ,W?ONE ,W?A>>>)
+				    (<AND <NOT <0? .VAL>>
+				          <OR <0? ,P-LEN>
+					      <EQUAL? <GET ,P-LEXV <+ .PTR 2>>
+						      ,W?THEN ,W?PERIOD>>>
+				     <COND (<L? ,P-NCN 2>
+					    <PUT ,P-ITBL ,P-PREP1 .VAL>
+					    <PUT ,P-ITBL ,P-PREP1N .WRD>)>)
+				    (<==? ,P-NCN 2>
+				     <TELL
+"There were too many nouns in that sentence." CR>
+				     <RFALSE>)
+				    (T
+				     <SETG P-NCN <+ ,P-NCN 1>>
+				     <OR <SET PTR <CLAUSE .PTR .VAL .WRD>>
+					 <RFALSE>>
+				     <COND (<L? .PTR 0>
+					    <SETG QUOTE-FLAG <>>
+					    <RETURN>)>)>)
+			     (<WT? .WRD ,PS?BUZZ-WORD>)
+			     (<AND <EQUAL? .VERB ,ACT?TELL>
+				   <WT? .WRD ,PS?VERB ,P1?VERB>>
+			      <TELL
+"Please consult your manual for the correct way to talk to other people
+or creatures." CR>
+			      <RFALSE>)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T
+		       <UNKNOWN-WORD .PTR>
+		       <RFALSE>)>
+		<SET LW .WRD>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>
+	<COND (.DIR
+	       <SETG PRSA ,V?WALK>
+	       <SETG PRSO .DIR>
+	       <SETG P-WALK-DIR .DIR>
+	       <RETURN T>)>
+	<SETG P-WALK-DIR <>>
+	<COND (,P-OFLAG <ORPHAN-MERGE>)>
+	<COND (<AND <SYNTAX-CHECK> <SNARF-OBJECTS> <MANY-CHECK> <TAKE-CHECK>>
+	       T)>>
+
+
+<GLOBAL P-WALK-DIR <>>
+
+;"Check whether word pointed at by PTR is the correct part of speech.
+   The second argument is the part of speech (,PS?<part of speech>).  The
+   3rd argument (,P1?<part of speech>), if given, causes the value
+   for that part of speech to be returned." 
+
+<ROUTINE WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFS ,P-P1OFF) TYP) 
+	<COND (<BTST <SET TYP <GETB .PTR ,P-PSOFF>> .BIT>
+	       <COND (<G? .B1 4> <RTRUE>)
+		     (T
+		      <SET TYP <BAND .TYP ,P-P1BITS>>
+		      <COND (<NOT <==? .TYP .B1>> <SET OFFS <+ .OFFS 1>>)>
+		      <GETB .PTR .OFFS>)>)>>
+
+;" Scan through a noun clause, leave a pointer to its starting location"
+ 
+<ROUTINE CLAUSE (PTR VAL WRD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0)) 
+	<SET OFF <* <- ,P-NCN 1> 2>>
+	<COND (<NOT <==? .VAL 0>>
+	       <PUT ,P-ITBL <SET NUM <+ ,P-PREP1 .OFF>> .VAL>
+	       <PUT ,P-ITBL <+ .NUM 1> .WRD>
+	       <SET PTR <+ .PTR ,P-LEXELEN>>)
+	      (T <SETG P-LEN <+ ,P-LEN 1>>)>
+	<COND (<0? ,P-LEN> <SETG P-NCN <- ,P-NCN 1>> <RETURN -1>)>
+	<PUT ,P-ITBL <SET NUM <+ ,P-NC1 .OFF>> <REST ,P-LEXV <* .PTR 2>>>
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?THE ,W?A ,W?AN>
+	       <PUT ,P-ITBL .NUM <REST <GET ,P-ITBL .NUM> 4>>)>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <PUT ,P-ITBL <+ .NUM 1> <REST ,P-LEXV <* .PTR 2>>>
+		       <RETURN -1>)>
+		<COND (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<0? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       <COND (<EQUAL? .WRD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WRD ,W?ALL ,W?ONE>
+			      <COND (<==? .NW ,W?OF>
+				     <SETG P-LEN <- ,P-LEN 1>>
+				     <SET PTR <+ .PTR ,P-LEXELEN>>)>)
+			     (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <AND <WT? .WRD ,PS?PREPOSITION>
+				       <GET ,P-ITBL ,P-VERB>
+				          ;"ADDED 4/27 FOR TURTLE,UP"
+				       <NOT .FIRST??>>>
+			      <SETG P-LEN <+ ,P-LEN 1>>
+			      <PUT ,P-ITBL
+				   <+ .NUM 1>
+				   <REST ,P-LEXV <* .PTR 2>>>
+			      <RETURN <- .PTR ,P-LEXELEN>>)
+			     (<WT? .WRD ,PS?OBJECT>
+			      <COND (<AND <G? ,P-LEN 0>
+					  <EQUAL? .NW ,W?OF>
+					  <NOT <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				     T)
+				    (<AND <WT? .WRD ,PS?ADJECTIVE>
+					  <NOT <==? .NW 0>>
+					  <WT? .NW ,PS?OBJECT>>)
+				    (<AND <NOT .ANDFLG>
+					  <NOT <EQUAL? .NW ,W?BUT ,W?EXCEPT>>
+					  <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+				     <PUT ,P-ITBL
+					  <+ .NUM 1>
+					  <REST ,P-LEXV <* <+ .PTR 2> 2>>>
+				     <RETURN .PTR>)
+				    (T <SET ANDFLG <>>)>)
+			     (<AND <OR ,P-MERGED
+				       ,P-OFLAG
+				       <NOT <EQUAL? <GET ,P-ITBL ,P-VERB> 0>>>
+				   <OR <WT? .WRD ,PS?ADJECTIVE>
+				       <WT? .WRD ,PS?BUZZ-WORD>>>)
+			     (<AND .ANDFLG
+				   <OR <WT? .WRD ,PS?DIRECTION>
+				       <WT? .WRD ,PS?VERB>>>
+			      <SET PTR <- .PTR 4>>
+			      <PUT ,P-LEXV <+ .PTR 2> ,W?THEN>
+			      <SETG P-LEN <+ ,P-LEN 2>>)
+			     (<WT? .WRD ,PS?PREPOSITION> T)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T <UNKNOWN-WORD .PTR> <RFALSE>)>
+		<SET LW .WRD>
+		<SET FIRST?? <>>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>> 
+
+<ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0) (TIM <>))
+	 <SET CNT <GETB <REST ,P-LEXV <* .PTR 2>> 2>>
+	 <SET BPTR <GETB <REST ,P-LEXV <* .PTR 2>> 3>>
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0> <RETURN>)
+		       (T
+			<SET CHR <GETB ,P-INBUF .BPTR>>
+			<COND (<==? .CHR 58>
+			       <SET TIM .SUM>
+			       <SET SUM 0>)
+			      (<G? .SUM 10000> <RFALSE>)
+			      (<AND <L? .CHR 58> <G? .CHR 47>>
+			       <SET SUM <+ <* .SUM 10> <- .CHR 48>>>)
+			      (T <RFALSE>)>
+			<SET BPTR <+ .BPTR 1>>)>>
+	 <PUT ,P-LEXV .PTR ,W?INTNUM>
+	 <COND (<G? .SUM 1000> <RFALSE>)
+	       (.TIM
+		<COND (<L? .TIM 8> <SET TIM <+ .TIM 12>>)
+		      (<G? .TIM 23> <RFALSE>)>
+		<SET SUM <+ .SUM <* .TIM 60>>>)>
+	 <SETG P-NUMBER .SUM>
+	 ,W?INTNUM>
+
+<GLOBAL P-NUMBER 0>
+;<GLOBAL P-DIRECTION 0>
+
+
+;"New ORPHAN-MERGE for TRAP Retrofix 6/21/84"
+
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   <SETG P-OFLAG <>>
+   <COND (<WT? <GET <GET ,P-ITBL ,P-VERBN> 0> ,PS?ADJECTIVE>
+	  <SET ADJ T>)>
+   <COND (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	       <NOT .ADJ>
+	       <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+	  <RFALSE>)
+	 (<==? ,P-NCN 2> <RFALSE>)
+	 (<==? <GET ,P-OTBL ,P-NC1> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP1>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-OTBL ,P-NC1L <REST ,P-LEXV 6>>)
+		       (T
+			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+			<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>)
+		(T <RFALSE>)>)
+	 (<==? <GET ,P-OTBL ,P-NC2> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP2>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+		 <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+		 <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+		 <SETG P-NCN 2>)
+		(T <RFALSE>)>)
+	 (<NOT <ZERO? ,P-ACLAUSE>>
+	  <COND (<AND <NOT <==? ,P-NCN 1>> <NOT .ADJ>>
+		 <SETG P-ACLAUSE <>>
+		 <RFALSE>)
+		(T
+		 <SET BEG <GET ,P-ITBL ,P-NC1>>
+		 <COND (.ADJ <SET BEG <REST ,P-LEXV 2>> <SET ADJ <>>)>
+		 <SET END <GET ,P-ITBL ,P-NC1L>>
+		 <REPEAT ()
+			 <SET WRD <GET .BEG 0>>
+			 <COND (<==? .BEG .END>
+				<COND (.ADJ <ACLAUSE-WIN .ADJ> <RETURN>)
+				      (T <SETG P-ACLAUSE <>> <RFALSE>)>)
+			       (<AND <NOT .ADJ>
+				     <OR <BTST <GETB .WRD ,P-PSOFF>
+					       ,PS?ADJECTIVE>
+					 <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				<SET ADJ .WRD>)
+			       (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+				    <==? .WRD ,W?ONE>>
+				<COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>>
+				       <RFALSE>)
+				      (T <ACLAUSE-WIN .ADJ> <RETURN>)>)>
+			 <SET BEG <REST .BEG ,P-WORDLEN>>
+			 <COND (<EQUAL? .END 0>
+				<SET END .BEG>
+				<SETG P-NCN 1>
+				<PUT ,P-ITBL ,P-NC1 <BACK .BEG 4>>
+				<PUT ,P-ITBL ,P-NC1L .BEG>)>>)>)>
+   <REPEAT ()
+	   <COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN>
+		  <SETG P-MERGED T>
+		  <RTRUE>)
+		 (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>
+   T>
+
+;"New ACLAUSE-WIN for TRAP retrofix 6/21/84"
+
+<ROUTINE ACLAUSE-WIN (ADJ) 
+	<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>
+	<SETG P-CCSRC ,P-OTBL>
+	<CLAUSE-COPY ,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
+	<AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+	<SETG P-ACLAUSE <>>
+	<RTRUE>>
+
+;"Print undefined word in input.
+   PTR points to the unknown word in P-LEXV"   
+
+<ROUTINE WORD-PRINT (CNT BUF)
+	 <REPEAT ()
+		 <COND (<DLESS? CNT 0> <RETURN>)
+		       (ELSE
+			<PRINTC <GETB ,P-INBUF .BUF>>
+			<SET BUF <+ .BUF 1>>)>>>
+
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF) 
+	<COND (<VERB? SAY>
+	       <TELL "Nothing happens." CR>
+	       <RFALSE>)>
+	<TELL "I don't know the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\"." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+<ROUTINE CANT-USE (PTR "AUX" BUF) 
+	<COND (<VERB? SAY>
+	       <TELL "Nothing happens." CR>
+	       <RFALSE>)>
+	<TELL "You used the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\" in a way that I don't understand." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+;" Perform syntax matching operations, using P-ITBL as the source of
+   the verb and adjectives for this input.  Returns false if no
+   syntax matches, and does it's own orphaning.  If return is true,
+   the syntax is saved in P-SYNTAX."   
+ 
+<GLOBAL P-SLOCBITS 0>    
+ 
+<CONSTANT P-SYNLEN 8>    
+ 
+<CONSTANT P-SBITS 0>
+ 
+<CONSTANT P-SPREP1 1>    
+ 
+<CONSTANT P-SPREP2 2>    
+ 
+<CONSTANT P-SFWIM1 3>    
+ 
+<CONSTANT P-SFWIM2 4>    
+ 
+<CONSTANT P-SLOC1 5>
+ 
+<CONSTANT P-SLOC2 6>
+ 
+<CONSTANT P-SACTION 7>   
+ 
+<CONSTANT P-SONUMS 3>    
+
+<ROUTINE SYNTAX-CHECK ("AUX" SYN LEN NUM OBJ
+		       	    (DRIVE1 <>) (DRIVE2 <>) PREP VERB TMP) 
+	<COND (<0? <SET VERB <GET ,P-ITBL ,P-VERB>>>
+	       <TELL "There was no verb in that sentence!" CR>
+	       <RFALSE>)>
+	<SET SYN <GET ,VERBS <- 255 .VERB>>>
+	<SET LEN <GETB .SYN 0>>
+	<SET SYN <REST .SYN>>
+	<REPEAT ()
+		<SET NUM <BAND <GETB .SYN ,P-SBITS> ,P-SONUMS>>
+		<COND (<G? ,P-NCN .NUM> T)
+		      (<AND <NOT <L? .NUM 1>>
+			    <0? ,P-NCN>
+			    <OR <0? <SET PREP <GET ,P-ITBL ,P-PREP1>>>
+				<==? .PREP <GETB .SYN ,P-SPREP1>>>>
+		       <SET DRIVE1 .SYN>)
+		      (<==? <GETB .SYN ,P-SPREP1> <GET ,P-ITBL ,P-PREP1>>
+		       <COND (<AND <==? .NUM 2> <==? ,P-NCN 1>>
+			      <SET DRIVE2 .SYN>)
+			     (<==? <GETB .SYN ,P-SPREP2>
+				   <GET ,P-ITBL ,P-PREP2>>
+			      <SYNTAX-FOUND .SYN>
+			      <RTRUE>)>)>
+		<COND (<DLESS? LEN 1>
+		       <COND (<OR .DRIVE1 .DRIVE2> <RETURN>)
+			     (T
+			      <TELL
+"That sentence isn't one I recognize." CR>
+			      <RFALSE>)>)
+		      (T <SET SYN <REST .SYN ,P-SYNLEN>>)>>
+	<COND (<AND .DRIVE1
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE1 ,P-SFWIM1>
+			       <GETB .DRIVE1 ,P-SLOC1>
+			       <GETB .DRIVE1 ,P-SPREP1>>>>
+	       <PUT ,P-PRSO ,P-MATCHLEN 1>
+	       <PUT ,P-PRSO 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE1>)
+	      (<AND .DRIVE2
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE2 ,P-SFWIM2>
+			       <GETB .DRIVE2 ,P-SLOC2>
+			       <GETB .DRIVE2 ,P-SPREP2>>>>
+	       <PUT ,P-PRSI ,P-MATCHLEN 1>
+	       <PUT ,P-PRSI 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE2>)
+	      (<EQUAL? .VERB ,ACT?FIND>
+	       <TELL "That question can't be answered." CR>
+	       <RFALSE>)
+	      (<NOT <==? ,WINNER ,PLAYER>>
+	       <CANT-ORPHAN>)
+	      (T
+	       <ORPHAN .DRIVE1 .DRIVE2>
+	       <TELL "What do you want to ">
+	       <SET TMP <GET ,P-OTBL ,P-VERBN>>
+	       <COND (<==? .TMP 0> <TELL "tell">)
+		     (<0? <GETB ,P-VTBL 2>>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
+		      <PUTB ,P-VTBL 2 0>)>
+	       <COND (.DRIVE2
+		      <CLAUSE-PRINT ,P-NC1 ,P-NC1L>)>
+	       <SETG P-OFLAG T>
+	       <PREP-PRINT <COND (.DRIVE1 <GETB .DRIVE1 ,P-SPREP1>)
+				 (T <GETB .DRIVE2 ,P-SPREP2>)>>
+	       <TELL "?" CR>
+	       <RFALSE>)>> 
+
+<ROUTINE CANT-ORPHAN ()
+	 <TELL "\"I don't understand! What are you referring to?\"" CR>
+	 <RFALSE>>
+
+
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1)) 
+	<PUT ,P-OCLAUSE ,P-MATCHLEN 0>
+	<SETG P-CCSRC ,P-ITBL>
+	<REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>>
+	<COND (<==? ,P-NCN 2> <CLAUSE-COPY ,P-NC2 ,P-NC2L>)>
+	<COND (<NOT <L? ,P-NCN 1>> <CLAUSE-COPY ,P-NC1 ,P-NC1L>)>
+	<COND (.D1
+	       <PUT ,P-OTBL ,P-PREP1 <GETB .D1 ,P-SPREP1>>
+	       <PUT ,P-OTBL ,P-NC1 1>)
+	      (.D2
+	       <PUT ,P-OTBL ,P-PREP2 <GETB .D2 ,P-SPREP2>>
+	       <PUT ,P-OTBL ,P-NC2 1>)>> 
+ 
+<ROUTINE CLAUSE-PRINT (BPTR EPTR "OPTIONAL" (THE? T)) 
+	<BUFFER-PRINT <GET ,P-ITBL .BPTR> <GET ,P-ITBL .EPTR> .THE?>>    
+ 
+<ROUTINE BUFFER-PRINT (BEG END CP "AUX" (NOSP <>) WRD (FIRST?? T) (PN <>))
+	 <REPEAT ()
+		<COND (<==? .BEG .END> <RETURN>)
+		      (T
+		       <COND (.NOSP <SET NOSP <>>)
+			     (T <TELL " ">)>
+		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?PERIOD>
+			      <SET NOSP T>)
+			     (T
+			      <COND (<AND .FIRST?? <NOT .PN> .CP>
+				     <TELL "the ">)>
+			      <COND (<OR ,P-OFLAG ,P-MERGED> <PRINTB .WRD>)
+				    (<AND <==? .WRD ,W?IT>
+					  <==? ,P-IT-LOC ,HERE>>
+				     <PRINTD ,P-IT-OBJECT>)
+				    (T
+				     <WORD-PRINT <GETB .BEG 2>
+						 <GETB .BEG 3>>)>
+			      <SET FIRST?? <>>)>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
+
+<ROUTINE CAPITALIZE (PTR)
+	 <PRINTC <- <GETB ,P-INBUF <GETB .PTR 3>> 32>>
+	 <WORD-PRINT <- <GETB .PTR 2> 1> <+ <GETB .PTR 3> 1>>>
+
+<ROUTINE PREP-PRINT (PREP "AUX" WRD) 
+	<COND (<NOT <0? .PREP>>
+	       <TELL " ">
+	       <SET WRD <PREP-FIND .PREP>>
+	       <PRINTB .WRD>)>>    
+ 
+<ROUTINE CLAUSE-COPY (BPTR EPTR "OPTIONAL" (INSRT <>) "AUX" BEG END) 
+	<SET BEG <GET ,P-CCSRC .BPTR>>
+	<SET END <GET ,P-CCSRC .EPTR>>
+	<PUT ,P-OTBL
+	     .BPTR
+	     <REST ,P-OCLAUSE
+		   <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN> 2>>>
+	<REPEAT ()
+		<COND (<==? .BEG .END>
+		       <PUT ,P-OTBL
+			    .EPTR
+			    <REST ,P-OCLAUSE
+				  <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
+				     2>>>
+		       <RETURN>)
+		      (T
+		       <COND (<AND .INSRT <==? ,P-ANAM <GET .BEG 0>>>
+			      <CLAUSE-ADD .INSRT>)>
+		       <CLAUSE-ADD <GET .BEG 0>>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>  
+
+
+<ROUTINE CLAUSE-ADD (WRD "AUX" PTR) 
+	<SET PTR <+ <GET ,P-OCLAUSE ,P-MATCHLEN> 2>>
+	<PUT ,P-OCLAUSE <- .PTR 1> .WRD>
+	<PUT ,P-OCLAUSE .PTR 0>
+	<PUT ,P-OCLAUSE ,P-MATCHLEN .PTR>>   
+ 
+<ROUTINE PREP-FIND (PREP "AUX" (CNT 0) SIZE) 
+	<SET SIZE <* <GET ,PREPOSITIONS 0> 2>>
+	<REPEAT ()
+		<COND (<IGRTR? CNT .SIZE> <RFALSE>)
+		      (<==? <GET ,PREPOSITIONS .CNT> .PREP>
+		       <RETURN <GET ,PREPOSITIONS <- .CNT 1>>>)>>>  
+ 
+<ROUTINE SYNTAX-FOUND (SYN) 
+	<SETG P-SYNTAX .SYN>
+	<SETG PRSA <GETB .SYN ,P-SACTION>>>   
+ 
+<GLOBAL P-GWIMBIT 0>
+ 
+<ROUTINE GWIM (GBIT LBIT PREP "AUX" OBJ) 
+	<COND (<==? .GBIT ,RMUNGBIT>
+	       <RETURN ,ROOMS>)>
+	<SETG P-GWIMBIT .GBIT>
+	<SETG P-SLOCBITS .LBIT>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<COND (<GET-OBJECT ,P-MERGE <>>
+	       <SETG P-GWIMBIT 0>
+	       <COND (<==? <GET ,P-MERGE ,P-MATCHLEN> 1>
+		      <COND (<EQUAL? <SET OBJ <GET ,P-MERGE 1>> ,ME>
+			     <RFALSE>)>
+		      <TELL "(">
+		      <COND (<NOT <0? .PREP>>
+			     <PRINTB <SET PREP <PREP-FIND .PREP>>>
+			     <COND (<==? .PREP ,W?OUT>
+				    <TELL " of">)>
+			     <COND (<==? .OBJ ,HANDS>
+				    <TELL " your hands)" CR>)
+				   (T
+				    <TELL " the ">)>)>
+		      <COND (<NOT <==? .OBJ ,HANDS>>
+			     <TELL D .OBJ ")" CR>)>
+		      .OBJ)>)
+	      (T <SETG P-GWIMBIT 0> <RFALSE>)>>   
+ 
+<ROUTINE SNARF-OBJECTS ("AUX" PTR) 
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC1>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC1>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC1L> ,P-PRSO> <RFALSE>>
+	       <OR <0? <GET ,P-BUTS ,P-MATCHLEN>>
+		   <SETG P-PRSO <BUT-MERGE ,P-PRSO>>>)>
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC2>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC2>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC2L> ,P-PRSI> <RFALSE>>
+	       <COND (<NOT <0? <GET ,P-BUTS ,P-MATCHLEN>>>
+		      <COND (<==? <GET ,P-PRSI ,P-MATCHLEN> 1>
+			     <SETG P-PRSO <BUT-MERGE ,P-PRSO>>)
+			    (T <SETG P-PRSI <BUT-MERGE ,P-PRSI>>)>)>)>
+	<RTRUE>>  
+
+<ROUTINE BUT-MERGE (TBL "AUX" LEN BUTLEN (CNT 1) (MATCHES 0) OBJ NTBL) 
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<REPEAT ()
+		<COND (<DLESS? LEN 0> <RETURN>)
+		      (<ZMEMQ <SET OBJ <GET .TBL .CNT>> ,P-BUTS>)
+		      (T
+		       <PUT ,P-MERGE <+ .MATCHES 1> .OBJ>
+		       <SET MATCHES <+ .MATCHES 1>>)>
+		<SET CNT <+ .CNT 1>>>
+	<PUT ,P-MERGE ,P-MATCHLEN .MATCHES>
+	<SET NTBL ,P-MERGE>
+	<SETG P-MERGE .TBL>
+	.NTBL>    
+ 
+<GLOBAL P-NAM <>>   
+ 
+<GLOBAL P-ADJ <>>   
+ 
+<GLOBAL P-ADVERB <>>
+
+<GLOBAL P-PRSO <ITABLE NONE 50>>   
+ 
+<GLOBAL P-PRSI <ITABLE NONE 50>>   
+ 
+<GLOBAL P-BUTS <ITABLE NONE 50>>   
+ 
+<GLOBAL P-MERGE <ITABLE NONE 50>>  
+ 
+<GLOBAL P-OCLAUSE <ITABLE NONE 50>>
+ 
+<GLOBAL P-MATCHLEN 0>    
+ 
+<GLOBAL P-GETFLAGS 0>    
+ 
+<CONSTANT P-ALL 1>  
+ 
+<CONSTANT P-ONE 2>  
+ 
+<CONSTANT P-INHIBIT 4>   
+
+<GLOBAL P-CSPTR <>>
+<GLOBAL P-CEPTR <>>
+
+<GLOBAL P-AND <>>
+
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WRD NW) 
+   <SETG P-GETFLAGS 0>
+   <SETG P-CSPTR .PTR>
+   <SETG P-CEPTR .EPTR>
+   <SETG P-AND <>>
+   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <PUT .TBL ,P-MATCHLEN 0>
+   <SET WRD <GET .PTR 0>>
+   <REPEAT ()
+	   <COND (<==? .PTR .EPTR> <RETURN <GET-OBJECT <OR .BUT .TBL>>>)
+		 (T
+		  <SET NW <GET .PTR ,P-LEXELEN>>
+		  <COND (<==? .WRD ,W?ALL>
+			 <SETG P-GETFLAGS ,P-ALL>
+			 <COND (<==? .NW ,W?OF>
+				<SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			(<EQUAL? .WRD ,W?BUT ,W?EXCEPT>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 <SET BUT ,P-BUTS>
+			 <PUT .BUT ,P-MATCHLEN 0>)
+			(<EQUAL? .WRD ,W?A ,W?ONE>
+			 <COND (<NOT ,P-ADJ>
+				<SETG P-GETFLAGS ,P-ONE>
+				<COND (<==? .NW ,W?OF>
+				       <SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			       (T
+				<SETG P-NAM ,P-ONEOBJ>
+				<OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+				<AND <0? .NW> <RTRUE>>)>)
+			(<AND <EQUAL? .WRD ,W?AND ,W?COMMA>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <SETG P-AND T>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 T)
+			(<WT? .WRD ,PS?BUZZ-WORD>)
+			(<EQUAL? .WRD ,W?AND ,W?COMMA>)
+			(<==? .WRD ,W?OF>
+			 <COND (<0? ,P-GETFLAGS>
+				<SETG P-GETFLAGS ,P-INHIBIT>)>)
+			(<AND <WT? .WRD ,PS?ADJECTIVE>
+			      <NOT ,P-ADJ>>
+			 <SETG P-ADJ .WRD>)
+			(<WT? .WRD ,PS?OBJECT>
+			 <SETG P-NAM .WRD>
+			 <SETG P-ONEOBJ .WRD>)>)>
+	   <COND (<NOT <==? .PTR .EPTR>>
+		  <SET PTR <REST .PTR ,P-WORDLEN>>
+		  <SET WRD .NW>)>>>   
+ 
+<CONSTANT SH 128>   
+ 
+<CONSTANT SC 64>    
+ 
+<CONSTANT SIR 32>   
+ 
+<CONSTANT SOG 16>   
+ 
+<CONSTANT STAKE 8>  
+ 
+<CONSTANT SMANY 4>  
+ 
+<CONSTANT SHAVE 2>  
+
+<ROUTINE GET-OBJECT (TBL
+		     "OPTIONAL" (VRB T)
+		     "AUX" BITS LEN XBITS TLEN (GCHECK <>) (OLEN 0) OBJ)
+	 <SET XBITS ,P-SLOCBITS>
+	 <SET TLEN <GET .TBL ,P-MATCHLEN>>
+	 <COND (<BTST ,P-GETFLAGS ,P-INHIBIT> <RTRUE>)>
+	 <COND (<AND <NOT ,P-NAM> ,P-ADJ <WT? ,P-ADJ ,PS?OBJECT>>
+		<SETG P-NAM ,P-ADJ>
+		<SETG P-ADJ <>>)>
+	 <COND (<AND <NOT ,P-NAM>
+		     <NOT ,P-ADJ>
+		     <NOT <==? ,P-GETFLAGS ,P-ALL>>
+		     <0? ,P-GWIMBIT>>
+		<COND (.VRB
+		       <TELL
+"There seems to be a noun missing in that sentence!" CR>)>
+		<RFALSE>)>
+	 <COND (<OR <NOT <==? ,P-GETFLAGS ,P-ALL>> <0? ,P-SLOCBITS>>
+		<SETG P-SLOCBITS -1>)>
+	 <SETG P-TABLE .TBL>
+	 <PROG ()
+	       <COND (.GCHECK <GLOBAL-CHECK .TBL>)
+		     (T
+		      <COND (,LIT
+			     <FCLEAR ,PLAYER ,TRANSBIT>
+			     <DO-SL ,HERE ,SOG ,SIR>
+			     <FSET ,PLAYER ,TRANSBIT>)>
+		      <DO-SL ,PLAYER ,SH ,SC>)>
+	       <SET LEN <- <GET .TBL ,P-MATCHLEN> .TLEN>>
+	       <COND (<BTST ,P-GETFLAGS ,P-ALL>)
+		     (<AND <BTST ,P-GETFLAGS ,P-ONE>
+			   <NOT <0? .LEN>>>
+		      <COND (<NOT <==? .LEN 1>>
+			     <PUT .TBL 1 <GET .TBL <RANDOM .LEN>>>
+			     <TELL "(How about the ">
+			     <PRINTD <GET .TBL 1>>
+			     <TELL "?)" CR>)>
+		      <PUT .TBL ,P-MATCHLEN 1>)
+		     (<OR <G? .LEN 1>
+			  <AND <0? .LEN> <NOT <==? ,P-SLOCBITS -1>>>>
+		      <COND (<==? ,P-SLOCBITS -1>
+			     <SETG P-SLOCBITS .XBITS>
+			     <SET OLEN .LEN>
+			     <PUT .TBL
+				  ,P-MATCHLEN
+				  <- <GET .TBL ,P-MATCHLEN> .LEN>>
+			     <AGAIN>)
+			    (T
+			     <COND (<0? .LEN> <SET LEN .OLEN>)>
+			     <COND (<NOT <==? ,WINNER ,PLAYER>>
+				    <CANT-ORPHAN>
+				    <RFALSE>)
+				   (<AND .VRB ,P-NAM>
+				    <WHICH-PRINT .TLEN .LEN .TBL>
+				    <SETG P-ACLAUSE
+					  <COND (<==? .TBL ,P-PRSO> ,P-NC1)
+						(T ,P-NC2)>>
+				    <SETG P-AADJ ,P-ADJ>
+				    <SETG P-ANAM ,P-NAM>
+				    <ORPHAN <> <>>
+				    <SETG P-OFLAG T>)
+				   (.VRB
+				    <TELL
+"There seems to be a noun missing in that sentence!" CR>)>
+			     <SETG P-NAM <>>
+			     <SETG P-ADJ <>>
+			     <RFALSE>)>)
+		     (<AND <0? .LEN> .GCHECK>
+		      <COND (.VRB
+			     <SETG P-SLOCBITS .XBITS>
+			     <COND (,LIT
+				    ;"Changed 6/10/83 - MARC"
+				    <OBJ-FOUND ,NOT-HERE-OBJECT .TBL>
+				    <SETG P-XNAM ,P-NAM>
+				    <SETG P-XADJ ,P-ADJ>
+				    <SETG P-NAM <>>
+				    <SETG P-ADJ <>>
+				    <RTRUE>)
+				   (T <TELL "It's too dark to see!" CR>)>)>
+		      <SETG P-NAM <>>
+		      <SETG P-ADJ <>>
+		      <RFALSE>)
+		     (<0? .LEN> <SET GCHECK T> <AGAIN>)>
+	       <SETG P-SLOCBITS .XBITS>
+	       <SETG P-NAM <>>
+	       <SETG P-ADJ <>>
+	       <RTRUE>>>
+
+<ROUTINE MOBY-FIND (TBL "AUX" FOO LEN)
+	 <SETG P-SLOCBITS -1>
+	 <SETG P-NAM ,P-XNAM>
+	 <SETG P-ADJ ,P-XADJ>
+	 <PUT .TBL ,P-MATCHLEN 0>
+	 <SET FOO <FIRST? ,ROOMS>>
+	 <REPEAT ()
+		 <COND (<NOT .FOO> <RETURN>)
+		       (T
+			<SEARCH-LIST .FOO .TBL ,P-SRCALL>
+			<SET FOO <NEXT? .FOO>>)>>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 0>
+		<DO-SL ,LOCAL-GLOBALS 1 1>)>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 0>
+		<DO-SL ,ROOMS 1 1>)>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 1>
+		<SETG P-MOBY-FOUND <GET .TBL 1>>)>
+	 <SETG P-NAM <>>
+	 <SETG P-ADJ <>>
+	 .LEN>
+
+<GLOBAL P-MOBY-FOUND <>>   
+<GLOBAL P-XNAM <>>
+<GLOBAL P-XADJ <>>
+
+<ROUTINE WHICH-PRINT (TLEN LEN TBL "AUX" OBJ RLEN)
+	 <SET RLEN .LEN>
+	 <TELL "Which">
+         <COND (<OR ,P-OFLAG ,P-MERGED ,P-AND> <TELL " "> <PRINTB ,P-NAM>)
+	       (<==? .TBL ,P-PRSO>
+		<CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
+	       (T <CLAUSE-PRINT ,P-NC2 ,P-NC2L <>>)>
+	 <TELL " do you mean, ">
+	 <REPEAT ()
+		 <SET TLEN <+ .TLEN 1>>
+		 <SET OBJ <GET .TBL .TLEN>>
+		 <TELL "the " D .OBJ>
+		 <COND (<==? .LEN 2>
+		        <COND (<NOT <==? .RLEN 2>> <TELL ",">)>
+		        <TELL " or ">)
+		       (<G? .LEN 2> <TELL ", ">)>
+		 <COND (<L? <SET LEN <- .LEN 1>> 1>
+		        <TELL "?" CR>
+		        <RETURN>)>>>
+
+
+<ROUTINE GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS FOO) 
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<SET OBITS ,P-SLOCBITS>
+	<COND (<SET RMG <GETPT ,HERE ,P?GLOBAL>>
+	       <SET RMGL <- </ <PTSIZE .RMG> 2> 1>>
+	       <REPEAT ()
+		       <COND (<THIS-IT? <SET OBJ <GET .RMG .CNT>> .TBL>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<SET RMG <GETPT ,HERE ,P?PSEUDO>>
+	       <SET RMGL <- </ <PTSIZE .RMG> 4> 1>>
+	       <SET CNT 0>
+	       <REPEAT ()
+		       <COND (<==? ,P-NAM <GET .RMG <* .CNT 2>>>
+			      <PUTP ,PSEUDO-OBJECT
+				    ,P?ACTION
+				    <GET .RMG <+ <* .CNT 2> 1>>>
+			      <SET FOO
+				   <BACK <GETPT ,PSEUDO-OBJECT ,P?ACTION> 5>>
+			      <PUT .FOO 0 <GET ,P-NAM 0>>
+			      <PUT .FOO 1 <GET ,P-NAM 1>>
+			      <OBJ-FOUND ,PSEUDO-OBJECT .TBL>
+			      <RETURN>)
+		             (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<==? <GET .TBL ,P-MATCHLEN> .LEN>
+	       <SETG P-SLOCBITS -1>
+	       <SETG P-TABLE .TBL>
+	       <DO-SL ,GLOBAL-OBJECTS 1 1>
+	       <SETG P-SLOCBITS .OBITS>
+	       <COND (<AND <0? <GET .TBL ,P-MATCHLEN>>
+			   <EQUAL? ,PRSA ,V?LOOK-INSIDE ,V?SEARCH ,V?EXAMINE>>
+		      <DO-SL ,ROOMS 1 1>)>)>>
+ 
+<ROUTINE DO-SL (OBJ BIT1 BIT2 "AUX" BTS) 
+	<COND (<BTST ,P-SLOCBITS <+ .BIT1 .BIT2>>
+	       <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCALL>)
+	      (T
+	       <COND (<BTST ,P-SLOCBITS .BIT1>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCTOP>)
+		     (<BTST ,P-SLOCBITS .BIT2>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCBOT>)
+		     (T <RTRUE>)>)>>  
+ 
+<CONSTANT P-SRCBOT 2>    
+ 
+<CONSTANT P-SRCTOP 0>    
+ 
+<CONSTANT P-SRCALL 1>    
+ 
+<ROUTINE SEARCH-LIST (OBJ TBL LVL "AUX" FLS NOBJ) 
+	<COND (<SET OBJ <FIRST? .OBJ>>
+	       <REPEAT ()
+		       <COND (<AND <NOT <==? .LVL ,P-SRCBOT>>
+				   <GETPT .OBJ ,P?SYNONYM>
+				   <THIS-IT? .OBJ .TBL>>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<AND <OR <NOT <==? .LVL ,P-SRCTOP>>
+				       <FSET? .OBJ ,SEARCHBIT>
+				       <FSET? .OBJ ,SURFACEBIT>>
+				   <SET NOBJ <FIRST? .OBJ>>
+				   <OR <FSET? .OBJ ,OPENBIT>
+				       <FSET? .OBJ ,TRANSBIT>>>
+			      <SET FLS
+				   <SEARCH-LIST .OBJ
+						.TBL
+						<COND (<FSET? .OBJ ,SURFACEBIT>
+						       ,P-SRCALL)
+						      (<FSET? .OBJ ,SEARCHBIT>
+						       ,P-SRCALL)
+						      (T ,P-SRCTOP)>>>)>
+		       <COND (<SET OBJ <NEXT? .OBJ>>) (T <RETURN>)>>)>> 
+ 
+<ROUTINE OBJ-FOUND (OBJ TBL "AUX" PTR) 
+	<SET PTR <GET .TBL ,P-MATCHLEN>>
+	<PUT .TBL <+ .PTR 1> .OBJ>
+	<PUT .TBL ,P-MATCHLEN <+ .PTR 1>>> 
+ 
+<ROUTINE TAKE-CHECK () 
+	<AND <ITAKE-CHECK ,P-PRSO <GETB ,P-SYNTAX ,P-SLOC1>>
+	     <ITAKE-CHECK ,P-PRSI <GETB ,P-SYNTAX ,P-SLOC2>>>> 
+
+<ROUTINE ITAKE-CHECK (TBL IBITS "AUX" PTR OBJ TAKEN) 
+	 #DECL ((TBL) TABLE (IBITS PTR) FIX (OBJ) OBJECT
+		(TAKEN) <OR FALSE FIX ATOM>)
+	 <COND (<AND <SET PTR <GET .TBL ,P-MATCHLEN>>
+		     <OR <BTST .IBITS ,SHAVE>
+			 <BTST .IBITS ,STAKE>>>
+		<REPEAT ()
+			<COND (<L? <SET PTR <- .PTR 1>> 0> <RETURN>)
+			      (T
+			       <SET OBJ <GET .TBL <+ .PTR 1>>>
+			       <COND (<==? .OBJ ,IT> <SET OBJ ,P-IT-OBJECT>)>
+			       <COND (<AND <NOT <HELD? .OBJ>>
+					   <NOT <==? .OBJ ,HANDS>>>
+				      <SETG PRSO .OBJ>
+				      <COND (<FSET? .OBJ ,TRYTAKEBIT>
+					     <SET TAKEN T>)
+					    (<NOT <==? ,WINNER ,ADVENTURER>>
+					     <SET TAKEN <>>)
+					    (<AND <BTST .IBITS ,STAKE>
+						  <==? <ITAKE <>> T>>
+					     <SET TAKEN <>>)
+					    (T <SET TAKEN T>)>
+				      <COND (<AND .TAKEN
+						  <BTST .IBITS ,SHAVE>
+						  <EQUAL? ,WINNER ,ADVENTURER>>
+					     <COND (<EQUAL? .OBJ
+							    ,NOT-HERE-OBJECT>
+						    <TELL
+"You don't have that!" CR>
+						    <RFALSE>)>
+					     <TELL "You don't have the ">
+					     <PRINTD .OBJ>
+					     <TELL "." CR>
+					     <RFALSE>)
+					    (<AND <NOT .TAKEN>
+						  <==? ,WINNER ,ADVENTURER>>
+					     <TELL "(Taken)" CR>)>)>)>>)
+	       (T)>>  
+ 
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP) 
+	<COND (<AND <G? <GET ,P-PRSO ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC1> ,SMANY>>>
+	       <SET LOSS 1>)
+	      (<AND <G? <GET ,P-PRSI ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC2> ,SMANY>>>
+	       <SET LOSS 2>)>
+	<COND (.LOSS
+	       <TELL "You can't use multiple ">
+	       <COND (<==? .LOSS 2> <TELL "in">)>
+	       <TELL "direct objects with \"">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<0? .TMP> <TELL "tell">)
+		     (<OR ,P-OFLAG ,P-MERGED>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
+	       <TELL "\"." CR>
+	       <RFALSE>)
+	      (T)>>  
+ 
+<ROUTINE ZMEMQ (ITM TBL "OPTIONAL" (SIZE -1) "AUX" (CNT 1)) 
+	<COND (<NOT .TBL> <RFALSE>)>
+	<COND (<NOT <L? .SIZE 0>> <SET CNT 0>)
+	      (ELSE <SET SIZE <GET .TBL 0>>)>
+	<REPEAT ()
+		<COND (<==? .ITM <GET .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>    
+
+<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0)) 
+	<REPEAT ()
+		<COND (<==? .ITM <GETB .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>  
+ 
+<GLOBAL ALWAYS-LIT <>>
+
+<ROUTINE LIT? (RM "OPTIONAL" (RMBIT T) "AUX" OHERE (LIT <>)) 
+	<COND (<AND ,ALWAYS-LIT <EQUAL? ,WINNER ,PLAYER>>
+	       <RTRUE>)>
+	<SETG P-GWIMBIT ,ONBIT>
+	<SET OHERE ,HERE>
+	<SETG HERE .RM>
+	<COND (<AND .RMBIT
+		    <FSET? .RM ,ONBIT>>
+	       <SET LIT T>)
+	      (T
+	       <PUT ,P-MERGE ,P-MATCHLEN 0>
+	       <SETG P-TABLE ,P-MERGE>
+	       <SETG P-SLOCBITS -1>
+	       <COND (<==? .OHERE .RM>
+		      <DO-SL ,WINNER 1 1>
+		      <COND (<AND <NOT <EQUAL? ,WINNER ,PLAYER>>
+				  <IN? ,PLAYER .RM>>
+			     <DO-SL ,PLAYER 1 1>)>)>
+	       <DO-SL .RM 1 1>
+	       <COND (<G? <GET ,P-TABLE ,P-MATCHLEN> 0> <SET LIT T>)>)>
+	<SETG HERE .OHERE>
+	<SETG P-GWIMBIT 0>
+	.LIT> 
+  
+<ROUTINE PRSO-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC1>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC1L> <>>)>>
+
+<ROUTINE PRSI-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC2>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC2L> <>>)>>
+
+;"former CRUFTY routine, re-written by SWG"
+
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS) 
+ <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
+       (<AND ,P-NAM
+	     <NOT <ZMEMQ ,P-NAM
+			 <SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+			 <- </ <PTSIZE .SYNS> 2> 1>>>>
+	<RFALSE>)
+       (<AND ,P-ADJ
+	     <OR <NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>>
+		 <NOT <ZMEMQ ,P-ADJ .SYNS <- </ <PTSIZE .SYNS> 2> 1>>>>>
+	<RFALSE>)
+       (<AND <NOT <0? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+	<RFALSE>)>
+ <RTRUE>>
\ No newline at end of file
diff --git a/load.zil b/load.zil
new file mode 100644
index 0000000..34e3062
--- /dev/null
+++ b/load.zil
@@ -0,0 +1,58 @@
+"SUSPENSION for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+<SNAME "MSB">
+
+<GC-MON T>
+<COND (<GASSIGNED? ZILCH> <GC 0 T>)
+      (T <GC 0 T 5>)>
+<BLOAT 90000 0 0 3500 0 0 0 0 0 512>
+
+<SETG SHORT-STRINGS 2>
+
+<SET REDEFINE T>
+
+<GLOBAL BIGFIX 10000>
+
+<OR <GASSIGNED? ZILCH>
+    <SETG WBREAKS <STRING !\" !\= !,WBREAKS>>>
+
+<OR <GASSIGNED? INSERT-CRUFTY>
+    <DEFINE INSERT-CRUFTY (STR) <IFILE .STR T>>>
+
+<DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
+	<INSERT-FILE .STR .FLOAD?>>
+
+<PRINC "SUSPENDED: Interlogic Science Fiction
+">
+
+<COND (<GASSIGNED? PREDGEN>
+       <ID 0>)>
+
+<IFILE "MACROS" T>
+
+<IFILE "GLOBALS" T>
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+<PROPDEF VALUE 0>
+
+<IFILE "SYNTAX" T>
+<ENDLOAD>
+
+<IFILE "CLOCK" T>
+<IFILE "MAIN" T>
+<IFILE "PARSER" T>
+<INSERT-CRUFTY "CRUFTY">
+<IFILE "SVERBS" T>
+
+
+;"MIKE: Add your files here, as with ROBOTS"
+
+
+<IFILE "ROBOTS" T>
+<IFILE "SROOMS" T>
+<IFILE "OBJECTS" T>
+<IFILE "SGOAL" T>
+<IFILE "SPEOPLE" T>
diff --git a/mac.zip b/mac.zip
new file mode 100644
index 0000000000000000000000000000000000000000..8bc666747965bc2268954825f6d40e47902d6736
GIT binary patch
literal 105584
zcmeFacU)A*_b`0!HgF9}F)BsHtGn(lE`ow65@nIzd$Cg$EMV`lSg;WlK@qU5WfegU
z3W%ZzC`|>8VxmTk7)uN$hC~yMiTa$GU7An6-{<{&-p~8|^ZxF9xaZ8wnKNh3oH;Xd
z@9c#OpzAzl+E3PJI4%9BiBkba*;v^Qx8}&Mjj9?1|HmsfU#Z?X%_Lr_Hj?M@pDA}b
z&ONbTWgkCU5F4&kr&r#XCW??6E7j&reeiw`Vox;lEnnC3WwJqbqXpIcDA!tZBl$U)
zd$*Wxz;oU}D3xl1njaiJ+-;i17&h}`4?p2sW+~PFzY;!W)8^i_MGC_8sJT%u@7qeX
zNsCf#b1#o?Fvm?cxv7v(@|yYmyaF-3@9P)l;tW!^#aY=B`;2D(<Phh2ndfzLBcWff
zhn3n?lwO9^26y}PRjOUS&f_o3QL1fS@AFOUB$wavZSE-5v86%Y#e9>NUHmEQo6HSr
zq7z7)Wi6zH=(g0juG0V4qsA_G<77(p&1u0+`R02ZV;ZbIutjw>E*=s2&A!>TC|z{e
z(E2>Sp)BT1Gk@-h8b{H@(LzGwg8GWup2xRe`ZeF^)^mPbi${<+r<re<KlvNmupE(X
zSf1L%n#ibB&qbX$-#+OWwcSE)KMT{Uy|WFRCuJEq-^z|GPLL|qmNu<?-)yD2pJxN#
z{hFW5yJ^2;AW9tidSG}IYI8sYN<Hzcko443M`PnLbAGHelADSigZ+$RKAYj=9*eRX
z^ztl=4QuAx`kp)s=D@-r5Wx_TfD|lX7+8Td*nl030()=(M{ojXa0L(W0v`x~AP9kQ
zh=55j6`~*p;vfNLLlVq`g|HM>f)dukde{VMum!e32JC=ckORA69~^|kkOu{D3{JpT
za0-gyG@OO=Pytm?4RvrCu0kW+fN$V7+=YAa03O0)_z8Z7m(U8o!=LaL{(%n+FkD8!
zbYr?RJsG3_qbdJ40zS#?#({1RDZ+(re^P`8LOqJ`K{%Kq0uYX&hz<w?DFPsjrw9W=
zCG64%J)y2JOZPK#z@owvK#*=AY|urb^_bGqO;;b*yLay{&_&{4fbJ4q%$tpf6G5i3
z(0w97rrAOF1cEHatVIObipW-iEI}lXAWIRc0_?j@eWCleplc3&G36zEW`&yX^O=Cq
zECTq9R-r^>BuPm@#FY?l7zdw)k(3}znML?0P2jT?5=@z54xeRE1ha}MG5|hn(iNhF
zgW$8@DFUF^gCf{!neMJ_kTVAKTnRE4vtkJ{50SN?YlSuidItg9o(vMb^Q3mU1?WAX
z$WYL0r3gR|ZntgvFaa!k^rk5?=wU^W;a1RNJVmUbM<_**I9?Zt!(l{^6*OfS^w<e#
zx4}K2#}VKFnk4k7(?ukxAN2T<h&pW)^!SG&06lwA!~l8@#m>>4jw#N-V<G1Y=owA4
zF&0x+=?VaH#zN0s0QzXb4n0c&1~MBk>n`Z4^f&c}p07#2Crh354KWK8NN7#u@pcA%
z4~n>eejG(yL4OTJkVZw3@t|L>y8%tY(?kC|lHv|vz|fS>ybK1C6i-ZXVU$*|!OYDd
zmZbRmf&t~@k6HU^iVql6=%R#s!O!5KF6udJI~bxa0LnLmp*cl@M;b~g5@KWMMv+i3
zoK2B1Fx*O!a4<Yek%-}j-%w-%82&|(iE<+oicA6{M~X}aqbU@b0!AqmnL5x&O_6DX
zjV@Cpa<tL!6p4af#uSN$USCio26{zPBo=yYq(~g}%BRS5=+#J(8TP&2P$V8c*A!2H
z&uwYSOxw>VP-GT-zLFxd;qwC&nbY(0I*KI1=PxLd1ikqb$${Pyip&%D_Myo9A-(5N
zWC8R}r^rI+eUc)Jpm!5R7900|N0F_Defm>mX|FzGDYESIJ{lz~hdwK4$_nVSmm({n
zPXk3(L7zV<k_>&(ps`aj6@A4NN$KC$gCeU<`_8Ax8t9utk+smblp^b(?;VPyLf?-R
zSr5i6MK<UeyHI4Kw{ZeRHi7XLitKSTE}}?Kn(;T?l=`bT0~kLcNJToBpnIa1iJa0b
z*=F*Eu2NsQ)d)-`5~LynOjZyi3&13crtAb0jcq7*n0!N0GBN9Snw1Tvn%)WAWol1L
z1%T-cnzb8DHJv***Yprc$q|8R4b9pIrq5{Yu-A-1!IXQz-%LV~ihMBhAg<}celUwc
zME}A8Fk3=X4uaVxiW~y7eH2lH*-45V2D1u^909YhDUt_f%@hGJdrJ`&^wR}h;8YYq
zzX7_s3{)J0ehwt7;yCnkr^pHD7fQ5K@fGwVwL?WA^h=`1N$8hMkyFrb7e$JoUjZd9
zhJK|qr3CuX+AB(--wUc`fPVi_nlsR!PB#^2p+C9{<Xi^*`%&Z^^p{cOJoLAv2ta>F
zf&gUo_aLC+%cK3hbl#(Hf(!kpa15QFZyyItlFhgFz7`1!WYt#EiRHl2e^R}vbMicE
z>BKCOyeq47vd3`g#JRvR<W;A3PPQ2#o#+J|1K!seos&n}N+*g4ldt!6P99|^o$wJj
zMuYEnVPZd8I^ixdiTOISGxhv2(g{VtvwZDmj%z3p$#O_@C>J_NCwvK9gP0k+(p|=Z
zPV1<dqhF0$KeDgq+b@nwCrp-1SO>hoXFi*_TOPQyj=yOWps;YTwn*?!81LewkVbq1
zoB<KfGFojc9R@j`8~(jTg51+3z*!oRC5fm2u6w<0Q=WP(3~U`^>|p)HtWjGm5=04Z
z6J2wq5z{3RTY)z(%h9;+Z-i!ep(0n|Xy+|+e=dzs0M}9+qjPjr>xjW4EbLZ}-X!#u
zMi@yVMgzxXV*Xnz`wP<Wr;>>7z!BBf@vTN~kcL-)j=_m&o5}Si=7#yA@FzE{9P(s0
zJ*45;pre0z_MN~FutO?~7FVlDM$<fL_<YbYk_{{xEpX<Acvu+ch)Bk*YH7F+@C}+o
zlR52dzL_r#9|FAouN6UDy?l#t%<H6a>mB}(E%TIyGr%>gA0MKeG!Ar=Yyw6+PdMbg
z%u5<}52v(uk@<slny_`fT1OnU$r@8-J8_er@1Zk3(y-%_uqNP6y5`bUsJ8l|P8zlz
zxc!0#<~OU8MvNZeC=H7Qj_<w?vLpwyFUH8;CQ8G`06+3Utf%++o~v8cRyF~$LVs!4
z=fKfBaF3tlU~My7_*@$LD{w-^_dHu2ejLjVH~B(n5uYo3D-FGjW!(egxn^S|#p+hY
zmm~fh@qXkoi}($)>HukIt|YVyc(ErYn@4YXs@ElZ9%j#$gk}IwemlA&d*rea?@8(T
zm_1Gs8Vfwao+JAu%*wvhB3>!04wQx(NJ8yc;A=Qzw>{P7%?px-JeGuZV?m%{+bM5;
zur#DZ5^|3P9vx5FW1+rveDD~DQ3pqSX%X+@85SBM4OuS<IsRX=BP1co|0UZ(5)uI1
zxJ+lA>~)1B7~6@83l{Mfo)aR%r6GLaN83zlkm&Y(*%;Ak<7qq5!Ft4Z7V&*HO`S4%
z(nM+SL*SADp`3(0U@@avI87St1Kj>%7B;V=NjHU&(%>POWG~^+ezKTxQy3);W`HyN
zbyLDv_&jOU4^Ey#<H2IaGimTjN$^78&OH(9*j_$b8gvi1Ax(}Q<zu8lCBPltBAeDu
z6)O$e3f!duuDi9e+!V%1gW~_amV=Vu%fOlJp(XuJI9(bv9ysPV^PjakO&u3Ha+zbX
z#f-!&vuC}XnGioi8l)o$k^|3Zt<5F_=W2E9_|xO}J6NN|%n0*LN}MANyekPr??cQb
zY3ydjmn8kd^SRPMbTY&e7)u;YBU6Oc(!e#6zycN*h19-8wK)7ReV#NhND{c51+K;d
z+S2Ds0|!Y0y;#6eHQQ&jL7uvm^nlHBn*|or-zHQ%|7n3V;FToM6gYElW9Imq_D#0d
z*b~!FY&y4O@uG#&fJT6EXftCRY=cKG8|7{>Jw>)`sWf1pB%lTzpv`>E5O8=oilg|_
z=39&DlVvNGO9K)m0a?H`ud`2hg2OeY)n=;AHXBd$b<^Dvo>#0|DGeAW3BZ+V>zFvZ
zm7^+1#@PHdtKX(5lcfO$k^nnWYtPp48R+NkkC$1*y~{tozCLx`TB-kINkBI=w;jZD
z5I^U%eDw5j>n-Ab&M)6ww`t=Bsed{0wXJqCxBby^VE&db-=!TdllpI!_?Ms~uU4rG
zM;9a4Ll$v6^E0-mZ!6j=^^ceMqkm}6bXq_%cV+F|QIsk5A0zP}(K)k-WM&r~J6`Z!
z>d%+>TXf2FmXpk!)920<l}P;_O8jnj%5-QZnY#;57UiCj`W=<{T?YZ_U6T*oUaXKP
zir?zEV(i}|r+o3zB4M`Y*n(>51Y5}jIdBG^xTS8jskf;bx$KKQ$mPm`{i=O?_Y_I}
zmP`EhYdSq@Lsf*9#cM5#gwyjK$4MjJOD5oy*NKPIY{Db&$YJ%NgUG{2;x`|7`cL}q
zGUVl<i!dp)oj9WR@TV4WTRbb?9+mnH0p{ypTWzXr>PIdcSxL$sFFN-2eL=p|_b-Xx
zfKIti-;&%@MJEg2esx0Xds*W9TbG)h#U%es>FIMN#YIxzT#0WLaL61w7W7+3^mIrY
zb8O^Ui?|+}t~Q=4J1g~FDDj<*GwLD#?ddM9wmPF%*ydn<?D<WV6&K3SOMR^+zG0~1
z{92LKXd@69^jVfBn`6$yCm?F$5G&jA9!JE!gG3NC7#*js{>wlcYcipU`)8TjJghMd
zNwQD1PwsI@SS9xTTm&J6N<gSaR2uY}^73$&S&&Jvaj2DT8llk9Qgky)u&sA-G?1Cy
zcDy?(T>o}njai8ODHE%aV}uvQK7WZI6d4V|XAM048zF~bb2{HR+{$iyk0Zjb#Xc`Y
z5H=VGu)wg?-gRoFfu70ye34n0afFpkk+1sTQQ;-A&jS&J6B?d=OH8Ffj7n`5ZZgSu
z0`jmtbVPVv>~mcN5rja;NXTXkzP*Gu@UU+}wc0Ggcw!ryYOzn12qsWA2C1H|L=3YD
z29q>`Tod~giD058*EQPQAn1_VG{R(ZuZf0XR(4Whjo3#mf=QS^2zO%w1HtSt-<)Z@
zDVg<Z(@7?ARyG?gVh@RZHj7}gmPXge&Sc3LbAw)fc7f(ZC&rOhw(&jkgb&0%D@71V
zo;-9jxFCKVnlZXBYzSOBB^^>9xEe=MDvQ`D!uw*ML=i+0LS3UxrgB+xCuY&@WRJx@
zks^pDWPBt2<*BY<kb1?{Y>H`=)u?$Ev7>~wVxJ&Qg@c%O8vT|hHD*&yqfH{MM)+!}
zTr{<Hrn>RXVY6u_QN}S=!vnQccACmGR5ro9;5*YA^3-P0MzK~78NxcTk5mLPD9s>H
zVyC{0Y_igl7{wXJ5R!VakEsY^+enP`0{_DHzZq?FUu`<sWT9a!+E<T57O@iHWwG~1
z5yVlAZo^g6VOIy!O42oE@niD3lYY4;_Wn%-)2V$;1HPeU|7U1Jy&kxj##`Ag7G4p1
zKNdkewPS5wP~5Xdq1jB68OGDC?Cc1|HyVmTxct^JbhTe9i}Mje>OkRRzR650>sE`{
z-omS5@3SJ9N%?4`(0^kxqgZV=%QV3_-fF}JB1nOTg76V&MeQ{u;lA2zw#gjhnO3&z
z2+<x9%%alb(#6O?8Uh<^Zte*)Ni?2iWpm6T=Dn~%?7dY4vj+oj5I%L_5=OZ-W{IY=
zOp?UjDI%CdOXGOauaCVq#?k_aZJEwCNj9EiHT*NN_k0l~(!vZO85ll|XLG|X^{v`;
zj>$^n6;`8Kg^gnGSP>)*2JRqSBJs(XGHeOHhJwyB&aoP6Wf5}>$CS5+2<DRUz^8*Y
zOLn;Iso8wvxk%9C03rEW>^(*V^9YGRzs1MWM`?ICT5!_Ec%H!m(#_wCz2zd9Px5t)
zdd-we?!;&fq1Swag@odU*n5Bo7IdK)7c|K7W~^zP$?{$ctn3{Lje!UjA`KaMd;_7M
zoe2)A2QFqyO_!J~Hr|?K^8!2iiP)Pff<=RIX6Lu9)4$}KF6y<_aH*BUSHhcOuRlbv
znC5F&<y@88WRcNU1DbzJ>~&WJOGrMKEY6iP%$6B1>b1mZF)96x*z2kYmXcf@!<^VK
zNFVja<O3P5X3LG2TG`hKzZH9xi(na{XzTlTKE`DklVawB=|YoK<7L<wqBkWPf!9|e
zSdOHFpce>?3<6L1D7Ef2DFW$<`BTc<Vz2!oSV23A*JcW)NhYhrUKt`-Nz*y)=_^gv
zh`rW{V3jsqU}UK0932um7P4+`H%&Cjv{Hl!--^8!iy&ERAi74zvX?FoO)a~l!*p-K
z@t0!1TW!1sO;LD9?1dXcWgDe|jLnF-X&)DRaT>K)(@Ya3A-gN~@)1FbmW*d0GuHUd
zHDq*tC-xdAg4J4qc$z_xAu>~%t}<C|rN|_@uol4@ErD*kJKP>PCoZd5ZIWd*CaZ_a
zB02`0p%>0uSyaIq&uSR#bNA+3Gc8F}DLPg!oU}9~8iUkm)pWVhM${=9q!&(EsZ{ZO
z(KWg1bf{;K@di{+kHZ#`e+eIoJ+Uv>ld5zKeMQz1UYi!p)|+mkWWr{#CwAfnDvo~B
za5R2RT}D}ksigmo2p@?(vGX?4+H|p-P0Tvj>@m^QCj3F{i9NZ8u;Cdw59UpG%Tt>w
ztw!1a*DycuB-y#fw2n@9u(thbjDyA0*PDKN{^PT!Qcn+wXQISYF$8q}l`tY&LrC&@
zMh^ZweETuVB4X_joFjOe-6|URBEuyH)V!O-UO$RpE0Ka@^yRsySZU$dwd1SDuIy1@
z5n(5L-6Hj9lz7w(L3i;l1kp%9vkZ$1aNR=6elb8(mi7Gk^$V%TK8Z)x5a8oOiT{lv
znoy8Do<UF?9a5&rCMi~SW5r(aBFNO*6-WQOLp4MfW7iJ9Ja(nyVIr7b{%@_nzI^?Q
z)MKv1BOW)<xGDP=vS=+CArNT&hn|UB{!`PnCVPz68E#CnIW{UEC!A@G=tewocn}jB
zM4lxX39k$AX)!iv++^CI@VBzxUrRm4NIW8O5B4tv5z$CMviNk3q4Ap3XC5Lx^P1Q@
zOawW^<8h2qYizWdcGWPyBYTC+^&}o6hWsl5GJl24(cfy81DX+Fnq{)yc#~$JOuHw1
zEcQevKuwBcaQhrzQ-ys`O%>^~KVD1SA4)v<xQ4}r;->^y#UEG&dO^>OF*qR?j>#Gm
z?sOeD`EI!Pix!u?ZFT%!(bN7*$EQ*^+~P&cZmA0ux{kL;wpa{%Ovw5HXJmSwy6_8w
z(Q_QGVv6e<vYRTKl{EgY%>$|H4PZ9!N^)9l6E6Hy>UvP(iaSS<+k-oWBc1Hs#-5P6
zt^|ScZKjuxW$Y~<e0q^&D;w@Cd?R(mbuC#K<C7&@AHo(lA(0IY>cVkn##LB<@cjGT
zUs6}T#MJ@>gKpTz%bEjp6AoV&wT`hJQ$Nmc{3?rKUrJpb0<)2CWw%oJkJRNXa0mL*
z=OZ?Ir7ju3NxD(3P8vUPe3aB>HgGI$Za%fLdo6Ww0}gA`7;a_rm(;~rg3qydx;%D!
zSVaEYLc8sD*|uiF_fqE<5*GvX#EVUmYMPQp-5RBkI+shFA7d}S{+@5;Y$J8f0zs(Q
zCjvJ&CX?g#yI9#q2|q}k<0Z~pK_?+z_Vbh+A9HqlsO+`c%Jy^NN2&7|iE|`A!f6t3
zSBAFQ_fvc~S~B_z;DiZ(vca|h*L8y_&Xh@Gc=qpc@7+);N*X(36z*$Wyq>5F?F)zh
zJp3JS#m}s_G_JE6`3-Pg?!*R_&9bt`XE=U=d%~<nze8_;+e)w+Gj$lgQK^svkT)hB
z*OY96PuVD5B#sk@PgyQ@pE7&O)F}Z|T&9efVll;diry4v@-LI`P4=2>I_b@%rb)?@
ztS1>wd>m01d?N@Sb^1>A$@bCnuJioM^M&UF&+DF5o+CV7iOSq>xUY9#>>lqv(cO>K
z;I44DbC<gha5r%8=Jq#$=$P9tYmNiB;d>;|al7tT<yPdjPjpDMn^2QWG-~jz!AXNZ
z8<eMs<7!jchINL6mJEs+<li}k;OvHh_}b@_3zx?Kez~RNd(fWvew19rP)uLC0D4wF
z4s&{$_eVMLX)?X~V=99shC_dRuL^B6h;^<(V6G2f&LgP<{=~Pj!|_ju?_)b(F&Hrz
zqHi5FEY)fOzUAKwx%jqq2W-bTuW8BOV|bYSDEV>nGjz*#G`M1&!>KGdwy|a&$|yid
z|L6L@q5*t?`~Rzp80i08|D%Eb(Lg5+aFu<O7RoWeRk|xDD`%nq?R<5OwdK&6VYYo+
zR5Me|p7H;2yhv0px+8indMnly_Z3UTqdt-K(|O~Q_>j;c(}pY?vUbRpA*vzyL(UJW
z9rE>%?}q$5<b!0C#8VP1nIl;u$&nnAd@Fe_`Ca;%w6}DIbeS|wx>uSfJtb|Bek*O3
zwn+bx^^o<I$z;K@DY7N9?Xvq8y)DcwhFb(%%(2*Ik#Esp@vTL(#k--rq2i&+p__&t
z8+u{rouNMreLeJp+)8dQcb5Cg!{rI`74j|eUGh`%^YU8xbNM^V&n$aej<R&J^tPO0
zIm2?9Wv1m}%Sy}NE&mxN7^XkWWZ2MQBZoN-^BfjDY|5}1!{!ZJ(KbDg0xt8Os(zF<
zX_U4j7PU{|3)`^;z~KNTpU;862;uzpym`RUa=?Q#^qSkAm(-3W0)tcoaKiqK@OleS
z33F&UgzX$=YdOpY9p)p&XEE=<6s+)A$=?*}Gr!UFnal?Y%^4~Vm}_N7Kwf|2Ng^wV
z#}o?NWtah64xYinyy;W|3b7i5R64>i0(czIq%p5B-U^mfPpuGv{CZ$YoR-!GVnIM_
zy$CTJJlO>op*z(Qg(wz<DCR{g%*PfZ#P(~hXyz?0V*sKlx4!s{B#KB!8x_fc*M!PR
z+oniL(-So|6@;h{TvWj{Y^4c8BPu24U>QT022(ijia;k0yrFTF-V9sVlX*j-3F?c)
zdmwK^tkntirP1JIQYBuKX>SnC>7hJ*`&s?2hbi;`08G-_%%paGO>Ech1R{Sc;owPS
z0<GqVPD$SbwmrO^I;<TFCH6qu9inY-2uZ<y;y|z_hZEdhUl64>z={HqnnK`frSsQH
z=a0G}mp_9{@Cv{dl0$a>luKX4{D`cyNxoWIUv1sK?c>6S(VTwp(dPJ&Q+C+PtHGOt
z=lL`cdzHq2p%Ck*7Ebk$ih3ZMk5n+DR*?$*=-5ex?x3Ts-HQWMRD@d1AtSszv>No#
zw#Y*(g9k9Ek^cRxE;?hMP$MB{uIS|sJPw{R#LG=PM%}by$PL?1Y{d=R_P3_jwHkNT
z@^uA1mN7!rxS*_B_`$eOYpV;EFh=2Akdi{w|2yoh)=Fo}10kuG4%YE#b41ZjRB9_2
zN4X;;Qd9d^wD+SU=>b}5oK_c|sI^j!1)g@4f1&M3k=9nf&{BK>-P>|FZ&9k(;K2Dy
z11aTe7{vTawKImH3I=<vMh9s*55jRs%CYEIh>k{6Y67)Y;1N<Dr2(+h)@7&FE55I!
zmmM831U1tnz(~~eJL-M(wDs9)dDv17^vBU<LoJ!~<p`{bq>O0S&T#ZB#QOkPYkS#R
z+j48>4{bV{BFU$B0^8)ZYR85lzc)1BvONu7D{2YbcELl594M=Pss-thzNz}Mb{eUc
zyR=<03F)`D{Xhvrw0wpTJHP~SJB_HlHhi$9oi|vj2htzJ+YqQ>jc>KJ*g$Pv1KU%~
zwJG?j5ovm1ss37ioyHOeaFF4cqFivSQQFVZVofPVe4Pn$Bo4+3jI~-crsJqLruC(@
z^+&9awzfW`g@5(w+X}r=b_$VqALQ7ZXzIN&=6sGRWHfx<?k#%ZI3e~!{0zD9wItR>
zW-j7s2{ioQX0m^1dQa30$?w@NZ;$p-u1Bzs1CZZm6eFDRybf(Ep2sCoyt=jPTelt4
zX~zWZ7{49kwPR!(uemtw7@khnrU8uiS1fQE=`_g6QsEkCqSznm;kU#u)y3Yg#p|wn
zjqftw<G%I2dHzv>c5W`?mwP0HjPlv+G0<b0>tcVYM~v@}9*pk`$Dh6I!t#9Ixf;8?
z@i-BD#MRq%uBW%>WT*Y1P0Ld}{`UIbE6cCQ+so74BRBBn*vnpny+#D}^!?TAjoTlA
z`u=Ioj_v{8V%J+<8Qv4Tk9ae_cSBSzL%h#=J@>m4G%_gE^Gzr>_>tE?Zfdt8pE#%0
zp3Xko{0)7MIS=w@d~^K%^a~3<=DIm#rq`B$J?_~)C!KCNg$K<Kp6K=1JJ@%UztVq!
zUv{8V;Nrjo?al6jI8#66{#BR6Pa+x`lIYm1$#S{ra+_eT16<uSDWBdw@Cah(%k3hG
zjeh{({qHO2cH-c(?dbm-<a6tv;DwC?{5*UZ{9@0*%MrujSEnjy9lj5K8`U3vcNhn+
zMuoy_>o@R+!#eoWVKKZJUJP$XUxvR%*1<cc-{EhEiSUnu54<1W3?G~f;UjmbC9A_Z
z)T=5(rf2~K35vbY+a*)Y`yG16BKQsZh!C_wUo`^sIImxbbYFn6Zb9Dzjf`=hroOs=
zfN|eUwUPm2<8yI}UkR8)Vq<b<C{zgY|Dv&Tz1Su&o>}(0;x8~xEnA}d3mD(bR4W?5
z_;#k6eS_dY22z?>V?}?0iEVMsfv*`8BE$zUiK~04C<2psjN$w^tEP#41SU&<3sdX|
zlajg`#Q`vB!8{z-c&>og0w%v9>-TtQG;0^T225VJ#Ovam@dgudAnPOe7EG~Wx^KaB
zbhe)2AOZS{LtyH$i!{a5qih}f5=>L8Tok{9*>T!FvzkLB&#b;u11^QIUKqQSN)j71
zB%~?B!R+>fD<ttwRRjTdOI#Gspq~dN>F3c*iudy=i`V@X`UUN$v7r6=Br!<c#C{L`
zB6g_{Txa?rPj)KwyH%UURzbhJd1^%=^cO!CDNf@7PRz50{+5j*MHBS5Ilxz3L(r;L
z;F-?Rw4(m@d1@95q&^TS)X+b>Sj~G0{r70{_F-{5=>M!NmMucisE4&9uvGj3{abP<
zv)5HY>@w*8`YDlYfZN`&>^>OaPKyult&y>>U_jt4BK&~B+k6eEVUNK8Y!SNz281=J
zQO*HjjUMb_7!cm9X1BtC2<)TR2%eFi9x(NN6Z<y|sKI{t8O%?jNRz?5t}Frb$d6q#
zAe;bvolgLs-ePBhdDA&#5<^{6@Sv80hc${H!TetSD-wHpjOM+kBm;eGnlN!-(6eXk
z6Bu~7zJ<gNUn3O_Jp9N-Q3~Yf4T+tgO&M5*`urIN-aa5BiMJ2>s+g4s0@x&AC6p&?
zS^rdV7|3&YBw=lkOCGT4EkPu<{b~^V3xaP+ad!J{Vg+mlw$B!U`Yw$faaS=4Hsg4M
z;sPcfzm3C!&1iII|3vUZIwg5*N5PY86g+#T0k0|eWeOV#Y!=lEn^nMPpJJ>rjO1lK
zxJ*FKb&=vIuw@!?pB)ggp1`)`+OW?EuqPz%9_6!sz<#)~31fp?4iOa$3VRU5E=GVY
z%7;PW&$gq0gRtWi1qhy!8W1$GX)s8wQnSSf4yoA_2+-WHfclu4J&2%C&F+CgH_GC%
zz+iM9y6<4{&FoERrh{*yY2<^*^^p3&cZ|p_rxi)a3l{?1Z!Tr;f+*mufc*+YL62P6
zwIB+4K$I*BKkyQrfGGUgYvdw|z;XK=$ght`UTrlIo*a%P07s7E7>MrVyD5$%INrdj
z5!||~r~)zegW^vFxiZCB5NF;e<;1(Fmc+Xoh@9eQg=$43f|FZF-pgxz#R(9<zNJ=t
zh2Y!Gm?*&(jWDf|+<8L5UF2B^(lqoo3qaaXDr4gakhAt6lO42UFM!PVM@x1U$k2mf
zaoN)Rr;3vZ?i0h5Eqz!+z;`*Lc<&IDoyC~N;mb|fT8q5=v%FUbiklSo!Q#Xdwc-?5
zl;r<~zSZJvemuLGfF)R9=neFWsW9~R(|mR#$oaG)xyCiiJrAj|wQ|pDwc;0$Uwx`(
zZ9tB1Xwc=!Z#)fS--EmfNlHMDrwno2%5OgwvGYNGFYi1X4e|$>>PqIGrTB@O^#w~y
z)Wl05ucNS9{E3*FU4h`08HtTWO`HMC^xEAxsw^|n=Es0#7Iy#d2wHCwlAQbJ+35%#
z%GmJ)$XO4te0I%%<h4*6w0wC~#Hs*);iuMpjo`Y7b%0@E*sx77ES%cB)y?{v1J@X<
zhbV3xSQGpF5v*fraqD#&a1Zm&!f^3pKKlg>w^S3`9d5J7g@AQf;1vvi_5&%0AfF^Y
z`{4xp4-9X~k7ctEoXR4JFVR|G06EG^Vy|1&>>{waQI~q)9%FL@yW=(35Y?Rpo7?Iz
z>=j$r2Tkm+U>iU!(l(%WouUk5sIzlm8%BG@wgzj*#D-!uTMo834I*pXCS-;rcOEsd
zi3px$u{Xh%Sk@sJnT|F5h=8_%yv@V{BT>n01&rLTiS0njAHeQ&%FHe>huDN&ShX4*
znOzvNJ_L4`zu&>$hf!#|id`^TV<Gl#XIjv_?L(USD$2n=7Q5;%u#YcLv)_PyVoM8_
zvtNSdhOs4QWh8IOlN&gI?3d=h!5ZwBUJs<;Yg%r3{!(OZ|B}veW3UG2fBqgLq9Qre
zVYN-*fYT?N0ADnnvScG*98MvM3K$o3&=R?f3!+o2VhSywKuSd=DDWjHj$6f@X0_rX
zIEm4uMu5`-^w5{US&cmFz!_O%ap$_5#78<`rdq;ZHoCCS!TEb6ISekYv?3SRUtAQ`
zK;B3qB{_$!0dEPYyMJ57TyeRgDR4DUeP9dYauro~8(bPnE!iM&X{yA5aKq)!)1XSG
z#^vra8T$@gH_+N$H{@DYGPSOmD0LmU?#2;*8Qkkj$Ow18)}Uq|BDgMNuY&u7GG8_m
zJX~lw5BK6G6*I@f<6I!?1|AVPBDRcx<Lu7}@`+>~8>)zp^gvHbK>hdYSS10w*wx^1
z`LK*_29GA38w0^}eVL5?2|Uvaj1_mlGvk~M7Vyl)fp7&u*(^2;JT+Xr0#T7x;1z~O
zTLoU>#e}ujoqP)f-l$e1Gw?wHjSRuZJJ*sO3qDQg3#K6`kg<{AyAHMV4t%#f3Sf^T
z_(8@xBY0fHhJbIzFJbHs@XdNkxR68r$kQ+4*?I!7oRI;LAGu;IAQl${Zy{hNTHPxI
zsI#*Wh>5!IAus{+{(!)xXj%V2V19!->ge^rXN{X!7YM>}#QPP3aM<g<L6HBH{T71o
zWSj1vKwils>)<=h4Fr$@^Z-KK_R83F2=OQ&)rN$X9VY;blf2q%>qv~4+t&~(YCVdv
zQ1N~jwE0l+SrNM(L0K$Kyyr>5({K$~K*3wJ;wps7a)rF-5IT}}YN&l7F_chyT=zIa
z=q74zp<8fDZh+8j*d0v}nx6BLErHN1P2R3^mZZLx$9%;t1o(3XR|tJsf1AC8;L197
z9E85!?}<JO0j>RYxjQ=>!qCm&Too4f*b^OY7<MBT4<ilx2Ex?{vSFg@Ly?NvkAU>U
zL{D5OeG3zP3q<T01ZdvbFo{rpfJxWrLTS=9ocnKM?2!i>0F!RsBBn9v8zi}e0ENE;
zlU?_#6?YLFQY*fL$?o}N%9`w6(3kxSK}{2mxXHNQWlzK8fV?|6Z%z(4>qSTcn-Ua1
z!Q_za+c=?24ymrkS#5GiT@5beCx_hp3x${*o_CvVLGa|ZA_u{<EJZF%zHqsTeF5Z9
z0pW57Ex8`1h)|@DfJce2eXq%hBFvkzk#+z%2g`c_Q*utK*^>wwMeK5z>V^d#AlOSZ
zG1V8>riWl^V10w49;OCi-Yb|&7Bx8ta8a`x0WNB?5#XX`7Xn<=WWY33mXR?`J4!2>
zmahS1ve^xhf@^cwQxJ*A0Tp{7vQOSk#Tx`=XBFQ=qzjho1(B`~^sv52_nYx-HAH%1
zwIvA9_z?KM_h9!zWB^^hMh2<FRE$$(P;(868yWON7W+FylD=(4(4xkLS>(k0rR*q(
zJY40XXokrA8e*oA$4id0+aR*IiEI@jiyw;E%LrbGh%9B;;V&VQxHS|4kE@UZ4cCeZ
zxPi=aA@VNPa2O&VWNl$%5Ipr{{RvRBBO$6sJ?ZeM9=FJ36V<=<23reJ;_H^|Is`Zn
zsvt_1uVxzvxWMK?lqHU%0s_eF8)d0>Q9Obun{S%f+YseiD`MXwc%;S!9fEw;8=^dG
zMT*A|<y+%|({5C7lbk&VQ4=uF2cqU2k0p6?uy*9Rpy>m90LZC&!a5yC>UxO6;e-u~
z%4xJ_Cm}!=WK2Lldjq2KbA*I4Kc@%V3Q@=NTS%;!j=!kya$49a5G~$K+7K;9cd-FM
z*;6DThm17f9|~~Kbp#W!i|Y_Pw8kxBv@A!26Erz|RLMMvmeFlQwCuqR_6|hbpt!Fg
z+Ah0+or@rcEQt}!VkaUf6Dpn}_=)(XXnSnmHxP|x%KiY+A>WQAiDAd;*$)W5eMu@>
zhel)s(W$jIIBQ3zBJ2AQy$J{Nd5GSEo%0OAQ?i|lK{F*lvy+PX8twB(h`CYK#1c@g
zW-B4)&Qlj$x5hlBl(Fuo=diaRHlSb*I|E{au=`^Hzneg~#G;k+-XmyG^WNa+7aoY%
zc@SIL<gNRGfOWXYh;2IA#3mznt7gL?4&~JS2ytlza^5cxmszb=F%#l&jl$MJ+%BBT
ze}=eh)Y(yp%RyIyB+oE!G=c+stS|1F+65aH_w0HP_5lHg2hK8a&wdHOAsW}xjLeS2
zz5JR;Hl0s}pYB#b%1!sqB<^rJ*?qo*>9NQ&9sv&KSulN5T>`rh!S%6h6immpDHfQa
zMmhh6g!ufYx~&BK%zlJ~IX@C+2@5Dm!ooUl#Z5?9g4>UWkgzm6ja>=}nsPG*XecQ#
zvq$4P)WmF`vj*%%m>stJ2KyU=N4FIFVD_EoH`qTQ2@4pRK$6C5Bwfbtcm_$=&{}_k
zB+@y*L(+}I>#*9S8|VvOA)rqd$Qdx2SVu%kx{Fg?FeDLggFNq{u6M#*7b@pm*ZX8=
zGuIW3{V~k-IO&1~=7v8Z)y~D*Nep`vo&Vg!Kk^C4r!(c;e6-{en0w+MN^$`;SPbOX
zMhCuR$T2xm?ryOf+cz%@*KY2x1exJ>bqOwpP}fVz4D<#8u0{)BX*kVWmV@^46D-Sl
zDCGSNE6Ch&8dipVjU89I5@X176*8;DC+&v7bcB_hj?m?489msvvfC%rkt^FnSL&71
zS1wwa_6ha5mF=Mmbyo?>SGI>PR2m5?KjGQ1vORRAUU_ZhKdbt6rC#OK5xP>7*ed5w
zs6$q@hc47z<Xsik5&jER#H#l2U#KRnY7hT~Dr!}G_*W_*{kf`O)$vuQRu!*0v+7(I
zD(<TCRW~ukprhAUHFtzAw1(Okea5}&hmP<G6|o?4;eFNfj_@y3T3cJy(kZ-H^|37g
zH`ypTBss2YPb9DF2>+R9^7`a2+X6uH*5qAy-=BQEofp+ha#=_CFT5@$w}&oNMjcuM
zCb=3z9lci*s^rTW+GPCQT5?PBZ^>_xKPvgk9?(shtK6?Vr2I;GT6sZPuWVMn20@Bm
zO0N{tl))+1DdRA<B_$(eZ%STDQA!oY8d7ejJWTmH<<Hez&{-Y5deQ0)tM{%hUj6mz
z??AA&cx~m{y0tgf{;>9E5UdMb7qKpG-RyPC)+GaX-I{gV*Qr2|YMVMX)g{$8H6k?z
zWAjtjrtVDLn_7@s0ld_oQh!Z-lllR8>&LEFtao1T27>h`*O#xqy#Cwu57++;{0;Lr
zC^u}`uz$lT5N!CcvCl@y#*rJHH->{?<Ft+QH>PY%-?)F{=}k48u5P-v>E@<yH{IQI
zf78QFk2ke!dbR2OX5MDuW+UKj?zegH=AoPMXI`6qH&5F<ck>#=vNz{%KEJsRvD=$}
z-u!nO(xnYbvrF?#3qdR?ZFSn#v?CyJ-{HQ`{iu79d%1fZ7^Z#oAHvDB%Ctvc8ht7I
zav5;HJn&`Fm-oSN%YO>JwzzKz*s@^D_AOrlcT2^VyIX$2?_u=%525!~x2-d`F5a5C
z^$>8kR&M=v>vQ04GuXy%lY!wjpZ^g2wk_P2y{&Lt`8NFN?zVr@KTBu9FkSH<!ua&e
z^b6^a(m!lB0`B&a+nu-LXE?U6{0|{{yLx-w_FpqN8NER#V_=3j!y>~f!#2Ynf5Feq
z@XDB&F$>|UjLjK45gy4X%D9NIDdYQ$pAmk{?4D@?+)R0<L#7`HJh`6TJ&im~JqLMO
zU}|J$Qs$cWu|mgb=GM&g%pIA#GWTZg&s1lAm3cGsdFGoP`0G-D9pwG3V8_@U8+TOf
z_<1Mnl!9Pq<j%D_(*Snv+lh9QWsoJ$a>Y*?gb>QCgshc_Z_7H8RfMtnEc*I=7x_j4
zv&#Sky9{?t+O=g@!>)VT_#2q)VKmrf+hsdr%$o-PZ2#;4jD=*!WG~6i$j;10JIOA}
zK98X;`)2lia$G6<e)jtuvmCpeKoZM|%~^)`?K%5t>{w21PIFFc&U+He)yo}_J1#dc
z7tf|(Y-wAdvDDn7x%YGb+>P%h0d^1B9lU$t?$x`u(^&cLTf1BL@b?TLu{~CMeD}=Q
zleA|Ajjh>}x#!fLn|oSFY%g~&o<G?u-8-7b{PyChpS^4M9;LCXd++W2XJ4;<s5gLp
zuKVKlt>1TG-*Fl{yRUv<i;Ax@CNY&vHB#lKnyOk)V>?tQRF_oWs>mT<P`%#I>^InN
zvEPZr_WSLhvw!3M-TP7d7`w9nA>M!4{||{B5FQZW-S@y68p}Lz7-N?YJfX3d2h9!+
zJvi=Q2#FnxJ-FcDx`WvVv7azje(?IiUk?6rNK9gfY!3zEJ@F8p$w#>P&<VU>JM<@s
zsfBHU#*EY~rdg|9X)HiJ6Jx8?`7~CnuEE&X>K|zA#bE=0!{&#Flh|R0!_kL#9zJxq
zmd0)##*-U|-ydN~?8wj~c!J|d)De1!?#Q+yCyz88d359>$;)H&obwX%cI1_UAn!5_
zEqQ+*?N0KJc0VdV`o+<Jqtj_@<<WyjuN?g`AFU1`Uz$HIKP*2ke+i9k$XDgp<^Q3H
z6$m=#6_^z`02E9h){JmY!FIggD4_jttoN}Y0LPq;?IL-{jvc#jtl`*qNQw4+?8ULa
zj}JO-MRJY@9N&EW?D5OTsosyjJ7EfNV*H5-B=5wM6D22p`>NYl6G`l=Eni*y>P4YW
z;Sdrlv@D!?;<rLo;Y$)bIpm}(-shZLM`H(1R-b%!^7W}6BzDUB6y}{;cq)y?@=sM^
z?B`QdM@9XLyoweSttmR(b(|N~7F{m7R&=B2cF{eQx#Qv%Jt%rzYzTtlfyKj$or)(E
z#}_XJZt>>g9Y|zYoLj6e##g<?wZ+ehTZ>;6|5XAd{1Tm#ZY83U;U%sm6G~>Z*F<OE
zk_{!BOSY73FWFIovva45Te6$R+U8dc_0f`JC0~^km7Ff2FL6uCH6=>wfLlUe7=Ob3
zamn+N7bU-zyeiS0_-LzuTk?*ghNlImjZb4wogRJK{j|^Nz|-NUC!LNyJ?r$G)5_E7
zr`4xVoW9VN=jrRGn@-<3eed-5rysSkqmX<0sfMR^ML;D!{oCn3PQN|<_vsI%cu=I%
z#Vy6Y!K-cUNU2MWN_&?Ym-Z_)FCE;87Jnj8Dxq<1sSSl)ODRg7OWjJnN_|TMx|Hfl
z6;c{eI;nJ8X-w(#E>zr79Eo^wOP5gCwbZ)OjiqU&+e$M_vuJMHja!=gFVu%i^Gi>Z
zo-8dcJ<~?0p(;IJ+E9x6D*fY3uQTRnL}#R>)6U4xw4K1w5OdFrI5Q4WvdYw~AnE;#
z?-`si&P+Hn74MN}&}W`meP%xxo;iEw+L^}yXPL9T&q~h9&RU)we%9`+!`ZQCBhN0x
z^e@jAk(uf2Rl>83DKjs#EORakEQ>2!P`09Mb=mr|&1GB4ww3KJJ6CqC?AbXkp*}~>
zvfxRSb1vtw)^n@Qp&gz(dhQtBPn;{nJUDj>|1RO*9pIj8IY-Xq(330Y`vRQDS@3*c
zZ7?G#7{?Pb=h0J~4*~A^StNzD@O<_8`{&=3>y+E$N1<HGy~=&dgUiEcZrhDpKBata
z`6^-~<wwfP%CDE-EB~qdkMh6ULK`84C`0+j3!h&Yal!dQFn%T|=EC%I$1cpekl2~(
z!d&29$hwesp_IzpNy`^Lv<3Xy5U1jEyo>Q~G;k}NDuR#)X=6KmMSMs2e?pHmv)jUd
zp#P-TE9SO^&hit@RqU=fQ}LkUpGwopA?=~<w3UXKTWLWN)Lf-wB}!j8qjE*%rpj%V
z+ws1$au=rLR359mP+3!npE{|0Quznc<A|)%t?E@ZxJp(vl4!jnRL!qi(iRBksulQ`
zib$K(l(uS5)uFaPsM@ctR7a~$w1svGf^@C%WYy`m@ClWsA2c<dt*U4X|Ap#O)#bME
zU#J?ZZncFjRBb+3Q{&yLhi!pSRpAJvuobu$dt8)W9MM%L7yUYdhEjX)qLU7qi+)|G
z+IR{s23_2Eao@$W7q4FYzP$#jiA&us^|)ko$@o&gO9Q)<?V`_1gD#0LSzNM0sPUm~
zq+R3yxa54v?UL`Mpi4OVJ6+sMVV7bt{(pm7JI*d0Y6~b;-la;sUq=bJm%gWRwMo)O
z{o5sN_=K8Rc8A<r>gvzhLRac)T%UeQT|Ky3S}m`(B7x?%-MG~@)t=Q8+jT;DS0_{_
zR?n|qL_!-Oh1}|86n2rjdV6(Nb#C=u5<a0msHJAA&s8^7Kdx@A{-@?MZRlA;xO7}?
zJxwL39o!KBY9+PkVQYPA@so$z@vNbmS{vIIIv63=Mn$c?HlcPF{w3mH!hfNfTiYH!
zq0;J`)LgruBXp&zU0l1oR$05Yc75&U&UhCpZta(~Ikg=tHBBpUsih62wP$M^Yg+;8
zn7W=|SZ7v8XV<#%m=aPKfqx-&Q|h`}b(g-Vi|z<mW=7p&yl<@A*|mS`)Exoyk7=nY
zKB2l+*B+4S)_>sjQ(b#Ns#XnEJ=3)h>h(JUKz&Egcaa`*OxptD{W``=y)D(FhMJ(*
z7xn)2LHI{PXjd(hSUr9WlhTn0gYm?UK$6<8E}pS|e*L2Q74<3gsr9($?YQc<0JnZm
z{mJ?koI|NqVIIQEx|j7X8(cQJY<wA4{T<ike!#tKd6}$)1ee1vt1rK}GVF@em6Z0<
zl*g6qD+k*`M_GU?dF^zxmMc%LJimf_>npFWyy-&s7jUoY(UdmWMY^j4t`5G6pC!CH
z?5ak8+QL`uy7Is3ebpcTg0D`vI*pKAjnWWaT|!n<SBWOtMiiCj>N#zwKv;G4&jvh+
z+aPY}m~SangJ-AUtKmrRU3fK2?i953{tMOIhK|tLCw1kuuAw7r{Es!_1Bv#4E5r7y
zE3blvjzHIpTDq=O6%8HXQah(l^wn^)Q@GuU%B%qoZZ_aAdm8XuWy41>XvA^T$OEHB
z9sGu>5c)LgLElCL=-t>0K5zUSOGe^ZX%mQ|_h>wWZH7NWHp1Q^^BTYgj2pvxn!AVI
zvoOyHHqv`4O<7J$Eu;6Pc&gk0KS@kDY(=aWET%LX4d+m9bLo8^z0apK3+R0zrHrHZ
z$@D&n))GcJhtqomy-%R`iB!TBlur`2!4y`~`zm_J1ErX<n$jpKw-kEMr1xZcPo#Iv
zZ=~i>d=}+AliuU$eL77KrL~06J6ZRVD;9sb^y%Mn{NOdY2wV;;+W!b8Ng)@3ZGRmU
zn!Gijge3g^)@+#7<&TsjX>({Uq0syhDsqvwDj@|jAsG^Bnx^$@U=?bG(2_j{>B}T4
z6<N6(LKgNTS+5e>R4P>*{#t30mXg#r6Y$NPmSQ>(uSm*~*2HL2i3LUBuddK9HTG^~
z8|96o8XX&bFc#Jr-8i#xZsV%PO&HtWxV!O4V^QOU#;f?#@-9D0Z@kmk()j8cey9t%
z&`ZvBRk^z8xe5Z9ZoFVu0VLvAI#isx<D4|$<uh_uZXw+{`z>M^72|#?7GG}_`Y+^w
z3OxMKHy?pQe}=>HXSmR8VTV5kf-{)<V{!~cGf;IBaYFTD1wbOgGoVP9O)fHsF)s&6
z><M3dBi5&nL;zuI#;|ays9s%_mF_%Zp6lwYxMrQOqE#~hng<LE2!K<-MtZ_5J`-TG
z)8$-qpW!E60^m$@Po$X*g^F}1Pl_wyj3V7cgKr}^JCX9qY2#A_emxe11d*x~=^{t0
z=n7#rD+>xK;r@2Qoh~S=x1(aKqodeyb*<R(mZR$W6;ey`d93l)Ja@h8Od1$eW!+l7
z0&&zAU++3tI^H_9HkJtOh(i1ISQyj;Ka=4Bca`SN!-fTHgCb;%o|#<DL##v$!+n&?
zWjF<N_e)cUVQO0<pAynr@V;X1f_-~<kvwjA$R5ES6{j|2uV61G@gL>#IZOfHkH<k1
zVVnzi!8`#k?c?qCURLd{)!PjxRk`)gEB2tE&nvJTFvyY<$#7hE7#8qIH>u!9KNLvC
zbxDJMAzTI?<uVM6=Q3aW;g30*u@hBLqsL={@dNN_AL{`0^!Mu3GI|vw^e)JnyIYw~
zu*il-SvZBz$o-s-$eiX~9g(Rw+9F&l)7kbPKWejdtV}05@;XHh^0g79n|Q394r5ae
zcaBXR)Hya~aOc?6=(d>ND$u)?<$3F~`sQ(Xz~)@@xDn%_xsTQ3y$m#u3tWu15#@NZ
z{sPiIiracAl35+8;!HV3jdsJ-TQ2xv&e7p9buM>oJ(Pp<S7V0;FglQk3x@G{s=aww
z*hdCV%2zXbZg7y{x^m0ipI2~E=?A$WzXbuSbzJ58t5uw-ojD4l#r-YuYq88Wb^hv8
zXyS_1dtLQza0(TxbA9w~2!!K$D)esXV00HIa}n-9$ROOVjc>zzPGR>Bd+Chn@j#Cc
zdb$j@@M^9qcXdQ!%rqu3b{Y<Kln!lo#CQ%9E*He&7)MHcSm_tTpqXHf@py&_)YApI
zAjU72q@mUGpC>bNE~xmP3Wjkdq>A(e?`DhPC)2m;q%lubTv+Rm{>}rHr~=>SVVI$#
zw-wTuD~j}}IhvMBbaQ-UQ;m5Fcd^iE#Fj`EZ*$=9P|1D>wDjfItIz4_Abn1vlPesD
zQ(3A+e0hP0Qth{x5vo>P^~06R5tP)xU&!h1FVy%SZ2zg9>oi5DqTw<^tdHUA&0zdf
znCbGkWVGH#xe36H<`E+|PmJa9UHKJW&BOehNVBnd{6_@|JlKKb=YeXY^0Zz&Dh+>B
zq5|bQzXUv^2Rev9^-JJr(eK(&1?XIBqd+`D)5_(2-zNNoA~g@Qdh7;i9~NnnH_o`x
zXDw|iSl}m+$LLAT*HZrZ*hH4FL<H?XZ}k>ES0HQ;!mTvetSLQc%KD&DFjmK7^h{Zc
zpLwWwU^sD$+A56X@m%aGbjYZ7&_O#)gFq2&u$M~rGPb!Jc5q@0uN!K}_f%F5@l4%N
z$IU8TbP$+H)F9sqG|H#ZZt`u=EF=B9O-G@_8Fxy)GhM!8t2}cX#=`ZIK`$O_={Y{0
zLAB~)1d~*`<r}JYq=$ua%9RM2VOHf!5bE-E%99XAad|Fj@8g=sSvl*Zy`O^q5HXx0
zxMa<b^95QbX~jX{iWp8+B1O@^aVvg5iG9%JlJnE$f~|6$ZB;W%xSXiSmAAfcv$0)L
zN4?cnV<&sb-q_FLlG!7dqu`Xd$T_PNTm;-z@^nVNm806)fHqt&U$s@f@|JuXw|UqI
z{CT+w8WZoJCh;w88YBm-?oLq^uO<!V9$bwUfC=bGc{F8e;$00XjRmN<Uk7kI6>wB>
z9w?ZEy9deS*@X81{AnEFOvzal=N9IE9l+^SM6a!K74M>g$GO%~rGO_-$1W1cx9Jq{
zP+wI$7(S0%g@Dl!R4EwUs*^xe!0Vfi|HCA^x6<&WNy79VBFE@Ev4PW=rLx#C`z%vS
zpOjvk4Zz;bMC>DEWU=nC9=t;`&&iv7`g2-l-$RA<kCu7iZ#F_@m~*i2Sl``X&t}BE
zc4h{flhg&LdObDUW#H_+OTSX@=>lG)Z<MdOV3=&GUVuJ0#0GIZW5cEy1^#8j3|?;`
zhRp^{uk6Wzfz9|4$0cLN!pYt)4kE+SfR;hB!QD(;tz8yy7ewnghrV>by@b)-CGF)S
z)_iePHmbLa*%53H*P$FzUCj+&_s^a-aB@iCUmP3ryY?B=P>$W|LSi{P7}EL>oVXHk
zhB^rFsGu){4*jR@8oTOZIPmc!zk4?{S>dB2i@PJ$E4?kCw;A-l1ij_(=t%4|yv2}P
z^fXW<-;guOXxQjel*)5yuma6Jq<Ng}GGZq`<Ps0V#HB&3+-<eqd{E7EMVbM6yjPF1
z7Q?GYxr>>FkFs#pic!wTM;VK`PKJurTYSjiCPNn=Y3rki9{3}972G-1r+VlHj-{`V
z%n4+GuEqiS^i;2^x9TTfDO1p$tyQg^tg-S9fq@Bg%<<E%9<Dx3!)4LLd!Cf@*XpeS
zy#=5*74$X&Z!Nf^P-&e0i75=aeedRBBbN~*<)5lGoDm0{jNSD%qH7;owUy&!=&Rth
zcsBZRtna0P38pBX2dj7iq#Z4IV}NF1ImL79#(K=Rz86jJzN-24q!wHY&1Y0=Yl9h1
zGEvOhH0E%#$aXzPpNq>2<w6CYQTi+R95)5;mC_BVATb4Ws@CWr!+V~X=sKRy`L$}R
zj&-AVRTlo@1LMp?)%*r5<4%(A-9&;pNSJ_ytZxmU9wirWwWv4Y_vl~>D4rux${->T
zGlW*}NLDv*RlJ3A9xkyK1G!<Z<SxYTremRC;B-q$=>|XK;tDso8y+xA0TSV2i|$hf
zx_}H4s+64JUJk+5KRm!zk2r9<c?dSm9J|ejVoJo6>3UokzZT-Ojf1MK;4ms&#SLjM
ze3cePSCXRQ{-|1evz>AcN^ad4?6iObaVQ{%NXf;iI6|?26RmY@miRfcxJ-_#UnTxd
z6m%3*g?=(0A-cDdI~Fv{Y;zbc2N&#>PIzLHcE}Ja84o4H3iX?Z*<ml9L=Z|AE4m!4
zn@M|rUnOYJOHUwvWv-x5Z!V}-)HRPAS%I$EZWk7<Y#ulIhz5SKS_^+75O>*5@tn#X
zGtTXdPfVDhwPzJnyeI@d9dY<&b@EvQ9)CKY<2atntMcG;`H_5X^$uPV!-F$8n|HeC
z3;+<a0FRynho|D)v*GY?W?sza1oLrST7X?gMF!pu90zVY7i|9c(MG`IlU`haokmE}
zrf?6U1jQrkABIQxC1Of2;PR4W;cy5=PQp&~LO>o^1UpzWI1owcty=4jiyw3l+TPKv
zTEiVa-TIch9<G7mLzR*{+-t-Ehv2}ft-21Q;Fq0iHF7;cI?{{RiQc)opn~sJIum!S
z{og7LL5T}MC3ryz$=LU%m?L7hLm0B!ZnNg#wVbtSu!&|<8}lJH$u%bv%1xCntxA_<
zU>C=z1o2gCbZv&%O?ZTmh<umSO}L>-+ms}P0!B}O?X#g=&9QI-#k7{vk4A|2|6(@X
zxVT26&HZrllNq^9um1SM^A4QL#Vv|U8VpZTa(N1#y_a0Tr^`*VOI!Iv^edfs_KxFu
z!yH5TLY)wv6)eDyxb5JkeY}dJnHl{KiMY=zRf4-t0$q<_!Dj+o#*7#AsSFi3zydTd
zc@lr~=y$rf-tThhtpGo?7Zvx4A3hz4<borPqe{O;0#E=G=eL-{@mqvDCl1u8IF5dc
z1-R|OJio;{1i?ipWcV%8CA9GxTHYtLx^1-G(B0xNjZrOAPE#ykYW0@EN#w^vR{TgF
zKTsvOiX(0eQMV(>Qwf6oc%b92!^00;n7hjbI=Cd&#FXe&b%<3R)LH5f?ATVUTQHA@
zE7M{=)6G?HIa8Rphz<razrDmUBVV^Dcp1(nveBl?a4I2UlO5Xv4%VjG$KzU|DoM$K
zrxmb+llJlVwp~u!a%mgR@aFTf2J@TM*lnBzDIEOv2#2eInl(1=UQhL*3-tMbsx8Dg
zxwIVk%OV|lW`RE`&-~Z&pod%VbLg1}hySo^!A{dv>1y{$68=p4c&MBmX2#60iwuel
z8tC#h&T_UNbs_OPVEpledNvG0AlY?rqZg3%y_XZ0`A)SU4Es$-rE|p}7X^_z;4bIm
z&>e=c?wA3Q-62}R<#=O{VHaS|=lDbebFiDc1McTW&t;&H$6;br{23|%4g<DLS=#+e
zhwBYyba7+6QpIoa=W~Vre13O-^j6p%i-p|**Lh83MS&ZTScXUV^5Kk1(Bd!P3H=3v
z?*0PYV|OOSE!v~p7!9capJwQmX!jHnew?3~tXc49e0c1whEwNGs^&R1Ta4Po7ifE7
zx6NI~2E3D+VsP<*k8ZlDx_Qz^H)$Z&JiPJp>!#U0_4e<E+ox{r+ovD0$ip4M<>o%4
z&Ioj{dl(h}GHC^lH7en-(FSCbg}NtpFnH*OJ}UelceomKXOr$QO?0iO=(XFfQg`(T
zyCnjvYu+VUqH`yym3;j8=t$%=G}Fa=E?IT;NL<WCf4m6i*N?yAp!8_&Gul+Q8~&b+
zK><daq5vx92I)2&iRcBh773U_6{pf4zh;3c<Wa#QU8c<f6BjewMC{OJ>8NV5i8!OH
zu}pfWGYUTJs8aFjaXXAF6tb1XuTfWR<y$wp<GwHr>~Mgpblg?knp11}IQ1Rj<9Nh;
z`+i=yrEtq%MRuDEN4M>17xG8n8H_$U?c-tesd$mBBqh#VU{1yuQX|UH=VSOKp!R2E
zloqFFlmQK43d1?VDdbZ*=`C>`!%JMp;U}W9h_l9Z2`q>tvl@<f^d#Z`lEHyO+;N~k
zfykxcj$D1XKw<;~(D;p7S}!S#962Ez;ymz)5q1jdvmkOBr?AZ*;6H*OHFHHAZe`+a
z`dn$;AEZDcW)xscK%R<&O((q|9qZ6s3dY1aw_HAlktcE<9f_Luzi4|Gu&Azc4S20R
zdj<ps<)Yk-4hT354qk#$(Z~!k0}S^;L=#bv0To5mXoHDuCq#`J;^2j#(c>ATm`0jZ
z2Ag<EBAA%qwK0$?O`2kBY>sVndQ#h_Jw46;erwMFx%52e`Tyr9PuzR<UibB_@BV!o
z3a+%*mocEAziHR7dOQFQH5D%7vP~YFV^;m$qE-D5#80>C8ZCkf;=ISHBVJb~UiVzP
zjA|X!7mz5JnO_%eQ`Zw(#wmf0r5X)))mK&E(u4Z9s;dhh_eZhrqHP)!8{sYH7%J8c
ztp|;P4mFCOq>ICGlKE&CdZNF2UZIR%AyyOWxvUvTo@>-pp(&hyE$AqgYZ?44)ubo*
z1@0@<M!#joWxU;QFwv;e82$wVZd}5R<!H330-}Vff|R0u0LBFX#?Q_}w1mJ7i8JkW
zT3hJa{DJ(Z<(6oda=}$_e*t5hgTW<&zU<r8uoOnQ>h?==1wgx>7~x;fnZLok8f{1l
zXY!6{gS~02d*(Z<yZyVH*uSGDu?m$wmf^dKvP~Vt75EWxxmL-S<jh|pFKJ>`;-Qys
zSm134hdh@k*~~omQfAgJ#aw3-)8eO-G;YnW2GY|`p_QBN)jh^%R~wt2Gp^PcSNR#A
z10@U-<(vdRJ;pje<1@5kZ(X5j82$X4{@IN;s}Zk5yXW0G+(GQR2-eIf*JB&iSxe<^
zcU`r6^{=V1Rid$*#=2GRXRjDnKWluhiIf$P^;R=?-Fo-xdh=5LJNKFuKrvn%PfBXd
zmxfJ-75cF;Eaw)!mY|U~)K-&(g~AqhJ;bE?uf9TX1%4K|>#jf<oh2R_xAUx}9J8;R
zyTyVb3F<#bLzr~5``ya}33I;a8>M4(ZFHIl>R_x;t5C<%#4ECvN{_i!e>AK3o!_2U
z3GKPi#zHQ9=nw=8H8i!PBO258kG6BSU*Z+Ki6=v!bIq+{o4Z{Yl5?ZDEHu{3Mn9F(
zJYie()AZGHD0z)4KezNpcikTb46}c(hPt<sS7(3rLvU5l@A(^_V8({k#!Ypg1Us>=
zpae}U#x31aR;DI*p(C>Pr&(Q*VI?J`a;u|N>_G2_+#2V8x8!`zygNV7+}ND$zK%ol
zL-)JRx_Yw}NTIBgwrTT!x>sLy*In|k-iFBk(7NlKmTqTV+Q?~_=2@@eZr(fT<qway
zc%1f^>Y7;6cf896_H1H)XyD5>!ud;(2hPJ*LI#3_;~BBY?u@@_;$Z<l@(hhmu<id`
ziJ@Y^SecU=jAii8sFsx39h%;AO8ruuhp1?d^=fPjuUByyRKY60nRNm{?606Hvm_Nm
zB)#Z)zS<+<3$RUW#5_r|c(x>fVMxEy`Fz`O8YKE5>|*q*xAz5uBmK=W710NItx8QO
z=0!k<n_U`6es}@y64Y|~XZAiV$~hOHU>SrLDh!T!0g|58gQQm0vB&A2Xbb)R&7-dc
zvQYeA%GCaauvpzbhyfJV5drlF`H6XW!D|G7e$@6G1QV4^GWo!DVDy|X&I7EB^?vlq
z4Mw@KnSF?TWbeDLJFj}^W5N;c5Knf($Qo7Z%IBoL`h<{E7G0o5Dkxl}SIK&$h>u6&
zYXj?o#_b-y)8QFo!C8TBa?VE_+zA?hDwkLI&-3TYXqWMAuLqxdABSY-(aYUW*U`7J
zYyzC2t#<oE5SzSpG4#IYPND)c(HqvOIi7NNmTtr$!@a!Ij>yvNS!;9w1uslJ6233r
z6wno;i;POM$+7;I9?q`*2<gTfSDvu8*Mi@q#vT=onRn|iK?NB%Z?%ag{U#=TTB7aQ
z^QLscEdgtV3?w}qDB<}LNxIPV)gQbILZ#oL(t@91Y=fj?%j;P#mFC;=e0ja({Q+~=
z@_Ln7c_XpYYO(#|pBFhd0bS&qc~Ope_gHi{4jkw&?3~2EUIGO04PHRN9X8-S8`nAu
z%_^2_<9_%N$TD8!YW6U!6V917?*FchYu4g*K3?Y#VrpWsD23yUQ#%q5l{*}4kVOm?
zCcq<{pWp1`onZb0m|d$^S<$bxhBungNTI-8m&m-~W@eZq=DV*IE5D%lfBju6f74tq
zRjB3zcie85U{F$SDj4(uAl6`a9&WD2S!Z3K$>NuTjDTM|b68mP+?^#!?`BE<W?99$
zshN7tAR$6QEB|0%^25I(vXcI((FN8a02T^NDhj3T1LHH7G9u}U)dIpK*wx>lt)*nn
zb2^bhQKrG;M5>h&OG@<)w>tfRDA35j9|?YguUQ&JnByxaXo-!7nvRmevkU8+{?|dS
z2s&vPd3X`cEsKGX<QT|k;wtbopXP|C7qwgh7vd!#BoE~lSATfXWadB&XRAH*U2C?W
zg7=(;B?AgLA7}mm88rZeicv$7R7HR-GO7a96oIP)2mpVOZ#gJbhKebitOm7I^%CS2
z2zSu)r~kP_l%uk1zxLS2-D%fIMyb!($8B7?=-%6-Rbd_}f@d>sUnbB&rNnK5Gy&M@
z3fYR)Z>Nbeux;GfCxJPG)e@`aezJ%dH1IT}<Vt%WPjI!9i(L#e1h)p%O!WEmU|Iiv
zQ5G!QVA;VL0Pwrqbsytws00oa3^jmwuCWda1JH7>{>aV)07G30GNpIs)!uh&x@-BG
z?hbLb2PUt1xe+z4iLHN*0S^X<+ue*=8`BngLV7DN={Z<(m~YdB`30o#L?0RB3f<QP
zE_y_ukK#U|_b204)<AkX#+{!2I)f>A`GVraw7z__2Ki-L$AmO`6N9N2_rbJ|eDiL0
z-FHh!&7;<2^UriA`p7I?+(!*|b+<M)AB3i@?k;e~kS+slTC~`M_n;JHeVNerOPcgQ
z0njiyi~CwP-j{pAqM}!(t(IOOO+O%BnFo=jk(eCQE!mgNZ8m3{ne&RHjV!T=T|>3P
zy=iot?Rn;66AScg-AcmIGZ&FV6`iSSRDEoJWuwZu*Q{!?c$&7_R3i#K1$!f&tzA*w
zmv@6Cn90R}RIDzI|C)!r<!3KRu~+}2t-i<#0;4MQsGhT%H0}1OCHU9@$XAQnto8$n
zimZ=PQ-Sn9qS6Be`A&QeVdt^)?&~+qs^)w=TaY$&XMFJ0^BAxNON1i?q8~@&+mi4+
zCk@6Dh(`FsGACfTT&j`!@+zf9NCfF0;oC@Do&G!T0u4+sjqSsFo>poA<4N<a;Pz1;
z*sX)9sU7?QR)Ky^M<mq+n<P6Ipr!W-8$0vd@?Rl30s*Ss>c3zHWn}8d<U!cjT;0v3
z*RMHYIQKo7<a-i`!GhiLY_WLu3oIltqoi_6>4)92SwW}WgqBYFV4lCoRc4z?`xl!^
z{-Rh#2y7LNf|mE!W}fy5HtiQ~`RYKjDI1s^W10`i48NWN)E`l)&R=xPS-|}54Cua{
z`A$7>S$_Q@aA1>(13L}u-31cyq$ezRdCE0scPlqe%Lam?)%~E_D~X}m$ywj$stlEs
z)5&jvm?w0yn|jX}^S-wFcO;yK!8PdQ;f0B54JhInTuUscTPi5#Bgssr#_-K<sm#WM
zda?RyvHEI;Hk#ODZrH;-BVtc>d6&<*(#%bp+;9KIql#W|YAFT?%Q>rj8(?|~kTYH_
zYY2cU-<H$=QVOjW8GEQIPW4xxVl~OQtBkMN+oX+;B#<I7Ti<&1JXn(4jl^zsy~vr#
zyMSY{`G}pcy52O^G`eyI#!u^*1=kRGeLR)p)u6eXuh+Pmg(t{Uh3sT^i|fqkH^5A|
z&YgWddmz2+FYpd=xfcQGO5N8!*n1eJIreW`x8T*>OYCH^YlM`F&%gufKwkbqTLGK0
zi?&#RtP4K~*t)#S>H=s@s$2yBkv4i!e}S>P=gEo0<_de)=87tE^Y>oigmBYyXTT!{
zRPU)rl$CG^UlYzamh~Tx4NP7T{TlOdO_enZA0><EE5DjnlR4UcHWTKv2>0k}UFYb8
zIVZ+c>wYv^y_tX3cK3X!Ih5yl__#O&E$0YvH{hWt4ERr2*;!~5v0UQb&HvyD0k6F7
zRw@rQ#MCm~ln?YjWp9Obska%|EU{L9q(9&4M$s0`&En>nXHRy9HUsAk8ng<Z0`Yp9
zWd_Xq+(dS~5KoxAVt?o{{oasx{SGjl@8lhTC3AP^mMObJSeXB;l2}v7nh8KNW4GJi
zD!)2I7ts?jFghXg<mig=T_L?G+wEp~S3VDiwGeM-O7|+u>T+O3+#i-%(E^L*j*!fF
z?!PP4;n*2^Cv#uOmYLhx+?u-y_UJ!W@c3Q%8{+oJ@o6hiqt#%D32?TJ#HcReV=!OQ
z4tUsEw%_o1w64(pK$){m%_FcxK~qo!TA!w`{tK%FyaL$f=gujd!2Y7pm0C7a^Vg#L
zj)bt(BEKlofEG*8GQX70#tlqdRf0pDD~$jQeZ>x<_G<+mS|j+W0CG-uhSa1Pj(ONm
zv&72ze!@Y@Y$eXxxBB<05|<{-S2rAHlcH9oeG!vVXW9HF!G~D;E>9>GNXg%d&R_R6
zA^^O~hZzTwGrIbSGr_^hnF`JoAnb}Auj?|qv|R$iphj0<7W(Y6>+tIU*-#iPz$->f
zqgU!&MIE@?D5pYeBchlS#7^2=lJL@c>IuLsov!b*T(Udnng-IB6b$zGuWKvk&pB8-
zZ+LAV9%Y4Ka}!i@S3NkXO2*UwT!|loyTkz7hhwRM^!bw+kt+~rF`%chE%-Swc~uE`
zhIO`q7`TbK*va*ME*xCvkB)J;5rF5T6M$6$+JG#WOFR(hI=L9A7SIpa_dzT!Q4wf+
z>A74_`b-3Bf>aKxtvFu2_lgRY>lgZvG*wWWPyu|e|M1R+7x$tHD9zZUxYWuV0-4G4
za%BL~@Rl$d;}1Bz8+<%JoQT%%Y2j7G`=^38fdGk3&#y1@^?q_-ylHF;J3aK|G*JWM
zp)e!U*v7BDLi=V{li1cqEf8a?t36$8Q{y;x(%pQmrnwKb%06zUUw<fWCY*PfE^wAv
zLSWT61?vTtr5zJVQ@~01%ekAY#A`T0-#vfBd;>l!yu7-kvhQje(JE&)(4o7z%d;cF
z+}x7wIj5$lFWfWoMtIo$rWuFB32b&_uo6AR7NGD&&p?~UnMQO&@yug2u0~}BK&Dog
z+3qDe$~<Nh;Eq(@X93MO9xiZS%O!AWEW~0Tbuk+YD;5`jrN#o9>!-Hn$VyZ!7qfuV
zr?)>=I9nGpD@se=h~UO5UCh*}IkK`}o>~&{u?GOs{6|ol--}w1a;O%L7rzCe7x-CO
zK%ZbEhEFh>0j?W38DbHnB9j<f1@^^cf^(wwZ3t$VVYkf{P+IH?6u_?3p{E_9+UcRJ
z%fMeYSLhWt?-C~%=3?6XN_OL_a#zJ}RKP*47~X05h4aDbgPI`_wjPAtdyBQGVU5mQ
zl;7*p(7%mr1H`{7_QB(B{+Zb|=8l-&pJ{puWPyK-(>_(IS@O@bs})@0hA{wZ{Inm|
zSd@~gqy?<uds3-JIGUopRWCNGE`am7K&?HkRTfLdJgSg1q+iVKN<L#)Y50;=I^IuP
z?bLZ!lEsZXkQ!B+WiiQ5@z#=(W1e$I8*$L0OKBm;s@NJ=qquXS<25RIjY~c#b+^0D
zzg1%Hdn8-?7VzE(bKgRX_B<8MbIG}`AW+BdmgZMqIVCX0SYQmR>pUoR=+6|l*S)g>
zR5QNx0A5jSVq${bhe)HRb>zBmHfXQR%`ch;@F0&Ke6u~AqkOR*Aq?K8P-2&Tj6KKc
zvo-to+nS@^wKa#`ur-rbAwZN12iP|Ie>5D904@TK!b?k@w^TN}1WZ32#ZCj@*u&V<
z0<$Y!%peFeP(V#V<ATL#90Er+X+-yDVnr1Y#1=PmvE2;DdtTf;o`K84bsVcg?maP}
z@j%;<>EU382kDswxOT5`HDmSYHE4mkxrmwE*Vr6QR#Af{zi5M|uxRbM!nqvCwUg}&
z-BR@27$;esjKz*1`;IZrkdTr9X^C_^zgV6)%Q@~aM1^Lf)%cd{q`7&T$#~v%l6g-U
zZD=&+#AtmdHq)KE*<^D)(B%p0-n>NK|Ij`MiGbp;b*gq%xAn9U9`~se_;7Us7c3Ue
z4iKB=GwcG|`55g?UZ~d$w!v<(uEn457p|UiH|KVa>Q_A%lhD`J8M>hw-xW>$u(V_V
zXT3A*PGn2yvH7Q---?sqTN{G<3A8DV0-ZcP8Q{^}1gB(u)xgLp3E#5{_gJPq%e14J
zy97J5?gZG?^mSh;OzYF>n4Xxafo3XTB=Qq+Msk%iLi}aCB9+koZ5>Fr?!$I;iG3<$
zLpW661~29WhYVmYqJ0qK_0|E3EA>R&G|aE-of7N_O#AZA`Ez-$k)kQPz)Hi~UVsOK
zGc6TES~NH$P_Pb6`qv67{Tk#7hS*ExIsl|O=+%N=u)S+&GX>Y>mVQ1Q+9gncNnT<9
zX*e2sc3gaggJ_7dHrLp?!NNjd?vz>#4btAMu5~B!G|V0|%TT(U$vX=Ti-YfYz<2kG
z(GDH~G^Cv2KZxg0x_W_!O^S>lW^ZIeX|W}TwMJ|ydSle5YxhNLxpT_q3RKR*Is%%g
z%f+s7Sa#>bHkUu1Ti<$mGdrE@@_*6AtTvZMDf$B(8$xeS`Fij${Z<PJx`NgB_R2MR
z>jUR2KJJ9Sy~Ew+tAybWb`BqTW$0pwpGFKIut^tMQ|+rwV!74FX}*DXl)+&jQHwCX
z{5+Sx*wYt@`@&G$=!$W@G^iDY{F)Eh^_>=pq|v{&gZ&bJc%Gv?`|n}Tq+-GsuyDc$
z9@^IPe=6qV=?6i`NSM>I!ByXW6gQrb6Xm7{^3FEAVkap?{4}f_Xv0q`2j={%e<~&M
z*4^9>414;_8z!$rMF)O4Ayjws&&|yfzlC_+%{RMSn-dd?l_gP5+#Q(c6=Cn`-{VYq
zPo{D_AnAd!j;R-$@(;!WBDIwswx?uGzH_#2#9xzZqYd$d1^`r%#1;odYR`dz2o-$5
z766}j$KYyd&0+-yruUu%U3gOI{(i0tv}L`3sV$&zKA4IR%vpSOYK|N?Wv%$?Z5MrJ
z(q8G8`o2f0c!lOEC<%>g3;e2-=RQtB5ev<(!vd(bXu-I;<|y~T|4Lbb`O|TnD!uH`
zmQ=8MQN$gKW!VBhU2F53;*f1Yv^x#1nOKwOEs$^(XLvVL<_V*W4>ET;qO`i`)O<@%
z+wJx!tBY{)>ShpEY_Lj^k`AQVq~lcq6^hvaay_V6pl}R^Guao~LtOZH9&O|}wuLr6
zR&Y35mJ(+`v#s)V=9NN#@!an#L$1ec8qXFc>Kk)Yn)(LPfjrNNIt|0?tZ8%^-)~d|
zf%k47EMis?%o@Qh_ASrW_AL+;e}P5Yw>%}SkDz|b_bHG70-DkoEM-s_`Z#PiFTgm(
zY6fF9-8>K5@1>*2tt;y96Zl=(fCD&5BrBa3)QY*Th!QW+?5L}Dwx+R9`#!+#8#d3Q
zjVh!3?wUrZWw}~SijlbbBGRlirhiciV>Of`en-Kd8CI|MV}01g^B)aNo}1tIu2+!>
z69a>1gw(AlDZoGGIOz1%7yCH5)6DJqz0EZa!8^TG#mkvG_Mw{PW%{x9>MGsz;`!rB
zu&142&%yQ*V&D7asm`$ISa)XcgVw1gKP!KAYTLSym`E<7CLXdC>PBpuehY+-K>`s+
zY0G`;&F#7l0YX`oFLCbPRBr!AK`&e3UG*lmUxCmCv~^p@4BtAzfY&qvi3$*mgmsMd
z{g)_*08e@bL8D|yPGvV?7$lC;%T^1y)d%of<A{zzCKUCP2kQ@=B7(5n?L~lMAtHLU
zif-3mYg~P+uu_#&bBIyuWRq(4vCpUQkiXm9$j$2+NVnk>(Y|h-#!lP&B1o*v7GkCJ
zKE%Yw2gSrX<!DS@dyB1)j4}LEr7@b|@^6w4EbU6SmjY{?8wku$ZJh&o%-gDH8;hd=
z6Qrt=)uXY*ZkM24TP?nI12Mq-w-(@t3Y{R%OJTYOO8y5PSJ>4<(|^S#6*#SXr<Q>#
z-X(>v92+<x{&a=Zpx5ju;vpxj?h%J(8%q}PS9?5~X4hu-^}h|PD>S%#MZ7FW&7K{;
zv@7&P!a~Ol7FTYa*d=dU#{4%;?|qQ@2>?QEwnTf~iwa5{?;9%QkeT<E&SgntG)Y^{
zXgKi;(x!Z?LHTI3wIQs;N#*#f*?iP3lQhzpwz`5>^?io*84p2_omLidI!OUcXL--?
zw+5b&Ql4GiJ4Igi>SjJlr+j;xtx$!tyzEb;#OgAZKK%pcZ4AmUVu%ni1ffzyp^-)a
zG~i#V`=A8z=hDw`QOW8ah{PH{feqqN&+K}+03xIS@~y7{+z6sC4(&`E$<t%(peiWV
zq7=L0g_s+3UZC=erz>bYTW)hj+5|A&L=k8<iMjr7un!QuOprp{%nV9iBKr8%P#>0W
z0V#N$i#=`MdaQ6<qWW)!RVR)T_8Ax-yJ3Vx%z@1ntc>&z;A@&Agt}<!7fKBwATTk=
z|Mrf5m$;71J+w`QJHpnkBB(2;EYTtyM(}7jNjEV!0k_-KLtVGIo8L7zx91E@&I^Uv
z)z<vLeHz_1M2^406&#V}Q5k;(`QFRSd)PD|qg$V6g(PwAWT)Ccy1FW%rwyaR7{(~0
z$xGfAIe16L8!yiJnYD3!?m!e#R}=BqC^v4f+|XUZ;IkyU!{D(ZC_9N*3DB#&&}}&I
znCmykYw<WQ4vyA0M6q5^hodFb@Xc%p3k?<<)Ome}p^Vrsf)`q!HN%#W)#nc4ceD;;
zzmGOu|3DPJ3KC$uE|v-)JUTqAA0Qn1rm`6y47Fr|>1$KNCH(7poMoH)Hf3wC!=m_r
zxvv3taET2w_qlL~FgP$Zk6X0YWzjx-$&~gxS*!k114k%GKoxRwmtP+65S(oLHH{nN
z5-{})oFLuT1(ZL7t<qi>Yx9iGTjrWu5o4dhp+J@Y@gDY?yM-YLba84vv)ko);a%km
zRxWh#imrr(ai5o^1oC4#F9jgA85j~en(pgDtMiNjl-J#yJ&>NS5elu*;kU2=VWA&r
znm1k7G&fuZ#(G!N{CKX>)vOevX+87Mu$95m(_b<0Kz+`27>1e6e4SUlB7u-5l&b=w
zKTGA~Ht<A8S5<0x4qK@Ca>aip!4mz7<OvmzV`|b8#~FMtSjrZ)Z%fcleT&KrU;27Z
zrlIrqQ7Hs1d8?qP&~@5`PO|B%4@<9u6@W1A<~^@S&`h7iD893ker7B!OMAs|_Z<)5
z0!L6;bQ{Sk{x^YD1R{CHK5U+Nu@Eojzv$xGYj|JNS6|WwK2xqBtY=nWlf;8M0f~4e
zVA{Jnc8Q!}hTCs3A#p}(cwhHGa()Z%^VNH1gV=9ZlVFaX*@P{chr{u(rm2q4v^Li9
z2Sq<m0X?pH3#;;XTrVSQR7Cs(R!6WScEtYWrL%Mhpi3x{b-fW$EU(h0+KDjasHNBQ
zo$`K*ZT?TkY`xP4nz82AK{VhrpYw!mK^#?l(VNZ*#LYKB2{G4pAZ;%Kq}JFCg;N`N
zpwUoKzOc3+-&uVkZJ<2c(hD=}sY=*Z0Lf@*KQ&Z}hGhNTFgfx~HX-UJoAf}o9W`Q)
zm+y?{Ieqy(?1>n*MVM{Tg(@m-K>hQTmn#GE1LR}XCmN!rmq_=Pm*w$MU5^$d>#7o~
z!E{mMd(e2-IZx=ZqMcz08)VD-`j8?xzNjabTjL{V&jPVq7&$ij3+bSta*NJ80qOHf
zQ}v0w!04%90cfY5!LoL$Ba=)8&anGSgnu^Su15w9QJvE9Cs~0L;_#-lz0X@ZgL<N?
zaucmgK9JfEX3pjs^)+VK=8DN32%OeY@PyEdfD4W&cm<JIr#)(J3`xt9_R3HBP&3#N
z3XBEA_O^1;K^LH`6yt*a89};ARai13=`^kHQ~abRm#l_wHe4u3&rJy3>@o@ZIueJt
zbJXXXZ<fPLoFI4<IPbAI$OUkO_Z6x@p@H!QuSB2+h>GUv4~e>@v+KkdQ&q+oA`OCj
zBGTaFqCjs&!3k8KmhRv166fTo%S(7*Andy=gd3DF^YhB-IX1-TKl3BH?|awmdaX*K
zRoA^p=&4)e(H7F*8rdm*KJ^TFv)TB#GD0gpUJ^<tmOdLJv+*$H9Kys))rB@n4Cobc
zcFg?WGY=j%^Fx^j51RS&nFm|U{6OZx{bs&5^WYvc-<^4|`CyZey8QyY_s^lL%%)ga
zmkTj$6qJU&Q}AewdQ<ci77yrD_+@hWgZKUqar_{Ohi(|Rqk&KPII15<qOW!!x?x?J
z;HU9UTRHW3`P7Dxw1BKG&28V7!&ZSHz<X6NX_2`IdPj#R>~clyY~9waw&uWWn4n3G
z4}Td&Un`ggU@JMr5xh*H*<hZOm4);Gm8G~R7c2xxi+jQ_;GC4_Bj|pQazBdhi4>Q0
zZue4p+{IxRz4!=viVMI;wJIsIT_sc)#Mz9$ENU1Pl(u~iOjaXL;yEk=pc_jG8gR|P
zl^~9wEhm;R=16EvgcfXjh5|6#v(S|f3JFv}T%ih92A2<0AH3^=t#ei2Us-(OR)Rru
zv)2~kJt5l{VH6Pb1EJ7>#(vlz+`=xn)tT*@BWn4=Kyr~?Edf1Tfm3^~T1LE$Q4N>n
z0Yy(%!zJ);#J>fZ$ma<;1=eus<jWAVNCLI7vH7^rtfCnXh33WC!oNh0onTB`i!-b6
z`8CTBi?+CbdYM!^rGIwqcRU9oq~|yz3bZR)4WStz^C8?UISky8LGS}$nA2HVT!)Be
zTz>2^yHb^PuR!`iSF^H6D@p%wz8a_Y-wz%51efRc?!KvvW`2P)-xkk9yvNtwb;*70
z-GIX*M8&5=ux!4w1WcX^^(T@v6!%tBiiU65R7l1<ht`eL+E}-j^+&P*MG@^`2Nw4(
zE2s(%<YRR~k0(d5G&yL=zPg3D29m2wzSI66hEMOSt$g8T_j#B~Cl|vujN@%6{q02<
zzJD(;{Zz7nE4NeVb~WEFR7R8GS<yz`(impSP?<?Xx5>WZ?zaT`cuT1<0_`vFhI__T
zffKztTPTiSW~;tEhY0~+&e|)zo*Ym(Q?jvXvL+TBSlkXh(n7?(ns4$mvptb%VbKdZ
z8f176g(c-w@X&j3NYMGqaeK-Z8NQT{PS*T4J8|N~%d}d)-n>gBPCLZSSD4RSwO>6n
z23irQjfSe778+UT>%gK2?a}s2K9KSG&It7tw&ab|XB4ow!A{m+;F7ud^!MgV0c+>2
zb+F~M#oIp-Ht6`c33;BB*0nc}VKMzY^vM+RI1aVnL$^(Aj=A|vgIoGW4V#BPYe?nk
z(@34Z@);6*57%M~HKj^V3NYS=W@)Wr&))t!cJg-n1-^C=$P{b|AZtj5NOSl6TB3EH
z(2khv`A$U~p&8+Xd%|kVuWag_5)^GC7n*Z#=68l{%Q3~ZmS^Aboa+ql)*n}!=t;;L
ziwV8}Y2_w*hQ*CFf$_x|B}^hP)E5dSBi}JBb_;CCq!KD3Z!S1*De44g+X)qLup-*?
zC-S4x_C|xIK$nFe{0vE*ei^=y@6vXvI9Mq>BxjiKiB~_ttM)-#0C46vdYa?y$stI`
z*Lp(u_@3O7SsD?y)btfX7L^Xr_DuLqoF8lz+Fi;L^K9)@>E41?2S44WWP(tXZ3F4^
zib#93-u-63XVfne`tASZ!R67jXR@B^kD%6pXVBLk^WLZ^!a#840}a4hRri51g9f;-
ze~8Uk*_5R7v)&oxtUJR>BL7Q2OdP4uIQWc|91Bpf&{DmAnHnKc;cHHX+rJ!iD%=i*
zFx<3q>G-D6sRtrGA<RXv(`g<X<f=SUsyz}WqI)T=`dItA2532wbmO~Ze|zd;uWTYn
zpSJ?;h2bs=sONZj$sG>^(@i4tgW)-gpg;!D2IAK=7?-YXg~VUvQNg<_-x&y-7QNy=
z7e@h?1dGr}iWMQc1)ij^bHu#(Q*3XEbKUVfKkd|3PJ6+@6YoW7Q55*wxQ^4z5wcDc
zEG-+ZgLQ<n?Ui1gPintpH7{g&gV}vl*#(Z3&$q#D+6VWu%t3(@K2~dede$LNi-F`-
zD;iw@IC96B=PQh#vQIbdd>&RIQ4CxU6|=cU{L%|(Ufv`kQppO?>V{YA*IxnR2R#?%
zW0|)cqY4h?g%krG^WY?dmJw1RA5&6tfP+6?-Ih)GX=o_JhkUy|8tOkWHmsaL20PwU
zxPu+g)Igi@L$Kunjt@;QQ8*uj@w1!dA0>0Yz7?mfI=|athIb)>mR+Y8tK}U<;PT}o
zy7ZcT(j&2MxjCs+H6v;iONySMzx1VGm54HTx3WhT)+DAjE^~MNO4|kh;CE^_X5~%o
zJt=5PDxd`Z%wsJ7X!ANSm^=|zlOYL6&rTxiCV<ievg<8#PB;btvIijDo;&*sLS9e7
z#|NZ%NYemVal1Y=yUrEk+zA8pj$6>kg8g=VYIdEiRLldS?v781Ar+JzYj^u47!FX%
zt6T6Lm_kBTJN{E~v%xVUKO5?J2M*4OK3a6)fCEm13htC>J;mKf+yN5ZybEsX-Eh-x
z`s&a4t@saA-cW4JJ4e&eoZrz5-e*4DkP1u)^*hIbWd$Rl{2&S6_qxl-T@d7r&0O&p
z#>o&QX6H=6Uh{aV*fpLae}zNF&J5~NXpUK&!W83ZvYQ6z!{x|mn=1JGKo*b)VAO_h
zz#7=ZX%;yQF8}|ZP1}5$)p))cl7-P^e5+a5x&-j;EFcG!G0LFrbgytdJIk>C&3`gC
zXZ$CvFxmNh<aluCs$EvZ{hCO<yc1x_r{6#1feC8JCa=(D;Lj&;a`WNDEWx`9N}lk6
z$)(S`SY;oxk#i$GoX11+3#BlE0dh1IGk=tLZt&<nv`MSsP<GPF&v(HYHM5<I&4jiP
z5MJXVA0u*Y5EdmjwiQ)#Adf&rzg$5!Ln*|({FXdA#>kRF9*<sY=~b+<_36k=z{ZJi
zfSv1T&xCzb3NW0O$WE<U`^obb==C<5f5z8|fo@<0u8GFC8?~=v%cdkO`IJ#gTsJEm
zKzgbrpHdVme1vmdYN4>**(lls-`c4vWizH<P35znj_0}$fG)w+&v|h2O<YnYCBKi0
zVd@le6xAL+scaXdT+wAK)<JMSZf^Cos87D_;;P>=^G#enlWx(!{O)-PF-C4~^Nd!z
zf7HY#X7GS~x`$^IHX$;DJ91G~{0J2P(!Gb=Inf}-f8>{5X5H_?%rsduu_iwNx`8y<
z4y$|G=0Sy8S2))Xe42+HE-91lJ!-205U@+Ddt-Arn2r&@DY%DlnjBSdK3pN;8`?>J
zp%r{{0rYF5)9%G5gm&m}>HX~uwX;Y7Oj}tTRo)wu5*Ql&L^N8GUbmlEJbKCYq_lFJ
z3k4^(8h!z$d1ln?=oLxiFRF<PE7_eiiQJ)JOrvaKDq#3WK8C6t8-XjWJk#zkqU>UW
z3B|N8NZJFE_88Y5m9#IasOZugN>OoNrQF|cP1lSIY=(Cw5`Afpkc30CE>%`#m3o)$
zR8=taZ1IUs&7Vr13U9GkD@}-D8j!Ibyf<-s&F6W@u#(-o;s%>3k6zMZ7+CuWi%(mF
zG`1!=SgDPb!t7}5Wsi6PMVab8(<iXl-ZJN~nX?lFML9<uQ#PBOj~kZMWJVeq>|Zj&
zj68irR0@_&Gj78YtEGPy2@{cyn=Em`{kluZEF`>eMkLR!wZPw1&e!)-RvhT2T0<Q(
z_l9gOk{!E3Gxf5rHRK(~t`Ow@8MC$MrSLoOe)?0iuCioVYXwgZp0>u=6TOM|RwX`g
z137p^`+!zKsAxd@Qo~adM!i?intfw-N;30Xi0(gJa6d|$wwg!GPSM?v40XkFTO<O=
z@wYd0%j#_m-Dbm;7P_qj>TnqhMpO9AS~)0sHG3n%8FF(rmk&iJ6~%@H6l&!7n4HMi
z&{N5=GVD2W{G?X6;>OCwF;VRC;9~tPN9;ON_3KHd5XS^HK;bMbEM5)pPUuj?iRtj3
z7+%?!b!9L`*eeK&>4s+jr~wio9p2w!_1r!IG}(l_g(tpjJL&nUg?wOq?|xe5d)Gtn
zJ`h%0ydM^&sCei1Kr2te00Iq#`h)!ap_oxRt2YssGI^`O1BC7dHSuo#n_<icRr)r&
z?ap$}FU}GcbNJYgV_C+=ENvDLpo~aEq-H~?q57yiEODFyPf8xTh@@e8=!jzaG&02U
z`>`CQECk{Oy9#xF+4fCoPo%Auk3~;KB#1~LHvLvjEBvcs<(Zl<px3+Y7tZF&qYW(<
zQy^DGm)FDsn$MlBPnT$H>Fpx^`#sk9e;(ks(%Sh3h#ft=t}vaGrO`GpzU(Wcsg$%I
z<RXV1k~YHiOCZSS{t3y-)o4=uhmjj{w8b_s5lP63NE^R<LYyg}$lnxFG{PHN(}lV=
z-%nzg!R8dvveV~M_Y|>GxE4N;pSF_s3&)x9=^qs-962bHsW4p{9L+&78VCFuvypWV
zTYwaN=H1nT1QF9uV;mY7St$0SKJxu|XR}|_pMy+&-!9pLlJa257EzLN`F*?O9+XrM
zmfRyshJR<9%_u3Xwqh;GqeA<^G-WNzFivQq$N}4Zy^CmQzL>x~ihtCvu7w2DHOM_q
zfzy_QLhoT)=|I?_2$IZSy{wSbHl;XMa3pYbC_0><2|XbZ)Q_PXQuv83de-cF23s=Z
zgkm<B9PtBRsyw2~SgTbEfWDCT9$YZD+e@JzT=dX>J)EYN)4?A~j77Vhp7CdIal~Lp
zt#=Xx6Vno$Z<x+{kai-a(yjSh%qSd#VHM%q!WIV1*0Pd-x&EIj4eU*Vu8P?;Pw8g_
zbcsA9!zw66lmvU}wu4DJ(zKpSnbQ|ETRT)Na83}^$aCt^^6!)y^8>p_Ju>AwQhokY
zFc!fMq`p9Ij-fgy|6dG$sJ6(1pgqS3%)rpFrErH-33}~KlU8%j*2?Di6_@N>9Fkm{
znGn(o7wP_nH`!0dSSEcv$(kIu&(b?3^2sQ}LN*gvmic97UoSM|^~Rb;-PB*id^P)P
zstO-camdU2VL_%K737HY_ULSb?Wl>xYxb8{6i)v}q2S?#G%eJOOwF_mZ$_qp4>r?6
z&3vN}ni(pj*+b2!shK^)n^AwQnLX6ZHwvMdp+cI2<)*^v5;b!Wc4L~<>B6}phDnUY
z=e1LKLFR=Q)KcLEjVgm%bLR5^uvnT>9?ml){FDM<(S!;pT*^@4rz!wuO--pPTxC4P
zjh&Lwqw;Q&$-76L>}z{8zH3l-c1%fx7vUbG&i=7{Y{7lvv3O$kRXx(&txC=ApT#KM
zUKaC{emEn#0g4b<l%OM&V;0%1)jf!~nqi-bJ$x(i{(`-;BH6Zbt0JctUVzpn`O&SH
z+2z6ulDLH`Z6oWxlyM0GoR?VP1u$1A(8GE*Ug`lzv3$Bt2T8|l=+?;D#><zKH@N!V
z;1-U(S2oa<^&lvnBG~7MG$pBX*i~YF9yNLMwkla);E2PaNaq_7t0wxv)z=zs%aHT{
z;c*Bmt>RMFMp*t%Z=iozOSfq3Xq3WoixW^4`a(JO2VI7r!XDu|vJ?A6zwwEsV7#Ko
z^vIKO3KKoWGCFbTWEmb@JPZ+(=2O;RmY%YTq0rSk6uN~g8#i~3`(<h8IOR32zSp=V
zhi0>9+Am8z)0Ee^`d;IfUQc)M4tK}986Au^Uty>xr0i2z?LcYHy|_L4sFFk|_e&~n
ztiGy$&teYWPJ}s0m;7oKGPtox-Xwk^a!JY7_@s6fM0cLLzA}7UzE0#!<|MmQc1F0m
zJd$uLZf`yS2dEFs5;z!d*9bitbt6-pb21#}_fFxVU@J2{;REcD9!OA0@3<^={ahc1
z$L?nK##*vpV)BejOIqw}bfUIu-;&^bXN+!gai)Lt@!0+bPxzgxvPnJqkXf}XtvtJ=
zc4?Pwhn|u_?tFYk^r=j6%42UO=>q+0|7zHz+8JXs3@B3>v7uN8zr~bf^#=4&b0Au$
z)PBbDFQBlDN&J5S!@K9N_~Oz$OrB6yUgD6xuf({i?}J&Rpf`LmNcNsAZ}i*5GH62X
z#T_*Kv(^2*kSkZ`h349(J382gs{mlsxym-YcJ(!?Xa9U^Z?tYfOKl=)h*<k*b>7RP
zKh<}Rh7?BcX$A}SSAu|5mDPP@|FYHnw(GTxAHSRN8q2yycOOpP`0;C?hznpr!G36F
z#<l8$X4h6oQ$)SAl;vIOiAlXvAUVx4l;=2Sx{t8mp$+McG7p6+jxPgANlRLF=CJk(
zQtPgzR|~7ftH_w7oeuOIwaGB>#0!g~O3GN$#6@4WX|HIScoqus`zt+>ev7+T5$Z@R
z)J1e>>&D&nD_wGMmLcA+K_lJ0b6$Hz-Nd7*@T4+N<mi&fng0dr@%@@T)DF1Mujakx
zDD_l)l-A0UB1dQTwkK$>0N;H!?=^k77)8y!7`VAsXrOYt!S@|QEnvq>o=C0T2HC>D
zqy#A;;-V{R*QFJ}$a1%UMd8^U6a!9uk@{`^zYUUYocG$_zjKI-=e_p)cMQ=o@3p1>
z%McU)FGGYb&|VQ4sk@=)@h`KtWWVI7h=DCz-AA%LEuWHovZW0nrO0>orQ^Ij7lQNM
z0vwdJw@5_3LLB)yPtdKE{>hP(i?h0vG^!*WJ8qd`$9<l^3;qTY`@z^AlPa9foq0<d
zBx@f$<0xxG*t{##@=LEo5uObJf}3|G%BK8Ohh$vU7fjb*6)1Q^2nzvj%+BbTme~>_
zg6KB97V;X_cjFZB&lO1fkZxWJrp{~O42YF_5FCstP%3B60>%&jEwKRI@Zaz*;brqq
zvYZVeCquL+*}PX+nU=zKL)`rO{FBm2bZu>Ur6t5ImCXAI5baOcydSet?T=Apq+7b$
z@)J?u$0(pGo%iavd~G{#2`PP5{c8KG+IDcJsxA~T&Budzul889ulAsjsU@VP9kSo~
z*(UQ_fkWtY+k)4NdZzbI@uQ@*?B4R7h6?SXhwka4^ZP3jM)g<Q%Tn^4psNshg@{W|
ziwR`2;^7GkC2NDUvZT5!NryytGZ!T0FG9$Fq~pD`l+B>5*f62<Ij-moywL=E5;&Vv
zz+bR&bv*<^#K?UHkq9cG+vn;P_JP@^-HXx5jVtcPsgacq0i6=d<0JC88k*HTiQH1a
z6ZTBxB?UZjfRdMg3WJGIBkh^Uy7naE{{+@0dj3@DS^GLubdZ$I)~~BRolEm1mj0&}
z>2^ErE2U$Ppl`15KlKm8Bnh++2Z*Mx-mjF7e(Rm2ygOAXy_o)!Z&oBO@|-VUE;*9!
z1(9z0>KWG3=Ducy<rJD)=v2IVl#}MRX&XRasJl*9ll=)>A81`WS3PU`EqTJ?>A{Qb
ze}s&AB(63|CpRVQ%1fheifsFBMVkj}J(t`q>*HRq=*q3uxf~9pks&3zSrsFmoqZxc
zRG$Ev73_$L4yfQ$HU`|8xgEhgZ4I>lV!o_KgLZ=upo_5L3l$5g2Vip>>t}=Rn{vt|
zY3lL15_tC%#EeoDO2g*>wM7f1JXkAc=G7LV17bPBtl4d<L@Um*=4Y#-xBwP8!oCN7
zGT6JNH+*~7L7If!afUHnxU9_AcO^C<z;S%p$4x>y&3uskHZh}-?eY2{Io}nINbp0d
zKJK8nkkb`GCAy%!hX2-|Voi(RV>2ioC@3~IrQ&9Gu;Wxj!q_umuo2XmrXAq@^7QD~
z@LdrhnL)`qSh=#tSR5}!#2b6{2?481bn;mJhxW?w{WBJ^8C7Yem&kJfntl(p5xPWz
zX0G<$7z=!wz_zD*$MaX;aMm4nX!w1zIs8EFpOirquaf7K6vx9ScmA31PaS(2Mq8{^
zWqJ?t_zmh>2vAz4H$v3(gc*~&{9BVp+o2O7Uk)s!V0^T7(f^UvRcXs*>szajs>2IY
z3JZYoc5b}oNC>FSzrQI*dSP*d0hF~+n|8#{Sdy0->_C>SNU1!f;zQ^xaE|@VQfj_)
zX^DKS64HrdrJ`XsY*_i6DthUfHLVpPNt@V0S=t;Qx3{`?rCFZd&};6UqS7Y;8F#GQ
zFCUA2w<y-S-|#7<nscQ6K`IFov=1ip?pl-C6)L<yp0~kgLn3vSnX7;<k<kN1%*d*d
zadkYiW?TuNWXR87XkzbVTp1_s-)Ul}Gp@`L_wO~~TccNs#63Q_<IcF^5cfBl*gmR<
z#O+NPSCfVs>ThCCW?Tsug?`z@>V1vgMi#Y<D|+$#ZWAlZxH3)L-$NEPYUqzmY@Tm0
ze?h)NUmO2uV#(e%T0vIFd)sJL!}HSHMyo$GSZJd)&?B$6uc?75uwv;tYxRl6kq;e;
zXgh@Pc8aut)>1^;fI~#MeRfN$`|kOx9(;^s3lxm;6|j*JVZ+;&&^!9=A@9uJ6&4?P
zAmp8*y%FyHYWN>g#n3HlcZLpx9$UOKOs;qV1@|LIWa_#y_A+~;)p_^)Whyo7PrN&!
zyu0*W@7k4jJ%eFB|Dz0ZAieT5c5YDPraAm?$mCc7qN6#y6?e!=r`F0#m7FQE$eE%R
zIa2_$OJ11jmP3`5(4|(|oNZcP!V`HJ@|}D_<{cG*i=~N;F@HPr$cG|I`GibH)Irz*
z*c7?1<&#2Cq>4cZ_8fA<*khBbAO!yk425F#M@$+lv&_$|SmSJ<l#wXV=aG*z3HzLl
z6j$UavL{<wk2jz1u`!!RPP~>tsz`a_?-D#t=vyWif1{;rv@{9jKSTL4k38XH;qjO4
zYYl7Tfw_4S3_sA0;qmhpO`vvRfYyJ0{cIX3Jq~2`X>_j%(6TzbVk^*~6B9VR#KX3+
zDbo_G7-AfQ9g)CAY4Ygk+IJv*&4YNp905@J-gU29%v-vsB_sfo=I8fAx2>z}Um-{=
zGK!-SW!iYHtOA8@K5s!+$QaksQ$I`eZnZ7bShANu2XO;UU&EVA7y@FhuRwWFKa<KR
z+TO37S`@M1<dW#4Spv@_H7^O!dp9~pTjGR1y?+$~Sjc^+vY+i2Y7jypNiz7`<k;{D
zw!O1cmojn?4m9%(*3@-SmMEr@`!9X#m^>RAU$iYOUf&wVM!hq$b<~|AXyf(bpqzw(
zM)xB+5u@JOuq%uqhXrz4gjnvwHuDqTyQa|inL9#Ep?4zpgu27z`8%Nu-%rQxRgYAf
z3L$9{a$ewwWiEzZf7Ck_&oTV#*hwW`K^tQk4&cA3<;d+JGTO<^J23SA$Krj+mdstq
zp&>8c7MeL<)@?&xjcuXvun%M^$GIJLqwhRerzy&4*dMJj78iD0;K!5hYfvlF&A*nV
z)&D|{hM2AS7cw+n`OQ0JC9HQ47%L3Iy0{Neu-Cz$d7XrRRmw~6z4B6pmmb2Gvhvb<
zue_8G27SkwXS$T#)<Y1jdsAAo0i5572bC4TXB1ZN4An7w?7#thmxs?I6}=D^KmUcW
zgt3QcLqb2@fRX^~$qvUUs8?hNeGUg)uO)cqW&(R=Vgm?+is$$c5wsWH5-OC4pV<_0
z4CWih6mJPQra`aaEg_S2rf6S?E-b!iZ<zW%%jj_A&FdI}Y)EbJsn6&LK=1&dsspH+
z{+w)HM{b_SekRTO4hqE1>zHQq@S3xqB3;?MjwqW)I`skWM|k2sukLvv;XAiqXcAy%
zL?3GEgFDa%&_72XPBpk6^UtILbKjGh2REDhHk%GUNtT(z7nO{yK%4n^ZwfTY2vY9=
z=xk8P>d&O*ILE*7YUkmEz$Pu&KRd-<3xSlYq6}@MZADmnkV%GhMlzuhtM9iL%W@lx
zwbU{-t59oia}z1h*ZsQ1v&-V498@1vBZM+%&qPY-H`?5{E@w|7-3FNZUa;;-kTTp-
zzek={vIfb8U@xIGaf8SitPFaoL;aQCF;=((vAdNfb*zHMCXyL}MlARX4fqPZ34w;-
zF)~cXvyH@Mu3MpS_QXSe&+6kL#TpOJB51l?KZAlSyWQu^bO-zvINjT-%H%$W<Ja5;
z?PZr(%le0gV?gw}8{v?!@B18uMX2<;SC<9EN6*LN@(twyEJ==9L7s0`SCzHERdLel
zT88UVTq{ilt|h)~{Q`&v$At~+HuqH&Xr)<N)eNmX6N0E#t<p;IT2-7@o<Iwv5F*M|
z<cv?{$i06-WGeE=v_yiEVyDGRY52?SI(jKmmx!0D!IxN3g<G>@-u3CUEJ**DZslUv
z@l1iI#^&z&>E3mK#lm8$PbGU?StmT|M%`k%#C?k+*Y!Tg>?iW1DRalA<dfzjxX@4-
zAf>>+IxcNRc@9(_qoaD|W9bVW(uhY5|0G7dq;^Sa)JzsP;@KzzOHp)lFyW?VzpoEp
zrHhPA{SeogvkbD)o&;ta&g?wZKA?`}<1D=iWr&e88Y+@&m-a(Y4Juy96PKuo0i~Qt
z_=7nkZq_QV@oHE;s4hh-?FBd(r-bRsgK4o+Y`ciN`RPU`XtXe0!9pdxJ%0LqgvMNh
z2np|wAF#k8|3PW#x#WvQ^14&1v?aCioTgk6z6$9F&S|fa8EbUecQ%U`f-iphMHW=#
zk0cDWNWxHqBn->k*UZ{$+}k?jzx+oH1J-@!991~qSDerTiLo0k5B7dYn^394GQ3wj
zm+wQ)a9G_TEG-TnDVl%nB1O;b&ahiuMFm)m%a}eKK9KZgcc2Ne*tTrue6g7=8V=Ot
zWix5Sm0E-?AY}wi82KXLwv=T-g3A462s|y{S-}&ElcLIdX3yp8O19!tZ;g8@;nAPc
z5f#96%S-gJ!MEe?#Wm&sO3(ROTLI-l!of0oLJW01`mhq`+M7AOQ=<Ej>dM@F*ffwt
zpFM)fku<C3-4pWNZwu?>X%AdlXrY904e#J;1uNc2X2r+i>fLWIG``Jg<YzuoHq692
zr44`dRC1;Incu)e3By10TXqs(m=jH&`6KMxkRTCWhGnUBzx`X3ess`v>&Jp;1I{E1
z-P^1~RR5C7E;W&5j{+JXxE$;<?+y|ReC}a9pi?1Qe<K)08~416b;3tgcE?p)gC5p)
z&=g=BGie_L=0@3?jd(AB>WwV`st1+Z=Ma$bAP<}?BLCmm!vg09h0IaxuEd0q@e<WU
zr*9mF?jG$wknt!@|IPi%^ykpV)$HRZVtxRDemAm<VDfJsrqRQWJ3FXLGv@_?zTRw8
zD$GWOm25^1Tpi&2U|JP0862X3pZS#;%n~qrgmVbpfz_N%w8VJRHkb7~dZy=ySOq*r
zzw)t}aJ7S1xJH#~*U7EOP+=moo_TlVT61&y>OuJOwNkTBWt=sN#jS^qVyPMFP4FU}
za6C;b&}3~~XrjC#ng^$KY0uB@5O_+p*2`choHg=CGCfR;UJj$R?HpVsi<y!IQY;zg
z%#K|y@VO4Yg}`p0aQs$);jNqW+wmxV7tvZhy?~*KHP~b2nBe805trV-g?y1_j-0)_
zCz#yt|C%QC)}OJIz_0JKA;(WlC5@&cs{B=f4@Wjm+w_M3HyQ9#+MT{UhpfYnnrf5#
zZL$C7A5(z!{617rPO#WNI>F}MStUM~L{YeVu6W3nB2}Kb`Ka<N7f_z6q%rA+Ynr?3
zDh;6fQAjHf(onlA;dn7kAabaj2He+vIfz7BlLBV1$#=rhD0Frt1yr5WcHz@^Ua0O~
zPRB5N+3-zN-1?s=Aje+pGs@G5GE4!fK_H#0<`JZ0D>LSsNR4rUA#j?0&(AOgJt!;h
z=-%MHkDDa`?LslFX4VcDqXcjY<!{3_d)@xG_&n~hLZWTBdQDb5zEYAWnUH4jhhNcu
z7K?BI8tR#-mg0ug3d=Y1yO|8!1zmZH{REk8rfVMPO~x#6HZ!U<`lhb|J;jObLqe#K
zWL=KQ@xC4zN~k$n+qWO0S&1Y=tO9j~!{gheu`%y{z@!-QtuSJX+*@xW4hZ+d+&#&e
z?Ud(#_ku$j4HG=!IxydqMM|f82%_*iJx63P5(zgja!2l9`VF8MlgR%DjFm#rjO!wS
zxpv!uL=Gd@wBr785h3d|k&ChHT&E_!cBSF>B+rF}+d7in_|}A>@+xd2apMcJ$YEMe
zxj*jTH_L|AX|;yW^PMPlys%qiHJ4TJiAY8ORoUnzJ61+jXewlTZNwHhZ@pDx*({G=
z$PUaJl{{09FZs><y(Rba&2k(<1rZ{;LKkAKN^rz3YpjS5w6gs<#n!Elt*N|FLG>ai
zC!qKynRZq#+X1ht+Qnx_-Hd&;I@|Fk+cQfWRm`3-{MQrJL|T;4q>Bg#296Zx=Av+i
zR6>(3?xg2RXwpTZDc;becl{Kov?#Q==O6fqmCRWKDfynpYFh%?_z_6x3+ku%IG&(D
zZBT$VQ0p%!%OyLV4D18eknY94%+FYkIwr{c0*)@fsUX`xk*HfqByjlx&I7hkV7f<4
z8iTQmu$}g;K!NFeB+nNu1)7&*LYv~8U%g9ir$J>3JR>rYZ5;9InU5{FR~2v!{-i<B
z=05^${sMd)tI~BMTl*5!RU;~0FI%+7xtjZfIUiO3BgDwEp!6>&z3U&$63ozUl`})}
zp4hhBU^~NRmM=`!`CJm^V+dCXD4fwSy4)U<R&K@@?II;Ot;Y*fCQd(2{B%SwDe(kw
zaPft>;96#gPY8jAR}~PqH{SO=Oz;enWKy~$+r2IdHXPUwOi})ZGfA=g+RnLOy5c?#
zQFw7WJMH!H-d=2gQL!l>#?MLDE%=h&{Ql~)Jbag{Jcp+yvtWCSK9wU6B^e^j;jPI5
z4#gpIA$!mMx1`wcy~$3R7iQxJgJ6)Mc5#1_ZlVnd4}^iy@d09TSCff?<|EJ;MUgA3
z7DTI-$AXZ0Qu`9q9;Z_X%)j+VC&a%mSDttoo)h@}GQ6cl14DjluxZHkV`bItR)l)s
zA4dPklwumL+cI$FH}nAbsww%!)sJPGVwDWbe~@3XL|3HnLDAa>HOS=(E+02&@1TZB
zw_7zboO{7T2*Kjp|6m?Rx#VlL5CLtK5`z}4t_=2i-qdvxUV{(-y3lN3WuSC<AbIsX
z9tighjTBI?5AbvQ<!A#~p@!qGs}izYmOJ1#^8?_pq{li?VTMl$6;i_#I)Lul{oDP$
z{q!l1sSwtTx<m#AaVf@^nFc1W{u9z`tAg;gGO5x%;#z4CKF6S9fsiBTdvCqNX=jyc
zKZ|w*$8+q&HTBR$F*SAlST)kLh@^y|{gsV!QT;fa+=(QsfDDGz&n5Clsx3Tz1q(vK
z2+nw*M7w8H@3a&`YD+#p-b!C)mJl3P|9~Ku<T{UaekmF&E&?eKQiH@fU;nZJ_KdQ>
za246D%q>W*4y#fTQidZd=AXRzb2UdbYP05WQS1(U9WY|Ge7F^6pr2DUjatI(6|e2E
zyH(o!<ihS&)#fMd5YMk;gJ?r!IBlFXOEr&~Rps^WbE{*U_-A5A;p_z`e7dDfryLEw
z&LtJtSKkd9T)v<P4K80`8*GRlUW(_fI~L*jj%_8uhg<ViJMyJgUxC5egWBIUTvf>%
zEyg|pp7`t|lL&Ui7^0Z$mb=!-D#`~hUUdwIYDi_plFF|bQ&@@T*nXMzT!XJIQ)+o2
zso+YPR0n=7nx?NltB06MXAg;N+f$(G$ZR)4SCQF12_kc5d$O6!neB%5B$N;@CyJMe
z;&B4LPMO&rZ|0*i+b5X0F0(z(%uSi?v1abfY}d7qS9HnslO@`l1<1-A8F3LwYbZf+
z{bY*dKS_A;Hrf^w8w)QxfRFEc1Zv3-o;LMkB~_t{W7*IDu@FZT*U!Y6u8)u~xmC~6
zj-3CH($|0WGa-?B+rmjjKllf&;uH<M!~m&Zha@0mlTqb^;&afH7uCmnHyGnF^vO#8
zByfm;=I1T-(N-ix{g0z+4dA;{!+zyqyY0;t(j+}Tu9BnZ3e?aF!y0tTb4~#oxK0cv
zDiRTfnA$-=kocqVn8$D^BkK_(WF8~oZtb&lr^4N1Cc2a9j@V<kSq-Fb{13X*;BJ#B
z=ZCu|a_N~r-65LWJZ1#Mx+k5WnZOuBf5^~IX>mV9fFgrSEWS%4kB9lDRC0QM>6%z&
zsbup0ifv*grIOD3E3S!IO7Q_qrQQUXZ%QS9@2_}#;iOcOy}uIhp_Nj606-}TJEaz$
zxAg0lQJy%Eyk?fn)ozW2f_Wu;9dCWRMuBCqlQdf7gTU8yx+*pJOd);PYX6HUvDYnK
zuk?ez0lsIXrmxxhk;=<iPgju{DJ=YwiKGQTV4b-L7W3UtqL3Xbdr2tOo>hB_S2^R+
z3Z0YjbXwN5q7I}wzorWJ=wBku)*=MQPG7=4EVV9%f0AE*iLR`yssM3}NBsOQxc$<<
z=T^VdE<Wu?R0Ds*4l1p%M@~YPvtC3qVLTG^`H}gcv=HP5)SwXCfD3RNqE1+)igkhN
z?Zr3FTA0cGrWI-{;cE+bNfXJ%EkB1yp_q7g&yF&z$=@m%aUs{ERt;n)8y`V!Xvgs2
zCg(uJsufK?9CD0@`W9M#q>b=?Q+MmwU4=7N8kRD@r&jF8_jKVxFmqvuHag4jDVzXA
zRx=i?Z}Qq(pE{@*T-CfNUydv(iRXznBtp6x)mx>@Sri?sCPM?fN12Yosnv-*LXR{>
zq*M}O0Qpv(5w_ka`|hz<5u>Ikm-xzlRe)h3?{)MzguORxr!`j2wC;y>CN>*Nt#y`V
z_oUP+-MapVUO@hfgs`2kB8Mf{E*@PAKk%wu)mpZ2`Um`qYNwQ139&evOujoPuh;t4
zrQPBB^?M_tBm-(f?WLa95IO5Pr60|YDV|Ifl2qD|pxq3sZHRrf^m&3Q@lc*BK7mq!
zB|1m!kLg-x()Gu>gG62pvPTEq)ZfVJqVT|Vrpi;bNn_k$yQ<w<GdHZh<-h_`awZ9y
znlWv#aL4L0{k~YK<=WyNeS+p_F2c^SCL#KpS>1A+I)YlFVDB)DLOy0|)%(XpN6(tI
zko<y+{c8tiRjf1lABYa%yaD!L3MyCZ=F|4Yk1p<YBm@N&kx_dv)5m6SZ1O>*ck+6M
zvI(|l(hO`t1^;1`{ig^M)kyPmN*oDlO;$KFD6)PMj9e{%C*=Ofi=43t>7)|22<P)A
zNQdd=_LACojUq1U@gUCc>f&3aNRf%-;0<@hC%XodggCro*e}MQxcCZ1!h{|;?eh4p
zob1%z*`Z%oa$p1^3=P6P`jqb34kFL3Fu+ldDZ+<&u&+8_&Jbsnx34{-FX1W6wpDQU
zLCojZoTT(XV_cgwiucO1rZ1t~@z%N2xL!3g1)6dcK*#dYNjT?AncVo9uSa51l_bmJ
z4B^vIV<ggzyGNU}$fE%j__`H76?m||&U-?fH{2!oI0vO`ftSR(;>=j}ktvR427^2H
zc=o-;2}o7*c-qto0p%g75PJRXrJ2|B;PWFHVxm-(l+3SoZ3VAVb~$zeJ{(YK4xc`4
z7rYKyR_SDMa^NixXx+CM-zu7RcdRN*yUMW1B48dLO=R<A^33?D@V$60CRU!Ize&Cn
zW85LTY&O<4?q0OI2<Kz$wy@0jZ4quYoZiG~otB)KNlg3b%pQ0>a=y;qN^9WFAoC}8
z31zP(FPzRHczS~3&%*1<SUl{G{VA=vOg2ApFD@k?3Ec*vVLq0m=(`|7ZOsdKe1^fs
zXV~3-<~ea`duOqc<`u?(#0sv!8UY`<n+DtFKX3yv(cT?F$`d7HOt-tlj8W09cd~7%
zu?-*R;bTtxY<2=1Is&8<_6|L7xL=OZu$I&FPKQ7GH8Td>eAholtOB{rp5|rVJ%oA%
z+gBJ)j0)6(r`6wlA>5SkBH)`ZgpU$lKsBr+?(sDx{F9Kc7gFrgh0OcXxlwckI3ZsU
z7|QW4QUd#M8@yzqf3S8Xo2GtoDfz;js4|p8rK`YBn86BViT@g$|B-O;+3Aofrd7Y{
zg{w9BCXF3mwQ7wVko}^z3dlh8mhhedGS`N2q}u)3N~Etx9+WXE0qK<H$Tw1L2`B6i
z+t1hY^lHzb_=t?t;mrNN90q0foe^>RE?}!Dm=XBmvg%ipDyDp-hwW*KU(_fCmyv3-
z;uHBO=AjCmUv9#AX&V|fc?k)JVO8$FC7&nh{MYI6S$C!zd)0dmVhaw*u}}7`5HKHF
zlS){YN+$H2`Cn#<iIFZ~Xxc+`&gpT7u~)_JfWP!a#Kzr=p4x!K5lK2A=!oPfl`*;k
zE>N+-pF1#gzuO_HV({1m?Sbj|!Uzr7u4zaJ`FoXa>PPxey+%mq31Nt<4BfC+3{-Z+
zmekzMlr8TqzS%$|Ek+M#Dsni3^H6V!(|@s^+s|4Nio32q*1H_`(+GW<RuTm}7*afw
zCV1@CuO)i=C&v42wEx7tDm&<$G3lm6zSE;ig5j@(quPM8g_TtD4Yc#Y6KhghQ4sgP
z%<?4rms^*YC9|rO#XRj7vlhnUd$v$jDDCV4SMztJ83iZrP79DyV`}kTiofbFc?0@2
zs%=Y5CAE36vK)6W2L1}=w{XbYc{}!n{N^8P#>f8Xbb3$Be<}xt*pKQH*-_C`;HEcW
zv0lACIsn>|v8nwLk?bBOs+mO^Q$z(}DKr8%JXdQiL{c`99*Y;;n{qP&h>ijv{XY}|
zohD>&G>1Q^7A{~|l4-KG)|%(jrtoF=>ImdEs^K5YL+rH!@WLM>i{rA~cbt9DPQG!$
zUeCU@iB1`cP!p(hvQCaLfF}UqRd}4sQAfh}my}FoI2%0FCLf7?AvqEZbs78tL8DYV
z3w0&6i#Z4FFsziP+gk~X%f~AFL7VaYVBLpR#d<#J5%N1!C)ZXh_}?&9o+Xw+xAqg>
z&-W#(d(M!}N0YXkz2knLb<whJ{Nc#2EvxfIY?K!lO`tOvuG8IQaZ?vDqhdx}Ja)EG
zKBC3MEBF(&(F1Y-xVzXHX%ARLuV0&m6?5df>K4MAQ5Sd5aGDN7_?^fXLgJAzOh4j?
zD!g_jfIwF|e}RD<6X_)DZh|(KFx|RSC0aQ4;I}H#ypZDjN9pvpz+(hAl?10P0Azve
zZg|2+cHM51*6o9h!Q}_DIF+T#hobrs<mw-NJN%HIr_@e6FtcCJXQTyYRBk9q5W{{p
ztyX?9f1g8Yc)a=p@(iR^Ds#U-pOD6eC&UtAb4loGdBglh0Q<fd44v=;0EOs`hzD~T
z8;diZindkT8ldN14ClXug|qf1DSaH)Uz6uxQzjR|k31_&u(DG*Y9MLCw%M^XHsd~a
zH;&0qv8A<}(sb)ARkhMtt0A7N#?IEK#)1S0#BF|K9Q8`s;C}DzJ+^cwrNt<>W@_?V
zfoo2!1^de8j%cz!7CAPme@xq*HuD=sR_z=0V&ABd6Pz!$PhA8vDz>p)vp81s<6;0+
zNXjy6;Z&gJvhjIS%M>gI#2b>yH^*1S`lngosu{Y3-7n9vn<n+tw6aO)I|Q1>Gv+sP
zO}=hk5#0c3mZcyWVA9&_fLC&2iq%;2h+75E&W}v%Sm~7Wl6C4cpbB6hC`rB8lxJ4y
zw2j&$Qvqv&dyY?Oow^9Vqa*`NmCiZ>>dKzPIbb4+8QI|eI?KS~U^MXe>y9^O_8V@8
zAFw;KdmBUqsNcJeNW23tAKDyqQ8<E96!S5QH9kC#xMuAbKXHg#1v&KXxsaxUo0bQs
zE%#39x|kD@@9UtPUY5vd8)CJ|a&vtWu$IDbvbhiK28PifA$A!ZTjU`>ksFXzTj7^H
zC#ghbG!UX3WM&`rA>L1ia_eQKZCo{z86u;m-;76u3g57Vsx-05KGx^%V6MFBWr$g~
z@kByQ@`U)odvI^sF>3GpK+_RPgR}Mjk28S`X98sFn*|?sAkIQAZ-h6sou9G*K<$;I
zs8^i%2{+PK8g9$IC5WY=_sAO)obOCNK4EHuG`Vj@th{J?3HLfLOxsy8BKnV*gV*1n
z<&60Z=VQDZ@;5J##S7{hmD&%#hO&f5(-MfabwFn?-5+-V)Br+SQgx9ENDc1D!^EV&
z59LEtxLFRnIReE$j#;CmKODibFJ(b=6d%t$vT8<2mW4K;!?#t`!0<eXY3dg<3y}-a
zhD^~N4FQ(yn$L}w<6}i$L~>k-(D&EggV|3sK*X_YFxes3-LqV-Gx=zs-)Av-Gj!1v
zh<I<9xzNwd!|lQPk-%fmB+oJokbMlyo-XqPIX2*R`=<BNr1^~0Wj>>-fhuF#S)`r1
zIuHY?pTZr3j-Ey8GyEVvXM}b%??}|2bza%4C(m(KN6g?L*EgKY^RBWJUj|ep8Nk@-
z3Su}WMm-g-D7$n4pH|#=j9AiAn!^#qPb?3dPc#){f$oTt^Kztg%8<xJqd#obo;}>5
z(I3S1Ag=py-H&Svt}VFk!F3O=&A2vqV2D=sW)Ut!<L|&62F8~@KlrRe(^SLX_73)`
zM}31WKH|4;ZLD>lN#g)yjB(2AXGh_)LSS`NrL0H}THFtDXe$kPlQosZ{Ddm@Kyisv
z{knb67`N;g9!M&X#^GchK4CE6)P$rGrjZxsbd~4TCL;JeCVI9$N{f^TW6b{#aqk}1
z)_J9i?=9^ufw%;OTqHppZIH0ExdgB<AW~O2AafHJ2^;JHmOx+-wg((C1}ANC8q>t7
zJ@qBQ_T+Tz#5gH4&1orqnz)&coQYGCxH-W%2T0Qno+h4#nd7Gy&l4x7PkP?<ZDBjp
z_RP$4e&_uDNDN5Y+WWh#Z>@K|>s^K;X|MJ}a<Pj8BmJd7ddJaxwN*Lp0VZf)UCTK6
z#vA=McHII~qE(N3gS<eQg^CH{+UW4+HT~EY3FT^9b>)Tt4q}`T03}Qb7GVn*?v}wx
zSrQL~c&rU<Fe*z^Eq9#kMsF}YRYvx)ZMj^e=QH6<X@EJ-sQ^46NI)<MPR6GInm`-1
z^C&cizSp<^mg7*6jr%U#hcoG=cK5&n%(lq|9WRm*y(0klq33*0FBVSId8AL)Q;fuL
zGI*~jcc?>9T^os|0+MfV>36;*6W)4GbyN4;cc*`N!p@9R7;7?y)&>?SmZRz^{H*y#
znE!pk4|(>6Kf@a|cYgP64}ISkS0)<}9fnWu^l@nxcwW<7<|bGoikHKuaHzWPy70)S
zBqOvk-FnaPR_FuVj6-si*`uYh6b#EE-xDtV0@B*bJJ<Py=S&7Pkl2dGYmy<5`!g<=
ztdm-2Ps~9ivzBY8iLjEw1byPRhogD)j(A#%?NJ|eG=aIa%ezm=5E795-=Q}7CaRuS
z%oH~eJ-do4J>(@enw#PC=$9>mdD+Ovjg<kc0Ta3Mmcw$U+S72*B@0%HnF_X``anSh
zP_;wvxgFIP4f#vDHw84<wMrq#`_R68KkXtNJkbN}`VYUqA_}YUJSyf3%0+09Rm^jn
zVaK5H-acuvP}Sw_aQ-Gfv|{+|VmUXc4XR$;)QY3{f55K?zJ${*0}_01sAMzO<=p(D
zcONx&SUI*LKm7iR#w%=!35blL+ASQXc6(MhIy2CeXHL#2)p#f%3OpkISSZ2eMwoY|
zsIrU8827dy*BAi!!Ea+R5OY>rHRVOS(qb4K_CwgY{#+G<_|NkQCU89GDaSKIlW37f
zk6-|>f6@-p(!9g|-~w<!M_ylXK%@7%;(BJPzLype|HfRy1qa;&Z->yg+s=X#{_JL=
zL97@8Y_l?pWwx?f@o>7b+Ee{T;f&|l{T!<%0t=1JcQj__xTnr-I5!iaoiOrx)GZ}k
zw-@_E{crAp$y!1SIL!_h&|!gwiPBcOfZ_@qCXCw0<k!^M&Vns)Pd0UBxo%RmQ6Xq!
z3Hvf?%-!tU?O9l{qNZ@!9t}>*!gZJg1i&We9PdY^3(SM?oci^84qB0iDP6rL)0$XQ
zV|%^3X;=b|NHLGfM4lYmef6UQ@Vz$QkgCJWQ0J*{Z&e?_Il*(D-1#m^$iVJ>DWG0U
zI>zzL9d!z4>Yo8_`%*yf$2C5f_`mPN*!ea0HO7^mY;R=^Xv_b%eoO|QG3t*Z(&DW1
zktr%({=E58mh-;UmF4{Z)?OhJa~ECaLKNTt5qv)BwcaO^E)MY)rxJ;A4#Mq)T4Q=q
zO@%4^TSS;rjHPG+`V_{Vr-&SqO7X1v{;YDhWxXhM$YvfJPqD4z4h~ui5uuGjtu$CA
zWu8G(`TTcz^Nwvd$uCi47n((76aT=Nhf5oS6x@m>TK>0|NSe=VGB4>O5TinLP~@?)
zdjsPOri*l_|8H9%w1A7|=Af{&XDa@3S_Hy|F}{8*4L2l#Y6yA)4+9HRIFoU-t0@Gr
z(FRWiACyCHZzR+5y@cKTl>WsG4rR@&nihQBRnMoaawOgx5mNAJhmi#PUJaDkXPj`1
z6$(H3tN}xtU_FrZnl&*;wU%`-681e}(Lun7k{7py|KJ#lJR~t8|Ah4BpZ%Cq{n-Xq
zTL|FvOKac45RG1Fc$`<4tDp2DWzDZfSI%$z{%w!?Z@I_HRo@y|y7!TfQ4-5-pGtnM
z4RsxsImi|fEO&&;iMR|!F4eqz972@8Ka2eJ=1u7Rpl<eWhfp%-6USJl$BI6j7U-*f
z-F3L>kY$#%8{p%9<M$7ht9>m~$uR9G=>wt_Y;m1rFSPBVY~RMIKOBnAaSquUD|`4e
zbd7@l$eU0R!8CpzOtiUKb-t<H=UYM@>&!^99nD);*#^Fi0+zqy&VK#kQtBgb@gY3(
z-(AW*IY0tjTi-tkjm}#>RNz1K;dgRRC?C!~fe)XrnhR(;uJ3fOeCOzouKnGKsnq?}
z@1O^*czpfRnn&I`@icwwmE7a(gCzTvu$#WvyK8L=gtCwWsNBLxe&EIU_OMuVrB;=U
z{)!e@w7&0y|2n#F>7I3aDRKBw=K%kD*MJJdUtlRnC!&=r)e}z!sK{Y7gK4gz6WPD>
zG7ustN{v6Z{{sH`F9#mKP|knd{oNI|8Wnxtm=Hqr?-1|}OuB4U1#-Jv+TQa0#$lln
zWH5Z7?gbR&)^w~n;6Ywd<54Hpd{4eAdV+7ZA&?bL$3rEjvRyqE(Du!SMC;@#_XsjC
zBmlr_mn;JdYTfn%2M&Z={5UIw*B0%n;9|hAJ17(u`^*6pNB>WGq@)$C5at~g>`m>k
zuDYebpBYhVw3epmuFRj&{hY2$nvq%qaIE64<~Irgfb`k2YuJ5{J1^f2jc;KDVJni#
zwcyV8e(Xo|75_Xd%q~H(Ch_LB)mAxytxy4`(D_v;R@8EXEp`L7A4c&n378Zx!BYl0
zR1#9yDj386Y|;Up%%%G&X_d};4_FOeV4&Xp56T^GW$cg$JZn|gDbhcaXQona{9H^P
zcO3hNi~8kUWL0206!E#ZeuT`{#p9rJJtwZ*ul61JWzLm8Ywopchao2vY=PFABkyEe
zjPciqSf2E^a9!Jwdl7`q*Q@4-1?g;kxI&80B2<DO3NI<I1*?30=FhmtopV&ahKjRT
zM>sQYr#rsOy|sN4l0lL-R}KiN;CjV0$=pC(4Y9$fRJjTz>~^@(dXKh(HS!v#3S*&@
z`-=A0NTmM2zspw5K^deiqG_ekNIhOEt2~%F2=@s^P;fx(qKs4O6N62aU^!OJ@t&?o
z<y+aNz4FtQ8P1=yQXYqZjQ~Hw{%@@l${&XO0Nt5f(@^qsWuEi$hXb>(O-S{XbKjjP
zyw>?5AO*zE=Z`AxJ(8$r|C=rOBH*K^<iKMh{e(G7w6*Yy)FF>np5`=|lHlK&ElTct
zW+HiVSgPEDSj@>;)_<KfS1^Xp`E^!PqvX@vJV#~C3i8ht$E`-8?lYIB?&>S;FEwwp
zga@;YqZWEcyPLW?CrDycvQ~HV<)iIY*+z#Yc<Isv{ddo{FXO0v`DpM`{q!$vNw1wc
zt|=)!s!s49=WY@9yfqj{;tL{KeOt5|)jEIg-bxz3$p=D$>uSC=Si>)>4b@)a{x#1{
z+D!Aj!JF581@8NVZR5`to;)t}<IIw1#sRp_Tlv_b@Fz}n{CY9dk(V2W@CYP(x8d~q
zci)#R@92K%=}MX%t_yo1me`|KK8V?i&WvO@U`jwz>pd4T&WaVV8|&WX4fWwnXPdE6
zWz5+*za2m~_g>GDv^)!y%&X%aBs|I+Jma`?S0-{FkRct~m{s5=ASJ-ZtcO@h0oA^=
zCzy9Yd8Tq^B59e|wAY3$VlnI5Xh1pk_e_c2QBq6hHLK;Nsg#3qKz!j2t0Ngnn)sEB
zClHLq6#4A1X{K>UwR%$=AFu@8ffERgc=JcF5mzov4bGq6LG7BVB5|YI`VS^HyS_V-
zycmcrdG*gd!*OL6Bkyi|x-ub{AIbHZ!Jd>hg=Xl!=sohwPD;<Aongk2=Jmo67xbGo
z*5<=F9^!nzf#679JqI-5L`wI-x1X-;lCMm}ZYXiFVzTa;iLR{kH>r;E{RxfvCyT;f
z?;`qP<EgO6Sot#)x%)~k)gO0Q(omib$BHr<zrKlDHx5O7_>WjAsB>fg;4h*I0f{=l
zuG&*)dI$Z!??n<(c(s-N{FNaTzd&CR1!0-rcZ#YcZ^EO6HRiyz{UV=x*>uS3PI$Bc
za$HutTL^lc*$A4|ep?H0;T_lZ>xVW$0|<SHEV*-5O+y5tlgnNmXVv_o*(FY8Be>}t
z-*$0kLL;q(%#OU#{BarrVV1iYcKA4m09g5sqc2RQ7&<<qzsBr)WNtXsffb1sVf*Nn
zq@SQe>SQ~jKS8x)GrL|SCfF`l{9MRvC(I<({{)x~_n(<c9tuMp4~bNEt@cHn0B&(i
zRnvv4OuUNri)EHFv60Wj3FJ6bzY8|#MA4j^ey6a*DDR@#6II{*lE{BGs~l+wrOVcu
zEOK2(C-ju_Rz)TtPS#R4tMW8Q?=yA(uSATg4!J%czE4-u&v>F;U7m`#aBugkokQMR
z66MKJkW+kuAWmcj5#kJ|7cJUj%;Bdeu%B7R5Xtygvfm`H@af9W|Bcsp%MGk!nW{s*
z@(ow&B+V<nPu9s@BHh0pvqy?_pchb{G979Ns_-t!T^bOPXIv4r(0rRhEpEBXf<96~
zVGpC&q?MV?7P#Q`+j%WRv%Kvg<Smg5+K(%1s$$F^L*<?IH^gu8j0(bjgEXdL8+Vtq
ziGW{5P11MpINb>pQG8s^MWHv5mXJyKD><O|bjfYTv<1#?b~D?}KBeh*R6|mRPcLFP
zy7Emlwm`tdzdtjTw7gwziz%vd^L$TciD36_G8MltC9aZx>G-K#^)UQwvn3`tI+2X<
zr`m0dbuDM2O;Ts`PM<uY8s}KU$v7S}>F%K?LZcL}__6)58%RDSnKgHey}t%OBW-X&
z*dtQ@!`Z9|^wRrjA0?2L)t=6gjjPg(rURTy^AUXuNzq0}A&Zwywn31jwjtC>u39%r
zT<Qj;CflR_T6X4{DKQ}}Os%k0HRfRs@M-s3!y4sNXQr^r$Zj0Xov+fMpQNS$(h*oy
znyLh<*5f*~zTsHY+;#?JU@WWn@w8Q{l{tz*UmIP6j__{?Q22(GIZ~ZM<C+{Vk_wpf
za7VNQInn}rPaA+DXxHu&ic*&ARKdBO{+{uhQ@7^9ZkgW}f!_ciC{}v-zD9mcu3Sz^
zUg+tAQ*N-n-GXmAE|mJ%czy-24zgK0IEd18qazBSvkp3IsfRUZCFmtKtKARS4Qiw!
z|2vFm32O%vyTvz(kk8zVc^1ko+3g<b6cK;)Lm{<@U9K>O*xo`wny}B39ju|>@*wW6
zw7Q{pJ~r`KcM5hcZ0&PZOtLlho4}5qt;Zb{o&bllifS9PFLo~Tdp)>%l<4)0d4z*L
zelvn&_>-}XVhIEK(k#B-7p9psuqvgMa`~{^XEV6kCc6zQW6!EUEGK-UEX<YEGI^vM
zQ^|Q&-r|iN2kLqbQUa3Z{<d$cYSNO2b$jH7L|;(IfCw4Grk|cjn&ZYgIygtte63jb
zd{QK5KKlTy@<DT7;CYbBru$KPSO-du{dwVd&-HRQKuxU~>p%$B=T$GlY9u$l!C6uM
zhQ6i$<~am>lCQF4zuZRSKI}RwNGnfv-yKheXNcr2+gI*w56BZH;MN2ioe~~5e>`lO
zUW~0ZFRj$Q=?@BP8$k}El$x@4l#xgNk#DqTjiTf3Io;7lrZ#g|IBhj&4g8!WmpOaP
zft`M(?T`K_pg-itLK<~mHL4xpm6+rLRgL;<*2GXEPHd86IZh`-Ts_YER#XzXsFN>t
zDt7d75&Igmn_LVw8_i#C2fQ!MbJb|L4$he63Cw#ftiJgxiAW@ZCa63MIz6_b`48d!
z&C@syaR+Yb!+=^y&=q{j>bWyhB(ti2N)E#pC$9m`#YZjim-|g>oR!t?b<Z$y<*VO}
zV4dOgE^it(NahYY>&n`pbv!K9@4rI!0VF?IA9VCSGnL`IT8;b0&(UT~5mbT2w7(nT
zZ8$+prjk}oMc^c<Cg?-f1Id!%cuGa!DX1Vo3Bk(e<J~r&`B#txpUZpPS1ug#@=)9R
z5&4y=GpS3fY!%;K6}aQIF^>hWm7qqWWoI?yD2_I!r$wO2&$s1~PAEp+*u4qfdjyb>
zv>6pZ*gvY|PYVv)RSy8SCyQsON!;zn2(Xh5CtmVfT;0Ij2iU23&HuxVE7E%8J5kkv
z%tWN{db27x`Tmsd(P3*`ooS9Dp{zs5qMZ%dNXERvWozw$P!5-?+n9aDYf13>CIe{4
z(EK*>vP9-ps}*nhH})9k0;o<M>MWO}3Gc!EMlHCu-Q$+1lyUFLFPy?NC@ZJ(orx7c
zTp>ga^o?5d@&}^k*%DWo4L%OLI#;K?hMep8uqtrF{1LGVmG#NF5Z{$lmlHk>y9)SI
zTaNR+ga1~?@r<WR5$8f(dU+csq70wxdUE?8JMon!Tey?lGz;CK>tSD+{R@4Ib`7Eo
z=Qe!uoe9_>TEEly7FB153S>6B%EH7|^~5Y90@E4RX!{&@0FC~zhH%~+<?H@dA*=e*
zJ5xk29h?rjeb;km0Bb<bd+8j-G3tbVOKrqHAK-OA$d<j9*e6QY!Y|VdBkzUNE4;Hs
zINcmUybdqN{7D&l@(IBPph`G%G@F0mhbM`ZIcffo&NOF7=cM%dYg4oWG~Y~%P`8F*
zo9258%@`|(R>oLg9x`4ru3z>o1~i#@I~HmG;Tj<R4q&AKjDZG|vXjq<Ny}<o`;~s)
zU>Exul{=zqkOUOY(z(%<5sUMX@7Z%bL!6mFOoLYJ<<;DV*u(aB+0|*E!aLj;2_}@?
z*z^N=S0)$uIrlQUwmMTS!Wh;ke!|njw_##H>2?TCCGMn5E(ihZ5hpDYQ;4%xmuozi
z&H=Jitu2QC!Y4%~cRP<{lgGxc!^<S@o_wrn%?SS0<h%Mf2iv26(Qi^EdNA4>!uD6z
zAEL-pOi!cK(WkCbu0;GUz0>$<uw1CyfD-BCi$PG@xLjZud*Odw-HiKJTB$2m-3YaG
zJ8wH*1Ck{y*XF)=H&ugml;Y5JX|_dnF7(c-$(O>2D0UTX@W8)CThU!WWtPYjpcbQv
zAHg!gkD#Av_A0<s57t~_zsF%d;00n;lhr~tG!Zc`Y$yCuS4V)Y#u)h%)7-|0I1>IX
z^rQ=qi)87zt$_HAo2p88oti2~T&){Gdl6&LHSYn&r<4-^x%41WIxyR86u&u<R(c{y
zpO}&OlhKs1oglm`oq@FF#bCtX{&(35u;&W(=Yuce9qcp7a#!&j+E@16xH-Y)B;KEI
zU%`6#q4%e#b31>28^)SE1=W+eAW79m5SuV>0^F+{rdCKNh>D8$i#+YNnF)g6O=GU%
zkbYSBvL78s(7q7*3qWT~d6^}gMbk(A8TI5!IXIkD|F~PV6amrP5<HJj=tf!vDFge3
zpEQ5OIl8KxiWk3sW#{1pg&3djU(Ca#kr+6~J>HM=ApUs8Ok^tNYU_H`V?L91L3Gu0
z;9MfCf$c{zmi8m()m(4Tco*RXzC~V;7z1BiV*h6~m|RGdoLEJvC!0-lPSY-}%MlFq
z>$!&pr&D89d0lc{Vh%6mote@+>rz_%lz-DgasYj>S>Lq8*0p;=nEQ1{z|gt%I$30;
z(J)zl>eb0T<&e9wUYkmhrSF$&Duhkd*(Pe46zv%teKq+-^zocATa-S>G+vFdjjFXc
z)8M6-li>ZGWa4)w?&?xn2f)_sX1$UVFHNQR=_kZn2ST8@3-|hT?@wdp`MYPih-MI1
z%268BupNGDm4cxc!Rh{5Gqi^wOoRU?v7eLA(9fC@hYu*;m+D6y{nTGHVVLN1X<TUl
zc04EHZCc-tiNFznsOuKgt6T+4(}EG1G3Q#)PCmRcL0*#4=mLsh^E|yj{=&WKE_VXX
ziWO_6#p+XE`Q<syOHR=E6|N5a5qOK-?lh3}vG1wlu4E`m+z=!yOE#^jsh@L{L68xz
z#-T7m^{~I+Od}ir7HPGUo&7TYAB#f#q~$cUDWkuzlS4At;cfC??g0CQb&wVjsbwLO
zjzf&dpY^Wi-{S1HH!usVpHtF&_Y8zw-JO$;1l8H?a>p>Pq;l3JUbST3-BkL3on3?3
z;UlK`uST*?WOIfK##sOIaI7C#2qJ|q$BnXr2-Xluu|}2e1|*h#W9OE-xD*oPY~`N~
zNwpE@+#2x;d~o=W6~u?>+>g`1>4*AA3m2So8!O*kV)m}{n72ihhzMP<98MM$zuG9I
zA4>TE-5ovvNvT(U`RV;hb3FW>Y!fW<o}x?ZpdwuPj*Lcuz+Ew3v3~z3X~ymzhZVcO
z9z=awA@Ju8n6Hyh@xc_%ZZL7V63tClubppUvc9=<i2jr)03A$n=2s%OGNf8vn|yiQ
zmE<KV=X0D#6;6wuHo`8*RP%+`AR!mm|NCKzlar~E>u)A-HBUK^0{<4ZvoWU9)3Kg#
z1}ak-t&N{aC@(?*2Vp%B<~+y2=Ms4z-tXT6+eEr5{Fw>m+W8;*bam$Dl`Crki8+ZO
z+W)FwVnhch<{BOR5!aS_Vh2zt*TeD%GTVRjdbe#k+Iw96CY=kKDxMVxRC88S4DhW5
zC!Mkr3BlZB*gtsQAQf`(to;@2_tTYkJ(6H41H#VL2e;4)%=6S;LOK^KlhOy|J15VL
z;#t1T(z_ieSIcT0P>6Iy-I^+pK=FLUuXR>}r`*UBo7qxt#@LddkJRq59Gmv^Jq$4b
zaUC|D%jnAUSm+(Fk+SBh<uW{c)!MNJ*iJ}|&Z2|*MOdaiKE!g;r1`1<6ab%uw+RG<
zPg=%(QB+YEw`KPz+QqkWKx}c!Pu4NNo!iX_@{8Q;Yv(jC`1<>GRvSH`sF|5cJ_g2@
z1ZpkjlW4O<m#Eyr;cOmA2i4SGu!YV|&9j{y;BDHH+c#CgpQkQussLJB(azP610kMk
z*}~0i7}_n{4uC{>vgiEm*J;;zP69*4N)XP3X5D;J9Wg7V10k@1U{hx+knbQ4T31#<
zxz<3e&y1tNH{>NC600hH4yxjDhkNfyod3gw?1Iblk*lY>6;#LBid1<TiM0(Y_Y&KJ
zSW=CcB#Jt(c)K{YAs5m`cYE7AV|`eFBACj0NKc!+LOvG~x_q(e8<^z@#dG10VGqtd
z{5301`;uAw1e^kx7poCUvpgp1DIduX?}jBS7}h;dzj+b}@8Af$_S@&!ndzuCJTk1Z
z@FOgqCg11oE!{1INN@@f5K7;$D7bqh%90#3`{P80=5}f7x9cjqu{-gaRZ9%F_AT)D
z*qXd+1SA9Mf=LZ~EbKXIvIr$4Zx~T#!Xs4Tm5G%M)bv66H|AfVcO=)38h`8ijoFgt
z{1uXwSV^pijP8hAa2tI!iIW?3SpBAL7arS_;@dRQC^+Y>>AqiKhez`QJTRblCg?e0
zM;fKXPZD59h`vA(5A7`1j(~>Y7sbKLn`N9teNC<Ksf{dREe}ID7HITY*G)V#;?TQ2
z+c`wJJtPB@mc-Hd38D)_6o4JJ@hONsm8LwKZ)|E&y(c4zRiTaenikNvCs6ax2X1tq
z>iGIx3FT^!iVA555eMVp9LE{i`@}ad60PQ_E#)!ip`#xrpXoi4^xCE4`fwTYM!NDQ
zxx4Cv35G=)Epy(M0K<n~m{4BtJZfI59|wZO-W7Ab{`_{z2Ulmy&)HTGS#jqJ^T3W~
zfNt}AJ7R)fyWwvp?!c&cYQX8$J^Cb_U&vnbk|FHCD6_K?O<C;0vvn^af=9DD^}%7F
zt>}PjL4lN#Igk>6N6a@hMk4!#e%;ei-%{y-+Qr58bS8R7v1-0vITx8i9Oe(AfI<67
zQGHvotDYJP0At!vfE`w}sH*o?V$?8q>^uS`$ANKgej9O|J<VheZ|Af^S~W6h=&oAE
zi_~LP5^fAnb9T@d`P{Q!Frb}tdz&c^P*$vrCcofg|DxrfU&q}D_nEKbtiI6Z5Yo#M
zpsxwPh%$poN?UeSPI1*c+00)>ucB0k!DZ2UeINVq4%kq2TVylTywEA>GgS?8f(unP
zRtBaoGY8$&cu7><i~BM3Bx?Pom2S<))L)8a<=C#~7NFK8wZqfByTjL~>QL}CoWAf8
zh(CzV+WLoel>w;Vf*@v%ZA=WMl5l<Z**csL8!yth+>RPkp-R(&stX|O)GW(}SI;}o
zk=-VblXP2>b{SP2D9Az1uAmeJ390)Bz;pMMP==Pg>-Y;fTPe36u%Q(a;++6`k|J(F
z6Dq>Mml)yL<@0@Fwj^EKR$%{(taspTtCT9#?-T4XC$Q6v;A@G5Fl-19=<TSXhK0tz
z#C@PBwUfiFqoW|5QSosoEm%xFmGr4C*C@q~xmXWn(QvO^2jO1ikM(x={G21&h2YbW
zr0qbxh9+1pvXh&OfYs<0OI<bOqX${PUl5R16)(US=Bp01<zSprNd%Y!>E(kdoISBk
ztz2>LBG)Y#rO9f17SuoZLU;DoL<YJwq_hr0=W%5pQ@$D&eXgsx&qQiJY+QR3@{7I(
zk>>mlMf8+z?^&*H8je-6hQbrsG3~F0k7hG_m^?2&>1YbD`nZh|TT`i~+bxu@MaG4T
z#GUT_s&J+@0!0#7msn2pa6@sDaUjlv#<#2i7_B5~SfxEE2k!L)mEPqYC92}a3tH&t
z12;@4J(xP4ZP>V_q;=B_74e8zC0#9`>F0Tmqnc01c^suClbn-f^;P+W6p`{-p~#*0
zfKi+m_pME=^oRIZC)7b&l(E~{l0M6u;WyY)66}2b{fW;$^kTsT-I2I2-$KmO(p?th
z#KofQylz;>{`JC{G)^#7+8)fSZV4FEF4m!F|E??H9jdG~5%Ya%3+iL-?&>-B^PB)O
zq#L9)%6TX#M7lh}y|g;7UJN{sJXhx4lduzh<b!1N7qdZGK=5MsQ;rw^;`fxXK!Uuq
z+7*1!J8IMtiWWR;bBjgP3tA6E)nTzN8Z|rKuK01KJ3g}}8cQWbpj+}C`C5gIJp+r+
zDK8^PHA8A-8**pVSp|o@qqYZ1bpa`+tGPWi`x*!y4OuQ^MR#CjiDNWJF(Dd9vh7_;
zY>yFX+zO>0a}Yip<@(xqMQc`V?trDiYW`ea8XTgrN+&l!^|+iR@zGEQWn1lP2gs|#
zF-7Eu(-_~rKja{SIxqSrh!XKI?5ozDh)ZR=p4Z^~#l2Y=t3wk?+|Ie+pHuX?lE>D<
z2ZNPF%yvhX>D53(;vSrB%kW0VE;`x$G#IG}DZ|2ddc5x<Ize3i04J2w%n!Nlx@tHG
zANvO`Py6h!251RoFL2+cc{YM)h|y^-X=HXPbBmpiK_%`+PB=1rI}0UZ?J#ti>Dl^V
z;kvO0F%rBF;=K{i3C<y2jWg8E^I^vtQ<8dYXREpu*+9K{S4$J{v{Bsx=W^!A54&#E
z*EArr5WTYxVc}^!a|-<OHDsbA57cK<TQNxsT;OhRTG%QLPOE?lsNp*VG+2dy@L3_t
zDGbbJ?ZY#I&$5OSs@gr>t?FZ5a9@NA!?be`A~IiIci76u<j~5{-v7HPP3Mly+%riR
z2foea81Xq9Myx7Bd^G+c+S~9N*j*X*;nI><6ztx??n~4(V_k|eRn4wg1!iktW5_FV
z=2Xvg91s5sB1bwSUk#!|9%_lCP#^rzmLj*<2P~0YyLle!LW&O6L>H&D2tlrXN*-a%
z3{sfnxhF9ezvm91$wLiFPlb%}&EwS9FO<><yJU><<77(F{WpyWyGKp&K=6y`%4_dy
zgePcR4{uyg=#l^dxkSn4m;YrLT#;LIu;BsTa2$8E&wcB;xr{`_yqLMY6?d*A%syS6
z56dN7zECaaSr+XQ7&)q(L+uO5{f(IB0${%&3v*#auAE6jLC|(T<;2^o<d>n^eCzs@
zr7y_K-J1ctj!qS3Z#$?#J6&Iep1-OgR-Pt_N<S}F4aix^p1~`_sShE8kI*h$x;>NZ
zxpRO`Eg}PC4f+G*i~QS}hF&t8X;rnN_hoJ0(vFG`SQ@@`F<=aT?DyM1DgWHMq$ei(
zG0bqlNb?)G>N;&~ww#IetoXO^@ON#$sEiKhgcVWsW7XdivCTUWUGtM|d~&<F-mBz>
za6NFYR<XV*6aiUc)FXL8kSo#TfW_0s*tUm+Bj#T^RppTA$r=wxuHj8p*vo2%QX7+2
z@-bR%_EZ@9i~4Qwciyu`Vn5kEYFlt>8sz#OJ8wdMyQDRZOVycgrqZk-XF~51NUEZn
zed2=V>^9gUu!6t=L;b;c>7lw=9_S~^A|=F&grzQU3?V>k9#$=dYVJApt{~}eXHc}1
z^xm0^bX8c?d|l<RVq-phgs<9(J5g*KCtL#e<HahTsdqqhU(6*mIAPL!6AW@<11SCt
z3gvOiPXhD1$<0<s8m~E<b6^i`kv|*+{eATl!+Mj9ni0qLW86+^7L?5e&jP2dwJj92
za#`BTem^o(tzCz9Ho@1yJ+)Ukewxkg{4q}dqXE_C<qDi9!kBA`n)+=2{QLri((KFB
z44>nQnAM9uhcZfng)n`kNK%j>wxPAZhde6&vT{ZXlG=PvK{lFOijq=X^arbMtS^hp
z3GaFUJ#3sg#_PyV@lcf8>ZKi0=%=P3(E{E(*B$wBG^?!BCUI05(+gQ!j0>T$$wO_i
z#5qCZE+#l#(i*oatyKOkmyzcjkhC9cM)d2)-h2S>rS_Pjf+ZFV8#j5tpO9jIQRm2h
zx!q?^GrR13_{I8Z*9g{Xy9q3rejT3hUI-M#`f&>Br~leUmWA#J(j5A-_`Ww3E2tgw
zQYpMDK9`+ceD55`T79ZK^~m)h$5>KyS$NjE9<x@3S^DRSMG*7lfT}B3b_+9vz0f|<
zA`(Q-dLL`rAmF}9P$b6Z3&S^YAg}FOYH8Vg939kaP%sEikcv1Gt^hUtw7^n-n`39Z
z&{<W-TC9!*=o)<f4C6FKa_4|)xxCdv={n?5ftxtWXS-X367u{xA8aEZ%rhPJn@TzQ
zmTaER$oz-mUN%D%7RZ5VFLGqeW~wW?**LaRjJ`3V!#SOC80BT-?3p0q%mV`z^R{#J
zw94w{+DZ11?lbE^Kwa%Cv-p;1W!g!yC7o)p;}DN&|8dv~B+2V47m8O_e9N}4Aev2z
z)GdauRcL*`RZ)Xedu~ky&kc$Yh}bmUW^Qh+2H7=Xi>qd7N`ttU+udH(bhK=ld#Y&*
zod8lx_gkgaD&+UtR8_9B5{e5OEL~aM<pz2O`iG*-1XYpdfKjFRg((Nimc)}maJaO@
z?COyac~n`Fg$lGyp$hu$rV11u2v2RS<6J;k5>SekVxQ+$e6p7Us}xi_iLA#4fsiob
zm(ssmz#~Pxjo&ofb)0yS>ID?s7=aun*wyYYCH7FeTwvs?=I-05<qtn(cXSLbfJbET
z7U2)`b+=9t8spe&T>f3p4j^X^e|c2A!0+*m&<@GFhI8dj^nz^VEXrqbLLMypu!|!P
zqk@n@2}m7skeszPLUFgyN_n6)&b|aex_gq#K^Et&QgQeBj%j#=87uw*-46;UT7#|J
zc5`!h1ZyKJbU|3?@-g12`ffU1)t<kUm)hQNjSj#D-MwY72IU&9ayF`Q2#@7a%yHYl
z!1ZWt)GT*Sdtsp(B5BpG(XPDOrjk3(E;b5d>Vsuhg^Z?C31j5dwC}A*FZu_55+f=J
zs%;7Fm#<(Iq-AkGHO+#Hs0po-uWy=cn}sLJc;yKn-k69M8L40S+i2wweqx0P5qg!C
z16h>!IS-{Q(NDlU@E-j^)j{D*&yC(++rbzDW^yNj0n~XDA`HE!lCi1+DSnweQWRS4
z9}=A4;PMn*xovOd&cHWb)$w>X7-yIbVfZ*Y9US4FM5lwpDHUx8gfkR9>^>QyO#XH6
ze%LtRR`N}5{oQr02Wh6NW?2l?jqi_MA9IUrkmfDZ?4P=(;<W|hI{r#V{+BS7P@Jn2
zSKZB+dZ}`r5lp?6>xGqdh#3yVre*Plj^)e(y!r?CiXJ2^3xLQXuK`i4=B3a)A-qZ6
z^qKN;?Cz8%C@8F4)jmJ)GxE2?rwA?Jr#I0E{*h}Yd)i{mJsTOOpu9_r!~QCY2_}*F
zin_TFJ<#-i@z(S67Fk%;-U<u|ClVF&?jEm1KJ<@XyQjSk1)(K_HKA4QXv+sI{}J<V
z1AGTq%8IQmX{|(lcWtr@m1DR@bcCbxrt^YFMCeN&d?E6D6sz#ZzDXnHW2XyX&jLMr
z5<XpSc0@a4{wH7ez_nnt;A|iB&M25mEj<an`u7lCSO%^P6jpf7ytT^$mY1o>2X;g_
z<M?*GOC)?wm2V|Z_O^)9l%24<V&BPOMN?^M0?HMxpS7~sUhhaS@A}8qWEA^ezDck1
zhMy6G8Mz}hc#kV+G*B@hN1PqJSxrFgTtJR#g-fLaXZB0oesx|$Bo+mYOlYALC>Q)&
zh1nb{HVTT~`wP>eDi7Xk4xy%3#j{`~s^vs)3Fn}*dpHp*PJ_&5Y}qQm=C!F5XQS36
z8BP>+pfn8pKV&#fuCIWb$GCXPJrY74Jc~?zV)Y_Cy<yH#`IcRL*dM#w{&%p%Ktmc)
zu!ow_(fHHc<9e$FSW(PLL^>w$yJ*x9^WsW6^4J1=<5pk_MQE+)kzNG*U>OnqjJd07
zD}J9ubYVcw1$YhP`q22W{*bB~%-l5C*pUR(;&NG35*Hif8GG6qDRkalZpa*%-N*%N
zs*IUUEiUlT3kT6U3+rpXQjr;e%!cm>Jj==U%h__9ROvx%r8Y!D;f%v!KSV4H8+~<&
zz?=iI*GQNw4(BO6O`veT-=!_6WRpeMr#{dnX$}3k0wkHZjQa8J$uvYd+SBO~Dv;E!
zDrx~<1ZEJ|r19|67_S(gt0u6`Pl#D5vW=XTxaj#dp_l&NURznUog-VH9j;%`&)H@u
zBCUtt+&#Cpo^S{yw=A7)o9S*TGnE>d2f+HiR4csaIL|XeiSu1%>(k`VR6W~Uu=8>|
zj#b%&Fnoa<z(Rivyd{P>{0>X}**gA<^qdk?nBkLhqfwWQP)bcg7-BG-Gp>9f4?Jkx
zq3|Zou@WvX591*`?qD`8VW;mUE~7KCg%eO0l+78nWfD%1J_mBFrGYX_A~J=-b6^l7
zvyR<wNjMZzZy^5Qo~#3e>?(N{pmj#>!Qk}nZg9$jb!)_DD{|s`0zCJ)JkmDHJ*8M>
z?xc5-hc^f=+-3o>f&NUdBrLGDJTbstmqbZ*!&k|8CdY2^EQ5wa4b*jBZ-(7q+O#!z
z3QPRU=)SC>G9-9W(J>@15+2UYm9eMpIb^vQTO`KUht?g#Tq|q9N8NL5R7^yzxa1Ld
zIGN6-*qb%Sx=&%<!6Kj)8M1!VddhLWz%BlwqESdU7l40L1B5_rpN9?B!ve#)wAAMC
zG1rL~6K86>&>OjXQ7CSN6qg*Z{}Wf(eVH<r4#gkOi&G*U7H1Ljk#^Uqsm`HaO>_=D
zXuABHBF~>i=r{C!z}iv%wmR>t*M4SeyM(#?b=mJvegwSB(kcJ7jlCEDM&FB{2Et-V
zWz7c@J>%{E?$;}f^fP@9!gpKLxH<~<B>Hsq!Uq%dZ`Sp%{`!Rp^xRDFA9#Nv>zVrL
z<qvU<;uCYlE#L)&Qy;w-p8}fA_eQ!lrXDBBJK#&^&EFfw-V4}-J=nWBogRqz71}no
z<y3<Ain~NUhEQ<rvsz~eo~-L*$H|I$C5MfA85%{(jv9-aV963p7I4rIT~U@!=y5F}
zt9QJ6w!)?#Qtw&~UVhyy$rhD?-IK6AjPoS!kn9MkSF?T?gues#z2O=G10R3k!ILaK
z_`wuThzJT|CG!sK&KTdvr9j(E>?Ebypp|{DJXhU($1_5K50<6p8W0>)_(9pCX}!G;
zgyC+_nn<w^-AFX9rHrFCM0^-g<cGl!ys<lgyfNZ4d8z(Tuob78(yHt2klHcmKQ7z{
zRk8&YGFc+u6qaG-tL7AYTN`Pf2Sb@GX1TyTU}3F&{+^4(oX@vZzmX+#4s$?ndoaN~
zX$7}!V}xu#N(>^fWveP)k%i-j!{u{`2^{v1%Xq_4Kah9`Z5Y*>jXedP)$s4dB*!N1
z(;8Tw_~)_>+i+rh$?t}y1m@?ermNW@EHIwMR@aCLc8{{Ncs<>2+<e`;Pq4C|<KLNj
z@fcOj(5Q9n_M24G+rY54G7G7x=~~S-4fOHy>Z|!VLCtom7rLK#8VNr!;e;voqw)s)
z0WOctx-BJ<bZorP*;Ieco@3OT5?o;}3qE#>4_RyO)9o37*0K`5M=FN~2KJ_)?Jtev
ziG_T>Aw#zvVk5YIM&gg;g1P+)J3k(L5XFOFcEv)gaOFP0lyHh3RgLYvs#k*l;IQZ-
zWQj8^@ZvwM`nBDL^@%H&%Rtu?VHcJWC!@=3na*n5d;&W8ss-54u3}W5Xf~g1TkPjh
zm8R0w05xMCCXcQi9Y+I*V>(b9CY-M5q~?KCwV_0U@ru>rTi0h(HIa?6sR^~n%8&yR
zQw{?A*XQ8!iGL3b2Pr0U&z4Z@-L0j_sZ1hgPtu#TOR=)tVj+#ywuq8%812I<Vd5&-
z(fVv;)0EbWsv3T-XP@C@O}W-rWv;1&`ltE<oO_DMpHLX?B|doEsxrz#EB9|p`gFUq
zPP%7H&r#vNb^D<Uae}kZeZ)&@Lxz$2aRnNWR2yC&*X%*2x&+)#DWApQ93nn$zHP1m
zOnYz|h5T=z)`eQE^$Bat%NyC9p5MV`=G|zp#7Tvy$PzrLRVhFuJ{r6H=ZJdvMffyQ
zaC(q&%(yWYTWt}K;k?Z_E`m3NaXW+hf#^>Y+_5@7`kpcH4S|x_>aph&+mk7Kdizx{
z?ttKlGIn#SX~AKU<}u>@+FfXTT#5JDHOCQ&X^=MnJ_7cbZd*jO6VDNT+ac_fNqi0&
z2Sj$*WgSODtYIAPoW8w%^KnQf!n)}GwPdc5uK~x4a*p&3D&50$7nyMxUtGB>uI6Ne
z438EWEnx^F<)(2JpR8CQc71ZR>x=6AMqNPV#+dgI76O@7)!A(&d@{B4C_qKU;EV51
zVU99_gJ}ubTs(4Gs1eXDP3d}AYuRcpayKdudM(>Gf)NJJuLH;&YcC1=B<RviLZ-kx
z_h41`t3l)w;q}1d8EpLk6)REux_8qIn&NCy)-58Q;j;DM!mzam>{RXmvgmo7A%byb
zr_wCqxu!XM8Yncyk_<mm1^0R^o1ei6&Ns^O`vcc9;*nvp1rVix4OGt}XAjFe&Iw<W
z!OcTX1N+EP9gqe+I0djq2RCw#+J)|xVO37Cm{q6qUZRHboiEx@x2f*{TKh}8vGl09
zgvmr2dv16Sv@u2ovVr?hOK77SjeFpeQr41Np9|3iu24C7%7C3IXi&JBy8FROo2kak
zdT*lCxK+EaBtN`syE0d>jX3>zO>-C8xTODhV}!g3vg+B9)hEIICjG8j-zQF0UQN#p
z<erZDfQ=A`FR{rr;IN>+s1+4*yCj?hnv9AD@?bUf9m{J`;=cJt&!@;`vuhI%iVKya
z7AlL~k!oB8uL7Jc@-6sSWoPm`$nOKwfW@~>P@lO@HGtKqlxSvU`;hv_Q-hrn*>won
z)}O;WwuPSbJt1WKo`52nY1<a(%gVh&1XXo!3YyePtm;R@-Jr}ltMeJfd3%`M`#!}N
z0ira4BI=3PpAq@5fH~%{7=;k5+%_Fm*7QQAEp&dcHI!g382C9(7|b`z2}$c&%?;LE
zdbWwn6Tb&U5v`2Lf<mk8TK6f@wXryDmroAyjkBGjao`+eB92drc)${HeT<W9s7$9=
zjx_3VC21b*y-&OV4;{})6<Aom7(Jm@h*@_C{2+>0BrQCDoCuI1CI(0}qU62gYyI~=
zw{R`md|7DfPkpTNGTAHpMe;6{=VCFJgl~{L0?iA7OLR(q8SE%LF~8x4uiS8q2@+_y
z{QAH8icEQyHKfhMmsptBFA3GY@qwRH{G;8MWWkv5v1}bCA-j~pA<kY9_gO79haHev
zQJc0^F<;(dn&%)PwUO0*?riP81WT2LR&v)X|3N7bhhJ$+p5xviKSRi>Ge<|w=x>qS
zG$y)fx+@wv4HKCm|9&^qWD&C9RpD;IZA!MkgQqac^{Iy;*hrZ_>_)`GPHt=Ze7m1>
zf%%(`Y%8$2#MAje;VD*$<Fih-A-|_>LiKh@9|Za!vkcZ+<y*IqhTCKNiElIm63oJ5
zpC8+#NcS`~D-CL>-VSWnCIMV9M2u{;TO&4)Rp*rq)#BImiC&9X((`F1x?pI2(0FY%
zvT{M7r+53M$$*4NiE^TOLJD>pJjVZnm4@ht>>#0?U~#1v%>z*;yTs<L1oH-4c7O|0
z1rk;Sd?eKP=H<F8=dux($3Mkvoq|=|e)`|RuR~q5{>hwID3=V5kOw<HG%%+BppM!i
zPNRl#@3vfdX|Q$sSi7a>FHyk^i&FICGMooVVPxA%@I=h7ChuAMh2Hhp>wL`+pVyV=
zJz183^Er(EAg#pI39)nQ4|W=Ss%#TZUb2Ow>5EQ&O;gXcomaqpb0W*C>cc0A6-GNu
zxbN0eOX>6S`sh{51!tVsj_P1#6olSw?SiE8c=J}HdfO{|vN#7S@WW9SkR(2uV^J#G
z5<IZ(7UCW#d#-VsTbpsD*6(`H&acLpu)Wp<Kku`r_p|%v-ShSfVsbxuuRMgYcLaD7
z_7i<G*;~UCY$qk#-%!phAeneJx_9P(#Zcx?UIN>rg!VctP<lc+i;8(;4sl3xtGRoX
zTnwzS5<~nY@{1-H)=i4jSHhLJ`uf2F)3Tq1So<58tzdetF0-mcw>608z+4d04D=dV
zt1Q&+@6(#v-Y$5V)#J4(^-sRZb{%qm`O&No^X2JeQw?o{XlCUBZ;RQYQ<%$J!6BIe
zmkyN^JL&51<sd2^_2o#PEV{D!7_u8u_jKPuV)&u*Dz6JUd|^y7x1pi|IsMd<Wrh-%
zNQ#P`>+XV|$^pt+5T}7KEuoy@h!)>D-zPZ9F0!Z5`?3Feo&m>wj%yMwaBBzV8#wW6
zHIRix{<};7SGx+4vF`q+)a?Bfs|gn8?8Y%DpNzQnV)c2tEJ7R2L9DcQNXfe3-dt_h
zyt)8kY2zU<3O2P=A$I2dJLi47!On1rXK5c$R)g-gwl#!)GHp^Cm#`)Jd$RqfFHC9n
zuzFv3qUm6PLPuzNkaCldK1ZZSY_DJu8%xq8q5H}hZ-2wLWP|K1vhMq6v^keC9!l8m
zPA967GvTq^B(F#DY`C1Zw}Ght7`%zx$_Hc{7^$Cn7X!SVokTpt&nsNQtrIN?qS)ON
zI1LXX(^i}o?pn_|=(|FaaF_o|e+r~p9fUHgjv^aj+%#WiseB8$vgN%;t$J!z&RNYv
zK)B*P<6uXj2JN*eO;9-zaNW~}L)*FFrMlTbD)e8#vOpYNY{I;e!e&ZhVNV6_qaks7
zWEJiJJn>}LMyx^k3OzT=jgr?E=o6%>hz0_D;GSE_B2MF^iayU^|0z-SwycdL5NFHO
zHrH9tq8UfRmc5e!y<-d3+5(v6uvW$Ju;RZ_G8cjb&}+DYA6Z-79y_(4yZv3*Ujsj9
zxpA!@HQD$^+My!G2R2cB(gpnsO%+bya>EmjMB?TVYexk}bZsR2&49iMBCdMkm|0kE
z8X595V%bARw%V=rkmo7?dRVE_)dZ4V1L0E?HMxAQa06zFkT;wv)v5b>o0QqaljpPA
zg%Ub{f$%{#t%Sv|hD^3z(XSGII$ITVM)*++tEQ?(Lf3uf9$HV){buxUaZ03&0Zc&U
z&SjsDq5&O&FA;aD8`u@B$I3b)MzgkuM?If4hV(<olg8=IX26LE0sNO%evhN+=2X%<
z+H%z29CqY@|ALqxZ`t9TnbPdC`H>-OQ5ZwoN1Lr^rLbihHO+bBs4hjtAA2%Mb3KT?
zP+}<r4+xRMLzLsHK%~j;A9*0K2Y?F#`A`^Lh*51<_~~j?u)`mgG()_z_Y>~z>T0!f
zVBQMe)bD6+Vf#3l5DU^HiJ~5-#V95jLevc1$rsT#teEBr>XX2-faZW-lh9cIOl5UJ
zx!_2sd1#^AFO_THKgVnhKrw;Z9l&y~JQwp}bdeYz&~2VO<duh3@^i`)8bd%Q*zSn_
zT~oxKO@|W`O+TvL<N+hU6-mqr@G5APETKw}vSgOaJX5^Aw*@;(12%3RJxMgTeqryj
zDT}gsbp9l<C>V(ODR2#DD_+?!glJL-@7mcCba!RpG~ZAS#N8<gkM@F3BOJER*QpB@
zAy-<0lMZnjP#rz$xpHD3Yy?jIzQWhpQ0*3wL(I2Ct7rbmQ!%+#vv*OQSUqcA(%vth
zq;uYU&OUGMr5H<j8cjy4$u}z3Z|9(6qx5b~plFCJ0++#h1eSnncad4_xbP=MEfDUD
zh;P6*rYC&6EhhZ2JQ9Em8)r|{zA%LvNyN%)Q2!<#ARa!=2lod0fF=To#r|Pzqcvp~
zaUVCfW*2e;?9OQ|!78(nVk^!<Y(+@3(Y*RzK=o%kF;v(Z8z>_iF3414hI3*Qy-s^V
z8+0}?T#lVp9IzD3I?bbo?{SSlLU3YmkNlq8I}APwtr6;b2PR`RJgIV_R&x~$B;Xf8
zx8CE;YM&!6k83Z+>DWCnVVrO5zA@^!?}KF~-*wBZYSM;G3$XZSg@`7VvTta8Y+`k|
ze3vG7%kZl3zxol+=$-{4bB3~BTyfjm*xA@s#dT<{5$?clR!}#iI(<;Fk$4LDA%=di
zernBMAtXXBu_Hbw6o;&^(3<fSd|iFQ)=kAG<X#)MqT&pkgzCBe+q0o+-aso)*)4vE
zFu|LVShS^eyojpTa(L0YJ9Z96FgdTis%JgcB0Zskh(GRI26F*9^0Xco=9=_52VC*x
zJ96pNi|QLNRpF=y5-Fnmh9NhgSSR>Ed<m>Y@}5$E)_MggZGid$i<w|$NlZJ%3H5kX
zQHzJ_hv+;@ysD>MJ)a-0MimYGAAkNs@Hl$V^@e;ZJ`iQ&;I-1;PYJPw7C~ED<QAF$
z>s91IJrs5LV5kGyxsc7_$*xnBzJi$VeK8}EWH~AJBQEJmH%zia6en5xgfoidBrFvW
z82BiN#lgu(u9Mz_lapm)Vx3;Z^H^hsfg8h6Q?m-yKQnv)rXH$U92T&+)h!8#S6a&^
zi2qsSrg~D<du1{>l`jUX4NDwHwcSN-G^MHLPZxA#i|J4@2)xe~J9F0h)r^^*`!iN|
zG-5i=jj+1SSA5q|n`6<*4=rrRPNrw0(WI4_@N5OM;ZDBB(-3LA3H_H=_)<m|#n75S
zeq2pfdV#Ul7l30EkBj!Q;;o;qXo{Yp_bVAZ@gqVDxQvA3Kw?#S%{}ADr{`H!1*mq^
zUIh~_4`|sl^0Mkvil^c<YSijh&sLn{j)T*3Ih#Wi%;(n<hZ%dQN%+SaHp5$RW^tck
z&)+&}24?R^ji#{yda@<>wpQOK0Y2*q>#B|uy~}NLxPvT(rGQ-7StvYQw#PaWH%%f^
zvT4t5G;rlc{(h4T>_^b1=}`X$Ta!YkEdNDB=D97DA10q?#~t}6@_CikLAC>6U1el^
zBOoa!u@TYNaJo64@B=+P*FFvVzsPKU{WA#`bG;SKj=R9mkNK4TpOu%3(Pi-xI=6Y5
zSBxA2>UfBIQUM>{yNC=9P-+SBJF0WlPGszW1fe1xQkd{U-^ZDloeX4eh1;g?rJUHq
z*>8hITtz)<ScK^n^x25LI0qqbLRHgoSgLyX_^$(<Sk10?5l_y9E2)x4H3aOtr%MtK
zm%`6YyoR_Nu?eZ_Cf2crLzz~i=NV$-Yj%0TX7t^J2r4`4DeAn1Ly%{}g!Y+rLf#W|
zMUg1>_ic<$DF0&Ap8;Y;X#6Sd0z<)YI-sUb2gF*D<aF<xaj_^s4@8A?kam~+8KDG&
z(eK7*Clr5I4}6ES5a$b3tw!*7cKKUZqCMe6+fQZWSR3CUi~}=3)mX?1bL(r4hp0n_
zq=Ba+9PnDgrxGO1@@mxaQRYu`)tQ4h+Jf^K9b!WQ@qa&$yBO~xm7IV}U>FiIwLne!
z4|FN<2Rv4&gGI;!bOe~^{~_-6JAS8khVdi8fmbJ#BG#a6Yxhs>>b|H?gV|(x9#no{
zZLfIs=!$9qt}nsr7*SD?$?|qldzHeppNN}W%2C#utf#WyaUvlztwD~9E6je8SpnRi
zPy;me^iVna2%*E$4htgobmSn}NyInxLE;8t^uLr}MvNG(Uyh|b6nrWrVl*S)ci&!Z
zaGlda*bd{1)jdRvF2)R_T=$Bos&3~S@(A|tPgtLKb-taH!6?>8X5w<GMYt=x1MJ}Y
z@Wiboii|2V=rrh;D}E+O$!fVn^-P@v6_Mrc1X8?+^{@Yyim_jTZ^_*))lhCge%2aS
z9<Xe_zGKmjiWJdGT6;Se%9tt`o}TpCZp{kxVOGW?D;6v}R1keinH=DAKwA+bMx$QL
z0hm~J%{{0O;vCfBhfcE;C-RS*gd+KuPB1iuC)zz#HauBo!BA6)8i=i`d7BQLluGOp
z#N=Rm9z;iu1mkteHqz&XaGEI<u_&TkuvLi#hs-H-GPiRq9-`f21G2^T1aU<>j?GY|
zwrr&NQ@nM_$krNu1FiscfmwA}AGxLmLeG)_ugmrZXD{5}jP~=~W$uuW)c^@){B|}3
zltyyGCLjunJ2;HrEDPW_s<Y|NQL_X7=Q-|hX&8CX(Tt<_wlWX-A%z>obrLeD#Fx=X
zE0QXNUcz35%Al|o*w%TxdWvF^n?QfztD_qGt|rFDWavHOfk%pJHgaNinyku0=A2Gy
zil{dg&H4?SCbw~<L7-XrzFX@z`fY4)6Z$3pRvA6`O0~XaRgI8adQeev7O+O6D9c7y
z5B8-)k!0O`WBW!K(LSNl%6+k#2eR`|nwN;@h>Qm2OpmCA%OE@`IEl)9UW+QjB6pV)
z<v2s&)uIXvmU);V_v;7I;dlilp!0M^{FUWN2zw9Tl7W@z8-U53Heg0Oe*mv|Y@>m2
ztL|zc2TE4v7Wmsbp4YjcqQR<8Dc45~jb1PguyVvK=?#pt#&wlqaNqTOm-y&r1t&dY
zKG*SITpoxQixuDdLZ$n^f<pr4B5HnG?a;GEm#Xh&BZr_!i^rb^C&6vJv4Z0;$y_C;
z@spJ?BugzoTY*jv!I-f;Ac4!m@=KKAt;23-7PMSM{v|F>89g8{P=w7Ix6PS9!w$%z
z7#nAJC+hkb8y7ycBFk+<T>O$|UwRY=xzihSN{Kg^M+oaAj;ZzL0s)z<a8{eDRTV>i
zuoNBPi@?wsi=nq6F*v|>0q(e`Assw5D{PQ6yo8vY*b(oW76Ve@wFc~N0sKEzqLpua
z&-NzvGy9YvnI@rf_fkkgb(_ZZ;ozhR_ovTWeGRNBL%W+rxe9i7%l9CEd~co?CuEeL
zm__I=>q&wZeZHPH;3}w9oXbx&?|}YW)C<K}c1AO<cJo<yP!8Zc*N7RWDd+Jlh*;DW
z%SCh6#1EhuC!j+~NRM@XRSQ%Dc=3L+?zqMVLFv1Mng;B1w5+ImMY+yS_e!OYrYO2w
zXAxzmG$IxNKj+mzp@Pz4ohrMCyx*2O<;*(MGfKM(H63gpn?LrC>ZCNFM;kd>x3!EP
z4*vjIZPcm~Cy-D7gR785sa7h((p-muqYbs|_+4N(@G<w=7PhyflV29K0?eC=X`9(V
zR@eE+Ly+QyC$BWk(G;cSa*gl=^=XkfpKqDZ@*e0oNl_zZ-+e~m3{^#8ZDehpG&B6J
zajOk1VP>fqN3YGIlav^sfPEG__BNLNx7-uv9rBHSE^l0N=e}7<Jl}8w><~0^po(1W
zzwOB==TL8SrJ}x@kea3Tg=~%_`U$y%^|EPCBWIM*cYstnbs0cKFp}_e4#C^hbtB&t
zf0|Ae?qhRrQM5IX!r0*Q5+otG5=jrQ@*e<4mE}d0=ngS)B5Gx}I82l$Q^tnI&4{`?
zrcy}OU<F0++~#s1gKVa}HN(kRluX$myAh1bYK%YdHbgyG<-!iEF|3XbD1M;HNf^wN
zEZ2I~<C*Y(;fcQ)&_KQ#s;jtrPFt={8ip`?fT<_lz6MS>yY?Dngo$k*i9Q#e)QQa6
zinjw6?YKTvax@wIR+e2=ha!X>gV8J@s{|$kSn{jnaL=`FpaIewLbhiNwXS!p2=>%*
zrnwNy5HX(<8D_@%isnj_t_ghDwWp<I5s@|XM1qEPc)mi3uZ-AG@U>MG52C|gHMdQe
zQR4OJ{bu0IdIh<M(|099NzI|OD75nF#rPECH>qT*lTdUMxpj9T3j`e<@YZ=ndlV=s
zS-a$(HbZVuLv5x^KHxX&2nS;td!%0$dsgM_vkXG1OP^Qn29k@+j3BuB<=-|+qOtM~
zyLy$}c@}70RpsS$ULPJ%e-+o%>{9p`RI^Zviqe%kLaxT6ZORT;0C7)AdU(u(_u@6M
z>ebF>uvyrQ^CqgHE5V#&uNQ+GX!yEg2=$2NLez^8_wnfDMz+u#z)Ge(Xf%#do>i&f
z(foY~n7dd;dm41}S34>H%vQgUDI#7XElG4s7!|Iunmz1j<=dI3fN_Oo-qSeGIR@vf
zXz>#OGKg_MC6pKbrTn|1Cd3c66lyauid>|ASksr+_zJ5^Vm?2Z+(~H2^?up~?e%88
z-PDvdJZ1O*++Jvk=gbS)=B1o@Y7SBLyx!viCJP-IY4cO~1O&c^pHChPg9XiUZW4B{
zT^y#&2d!DNTX&k>ALfZWem`1Fz#C<A#h&5znAun^f!J53-mUZ*-1})EC>ZH8sB?-&
z_=Exwei8GrQkg8)ds7|AJ8}04^}bz}*fLZ2p9o32Ggo58`<We7ufAbk67K_U=Q1+B
zmNL5V=cb#Xut*Au*nh6La@|Sj++qY72S`uqjqvO<Dsrg0@NSkj*7Ts-4-xz3@$MEi
z+MNBz?jCc`$I+P!&f0(O2~cZ$*_G9H>-iMK=61H_fA@UC8DO?&Gc9XC@1|_6HJ93X
ze*Ox|UZ(62PPt)XK4=$wH3^5ajsMQ*q?&=lkx%yT%^W>D%^ZseREPzXbM3Bd#z3Jf
zXkvWBKACj#q*G|ZiyA>4DjBHNsB?>U5enR~C8!!;pI5gt77Q|F41wF}Ml%!}#z5}=
zfy2FHz66-<<`eRW>qs`LEaQ;d&N$k67ziD4$h!k#XLkUW06$5nhv)e`utPFfSGcY1
z_$#c~=kxhTn70Ac790zO{ex-@_y|?p2oUl0QQlA~?hqDA`M%~k${@i~Aag_Upc={m
zDpa^`izqcig<s!!rJuV82p83|pms)PEM0UFq9=gWx=E;?b~eheI5<-5oA%BGz|tX=
zMrcz4UF*3~!K?Q60Cgg}8Nf+U{6@!9KB%9C=I$5aU7Zh}GUATfc&z7DVCzQm&=OcK
z$VOK=Cr%N<fC7=WMK&jv<R4|-*nG6qh|0T>j>Cw&FBsMeSKBPN?x$7Y-CML5I_n=o
z9=yM})E^>y%o~o7=Maj-v1eCMNy-{&LfuvCc0uyLcO_%p4aHvH5k$gHaSO&u8{QO9
z1tM`7gfc55MY(Ka1AQa4Y(_Sb_^v!S=}~qJ(}uQ?b)Z^1;G<{3G|RyM6SH}-xC~=&
zE<j5P<q1$z8q<-398~&&hjc9#tqCzVvOvAa#TY)gXA2kBQU)DbkLc|Lt5VS8`ViIA
z7}<`oD#i=eZh^YUYQH}}-n=95yin!)Ep!r~v8VB&5pEp)jo$s`cez<GRWiDN;2({B
zvc1Oe0cyd7)i=BbJe_55*1D?g?e;e@#=(0st^C92*#|Bi<N9zV2^+r3YzRfH+VXXb
z!%RCNVH#XE%z#ixV*x){^#GSMf4kiwaE**kg=MS`fms*T2}m~o3vp2zy|#rA^l=pC
zU$IX?ju^6gU#X6>1i{P$E>kY#>I%W_(c9x3O<b)pc3}Q*@M+?k>OP^oE7k)}8($Fk
z>`7R;1Q}UzeI9ZjU{2;;%LF3<op_~~Id0CpK9Ccfevm^30d<?md*Nj4bnafC`i$>a
z*e5fkk|DG6WIJMe0o|<NSG00@=%=-xkaqZ4x4n&(EZv7#z1LiQ9Zv<oMCE%td37&w
zt+l|it<Q5nVq-Q?E1EJ3X;m1O2HwHEA~%obOg7`HJ_itv0?O3i!pYz#^56_uEf`5+
z<<r`J0$OiqDyOS~9uw)h_uA3a(gP+MRUZWK-lXMF1XV`1mCgWE#gcKP1-vdUC%VcT
zqy8CC1%_~A$7`g5xr}Aok1LU1raCOnA&1+)#Si)qp~3+XFX|UiMU2LqdAYkXo1mGj
zlTXzy$l0iK1(#VkLs_+rlp{eF3Gpa!kNDFRwIqi~nHR_?{9nGO0hP>;pzlDJL3$m&
zW+ACDfY1ID!CH0MIL#fDmq~|B3$2vSqYaVO-x7+mT^(Vo=3coCnxwg?%tPD7IU6|F
zPw&^@TRM?xGN#LRUyYh_%dBq!d_;H<(NSRe68PFoy%|UvMT~1HdfC3AS2_0yo6pon
zH3{Gs<dCP%*!tfvBb3N_oLHNGqu?v*yA#Y05<)H9UxB*(SXd7lC9c~X&_$y4tE0%j
zfp3YLUKv_!^%e8{%4f#vRITvR;U7%Ew;q8?y)guhE@V&c^0#<9xaESmfZ8ev`u;=<
zvb?GloB^{V8bcY{Ae2Ww;@rqIokzW8mdewWh+YO;k^8se>_au5x|J)8-4{z;8_=GJ
zb#oABCUjv`9)dMVyl?Um%*$Yvv>J(L#ITsO7Xzp@Yly@Lt@*as<6b5dR2xJK)N(Bt
z$@fHnCgLn8yn%i&r-#5~i^<~h*B!>+2xr84BOYcFV;|68^AQO~y8y5;6JpE0(Dx?h
zL|x&K<;>zzWSx|&8!{860`!e&C{DwU++oqE<FmjL(D38Fzoe@ZXB)gJpdre)fu}Fw
z{yj?DP2`XE3BgY6>WyfnL(QI0#R|m)bRJ;qZSX}@yp6(Fo&k16?0eoCD)twC#w{a?
zjm~@=G983uB$IMKVFBwCj-cNzkl)?#KdIY=aK;q?YN6!s)9rDtKC~rMA}~jpq5aK<
zEO7oL@TY1*?=r0wT^Eo*RMpPizX=Uxr%AI!$o%t@<o}pQctbzmTZkyCHAq?JlWkP-
z!nB1D89&>Id#|7FLTg-VO-6b&s_-7F+hX;Bn$BH7QNj5jc3GKGy$ADS$h_;h_!1!w
z)pvMSWsj@!yl(NY(L!B<wlH==KUyQxh~hNDNTME8(x0h#WtF5&L<AKCD}CAPfv+tX
zA5Xzr!D)sZwhjDLQXB-+ir8vyF;DSTdE_{O4qq^gsd_qY48Y&r=3mLQBTgk&h<fv<
z*y9Xsg!e{&A%E32P`iCYScZaC6p5izbH^Nixf-hc@#UygfEoaP^K`W!k_FR%xXD86
z;3BF86y*`-BV`=*5+^bmTcCyqNTMhe;jC3o4?*#hvu;Pa7}qoC6=CjJZYbdfqcI6F
zAW`uX<t7lioFe~Ef2%4Sz5%|arEAXoaw&%y<f`7W--WYY<8}#$s?ZSyeBvQkLSzB7
z6}ykxS}G8$u_uXIn^RN&;k`C;dzXpu8WVrOR0CUu_>N;c;mcEt`aikbB;r9)S4Sh*
z^<7}^mx4!4`0syuukq}Akd-y^<<pfELwwEd5HPQ4V`Z>%##I~Z5cS+ZM)f=JZ*z?7
zoBsdVErw?L_RYsb=4L`2#DP~h3$**8{D!)!V_!L%%^1G_N4sRs_R~_A8LSk4H~=26
zhMr#OXdwZYgM}J^lETW^uk4sVak3Cb|EEuuG0%7CWKm|#`2WeNg1tbeN<Z|*|C6T*
z4+Xn_|5VYTyNwYwA}goLpF{~M-|+teC1jW@^DO=dO31Q}s0FQ!RL+2311zZO?F#S#
zI!N(`sQ^;NYlTakL55~7AE*NKuu*ZPRPZY3AVuu|addF7^)@<)vANAJD>SB%zd?vc
z_Si5OpFl}j`)|5O@chX$iI~rsuWfJT%Hxj%Z8@+~2gZMn&$ar5lV@B&#uY`ksVHL%
zy{ZupRYP~U54AY_74OVS{a6ZPGY|Bs52z2cyH}4RN9Knnr(64alqZhvKEQ2??bo+~
z&A{^MS8p{uJFe7Kgx+r8sutzz<`UI(H)`zA6-q%{nYLe7%TA^!$$bBpl+yzFKH`#R
zCPaUyy|a?1rV3X0;$SSGienKzCV2#!3dwb}6jl5ySwrSittXx<X$!zlbW#6Wpl__w
zp%U3Vjn5?q_%(!}^09<w7K4*U$|ZS)J;BL<v<7pR^eJjx!E-JgrCg0b6)u(VbAg7G
z$_;sFVN4vZmG*9jjaLl^paTikGU@}y6qPJ(OvOX(50vf71^Pf-Iek|90bb(;4jhme
zs=@a{(TRLrVV}}|68RT_Ri+Bk*{bC>DHn>pEXVyt4YE1#2vL5+ShhE;w-gqDp4xy7
zQl{tCAghxMLjRO`jZmT^{U`D>UH!h_00V)qpYZGhz&_bk$LjbmQ7?7)HpDC|jG_+8
z6&0_WRm3`O_e;uWRTfYYJ-hiw9Om5$<wq#bcc&jTpBvV?J}Jr?#?1BtLvy~{61jW6
z``gGAdfF(D@cldgCVUIxwiwMy<?KdXH0xz0QI4lKVwo#LW<o<1=%|(o@WH*P1&Ei!
zOg)CTvA$wdXF|2h%l>tTJ<sr{>b*1}{?g}qvm5naP1#1}FI@++E$fcFFp(@=IjK|~
zuR9q;3(GcRcyb#UUtESi-1bVa1~E7Dd&9dzf6IMK|JX05C_)ipsb(3v8K?y&o+Ui9
zx9qQ=qt|#S-L)J@4F|*vJX9lDz4SjeQ&%!=6YK!Gpzya;V1&GD^~u`uencgtfrs@A
zMN+}fI5vyInZ|?Mk(5aCV~tOIVgEbRq_BWlTc^Dy!CNW=x-Xd0l5m!n!=n?@4<}bx
z4nDmfr}YTCw}!-_O@4<B@%t?dyivIO3S(1S#9#EG4+O<JqRMGOqjAK5xHg*Y+J8E1
zEIkO`2j=AxbnUYv$<Fc);Y`(>kWuLLaj|{&MN|=>gPlM8{<J1|H&cwT&K0!KY%7@A
zo!>tLW!=J>_NHM?9lirT7^?w8w}^nC3Kd%B!I|seJD{kYAK>pzF9WLF-h(QwNaCX*
zs<vi6q@rmKZ9cJ!V|yURx6I{$6R-R8>8=(#G&L&ngui!SEsG~u<c4aPWYm|1moY=S
zN~{yJg*r`?wxTKq{wy&x6i->mNq7uhz;cKW*@LchUL9gWX!bIjwV6AjpTOE58o>7i
ztDmk+e99btZKAW;p9`-XwPim+l|X~O%vjQjN{~0-pQzmel~yodeyGnn_Wp#v;>x$7
z96c15vHmG}7Zd`spotjKq2ikQnHat<htqP2sa_jZDr9PbQHw*pX*ijw_htcqAWc~G
z^Q%LCPS|e#xD;L3Q13^a!IVa(I&V?9IK#qoIXS3p#I6@QTlGLP@H(ns7}HR-6&ynF
zSOUOtfi?Isk9560tmAH`fLAM|yZZd20yJDYPf}JvU(pP$HDrmHa>wSZ?s8#m=u!bj
z;+Fcp6>2zFp{0%<G>YD$RzI9VI<lmD)LzXeoM+=TI=uO?`TCcuM~6u*?k~jE*R<Ov
zZzKytFVH(Q_M&%jvaj-GwNvGey7fo&O6rF*6RTbJm~-z^70h3VN*xUTos~yMhjE3i
zZ|}$ZzRj+X8PkwRRsG;Qf-`)bcxY4=h^kWFH-s9518s<~xWVSdVot|9KQ_(b8I*5T
z@}<gmew)5ivsy0rUxi%@P*mr=KWF#s@)F7dmSrX8EV3)R=tjsIaY?*O!#jYoD=ZjL
zmN#qUN@8wFo3`YEG33!2H9nHutC?(~B=t6qo!X4IgRNSU+DsKQVw1GwMr_LMb&}SZ
zJf@T0-|zbtC2ejx&LHfbJ?GnVzQ_Oj|9_9*kp1xa=#7EU*!N9Kp+V%kYiLl;9pcJW
z6DC}FbWYo2JEfFUgWJ-hRDMW3hYXm$p#ph$uq0i6tD)s`dtxWzJ?x#31;ZW`*D}HB
z46NeOT&OLWv4^*=wzc6o!|WRGNoOXJsqK8THl#Rj*}hl_-w90|Fl~_qG~qjPj*LKy
z_(E|J9CD}!UZmwiE&oE^_)&?#eI)hN3r7<F>YGt;{Yz0fBl1&lNQ);MWON$2?*h(>
z^409g64YG_cRJnxPWkbci5JULFYP%*ueNq(2cK;9^9ao)-Rs%{g;$sp<MYNyFLwY-
z6O7bg4pefe_~V@b{~A3Xh#oj8!H*4WGAjO<_VhiTpC!~8fGjK4rQ!ou?Z6;&YEnzp
zg7L9%H>;~)L-DFkqmy@WfVRhKi;uJFg4BG+dDi<I(TBueXo*lc7PB!t!oVwaj7M(_
z0lA3Y=9pZ1CNh(2oQiI!t3{7&ce{Tko@(>EO?av=&v~j=xlfc&bqSs-dX_GFM#aKa
zLxbTu_UQI4!Oz9#8+$KY!fLYRl{sfHERfkv*}q<i^=a+cHumX}Q?gIvfA;A{^l3Pc
z!As}TmP5*u+fA_^YFH3&y9cxLzh$0md2YS~N{F)O8f-^PF9=Ug`HtzYN05!d=Qu+R
zHO59<BS+lGDUP_;c;<sV;=cOwXZb&S_{gbP4{wb1aJHlQ&%-!&bZ#rM`YWg)hHt`m
z#7LQKNBO<yiZQR^KJ8AA@;(*LxZ5lz_eVFsJqYf1<-0!Ksm8h;R0R~@v-#cgILpg(
z&u{&#Ly>1#hBGueSL!@N14d9T&T(T?8-9j=xcrCW^SIa3%{ap=JcH!IC#k4ELJ46B
zGDXDZB8KxXf(GT3z?+(3`K~yr_nXALRuSHTvfAuu?B0c3ZvJ(Qpn<C8$o0wBg|p<C
zISn~(LzC1g7o+>G3*e~;ehztlN)U?oP`{*pzBaPu9QgQ=@Mr}vnHdEs&)+)M?y-lI
zCgMFsU)`2oCOF<r-Mf$jM!R1*!d5$MJ?`I|MC-E7ZHLjc-o5i=6tRW1Y<zUuqJ40P
ziVVQxJ6oaRjqi}MI%@+~IO;S8;7%izAUmjA01bLXB5DFAw5cON1I6OPTee3-9nOVr
zAotzxL~jBwphM?t>A6$U<Zj>^KB0fBF{A8tYB@+v%r>DqAhaMS+@ESI#VYGT7A)jS
zEbgZ=i;S>=a2joW5&9=-!7R}dv*WW`X2sI#-Rr|9C{^bE&fo#^-dgNq-EA3|d<`LE
z6V$xsXC>nP=eC(+E%*jCl%XwbHXL>#OMX+R_9F4^bKK5wC&6lSyAQ;TI7Tw}Q0t}T
z+*<JFjX@~>c5?1Dup%xvkEvtrP9kv<$H<bIRWC5cva>?PKy|nmUcon@AKVa_Q!y?U
z^-`gxz7Nb(!SY5X=bOyRI!D^9Ze;B`&C1O(?tcgPJj0c+U%LajV0!`>NCwu@RV|k+
zs9e<mmPl^E(X{qWvLl+b&4&cSnJYp{jNh^q8Icnb)%bK-%enK>_U$Y6fvQ)_9LQ(!
ze>p~tBheB0efV1X@C(u80eUbj8QYi$b#2@a@Lf}CE!2d#-scP0Ur<j-@ZQ}<lqU9X
zuox$I13TCK8##k-gnqI$057(rtjHe+9hmhuxwrH^A+$gDh5bNFWZK~7f#^cLSt^o5
zHrP!8svs!qQ!dxceh=o%vC5fyr9*DoI{W^FL08#5=6e((q{`mTSGA?oNk%<Cqw(kl
zUoDjui5bwf5U{q$`XUk+kpxum$n}202!sSR!-aC%eWv4rAtX3>Lbo;{AG$ZdMtdr+
z0M~Pt_=Ggn0I|+HI@mveNu`1zz5%?v;AglD@ywR>Wr%Ww7YRlbdI$Y~;DaSbDP8e2
zfniB3Syq>XSV_FHTxv>j9Dm^m@tN6~NMyejGs08!g;z_0m|cp2=R;-`b!Yg>6*Un7
zh)jE3&ee`kL1-|U{&d{kD;J=!0liE)?%G#jPam=U0eeu!2ZAMH9I*)=oL1BTzahpu
z5@jzKig50OFBdCFs{dHm1m=Kaiif>b>Q-<BFY6!hn;&u^rqmV{<+>|c#)0WY4X<$q
zxnsYHD0_T2F-JXRiRR*(bNVNq>&YWu(91o4Cb|(bjA$=@$9vRff|IbgI_7NLuTe(B
zM-R>RQ5h-9`=C9A3@fW`dhG9zE2FUgJN{xksT=A8V8DQ#R05vFzApHRAzm(;y*d%=
z8%*f45yZjjZRbMuVd{&X?ty}&l1s&2&7O#iDt|+dy_akn!)~Jo%Dh9Y_80496PX?a
zR`PAPyLPYFeEpM*HyW=lbXTgD-L@Z>`3Ej~iF@rs)!WCsyjEU=*>rUZkOTBeRQnDT
zOz0PgPLw+b_%DSJdkY>CE5UR(R&LIUXZ=FdvreJiu@Or*1S8t06v;OC(zU51V`IX5
z{z|MDy3kvgzy1;HM}r2T!I`!)bIozlYcg7lMRy3s!mJw>;&J|+3VuZs6-2&)dv_Zd
zSOwJFvZuUX6$oJ$D&A*r5*}5k#qH5N&^Eb@Bmy-&@_kNd%N|eY75VZL8H=Q@in1hU
z2lrptM{r)1I#Y{6DULGE#5yWYmZN1lGCx4ub$@O|Z=Y35ajii$_}of++#8*?)lZgV
zq-i@Ff^a8$u@#?{>tX8j5~-b9Y#LqNzkUbNaEw-m8k3)&jOu5&Q-Ahl7{JTA4r6HQ
zp}d!iyhRh%e2@1Y#9Bv>NVa$^tC8v2+RCfNXN>^2FP!$^<w~_xjAsj;%ncXYjHShz
z;eHp70Y^b#UZHeaPBj$pck&n`yQdN^Q?uNrmv2MWM`+fyqvg~K)k>jYJZ63byTVbj
zn&ol!YszGj;{kVIw+-5H9b<IFkWVSr;%ND{G2~avpJj!gxp1Mmvb^*n=0@Qy#x=5H
zjM=Hker+qBBRz|!7%L}%X@(wWpH)zmXY{Jn<x6Ug`~^y$Kw_fb{{(6`iP#_gcX)s`
zW}(2mS`)cRC6|Z~p^U1=yJwjR@|reJVdRA)*V~qr)r<MYG~G^Z*kg)|F($ZPC)TW+
zdpuoy-G1mI!+F5CbG-=;MerKwLHvzz*deQRsEM6jiQQSep5$!^0$(EL02xIfd%}2k
z4XRDzo@fVBP;F-mk)cR|UhRC|8*rixy*P(U#1N>Qq;#t3;%ccA#6wChic%=@Y4gcs
zNTc!}M+Ka`gHGfd&rxp>yNx<<kBHTVb`TY7<H8E?vY7QyGnIUDgWN+xL8L9CAw>O_
zlNe*1*|BSa9!2MuoOPCQr37luxpd1nU5=WU;0h)cb9-HHyL9Fuq2h1^?5amL>ZQ<E
z>(!~a4<&!in&ti&+8s%#3OKU2yTA*qjHjcLQTUsBmjrjH0xwKn#Jt;cRV&t7TSpbR
z4lBR=bQxP_Al7^mduaTQ{mHeqVvo|<GP2z<uSB^SjwN-BJU&6bt#XMKhyf+X(O~-&
zoUN8yhD>{TmjpjM6YBNTc#eg@#onGCQ^gYMI@B4&STg6_0d`r9x!fUiSWC?7Dm<Bw
z33f_Adu#nOF5TDdXzayzY}+C@8t4@<FQt@D$HQHwtkySjkw>?8`;fg!+zP)PfxEEA
zMS$pBoEF&YMKmk$m%!ga-A;ZxJOyxl_nYzpeSKNr1jUpP0=;?1#a^;szcyC2p7lR)
zx6Nz9GmN9BCfPLHS!%t487g==ac>a!x@i)3KAqzvb<Co*Si5Iz$O|HN(<AMhL`|?~
zq#}~}(B04v`!Fhh|F9*-?lLZy>V{(05WR?c!>GHW&EDFfo?tCvlG)l$O=7{Y&?Pf8
z*^@`<9xMC<z`W9mL`((L5NcAmGO=W=cOtXXE3wPL_t!4D;|>p1=grC{#I@|Ph6G@j
zVq7)$$ua#x>uG52Icrng_ZjDx1)cCtOrw{kT61S2zMXY9up2t^ey?K}61zgqj?OoK
z9dbP`W9pGpJjbhL7H!XNt=IN(5$5@2V?sq*-dn%^7V>)PVu}63s976;TU-{@m7Z}=
zB_Be4nmpc;Wj<(m!ZC=euuvk}<tFM@T@hJ64t&biHmk3p3=t;O3$N4;F}{Lxu<E5>
zD!esrIA8ua-S>cMQ{yk^p!b*;C2a-UbVa?-UZwmB^8@Ng^e<HO)GGmR0oWgKtsJ`n
z;$4OaG-5B%r-`1&h#`clD?HJ_T66aUD@IqPT)0+Ee0wRfz23XK$cC04YX&m#?Iz)I
z1g*M<;NEqPIGW$M5oNiPgnypNbLj{irF6&Xld)b~csZ9$g%}1KXgXaxvqmjC2-jhU
zeh_`G58hErtWt+)eh^iIHLcpuZ#^{Mq+7{$gZ2iG@Fq1uH~W;Xrt%%A497Ka<`-(X
z8LeRA$@9duT)(T#(=ejoHO;|D1r!{cp&e?RPtANFInej$WH}o4J5E=CHM}X*3ao|l
zm<6aYXvXN$ABEXya_zbfw~B8Su7nn@XP=|v$?4>TCU7x11`7wtyKu-IpH=9h19O5(
zMhn)bz^C~B!arTG#h-95H{!acpHi=jdpKaXFru7z9=w}Cu|r9r)P9|_Vs0jHR%-p^
zD?%rf*Yv<!4@&8t!wpUHbJWyD4md6=HL}08M)+vNdgZlq8Bvdcrw^19xuOOF{ZOJz
zzHh~X`jv|Kw(?B1+Pui0%FrL3o;&Muq4AG#CqB0kT49OveWO^b#&`vIxw5TrgORKs
zc<j8@+SI19+G*^rh@k(3p>B|pI~QqVH$#`1|1_^R!>cA-B;pHq0RCjCEJM|5fp^2$
zywc52D9D}xrGef*Fgglns-sc!t+*O8b?dj|8W{mZGg&E%p~59p6a0zlY=sr7utF11
z#$4!K>h1HBb@ZySTgUyV4e`6J#OxsMw(4)!P83LIjBC4jp{{|rD(%t|;g_8{1`N<0
z5j}1m`y`RgH&h~bjO;^;S_sUDOBcE{Wr*L}({t}SbUorzK3B%1)=pP_em^`l%vGU1
zQM2`YpU9Z69GwmanQ{2jp#=NjGP$GTjx-5tcovkL+o`bqlyG22{zmIajJSaCNNT94
zDL~CGZfz@A1L2E!W$o;0oP76ewtF$=2FvK6J^Pn~b}tY*tkI>%uh^P>tPKnkl`eg1
z{E@GhWInNmjH(}F9)SX-!BYo}UM1WyL_8(uw=B0CYeAEK&V5+{g6MVyI7@Lva(K-;
z=@qAZ4!qFgm^CgcKFp(FPP(#CQV}}=DvL0p0fXwzPWB}ts58!7)2n0Lt>oZtXI;}8
z0a6Q3$gun(RqG7cO$dgpp<VJE7v(SPaNnU64rBHUXE%Z~n}ikid@aV5_ODr~P;`a2
zuG-&eUVV}3gpxCeSr6*N#ZY;rA5_eFZh1;=z{OV62Tr=9`nrJVx|eqtSiFgcqY1ZH
zvgaK4b=|Wx@A$&!Q2!BYBC`5hBGa4ie{9&ZujTmH9{ez>g>M~z9zY9~Jk<*vBb=GO
zz~9EZ$||WL2jo-0<v}c0-dY(5xciu^M~2qz?%I4m^O8d?vwuA{+!f4xXkfQ1IMl-5
zK5S`#_f>I}*ABnSzXuL?`Io+(Ct5N4f6vJ3RhbWM{;1FY*s%Ql!<L249Hn+5UtHs{
z;km!zvpcCL$XDfg%sHFYWp~SdiaSJ=8^+sE9_N1HI{*H@!v(JnrbtCP)D&8<t_tn-
z%HJiGEJ~Jsq;Y>tInd(JqFA->BL0Re>uLq}O=RZck?j|XmO^PzJ6-O*M~O>>`+K=5
z&-xMb`)N>v!R%%rwp07Xyj5k;{1InrV%;6}A&dqso;en<W9SuuPs5SX3FLvAK(B-p
z<U(TSD!e)oNw9ws)jH;_l5za(wFRe+^L9M0N^J3Z704m7Tk(`ovm!dG8>pdVqS?GH
zLJ1oF3vl-ndt`I1UGpSApnJpBP=7}2Qw$M-Pvcxe?5z1cr6cb2A|J5n)|$66ABe17
zT#uRfM16Vq?4TjS_F`wi%B48+T)nRp%5FJ3h&uo-tz^x*cH||2t<3==tSE1CFq1xr
zk}b8SmPkG2v+p5hK-3}m&_%2j=ju8<1rQB^AG>TqIg^*2X91s>ZU_b&bRm^h8Y&Oc
zoebj%{Z(148RxC4eiW=fySO)q+?FGMi8|t(t9Clf-4z+et?LJs6?mTGoodwtSdhC~
zPj~r~hJ>~ra!q}3E_=GH!`pHuFW!3P*Ujy}jT@KMmKZ~HPUU5&@rE<X$HAq@@0w0V
zyLXnx?HvX(JXW2--?86rn<&KW|LmFc+-IY)al8>uY8Rk1%__PXPG(BZqX&<W_5MjT
zXUC@XoVDdHpzcZRJjLsUo@glb(#gH%Lh4%G0L1O=?osf|XDTor(_YO&&yjf}B11Bt
z3KB1z4R_#~4t%0_jK@+37IPjENyn@AbS4T7Md|ZfUHuF_PuC=okA_H#cUld2{!>rB
zA8I<k?S5*3hnXuehms9%ELxp%Z|OLg4cJRCmMXh*bXxYFFUC?zGgVy`ybra?Gf*t@
z%vZGG+=KHmS_D#!tg`M>_0|F8`x24EzZP>*lNZSJTx)#hjvyQX!4L?wk>}Txk8gZE
zs~&3d9uL)*0=qAij#mVr)}3NsytNDJnT&_nvadcG^-}15LRaz33c;vl^ki`VZ|JK(
zm11|+LHDc(RVMEO_XdTr7VpH3f%8%Rk4hwd@>QOPF&@x9$CFs2+OLgoEK(v=4b>h1
zoAK)Uh&r(5B5@EFTc^5$NDeq-8=r8u)eVuIj-BToWfggD$V3<M3_z&|;HgYcwW5><
zS)W83a8HGT0<LjD#DZ)K@4@#?{3+VvUD~x7Za!Vfs;viH>fi{ul;Y`AGhz~oQbHfR
zLy`Q11<gU{y<_|&?~3x-8&Up`S{i;DnZJpei?|Pf7UF{)Y<K*eZ}!{n;d`80mT2P}
z>X2oR#k0iIm7=N$G!Xo^fKaiUIIqmAg+PU?wSMItvr#Z}U-I~t*NYGjE-#POWaVek
z6K3D1BDTn3LSrLe5$?3mlH3&HUf(ECjM{^d8AfXOgtm5j8g^hrSwlHxVj1wa66H}G
zK|F!>{jtn!UL5(ogGWAf%Ce<(gkHNC_gCSh+rI^j1K%gmnX$E&WB{uU_P6vHi2Y3*
zKN<E=F>%n<Bm1S~LEPI%A`R$gpH)XUe^!0KM07J4B$_LzJNM$%16ocyxC$A|v4Uts
zInblN4^dlOCb41ys}aR6i`Uqm4+b0Zj{f2~=T`%jzrmG{WK3u0#s8r0S!mY_t?u$Y
zdB!52#;AoTW%~O)1w9Z$1Qna*^$l<$!+pU_)pZzo9m9(Ay$;dZy_S<Tk1PE7gS6Z{
zEq6qDH0@!&!k>r=-dhGYM%2r5;avj;($YvP^3lSRMQzEk0&jCe{Yl=TvdWh--oMHG
zZ6#AU8$zkEp1Z!~XI5<ewxU&h8$V42(A`|rAmSnAELAtY=c)2T$6=R}Q@+!WdEIa|
ztI!s0Qy0OBRErKG|C0RZ8ahi4uT}N@R*3`66BRwGK>X0>ZQr$G?8dRyDq`W3Uv`9`
zh3!apmMa<&Bst+xxCP_BGD8j2Q`ujmmLq&pm5#4<8@+u`K=aO#aj9-sp1pndh7-cS
zoJS*~$ey@e&FDrpD;o?@8C@Q<^>?5O2rdm=9)w#0^iYB2J;)UV8a}>8`njo#&wn6P
z^RWt@=pAdkQgyL7LX0`t#hK%Q2HOn0I;vTzO$S<yxMJn@U?^O_39BNwH&9)`8VDpB
zlnzY-Yhf+^sY}FJ;di^LYeZC4_aC3T&FR6vokA}@_bC-cr=r|T{3x39Ss0!a6H$*7
zajjU*SWj23UX8Ni{O`}TufzLk|C5ZY?Q`Z_{gL$jGWtm_$<^b30d%=!XwbJ=tmZvj
zHO0scV9aPe!Ts=5rQf0vzE8-T(zOxVpO_!B$8T>KYDvBH!8XKd7Sz2&KIazPThS(S
zIW&ib*XvBq<Fz6Z7jD^-v!*6VrrIsSrPJJ&<f_UZ_uIKMU8WWcKox!pRY&x!`;Sq}
zs@zk6UbrYk%>qV-g)$QuFM0H{QKE8_{l(T1)DAr*C8$*G+-%<vWcK66F;tt%tFM-G
zuilxx&w`k#d<UGI7%2-69-D*n2eWgmKvPF7wtoX3Q)B??yI|+HF*Y3(m28pQdv!s6
z;LlXm1|A<?UNY)#NzQu<Gd`-UtYGF`&atu*3LbzpG6Od94);`Gs`MgjX!3fa`LpLb
z_h<elE5eouN2>vvVVBOzY9RIdfxD;M(hImNY5=>5d52kJn0Fa!6S}Ebc-##tLO(Rv
zj690RbO>5ZxMRYB@?POUSz<)JkgFnf<$m;I>f2~iQ%x<L$y%ip!JE}bKTz&NzMvKt
zt4dyPhmu2=r4)n6EbM~ARTr~G|9D1>c)SZ8_hH=Q*EdbVKln?(my$!ZIq(hE39J*{
ztBP=iX|!KDvFX%$+voWE`vI54tu^Q)aNqLB3AMm~XhUqzD%;>V{Yw)wHf{6f=7JDU
zeDY5solg{J;Rx8v*J2sW3>do-1#mrHfzHynU@FGq6|K-0X*t`bCL%&+rV}GI?obha
z8umvmFHG$cXL$mVqt@<rqsOF)Ue%TjjjW#p`yGe`<|^6Tz1t5pfP+!0ARUZWRTT#^
z_Y@-oIvEuaEx2{BMTldePRFmy8fSV|Nzc}IqLzn$bjU1J_mw4OZv#;bJ&ykEWGLN6
z{sf+#e3x2+ivD#)sLTs@*H+}eG=l;L-9{0Or0uZ#fg4;xgrxGb8^@5pNkMf7-UflL
z`|VmH_2%o{LdRYiI9rOn#isHyU^7<&ZK!-V?!3$vfVqCTbi!VxEu&@?xCyte!Kd2h
zM7JH2T>-;PxEb?gA^nNk{g{hl_XKTXwOfzZBrk^hb)Y)Ut3_o8PGt>clV0Jy9CKpu
zp23V6t}@P_aNO8@d55gv!=VAM*X{j7Me6j?sMbSw2H-ka0dj(e44)2gm*NJI-3kL8
zK-`}^LR1SG7um1nA27c8bkp#^^cz6-TUC>N#}uc?i1{^R{J*61uTI>6%(_H3c;8~p
zMO40nxQEDmust;nZ6j3r4c$kv+X7lsa|8E?49azf03{?H0IJ<Rh*0mo(&Mf%z#$Nr
zY*C9_j8P<Op779QH542Vk-vBDhW7(8VZw<3OtcDmQotR@rvVQN?n4vUc52D?1y=Q2
z)DV_9SlKe+BLP)t4M<ljT?7oBs~dMURH4Qb&e)1v#HU=dHn#|tmT;a>mMuE#qqp^m
z0^x#Wc(Jx#TO3@94EJO)xn*&{xVoi75_@ayZ2N`ZfVdtp-B3dnRepiV6>UMKf_n_p
z3{_%HBSeL2D`c(8niLGlHFNVE&2d$JBY(pCwe&l%n`b&a*mH>;%)kZKd%%je$L^lJ
z0Ek6+#av@>Yu{K!UAbNEPgi2ao^wyo4&ruM#iqkxX)<dC#H8}5S;VfbfHS{KuiM*G
zp}la+v)IqbRnBl5{11RsEis`@=*eTAeH%n(Bxy)12M?|eJE+e>(3nZ+^jv{Tf2rqk
z4zLR`#-8jW;;AKcE1`zdbr0ZM6)DA=-uUo{CE1m#J)d`vd~)$~&K$b~sOrPN9(r@i
z<Cd-$j$FU8$;&Lvz=ea++1DN$<~}EBD6S^(D5{7U=kSr8Vm1IykUT><_Kj3e<NWax
zXzybEp3<3v`TB77OW>*gm$Ik$Z)GLsqigM26Y>t*P&Zj65U>ud&+V~;ZQfp8uAA~v
zd4j7c{Kx~9T6N&*veqj2bpR{L{g$HvBM`WTMqe8^Q6cB^?#3(CL+#s6G^d+hh+1NP
zl&l>BOHg8nAi5Sc4&_OUqCMC*5e`u~++0+jicJ0k^z1aIe8;af!PQU&kG7%HObiGx
zg-4kClGo*4NEKcx=elZZ7I-%Kc|E>r`&=H8ZaVno*M{FR@08^vY6k0kgYHjxcM6>y
z%1uoNf%l|#&^u8%1Cdt{4e>qfS3i#YbadMC@GHp2!ja<xQB9lj4PvM5D%Q2PTJHqb
z9%G^pNDJRH?vK`B|G+8+R{0W5>_wHA=lg997`-LhKU69B9L@7eC)<)XCMr&3hi0l#
z4~%cNHL%iS219gCCd!eDT8`0KO~piLLt=FL(Z0XfpfZcI`|;`5I+5*%yS!j?V^sqR
zVC}@Hqv7<M!)ZGdc!~^;g+owtbItmRv^gx)PoO519M`L@Swfirv0l!jdGOc+6Qrpa
z<4`dB>06CFuJmR1o?U`W((GKHsc=PNjzw$l1VaNW?t>dyn?&Uj4ms6We=@K6q!_};
zuHrc9^liUQV7mwBL2=7aauIq({JV&V3+UL-X)*HPCPXu0Chi0(8ty1|^IEu|0jI^4
zEiW~HlJR@CZs}Z$HAB|9p&fFDxR<|QG1-Uh7oK-(y_nH352az|#+^mm6ldG-+O#D*
z(}qR<b*aERpt|_w$93*bJvAN$`uINTHJ?J&^vjRS-kCm)<KFGs|5aDjccyiXN0<KU
ztB>+;=QS}O{FAn2Z%xBBnUVOaYl0zBhL&+`5!vzoe$&c*X*f=<lO}LifZcx}BQJjM
z@(F(mP{(p~Pkd`Fkt=n(r=#urrlU|2h=O&6zq^jVoQ0pG&ty^A=VkuH@6KmeXJuWO
zibjrgzWIC8Yh4q~QsqXf*GTs_;Gg=2JaLEWo1h7%=210JL=*+hLmuWvi7WMiLV?<}
zYJqF+F+|rDWAv-k4(RzjD)sCFH7=_!RV(VL^xHdpIci3p>8^Zz_!M<#Q0ou5QAfyQ
z55%X<$FnYC_Aj!nbpK@mRzqf6eLJX`+A6rP$SgK-?n-+#Z!*ukxS#8?`BkuQ`Vljk
z9Ukob&tCr&eXFam_kkNAR*vKcEM9Po9f-T3f`%;mwX;h#J;Qp{-Qf`tf_+GMl3Z8v
zS%2lOv&zLGJ^sCQ<;W`Sv<bu%yr2%y{bC46ih!Tl=H=xr_QY<f|1_khP8xtQT%e%3
zwa)fkWRy#^<;nU2{b7?iyb$Mc>9&uHyOBxV?Lbz$4H*C;43ItcZjOWd{9#0qC5CPK
zq;H2!-_X?UVcxuaFC2k)kcn=-7_=f|4MYv1Ci%+GZ=HeeZF=AeddEi7lk1_eDCWc-
zc{XVK+>-DIS4NdzRy}}!8Xb&tJ<yxm;emoGR_}qM!DK`v@wTZ}oEJ|bN28i6m@xSL
e7J=0i6;JBrJ}lNX?SLKG^yGJt7eRX;HvJz0gwVhM

literal 0
HcmV?d00001

diff --git a/macros.zil b/macros.zil
new file mode 100644
index 0000000..b4e31c6
--- /dev/null
+++ b/macros.zil
@@ -0,0 +1,124 @@
+"MACROS for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+<SETG C-ENABLED? 0>
+<SETG C-ENABLED 1>
+<SETG C-DISABLED 0>
+
+<DEFMAC TELL ("ARGS" A)
+	<FORM PROG ()
+	      !<MAPF ,LIST
+		     <FUNCTION ("AUX" E P O)
+			  <COND (<EMPTY? .A> <MAPSTOP>)
+				(<SET E <NTH .A 1>>
+				 <SET A <REST .A>>)>
+			  <COND (<TYPE? .E ATOM>
+				 <COND (<OR <=? <SET P <SPNAME .E>>
+						"CRLF">
+					    <=? .P "CR">>
+					<MAPRET '<CRLF>>)
+				       (<=? .P "V">
+					<MAPRET '<VPRINT>>)
+				       (<EMPTY? .A>
+					<ERROR INDICATOR-AT-END? .E>)
+				       (ELSE
+					<SET O <NTH .A 1>>
+					<SET A <REST .A>>
+					<COND (<OR <=? <SET P <SPNAME .E>>
+						       "DESC">
+						   <=? .P "D">
+						   <=? .P "OBJ">
+						   <=? .P "O">>
+					       <MAPRET <FORM NDESC .O>>)
+					      (<OR <=? .P "SD">
+						   <=? .P "SDESC">>
+					       <MAPRET <FORM PRINTD .O>>)
+					      (<OR <=? .P "NUM">
+						   <=? .P "N">>
+					       <MAPRET <FORM PRINTN .O>>)
+					      (<OR <=? .P "CHAR">
+						   <=? .P "CHR">
+						   <=? .P "C">>
+					       <MAPRET <FORM PRINTC .O>>)
+					      (ELSE
+					       <MAPRET
+						 <FORM PRINT
+						       <FORM GETP .O .E>>>)>)>)
+				(<TYPE? .E STRING>
+				 <MAPRET <FORM PRINTI .E>>)
+				(<TYPE? .E FORM>
+				 <MAPRET <FORM PRINT .E>>)
+				(ELSE <ERROR UNKNOWN-?qTYPE .E>)>>>>>
+
+<DEFMAC VERB? ("TUPLE" ATMS "AUX" (O ()) (L ())) 
+	<REPEAT ()
+		<COND (<EMPTY? .ATMS>
+		       <RETURN!- <COND (<LENGTH? .O 1> <NTH .O 1>)
+				     (ELSE <FORM OR !.O>)>>)>
+		<REPEAT ()
+			<COND (<EMPTY? .ATMS> <RETURN!->)>
+			<SET ATM <NTH .ATMS 1>>
+			<SET L
+			     (<FORM GVAL <PARSE <STRING "V?" <SPNAME .ATM>>>>
+			      !.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O (<FORM EQUAL? ',PRSA !.L> !.O)>
+		<SET L ()>>>
+
+<DEFMAC RFATAL ()
+	'<PROG () <PUSH 2> <RSTACK>>>
+
+<DEFMAC PROB ('BASE?)
+	<FORM G? .BASE? '<RANDOM 100>>>
+
+<ROUTINE NDESC (OBJ "AUX" S TEMPROFF)
+	 <SET TEMPROFF ,ROFF>
+	 <COND (<EQUAL? ,ROFF 0>
+		<SETG ROFF 6>)>
+	 <COND (<SET S <GET <GETP .OBJ ,P?OBJDESCS> <+ ,ROFF ,SDOFF>>>
+		<PRINT .S>)
+	       (T <PRINTD .OBJ>)>
+	 <SETG ROFF .TEMPROFF>>
+
+<ROUTINE VPRINT ("AUX" TMP)
+	 <SET TMP <GET ,P-OTBL ,P-VERBN>>
+	 <COND (<==? .TMP 0> <TELL "tell">)
+	       (<0? <GETB ,P-VTBL 2>>
+		<PRINTB <GET .TMP 0>>)
+	       (T
+		<WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>>
+
+<ROUTINE ZPROB (BASE)
+	 <G? .BASE <RANDOM 100>>>
+
+<ROUTINE PICK-ONE (FROB)
+	 <GET .FROB <RANDOM <GET .FROB 0>>>>
+
+<DEFMAC ENABLE ('INT) <FORM PUT .INT ,C-ENABLED? 1>>
+
+<DEFMAC DISABLE ('INT) <FORM PUT .INT ,C-ENABLED? 0>>
+
+<DEFMAC OPENABLE? ('OBJ)
+	<FORM OR <FORM FSET? .OBJ ',DOORBIT>
+	         <FORM FSET? .OBJ ',CONTBIT>>> 
+
+<DEFMAC ABS ('NUM)
+	<FORM COND (<FORM L? .NUM 0> <FORM - 0 .NUM>)
+	           (T .NUM)>>
+
+
+<DEFMAC IRIS? ()
+	'<EQUAL? ,WINNER ,IRIS>>
+<DEFMAC WALDO? ()
+	'<EQUAL? ,WINNER ,WALDO>>
+<DEFMAC SENSA? ()
+	'<EQUAL? ,WINNER ,SENSA>>
+<DEFMAC AUDA? ()
+	'<EQUAL? ,WINNER ,AUDA>>
+<DEFMAC POET? ()
+	'<EQUAL? ,WINNER ,POET>>
+<DEFMAC WHIZ? ()
+	'<EQUAL? ,WINNER ,WHIZ>>
+
diff --git a/main.zil b/main.zil
new file mode 100644
index 0000000..8c079ec
--- /dev/null
+++ b/main.zil
@@ -0,0 +1,297 @@
+"MAIN for
+			      SUSPENSION
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+<GLOBAL P-WON <>>
+
+<GLOBAL RTD-KILLS 75>
+
+<GLOBAL ACID-KILLS 15>
+
+<GLOBAL PEOPLE-APPEAR 100>
+
+<CONSTANT M-FATAL 2>
+ 
+<CONSTANT M-HANDLED 1>   
+ 
+<CONSTANT M-NOT-HANDLED <>>   
+ 
+<CONSTANT M-BEG 1>  
+ 
+<CONSTANT M-OBJECT <>>
+
+<CONSTANT M-END 6> 
+ 
+<CONSTANT M-ENTER 2>
+ 
+<CONSTANT M-LOOK 3> 
+ 
+<CONSTANT M-FLASH 4>
+
+<CONSTANT M-OBJDESC 5>
+
+<ROUTINE GO () 
+	 <PUTB ,P-LEXV 0 59>
+;"put interrupts on clock chain"
+	 
+;"set up and go"
+	 
+	 <INIT-STATUS-LINE>
+	 <SETG HERE ,IRIS>
+	 <SETG LIT T>
+	 <SETG REDSET ,REDCABLE>
+         <SETG ORANGESET ,ORANGECABLE>
+	 <ENABLE <QUEUE I-TREMOR1 ,ACID-KILLS>>
+	 <ENABLE <QUEUE I-TREMOR2 ,RTD-KILLS>>;"Includes resetting food levers"
+	 <ENABLE <QUEUE I-PEOPLE1 ,PEOPLE-APPEAR>>
+	 <ENABLE <QUEUE I-AUDA-HINTS ,PEOPLE-APPEAR>>
+	 <ENABLE <QUEUE I-FOLLOW -1>>
+	 <ENABLE <QUEUE I-WEATHER 4>>
+	 <ENABLE <QUEUE I-DECAY 5>>
+	 <ENABLE <QUEUE I-FOOD -1>>
+	 <ENABLE <QUEUE I-WIRE-MESSAGE -1>>
+	 <ENABLE <QUEUE I-ROBOTKILLER -1>>
+         <ENABLE <QUEUE I-SCORE -1>>
+	 <ENABLE <QUEUE I-IRIS-HINTS -1>>
+	 <SETG P-IT-OBJECT <>>
+	 <SETG WINNER-HERE ,CPU-ROOM>
+	 <COND (<NOT <FSET? ,WINNER-HERE ,TOUCHBIT>>
+		<V-VERSION>
+		<CRLF>)>
+	 <BEGINNING>
+	 <CHANGE-WINNER ,IRIS T>
+	 <V-ALL-REPORT-LOC>
+	 <SET-LAST-ROOM>	
+	 <MAIN-LOOP>
+	 <AGAIN>>
+
+<ROUTINE CHANGE-WINNER (OBJ "OPTIONAL" (TEMP? <>) "AUX" L)
+	 <COND (<AND <==? .OBJ ,WINNER>
+		     <NOT .TEMP?>>
+		<TELL "FC: Cryolink already established to " SD ,WINNER "." CR>
+		<RTRUE>)>
+	 <COND (<G? <GET ,DEADBOTS <GETP .OBJ ,P?ROBOT>> 29>
+		<DEAD-FCN .OBJ>
+		<RFALSE>)>
+	 <SETG WINNER .OBJ>
+	 <SETG OLD-WINNER <>>
+	 <SETG WINNER-HERE <COND (<IN? <SET L <LOC .OBJ>> ,ROOMS> .L)
+			  (T <LOC .L>)>>
+	 <SETG ROFF <GETP ,WINNER ,P?ROBOT>>
+	 <SETG HERE ,WINNER>
+	 <COND (<NOT .TEMP?>
+		<TELL "FC: Cryolink established to ">
+		<TELL SD ,WINNER "." CR>)>
+	 <COND (<IRIS?> <SETG NUM-EXT 2>)
+	       (<WALDO?> <SETG NUM-EXT 6>
+		<COND (<FSET? ,SURGERY-HAND ,WEARBIT> <SETG NUM-EXT 7>)>)
+	       (<SENSA?> <SETG NUM-EXT 3>)
+	       (<AUDA?> <SETG NUM-EXT 1>)
+	       (<POET?> <SETG NUM-EXT 3>)
+	       (<WHIZ?> <SETG NUM-EXT 2>)>
+	 <RTRUE>>
+
+<ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP) 
+   #DECL ((CNT OCNT ICNT NUM) FIX (V) ANY (OBJ) <OR FALSE OBJECT>
+	  (OBJ1) OBJECT (TBL) TABLE (PTBL) <OR FALSE ATOM>)
+   <REPEAT ()
+     <SET CNT 0>
+     <SET OBJ <>>
+     <SET PTBL T>
+     <COND (<SETG P-WON <PARSER>>
+	    <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
+	    <SET NUM
+		 <COND (<0? <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>> .OCNT)
+		       (<G? .OCNT 1>
+			<SET TBL ,P-PRSO>
+			<COND (<0? .ICNT> <SET OBJ <>>)
+			      (T <SET OBJ <GET ,P-PRSI 1>>)>
+			.OCNT)
+		       (<G? .ICNT 1>
+			<SET PTBL <>>
+			<SET TBL ,P-PRSI>
+			<SET OBJ <GET ,P-PRSO 1>>
+			.ICNT)
+		       (T 1)>>
+	    <COND (<AND <NOT .OBJ> <1? .ICNT>> <SET OBJ <GET ,P-PRSI 1>>)>
+	    <COND (<==? ,PRSA ,V?WALK> <SET V <PERFORM ,PRSA ,PRSO>>)
+		  (<0? .NUM>
+		   <COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
+			  <SET V <PERFORM ,PRSA>>
+			  <SETG PRSO <>>)
+			 (<VERB? $TELL>
+			  <TELL
+"FC: I don't understand with which robot you wish to form a cryolink." CR>
+			  <SET V <>>)
+			 (T
+			  <TELL <GET ,ROBOT-NAMES ,ROFF> ": "
+				<GET ,NOT-CLEAR ,ROFF> " ">
+			  <SET TMP <GET ,P-ITBL ,P-VERBN>>
+			  <COND (,P-OFLAG
+				 <PRINTB <GET .TMP 0>>)
+				(T
+				 <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
+			  <TELL "!" CR>
+			  <SET V <>>)>)
+		  (<AND <G? .NUM 1> <==? ,PRSA ,V?$TELL>>
+		   <SETG P-CACTOR 1>
+		   <SETG P-OPLEN <GETB ,P-LEXV ,P-LEXWORDS>>
+		   <SETG P-OPCONT ,P-CONT>
+		   <SET CNT 1>
+		   <PUT ,P-ACTORS 0 .NUM>
+		   <REPEAT ()
+			   <COND (<G? .CNT .NUM> <RETURN>)
+				 (T
+				  <PUT ,P-ACTORS
+				       .CNT
+				       <COND (<IN? <SET OBJ <GET ,P-PRSO .CNT>>
+						   ,GLOBAL-OBJECTS>
+					      <REAL-ROBOT .OBJ>)
+					     (T .OBJ)>>)>
+			   <SET CNT <+ .CNT 1>>>
+		   <COND (,P-TWOBOTS
+			  <SETG P-NACTORS 1>
+			  <COND (<ALL-THERE?>
+				 ;<CLOCKER>
+				 <COND (<OR <NOT <GETP <1 ,P-ACTORS> ,P?ROBOT>>
+					    <NOT
+					     <GETP <2 ,P-ACTORS> ,P?ROBOT>>
+					    <==? <GETP <2 ,P-ACTORS> ,P?ROBOT>
+						 7>
+					    <==? <GETP <1 ,P-ACTORS> ,P?ROBOT>
+						 7>>
+					<TELL "FC: That's absurd!" CR>
+					<CHANGE-WINNER ,OLD-WINNER>
+					<AGAIN>)
+				       (ELSE
+					<TELL
+					 "FC: Dual-Cryolink established to ">
+					<TELL SD <1 ,P-ACTORS> " and "
+					      SD <2 ,P-ACTORS> "." CR>
+					<SETG WINNER ,TWOBOTS>
+					<SETG ROFF 0>
+					<SETG WINNER-HERE
+					      <LOC <1 ,P-ACTORS>>>)>)
+				(T
+				 <TELL
+				  "FC: The robots are in different places." CR>
+				 <CHANGE-WINNER ,OLD-WINNER>
+				 <AGAIN>)>)
+			 (T
+			  <SETG P-NACTORS .NUM>
+			  <SET V <PERFORM ,PRSA <GET ,P-PRSO 1>>>
+			  <SETG OLD-WINNER <>>)>)
+		  (T
+		   <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .NUM> <RETURN>)
+				 (T
+				  <COND (.PTBL <SET OBJ1 <GET ,P-PRSO .CNT>>)
+					(T <SET OBJ1 <GET ,P-PRSI .CNT>>)>
+				  <COND (<G? .NUM 1>
+					 <TELL "(" D .OBJ1 ") ">)>
+				  <SETG PRSO <COND (.PTBL .OBJ1) (T .OBJ)>>
+				  <SETG PRSI <COND (.PTBL .OBJ) (T .OBJ1)>>
+				  <SET V <PERFORM ,PRSA ,PRSO ,PRSI>>
+				  <COND (<==? .V ,M-FATAL> <RETURN>)>)>>)>
+	    <SETG L-PRSA ,PRSA>
+	    <SETG L-PRSO ,PRSO>
+	    <SETG L-PRSI ,PRSI>
+	    <COND (<==? .V ,M-FATAL>
+		   <SETG P-CONT <>>
+		   <SETG P-NACTORS 0>)>)
+	   (<G? ,P-NACTORS 1> T)
+	   (T
+	    <SETG P-NACTORS 0>
+	    <SETG P-CONT <>>)>
+     <COND (,P-WON
+	    <COND (<VERB? SAVE RESTORE $TELL VERSION SCORE ADVANCED CONFIGURE IMPOSSIBLE QUIT RESTART SCRIPT UNSCRIPT> T)
+		  (T
+		   <SET V <CLOCKER>>)>)>>>
+ 
+<GLOBAL NOT-CLEAR <PLTABLE
+"I don't see what you mean to"
+"I can't tell which object to"
+"I have no good sense of what to"
+"I don't hear what you mean to"
+"I can't imagine what you intend to"
+"The CLC doesn't understand what to">>
+
+<ROUTINE TICK ()
+	 <CLOCKER>>
+
+<ROUTINE ALL-THERE? ("AUX" (CNT 1) MAX RM)
+	 <SET MAX <GET ,P-PRSO ,P-MATCHLEN>>
+	 <SET RM <LOC <GET ,P-PRSO 1>>>
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> .MAX> <RTRUE>)
+		       (<NOT <EQUAL? <LOC <GET ,P-PRSO .CNT>> .RM>>
+			<RFALSE>)>>>
+
+<GLOBAL L-PRSA <>>  
+ 
+<GLOBAL L-PRSO <>>  
+ 
+<GLOBAL L-PRSI <>>  
+
+<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI) 
+	#DECL ((A) FIX (O) <OR FALSE OBJECT FIX> (I) <OR FALSE OBJECT> (V) ANY)
+	<SET OA ,PRSA>
+	<SET OO ,PRSO>
+	<SET OI ,PRSI>
+	<COND (<AND <EQUAL? ,IT .I .O>
+		    <NOT <EQUAL? ,P-IT-LOC ,WINNER-HERE>>>
+	       <TELL "FC: I don't see what you are referring to." CR>
+	       <RFATAL>)>
+	<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
+	<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
+	<SETG PRSA .A>
+	<SETG PRSO .O>
+	<COND (<AND ,PRSO <NOT <VERB? WALK>>>
+	       <SETG P-IT-OBJECT ,PRSO>
+	       <SETG P-IT-LOC ,WINNER-HERE>)>
+	<SETG PRSI .I>
+	<COND (<GAME-COMMAND? .A>
+	       <SET V <APPLY <GET ,ACTIONS .A>>>)
+	      (<SET V <APPLY <GETP ,WINNER ,P?ACTION>>> .V)
+	      (<SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-BEG>> .V)
+	      (<SET V <APPLY <GET ,PREACTIONS .A>>> .V)
+	      (<AND .I <SET V <APPLY <GETP .I ,P?ACTION>>>> .V)
+	      (<AND .O
+		    <NOT <==? .A ,V?WALK>>
+		    <LOC .O>
+		    <SET V <APPLY <GETP <LOC .O> ,P?CONTFCN>>>>
+	       .V)
+	      (<AND .O
+		    <NOT <==? .A ,V?WALK>>
+		    <SET V <APPLY <GETP .O ,P?ACTION>>>>
+	       .V)
+	      (<SET V <APPLY <GET ,ACTIONS .A>>> .V)>
+	<COND (<NOT <==? .V ,M-FATAL>>
+	       <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
+	<SETG PRSA .OA>
+	<SETG PRSO .OO>
+	<SETG PRSI .OI>
+	.V>  
+ 
+<ROUTINE GAME-COMMAND? (ACT)
+	 <COND (<OR <EQUAL? .ACT ,V?SCORE ,V?SAVE ,V?RESTORE>
+		    <EQUAL? .ACT ,V?QUIT ,V?VERSION ,V?$VERIFY>
+		    <EQUAL? .ACT ,V?ADVANCED>>
+		<RTRUE>)>>
+
+<ROUTINE BEGINNING ()
+	 <TELL
+"FC ALERT! Planetside systems are deteriorating. FC imbalance detected. Emergency reviving systems completed. You are now in control of the complex.|
+|
+SENSA INTERRUPT: Seismic aftershock detected ten meters north of Beta FC. Tremor intensity 9.7. Projected damage: connecting cables in Primary and Secondary Channels.|
+|
+FC INTERRUPT: All Robots, report locations.|
+|">>
+
+<ROUTINE SET-LAST-ROOM ("AUX" (COUNT 0))
+	 <REPEAT ()
+		 <SET COUNT <+ .COUNT 1>>
+		 <COND (<EQUAL? .COUNT 8>
+			<RETURN>)>
+		 <PUT ,LAST-ROOM .COUNT <LOC <GET ,NAME-TBL <- .COUNT 1>>>>>>
\ No newline at end of file
diff --git a/objects.zil b/objects.zil
new file mode 100644
index 0000000..f94bf56
--- /dev/null
+++ b/objects.zil
@@ -0,0 +1,1667 @@
+"OBJECTS for
+			      SUSPENDED
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+;"OBJECTS & ASSOCIATED ACTIONS FOR SUSPENDED"
+
+<OBJECT HOME
+	(IN CPU-ROOM)
+	(FLAGS CONTBIT TOUCHBIT NDESCBIT)
+	(DESC "HOME")
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1 "tall column""hollow column""electrical column""noiseless column""sweet home""CPU" 0 0 0 0 0 0>)
+	(SYNONYM COLUMN HOME CPU DOOR)
+	(CLC-TXT <PLTABLE "The column houses our supervisor and over-seeing control unit: YOU." "Keep the door to the column closed. Life-support wires run from the inner door surface directly to your body." "See the information on Franklin in your manual.">)
+	(ADJECTIVE TALL HOLLOW ELECTR HIGH SWEET)
+	(ACTION OOPS-FCN)>
+
+<GLOBAL OOPS-QUIPS
+	<PLTABLE "Okay, I've opened it. OH MY GOD!!!"
+		"Grasping mechanisms have accomplished the task. Sonar detects -- BLECH!"
+		"Sensory mechanisms indicate the door has been opened.|
+WARNING! Biochemical electrical activity dropping!"
+		"I hear the door opening and the heavy sigh of a human."
+		"Okey Dokey. Man, you look like death warmed over!"
+		"CLC indicates extreme danger to you, though the door has been opened.">>
+
+<ROUTINE OOPS-FCN ()
+	 <COND (<VERB? OPEN>
+	        <ROBOT-TELL <GET ,OOPS-QUIPS ,ROFF>>
+		<TELL
+"As the door swings open you are blinded by intense light and incredible
+pain. Just before everything overloads and you fade from existence, you can
+make out a shape outside, holding onto the door of the cylinder, and then
+everything goes dark." CR>
+		<CRLF>
+		<QUIT>)>>
+
+<OBJECT PANEL
+	(IN IRIS)
+	(FLAGS CONTBIT NDESCBIT)
+	(CAPACITY 16)
+	(SYNONYM BARRIER PANEL MP1 DOOR)
+	(ADJECTIVE MAINTE ACCESS SMOOTH METAL TRANSM)
+	(DESC "panel")
+	(ACTION PANEL-FCN)
+	(CLC-TXT <PLTABLE "It is merely an openable panel." "Open the panel with care." 0>)
+	(OBJDESCS <PLTABLE
+"My eyestalks can't swivel that far."
+"A maintenance panel can be detected beneath my extensions."
+"Iris's central core is near exposure, the area from which all data is
+transmitted." 0
+"Exposure to the elemental realities, baring one's essence, is what Iris
+is currently concerned with."
+"CLC tagged object MP1 is now exposed."
+"maintenance panel" "smooth metal panel" "transmission barrier"
+"muted mechanism" "door" "MP1" 
+"My maintenance panel has openings which fit a robot extension. Beneath it is my delicate visual circuitry."
+"My extensions detect places which I can grasp to open it."
+"The barrier itself emits no specific vibrations. It is inert."
+"The object makes no sound, though muted noises come from beneath it."
+"The door into Iris is like the window to our souls."
+"MP1 is an internal plate, CLC tagged.">)>
+
+<ROUTINE PANEL-FCN ("AUX" STR)
+	 <COND (<VERB? LOOK EXAMINE>
+		<COND (<AND <FSET? ,PANEL ,OPENBIT>
+			    <NOT 
+			    <EQUAL? <SET STR <GET <GETP ,PANEL ,P?OBJDESCS>
+					  <+ ,RTOFF ,ROFF>>> 0>>>
+		       <ROBOT-TELL .STR>
+		       <TELL "The " D ,PANEL " is open." CR>
+		       <RTRUE>)>)
+	       (<VERB? OPEN>
+		<COND (<NOT <WALDO?>>
+		       <ROBOT-TELL "I'm not equipped to do that to the "<>>
+		       <TELL D ,PANEL "." CR>
+		       <RTRUE>)
+		      (<NOT <FSET? ,SURGERY-HAND ,WEARBIT>>
+		       <ROBOT-TELL 
+			"It's too delicate for my normal extensions.">)
+		      (,IRIS-FIXED
+		       <ROBOT-TELL "Opened.">
+		       <FSET ,PANEL ,OPENBIT>
+		       <TELL CR <GET ,INTER-TBL 1>
+				    " Hey! Who turned the lights out?" CR>
+		       <SETG IRIS-FIXED <>>)>)
+	       (<AND <VERB? CLOSE>
+		     <NOT <WALDO?>>>
+		<ROBOT-TELL "I'm not equipped to do that to the "<>>
+		<TELL D ,PANEL "." CR>
+		<RTRUE>)
+	       (<VERB? CLOSE>
+		<ROBOT-TELL "Closed.">
+		<FCLEAR ,PANEL ,OPENBIT>
+		<COND (<AND <IN? ,NEWCHIP1 ,PANEL>
+			    <IN? ,CHIP2 ,PANEL>
+			    <IN? ,CHIPS0 ,PANEL>>
+		       <COND (<NOT ,IRIS-FIXED>
+			      <SETG IRIS-FIXED T>
+			      <TELL CR <GET ,INTER-TBL 1> 
+				    " You never looked so good." CR>)>)
+		      (T
+		       <COND (,IRIS-FIXED
+			      <SETG IRIS-FIXED <>>
+			      <TELL CR <GET ,INTER-TBL 1> 
+				    " Where'd everybody go?" CR>)>)>
+		<RTRUE>)>>
+
+<OBJECT CHIPS0
+	(IN PANEL)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM CHIPS CHIP DEVICE ZERO)
+	(ADJECTIVE QUIET ZERO RED SMOOTH POLARI CX0 BRAIN)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "red chip""smooth device""polarized device""quiet device""brain zero""CX0 chip" 0 0 0 0 0 0 >)
+	(DESC "chip")
+	(CLC-TXT <PLTABLE "This chip is a polarization processor (CX0)." 0 0>)
+	(ACTION CHIPFILTER-FCN)>
+
+<OBJECT CHIP1
+	(IN PANEL)
+	(SYNONYM CHIP CHIPS DEVICE UNO)
+	(ADJECTIVE SCANNI BRAIN ROUGH BLUE SMALL DELICATE CX1)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "blue chip" "rough device" "scanning device" "silent device" "brain uno" "CX1 chip" 0 0 "This device has been electrically fried." 0 0 0 "Electrons can no longer find flow paths through this brain." >)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(DESC "obj")
+	(CLC-TXT <PLTABLE "This chip is a scanning processor (CX1)." 0 0>)
+	(ACTION CHIPFILTER-FCN)>
+
+<OBJECT CHIP2
+	(IN PANEL)
+	(SYNONYM CHIP CHIPS DEVICE DOS)
+	(ADJECTIVE NOISEL BRAIN BUMPY SMALL FILTERING YELLOW CX2)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "small yellow chip""bumpy device"
+"filtering device" "noiseless device""brain dos""CX2 chip"0 0 0 0 0 0 >)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(DESC "obj")
+	(CLC-TXT <PLTABLE "This chip is a filtering processor (CX2)." 0 0>)
+	(ACTION CHIPFILTER-FCN)>
+
+<OBJECT BASKET
+	(IN SUPPLIES-MID)
+	(FLAGS OPENBIT CONTBIT TAKEBIT SEARCHBIT)
+	(SYNONYM CONTAI BASKET BA1)
+	(ADJECTIVE HOLLOW SMALL OPEN)
+	(DESC "BASKET")
+	(CAPACITY 26)
+	(OBJDESCS <PLTABLE
+"Among the rubble I can see a little basket, sitting on the floor."
+"I just bumped into a small object which has an open top."
+"I perceive a small container which holds several small devices." 0
+"Contained spirits, like thoughts, fly from reach."
+"CLC tagged object BA1." "little wire basket" "hollow container" "small container" "soundless container" "basket of goodies for Grandma""BA1"
+"It is a small, wire basket, designed for robot gripping extensions."
+"It is made of woven wire and has a small handle which fits my extensions."
+"The unique frame is suggested by the way it reflects electrons."
+"Listening to it is boring."
+"A tisket, a tasket, what's that in your basket?"
+"CLC tagged object is a basket.">)
+	(ACTION BASKET-FCN)>
+
+<ROUTINE BASKET-FCN ()
+	 <COND (<VERB? CLIMB-ON STAND-ON STEP-ON>
+		<ROBOT-TELL "It won't support my weight.">
+		<RTRUE>)>>
+
+<OBJECT FIRST-FRIED
+	(IN SOCKET1)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM CHIPS CHIP DEVICE TRES)
+	(ADJECTIVE SLEEPY TRES BURNED DISFIG RUINED CX3 BRAIN)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "burned chip""disfigured device""ruined device""sleepy device""brain tres""CX3 chip" 0 0 0 0 0 0 >)
+	(DESC "chip")
+	(CLC-TXT <PLTABLE "This chip is a switching processor (CX3)." 0 0>)
+	(ACTION CHIPFILTER-FCN)>
+
+<OBJECT NEXT-FRIED
+	(IN SOCKET2)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM CHIPS CHIP DEVICE QUART)
+	(ADJECTIVE SNOOZY QUART FRIED BUBBLY SEIZED CX4 BRAIN)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "fried chip""bubbly device""seized device""snoozy device""brain quart""CX4 chip" 0 0 0 0 0 0 >)
+	(DESC "chip")
+	(CLC-TXT <PLTABLE "This chip is a replacement switching processor (CX4)." 0 0>)
+	(ACTION CHIPFILTER-FCN)>
+
+<OBJECT NEWCHIP1
+	(IN BASKET)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM IC OBJECT PLAIN)
+	(ADJECTIVE RX1 BLUE ROUGH BRAIN SILENT SCANNI)
+	(DESC "IC")
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1  "blue IC""rough object""scanning object""silent object""brain plain""RX1 IC"0 0 0 0 0 0 >)
+	(ACTION CHIPFILTER-FCN)
+	(CLC-TXT <PLTABLE "This chip is a replacement scanning processor (RX1)." 0 0>)>
+
+<OBJECT NEWCHIP0
+	(IN BASKET)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM IC OBJECT ZIP)
+	(ADJECTIVE RX0 RED SMOOTH QUIET BRAIN POLARI)
+	(DESC "IC")
+	(CLC-TXT <PLTABLE "This chip is a replacement polarization processor (RX0)." 0 0>)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "red IC""smooth object""polarized object""quiet object""brain zip""RX0 IC" 0 0 0 0 0 0 >)
+	(ACTION CHIPFILTER-FCN)>
+
+<OBJECT NEWCHIP2
+	(IN BASKET)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM IC OBJECT TWO)
+	(ADJECTIVE RX2 BRAIN BUMPY NOISEL YELLOW FILTERING)
+	(DESC "IC")
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "yellow IC""bumpy object""filtering object""noiseless object""brain two""RX2 IC" 0 0 0 0 0 0 >)
+	(ACTION CHIPFILTER-FCN)
+	(CLC-TXT <PLTABLE "This chip is a replacement filtering processor (RX2)." 0 0>)>
+
+<OBJECT NEWCHIP3
+	(IN BASKET)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM IC OBJECT TRIO)
+	(ADJECTIVE RX3 GREEN WAVY NONVERBAL BRAIN MAXIMI)
+	(DESC "IC")
+	(CLC-TXT <PLTABLE "This chip is a replacement maximizing processor (RX3)." 0 0>)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "green IC""wavy object""maximized object""nonverbal object""brain trio""RX3 IC" 0 0 0 0 0 0 >)
+	(ACTION CHIPFILTER-FCN)>
+
+<OBJECT NEWCHIP4
+	(IN BASKET)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM IC OBJECT QUARTE)
+	(ADJECTIVE RX4 PLAID PEBBLE SHHHHH BRAIN BUSS)
+	(DESC "IC")
+	(CLC-TXT <PLTABLE "This chip is a replacement buss processor (RX4)." 0 0>)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "plaid IC""pebbled object""buss object""shhhhh object""brain quartet""RX4 IC" 0 0 0 0 0 0 >)
+	(ACTION CHIPFILTER-FCN)>
+
+<ROUTINE CHIPFILTER-FCN ()
+	 <COND (<AND <VERB? TAKE>
+		     <IN? ,PRSO ,PANEL>
+		     <NOT <FSET? ,PANEL ,OPENBIT>>>
+		<CANT-DETECT ,PRSO>
+		<RFATAL>)
+	       (<VERB? PUT>
+		<COND (<EQUAL? ,PRSI ,SOCKET1 ,SOCKET2>
+		       <COND (<FIRST? ,PRSI>
+			      <ROBOT-TELL "The " <>>
+			      <TELL D ,PRSI " is already full." CR>
+			      <RTRUE>)>
+		       <MOVE ,PRSO ,PRSI>
+		       <ROBOT-TELL "Done.">
+		       <COND (<EQUAL? ,PRSO ,NEWCHIP1 ,NEWCHIP2>
+			      <COND (<SENSA?>
+				     <TELL "Surges of electricity flow." CR>)
+				    (<POET?>
+				     <TELL
+"I can't place the tune, but I recognize the humming." CR>)
+				    (<WHIZ?>
+				     <TELL "Device now warming up." CR>)>)>
+		       <RTRUE>)
+		      (<EQUAL? ,PRSI ,IRIS>
+		       <PERFORM ,PRSA ,PRSO ,PANEL>
+		       <RTRUE>)>)>>
+		
+<OBJECT WIRECUTTER
+	(IN TOPSHELF)
+	(OBJDESCS <PLTABLE
+"Sitting on the top shelf is a pair of wire cutters."
+"Sonar detects a small tool which could be used for cutting, sitting on the top
+shelf."
+"Vibrational output from the top shelf shows a small metal object there."
+0
+"Among the various things in life I've learned, it's to examine all shelving.
+This one has a slicer on it."
+"CLC tagged object CU1 sits on top of the shelf."
+"pair of cutters"
+"cutting tool"
+"metal tool"
+"noiseless object"
+"life slicer"
+"CU1"
+0 0 0 0 0 0>)
+	(SYNONYM CU1 TOOL CUTTERS SLICER)
+	(CLC-TXT <PLTABLE "This is a standard cutting instrument." "It can prove useful for salvaging wires and cables." 0>)
+	(ADJECTIVE LIFE WIRE LITTLE CUTTING NOISEL METAL)
+	(FLAGS TAKEBIT TOOLBIT)>
+
+<OBJECT TOPSHELF
+	(IN TOOL-AREA)
+	(DESC "top shelf")
+	(FLAGS OPENBIT CONTBIT TOUCHBIT SURFACEBIT)
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 
+0 "high extending holder" "stable holder" 0 "furthest holder" "TS"
+0 "It appears to be a solid, long extension from the wall."
+"It is inert, transmitting and receiving no vibrations." 0
+"Perhaps the most useful adjunct to the modern, everyday living situation is
+the proper use of space."
+"TS appears to be little more than a piece of furniture.">)
+	(SYNONYM TS HOLDER SHELF)
+	(ACTION TOPSHELF-FCN)
+	(ADJECTIVE HIGH EXTENDING TOP FURTHEST FARTHEST STABLE)
+	(CAPACITY 50)>
+
+<ROUTINE TOPSHELF-FCN ("AUX" TBL)
+	 <COND (<AND <VERB? LOOK-INSIDE>
+		     <NOT ,ON-WEDGE>>
+		<ROBOT-TELL "It's too high up there.">)
+	       (<VERB? CLOSE>
+		<ROBOT-YUKS>
+		<RTRUE>)>>
+
+<OBJECT WEDGE
+	(IN SUPPLIES-SOUTH)
+	(SYNONYM WEDGE OBJECT RAMP W1)
+	(ADJECTIVE NOISEL SOLID RISING FALLIN SLANTING DENSE)
+	(FLAGS CLIMBBIT TAKEBIT SURFACEBIT FURNITURE)
+	(OBJDESCS <PLTABLE
+"A steep, wedge-shaped ramp sits under some rubble near the wall."
+"A slanting object seems distinct from the surrounding jumble of
+debris."
+"Nothing within this environment emits singular vibrations, but an
+object does send out a CLC identifier."
+0
+"To rise and fall, and climb new heights, to descend the pit of robot
+despair."
+"CLC object W1 transmitting identifier wave from this location." 
+"ramp"
+"solid wedge"
+"dense wedge"
+"noiseless wedge"
+"slanting wedge"
+"W1"
+"It looks like a useful wedge, an incline which could be used for
+getting up and down areas where steps might stop us."
+"It feels solid and sturdy. It is large enough for me to use as a ramp."
+"The object is totally inert, emitting nothing but an identifier signal
+on the CLC channel."
+0
+"Much like see-saws of our lives, this provides the opportunity to
+descend and rise above our normal stations, oh slanter."
+"CLC data indicate this wedge is normally used for descent and climbing
+from level to level.">)
+	(ACTION WEDGE2-FCN)
+	(CLC-TXT <PLTABLE 0 "This 'wedge' can be used as a step or small platform." 0>) 
+	(SIZE 15)>
+
+<ROUTINE WEDGE2-FCN ("AUX" OFFSET)
+	 <SET OFFSET <GETP ,WINNER ,P?ROBOT>>
+	 <COND (<VERB? CLIMB-ON>
+		<COND (<IN? ,WEDGE ,WINNER-HERE>
+		       <COND (<NOT ,ON-WEDGE>
+			      <SETG ON-WEDGE .OFFSET>
+			      <ROBOT-TELL "Okay. I'm standing on the " <>>
+			      <TELL D ,WEDGE " now." CR>
+			      <RTRUE>)
+			     (ELSE
+			      <COND (<EQUAL? .OFFSET ,ON-WEDGE>
+				     <ROBOT-TELL "I'm already on it.">)
+				    (ELSE
+      <ROBOT-TELL "Not while another robot is already on it.">)>
+			      <RTRUE>)>)
+		      (ELSE 
+		       <COND (<IN? ,WEDGE ,WINNER>
+			      <ROBOT-TELL "Not while I'm grasping it.">)
+			     (ELSE
+			      <CANT-DETECT ,WEDGE>
+			      <RTRUE>)>)>)
+	       (<AND <VERB? TAKE>
+		     ,ON-WEDGE>
+		<COND (<EQUAL? .OFFSET ,ON-WEDGE>
+		       <TELL "(getting off " D ,WEDGE ")" CR>
+		       <SETG ON-WEDGE <>>
+		       <RFALSE>)
+		      (ELSE
+		       <ROBOT-TELL "Not while another robot is on it.">
+		       <RTRUE>)>)
+	       (<VERB? TAKE-OFF>
+		<PERFORM ,V?GET-OFF ,PRSO>
+		<RTRUE>)>>
+	       
+;<OBJECT EMPTYSHELF
+	(IN SUPPLIES-SOUTH)
+	(DESC "EMPTY SHELF")
+	(FLAGS OPENBIT CONTBIT TOUCHBIT SURFACEBIT NDESCBIT)
+	(OBJDESCS <PLTABLE
+1 1 1 0 1 1
+"shelf" "wall extension" "inert surface" 0 "surface" "S-3"
+0 0 0 0 0 0>)
+	(SYNONYM SHELF SURFAC S-3)
+	(ADJECTIVE WALL EXTENS INERT)>
+
+<OBJECT SURGERY-HAND
+	(IN SUPPLIES-MID)
+	(FLAGS TOOLBIT TAKEBIT WEARABLEBIT)
+	(SYNONYM MH1 EXTENS GRASPER OBJECT)
+	(ADJECTIVE ARM-SHAPED MICROSURGERY SMALL USABLE MICRO TINGIN)
+	(OBJDESCS <PLTABLE
+"Sitting on the floor, beneath the broken shelves, sits an extension device,
+a microsurgery hand."
+"Sonar detects an arm-shaped extension lying nearby."
+"A small object emits a weak signal, specifically oriented toward
+Waldo." 
+"I can hear a small 'tinging' from an object on the floor."
+"It is something we can all grasp, something to embrace, whose presence I
+detect."
+"CLC tagged object MH1 emitting identifier signal."
+"microsurgery extension"
+"usable extension"
+"micro extension"
+"tinging object"
+"grasper"
+"MH1"
+"It looks like a delicate extension to me."
+"I feel the extension and recognize it as belonging to me. I can utilize
+it for microsurgery repairs."
+"It emits electrical impulses which are attuned to Waldo, and only
+Waldo."
+"The pinging or tinging sound it emits is on the wavelength attuned to
+Waldo."
+"A problem to grapple with, a handy solution, and an extension of Waldo
+in his incarnation."
+"CLC tagged object offers no further data unless CLC accessed directly." > )
+	(CLC-TXT <PLTABLE 0 "It looks like a simple waldo for Waldo, in a sense. It has small extensions on it which could probably be used for micro-surgery or something like that." 0>)
+	(ACTION WALDO-ONLY-FCN)>
+
+<ROUTINE WALDO-ONLY-FCN ()
+	 <COND (<AND <NOT <WALDO?>>
+		     <VERB? WEAR>>
+		<ROBOT-TELL "I'm not equipped to do that.">
+		<RTRUE>)>>
+	
+<OBJECT CABINET
+	(IN REPAIR3)
+	(FLAGS CONTBIT)
+	(DESC "cabinet")
+	(SYNONYM CAGE CB3 CABINE OBJECT)
+	(ADJECTIVE LARGE HOLLOW EMITTING CIRCUI)
+	(ACTION CABINET-FCN)
+	(CAPACITY 100)
+	(OBJDESCS <PLTABLE 0
+"A large object sits before me. Sonar indicates it is hollow, but not
+empty."
+"A large object emits strange flows, its surface a tracery of filament-like
+circuitry. The circuitry is concentrated near the center of one side."
+0
+"A cage to hold our ancestry sits on the floor, meek and timid, yet unwilling
+to openly share."
+"CLC tagged object CB3 located within this environment."
+0 "hollow object" "large object" 0 "cage" "CB3"
+0 0  
+"Concentrated on the front surface of the large object is a flowswitch." 0 
+"Further information regarding the cage can be gained if I touch it." 0 
+"Data bits flow within the surface of the cage, concentrated in a circle.">)
+	(CLC-TXT <PLTABLE "This container has a special locking mechanism." "Poet and Sensa can both perceive special characteristics of it." 0>)>
+
+<ROUTINE CABINET-FCN ()
+	 <COND (<VERB? OPEN>
+		<ROBOT-TELL "I don't detect any easy way to do that.">
+		<RTRUE>)
+	       (<AND <OR <POET?> <SENSA?>>
+		     <VERB? TOUCH EXAMINE>>
+		<FCLEAR ,FLOWSWITCH ,INVISIBLE>
+		<RFALSE>)
+	       (<AND <VERB? CLOSE>
+		     <FSET? ,CABINET ,OPENBIT>>
+		<SETG FLOWSWITCH-TURNED <>>
+		<RFALSE>)>>
+
+<OBJECT FLOWSWITCH
+	(IN REPAIR3)
+	(FLAGS INVISIBLE NDESCBIT TURNBIT)
+	(DESC "flowswitch")
+	(SYNONYM PLATES FLOWSWITCH SWITCH CIRCLE)
+	(ADJECTIVE FLOW ROUND)
+	(OBJDESCS <PLTABLE
+0 0 "flowswitch" 0 "lock" 0
+"flowswitch" "flowswitch" "flowswitch" "flowswitch" "lock" "flowswitch"
+0 0 
+"The flowswitch is a series of plates which must be properly lined up to allow
+proper electron flow." 0 
+"This is actually a flowswitch which must be turned, allowing proper
+electron flow." 0 
+"Sensa has the ability to turn the plates and detect when they are properly
+aligned.">)
+	(ACTION FLOWSWITCH-FCN)
+	(CLC-TXT <PLTABLE "The flowswitch is actually electrical 'plates' of polarity which can be properly aligned." 0 0>)>
+
+<GLOBAL FLOWSWITCH-TURNED <>>
+
+<ROUTINE FLOWSWITCH-FCN ()
+	 <COND (<VERB? TURN>
+		<COND (<NOT <SENSA?>>
+		       <ROBOT-TELL "I can't seem to make it work.">)
+		      (T
+		       <COND (,FLOWSWITCH-TURNED
+			      <ROBOT-TELL "It's already been turned.">)
+			     (ELSE
+			      <SETG FLOWSWITCH-TURNED T>
+			      <FSET ,CABINET ,OPENBIT>
+     <ROBOT-TELL "The flow of electrons aligns and the panel opens.">
+                              <FSET ,CABINET ,TOUCHBIT>
+			      <TELL <GET <GETP ,DEADBOT ,P?OBJDESCS> ,ROFF> CR>
+			      <RTRUE>)>)>)
+	       (<AND <VERB? EXAMINE>
+		     <SENSA?>>
+		<ROBOT-TELL 
+"I feel the vibrations running through this flowswitch. The outer plate and
+the inner plates must be aligned properly for it to work.">)>>
+	       
+<OBJECT DEADBOT
+	(IN CABINET)
+	(SYNONYM MECHAN CONSTRUCT DEVICE FRED)
+	(ADJECTIVE BROKEN UNTAGG)
+	(FLAGS TAKEBIT)
+	(SIZE 200)
+	(ACTION DEADBOT-FCN)
+	(OBJDESCS <PLTABLE 0
+"An open mechanism with similar parts to myself sits here, totally immobile."
+"Miles of circuitry rest within the device sitting here, though it no longer
+seems operational."
+"A broken construct sits here, totally immobile."
+"There once was a robot named Fred,|
+Who never conceived being dead.|
+  But late in the night,|
+  A terrible fright|
+Left him clearly without his own head."
+"There is a device here which the CLC cannot identify."
+0
+"broken mechanism"
+"broken device"
+"broken construct"
+"FRED"
+"device the CLC cannot identify"
+0 0 0 0 0 0>)
+	(CLC-TXT <PLTABLE "This robot is a dead and departed robot who is totally beyond repair." "There may be some salvageable parts inside it." "This robot was an all-purpose, multi-function robot which proved inadequate for maintenance purposes.">)>
+
+<ROUTINE DEADBOT-FCN ()
+	 <COND (<VERB? TAKE PUT-ON>
+		<ROBOT-TELL "I can't manage it. The " <>>
+		<TELL D ,DEADBOT " is too heavy." CR>
+		<RTRUE>)
+	       (<VERB? MOVE>
+		<ROBOT-TELL "I tried, but I failed.">
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<COND (<AND <NOT <FSET? ,REDWIRE ,TOUCHBIT>>
+			    <IN? ,DEADBOT ,REPAIR3>>
+		       <ROBOT-TELL "There's a " <>>
+		       <TELL D ,REDWIRE " here that might prove useful." CR>
+		       <RTRUE>)
+		      (T <RFALSE>)>)>>
+
+<OBJECT REDWIRE
+	(IN REPAIR3)
+	(FLAGS CUTABLEBIT INVISIBLE TAKEBIT)
+	(DESC "wire")
+	(OBJDESCS <PLTABLE
+1 
+"I can feel a bunch of smooth wire coming out of the mechanism."
+"A group of conductors extend from the once-electronic mechanism."
+"The broken device seems beyond repairing." 
+"The currents of life are easily visible now."
+"A CR streams out of the untagged device."  
+"twelve-inch red cable"
+"twelve-inch cable"
+"twelve-inch cable"
+"twelve-inch cable"
+"twelve-inch cable"
+"twelve-inch cable"
+0 0 0 0 0 0>)
+	(ADJECTIVE SMOOTH BUNCH CURRENT GROUP TWELVE)
+	(SYNONYM WIRE LIFE CONDUC CABLE)
+	(ACTION REDWIRE-FCN)>
+
+<ROUTINE REDWIRE-FCN ()
+	 <COND (<AND <VERB? TAKE REMOVE REPLACE>
+		     <NOT <FSET? ,REDWIRE ,CUTBIT>>>
+		<ROBOT-TELL "The " <>>
+		<TELL D ,REDWIRE " is firmly attached to the " D ,DEADBOT
+		      ". I'll need a tool to remove it." CR>
+		<RTRUE>)
+	       (<AND <VERB? CUT>
+		     <EQUAL? ,PRSI ,SURGERY-HAND>>
+		<ROBOT-TELL "The " <>>
+		<TELL D ,REDWIRE " is too thick and would ruin the "
+		      D ,SURGERY-HAND "." CR>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <IN? ,WINNER ,TUBE2>
+		     <EQUAL? ,PRSI ,GROOVE2>
+		     <NOT <IN? ,REDCABLE ,GROOVE2>>>
+		<SETG REDSET ,REDWIRE>
+		<RFALSE>)>>
+
+<OBJECT CAR
+	(IN HALL-END)
+	(FLAGS VEHBIT)
+	(DESC "vehicle")
+	(OBJDESCS <PLTABLE 0
+"Sonar also detects a large hollow container sitting at the head of the long
+tunnel."
+"Sensors detect an egg-shaped object, large enough for me to enter, sitting at
+the head of the long tunnel."
+"The crackling ozone is muffled by a large object sitting before it."
+"Before me sits a carriage of ancient splendor."
+"Mobile CLC tagged object CAR is at the head of the tunnel."
+0 "container" "egg-shaped object" "large object" "carriage" "CAR"
+0 0 0 0 0 0 "The carriage is a complex mechanism capable of transporting one robot at a time over large distances and is in good working order." >)
+	(ACTION CAR-FCN)
+	(SYNONYM CONTAI OBJECT CARRIAGE CAR)
+	(ADJECTIVE HOLLOW LARGE MOBILE EGG-SHAPED)
+	(CLC-TXT <PLTABLE "Operating this vehicle is as simple as entering it." "Use this to get to the Biological Area and back." "This device was introduced after maintaining the Biological Area became necessary.">)>
+
+<ROUTINE CAR-FCN ("OPTIONAL" (RARG ,M-OBJECT))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL "Through the " D ,CAR " I can detect the following:" CR>
+		<TELL <GET <GETP <LOC ,CAR> ,P?ROOMDESCS> ,ROFF> CR> <RTRUE>)
+	       (<EQUAL? .RARG ,M-BEG>
+		<COND (<AND <VERB? TAKE>
+			    <IN? ,PRSO ,WINNER-HERE>>
+		       <ROBOT-TELL "I can't reach it from here."> <RTRUE>)
+		      (<AND <VERB? DROP>
+			    <IN? ,PRSO ,WINNER>>
+		       <ROBOT-TELL 
+			"There's no convenient place to put anything down.">
+		       <RTRUE>)
+		      (<VERB? THROW>
+		       <COND (<IN? ,PRSO ,WINNER>
+			      <ROBOT-TELL "Thrown.">
+			      <MOVE ,PRSO <LOC ,CAR>>
+			      <RTRUE>)
+			     (ELSE
+			      <CANT-DETECT ,PRSO>
+			      <RTRUE>)>)
+		      (<VERB? WALK WALK-TO FOLLOW MOVE-ROBOT-TO-LOC>
+		       <ROBOT-TELL 
+			"An unlikely request, considering where I am.">)>)
+	       (<EQUAL? .RARG ,M-OBJECT>
+		<COND (<VERB? LOOK-INSIDE>
+		       <COND (<NOT <EQUAL? ,CAR-FULL 0>>
+			      <ROBOT-TELL  "I can detect " <>>
+			      <TELL D ,CAR-FULL>
+			      <TELL " inside the " D ,CAR "." CR>)
+			     (ELSE
+			      <ROBOT-TELL 
+			       "I can detect nothing inside of it.">)>
+		       <RTRUE>)>)>>
+
+<OBJECT WDIAL1
+	(IN WEATHER)
+	(FLAGS TOUCHBIT NDESCBIT TURNBIT)
+	(DESC "first dial")
+	(OBJDESCS <PLTABLE
+0 1 1 0 1 1 
+0 "first dial" "first dial" "first dial" "first dial" "first dial"
+0 "I can feel gradations etched into the dial which go from 0 to 100." "The dial is a variable potentiometer which has 100 settings." 0 "The dial can be set from 0 to 100 and is in proper working order."0"The dial is in working order.">)
+	(SYNONYM DIAL)
+	(ADJECTIVE FIRST)
+	(DIAL 1)
+	(CLC-TXT <PLTABLE "It is a simple dial with numbers etched into its surface." "Turn these dials to override the FCs and set the pressure manually." 0>)>
+
+<OBJECT WDIAL3
+	(IN WEATHER)
+	(FLAGS NDESCBIT TOUCHBIT TURNBIT)
+	(DESC "third dial")
+	(OBJDESCS <PLTABLE
+0 1 1 0 1 1
+"third dial" "third dial" "third dial" "third dial" "third dial" "third dial"
+0 "I can feel gradations etched into the dial which go from 0 to 100." "The dial is a variable potentiometer which has 100 settings." 0 "The dial can be set from 0 to 100 and is in proper working order." 0 "The dial is in working order.">)
+	(SYNONYM DIAL)
+	(ADJECTIVE THIRD)
+	(DIAL 3)
+	(CLC-TXT <PLTABLE "It is a simple dial with numbers etched into its surface." "Turn these dials to override the FCs and set the pressure manually." 0>)>
+
+<OBJECT WDIAL2
+	(IN WEATHER)
+	(FLAGS TOUCHBIT NDESCBIT TURNBIT)
+	(DESC "second dial")
+	(OBJDESCS <PLTABLE
+0 1 1 0 1 1
+0 "second dial" "second dial" "second dial" "second dial" "second dial"
+0 "I can feel gradations etched into the dial which go from 0 to 100." "The dial is a variable potentiometer which has 100 settings." 0 "The dial can be set from 0 to 100 and is in proper working order." 0 "The dial is in working order.">)
+	(SYNONYM DIAL)
+	(ADJECTIVE SECOND)
+	(DIAL 2)
+	(CLC-TXT <PLTABLE "It is a simple dial with numbers etched into its surface." "Turn these dials to override the FCs and set the pressure manually." 0>)>
+
+<OBJECT CLONESWITCH
+	(IN CRYOUNITS)
+	(FLAGS NDESCBIT TURNBIT)
+	(DESC "switch")
+	(SYNONYM ROD SWITCH)
+	(ADJECTIVE ELECTR LARGE STRAIG)
+	(OBJDESCS <PLTABLE
+0 1 1 0 1 1
+0 "switch""switch""switch""switch""switch"
+0 0 0 0 0 0>)
+	(ACTION CLONESWITCH-FCN)>
+
+<ROUTINE CLONESWITCH-FCN ()
+	 <COND (<AND <VERB? THROW>
+		     <EQUAL? ,PRSI ,WHEEL ,CLONESWITCH>>
+		<RFALSE>)
+	       (<VERB? TOUCH TURN THROW PUSH SET MOVE TAKE>
+		<COND (,ON-WEDGE
+		       <ROBOT-TELL 
+"It's still out of my reach. Perhaps a creature of larger proportions would be able to help turn this thing.">)
+		      (T
+		       <ROBOT-TELL "It's too far out of reach.">)>
+		<RTRUE>)>>
+
+<OBJECT WHEEL
+	(IN FCMAINT)
+	(FLAGS TURNBIT)
+	(DESC "WHEEL")
+	(SYNONYM WHEEL WH OBJECT DEVICE)
+	(ADJECTIVE CIRCUL HISSIN MECHAN)
+	(OBJDESCS <PLTABLE 0
+"I can detect a wheel, high overhead, with tubular structures running out of it, much like pipes."
+"I can detect the pressure backup regulating mechanism high overhead here as it regulates and monitors hydraulic pressures."
+"I can hear the gurgling of liquid overhead as it rushes through pipes and a regulatory wheel high overhead."
+"You press the first valve down, the acid goes round and round, oh oh oh oh, oh oh and it comes out here."
+"CLC tagged regulatory device WH detected overhead." "wheel""wheel""wheel""wheel""wheel""WH" 0 0 0 0 0 0>)
+	(ACTION CLONESWITCH-FCN)
+	(CLC-TXT <PLTABLE "This wheel controls the cooling acids which circulate through the Filtering Computers." 0 0>)>
+
+<OBJECT TV
+	(IN BIO-LAB)
+	(FLAGS TAKEBIT CONTBIT)
+	(DESC "camera")
+	(OBJDESCS <PLTABLE
+1 
+"Sitting on the floor is a small sphere which has a jack trailing from it."
+"I can detect a small device which is capable of transmitting signals on the RF band."
+0
+"A device useful for getting me to become a star is located nearby."
+"CLC tagged device TV1 sits on the floor by a table."
+"television camera" "small sphere" "transmitter" "television camera" "sender" "TV1"
+0
+"There are small grasping areas on it which correspond to my graspers."
+"The device needs to be plugged in in order for it to be operational."
+"It makes no sounds."
+"Hey, baby, hang around Schwab's long enough and ... who knows?"
+"This device seems linked with Iris.">)
+	(SYNONYM TRANSM SENDER DEVICE SPHERE)
+	(CLC-TXT <PLTABLE "This is a complex television camera which links directly to Iris." "It can be activated by plugging it in at the correct location." 0>)
+	(ADJECTIVE PROJECTION TV1 SMALL CAMERA JACK TV TELEVI)
+	(ACTION TV-FCN)>
+
+<GLOBAL TV-QUIPS
+	<PLTABLE
+0
+"I detect a vibration from it as it comes on."
+"Electricity flows and RF transmissions begin."
+"I hear it click on."
+"We're on location, all systems go."
+"CLC indicates object now functioning.">>
+
+<ROUTINE TV-FCN ()
+	 <COND (<VERB? CLIMB-ON STAND-ON STEP-ON>
+		<ROBOT-TELL "It won't support my weight.">
+		<RTRUE>)
+	       (<AND <VERB? PLUGIN>
+		     <NOT <EQUAL? <LOC ,WINNER> ,TUBE1 ,TUBE2>>>
+		<ROBOT-TELL "The jack doesn't fit anything in this area.">
+		<RTRUE>)
+	       (<VERB? PLUGIN>
+		<COND (<AND ,PRSI
+			    <NOT <EQUAL? ,PRSI ,TVHOLE>>>
+		       <ROBOT-TELL "I can't plug it into that.">
+		       <RTRUE>)
+		      (<NOT <IN? ,TV ,WINNER>>
+		       <ROBOT-TELL "I can't. I'm not holding it.">
+		       <RTRUE>)
+		      (,TV-ON
+		       <ROBOT-TELL "It's already plugged in.">)
+		      (T
+		       <ROBOT-TELL "I've plugged it in. " <>>
+		       <TELL <GET ,TV-QUIPS ,ROFF> CR>
+		       <COND (<AND <NOT <FSET? ,IRIS ,CUTBIT>>
+				   ,IRIS-FIXED>
+			      <CRLF>
+			      <TELL <GET ,INTER-TBL 1> 
+				    " Receiving transmissions." CR>)>)>
+		<SETG TV-ON T>)
+	       (<VERB? OPEN>
+		<ROBOT-TELL "It's not a jack-in-the-box, you know.">)
+	       (<VERB? UNPLUG>
+		<ROBOT-TELL "The " <>>
+		<TELL D ,TV " has been unplugged." CR>
+		<SETG TV-ON <>>)
+	       (<AND <VERB? TAKE>
+		     <NOT <FSET? ,TV ,TOUCHBIT>>>
+		<GENERATE-CODES>
+		<RFALSE>)>>
+		     
+<OBJECT REDCABLE
+	(IN GROOVE2)
+	(DESC "red cable")
+	(SYNONYM CABLE)
+	(ADJECTIVE FOUR-INCH)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(ACTION REDCABLE-FCN)
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1 
+"red four-inch cable""four-inch cable""four-inch cable""four-inch cable""four-inch cable""four-inch cable"
+0 0 
+"The electrical flow within this cable seems irregular." 0 
+"The data transmissions within this cable are irregular. Immediate replacement
+recommended." 0>)>
+
+<OBJECT YELLOWCABLE
+	(IN GROOVE2)
+	(DESC "yellow cable")
+	(SYNONYM CABLE)
+	(ADJECTIVE EIGHTEEN)
+	(FLAGS  TAKEBIT TOUCHBIT)
+	(ACTION KILL-CABLE-FCN)
+	(OBJDESCS <PLTABLE
+0 1 1 1 1 1
+"eighteen-inch yellow cable""eighteen-inch cable""eighteen-inch cable""eighteen-inch cable""eighteen-inch cable""eighteen-inch cable"
+0 0 0 0 0 0>)>
+
+<OBJECT GREENCABLE
+	(IN GROOVE2)
+	(DESC "green cable")
+	(SYNONYM CABLE)
+	(ADJECTIVE TEN-INCH)
+	(FLAGS  TAKEBIT TOUCHBIT)
+	(ACTION KILL-CABLE-FCN)
+	(OBJDESCS <PLTABLE
+0 1 1 1 1 1
+"ten-inch green cable""ten-inch cable""ten-inch cable"
+"ten-inch cable""ten-inch cable""ten-inch cable"
+0 0 0 0 0 0>)>
+
+<OBJECT PINKCABLE
+	(IN GROOVE2)
+	(DESC "pink cable")
+	(SYNONYM CABLE)
+	(ADJECTIVE SIX-INCH)
+	(FLAGS  TOUCHBIT TAKEBIT)
+	(ACTION KILL-CABLE-FCN)
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1
+"pink six-inch cable""six-inch cable""six-inch cable"
+"six-inch cable""six-inch cable""six-inch cable"
+0 0 0 0 0 0>)>
+
+
+<OBJECT WHITECABLE
+	(IN GROOVE1)
+	(DESC "white cable")
+	(SYNONYM CABLE)
+	(ADJECTIVE FIVE-I)
+	(FLAGS  TAKEBIT TOUCHBIT)
+	(ACTION KILL-CABLE-FCN)
+	(OBJDESCS <PLTABLE
+0 1 1 1 1 1
+"white five-inch cable""five-inch cable""five-inch cable"
+"five-inch cable""five-inch cable""five-inch cable"
+0 0 0 0 0 0>)>
+	
+<OBJECT BLUECABLE
+	(IN GROOVE1)
+	(DESC "blue cable")
+	(SYNONYM CABLE)
+	(ADJECTIVE TWENTY)
+	(FLAGS  TAKEBIT TOUCHBIT)
+	(ACTION KILL-CABLE-FCN)
+	(OBJDESCS <PLTABLE
+0 1 1 1 1 1 
+"twenty-inch blue cable""twenty-inch cable""twenty-inch cable""twenty-inch cable"
+"twenty-inch cable""twenty-inch cable"
+0 0 0 0 0 0>)>
+
+<OBJECT BLACKCABLE
+	(IN GROOVE1)
+	(DESC "black cable")
+	(SYNONYM CABLE)
+	(ADJECTIVE NINETEEN)
+	(FLAGS  TAKEBIT TOUCHBIT)
+	(ACTION KILL-CABLE-FCN)
+	(OBJDESCS <PLTABLE
+0 1 1 1 1 1
+"black nineteen-inch cable""nineteen-inch cable""nineteen-inch cable""nineteen-inch cable""nineteen-inch cable""nineteen-inch cable"
+0 0 0 0 0 0>)>
+
+<OBJECT ORANGECABLE
+	(IN GROOVE1)
+	(DESC "orange cable")
+	(SYNONYM CABLE)
+	(ADJECTIVE NINE-INCH)
+	(FLAGS  TAKEBIT TOUCHBIT)
+	(ACTION ORANGECABLE-FCN)
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1
+"nine-inch orange cable""nine-inch cable""nine-inch cable"
+"nine-inch cable""nine-inch cable""nine-inch cable"
+0 0 
+"This cable is not transmitting energy properly." 0 0 0  
+"Data transmissions are highly irregular through this cable.">)>
+
+<ROUTINE KILL-CABLE-FCN ()
+	 <COND (<VERB? REPLACE TAKE>
+		<JIGS-UP "Oh oh. Maybe I shouldn't have done that . . ." 
+			 ,WINNER>)>>
+
+<ROUTINE REDCABLE-FCN ()
+	 <COND (<VERB? TAKE REPLACE>
+		<FCLEAR ,REDCABLE ,NDESCBIT>
+		<RFALSE>)>>
+
+<ROUTINE ORANGECABLE-FCN ()
+	 <COND (<VERB? TAKE REPLACE>
+		<FCLEAR ,ORANGECABLE ,NDESCBIT>
+		<RFALSE>)>>
+
+<OBJECT GROOVE1
+	(IN TUBE1)
+	(FLAGS SURFACEBIT NDESCBIT CONTBIT OPENBIT SEARCHBIT)
+	(CAPACITY 21)
+	(DESC "groove")
+	(CLC-TXT <PLTABLE "The groove contains four wires and has an exposed section which allows for easy replacement of cables." "Make sure you know which cables are live." "The grooves were placed in the channels for making easy replacing and diagnosing of cables.">)
+	(OBJDESCS <PLTABLE
+0 1 1 1 1 1 
+"groove""groove""groove""groove""groove""groove"
+0 0 0 0 0 0>)
+	(ACTION GROOVE-FCN)
+	(CONTFCN GROOVE-CONT)
+	(SYNONYM GROOVE TRACK)>
+
+<OBJECT GROOVE2
+	(IN TUBE2)
+	(FLAGS SURFACEBIT NDESCBIT CONTBIT OPENBIT)
+	(CAPACITY 21)
+	(DESC "groove")
+	(OBJDESCS <PLTABLE
+0 1 1 1 1 1 
+"groove""groove""groove""groove""groove""groove"
+0 0 0 0 0 0>)
+	(ACTION GROOVE-FCN)
+	(CONTFCN GROOVE-CONT)
+	(SYNONYM GROOVE TRACK)
+	(CLC-TXT <PLTABLE "The groove contains four wires and has an exposed section which allows for easy replacement of cables." "Make sure you know which cables are live." "The grooves were placed in the channels for making easy replacing and diagnosing of cables.">)>
+
+<ROUTINE GROOVE-FCN ()
+	 <COND (<VERB? LOOK EXAMINE>
+		<ROBOT-TELL "There are "<>>
+		<TELL N <CABLECOUNT ,PRSO> " " D ,CABLES " in the grooves. ">
+		<TELL <GET ,CABLE-TBL ,ROFF> CR>
+		<RTRUE>)>>
+
+<GLOBAL CABLE-TBL
+	  <PLTABLE
+"The cables are actually exposed sections of larger cables. They each
+terminate at a connector. The connector itself poses no problem and, from what
+I can see, easy replacement should be possible."
+"I can feel that the cables are actually snap-in modules which can easily be
+replaced."
+"Sensory mechanisms indicate that the cables are modular in construction and
+can be snapped in and out for easy replacement."
+"I can hear slight buzzing at a junction for each of the cables."
+"Ah, what an age we live in when replacement parts are the way of things."
+"CLC data indicates the cables are modular, exposed at this juncture for easy
+replacement. CLC also warns that contact with inappropriate cable sections can
+be fatal.">>
+
+<ROUTINE GROOVE-CONT ()
+	 <COND (<VERB? REPLACE TAKE>
+		<COND (<OR <EQUAL? ,PRSO ,PINKCABLE ,YELLOWCABLE ,GREENCABLE>
+			   <EQUAL? ,PRSO ,WHITECABLE ,BLACKCABLE ,BLUECABLE>>
+		       <TELL "Sizzzzzzzzzle..." CR>
+		       <JIGS-UP 
+			"Oh oh. Maybe I shouldn't have done that . . ." 
+			,WINNER>)
+		      ;(<AND <VERB? REPLACE>
+			    <OR <EQUAL? ,PRSI ,REDWIRE ,ORANGE-WIRE ,REDCABLE>
+				<EQUAL? ,PRSI ,ORANGECABLE>>>
+		       <COND (<EQUAL? ,WINNER-HERE ,TUBE2>
+			      <SETG REDSET ,PRSI>)
+			     (T
+			      <SETG ORANGESET ,PRSI>)>
+		       <RFALSE>)
+		      ;(<AND <VERB? TAKE>
+			    <OR <EQUAL? ,PRSO ,REDWIRE ,ORANGE-WIRE ,REDCABLE>
+				<EQUAL? ,PRSO ,ORANGECABLE>>>
+		       <COND (<EQUAL? ,WINNER-HERE ,TUBE2>
+			      <SETG REDSET ,PRSI>)
+			     (T
+			      <SETG ORANGESET ,PRSI>)>
+		       <RFALSE>)
+		      ;(T
+		       <ROBOT-YUKS>)>)>>
+
+<OBJECT PEOPLE-CABINET
+	(IN TOOL-AREA)
+	(FLAGS CONTBIT TOUCHBIT)
+	(DESC "storage cabinet")
+	(SYNONYM CABINE CONTAI OBJECT BROTHE)
+	(ADJECTIVE BIG SQUARE C9 SOUNDL STRANG)
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1
+"storage cabinet" "square container" "strange container" "soundless object"
+"big brother" "C9" 0 0 0 0 0 0>)
+	(ACTION PEOPLE-CABINET-FCN)>
+
+<ROUTINE PEOPLE-CABINET-FCN ()
+	 <COND (<VERB? OPEN>
+		<TELL "FC: Robots are restricted from opening this cabinet." CR>
+		<RTRUE>)>>
+
+<OBJECT TOOLBAG
+	(IN PEOPLE-CABINET)
+	(FLAGS TAKEBIT CONTBIT TOUCHBIT)
+	(DESC "tool bag")
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1
+"tool bag" "tiny container" "tool container" "jingling bag" "tool bag" "TB"
+0 0 0 0 0 0>)
+	(ACTION TOOLBAG-FCN)
+	(SYNONYM BAG CONTAI TB)
+	(ADJECTIVE TOOL JINGLI TINY)>
+	
+<ROUTINE TOOLBAG-FCN ()
+	 <COND (<VERB? TAKE>
+		<COND (<NOT <IN? ,TOOLBAG ,PEOPLE>>
+		       <RFALSE>)
+		      (T <ROBOT-TELL "The " <>>
+		       <TELL D ,PEOPLE " won't let me take it." CR>
+		       <RTRUE>)>)
+	       (<VERB? OPEN>
+		<ROBOT-TELL "I can't. It requires a human access code.">)>>
+
+<OBJECT CONVEYERBELTA
+	(IN REPAIR1)
+	(FLAGS FURNITURE CONTBIT SURFACEBIT NDESCBIT OPENBIT TOUCHBIT)
+	(CAPACITY 200)
+	(DESC "BLT")
+	(SYNONYM WALKWA MECHAN GLIDER BLT)
+	(ADJECTIVE MOVING CONVEY NOISY)
+	(OBJDESCS <PLTABLE 0 1 1 1 1 1 0 "walkway" "conveying mechanism" "noisy walkway" "glider" "BLT" 0 0 0 0 0 0>)
+	(ACTION CONVEYERBELT-FCN)
+	(CLC-TXT <PLTABLE "This moving belt is actually a repair belt." "Placing an object on the north-most end will result in a repaired object at the south-most end." 0>)>
+
+<OBJECT CONVEYERBELTB
+	(IN REPAIR2)
+	(FLAGS FURNITURE CONTBIT SURFACEBIT NDESCBIT OPENBIT TOUCHBIT)
+	(CAPACITY 200)
+	(DESC "BLT")
+	(SYNONYM WALKWA MECHAN GLIDER BLT)
+	(ADJECTIVE MOVING CONVEY NOISY)
+	(OBJDESCS <PLTABLE 0 1 1 1 1 1 0 "walkway" "conveying mechanism" "noisy walkway" "glider" "BLT" 0 0 0 0 0 0>)
+	(ACTION CONVEYERBELT-FCN)
+	(CLC-TXT <PLTABLE "This moving belt is actually a repair belt." "Placing an object on the north-most end will result in a repaired object at the south-most end." 0>)>
+
+<OBJECT CONVEYERBELTC
+	(IN REPAIR3)
+	(FLAGS TOUCHBIT FURNITURE CONTBIT SURFACEBIT NDESCBIT OPENBIT)
+	(CAPACITY 200)
+	(DESC "BLT")
+	(SYNONYM WALKWA MECHAN GLIDER BLT)
+	(ADJECTIVE MOVING CONVEY NOISY)
+	(OBJDESCS <PLTABLE 0 1 1 1 1 1 0 "walkway" "conveying mechanism" "noisy walkway" "glider" "BLT" 0 0 0 0 0 0>)
+	(ACTION CONVEYERBELT-FCN)
+	(CLC-TXT <PLTABLE "This moving belt is actually a repair belt." "Placing an object on the north-most end will result in a repaired object at the south-most end." 0>)>
+
+<ROUTINE CONVEYERBELT-FCN ()
+	 <COND (<EQUAL? ,PRSI ,CONVEYERBELTA ,CONVEYERBELTB ,CONVEYERBELTC>
+		<COND (<VERB? TAKE>
+		       <ROBOT-TELL "I can't. It's moving too fast.">
+		       <RFATAL>)
+		      (<VERB? PUT-ON>
+		       <COND (<OR <GETP ,PRSO ,P?ROBOT>
+				  <EQUAL? ,PRSO ,DEADBOT>>
+			      <ROBOT-TELL "There's no way I can lift " <>>
+			      <COND (<EQUAL? ,PRSO ,DEADBOT>
+				     <TELL "the ">)>
+			      <TELL D ,PRSO " that high." CR>
+			      <RTRUE>)>
+		       <SETG BELT-ON T>
+		       <COND (<NOT <GET <INT I-BELT> ,C-ENABLED?>>
+			      <ENABLE <QUEUE I-BELT 2>>)>
+		       <COND (<EQUAL? ,PRSI ,CONVEYERBELTA>
+			      <FSET ,PRSO ,FIXABLEBIT>
+			      <RFALSE>)>)>)
+	       (<VERB? LAMP-ON LAMP-OFF>
+		<ROBOT-TELL "It will automatically activate when something has been placed on it.">
+		<RTRUE>)>>
+
+<OBJECT LEVER1
+	(IN HYDRO)
+	(FLAGS TOUCHBIT NDESCBIT TURNBIT)
+	(DESC "first lever")
+	(OBJDESCS <PLTABLE
+0 1 1 0 1 1 
+0 "first lever""first lever""first lever""first lever""first lever" 0
+"I can feel gradations etched into the panel beside the lever which goes from 0 to 100." "Sensory mechanisms detect the internal electrical flow can be set from 0 to 100." 0 "From zip to a c-note, the levers may be set." 0>)
+	(CLC-TXT <PLTABLE "This is a standard push-pull lever which controls the flow of water." 0 0>) 
+	(SYNONYM LEVER)
+	(ADJECTIVE FIRST WATER)
+	(DIAL 4)
+	(ACTION LEVER-FCN)>
+
+<OBJECT LEVER3
+	(IN HYDRO)
+	(FLAGS NDESCBIT TOUCHBIT TURNBIT)
+	(DESC "third lever")
+	(OBJDESCS <PLTABLE
+0 1 1 0 1 1
+0"third lever""third lever""third lever""third lever""third lever"
+0
+"I can feel gradations etched into the panel beside the lever which goes from 0 to 100." "Sensory mechanisms detect the internal electrical flow can be set from 0 to 100." 0 "From zip to a c-note, the levers may be set." 0>)
+	(CLC-TXT <PLTABLE "This is a standard push-pull lever which controls the intensity of lighting." 0 0>)
+	(SYNONYM LEVER)
+	(ADJECTIVE THIRD LIGHTI)
+	(DIAL 6)
+	(ACTION LEVER-FCN)>
+
+<OBJECT LEVER2
+	(IN HYDRO)
+	(FLAGS TOUCHBIT NDESCBIT TURNBIT)
+	(DESC "second lever")
+	(OBJDESCS <PLTABLE
+0 1 1 0 1 1
+0 "second lever""second lever""second lever""second lever""second lever"
+0
+"I can feel gradations etched into the panel beside the lever which goes from 0 to 100." "Sensory mechanisms detect the internal electrical flow can be set from 0 to 100." 0 "From zip to a c-note, the levers may be set." 0>)
+	(CLC-TXT <PLTABLE "This is a standard push-pull lever which controls the flow of minerals." 0 0>)
+	(SYNONYM LEVER)
+	(ADJECTIVE SECOND MINERAL)
+	(DIAL 5)
+	(ACTION LEVER-FCN)>
+
+
+
+<ROUTINE LEVER-FCN ()
+	 <COND (<VERB? PUSH MOVE>
+		<PERFORM ,V?SET ,PRSO ,PRSI>
+		<RTRUE>)>>
+
+<OBJECT SWITCH1
+	(IN RTD)
+	(FLAGS NDESCBIT TOUCHBIT ONBIT)
+	(DESC "first switch")
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 "floaters switch" "first bump" "first device" "first switch" "first switch" "first switch" 0 0 0 0 0 0>)
+	(SYNONYM SWITCH BUMP DEVICE BUMPS)
+	(ADJECTIVE FIRST RAISED)
+	(CLC-TXT <PLTABLE "This is a simple off-on switch which cuts all power to the airborne floaters." "Cut this switch only when no human beings are in the air." "This switch is commonly used for maintenance on the floaters.">)
+	(ACTION RTD-SWITCH-FCN)>
+
+<OBJECT SWITCH3
+	(IN RTD)
+	(FLAGS NDESCBIT TOUCHBIT ONBIT)
+	(DESC "third switch")
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 "walkway switch" "third bump" "third device" "third switch" "third switch" "third switch" 0 0 0 0 0 0>)
+	(SYNONYM SWITCH BUMP BUMPS DEVICE)
+	(ADJECTIVE THIRD RAISED)
+	(CLC-TXT <PLTABLE "This off-on switch cuts all power to the moving walkways on the planet's surface." 0 0>)
+	(ACTION RTD-SWITCH-FCN)>
+
+<OBJECT SWITCH2
+	(IN RTD)
+	(FLAGS NDESCBIT TOUCHBIT ONBIT)
+	(DESC "second switch")
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 "autotaxi switch" "second bump" "second device" "second switch" "second switch" "second switch" 0 0 0 0 0 0>)
+	(SYNONYM SWITCH BUMP BUMPS DEVICE)
+	(ADJECTIVE SECOND RAISED)
+	(CLC-TXT <PLTABLE "This simple off-on switch cuts all power to the auto-taxis which cruise the surface." 0 0>)
+	(ACTION RTD-SWITCH-FCN)>
+			  
+<ROUTINE RTD-SWITCH-FCN ()
+	 <COND (<VERB? THROW>
+		<PERFORM ,V?SET ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<VERB? TURN>
+		<COND (<FSET? ,PRSO ,ONBIT>
+		       <PERFORM ,V?LAMP-OFF ,PRSO>
+		       <RTRUE>)
+		      (ELSE
+		       <PERFORM ,V?LAMP-ON ,PRSO>
+		       <RTRUE>)>)>>
+
+<OBJECT PLAQUE
+	(IN STERILE-AREA)
+	(FLAGS TAKEBIT)
+	(DESC "plaque")
+	(OBJDESCS <PLTABLE 1 "A small plaque sits by the wall, easily detectable by the relief etched into it." "A small plaque radiates heat, sitting by the wall." "A small plaque makes tinging noises here." "An advert sits waiting to be read." "A small PLQ sits here, looking very informative.""small plaque" "small plaque" "small plaque" "small plaque" "small advert" "small PLQ" 0 0 0 0 0 0>)
+	(ACTION PLAQUE-FCN)
+	(SYNONYM PLAQUE RELIEF ADVERT PLQ)
+	(ADJECTIVE SMALL)>
+
+<ROUTINE PLAQUE-FCN ()
+	 <COND (<NOT <VERB? READ>>
+		<RFALSE>)>
+	 <COND (<IRIS?>
+		<COND (<NOT ,IRIS-FIXED>
+		       <ROBOT-TELL "Forget it, big boy. Fix me first.">)
+		      (T
+		       <ROBOT-TELL "Sure. Here goes...">
+		       <CRLF>
+		       <TELL
+"This Underground Complex was designed and built by the Frobozz Engineering Company, makers of such fine products as One-Way (tm) Bus Tickets, Ozone Nozone, and \"Best in the East\", soon to be a Smello-vision (tm) release.|
+|
+Chief Designer/Architect: Michael Berlyn." CR>)>)
+	       (<WALDO?>
+		<ROBOT-TELL "Sure. Here... Lemme feel...|
+|
+It says Bumpity bump-bump, groove bump, dot dot bump, and so on. I'm sure Iris is more suited for reading, though." >)
+	       (<SENSA?>
+		<ROBOT-TELL "Sure. Let me sense it...|
+|
+It says emmak...|
+|
+I don't know. It seems to lose something in the translation. Iris might be more helpful in reading this." >)
+	       (<AUDA?>
+		<ROBOT-TELL "I hear you. It says TING TINKLE DE DONG TONG. Iris should be able to tell the difference between that and a doorbell.">)
+	       (<POET?>
+		<ROBOT-TELL "Sure.|
+|
+It says 'While traveling the highways and byways of life, one doesn't always have time to stop and look at the roadmap' I think.  (But what do I know? I can't read -- I learned all my philosophy by reductive absurdium. Talk to Iris and she'll read it for you.)" >)
+	       (<WHIZ?>
+		<ROBOT-TELL "Hmm.... That's a tough one.
+|
+Nope, sorry. I only read data banks. You must want Iris.">)>>
+
+;<ROUTINE PLAQUE-FCN ()
+	 <COND (<NOT <VERB? READ>>
+		<RFALSE>)
+	       (T
+		<COND (<NOT <IRIS?>>
+		       <ROBOT-YUKS>
+		       <RTRUE>)
+		      >)>>
+		
+<OBJECT CLONETUBES
+	(IN CRYOUNITS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "large objects")
+	(SYNONYM OBJECT CANIST)
+	(ADJECTIVE LARGE)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "large canisters""large canisters""large canisters""large canisters""large canisters""large canisters" 0 "They're hollow and each one contains a duplicate of you." "They contain a primitive life force (compared to me)." 0 "We all wonder about ourselves." "CLC indicates these are the clone units.">)>
+
+<OBJECT HERRINGBONE
+	(IN SUPPLIES-MID)
+	(DESC "sixteen-inch cable")
+	(FLAGS TAKEBIT TOUCHBIT)
+	(SYNONYM CABLE)
+	(ADJECTIVE BLUE SIXTEE) 
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "blue sixteen-inch cable"
+	 "sixteen-inch cable""sixteen-inch cable""sixteen-inch cable""sixteen-inch cable""sixteen-inch cable" 0 0 0 0 0 0>)>
+
+<OBJECT NOZZLE
+	(IN DECON-CHAMBER)
+	(DESC "nozzle")
+	(SYNONYM NOZZLE PORT)
+	(ADJECTIVE SMALL HISSIN)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "nozzle""small nozzle""nozzle""small port""nozzle""nozzle" 0 0 0 0 0 0>)>
+
+<OBJECT BENCH
+	(IN STERILE-AREA)
+	(DESC "benches")
+	(SYNONYM BENCH BENCHE)
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "benches""benches""benches""benches""benches""benches" 0 0 0 0 0 0>)
+	(FLAGS NDESCBIT TOUCHBIT)>
+
+<OBJECT RAILING
+	(IN CLC-CORE)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(SYNONYM RAILIN)
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 "railing""railing""railing""railing""railing""railing" 0 0 0 0 0 0>)
+	(DESC "railing")>
+
+<OBJECT SMASHED-BOX
+	(IN SUPPLIES-SOUTH)
+	(DESC "crushed box")
+	(FLAGS TAKEBIT CONTBIT INVISIBLE TOUCHBIT)
+	(CAPACITY 20)
+	(SYNONYM BOX CBX MUSH CONTAI)
+	(ADJECTIVE CRUSHE FLAT RUINED QUIET SMUSHE)
+	(OBJDESCS <PLTABLE  "crushed box" "flat container" "ruined box" "quiet box" "smushed mush" "CBX"
+ "crushed box" "flat container" "ruined box" "quiet box" "smushed mush" "CBX" 0 0 0 0 0 0>)
+	(CLC-TXT <PLTABLE "This CBX contains all of the replacement cables for the FCs." "All replacements can be easily done." "The box was placed here for easy replacements.">)>
+
+<OBJECT RUINED-CABLES
+	(IN SMASHED-BOX)
+	(FLAGS TAKEBIT TOUCHBIT)
+	(DESC "backup cable")
+	(SYNONYM CABLE BUC)
+	(SIZE 8)
+	(ADJECTIVE RUINED SMASHE BROKEN BACKUP)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "backup cable""backup cable""backup cable""backup cable""backup cable" "BUC"
+"This cable looks beyond hope, crushed almost beyond recognition."
+"From what my sonar and touching mechanisms provide as feedback, this thing is flatter than Whiz's intelligence curve."
+"This cable is no longer capable of transmitting electrical charges."
+0 "Like, oh wow, run over by a steamroller." "The BUC no longer seems functional.">)> 
+	  
+<OBJECT BROKEN-SHELF
+	(IN SUPPLIES-SOUTH)
+	(DESC "broken shelf")
+	(FLAGS TAKEBIT)
+	(SIZE 500)
+	(OBJDESCS <PLTABLE 
+	 "A broken shelf lies on the floor in a terrible state, beyond use."
+	 "Sonar detects a broken platform on the floor in an irregular heap."
+	 0
+	 0
+	 "Everything cracks under pressure, sooner or later."
+	 0 "broken shelf" "broken platform" "broken shelf" "broken shelf" "broken holder" "broken shelf" 0 0 0 0 0 0>)
+	(SYNONYM SHELF PLATFORM)
+	(ADJECTIVE BROKEN CRACKED)>
+
+<OBJECT PERIPH1-OBJ
+	(IN PERIPH-1)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(SYNONYM PEDEST)
+	(ADJECTIVE INDEX FIRST)
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 "Index pedestal""Index pedestal""Index pedestal""Index pedestal""Index pedestal""Index pedestal" 0 
+"It feels smooth to the touch. Whiz can plug into it."
+"A tremendous amount of vibrations is being output from this device."
+0
+"How can one describe the totality of knowing?"
+"The CLC indicates the pedestal is ready for my plugging in.">)
+	(DESC "Index pedestal")>
+
+<OBJECT PERIPH2-OBJ
+	(IN PERIPH-2)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(SYNONYM PEDEST)
+	(ADJECTIVE TECHNI SECOND)
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 "Technical pedestal""Technical pedestal""Technical pedestal""Technical pedestal""Technical pedestal""Technical pedestal"0 "It feels smooth to the touch and Whiz should be able to plug into it."
+"A tremendous amount of vibrations is being output from this device."
+0
+"How can one describe the totality of knowing?"
+"The CLC indicates the pedestal is ready for me to plug into.">)
+	(DESC "Technical Pedestal")>
+
+<OBJECT PERIPH3-OBJ
+	(IN PERIPH-3)
+	(FLAGS TOUCHBIT NDESCBIT)
+	(SYNONYM PEDEST)
+	(ADJECTIVE ADVISO THIRD)
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 "Advisory pedestal""Advisory pedestal""Advisory pedestal""Advisory pedestal""Advisory pedestal""Advisory pedestal" 0 
+"It feels smooth to the touch and appears to be an interface for Whiz."
+"A tremendous amount of vibrations is being output from this device."
+0
+"How can one describe the totality of knowing?"
+"The CLC indicates the pedestal is ready for my plugging in.">)
+	(DESC "Advisory Pedestal")>
+
+<OBJECT PERIPH4-OBJ
+	(IN PERIPH-4)
+	(FLAGS TOUCHBIT NDESCBIT)
+	(SYNONYM PEDEST)
+	(ADJECTIVE HISTOR FOURTH)
+	(OBJDESCS <PLTABLE 0 1 1 0 1 1 "Historical pedestal""Historical pedestal""Historical pedestal""Historical pedestal""Historical pedestal""Historical pedestal" 0 
+"It feels smooth to the touch and is an interface for Whiz."
+"A tremendous amount of vibrations is being output from this device."
+0
+"How can one describe the totality of knowing?"
+"The CLC indicates the pedestal is ready to be plugged into.">)
+	(DESC "Historical Pedestal")>
+
+<OBJECT DIALS
+	(IN WEATHER)
+	(SYNONYM DIALS)
+	(DESC "dials")
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "dials""dials""dials""dials""dials""dials" 0 "The dials go from 0 to 100." 0 0 0 0>)
+	(FLAGS NDESCBIT TOUCHBIT)>
+
+<OBJECT G-LEVERS
+	(IN HYDRO)
+	(FLAGS TOUCHBIT NDESCBIT)
+	(DESC "levers")
+	(OBJDESCS <PLTABLE
+0 1 1 0 1 1 
+0 "levers""levers""levers""levers""levers" 0
+"I can feel gradations etched into the panel beside the levers which goes from 0 to 100." "Sensory mechanisms detect the internal electrical flow can be set from 0 to 100." 0 "From zip to a c-note, the levers may be set." 0>)
+	(CLC-TXT <PLTABLE "These are standard push-pull levers which control the flow of water, minerals and lighting." 0 0>) 
+	(SYNONYM LEVERS)>
+
+ <OBJECT BEDS
+	 (IN SLEEP-CHAMBER)
+	 (FLAGS NDESCBIT TOUCHBIT)
+	 (DESC "flat beds")
+	 (SYNONYM BED BEDS EXTENS HSP)
+	 (ADJECTIVE FLAT)
+	 (OBJDESCS <PLTABLE 0 1 0 0 1 1 "flat beds""flat extensions""flat beds""flat beds""flat beds" "HSP" 0 0 0 0 0 0>)
+	 (CLC-TXT <PLTABLE 0 0 "These Human Sleeping Platforms were provided for human visitors.">)>
+	 
+<OBJECT CLONETABLE
+	(IN BIO-LAB)
+	(FLAGS NDESCBIT TOUCHBIT CONTBIT SURFACEBIT OPENBIT)
+	(CAPACITY 50)
+	(SYNONYM TABLE STRUCT EQUIPT)
+	(ADJECTIVE WORK LARGE)
+	(DESC "work table")
+	(OBJDESCS <PLTABLE 0 1 0 0 1 0 "work table""work table""work table"
+			  "work table""work table""work table" 0 0 0 0 0 0>)> 
+
+<OBJECT MACHINE
+	(IN SUPPLIES-NORTH)
+	(FLAGS CONTBIT SEARCHBIT NDESCBIT TOUCHBIT)
+	(DESC "machine")
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "machine" "medium-sized object" "strange machine" "silent machine""pretty processor""GG1" 0 0 0 0 0 0 "This machine is live with high voltage electrical current.">)
+	(CAPACITY 33)
+	(CLC-TXT <PLTABLE "This machine holds the 8 circles used to reset the Filtering Computers." "Once the panel is opened (by pressing the button), the eight code circles will be revealed. If the Filtering Computers are operational and balanced, keying in the two codes will result in a system reset." "This mechanism was provided for resetting the Filtering Computers.">)
+	(SYNONYM MACHINE OBJECT PROCESSOR GG1)
+	(ADJECTIVE MEDIUM STRANG PRETTY SILENT)
+	(ACTION MACHINE-FCN)>
+
+<ROUTINE MACHINE-FCN ()
+	 <COND (<VERB? CLOSE OPEN>
+		<ROBOT-TELL
+"I don't see any way to accomplish that.">)>>
+
+<OBJECT ORANGE-BUTTON
+	(IN SUPPLIES-NORTH)
+	(FLAGS NDESCBIT)
+	(SYNONYM BUTTON NUTTOB SPOT B5)
+	(DESC "button")
+	(ADJECTIVE ORANGE RAISED NOISLE)
+	(OBJDESCS <PLTABLE
+1 1 1 0 1 1 
+"orange button""raised spot""button"
+"noiseless button""nottub""B5"
+0 0 0 0 0 0 "The button is a switch which can be activated by pressing it.">)
+	(ACTION ORANGE-BUTTON-FCN)
+	(CLC-TXT <PLTABLE "The button is a simple switch, activated by pressing." "Press the button once the chips which regulate the device have been inserted." 0>)>
+
+<ROUTINE ORANGE-BUTTON-FCN ()
+	 <COND (<AND <VERB? PUSH>
+		     <NOT <FSET? ,MACHINE ,OPENBIT>>>
+		<COND (<AND <IN? ,NEWCHIP0 ,SOCKET1>
+			    <IN? ,NEWCHIP2 ,SOCKET2>
+			    <IN? ,FUSE ,MACHINE>>
+		       <ROBOT-TELL <GET ,BUTTON-PRESS-TBL ,ROFF>>
+		       <FCLEAR ,ORANGE-WIRE ,INVISIBLE>
+		       <FCLEAR ,FUSE ,INVISIBLE>
+		       <FSET ,MACHINE ,OPENBIT>
+		       <RTRUE>)
+		      (T
+		       <ROBOT-TELL "Nothing happens.">)>)
+	       (<VERB? PUSH>
+		<ROBOT-TELL "Nothing happens.">)>>
+
+<GLOBAL BUTTON-PRESS-TBL
+	<PLTABLE
+"Okay. I've pressed the button. The front panel popped open, exposing a series of eight little circles with letters written on them. The front panel bears further examination. A bunch of orange wire is exposed, and beside it, in the panel, rests a small glass fuse."
+"Okay, I've pressed the raised area. Sonar detects a front panel has popped open. A fourteen-inch cable rests beside a small cylinder which is inside the panel, both of which sit side by side inside the machine. The front panel has eight raised circles on it."
+"Okay, I've pressed it. Sensory mechanisms detect electrical energy is exposed, running through a fourteen-inch cable. In addition, a glass fuse has been exposed, resting beside the wire in the panel. The front panel is electrically intensive and has odd properties."
+"Okay, I've pressed it. I hear the sound of metal hitting metal."
+"Okey Dokey. All pressed nottub. However, this thing has flashed me, exposing
+a fourteen-inch cable and a tube interrupter, like Frick and Frack, side by side. The front panel, like a little piano, rests within view."
+"Check. It's been pressed and a fourteen-inch cable has been exposed as well
+as a GF1.">>  
+
+<OBJECT ORANGE-WIRE
+	(IN MACHINE)
+	(FLAGS INVISIBLE TAKEBIT TOUCHBIT)
+	(DESC "orange wire")
+	(OBJDESCS <PLTABLE 1 1 1 1 1 1 "fourteen-inch cable of orange wire" "fourteen-inch cable" "fourteen-inch cable" "fourteen-inch cable" "fourteen-inch cable" "fourteen-inch cable" 0 0 0 0 0 0 "This is a cable in good working order and can be used as a replacement when needed.">)
+	(ACTION ORANGE-WIRE-FCN)
+	(SYNONYM WIRE CABLE STRAND OBJECT)
+	(ADJECTIVE FOURTE ORANGE SENDER CONDUC)>
+
+<ROUTINE ORANGE-WIRE-FCN ()
+	 <COND (<VERB? TAKE REPLACE>
+		<COND (<AND <IN? ,FUSE ,MACHINE>
+			    <IN? ,ORANGE-WIRE ,MACHINE>>
+		       <ROBOT-TELL "I'm reaching for the " <>>
+		       <TELL D ,ORANGE-WIRE "..." CR>
+		       <JIGS-UP "Oh oh!|
+|
+FC: Sizzle, pop, and snap-crackly noises. The delicious smell of fried robot. Mmm Mmm." ,WINNER>)>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <IN? ,WINNER ,TUBE1>
+		     <NOT <IN? ,ORANGECABLE ,GROOVE1>>
+		     <EQUAL? ,PRSI ,GROOVE2>>
+		<SETG ORANGESET ,ORANGE-WIRE>
+		<RFALSE>)>>
+
+<OBJECT SOCKET1
+	(IN SUPPLIES-NORTH)
+	(FLAGS TOUCHBIT CONTBIT OPENBIT NDESCBIT)
+	(DESC "first socket")
+	(OBJDESCS <PLTABLE
+1 1 1 0 1 1 "red socket" "first depression" "plus receptacle" 0 "primo socket" "S1"
+0 0 0 0 0 0"Diagnostic circuits detect the need for working IC to be inserted.">)
+	(SYNONYM SOCKET S1 DEPRESSION RECEPTACLE)
+	(ADJECTIVE RED FIRST PLUS PRIMO)
+	(CAPACITY 5)
+	(CLC-TXT <PLTABLE "This socket is the exact size and shape to accept a microchip." 0 0>)
+	(ACTION SOCKET-FCN)>
+
+<OBJECT SOCKET2
+	(IN SUPPLIES-NORTH)
+	(FLAGS TOUCHBIT CONTBIT OPENBIT NDESCBIT)
+	(CLC-TXT <PLTABLE "This socket is the exact size and shape to accept a microchip." 0 0>)
+	(DESC "secondary socket")
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "yellow socket" "second depression"
+"negative socket" 0 "secondary socket" "S2" 0 0 0 0 0 0 "Diagnostic circuits detect the need for a working IC to be inserted.">)
+	(SYNONYM SOCKET S2 DEPRESSION RECEPTACLE)
+	(ADJECTIVE NEGATIVE YELLOW SECOND)
+	(CAPACITY 5)
+	(ACTION SOCKET-FCN)>
+
+<ROUTINE SOCKET-FCN ("AUX" TBL)
+	 <COND (<VERB? CLOSE>
+		<ROBOT-YUKS>)>>
+
+<OBJECT FUSE
+	(IN MACHINE)
+	(FLAGS NDESCBIT TOUCHBIT TAKEBIT INVISIBLE)
+	(DESC "FUSE")
+	(OBJDESCS <PLTABLE
+1 1 1 0 1 1 "glass fuse""small cylinder""glass fuse""noiseless cylinder"
+"glass interrupter" "GF1" 0 0 "There is a little conductor inside of it which prevents circuits from overloading." 0 0 0 "The device, a simple 32 amp fuse, is in proper working order.">)
+	(SYNONYM FUSE INTERRUPTER GF1 CYLINDER)
+	(ADJECTIVE SMALL GLASS NOISEL)
+	(SIZE 7)
+	(CLC-TXT <PLTABLE 0 "This is a small glass fuse which should be removed before tampering with any exposed sections. After tampering with machine internals, the fuse should be put back into the machine." 0>)>
+
+<OBJECT FRONT-PANEL
+	(IN MACHINE)
+	(FLAGS CONTBIT SURFACEBIT TOUCHBIT OPENBIT)
+	(DESC "front panel")
+	(SYNONYM PANEL PIANO)
+	(ADJECTIVE FRONT)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "front panel""front panel""front panel"
+			  "front panel""piano""front panel"
+"On the panel are a series of eight circles. Each of these circles has a three letter code printed on it. The three letters correspond to half of the Filtering Computers' reset code."
+"The panel appears to be smooth, but I can detect eight raised circles on it."
+"The panel has a lot of electrical circuitry going through it, with circuits traced to a series of eight areas."
+0
+"The front panel is a piano, with only eight circle keys."
+"CLC indicates the FP is a mechanism designed to reset the Filtering Computers.">)
+	(SIZE 1)>
+
+<OBJECT CIRCLE1
+	(IN FRONT-PANEL)
+	(DESC "FOO")
+	(SYNONYM CIRCLE KEY)
+	(ADJECTIVE FIRST FOO)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "first circle""first circle""first circle""first circle""first circle""first circle" "The circle has some lettering on it which says FOO." 0 0 0 0 0>)
+	(ACTION CIRCLE-FCN)
+	(SIZE 1)>
+
+<OBJECT CIRCLE8
+	(IN FRONT-PANEL)
+	(DESC "TRA")
+	(SYNONYM CIRCLE KEY)
+	(ADJECTIVE EIGHTH TRA)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "eighth circle""eighth circle""eighth circle""eighth circle""eighth circle""eighth circle" "The circle has some lettering on it which says TRA." 0 0 0 0 0>)
+	(ACTION CIRCLE-FCN)
+	(SIZE 1)>
+
+<OBJECT CIRCLE7
+	(IN FRONT-PANEL)
+	(DESC "BOZ")
+	(SYNONYM CIRCLE KEY)
+	(ADJECTIVE SEVENT BOZ)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "seventh circle""seventh circle""seventh circle""seventh circle""seventh circle""seventh circle" "The circle has some lettering on it which says BOZ." 0 0 0 0 0>)
+	(ACTION CIRCLE-FCN)
+	(SIZE 1)>
+
+<OBJECT CIRCLE6
+	(IN FRONT-PANEL)
+	(DESC "CON")
+	(SYNONYM CIRCLE KEY)
+	(ADJECTIVE SIXTH CON)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "sixth circle""sixth circle""sixth circle""sixth circle""sixth circle""sixth circle" "The circle has some lettering on it which says CON." 0 0 0 0 0>)
+	(ACTION CIRCLE-FCN)
+	(SIZE 1)>
+
+<OBJECT CIRCLE5
+	(IN FRONT-PANEL)
+	(DESC "KLA")
+	(SYNONYM CIRCLE KEY)
+	(ADJECTIVE FIFTH KLA)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "fifth circle""fifth circle""fifth circle""fifth circle""fifth circle""fifth circle" "The circle has some lettering on it which says KLA." 0 0 0 0 0>)
+	(ACTION CIRCLE-FCN)
+	(SIZE 1)>
+
+<OBJECT CIRCLE4
+	(IN FRONT-PANEL)
+	(DESC "BAR")
+	(SYNONYM CIRCLE KEY)
+	(ADJECTIVE FOURTH BAR)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "fourth circle""fourth circle""fourth circle""fourth circle""fourth circle""fourth circle" "The circle has some lettering on it which says BAR." 0 0 0 0 0 >)
+	(ACTION CIRCLE-FCN)
+	(SIZE 1)>
+
+<OBJECT CIRCLE3
+	(IN FRONT-PANEL)
+	(DESC "BLE")
+	(SYNONYM CIRCLE KEY)
+	(ADJECTIVE THIRD BLE)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1 "third circle""third circle""third circle""third circle""third circle""third circle" "The circle has some lettering on it which says BLE." 0 0 0 0 0 >)
+	(ACTION CIRCLE-FCN)
+	(SIZE 1)>
+
+<OBJECT CIRCLE2
+	(IN FRONT-PANEL)
+	(DESC "MUM")
+	(SYNONYM CIRCLE KEY)
+	(ADJECTIVE SECOND MUM)
+	(OBJDESCS <PLTABLE 1 1 1 0 1 1"second circle""second circle""second circle""second circle""second circle""second circle" "The circle has some lettering on it which says MUM." 0 0 0 0 0 >)
+	(ACTION CIRCLE-FCN)
+	(SIZE 1)>
+
+<ROUTINE CIRCLE-FCN ("AUX" (COUNT 0) (NUM-PRESSED 0) (PREMATURE T))
+	 <COND (<VERB? PUSH>
+		<COND (<NOT <IN? ,FUSE ,MACHINE>>
+		       <ROBOT-TELL "Nothing is happening. I don't think it's working anymore.">
+		       <RTRUE>)>
+		<COND (<FSET? ,PRSO ,TOUCHBIT>
+		       <TELL "FC: That one has already been pressed." CR>
+		       <RTRUE>)
+		      (T <FSET ,PRSO ,TOUCHBIT>)>
+		<COND (<AND <EQUAL? ,REDSET ,REDWIRE>
+			    <EQUAL? ,ORANGESET ,ORANGE-WIRE>>
+		       <SET PREMATURE <>>
+		       <COND (<EQUAL? ,PRSO ,CODE1>
+			      <SETG CODE-SET1 T>)
+			     (<EQUAL? ,PRSO ,CODE2>
+			      <SETG CODE-SET2 T>)>)>
+		<REPEAT ()
+			<COND (<G? <SET COUNT <+ .COUNT 1>> 8>
+			       <RETURN>)
+			      (T
+			       <COND (<FSET? <GET ,CODE-TBL .COUNT> ,TOUCHBIT>
+				      <SET NUM-PRESSED <+ .NUM-PRESSED 1>>)>)>>
+		<COND (<EQUAL? .NUM-PRESSED 1>
+		       <COND (.PREMATURE
+			      <TELL
+"FC: Attempt for reset has been rejected. Code entry premature. FCs out of balance." CR>
+			      <RESET-CODES>
+			      <RTRUE>)
+			     (T
+			      <TELL
+"FC: First access code accepted. Enter second access code now." CR>)>)
+		      (<EQUAL? .NUM-PRESSED 2>
+		       <TELL "FC: Second access code accepted. " CR>
+		       <COND (<AND ,CODE-SET1 ,CODE-SET2>
+			      <END-GAME>)
+			     (T <TELL CR 
+"FC: Code recognition failed. Pattern entered does not match the reset code. Reset procedures aborted. New reset code being generated due to possible tampering." CR>
+			      <RESET-CODES>
+			      <GENERATE-CODES>)>)>)>>
+
+<ROUTINE RESET-CODES ("AUX" (COUNT 0))
+	 <REPEAT ()
+		 <COND (<G? <SET COUNT <+ .COUNT 1>> 8>
+			<RETURN>)
+		       (T
+			<FCLEAR <GET ,CODE-TBL .COUNT> ,TOUCHBIT>)>>
+	 <SETG CODE-SET1 <>>
+	 <SETG CODE-SET2 <>>
+	 <RTRUE>>
+
+<ROUTINE GENERATE-CODES ()
+	 <SETG CODE1 <PICK-ONE ,CODE-TBL>>
+	 <SETG CODE2 <PICK-ONE ,CODE-TBL>>
+	 <REPEAT ()
+		 <COND (<EQUAL? ,CODE1 ,CODE2>
+			<SETG CODE2 <PICK-ONE ,CODE-TBL>>)
+		       (T <RETURN>)>>
+	 <RESET-CODES>>
\ No newline at end of file
diff --git a/parser.cmp b/parser.cmp
new file mode 100644
index 0000000..58e17e9
--- /dev/null
+++ b/parser.cmp
@@ -0,0 +1,1399 @@
+
+;COMPARISON OF SS:<SUSPENDED>GPARSER.ZIL.1 AND SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106
+;OPTIONS ARE    /3
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 1-1 (0)
+			"Generic PARSER file for
+			    The ZORK Trilogy
+		       started on 7/28/83 by MARC"
+;"WHICH and TRAP retrofixes installed"
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 1-1 (0)
+"PARSER for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 1-14 (304)
+;<GLOBAL GWIM-DISABLE <>> 
+ 
+<GLOBAL PRSA <>>
+ 
+<GLOBAL PRSI <>>
+<GLOBAL PRSO <>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 1-13 (264)
+<GLOBAL ALWAYS-LIT <>>   
+ 
+<GLOBAL GWIM-DISABLE <>> 
+ 
+<GLOBAL PRSA 0>
+ 
+<GLOBAL PRSI 0>
+<GLOBAL PRSO 0>
+<GLOBAL P-ADVERB <>>
+<GLOBAL P-ADJECTIVE <>>
+<GLOBAL P-OADJECTIVE <>>
+<GLOBAL P-OADJ <>>
+<GLOBAL P-TWOBOTS <>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 1-32 (521)
+;<GLOBAL P-DIR 0>    
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 1-43 (633)
+<GLOBAL P-DIR 0>    
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 2-53 (1986)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 2-53 (2097)
+<GLOBAL SETUP-MODE <>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-2 (2286)
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WRD (VAL 0) (VERB <>)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-2 (2423)
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WORD (VAL 0) (VERB <>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-8 (2534)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-8 (2672)
+	<SETG P-OADJ <>>
+	<SETG P-ADJECTIVE <>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-12 (2645)
+	<COND (<AND <NOT ,QUOTE-FLAG> <N==? ,WINNER ,PLAYER>>
+	       <SETG WINNER ,PLAYER>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <SETG LIT <LIT? ,HERE>>)>
+	<COND (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <COND (<AND <NOT ,SUPER-BRIEF>
+			   <==? ,PLAYER ,WINNER>
+			   <NOT <VERB? SAY>>>
+		      <CRLF>)>
+	       <SETG P-CONT <>>)
+	      (T
+	       <SETG WINNER ,PLAYER>
+	       <SETG QUOTE-FLAG <>>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <SETG LIT <LIT? ,HERE>>
+	       <COND (<NOT ,SUPER-BRIEF> <CRLF>)>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-14 (2826)
+	<COND (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <SETG P-CONT <>>
+	       <COND (<NOT <VERB? $TELL>> <CRLF>)>)
+	      (<AND <G? ,P-NACTORS 1> <ACTOR-CHANGE>>
+	       <PUTB ,P-LEXV ,P-LEXWORDS ,P-OPLEN>
+	       <SET PTR ,P-OPCONT>)
+	      (T
+	       <SETG OLD-WINNER ,WINNER>
+	       <SETG QUOTE-FLAG <>>
+	       <COND (<NOT ,SETUP-MODE> <CRLF>)
+		     (T
+		      <SET VERB ,ACT?WALK>
+		      <PUT ,P-ITBL ,P-VERB ,ACT?WALK>
+		      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
+		      <PUT ,P-VTBL 0 0>
+		      <PUT ,P-ITBL ,P-PREP1 ,PR?TO>
+		      <PUT ,P-ITBL ,P-PREP1N ,W?TO>)>
+	       <COND (<==? ,WINNER ,TWOBOTS>
+		      <CHANGE-WINNER <GET ,P-ACTORS 1>>
+		      <CRLF>)>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-35 (3398)
+	<COND (<0? ,P-LEN> <TELL "I beg your pardon?" CR> <RFALSE>)>
+	<SET LEN ,P-LEN>
+	;<SETG P-DIR <>>
+	<SETG P-NCN 0>
+	<SETG P-GETFLAGS 0>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-39 (3632)
+	<COND (<0? ,P-LEN>
+	       <TELL "FC: Communication meaningless." CR>
+	       <RFALSE>)>
+	<SET LEN ,P-LEN>
+	<SETG P-DIR <>>
+	<SETG P-NCN 0>
+	<SETG P-GETFLAGS 0>
+	<SETG P-TWOBOTS <>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-44 (3645)
+		      (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<AND <==? .WRD ,W?TO>
+				   <EQUAL? .VERB ,ACT?TELL ;,ACT?ASK>>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <==? .WRD ,W?THEN>
+				   <NOT .VERB>
+				   <NOT ,QUOTE-FLAG> ;"Last NOT added 7/3">
+			      <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+			      <PUT ,P-ITBL ,P-VERBN 0>
+			      <SET WRD ,W?QUOTE>)>
+		       <COND (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <EQUAL? .WRD ,W?QUOTE>> 
+			      <COND (<EQUAL? .WRD ,W?QUOTE>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-51 (3930)
+		      (<OR <SET WORD <GET ,P-LEXV .PTR>>
+			   <SET WORD <NUMBER? .PTR>>>
+		       <COND (<EQUAL? .WORD ,W?BOTH ,W?TOGETHER>
+			      <SETG P-TWOBOTS T>)
+			     (<AND <==? .WORD ,W?TO>
+				   <EQUAL? .VERB ,ACT?$TELL>>
+			      <SET WORD ,W?QUOTE>)
+			     (<AND <==? .WORD ,W?THEN>
+				   <NOT .VERB>>
+			      <PUT ,P-ITBL ,P-VERB ,ACT?$TELL>
+			      <PUT ,P-ITBL ,P-VERBN 0>
+			      <SET WORD ,W?QUOTE>)>
+		       <COND ;(<AND <EQUAL? .WORD ,W?PERIOD>
+				   <EQUAL? .LW ,W?MRS ,W?MR ,W?MS>>
+			      <SET LW 0>)
+			     (<OR <EQUAL? .WORD ,W?THEN ,W?PERIOD>
+				  <EQUAL? .WORD ,W?QUOTE>> 
+			      <COND (<EQUAL? .WORD ,W?QUOTE>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-66 (4423)
+					<WT? .WRD
+					     ,PS?DIRECTION
+					     ,P1?DIRECTION>>
+				   <EQUAL? .VERB <> ,ACT?WALK>
+				   <OR <==? .LEN 1>
+				       <AND <==? .LEN 2>
+					    <EQUAL? .VERB ,ACT?WALK>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-77 (4840)
+					<WT? .WORD
+					     ,PS?DIRECTION
+					     ,P1?DIRECTION>>
+				   <OR <==? .LEN 1>
+				       <AND <==? .LEN 2> <==? .VERB ,ACT?WALK>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-77 (4734)
+					            ,W?PERIOD
+					            ,W?QUOTE>
+					    <NOT <L? .LEN 2>>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-86 (5103)
+					            ,W?QUOTE>
+					    <==? .VERB ,ACT?WALK>
+					    <G? .LEN 2>>
+				       <AND <EQUAL? .NW ,W?PERIOD>
+					    <EQUAL? .VERB ,ACT?WALK <>>
+					    <G? .LEN 1>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-84 (4933)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-96 (5401)
+					    <==? .VERB ,ACT?WALK>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-93 (5204)
+			     (<AND <SET VAL <WT? .WRD ,PS?VERB ,P1?VERB>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-106 (5704)
+			     (<AND <SET VAL <WT? .WORD ,PS?VERB ,P1?VERB>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-98 (5383)
+			      <PUT ,P-VTBL 0 .WRD>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-111 (5884)
+			      <PUT ,P-VTBL 0 .WORD>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-103 (5557)
+			     (<OR <SET VAL <WT? .WRD ,PS?PREPOSITION 0>>
+				  <AND <OR <EQUAL? .WRD ,W?ALL ,W?ONE ;,W?A>
+					   <WT? .WRD ,PS?ADJECTIVE>
+					   <WT? .WRD ,PS?OBJECT>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-116 (6059)
+			     (<OR <SET VAL <WT? .WORD ,PS?PREPOSITION 0>>
+				  <AND <OR <EQUAL? .WORD ,W?ALL ,W?ONE ,W?A>
+					   <EQUAL? .WORD ,W?BOTH>
+					   <WT? .WORD ,PS?ADJECTIVE>
+					   <WT? .WORD ,PS?OBJECT>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-112 (5866)
+					  <0? .VAL>
+					  <NOT
+					   <EQUAL? .WRD ,W?ALL ,W?ONE ,W?A>>>)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-126 (6403)
+					  ;<NOT <EQUAL? .VERB ,ACT?ACCUSE>>
+					  <0? .VAL>
+					  <NOT
+					   <EQUAL? .WORD ,W?ALL ,W?ONE ,W?A>>
+					  <NOT <EQUAL? .WORD ,W?BOTH>>>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-121 (6152)
+					    <PUT ,P-ITBL ,P-PREP1N .WRD>)>)
+				    (<==? ,P-NCN 2>
+				     <TELL
+"There were too many nouns in that sentence." CR>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-137 (6769)
+					    <PUT ,P-ITBL ,P-PREP1N .WORD>)>)
+				    (<==? ,P-NCN 2>
+				     <TELL
+"FC: I found too many nouns in that sentence." CR>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-128 (6354)
+				     <OR <SET PTR <CLAUSE .PTR .VAL .WRD>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-144 (6973)
+				     <OR <SET PTR <CLAUSE .PTR .VAL .WORD>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-133 (6503)
+			     (<WT? .WRD ,PS?BUZZ-WORD>)
+			     (<AND <EQUAL? .VERB ,ACT?TELL>
+				   <WT? .WRD ,PS?VERB ,P1?VERB>>
+			      <TELL
+"Please consult your manual for the correct way to talk to other people
+or creatures." CR>
+			      <RFALSE>)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-149 (7123)
+			     ;(<OR <EQUAL? .WORD ,W?CAREFULLY ,W?QUIETLY>
+				  <EQUAL? .WORD ,W?SLOWLY ,W?QUICKLY
+					        ,W?BRIEFLY>>
+			      <SETG P-ADVERB .WORD>)
+			     (<WT? .WORD ,PS?BUZZ-WORD>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-146 (6869)
+		<SET LW .WRD>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>
+	<COND (.DIR
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-160 (7439)
+		<SET LW .WORD>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>
+	<COND (.DIR 
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 3-155 (7101)
+	<COND (<AND <SYNTAX-CHECK> <SNARF-OBJECTS> <MANY-CHECK> <TAKE-CHECK>>
+	       T)>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 3-169 (7673)
+	;<COND (<==? <GET ,P-ITBL ,P-VERB> 0> <PUT ,P-ITBL ,P-VERB ,ACT?CALL>)>
+	<COND (<AND <SYNTAX-CHECK> <SNARF-OBJECTS> <TAKE-CHECK> <MANY-CHECK>>
+	       T)>>
+<ROUTINE ACTOR-CHANGE ()
+	 <REPEAT ()
+		 <COND (<L? ,P-NACTORS 2> <RFALSE>)>
+		 <SETG P-CACTOR <+ ,P-CACTOR 1>>
+		 <CRLF>
+		 <SETG P-NACTORS <- ,P-NACTORS 1>>
+		 <COND (<CHANGE-WINNER <GET ,P-ACTORS ,P-CACTOR>>
+			<RTRUE>)>>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-2 (7480)
+<ROUTINE WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFS ,P-P1OFF) TYP) 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 4-2 (8360)
+<ROUTINE WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFST ,P-P1OFF) TYP) 
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-7 (7689)
+		      <COND (<NOT <==? .TYP .B1>> <SET OFFS <+ .OFFS 1>>)>
+		      <GETB .PTR .OFFS>)>)>>
+;" Scan through a noun clause, leave a pointer to its starting location"
+ 
+<ROUTINE CLAUSE (PTR VAL WRD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0)) 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 4-7 (8570)
+		      <COND (<NOT <==? .TYP .B1>> <SET OFFST <+ .OFFST 1>>)>
+		      <GETB .PTR .OFFST>)>)>>
+;" Scan through a noun clause, leave a pointer to its starting location"
+ 
+<ROUTINE CLAUSE (PTR VAL WORD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0)) 
+	#DECL ((PTR VAL OFF NUM) FIX (WORD NW) <OR FALSE FIX TABLE>
+	       (ANDFLG FIRST??) <OR ATOM FALSE>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-16 (8057)
+	       <PUT ,P-ITBL <+ .NUM 1> .WRD>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 4-17 (9045)
+	       <PUT ,P-ITBL <+ .NUM 1> .WORD>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-27 (8558)
+		<COND (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<0? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       <COND (<EQUAL? .WRD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WRD ,W?ALL ,W?ONE>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 4-28 (9547)
+		<COND (<OR <SET WORD <GET ,P-LEXV .PTR>>
+			   <SET WORD <NUMBER? .PTR>>>
+		       <COND (<0? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       ;<COND (<AND <==? .WORD ,W?OF>
+				   <==? <GET ,P-ITBL ,P-VERB> ,ACT?ACCUSE>>
+			      <PUT ,P-LEXV .PTR ,W?WITH>
+			      <SET WORD ,W?WITH>)>
+		       <COND ;(<AND <EQUAL? .WORD ,W?PERIOD>
+				   <EQUAL? .LW ,W?MRS ,W?MR ,W?MS>>
+			      <SET LW 0>)
+			     (<EQUAL? .WORD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WORD ,W?ALL ,W?BOTH ,W?ONE>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-36 (8945)
+			     (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <AND <WT? .WRD ,PS?PREPOSITION>
+				       <GET ,P-ITBL ,P-VERB>
+				          ;"ADDED 4/27 FOR TURTLE,UP"
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 4-44 (10208)
+			     (<OR <EQUAL? .WORD ,W?THEN ,W?PERIOD>
+				  <AND <WT? .WORD ,PS?PREPOSITION>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-46 (9289)
+			     (<WT? .WRD ,PS?OBJECT>
+			      <COND (<AND <G? ,P-LEN 0>
+					  <EQUAL? .NW ,W?OF>
+					  <NOT <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				     T)
+				    (<AND <WT? .WRD ,PS?ADJECTIVE>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 4-52 (10477)
+			     (<AND .ANDFLG
+				   <OR <WT? .WORD ,PS?DIRECTION>
+				       <WT? .WORD ,PS?VERB>>>
+			      <SET PTR <- .PTR 4>>
+			      <PUT ,P-LEXV <+ .PTR 2> ,W?THEN>
+			      <SETG P-LEN <+ ,P-LEN 2>>)
+			     (<WT? .WORD ,PS?OBJECT>
+			      <COND (<AND <WT? .WORD
+					       ,PS?ADJECTIVE
+					       ,P1?ADJECTIVE>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-62 (9793)
+			     (<AND <OR ,P-MERGED
+				       ,P-OFLAG
+				       <NOT <EQUAL? <GET ,P-ITBL ,P-VERB> 0>>>
+				   <OR <WT? .WRD ,PS?ADJECTIVE>
+				       <WT? .WRD ,PS?BUZZ-WORD>>>)
+			     (<AND .ANDFLG
+				   <OR <WT? .WRD ,PS?DIRECTION>
+				       <WT? .WRD ,PS?VERB>>>
+			      <SET PTR <- .PTR 4>>
+			      <PUT ,P-LEXV <+ .PTR 2> ,W?THEN>
+			      <SETG P-LEN <+ ,P-LEN 2>>)
+			     (<WT? .WRD ,PS?PREPOSITION> T)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 4-72 (11118)
+			     (<OR <WT? .WORD ,PS?ADJECTIVE>
+				  <WT? .WORD ,PS?BUZZ-WORD>>)
+			     (<WT? .WORD ,PS?PREPOSITION> T)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-78 (10320)
+		<SET LW .WRD>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 4-79 (11337)
+		<SET LW .WORD>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 4-107 (11181)
+;<GLOBAL P-DIRECTION 0>
+;"New ORPHAN-MERGE for TRAP Retrofix 6/21/84"
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   <SETG P-OFLAG <>>
+   <COND (<WT? <GET <GET ,P-ITBL ,P-VERBN> 0> ,PS?ADJECTIVE>
+	  <SET ADJ T>)>
+   <COND (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	       <NOT .ADJ>
+	       <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+	  <RFALSE>)
+	 (<==? ,P-NCN 2> <RFALSE>)
+	 (<==? <GET ,P-OTBL ,P-NC1> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP1>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-OTBL ,P-NC1L <REST ,P-LEXV 6>>)
+		       (T
+			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+			<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>)
+		(T <RFALSE>)>)
+	 (<==? <GET ,P-OTBL ,P-NC2> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP2>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+		 <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+		 <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+		 <SETG P-NCN 2>)
+		(T <RFALSE>)>)
+	 (<NOT <ZERO? ,P-ACLAUSE>>
+	  <COND (<AND <NOT <==? ,P-NCN 1>> <NOT .ADJ>>
+		 <SETG P-ACLAUSE <>>
+		 <RFALSE>)
+		(T
+		 <SET BEG <GET ,P-ITBL ,P-NC1>>
+		 <COND (.ADJ <SET BEG <REST ,P-LEXV 2>> <SET ADJ <>>)>
+		 <SET END <GET ,P-ITBL ,P-NC1L>>
+		 <REPEAT ()
+			 <SET WRD <GET .BEG 0>>
+			 <COND (<==? .BEG .END>
+				<COND (.ADJ <ACLAUSE-WIN .ADJ> <RETURN>)
+				      (T <SETG P-ACLAUSE <>> <RFALSE>)>)
+			       (<AND <NOT .ADJ>
+				     <OR <BTST <GETB .WRD ,P-PSOFF>
+					       ,PS?ADJECTIVE>
+					 <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				<SET ADJ .WRD>)
+			       (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+				    <==? .WRD ,W?ONE>>
+				<COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>>
+				       <RFALSE>)
+				      (T <ACLAUSE-WIN .ADJ> <RETURN>)>)>
+			 <SET BEG <REST .BEG ,P-WORDLEN>>
+			 <COND (<EQUAL? .END 0>
+				<SET END .BEG>
+				<SETG P-NCN 1>
+				<PUT ,P-ITBL ,P-NC1 <BACK .BEG 4>>
+				<PUT ,P-ITBL ,P-NC1L .BEG>)>>)>)>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 5-2 (12204)
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   #DECL ((CNT TEMP VERB) FIX (BEG END) <PRIMTYPE VECTOR> (WRD) TABLE)
+   <SETG P-OFLAG <>>
+   <COND
+    (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	  <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+     <RFALSE>)
+    (<==? ,P-NCN 2>
+     <RFALSE>)
+    (<==? <GET ,P-OTBL ,P-NC1> 1>
+     <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>> <GET ,P-OTBL ,P-PREP1>>
+		<0? .TEMP>>
+	    <PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+	    <PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)
+	   (T <RFALSE>)>)
+    (<==? <GET ,P-OTBL ,P-NC2> 1>
+     <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>> <GET ,P-OTBL ,P-PREP2>>
+		<0? .TEMP>>
+	    <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+	    <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+	    <SETG P-NCN 2>)
+	   (T <RFALSE>)>)
+    (,P-ACLAUSE
+     <COND
+      (<NOT <==? ,P-NCN 1>> <SETG P-ACLAUSE <>> <RFALSE>)
+      (T
+       <SET BEG <GET ,P-ITBL ,P-NC1>>
+       <SET END <GET ,P-ITBL ,P-NC1L>>
+       <REPEAT ()
+	       <COND (<==? .BEG .END>
+		      <COND (.ADJ
+			     <ACLAUSE-WIN .ADJ>
+			     <RETURN>)
+			    (T
+			     <SETG P-ACLAUSE <>>
+			     <RFALSE>)>)
+		     (<AND <NOT .ADJ>
+			   <BTST <GETB <SET WRD <GET .BEG 0>> ,P-PSOFF>
+			         ,PS?ADJECTIVE>>
+		      <SET ADJ .WRD>)
+		     (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+			  <==? .WRD ,W?ONE>>
+		      <COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>> <RFALSE>)
+			    (T
+			     <ACLAUSE-WIN .ADJ>
+			     <RETURN>)>)>
+	       <SET BEG <REST .BEG ,P-WORDLEN>>>)>)>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 5-71 (13456)
+;"New ACLAUSE-WIN for TRAP retrofix 6/21/84"
+<ROUTINE ACLAUSE-WIN (ADJ) 
+	<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>
+	<SETG P-CCSRC ,P-OTBL>
+	<CLAUSE-COPY ,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
+	<AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+	<SETG P-ACLAUSE <>>
+	<RTRUE>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 5-56 (13944)
+<ROUTINE ACLAUSE-WIN (ADJ)
+	 <SETG P-CCSRC ,P-OTBL>
+	 <CLAUSE-COPY ,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
+	 <AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>>
+	      <SETG P-NCN 2>>
+	 <SETG P-ACLAUSE <>>
+	 <RTRUE>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 6-10 (14034)
+	<COND (<VERB? SAY>
+	       <TELL "Nothing happens." CR>
+	       <RFALSE>)>
+	<TELL "I don't know the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\"." CR>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 6-10 (14440)
+	#DECL ((PTR BUF) FIX)
+	<TELL "FC: I don't know the word '">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "'." CR>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 6-21 (14345)
+	<COND (<VERB? SAY>
+	       <TELL "Nothing happens." CR>
+	       <RFALSE>)>
+	<TELL "You used the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\" in a way that I don't understand." CR>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 6-19 (14698)
+	#DECL ((PTR BUF) FIX)
+	<TELL "FC: I can't use the word '">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "' here." CR>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 7-2 (15212)
+<ROUTINE SYNTAX-CHECK ("AUX" SYN LEN NUM OBJ
+		       	    (DRIVE1 <>) (DRIVE2 <>) PREP VERB TMP) 
+	<COND (<0? <SET VERB <GET ,P-ITBL ,P-VERB>>>
+	       <TELL "There was no verb in that sentence!" CR>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 7-2 (15487)
+<ROUTINE SYNTAX-CHECK ("AUX" SYN LEN NUM OBJ (DRIVE1 <>) (DRIVE2 <>) PREP VERB TMP) 
+	#DECL ((DRIVE1 DRIVE2) <OR FALSE <PRIMTYPE VECTOR>>
+	       (SYN) <PRIMTYPE VECTOR> (LEN NUM VERB PREP) FIX
+	       (OBJ) <OR FALSE OBJECT>)
+	<COND (<0? <SET VERB <GET ,P-ITBL ,P-VERB>>>
+	       <TELL "FC: I can't find a verb in that sentence!" CR>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 7-28 (16141)
+			      <TELL
+"That sentence isn't one I recognize." CR>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 7-30 (16552)
+			      <TELL "FC: I don't understand that sentence." CR>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 7-49 (16800)
+	       <TELL "That question can't be answered." CR>
+	       <RFALSE>)
+	      (<NOT <==? ,WINNER ,PLAYER>>
+	       <CANT-ORPHAN>)
+	      (T
+	       <ORPHAN .DRIVE1 .DRIVE2>
+	       <TELL "What do you want to ">
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 7-50 (17211)
+	       <TELL "FC: I can't answer that question." CR>
+	       <RFALSE>)
+	      (,SETUP-MODE <RFALSE>)
+	      (T
+	       <ORPHAN .DRIVE1 .DRIVE2>
+	       <TELL "FC: What do you want to ">
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 7-72 (17520)
+	 <TELL "\"I don't understand! What are you referring to?\"" CR>
+	 <RFALSE>>
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1)) 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 8-3 (17907)
+	 <TELL
+"\"FC: That command was incomplete.  Why don't you try again?\"" CR>
+	 <RFALSE>>
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1)) 
+	#DECL ((D1 D2) <OR FALSE <PRIMTYPE VECTOR>>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 8-17 (18132)
+<ROUTINE CLAUSE-PRINT (BPTR EPTR "OPTIONAL" (THE? T)) 
+	<BUFFER-PRINT <GET ,P-ITBL .BPTR> <GET ,P-ITBL .EPTR> .THE?>>    
+ 
+<ROUTINE BUFFER-PRINT (BEG END CP "AUX" (NOSP <>) WRD (FIRST?? T) (PN <>))
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 8-23 (18576)
+<ROUTINE CLAUSE-PRINT (BPTR EPTR) 
+	<BUFFER-PRINT <GET ,P-ITBL .BPTR> <GET ,P-ITBL .EPTR> T>>    
+ 
+<ROUTINE BUFFER-PRINT (BEG END CP "AUX" (NOSP <>) WRD (FIRST?? T) (PN <>))
+	 #DECL ((BEG END) <PRIMTYPE VECTOR> (CP) <OR FALSE ATOM>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 8-26 (18460)
+		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?PERIOD>
+			      <SET NOSP T>)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 8-33 (18940)
+		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?PERIOD> <SET NOSP T>)
+			     ;(<==? .WRD ,W?MRS> <TELL "Mrs."> <SET PN T>)
+			     ;(<==? .WRD ,W?MS> <TELL "Ms."> <SET PN T>)
+			     ;(<==? .WRD ,W?MR> <TELL "Mr."> <SET PN T>)
+			     ;(<OR <EQUAL? .WRD YOUR-WORDS>
+				   <EQUAL? .WRD ETC>>
+			      <CAPITALIZE .BEG>
+			      <SET PN T>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 8-31 (18624)
+			      <COND (<OR ,P-OFLAG ,P-MERGED> <PRINTB .WRD>)
+				    (<AND <==? .WRD ,W?IT>
+					  <==? ,P-IT-LOC ,HERE>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 8-44 (19372)
+			      <COND (,P-OFLAG <PRINTB .WRD>)
+				    (<AND <==? .WRD ,W?IT>
+					  <==? ,P-IT-LOC ,WINNER-HERE>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 8-46 (19094)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 8-59 (19834)
+	#DECL ((PREP) FIX)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 8-49 (19177)
+	       <PRINTB .WRD>)>>    
+ 
+<ROUTINE CLAUSE-COPY (BPTR EPTR "OPTIONAL" (INSRT <>) "AUX" BEG END) 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 8-63 (19938)
+	       <COND ;(<==? .WRD ,W?AGAINST> <TELL "against">)
+		     (T <PRINTB .WRD>)>)>>    
+ 
+<ROUTINE CLAUSE-COPY (BPTR EPTR "OPTIONAL" (INSRT <>) "AUX" BEG END) 
+	#DECL ((BPTR EPTR) FIX (BEG END) <PRIMTYPE VECTOR>
+	       (INSRT) <OR FALSE TABLE>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 9-3 (19869)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 9-3 (20777)
+	#DECL ((WRD) TABLE (PTR) FIX)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 9-9 (20067)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 9-10 (21007)
+	#DECL ((PREP CNT SIZE) FIX)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 9-16 (20296)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 9-18 (21266)
+	#DECL ((SYN) <PRIMTYPE VECTOR>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 9-22 (20431)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 9-25 (21435)
+	#DECL ((GBIT LBIT) FIX (OBJ) OBJECT)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 9-30 (20684)
+		      <COND (<EQUAL? <SET OBJ <GET ,P-MERGE 1>> ,ME>
+			     <RFALSE>)>
+		      <TELL "(">
+		      <COND (<NOT <0? .PREP>>
+			     <PRINTB <SET PREP <PREP-FIND .PREP>>>
+			     <COND (<==? .PREP ,W?OUT>
+				    <TELL " of">)>
+			     <COND (<==? .OBJ ,HANDS>
+				    <TELL " your hands)" CR>)
+				   (T
+				    <TELL " the ">)>)>
+		      <COND (<NOT <==? .OBJ ,HANDS>>
+			     <TELL D .OBJ ")" CR>)>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 9-34 (21727)
+		      <SET OBJ <GET ,P-MERGE 1>>
+		      <COND (<AND <FSET? .OBJ ,VEHBIT>
+				  <EQUAL? .PREP ,PR?DOWN>>
+			     <SET PREP ,PR?ON>)>
+		      <TELL "(">
+		      <COND (<NOT <0? .PREP>>
+			     <PRINTB <PREP-FIND .PREP>>
+			     <TELL " the ">)>
+		      <TELL D .OBJ ")" CR>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 9-47 (21201)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 9-47 (22113)
+	#DECL ((PTR) <OR FIX <PRIMTYPE VECTOR>>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 10-3 (21925)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 10-3 (22880)
+	#DECL ((TBL NTBL) TABLE (LEN BUTLEN MATCHES) FIX (OBJ) OBJECT)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 10-21 (22363)
+<GLOBAL P-ADVERB <>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 10-22 (23383)
+<GLOBAL P-ACTORS <ITABLE NONE 20>>
+<GLOBAL P-NACTORS 0>
+<GLOBAL P-CACTOR 0>
+<GLOBAL P-OPLEN 0>
+<GLOBAL P-OPCONT 0>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 11-5 (22771)
+<GLOBAL P-AND <>>
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WRD NW) 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 11-5 (23897)
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WORD NW) 
+   #DECL ((TBL) TABLE (PTR EPTR) <PRIMTYPE VECTOR> (ANDFLG) <OR ATOM FALSE>
+	  (BUT) <OR FALSE TABLE> (WV) <OR FALSE FIX>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 11-11 (22928)
+   <SETG P-AND <>>
+   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <PUT .TBL ,P-MATCHLEN 0>
+   <SET WRD <GET .PTR 0>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 11-11 (24159)
+   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <PUT .TBL ,P-MATCHLEN 0>
+   <SET WORD <GET .PTR 0>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 11-19 (23161)
+		  <COND (<==? .WRD ,W?ALL>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 11-18 (24373)
+		  <COND (<EQUAL? .WORD ,W?ALL>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 11-23 (23290)
+			(<EQUAL? .WRD ,W?BUT ,W?EXCEPT>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 11-22 (24506)
+			(<EQUAL? .WORD ,W?BUT ,W?EXCEPT>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 11-27 (23427)
+			(<EQUAL? .WRD ,W?A ,W?ONE>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 11-26 (24644)
+			(<EQUAL? .WORD ,W?A ,W?ONE>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 11-36 (23709)
+			(<AND <EQUAL? .WRD ,W?AND ,W?COMMA>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <SETG P-AND T>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 T)
+			(<WT? .WRD ,PS?BUZZ-WORD>)
+			(<EQUAL? .WRD ,W?AND ,W?COMMA>)
+			(<==? .WRD ,W?OF>
+			 <COND (<0? ,P-GETFLAGS>
+				<SETG P-GETFLAGS ,P-INHIBIT>)>)
+			(<AND <WT? .WRD ,PS?ADJECTIVE>
+			      <NOT ,P-ADJ>>
+			 <SETG P-ADJ .WRD>)
+			(<WT? .WRD ,PS?OBJECT>
+			 <SETG P-NAM .WRD>
+			 <SETG P-ONEOBJ .WRD>)>)>
+	   <COND (<NOT <==? .PTR .EPTR>>
+		  <SET PTR <REST .PTR ,P-WORDLEN>>
+		  <SET WRD .NW>)>>>   
+ 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 11-35 (24927)
+			(<AND <EQUAL? .WORD ,W?AND ,W?COMMA>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 T)
+			(<AND <WT? .WORD ,PS?PREPOSITION>
+			      <==? .PTR ,P-CSPTR>>
+			 <SETG P-CSPTR <REST ,P-CSPTR ,P-WORDLEN>>)
+			(<WT? .WORD ,PS?BUZZ-WORD>)
+			(<EQUAL? .WORD ,W?AND ,W?COMMA>)
+			(<==? .WORD ,W?OF>
+			 <COND (<0? ,P-GETFLAGS>
+				<SETG P-GETFLAGS ,P-INHIBIT>)>)
+			(<AND <SET WV <WT? .WORD ,PS?ADJECTIVE ,P1?ADJECTIVE>>
+			      <ADJ-CHECK>>
+			 ;"Used to check for P-ADJ being <> as well"
+			 <COND (,P-ADJ
+				<SETG P-OADJ ,P-ADJ>
+				<SETG P-OADJECTIVE ,P-ADJECTIVE>)>
+			 <SETG P-ADJ .WORD>
+			 <SETG P-ADJECTIVE .WORD>)
+			(<WT? .WORD ,PS?OBJECT>
+			 <SETG P-NAM .WORD>
+			 <SETG P-ONEOBJ .WORD>)>)>
+	   <COND (<NOT <==? .PTR .EPTR>>
+		  <SET PTR <REST .PTR ,P-WORDLEN>>
+		  <SET WORD .NW>)>>>   
+ 
+<ROUTINE ADJ-CHECK ()
+	 <RTRUE>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 12-3 (24491)
+		     "OPTIONAL" (VRB T)
+		     "AUX" BITS LEN XBITS TLEN (GCHECK <>) (OLEN 0) OBJ)
+	 <SET XBITS ,P-SLOCBITS>
+	 <SET TLEN <GET .TBL ,P-MATCHLEN>>
+	 <COND (<BTST ,P-GETFLAGS ,P-INHIBIT> <RTRUE>)>
+	 <COND (<AND <NOT ,P-NAM> ,P-ADJ <WT? ,P-ADJ ,PS?OBJECT>>
+		<SETG P-NAM ,P-ADJ>
+		<SETG P-ADJ <>>)>
+	 <COND (<AND <NOT ,P-NAM>
+		     <NOT ,P-ADJ>
+		     <NOT <==? ,P-GETFLAGS ,P-ALL>>
+		     <0? ,P-GWIMBIT>>
+		<COND (.VRB
+		       <TELL
+"There seems to be a noun missing in that sentence!" CR>)>
+		<RFALSE>)>
+	 <COND (<OR <NOT <==? ,P-GETFLAGS ,P-ALL>> <0? ,P-SLOCBITS>>
+		<SETG P-SLOCBITS -1>)>
+	 <SETG P-TABLE .TBL>
+	 <PROG ()
+	       <COND (.GCHECK <GLOBAL-CHECK .TBL>)
+		     (T
+		      <COND (,LIT
+			     <FCLEAR ,PLAYER ,TRANSBIT>
+			     <DO-SL ,HERE ,SOG ,SIR>
+			     <FSET ,PLAYER ,TRANSBIT>)>
+		      <DO-SL ,PLAYER ,SH ,SC>)>
+	       <SET LEN <- <GET .TBL ,P-MATCHLEN> .TLEN>>
+	       <COND (<BTST ,P-GETFLAGS ,P-ALL>)
+		     (<AND <BTST ,P-GETFLAGS ,P-ONE>
+			   <NOT <0? .LEN>>>
+		      <COND (<NOT <==? .LEN 1>>
+			     <PUT .TBL 1 <GET .TBL <RANDOM .LEN>>>
+			     <TELL "(How about the ">
+			     <PRINTD <GET .TBL 1>>
+			     <TELL "?)" CR>)>
+		      <PUT .TBL ,P-MATCHLEN 1>)
+		     (<OR <G? .LEN 1>
+			  <AND <0? .LEN> <NOT <==? ,P-SLOCBITS -1>>>>
+		      <COND (<==? ,P-SLOCBITS -1>
+			     <SETG P-SLOCBITS .XBITS>
+			     <SET OLEN .LEN>
+			     <PUT .TBL
+				  ,P-MATCHLEN
+				  <- <GET .TBL ,P-MATCHLEN> .LEN>>
+			     <AGAIN>)
+			    (T
+			     <COND (<0? .LEN> <SET LEN .OLEN>)>
+			     <COND (<NOT <==? ,WINNER ,PLAYER>>
+				    <CANT-ORPHAN>
+				    <RFALSE>)
+				   (<AND .VRB ,P-NAM>
+				    <WHICH-PRINT .TLEN .LEN .TBL>
+				    <SETG P-ACLAUSE
+					  <COND (<==? .TBL ,P-PRSO> ,P-NC1)
+						(T ,P-NC2)>>
+				    <SETG P-AADJ ,P-ADJ>
+				    <SETG P-ANAM ,P-NAM>
+				    <ORPHAN <> <>>
+				    <SETG P-OFLAG T>)
+				   (.VRB
+				    <TELL
+"There seems to be a noun missing in that sentence!" CR>)>
+			     <SETG P-NAM <>>
+			     <SETG P-ADJ <>>
+			     <RFALSE>)>)
+		     (<AND <0? .LEN> .GCHECK>
+		      <COND (.VRB
+			     <SETG P-SLOCBITS .XBITS>
+			     <COND (,LIT
+				    ;"Changed 6/10/83 - MARC"
+				    <OBJ-FOUND ,NOT-HERE-OBJECT .TBL>
+				    <SETG P-XNAM ,P-NAM>
+				    <SETG P-XADJ ,P-ADJ>
+				    <SETG P-NAM <>>
+				    <SETG P-ADJ <>>
+				    <RTRUE>)
+				   (T <TELL "It's too dark to see!" CR>)>)>
+		      <SETG P-NAM <>>
+		      <SETG P-ADJ <>>
+		      <RFALSE>)
+		     (<0? .LEN> <SET GCHECK T> <AGAIN>)>
+	       <SETG P-SLOCBITS .XBITS>
+	       <SETG P-NAM <>>
+	       <SETG P-ADJ <>>
+	       <RTRUE>>>
+<ROUTINE MOBY-FIND (TBL "AUX" FOO LEN)
+	 <SETG P-SLOCBITS -1>
+	 <SETG P-NAM ,P-XNAM>
+	 <SETG P-ADJ ,P-XADJ>
+	 <PUT .TBL ,P-MATCHLEN 0>
+	 <SET FOO <FIRST? ,ROOMS>>
+	 <REPEAT ()
+		 <COND (<NOT .FOO> <RETURN>)
+		       (T
+			<SEARCH-LIST .FOO .TBL ,P-SRCALL>
+			<SET FOO <NEXT? .FOO>>)>>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 0>
+		<DO-SL ,LOCAL-GLOBALS 1 1>)>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 0>
+		<DO-SL ,ROOMS 1 1>)>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 1>
+		<SETG P-MOBY-FOUND <GET .TBL 1>>)>
+	 <SETG P-NAM <>>
+	 <SETG P-ADJ <>>
+	 .LEN>
+<GLOBAL P-MOBY-FOUND <>>   
+<GLOBAL P-XNAM <>>
+<GLOBAL P-XADJ <>>
+<ROUTINE WHICH-PRINT (TLEN LEN TBL "AUX" OBJ RLEN)
+	 <SET RLEN .LEN>
+	 <TELL "Which">
+         <COND (<OR ,P-OFLAG ,P-MERGED ,P-AND> <TELL " "> <PRINTB ,P-NAM>)
+	       (<==? .TBL ,P-PRSO>
+		<CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
+	       (T <CLAUSE-PRINT ,P-NC2 ,P-NC2L <>>)>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 12-3 (26039)
+		    "OPTIONAL" (VRB T)
+		    "AUX" LEN XBITS TLEN (GCHECK <>) (OLEN 0))
+	#DECL ((TBL) TABLE (XBITS TLEN LEN) FIX (GWIM) <OR FALSE FIX>
+	       (VRB GCHECK) <OR ATOM FALSE>)
+	<COND (,SETUP-MODE <SET GCHECK T>)>
+	<SET XBITS ,P-SLOCBITS>
+	<SET TLEN <GET .TBL ,P-MATCHLEN>>
+	<COND (<BTST ,P-GETFLAGS ,P-INHIBIT> <RTRUE>)>
+	<COND (<AND <NOT ,P-NAM> ,P-ADJ <WT? ,P-ADJ ,PS?OBJECT>>
+	       <SETG P-NAM ,P-ADJ>
+	       <COND (,P-OADJ
+		      <SETG P-ADJ ,P-OADJ>
+		      <SETG P-ADJECTIVE ,P-OADJECTIVE>)
+		     (T
+		      <SETG P-ADJECTIVE <>>
+		      <SETG P-ADJ <>>)>)>
+	<COND (<AND <NOT ,P-NAM>
+		    <NOT ,P-ADJ>
+		    <NOT <==? ,P-GETFLAGS ,P-ALL>>
+		    <0? ,P-GWIMBIT>>
+	       <COND (.VRB
+		      <TELL "FC: I think that sentence was missing a noun." CR>)>
+	       <RFALSE>)>
+	<COND (<OR <NOT <==? ,P-GETFLAGS ,P-ALL>> <0? ,P-SLOCBITS>>
+	       <SETG P-SLOCBITS -1>)
+	      (<AND <==? ,P-GETFLAGS ,P-ALL> ,P-NAM <VERB? TAKE>>
+	       <SETG P-SLOCBITS -1>)>
+	<SETG P-TABLE .TBL>
+	<PROG ()
+	      <COND (<AND <BTST ,P-GETFLAGS ,P-ALL>
+			  <EQUAL? ,P-NAM ,W?ROBOTS>>
+		     <SET GCHECK T>)>
+	      <COND (.GCHECK
+		     <GLOBAL-CHECK .TBL>)
+		    (T
+		     <COND (,LIT <DO-SL ,WINNER-HERE ,SOG ,SIR>)>
+		     <DO-SL ,WINNER ,SH ,SC>)>
+	      <SET LEN <- <GET .TBL ,P-MATCHLEN> .TLEN>>
+	      <COND (<BTST ,P-GETFLAGS ,P-ALL>)
+		    (<AND <BTST ,P-GETFLAGS ,P-ONE>
+			  <NOT <0? .LEN>>>
+		     <COND (<NOT <==? .LEN 1>>
+			    <PUT .TBL 1 <GET .TBL <RANDOM .LEN>>>
+			    <TELL "(How about the ">
+			    <PRINTD <GET .TBL 1>>
+			    <TELL "?)" CR>)>
+		     <PUT .TBL ,P-MATCHLEN 1>)
+		    (<OR <G? .LEN 1>
+			 <AND <0? .LEN> <NOT <==? ,P-SLOCBITS -1>>>>
+		     <COND (<==? ,P-SLOCBITS -1>
+			    <SETG P-SLOCBITS .XBITS>
+			    <SET OLEN .LEN>
+			    <PUT .TBL
+				 ,P-MATCHLEN
+				 <- <GET .TBL ,P-MATCHLEN> .LEN>>
+			    <AGAIN>)
+			   (T
+			    <COND (<0? .LEN> <SET LEN .OLEN>)>
+			    <COND (<AND .VRB ,P-NAM>
+				   <WHICH-PRINT .TLEN .LEN .TBL>
+				   <SETG P-ACLAUSE
+					 <COND (<==? .TBL ,P-PRSO> ,P-NC1)
+					       (T ,P-NC2)>>
+				   <SETG P-AADJ ,P-ADJ>
+				   <SETG P-ANAM ,P-NAM>
+				   <ORPHAN <> <>>
+				   <SETG P-OFLAG T>)
+				  (.VRB
+				   <TELL "FC: You must supply a noun!" CR>)>
+			    <SETG P-NAM <>>
+			    <SETG P-ADJ <>>
+			    <RFALSE>)>)
+		    (<AND <0? .LEN> .GCHECK>
+		     <COND (.VRB
+			    <COND (<AND <VERB? QUERY> <WHIZ?> ,PLUGGED-IN> T)
+				  (,LIT
+				   <ROBOT-TELL <GET ,DETECT-TBL ,ROFF> <>>
+				   ;<SETG TEMPROFF ,ROFF>
+				   ;<COND (<EQUAL? ,ROFF 0>
+					  <SETG ROFF 6>)>
+				   <COND (,P-OFLAG
+					  <COND (<AND ,P-ADJ ,P-NAM>
+						 <TELL " any such">)>
+					  <COND (,P-NAM
+						 <COND (<OR <EQUAL? ,P-NAM
+								    ,W?IRIS
+								    ,W?AUDA
+								    ,W?WALDO>
+							    <EQUAL? ,P-NAM
+								    ,W?WHIZ
+								    ,W?SENSA
+								    ,W?POET>>
+							<TELL " robot ">)>;MIKE
+						 <PRINTB ,P-NAM>)>)
+					 (T
+					  <COND (<OR <EQUAL? ,P-NAM
+							     ,W?IRIS
+							     ,W?AUDA
+							     ,W?WALDO>
+						     <EQUAL? ,P-NAM
+							     ,W?WHIZ
+							     ,W?SENSA
+							     ,W?POET>>
+						 <TELL " ">)
+						(T <TELL " any">)>
+					  <BUFFER-PRINT ,P-CSPTR
+							,P-CEPTR
+							<>>)>
+				   <TELL " here." CR>
+				   ;<SETG ROFF .TEMPROFF>)
+				  (T
+				   <TELL "It's too dark to see." CR>)>)>
+		     <SETG P-NAM <>>
+		     <SETG P-ADJ <>>
+		     <RFALSE>)
+		    (<0? .LEN> <SET GCHECK T> <AGAIN>)>
+	      <SETG P-ADJ <>>
+	      <SETG P-NAM <>>
+	      <SETG P-SLOCBITS .XBITS>
+	      <RTRUE>>>   
+<ROUTINE WHICH-PRINT (TLEN LEN TBL "AUX" OBJ RLEN TEMPROFF)
+	 <SET RLEN .LEN>
+	 <TELL "FC: Which ">
+         <PRINTB ,P-NAM>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 12-126 (28185)
+		 <TELL "the " D .OBJ>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 12-132 (29867)
+		 <TELL "the ">
+		 <COND (<IN? .OBJ ,ROOMS>
+			<TELL SD .OBJ>)
+		       (T
+			;<SET TEMPROFF ,ROFF> 
+			;<COND (<EQUAL? ,ROFF 0>
+			       <SETG ROFF 6>)>
+			<TELL D .OBJ>
+			;<SETG ROFF .TEMPROFF>)>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 13-3 (28512)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<SET OBITS ,P-SLOCBITS>
+	<COND (<SET RMG <GETPT ,HERE ,P?GLOBAL>>
+	       <SET RMGL <- </ <PTSIZE .RMG> 2> 1>>
+	       <REPEAT ()
+		       <COND (<THIS-IT? <SET OBJ <GET .RMG .CNT>> .TBL>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<SET RMG <GETPT ,HERE ,P?PSEUDO>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 13-3 (30379)
+	#DECL ((TBL) TABLE (RMG) <OR FALSE TABLE> (RMGL CNT) FIX (OBJ) OBJECT)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<SET OBITS ,P-SLOCBITS>
+	<COND (<SET RMG <GETPT ,WINNER-HERE ,P?GLOBAL>>
+	       <SET RMGL <- <PTSIZE .RMG> 1>>
+	       <REPEAT ()
+		       <COND (<THIS-IT? <SET OBJ <GETB .RMG .CNT>> .TBL>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<SET RMG <GETPT ,WINNER-HERE ,P?PSEUDO>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 13-31 (29526)
+	       <COND (<AND <0? <GET .TBL ,P-MATCHLEN>>
+			   <EQUAL? ,PRSA ,V?LOOK-INSIDE ,V?SEARCH ,V?EXAMINE>>
+		      <DO-SL ,ROOMS 1 1>)>)>>
+ 
+<ROUTINE DO-SL (OBJ BIT1 BIT2 "AUX" BTS) 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 13-32 (31475)
+	       <COND (<0? <GET .TBL ,P-MATCHLEN>>
+		      <COND (<AND <WHIZ?> <VERB? QUERY> ,PLUGGED-IN>
+			     <TELL
+"CLC: Hmm. That's a tough one. Hold on a minute while I try to locate a reference ..." CR>
+			     <CRLF>
+			     ;<SET FOO <CLOCKER>>
+			     ;<SETG MOVES <+ ,MOVES 1>>
+			     <MOBY-FIND .TBL>
+			     ;<COND (.FOO
+				    <CRLF>)>
+			     <TELL "CLC: ">
+			     <COND (<AND <G? <SET FOO <GET .TBL ,P-MATCHLEN>>
+					     1>
+					 <OR <EQUAL? ,P-NAM ,W?WALKWA
+						     ,W?MECHAN ,W?BLT>
+					     <EQUAL? ,P-NAM ,W?GLIDER>
+					     <EQUAL? ,P-NAM ,W?GROOVE
+						     ,W?TRACK>>>
+				    <PUT .TBL ,P-MATCHLEN 1>
+				    <SET FOO 1>)>
+			     <COND (<0? .FOO>
+				    <TELL <PICK-ONE ,NOT-FOUND> CR>)
+				   (<G? .FOO 1>
+				    <PUT .TBL ,P-MATCHLEN 0>
+				    <TELL
+"I'm afraid you weren't specific enough. One object at a time, and adjectives can be helpful." CR>)
+				   (T
+				    <TELL <PICK-ONE ,CROWDED> CR>)>)
+			    (<VERB? WALK-TO MOVE-ROBOT-TO-LOC EXAMINE FOLLOW
+				    >
+			     <DO-SL ,ROOMS 1 1>)>)>)>>
+ 
+<GLOBAL NOT-FOUND <LTABLE
+"Nope. Can't find any reference to that one in this mess. Sorry."
+"This is very embarrassing, but I can't seem to find that one."
+"Sorry, but I don't have any reference to that one.">>
+<GLOBAL CROWDED <LTABLE
+"Ah! Here's the tagged object. Sorry about that delay, but it's crowded in here."
+"Found it! Sorry, but it sure is a mess in here."
+"Here it is! I was beginning to think I was going senile.">>
+<ROUTINE MOBY-FIND (TBL "AUX" FOO)
+	 <SET FOO <FIRST? ,ROOMS>>
+	 <REPEAT ()
+		 <COND (<NOT .FOO> <RETURN>)
+		       (T
+			<SEARCH-LIST .FOO .TBL ,P-SRCALL>
+			<SET FOO <NEXT? .FOO>>)>>
+	 <COND (<0? <GET .TBL ,P-MATCHLEN>>
+		<DO-SL ,LOCAL-GLOBALS 1 1>)>>
+<ROUTINE DO-SL (OBJ BIT1 BIT2) 
+	#DECL ((OBJ) OBJECT (BIT1 BIT2) FIX)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 13-52 (30158)
+	<COND (<SET OBJ <FIRST? .OBJ>>
+	       <REPEAT ()
+		       <COND (<AND <NOT <==? .LVL ,P-SRCBOT>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 13-103 (33768)
+	#DECL ((OBJ NOBJ) <OR FALSE OBJECT> (TBL) TABLE (LVL) FIX (FLS) ANY)
+	<COND (<SET OBJ <FIRST? .OBJ>>
+	       <REPEAT ()
+		       <COND (<AND <==? ,P-GETFLAGS ,P-ALL>
+				   <==? .OBJ ,PANEL>
+				   <VERB? DROP>>
+			      T)
+			     (<AND <NOT <==? .LVL ,P-SRCBOT>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 13-58 (30356)
+		       <COND (<AND <OR <NOT <==? .LVL ,P-SRCTOP>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 13-114 (34138)
+		       <COND (<AND <OR <VERB? QUERY>
+				       <NOT <FSET? .OBJ ,INVISIBLE>>>
+				   <OR <NOT <==? .LVL ,P-SRCTOP>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 13-62 (30516)
+				   <OR <FSET? .OBJ ,OPENBIT>
+				       <FSET? .OBJ ,TRANSBIT>>>
+			      <SET FLS
+				   <SEARCH-LIST .OBJ
+						.TBL
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 13-120 (34367)
+				   <NOT <EQUAL? .OBJ ,WINNER>>
+				   <OR <FSET? .OBJ ,OPENBIT>
+				       <FSET? .OBJ ,TRANSBIT>>>
+			      <COND (<AND <==? .LVL ,P-SRCTOP>
+					  <FSET? .OBJ ,SEARCHBIT>
+					  <==? ,P-GETFLAGS ,P-ALL>>
+				     T)
+				    (T
+				     <SET FLS
+				        <SEARCH-LIST .OBJ
+						     .TBL
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 13-71 (30771)
+						      (T ,P-SRCTOP)>>>)>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 13-135 (34802)
+						      (T ,P-SRCTOP)>>>)>)>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 13-75 (30907)
+	<SET PTR <GET .TBL ,P-MATCHLEN>>
+	<PUT .TBL <+ .PTR 1> .OBJ>
+	<PUT .TBL ,P-MATCHLEN <+ .PTR 1>>> 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 13-139 (34940)
+	<COND (<AND <SET PTR <GETP .OBJ ,P?OBJDESCS>>
+		    <==? <GET .PTR ,ROFF> 0>
+		    <NOT <IN? .OBJ ,WINNER>>>
+	       <RTRUE>)
+	      (<AND <==? ,P-GETFLAGS ,P-ALL>
+		    <NOT <EQUAL? ,P-NAM ,W?ROBOTS>>
+		    <GETP .OBJ ,P?ROBOT>>
+	       <RTRUE>)
+	      (<AND <==? ,WINNER ,IRIS>
+		    <NOT ,IRIS-FIXED>
+		    <NOT <GETP .OBJ ,P?ROBOT>>
+		    <NOT <EQUAL? .OBJ ,LOCATION>>
+		    <NOT <IN? .OBJ ,ROOMS>>>
+	       <RTRUE>)
+	      (T
+	       <SET PTR <GET .TBL ,P-MATCHLEN>>
+	       <PUT .TBL <+ .PTR 1> .OBJ>
+	       <PUT .TBL ,P-MATCHLEN <+ .PTR 1>>)>> 
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 14-2 (31153)
+<ROUTINE ITAKE-CHECK (TBL IBITS "AUX" PTR OBJ TAKEN) 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 14-2 (35656)
+<ROUTINE ITAKE-CHECK (TBL IBITS "AUX" PTR OBJ TAKEN TEMPROFF) 
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 14-13 (31577)
+			       <COND (<AND <NOT <HELD? .OBJ>>
+					   <NOT <==? .OBJ ,HANDS>>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 14-13 (36089)
+			       <COND (<NOT <HELD? .OBJ>>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 14-18 (31750)
+					    (<NOT <==? ,WINNER ,ADVENTURER>>
+					     <SET TAKEN <>>)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 14-17 (36223)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 14-24 (31942)
+				      <COND (<AND .TAKEN
+						  <BTST .IBITS ,SHAVE>
+						  <EQUAL? ,WINNER ,ADVENTURER>>
+					     <COND (<EQUAL? .OBJ
+							    ,NOT-HERE-OBJECT>
+						    <TELL
+"You don't have that!" CR>
+						    <RFALSE>)>
+					     <TELL "You don't have the ">
+					     <PRINTD .OBJ>
+					     <TELL "." CR>
+					     <RFALSE>)
+					    (<AND <NOT .TAKEN>
+						  <==? ,WINNER ,ADVENTURER>>
+					     <TELL "(Taken)" CR>)>)>)>>)
+	       (T)>>  
+ 
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP) 
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 14-21 (36345)
+				      <COND (<AND .TAKEN <BTST .IBITS ,SHAVE>>
+					     <ROBOT-TELL "I don't have " <>>
+					     <COND (<NOT
+						     <GETP .OBJ ,P?ROBOT>>
+						    <TELL "the ">)>
+					     ;<SET TEMPROFF ,ROFF>
+					     ;<COND (<EQUAL? ,ROFF 0>
+						    <SETG ROFF 6>)>
+					     <TELL D .OBJ>
+					     ;<SETG ROFF .TEMPROFF>
+					     <TELL "." CR>
+					     <RFALSE>)
+					    (<NOT .TAKEN>
+					     <ROBOT-TELL 
+"I have taken the liberty of taking the " <>>
+					     <TELL D .OBJ " first." CR>)>)>)>>)
+	       (T)>>  
+ 
+<ROUTINE HELD? (CAN)
+	 <COND (<NOT <FSET? .CAN ,TAKEBIT>>
+		<RFALSE>)>
+	 <REPEAT ()
+		 <SET CAN <LOC .CAN>>
+		 <COND (<NOT .CAN> <RFALSE>)
+		       (<==? .CAN ,WINNER> <RTRUE>)>>>
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP) 
+	#DECL ((LOSS) <OR FALSE FIX>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 14-49 (32712)
+	       <TELL "You can't use multiple ">
+	       <COND (<==? .LOSS 2> <TELL "in">)>
+	       <TELL "direct objects with \"">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<0? .TMP> <TELL "tell">)
+		     (<OR ,P-OFLAG ,P-MERGED>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 14-56 (37415)
+	       <TELL "FC: I can't use multiple ">
+	       <COND (<==? .LOSS 2> <TELL "in">)>
+	       <TELL "direct objects with '">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<EQUAL? .TMP 0> <TELL "tell">)
+		     (,P-OFLAG
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 14-58 (33050)
+	       <TELL "\"." CR>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 14-65 (37745)
+	       <TELL "'." CR>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 15-3 (33442)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 15-3 (38136)
+	#DECL ((ITM) ANY (TBL) TABLE (SIZE CNT) FIX)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 15-7 (33549)
+<GLOBAL ALWAYS-LIT <>>
+<ROUTINE LIT? (RM "OPTIONAL" (RMBIT T) "AUX" OHERE (LIT <>)) 
+	<COND (<AND ,ALWAYS-LIT <EQUAL? ,WINNER ,PLAYER>>
+	       <RTRUE>)>
+	<SETG P-GWIMBIT ,ONBIT>
+	<SET OHERE ,HERE>
+	<SETG HERE .RM>
+	<COND (<AND .RMBIT
+		    <FSET? .RM ,ONBIT>>
+	       <SET LIT T>)
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 15-8 (38290)
+<SETG ALWAYS-LIT <>>
+ 
+<ROUTINE LIT? (RM "AUX" OHERE (LIT <>)) 
+	#DECL ((RM OHERE) OBJECT (LIT) <OR ATOM FALSE>)
+	<SETG P-GWIMBIT ,ONBIT>
+	<SET OHERE ,WINNER-HERE>
+	<SETG WINNER-HERE .RM>
+	<COND (<OR <FSET? .RM ,ONBIT> ,ALWAYS-LIT> <SET LIT T>)
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 15-22 (33955)
+	       <COND (<==? .OHERE .RM>
+		      <DO-SL ,WINNER 1 1>
+		      <COND (<AND <NOT <EQUAL? ,WINNER ,PLAYER>>
+				  <IN? ,PLAYER .RM>>
+			     <DO-SL ,PLAYER 1 1>)>)>
+	       <DO-SL .RM 1 1>
+	       <COND (<G? <GET ,P-TABLE ,P-MATCHLEN> 0> <SET LIT T>)>)>
+	<SETG HERE .OHERE>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 15-20 (38655)
+	       <COND (<==? .OHERE .RM> <DO-SL ,WINNER 1 1>)>
+	       <DO-SL .RM 1 1>
+	       <COND (<G? <GET ,P-TABLE ,P-MATCHLEN> 0> <SET LIT T>)>)>
+	<SETG WINNER-HERE .OHERE>
+***************
+
+**** FILE SS:<SUSPENDED>GPARSER.ZIL.1, 15-33 (34274)
+<ROUTINE PRSO-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC1>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC1L> <>>)>>
+<ROUTINE PRSI-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC2>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC2L> <>>)>>
+;"former CRUFTY routine, re-written by SWG"
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS) 
+ <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
+       (<AND ,P-NAM
+	     <NOT <ZMEMQ ,P-NAM
+			 <SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+			 <- </ <PTSIZE .SYNS> 2> 1>>>>
+	<RFALSE>)
+       (<AND ,P-ADJ
+	     <OR <NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>>
+		 <NOT <ZMEMQ ,P-ADJ .SYNS <- </ <PTSIZE .SYNS> 2> 1>>>>>
+	<RFALSE>)
+       (<AND <NOT <0? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+	<RFALSE>)>
+ <RTRUE>>
+**** FILE SS:<SUSPENDED.EXTENDED>PARSER.ZIL.106, 15-27 (38863)
+***************
diff --git a/parser.zil b/parser.zil
new file mode 100644
index 0000000..85b23b1
--- /dev/null
+++ b/parser.zil
@@ -0,0 +1,1325 @@
+"PARSER for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+"Parser global variable convention:  All parser globals will 
+  begin with 'P-'.  Local variables are not restricted in any
+  way.
+" 
+ 
+<SETG SIBREAKS ".,\"">
+ 
+<GLOBAL ALWAYS-LIT <>>   
+ 
+<GLOBAL GWIM-DISABLE <>> 
+ 
+<GLOBAL PRSA 0>
+ 
+<GLOBAL PRSI 0>
+
+<GLOBAL PRSO 0>
+
+<GLOBAL P-ADVERB <>>
+
+<GLOBAL P-ADJECTIVE <>>
+
+<GLOBAL P-OADJECTIVE <>>
+
+<GLOBAL P-OADJ <>>
+
+<GLOBAL P-SPACE 1>
+
+<GLOBAL P-TWOBOTS <>>
+
+<GLOBAL P-TABLE 0>  
+ 
+<GLOBAL P-ONEOBJ 0> 
+ 
+<GLOBAL P-SYNTAX 0> 
+ 
+<GLOBAL P-CCSRC 0>  
+ 
+<GLOBAL P-LEN 0>    
+ 
+<GLOBAL P-DIR 0>    
+ 
+<GLOBAL HERE 0>
+ 
+<GLOBAL WINNER 0>   
+ 
+<GLOBAL P-LEXV <ITABLE BYTE 120>>
+;"INBUF - Input buffer for READ"   
+ 
+<GLOBAL P-INBUF <ITABLE BYTE 100>>
+;"Parse-cont variable"  
+ 
+<GLOBAL P-CONT <>>  
+ 
+<GLOBAL P-IT-OBJECT <>>
+<GLOBAL P-IT-LOC <>>
+
+;"Orphan flag" 
+ 
+<GLOBAL P-OFLAG <>> 
+ 
+<GLOBAL P-MERGED <>>
+
+<GLOBAL P-ACLAUSE <>>    
+ 
+<GLOBAL P-ANAM <>>  
+ 
+<GLOBAL P-AADJ <>>
+;"Parser variables and temporaries"
+ 
+<CONSTANT P-PHRLEN 3>    
+ 
+<CONSTANT P-ORPHLEN 7>   
+ 
+<CONSTANT P-RTLEN 3>
+;"Byte offset to # of entries in LEXV"
+
+<CONSTANT P-LEXWORDS 1>
+;"Word offset to start of LEXV entries" 
+ 
+<CONSTANT P-LEXSTART 1>
+;"Number of words per LEXV entry"  
+ 
+<CONSTANT P-LEXELEN 2>   
+ 
+<CONSTANT P-WORDLEN 4>
+;"Offset to parts of speech byte"   
+ 
+<CONSTANT P-PSOFF 4>
+;"Offset to first part of speech"
+ 
+<CONSTANT P-P1OFF 5>
+;"First part of speech bit mask in PSOFF byte"  
+ 
+<CONSTANT P-P1BITS 3>    
+ 
+<CONSTANT P-ITBLLEN 9>   
+ 
+<GLOBAL P-ITBL <TABLE 0 0 0 0 0 0 0 0 0 0>>  
+ 
+<GLOBAL P-OTBL <TABLE 0 0 0 0 0 0 0 0 0 0>>  
+ 
+<GLOBAL P-VTBL <TABLE 0 0 0 0>>
+
+<GLOBAL P-NCN 0>    
+ 
+<CONSTANT P-VERB 0> 
+ 
+<CONSTANT P-VERBN 1>
+ 
+<CONSTANT P-PREP1 2>
+ 
+<CONSTANT P-PREP1N 3>    
+ 
+<CONSTANT P-PREP2 4>
+ 
+<CONSTANT P-PREP2N 5>    
+ 
+<CONSTANT P-NC1 6>  
+ 
+<CONSTANT P-NC1L 7> 
+ 
+<CONSTANT P-NC2 8>  
+ 
+<CONSTANT P-NC2L 9> 
+ 
+<GLOBAL QUOTE-FLAG <>>
+
+<GLOBAL SETUP-MODE <>>
+
+" Grovel down the input finding the verb, prepositions, and noun clauses.
+   If the input is <direction> or <walk> <direction>, fall out immediately
+   setting PRSA to ,V?WALK and PRSO to <direction>.  Otherwise, perform
+   all required orphaning, syntax checking, and noun clause lookup."   
+
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WORD (VAL 0) (VERB <>)
+		       LEN (DIR <>) (NW 0) (LW 0) NUM SCNT (CNT -1)) 
+	<REPEAT ()
+		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-ITBL .CNT 0>)>>
+	<SETG P-ADVERB <>>
+	<SETG P-OADJ <>>
+	<SETG P-ADJECTIVE <>>
+	<SETG P-MERGED <>>
+	<PUT ,P-PRSO ,P-MATCHLEN 0>
+	<PUT ,P-PRSI ,P-MATCHLEN 0>
+	<PUT ,P-BUTS ,P-MATCHLEN 0>
+	<COND (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <SETG P-CONT <>>
+	       <COND (<NOT <VERB? $TELL>> <CRLF>)>)
+	      (<AND <G? ,P-NACTORS 1> <ACTOR-CHANGE>>
+	       <PUTB ,P-LEXV ,P-LEXWORDS ,P-OPLEN>
+	       <SET PTR ,P-OPCONT>)
+	      (T
+	       <SETG OLD-WINNER ,WINNER>
+	       <SETG QUOTE-FLAG <>>
+	       <COND (<NOT ,SETUP-MODE> <CRLF>)
+		     (T
+		      <SET VERB ,ACT?WALK>
+		      <PUT ,P-ITBL ,P-VERB ,ACT?WALK>
+		      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
+		      <PUT ,P-VTBL 0 0>
+		      <PUT ,P-ITBL ,P-PREP1 ,PR?TO>
+		      <PUT ,P-ITBL ,P-PREP1N ,W?TO>)>
+	       <COND (<==? ,WINNER ,TWOBOTS>
+		      <CHANGE-WINNER <GET ,P-ACTORS 1>>
+		      <CRLF>)>
+	       <COND (<NOT <==? <BAND <GETB 0 1> 16> 0>>
+		      <TELL "(FC linked to " D ,WINNER ")">)>
+	       <TELL ">">
+	       <STATUS-LINE>
+	       <READ ,P-INBUF ,P-LEXV>)>
+	<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	<COND (<0? ,P-LEN>
+	       <TELL "FC: Communication meaningless." CR>
+	       <RFALSE>)>
+	<SET LEN ,P-LEN>
+	<SETG P-DIR <>>
+	<SETG P-NCN 0>
+	<SETG P-GETFLAGS 0>
+	<SETG P-TWOBOTS <>>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <SETG QUOTE-FLAG <>>
+		       <RETURN>)
+		      (<OR <SET WORD <GET ,P-LEXV .PTR>>
+			   <SET WORD <NUMBER? .PTR>>>
+		       <COND (<EQUAL? .WORD ,W?BOTH ,W?TOGETHER>
+			      <SETG P-TWOBOTS T>)
+			     (<AND <==? .WORD ,W?TO>
+				   <EQUAL? .VERB ,ACT?$TELL>>
+			      <SET WORD ,W?QUOTE>)
+			     (<AND <==? .WORD ,W?THEN>
+				   <NOT .VERB>>
+			      <PUT ,P-ITBL ,P-VERB ,ACT?$TELL>
+			      <PUT ,P-ITBL ,P-VERBN 0>
+			      <SET WORD ,W?QUOTE>)>
+		       <COND ;(<AND <EQUAL? .WORD ,W?.>
+				   <EQUAL? .LW ,W?MRS ,W?MR ,W?MS>>
+			      <SET LW 0>)
+			     (<OR <EQUAL? .WORD ,W?THEN ,W?.>
+				  <EQUAL? .WORD ,W?QUOTE>> 
+			      <COND (<EQUAL? .WORD ,W?QUOTE>
+				     <COND (,QUOTE-FLAG
+					    <SETG QUOTE-FLAG <>>)
+					   (T <SETG QUOTE-FLAG T>)>)>
+			      <OR <0? ,P-LEN>
+				  <SETG P-CONT <+ .PTR ,P-LEXELEN>>>
+			      <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
+			      <RETURN>)
+			     (<AND <SET VAL
+					<WT? .WORD
+					     ,PS?DIRECTION
+					     ,P1?DIRECTION>>
+				   <OR <==? .LEN 1>
+				       <AND <==? .LEN 2> <==? .VERB ,ACT?WALK>>
+				       <AND <EQUAL? <SET NW
+						     <GET ,P-LEXV
+							  <+ .PTR ,P-LEXELEN>>>
+					            ,W?THEN
+					            ,W?QUOTE>
+					    <==? .VERB ,ACT?WALK>
+					    <G? .LEN 2>>
+				       <AND <EQUAL? .NW ,W?.>
+					    <EQUAL? .VERB ,ACT?WALK <>>
+					    <G? .LEN 1>>
+				       <AND ,QUOTE-FLAG
+					    <==? .LEN 2>
+					    <EQUAL? .NW ,W?QUOTE>>
+				       <AND <G? .LEN 2>
+					    <==? .VERB ,ACT?WALK>
+					    <EQUAL? .NW ,W?COMMA ,W?AND>>>>
+			      <SET DIR .VAL>
+			      <COND (<EQUAL? .NW ,W?COMMA ,W?AND>
+				     <PUT ,P-LEXV
+					  <+ .PTR ,P-LEXELEN>
+					  ,W?THEN>)>
+			      <COND (<NOT <G? .LEN 2>>
+				     <SETG QUOTE-FLAG <>>
+				     <RETURN>)>)
+			     (<AND <SET VAL <WT? .WORD ,PS?VERB ,P1?VERB>>
+				   <NOT .VERB>>
+			      <SET VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
+			      <PUT ,P-VTBL 0 .WORD>
+			      <PUTB ,P-VTBL 2 <GETB ,P-LEXV
+						    <SET NUM
+							 <+ <* .PTR 2> 2>>>>
+			      <PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .NUM 1>>>)
+			     (<OR <SET VAL <WT? .WORD ,PS?PREPOSITION 0>>
+				  <AND <OR <EQUAL? .WORD ,W?ALL ,W?ONE ,W?A>
+					   <EQUAL? .WORD ,W?BOTH>
+					   <WT? .WORD ,PS?ADJECTIVE>
+					   <WT? .WORD ,PS?OBJECT>>
+				       <SET VAL 0>>>
+			      <COND (<AND <G? ,P-LEN 0>
+					  <==? <GET ,P-LEXV
+						    <+ .PTR ,P-LEXELEN>>
+					       ,W?OF>
+					  ;<NOT <EQUAL? .VERB ,ACT?ACCUSE>>
+					  <0? .VAL>
+					  <NOT
+					   <EQUAL? .WORD ,W?ALL ,W?ONE ,W?A>>
+					  <NOT <EQUAL? .WORD ,W?BOTH>>>)
+				    (<AND <NOT <0? .VAL>>
+				          <OR <0? ,P-LEN>
+					      <EQUAL? <GET ,P-LEXV <+ .PTR 2>>
+						      ,W?THEN ,W?.>>>
+				     <COND (<L? ,P-NCN 2>
+					    <PUT ,P-ITBL ,P-PREP1 .VAL>
+					    <PUT ,P-ITBL ,P-PREP1N .WORD>)>)
+				    (<==? ,P-NCN 2>
+				     <TELL
+"FC: I found too many nouns in that sentence." CR>
+				     <RFALSE>)
+				    (T
+				     <SETG P-NCN <+ ,P-NCN 1>>
+				     <OR <SET PTR <CLAUSE .PTR .VAL .WORD>>
+					 <RFALSE>>
+				     <COND (<L? .PTR 0>
+					    <SETG QUOTE-FLAG <>>
+					    <RETURN>)>)>)
+			     ;(<OR <EQUAL? .WORD ,W?CAREFULLY ,W?QUIETLY>
+				  <EQUAL? .WORD ,W?SLOWLY ,W?QUICKLY
+					        ,W?BRIEFLY>>
+			      <SETG P-ADVERB .WORD>)
+			     (<WT? .WORD ,PS?BUZZ-WORD>)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T
+		       <UNKNOWN-WORD .PTR>
+		       <RFALSE>)>
+		<SET LW .WORD>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>
+	<COND (.DIR 
+	       <SETG PRSA ,V?WALK>
+	       <SETG PRSO .DIR>
+	       <SETG P-WALK-DIR .DIR>
+	       <RETURN T>)>
+	<SETG P-WALK-DIR <>>
+	<COND (,P-OFLAG <ORPHAN-MERGE>)>
+	;<COND (<==? <GET ,P-ITBL ,P-VERB> 0> <PUT ,P-ITBL ,P-VERB ,ACT?CALL>)>
+	<COND (<AND <SYNTAX-CHECK> <SNARF-OBJECTS> <TAKE-CHECK> <MANY-CHECK>>
+	       T)>>
+
+<ROUTINE ACTOR-CHANGE ()
+	 <REPEAT ()
+		 <COND (<L? ,P-NACTORS 2> <RFALSE>)>
+		 <SETG P-CACTOR <+ ,P-CACTOR 1>>
+		 <CRLF>
+		 <SETG P-NACTORS <- ,P-NACTORS 1>>
+		 <COND (<CHANGE-WINNER <GET ,P-ACTORS ,P-CACTOR>>
+			<RTRUE>)>>>
+
+<GLOBAL P-WALK-DIR <>>
+
+;"Check whether word pointed at by PTR is the correct part of speech.
+   The second argument is the part of speech (,PS?<part of speech>).  The
+   3rd argument (,P1?<part of speech>), if given, causes the value
+   for that part of speech to be returned." 
+
+<ROUTINE WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFST ,P-P1OFF) TYP) 
+	<COND (<BTST <SET TYP <GETB .PTR ,P-PSOFF>> .BIT>
+	       <COND (<G? .B1 4> <RTRUE>)
+		     (T
+		      <SET TYP <BAND .TYP ,P-P1BITS>>
+		      <COND (<NOT <==? .TYP .B1>> <SET OFFST <+ .OFFST 1>>)>
+		      <GETB .PTR .OFFST>)>)>>
+;" Scan through a noun clause, leave a pointer to its starting location"
+ 
+<ROUTINE CLAUSE (PTR VAL WORD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0)) 
+	#DECL ((PTR VAL OFF NUM) FIX (WORD NW) <OR FALSE FIX TABLE>
+	       (ANDFLG FIRST??) <OR ATOM FALSE>)
+	<SET OFF <* <- ,P-NCN 1> 2>>
+	<COND (<NOT <==? .VAL 0>>
+	       <PUT ,P-ITBL <SET NUM <+ ,P-PREP1 .OFF>> .VAL>
+	       <PUT ,P-ITBL <+ .NUM 1> .WORD>
+	       <SET PTR <+ .PTR ,P-LEXELEN>>)
+	      (T <SETG P-LEN <+ ,P-LEN 1>>)>
+	<COND (<0? ,P-LEN> <SETG P-NCN <- ,P-NCN 1>> <RETURN -1>)>
+	<PUT ,P-ITBL <SET NUM <+ ,P-NC1 .OFF>> <REST ,P-LEXV <* .PTR 2>>>
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?THE ,W?A ,W?AN>
+	       <PUT ,P-ITBL .NUM <REST <GET ,P-ITBL .NUM> 4>>)>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <PUT ,P-ITBL <+ .NUM 1> <REST ,P-LEXV <* .PTR 2>>>
+		       <RETURN -1>)>
+		<COND (<OR <SET WORD <GET ,P-LEXV .PTR>>
+			   <SET WORD <NUMBER? .PTR>>>
+		       <COND (<0? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       ;<COND (<AND <==? .WORD ,W?OF>
+				   <==? <GET ,P-ITBL ,P-VERB> ,ACT?ACCUSE>>
+			      <PUT ,P-LEXV .PTR ,W?WITH>
+			      <SET WORD ,W?WITH>)>
+		       <COND ;(<AND <EQUAL? .WORD ,W?.>
+				   <EQUAL? .LW ,W?MRS ,W?MR ,W?MS>>
+			      <SET LW 0>)
+			     (<EQUAL? .WORD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WORD ,W?ALL ,W?BOTH ,W?ONE>
+			      <COND (<==? .NW ,W?OF>
+				     <SETG P-LEN <- ,P-LEN 1>>
+				     <SET PTR <+ .PTR ,P-LEXELEN>>)>)
+			     (<OR <EQUAL? .WORD ,W?THEN ,W?.>
+				  <AND <WT? .WORD ,PS?PREPOSITION>
+				       <NOT .FIRST??>>>
+			      <SETG P-LEN <+ ,P-LEN 1>>
+			      <PUT ,P-ITBL
+				   <+ .NUM 1>
+				   <REST ,P-LEXV <* .PTR 2>>>
+			      <RETURN <- .PTR ,P-LEXELEN>>)
+			     (<AND .ANDFLG
+				   <OR <WT? .WORD ,PS?DIRECTION>
+				       <WT? .WORD ,PS?VERB>>>
+			      <SET PTR <- .PTR 4>>
+			      <PUT ,P-LEXV <+ .PTR 2> ,W?THEN>
+			      <SETG P-LEN <+ ,P-LEN 2>>)
+			     (<WT? .WORD ,PS?OBJECT>
+			      <COND (<AND <WT? .WORD
+					       ,PS?ADJECTIVE
+					       ,P1?ADJECTIVE>
+					  <NOT <==? .NW 0>>
+					  <WT? .NW ,PS?OBJECT>>)
+				    (<AND <NOT .ANDFLG>
+					  <NOT <EQUAL? .NW ,W?BUT ,W?EXCEPT>>
+					  <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+				     <PUT ,P-ITBL
+					  <+ .NUM 1>
+					  <REST ,P-LEXV <* <+ .PTR 2> 2>>>
+				     <RETURN .PTR>)
+				    (T <SET ANDFLG <>>)>)
+			     (<OR <WT? .WORD ,PS?ADJECTIVE>
+				  <WT? .WORD ,PS?BUZZ-WORD>>)
+			     (<WT? .WORD ,PS?PREPOSITION> T)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T <UNKNOWN-WORD .PTR> <RFALSE>)>
+		<SET LW .WORD>
+		<SET FIRST?? <>>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>> 
+
+<ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0) (TIM <>))
+	 <SET CNT <GETB <REST ,P-LEXV <* .PTR 2>> 2>>
+	 <SET BPTR <GETB <REST ,P-LEXV <* .PTR 2>> 3>>
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0> <RETURN>)
+		       (T
+			<SET CHR <GETB ,P-INBUF .BPTR>>
+			<COND (<==? .CHR 58>
+			       <SET TIM .SUM>
+			       <SET SUM 0>)
+			      (<G? .SUM 10000> <RFALSE>)
+			      (<AND <L? .CHR 58> <G? .CHR 47>>
+			       <SET SUM <+ <* .SUM 10> <- .CHR 48>>>)
+			      (T <RFALSE>)>
+			<SET BPTR <+ .BPTR 1>>)>>
+	 <PUT ,P-LEXV .PTR ,W?INTNUM>
+	 <COND (<G? .SUM 1000> <RFALSE>)
+	       (.TIM
+		<COND (<L? .TIM 8> <SET TIM <+ .TIM 12>>)
+		      (<G? .TIM 23> <RFALSE>)>
+		<SET SUM <+ .SUM <* .TIM 60>>>)>
+	 <SETG P-NUMBER .SUM>
+	 ,W?INTNUM>
+
+<GLOBAL P-NUMBER 0>
+
+
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   #DECL ((CNT TEMP VERB) FIX (BEG END) <PRIMTYPE VECTOR> (WRD) TABLE)
+   <SETG P-OFLAG <>>
+   <COND
+    (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	  <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+     <RFALSE>)
+    (<==? ,P-NCN 2>
+     <RFALSE>)
+    (<==? <GET ,P-OTBL ,P-NC1> 1>
+     <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>> <GET ,P-OTBL ,P-PREP1>>
+		<0? .TEMP>>
+	    <PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+	    <PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)
+	   (T <RFALSE>)>)
+    (<==? <GET ,P-OTBL ,P-NC2> 1>
+     <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>> <GET ,P-OTBL ,P-PREP2>>
+		<0? .TEMP>>
+	    <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+	    <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+	    <SETG P-NCN 2>)
+	   (T <RFALSE>)>)
+    (,P-ACLAUSE
+     <COND
+      (<NOT <==? ,P-NCN 1>> <SETG P-ACLAUSE <>> <RFALSE>)
+      (T
+       <SET BEG <GET ,P-ITBL ,P-NC1>>
+       <SET END <GET ,P-ITBL ,P-NC1L>>
+       <REPEAT ()
+	       <COND (<==? .BEG .END>
+		      <COND (.ADJ
+			     <ACLAUSE-WIN .ADJ>
+			     <RETURN>)
+			    (T
+			     <SETG P-ACLAUSE <>>
+			     <RFALSE>)>)
+		     (<AND <NOT .ADJ>
+			   <BTST <GETB <SET WRD <GET .BEG 0>> ,P-PSOFF>
+			         ,PS?ADJECTIVE>>
+		      <SET ADJ .WRD>)
+		     (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+			  <==? .WRD ,W?ONE>>
+		      <COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>> <RFALSE>)
+			    (T
+			     <ACLAUSE-WIN .ADJ>
+			     <RETURN>)>)>
+	       <SET BEG <REST .BEG ,P-WORDLEN>>>)>)>
+   <REPEAT ()
+	   <COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN>
+		  <SETG P-MERGED T>
+		  <RTRUE>)
+		 (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>
+   T>
+
+<ROUTINE ACLAUSE-WIN (ADJ)
+	 <SETG P-CCSRC ,P-OTBL>
+	 <CLAUSE-COPY ,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
+	 <AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>>
+	      <SETG P-NCN 2>>
+	 <SETG P-ACLAUSE <>>
+	 <RTRUE>>
+
+;"Print undefined word in input.
+   PTR points to the unknown word in P-LEXV"   
+
+<ROUTINE WORD-PRINT (CNT BUF)
+	 <REPEAT ()
+		 <COND (<DLESS? CNT 0> <RETURN>)
+		       (ELSE
+			<PRINTC <GETB ,P-INBUF .BUF>>
+			<SET BUF <+ .BUF 1>>)>>>
+
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF) 
+	#DECL ((PTR BUF) FIX)
+	<TELL "FC: I don't know the word '">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "'." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+<ROUTINE CANT-USE (PTR "AUX" BUF) 
+	#DECL ((PTR BUF) FIX)
+	<TELL "FC: I can't use the word '">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "' here." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+;" Perform syntax matching operations, using P-ITBL as the source of
+   the verb and adjectives for this input.  Returns false if no
+   syntax matches, and does it's own orphaning.  If return is true,
+   the syntax is saved in P-SYNTAX."   
+ 
+<GLOBAL P-SLOCBITS 0>    
+ 
+<CONSTANT P-SYNLEN 8>    
+ 
+<CONSTANT P-SBITS 0>
+ 
+<CONSTANT P-SPREP1 1>    
+ 
+<CONSTANT P-SPREP2 2>    
+ 
+<CONSTANT P-SFWIM1 3>    
+ 
+<CONSTANT P-SFWIM2 4>    
+ 
+<CONSTANT P-SLOC1 5>
+ 
+<CONSTANT P-SLOC2 6>
+ 
+<CONSTANT P-SACTION 7>   
+ 
+<CONSTANT P-SONUMS 3>    
+
+<ROUTINE SYNTAX-CHECK ("AUX" SYN LEN NUM OBJ (DRIVE1 <>) (DRIVE2 <>) PREP VERB TMP) 
+	#DECL ((DRIVE1 DRIVE2) <OR FALSE <PRIMTYPE VECTOR>>
+	       (SYN) <PRIMTYPE VECTOR> (LEN NUM VERB PREP) FIX
+	       (OBJ) <OR FALSE OBJECT>)
+	<COND (<0? <SET VERB <GET ,P-ITBL ,P-VERB>>>
+	       <TELL "FC: I can't find a verb in that sentence!" CR>
+	       <RFALSE>)>
+	<SET SYN <GET ,VERBS <- 255 .VERB>>>
+	<SET LEN <GETB .SYN 0>>
+	<SET SYN <REST .SYN>>
+	<REPEAT ()
+		<SET NUM <BAND <GETB .SYN ,P-SBITS> ,P-SONUMS>>
+		<COND (<G? ,P-NCN .NUM> T)
+		      (<AND <NOT <L? .NUM 1>>
+			    <0? ,P-NCN>
+			    <OR <0? <SET PREP <GET ,P-ITBL ,P-PREP1>>>
+				<==? .PREP <GETB .SYN ,P-SPREP1>>>>
+		       <SET DRIVE1 .SYN>)
+		      (<==? <GETB .SYN ,P-SPREP1> <GET ,P-ITBL ,P-PREP1>>
+		       <COND (<AND <==? .NUM 2> <==? ,P-NCN 1>>
+			      <SET DRIVE2 .SYN>)
+			     (<==? <GETB .SYN ,P-SPREP2>
+				   <GET ,P-ITBL ,P-PREP2>>
+			      <SYNTAX-FOUND .SYN>
+			      <RTRUE>)>)>
+		<COND (<DLESS? LEN 1>
+		       <COND (<OR .DRIVE1 .DRIVE2> <RETURN>)
+			     (T
+			      <TELL "FC: I don't understand that sentence." CR>
+			      <RFALSE>)>)
+		      (T <SET SYN <REST .SYN ,P-SYNLEN>>)>>
+	<COND (<AND .DRIVE1
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE1 ,P-SFWIM1>
+			       <GETB .DRIVE1 ,P-SLOC1>
+			       <GETB .DRIVE1 ,P-SPREP1>>>>
+	       <PUT ,P-PRSO ,P-MATCHLEN 1>
+	       <PUT ,P-PRSO 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE1>)
+	      (<AND .DRIVE2
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE2 ,P-SFWIM2>
+			       <GETB .DRIVE2 ,P-SLOC2>
+			       <GETB .DRIVE2 ,P-SPREP2>>>>
+	       <PUT ,P-PRSI ,P-MATCHLEN 1>
+	       <PUT ,P-PRSI 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE2>)
+	      (<EQUAL? .VERB ,ACT?FIND>
+	       <TELL "FC: I can't answer that question." CR>
+	       <RFALSE>)
+	      (,SETUP-MODE <RFALSE>)
+	      (T
+	       <ORPHAN .DRIVE1 .DRIVE2>
+	       <TELL "FC: What do you want to ">
+	       <SET TMP <GET ,P-OTBL ,P-VERBN>>
+	       <COND (<==? .TMP 0> <TELL "tell">)
+		     (<0? <GETB ,P-VTBL 2>>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
+		      <PUTB ,P-VTBL 2 0>)>
+	       <COND (.DRIVE2
+		      <CLAUSE-PRINT ,P-NC1 ,P-NC1L>)>
+	       <SETG P-OFLAG T>
+	       <PREP-PRINT <COND (.DRIVE1 <GETB .DRIVE1 ,P-SPREP1>)
+				 (T <GETB .DRIVE2 ,P-SPREP2>)>>
+	       <TELL "?" CR>
+	       <RFALSE>)>> 
+
+<ROUTINE CANT-ORPHAN ()
+	 <TELL
+"\"FC: That command was incomplete.  Why don't you try again?\"" CR>
+	 <RFALSE>>
+
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1)) 
+	#DECL ((D1 D2) <OR FALSE <PRIMTYPE VECTOR>>)
+	<PUT ,P-OCLAUSE ,P-MATCHLEN 0>
+	<SETG P-CCSRC ,P-ITBL>
+	<REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>>
+	<COND (<==? ,P-NCN 2> <CLAUSE-COPY ,P-NC2 ,P-NC2L>)>
+	<COND (<NOT <L? ,P-NCN 1>> <CLAUSE-COPY ,P-NC1 ,P-NC1L>)>
+	<COND (.D1
+	       <PUT ,P-OTBL ,P-PREP1 <GETB .D1 ,P-SPREP1>>
+	       <PUT ,P-OTBL ,P-NC1 1>)
+	      (.D2
+	       <PUT ,P-OTBL ,P-PREP2 <GETB .D2 ,P-SPREP2>>
+	       <PUT ,P-OTBL ,P-NC2 1>)>> 
+ 
+<ROUTINE CLAUSE-PRINT (BPTR EPTR) 
+	<BUFFER-PRINT <GET ,P-ITBL .BPTR> <GET ,P-ITBL .EPTR> T>>    
+ 
+<ROUTINE BUFFER-PRINT (BEG END CP "AUX" (NOSP <>) WRD (FIRST?? T) (PN <>))
+	 #DECL ((BEG END) <PRIMTYPE VECTOR> (CP) <OR FALSE ATOM>)
+	 <REPEAT ()
+		<COND (<==? .BEG .END> <RETURN>)
+		      (T
+		       <COND (.NOSP <SET NOSP <>>)
+			     (T <TELL " ">)>
+		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?.> <SET NOSP T>)
+			     ;(<==? .WRD ,W?MRS> <TELL "Mrs."> <SET PN T>)
+			     ;(<==? .WRD ,W?MS> <TELL "Ms."> <SET PN T>)
+			     ;(<==? .WRD ,W?MR> <TELL "Mr."> <SET PN T>)
+			     ;(<OR <EQUAL? .WRD YOUR-WORDS>
+				   <EQUAL? .WRD ETC>>
+			      <CAPITALIZE .BEG>
+			      <SET PN T>)
+			     (T
+			      <COND (<AND .FIRST?? <NOT .PN> .CP>
+				     <TELL "the ">)>
+			      <COND (,P-OFLAG <PRINTB .WRD>)
+				    (<AND <==? .WRD ,W?IT>
+					  <==? ,P-IT-LOC ,WINNER-HERE>>
+				     <PRINTD ,P-IT-OBJECT>)
+				    (T
+				     <WORD-PRINT <GETB .BEG 2>
+						 <GETB .BEG 3>>)>
+			      <SET FIRST?? <>>)>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
+
+<ROUTINE CAPITALIZE (PTR)
+	 <PRINTC <- <GETB ,P-INBUF <GETB .PTR 3>> 32>>
+	 <WORD-PRINT <- <GETB .PTR 2> 1> <+ <GETB .PTR 3> 1>>>
+
+<ROUTINE PREP-PRINT (PREP "AUX" WRD) 
+	#DECL ((PREP) FIX)
+	<COND (<NOT <0? .PREP>>
+	       <TELL " ">
+	       <SET WRD <PREP-FIND .PREP>>
+	       <COND ;(<==? .WRD ,W?AGAINST> <TELL "against">)
+		     (T <PRINTB .WRD>)>)>>    
+ 
+<ROUTINE CLAUSE-COPY (BPTR EPTR "OPTIONAL" (INSRT <>) "AUX" BEG END) 
+	#DECL ((BPTR EPTR) FIX (BEG END) <PRIMTYPE VECTOR>
+	       (INSRT) <OR FALSE TABLE>)
+	<SET BEG <GET ,P-CCSRC .BPTR>>
+	<SET END <GET ,P-CCSRC .EPTR>>
+	<PUT ,P-OTBL
+	     .BPTR
+	     <REST ,P-OCLAUSE
+		   <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN> 2>>>
+	<REPEAT ()
+		<COND (<==? .BEG .END>
+		       <PUT ,P-OTBL
+			    .EPTR
+			    <REST ,P-OCLAUSE
+				  <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
+				     2>>>
+		       <RETURN>)
+		      (T
+		       <COND (<AND .INSRT <==? ,P-ANAM <GET .BEG 0>>>
+			      <CLAUSE-ADD .INSRT>)>
+		       <CLAUSE-ADD <GET .BEG 0>>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>  
+
+<ROUTINE CLAUSE-ADD (WRD "AUX" PTR) 
+	#DECL ((WRD) TABLE (PTR) FIX)
+	<SET PTR <+ <GET ,P-OCLAUSE ,P-MATCHLEN> 2>>
+	<PUT ,P-OCLAUSE <- .PTR 1> .WRD>
+	<PUT ,P-OCLAUSE .PTR 0>
+	<PUT ,P-OCLAUSE ,P-MATCHLEN .PTR>>   
+ 
+<ROUTINE PREP-FIND (PREP "AUX" (CNT 0) SIZE) 
+	#DECL ((PREP CNT SIZE) FIX)
+	<SET SIZE <* <GET ,PREPOSITIONS 0> 2>>
+	<REPEAT ()
+		<COND (<IGRTR? CNT .SIZE> <RFALSE>)
+		      (<==? <GET ,PREPOSITIONS .CNT> .PREP>
+		       <RETURN <GET ,PREPOSITIONS <- .CNT 1>>>)>>>  
+ 
+<ROUTINE SYNTAX-FOUND (SYN) 
+	#DECL ((SYN) <PRIMTYPE VECTOR>)
+	<SETG P-SYNTAX .SYN>
+	<SETG PRSA <GETB .SYN ,P-SACTION>>>   
+ 
+<GLOBAL P-GWIMBIT 0>
+ 
+<ROUTINE GWIM (GBIT LBIT PREP "AUX" OBJ) 
+	#DECL ((GBIT LBIT) FIX (OBJ) OBJECT)
+	<COND (<==? .GBIT ,RMUNGBIT>
+	       <RETURN ,ROOMS>)>
+	<SETG P-GWIMBIT .GBIT>
+	<SETG P-SLOCBITS .LBIT>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<COND (<GET-OBJECT ,P-MERGE <>>
+	       <SETG P-GWIMBIT 0>
+	       <COND (<==? <GET ,P-MERGE ,P-MATCHLEN> 1>
+		      <SET OBJ <GET ,P-MERGE 1>>
+		      <COND (<AND <FSET? .OBJ ,VEHBIT>
+				  <EQUAL? .PREP ,PR?DOWN>>
+			     <SET PREP ,PR?ON>)>
+		      <TELL "(">
+		      <COND (<NOT <0? .PREP>>
+			     <PRINTB <PREP-FIND .PREP>>
+			     <TELL " the ">)>
+		      <TELL D .OBJ ")" CR>
+		      .OBJ)>)
+	      (T <SETG P-GWIMBIT 0> <RFALSE>)>>   
+ 
+<ROUTINE SNARF-OBJECTS ("AUX" PTR) 
+	#DECL ((PTR) <OR FIX <PRIMTYPE VECTOR>>)
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC1>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC1>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC1L> ,P-PRSO> <RFALSE>>
+	       <OR <0? <GET ,P-BUTS ,P-MATCHLEN>>
+		   <SETG P-PRSO <BUT-MERGE ,P-PRSO>>>)>
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC2>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC2>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC2L> ,P-PRSI> <RFALSE>>
+	       <COND (<NOT <0? <GET ,P-BUTS ,P-MATCHLEN>>>
+		      <COND (<==? <GET ,P-PRSI ,P-MATCHLEN> 1>
+			     <SETG P-PRSO <BUT-MERGE ,P-PRSO>>)
+			    (T <SETG P-PRSI <BUT-MERGE ,P-PRSI>>)>)>)>
+	<RTRUE>>  
+
+<ROUTINE BUT-MERGE (TBL "AUX" LEN BUTLEN (CNT 1) (MATCHES 0) OBJ NTBL) 
+	#DECL ((TBL NTBL) TABLE (LEN BUTLEN MATCHES) FIX (OBJ) OBJECT)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<REPEAT ()
+		<COND (<DLESS? LEN 0> <RETURN>)
+		      (<ZMEMQ <SET OBJ <GET .TBL .CNT>> ,P-BUTS>)
+		      (T
+		       <PUT ,P-MERGE <+ .MATCHES 1> .OBJ>
+		       <SET MATCHES <+ .MATCHES 1>>)>
+		<SET CNT <+ .CNT 1>>>
+	<PUT ,P-MERGE ,P-MATCHLEN .MATCHES>
+	<SET NTBL ,P-MERGE>
+	<SETG P-MERGE .TBL>
+	.NTBL>    
+ 
+<GLOBAL P-NAM <>>   
+ 
+<GLOBAL P-ADJ <>>   
+ 
+<GLOBAL P-ADJN <>>  
+ 
+<GLOBAL P-ACTORS <ITABLE NONE 20>>
+
+<GLOBAL P-NACTORS 0>
+
+<GLOBAL P-CACTOR 0>
+
+<GLOBAL P-OPLEN 0>
+
+<GLOBAL P-OPCONT 0>
+
+<GLOBAL P-PRSO <ITABLE NONE 50>>   
+ 
+<GLOBAL P-PRSI <ITABLE NONE 50>>   
+ 
+<GLOBAL P-BUTS <ITABLE NONE 50>>   
+ 
+<GLOBAL P-MERGE <ITABLE NONE 50>>  
+ 
+<GLOBAL P-OCLAUSE <ITABLE NONE 50>>
+ 
+<GLOBAL P-MATCHLEN 0>    
+ 
+<GLOBAL P-GETFLAGS 0>    
+ 
+<CONSTANT P-ALL 1>  
+ 
+<CONSTANT P-ONE 2>  
+ 
+<CONSTANT P-INHIBIT 4>   
+
+<GLOBAL P-CSPTR <>>
+<GLOBAL P-CEPTR <>>
+
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WORD NW) 
+   #DECL ((TBL) TABLE (PTR EPTR) <PRIMTYPE VECTOR> (ANDFLG) <OR ATOM FALSE>
+	  (BUT) <OR FALSE TABLE> (WV) <OR FALSE FIX>)
+   <SETG P-GETFLAGS 0>
+   <SETG P-CSPTR .PTR>
+   <SETG P-CEPTR .EPTR>
+   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <PUT .TBL ,P-MATCHLEN 0>
+   <SET WORD <GET .PTR 0>>
+   <REPEAT ()
+	   <COND (<==? .PTR .EPTR> <RETURN <GET-OBJECT <OR .BUT .TBL>>>)
+		 (T
+		  <SET NW <GET .PTR ,P-LEXELEN>>
+		  <COND (<EQUAL? .WORD ,W?ALL>
+			 <SETG P-GETFLAGS ,P-ALL>
+			 <COND (<==? .NW ,W?OF>
+				<SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			(<EQUAL? .WORD ,W?BUT ,W?EXCEPT>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 <SET BUT ,P-BUTS>
+			 <PUT .BUT ,P-MATCHLEN 0>)
+			(<EQUAL? .WORD ,W?A ,W?ONE>
+			 <COND (<NOT ,P-ADJ>
+				<SETG P-GETFLAGS ,P-ONE>
+				<COND (<==? .NW ,W?OF>
+				       <SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			       (T
+				<SETG P-NAM ,P-ONEOBJ>
+				<OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+				<AND <0? .NW> <RTRUE>>)>)
+			(<AND <EQUAL? .WORD ,W?AND ,W?COMMA>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 T)
+			(<AND <WT? .WORD ,PS?PREPOSITION>
+			      <==? .PTR ,P-CSPTR>>
+			 <SETG P-CSPTR <REST ,P-CSPTR ,P-WORDLEN>>)
+			(<WT? .WORD ,PS?BUZZ-WORD>)
+			(<EQUAL? .WORD ,W?AND ,W?COMMA>)
+			(<==? .WORD ,W?OF>
+			 <COND (<0? ,P-GETFLAGS>
+				<SETG P-GETFLAGS ,P-INHIBIT>)>)
+			(<AND <SET WV <WT? .WORD ,PS?ADJECTIVE ,P1?ADJECTIVE>>
+			      <ADJ-CHECK>>
+			 ;"Used to check for P-ADJ being <> as well"
+			 <COND (,P-ADJ
+				<SETG P-OADJ ,P-ADJ>
+				<SETG P-OADJECTIVE ,P-ADJECTIVE>)>
+			 <SETG P-ADJ .WV>
+			 <SETG P-ADJN .WORD>
+			 <SETG P-ADJECTIVE .WORD>)
+			(<WT? .WORD ,PS?OBJECT ,P1?OBJECT>
+			 <SETG P-NAM .WORD>
+			 <SETG P-ONEOBJ .WORD>)>)>
+	   <COND (<NOT <==? .PTR .EPTR>>
+		  <SET PTR <REST .PTR ,P-WORDLEN>>
+		  <SET WORD .NW>)>>>   
+ 
+<ROUTINE ADJ-CHECK ()
+	 <COND (<NOT ,P-ADJ> <RTRUE>)
+	       ;(<OR <EQUAL? ,P-ADJ ,A?FIRST ,A?SECOND ,A?THIRD>
+		    <EQUAL? ,P-ADJ ,A?FOURTH ,A?FIFTH ,A?SIXTH>
+		    <EQUAL? ,P-ADJ ,A?SEVENTH ,A?EIGHTH ,A?NINTH>
+		    <EQUAL? ,P-ADJ ,A?TENTH ,A?SMALL ,A?LARGE>
+		    <EQUAL? ,P-ADJ ,A?INNER ,A?OUTER>>
+		<RFALSE>)
+	       (T <RTRUE>)>>
+
+<CONSTANT SH 128>   
+ 
+<CONSTANT SC 64>    
+ 
+<CONSTANT SIR 32>   
+ 
+<CONSTANT SOG 16>   
+ 
+<CONSTANT STAKE 8>  
+ 
+<CONSTANT SMANY 4>  
+ 
+<CONSTANT SHAVE 2>  
+
+<ROUTINE GET-OBJECT (TBL
+		    "OPTIONAL" (VRB T)
+		    "AUX" LEN XBITS TLEN (GCHECK <>) (OLEN 0))
+	#DECL ((TBL) TABLE (XBITS TLEN LEN) FIX (GWIM) <OR FALSE FIX>
+	       (VRB GCHECK) <OR ATOM FALSE>)
+	<COND (,SETUP-MODE <SET GCHECK T>)>
+	<SET XBITS ,P-SLOCBITS>
+	<SET TLEN <GET .TBL ,P-MATCHLEN>>
+	<COND (<BTST ,P-GETFLAGS ,P-INHIBIT> <RTRUE>)>
+	<COND (<AND <NOT ,P-NAM> ,P-ADJ <WT? ,P-ADJN ,PS?OBJECT ,P1?OBJECT>>
+	       <SETG P-NAM ,P-ADJN>
+	       <COND (,P-OADJ
+		      <SETG P-ADJ ,P-OADJ>
+		      <SETG P-ADJECTIVE ,P-OADJECTIVE>)
+		     (T
+		      <SETG P-ADJECTIVE <>>
+		      <SETG P-ADJ <>>)>)>
+	<COND (<AND <NOT ,P-NAM>
+		    <NOT ,P-ADJ>
+		    <NOT <==? ,P-GETFLAGS ,P-ALL>>
+		    <0? ,P-GWIMBIT>>
+	       <COND (.VRB
+		      <TELL "FC: I think that sentence was missing a noun." CR>)>
+	       <RFALSE>)>
+	<COND (<OR <NOT <==? ,P-GETFLAGS ,P-ALL>> <0? ,P-SLOCBITS>>
+	       <SETG P-SLOCBITS -1>)
+	      (<AND <==? ,P-GETFLAGS ,P-ALL> ,P-NAM <VERB? TAKE>>
+	       <SETG P-SLOCBITS -1>)>
+	<SETG P-TABLE .TBL>
+	<PROG ()
+	      <COND (<AND <BTST ,P-GETFLAGS ,P-ALL>
+			  <EQUAL? ,P-NAM ,W?ROBOTS>>
+		     <SET GCHECK T>)>
+	      <COND (.GCHECK
+		     <GLOBAL-CHECK .TBL>)
+		    (T
+		     <COND (,LIT <DO-SL ,WINNER-HERE ,SOG ,SIR>)>
+		     <DO-SL ,WINNER ,SH ,SC>)>
+	      <SET LEN <- <GET .TBL ,P-MATCHLEN> .TLEN>>
+	      <COND (<BTST ,P-GETFLAGS ,P-ALL>)
+		    (<AND <BTST ,P-GETFLAGS ,P-ONE>
+			  <NOT <0? .LEN>>>
+		     <COND (<NOT <==? .LEN 1>>
+			    <PUT .TBL 1 <GET .TBL <RANDOM .LEN>>>
+			    <TELL "(How about the ">
+			    <PRINTD <GET .TBL 1>>
+			    <TELL "?)" CR>)>
+		     <PUT .TBL ,P-MATCHLEN 1>)
+		    (<OR <G? .LEN 1>
+			 <AND <0? .LEN> <NOT <==? ,P-SLOCBITS -1>>>>
+		     <COND (<==? ,P-SLOCBITS -1>
+			    <SETG P-SLOCBITS .XBITS>
+			    <SET OLEN .LEN>
+			    <PUT .TBL
+				 ,P-MATCHLEN
+				 <- <GET .TBL ,P-MATCHLEN> .LEN>>
+			    <AGAIN>)
+			   (T
+			    <COND (<0? .LEN> <SET LEN .OLEN>)>
+			    <COND (<AND .VRB ,P-NAM>
+				   <WHICH-PRINT .TLEN .LEN .TBL>
+				   <SETG P-ACLAUSE
+					 <COND (<==? .TBL ,P-PRSO> ,P-NC1)
+					       (T ,P-NC2)>>
+				   <SETG P-AADJ ,P-ADJ>
+				   <SETG P-ANAM ,P-NAM>
+				   <ORPHAN <> <>>
+				   <SETG P-OFLAG T>)
+				  (.VRB
+				   <TELL "FC: You must supply a noun!" CR>)>
+			    <SETG P-NAM <>>
+			    <SETG P-ADJ <>>
+			    <RFALSE>)>)
+		    (<AND <0? .LEN> .GCHECK>
+		     <COND (.VRB
+			    <COND (<AND <VERB? QUERY> <WHIZ?> ,PLUGGED-IN> T)
+				  (,LIT
+				   <ROBOT-TELL <GET ,DETECT-TBL ,ROFF> <>>
+				   ;<SETG TEMPROFF ,ROFF>
+				   ;<COND (<EQUAL? ,ROFF 0>
+					  <SETG ROFF 6>)>
+				   <COND (,P-OFLAG
+					  <COND (<AND ,P-ADJ ,P-NAM>
+						 <TELL " any such">)>
+					  <COND (,P-NAM
+						 <COND (<OR <EQUAL? ,P-NAM
+								    ,W?IRIS
+								    ,W?AUDA
+								    ,W?WALDO>
+							    <EQUAL? ,P-NAM
+								    ,W?WHIZ
+								    ,W?SENSA
+								    ,W?POET>>
+							<TELL " robot ">)>;MIKE
+						 <PRINTB ,P-NAM>)>)
+					 (T
+					  <COND (<OR <EQUAL? ,P-NAM
+							     ,W?IRIS
+							     ,W?AUDA
+							     ,W?WALDO>
+						     <EQUAL? ,P-NAM
+							     ,W?WHIZ
+							     ,W?SENSA
+							     ,W?POET>>
+						 <TELL " ">)
+						(T <TELL " any">)>
+					  <BUFFER-PRINT ,P-CSPTR
+							,P-CEPTR
+							<>>)>
+				   <TELL " here." CR>
+				   ;<SETG ROFF .TEMPROFF>)
+				  (T
+				   <TELL "It's too dark to see." CR>)>)>
+		     <SETG P-NAM <>>
+		     <SETG P-ADJ <>>
+		     <RFALSE>)
+		    (<0? .LEN> <SET GCHECK T> <AGAIN>)>
+	      <SETG P-ADJ <>>
+	      <SETG P-NAM <>>
+	      <SETG P-SLOCBITS .XBITS>
+	      <RTRUE>>>   
+
+<ROUTINE WHICH-PRINT (TLEN LEN TBL "AUX" OBJ RLEN TEMPROFF)
+	 <SET RLEN .LEN>
+	 <TELL "FC: Which ">
+         <PRINTB ,P-NAM>
+	 <TELL " do you mean, ">
+	 <REPEAT ()
+		 <SET TLEN <+ .TLEN 1>>
+		 <SET OBJ <GET .TBL .TLEN>>
+		 <TELL "the ">
+		 <COND (<IN? .OBJ ,ROOMS>
+			<TELL SD .OBJ>)
+		       (T
+			;<SET TEMPROFF ,ROFF> 
+			;<COND (<EQUAL? ,ROFF 0>
+			       <SETG ROFF 6>)>
+			<TELL D .OBJ>
+			;<SETG ROFF .TEMPROFF>)>
+		 <COND (<==? .LEN 2>
+		        <COND (<NOT <==? .RLEN 2>> <TELL ",">)>
+		        <TELL " or ">)
+		       (<G? .LEN 2> <TELL ", ">)>
+		 <COND (<L? <SET LEN <- .LEN 1>> 1>
+		        <TELL "?" CR>
+		        <RETURN>)>>>
+
+
+<ROUTINE GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS FOO) 
+	#DECL ((TBL) TABLE (RMG) <OR FALSE TABLE> (RMGL CNT) FIX (OBJ) OBJECT)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<SET OBITS ,P-SLOCBITS>
+	<COND (<SET RMG <GETPT ,WINNER-HERE ,P?GLOBAL>>
+	       <SET RMGL <- <PTSIZE .RMG> 1>>
+	       <REPEAT ()
+		       <COND (<THIS-IT? <SET OBJ <GETB .RMG .CNT>> .TBL>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<SET RMG <GETPT ,WINNER-HERE ,P?PSEUDO>>
+	       <SET RMGL <- </ <PTSIZE .RMG> 4> 1>>
+	       <SET CNT 0>
+	       <REPEAT ()
+		       <COND (<==? ,P-NAM <GET .RMG <* .CNT 2>>>
+			      <PUTP ,PSEUDO-OBJECT
+				    ,P?ACTION
+				    <GET .RMG <+ <* .CNT 2> 1>>>
+			      <SET FOO
+				   <BACK <GETPT ,PSEUDO-OBJECT ,P?ACTION> 5>>
+			      <PUT .FOO 0 <GET ,P-NAM 0>>
+			      <PUT .FOO 1 <GET ,P-NAM 1>>
+			      <OBJ-FOUND ,PSEUDO-OBJECT .TBL>
+			      <RETURN>)
+		             (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<==? <GET .TBL ,P-MATCHLEN> .LEN>
+	       <SETG P-SLOCBITS -1>
+	       <SETG P-TABLE .TBL>
+	       <DO-SL ,GLOBAL-OBJECTS 1 1>
+	       <SETG P-SLOCBITS .OBITS>
+	       <COND (<0? <GET .TBL ,P-MATCHLEN>>
+		      <COND (<AND <WHIZ?> <VERB? QUERY> ,PLUGGED-IN>
+			     <TELL
+"CLC: Hmm. That's a tough one. Hold on a minute while I try to locate a reference ..." CR>
+			     <CRLF>
+			     ;<SET FOO <CLOCKER>>
+			     ;<SETG MOVES <+ ,MOVES 1>>
+			     <MOBY-FIND .TBL>
+			     ;<COND (.FOO
+				    <CRLF>)>
+			     <TELL "CLC: ">
+			     <COND (<AND <G? <SET FOO <GET .TBL ,P-MATCHLEN>>
+					     1>
+					 <OR <EQUAL? ,P-NAM ,W?WALKWA
+						     ,W?MECHAN ,W?BLT>
+					     <EQUAL? ,P-NAM ,W?GLIDER>
+					     <EQUAL? ,P-NAM ,W?GROOVE
+						     ,W?TRACK>>>
+				    <PUT .TBL ,P-MATCHLEN 1>
+				    <SET FOO 1>)>
+			     <COND (<0? .FOO>
+				    <TELL <PICK-ONE ,NOT-FOUND> CR>)
+				   (<G? .FOO 1>
+				    <PUT .TBL ,P-MATCHLEN 0>
+				    <TELL
+"I'm afraid you weren't specific enough. One object at a time, and adjectives can be helpful." CR>)
+				   (T
+				    <TELL <PICK-ONE ,CROWDED> CR>)>)
+			    (<VERB? WALK-TO MOVE-ROBOT-TO-LOC EXAMINE FOLLOW
+				    >
+			     <DO-SL ,ROOMS 1 1>)>)>)>>
+ 
+<GLOBAL NOT-FOUND <LTABLE
+"Nope. Can't find any reference to that one in this mess. Sorry."
+"This is very embarrassing, but I can't seem to find that one."
+"Sorry, but I don't have any reference to that one.">>
+
+
+<GLOBAL CROWDED <LTABLE
+"Ah! Here's the tagged object. Sorry about that delay, but it's crowded in here."
+"Found it! Sorry, but it sure is a mess in here."
+"Here it is! I was beginning to think I was going senile.">>
+
+<ROUTINE MOBY-FIND (TBL "AUX" FOO)
+	 <SET FOO <FIRST? ,ROOMS>>
+	 <REPEAT ()
+		 <COND (<NOT .FOO> <RETURN>)
+		       (T
+			<SEARCH-LIST .FOO .TBL ,P-SRCALL>
+			<SET FOO <NEXT? .FOO>>)>>
+	 <COND (<0? <GET .TBL ,P-MATCHLEN>>
+		<DO-SL ,LOCAL-GLOBALS 1 1>)>>
+
+<ROUTINE DO-SL (OBJ BIT1 BIT2) 
+	#DECL ((OBJ) OBJECT (BIT1 BIT2) FIX)
+	<COND (<BTST ,P-SLOCBITS <+ .BIT1 .BIT2>>
+	       <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCALL>)
+	      (T
+	       <COND (<BTST ,P-SLOCBITS .BIT1>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCTOP>)
+		     (<BTST ,P-SLOCBITS .BIT2>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCBOT>)
+		     (T <RTRUE>)>)>>  
+ 
+<CONSTANT P-SRCBOT 2>    
+ 
+<CONSTANT P-SRCTOP 0>    
+ 
+<CONSTANT P-SRCALL 1>    
+ 
+<ROUTINE SEARCH-LIST (OBJ TBL LVL "AUX" FLS NOBJ) 
+	#DECL ((OBJ NOBJ) <OR FALSE OBJECT> (TBL) TABLE (LVL) FIX (FLS) ANY)
+	<COND (<SET OBJ <FIRST? .OBJ>>
+	       <REPEAT ()
+		       <COND (<AND <==? ,P-GETFLAGS ,P-ALL>
+				   <==? .OBJ ,PANEL>
+				   <VERB? DROP>>
+			      T)
+			     (<AND <NOT <==? .LVL ,P-SRCBOT>>
+				   <GETPT .OBJ ,P?SYNONYM>
+				   <THIS-IT? .OBJ .TBL>>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<AND <OR <VERB? QUERY>
+				       <NOT <FSET? .OBJ ,INVISIBLE>>>
+				   <OR <NOT <==? .LVL ,P-SRCTOP>>
+				       <FSET? .OBJ ,SEARCHBIT>
+				       <FSET? .OBJ ,SURFACEBIT>>
+				   <SET NOBJ <FIRST? .OBJ>>
+				   <NOT <EQUAL? .OBJ ,WINNER>>
+				   <OR <FSET? .OBJ ,OPENBIT>
+				       <FSET? .OBJ ,TRANSBIT>>>
+			      <COND (<AND <==? .LVL ,P-SRCTOP>
+					  <FSET? .OBJ ,SEARCHBIT>
+					  <==? ,P-GETFLAGS ,P-ALL>>
+				     T)
+				    (T
+				     <SET FLS
+				        <SEARCH-LIST .OBJ
+						     .TBL
+						<COND (<FSET? .OBJ ,SURFACEBIT>
+						       ,P-SRCALL)
+						      (<FSET? .OBJ ,SEARCHBIT>
+						       ,P-SRCALL)
+						      (T ,P-SRCTOP)>>>)>)>
+		       <COND (<SET OBJ <NEXT? .OBJ>>) (T <RETURN>)>>)>> 
+ 
+<ROUTINE OBJ-FOUND (OBJ TBL "AUX" PTR) 
+	<COND (<AND <SET PTR <GETP .OBJ ,P?OBJDESCS>>
+		    <==? <GET .PTR ,ROFF> 0>
+		    <NOT <IN? .OBJ ,WINNER>>>
+	       <RTRUE>)
+	      (<AND <==? ,P-GETFLAGS ,P-ALL>
+		    <NOT <EQUAL? ,P-NAM ,W?ROBOTS>>
+		    <GETP .OBJ ,P?ROBOT>>
+	       <RTRUE>)
+	      (<AND <==? ,WINNER ,IRIS>
+		    <NOT ,IRIS-FIXED>
+		    <NOT <GETP .OBJ ,P?ROBOT>>
+		    <NOT <EQUAL? .OBJ ,LOCATION>>
+		    <NOT <IN? .OBJ ,ROOMS>>>
+	       <RTRUE>)
+	      (T
+	       <SET PTR <GET .TBL ,P-MATCHLEN>>
+	       <PUT .TBL <+ .PTR 1> .OBJ>
+	       <PUT .TBL ,P-MATCHLEN <+ .PTR 1>>)>> 
+ 
+<ROUTINE TAKE-CHECK () 
+	<AND <ITAKE-CHECK ,P-PRSO <GETB ,P-SYNTAX ,P-SLOC1>>
+	     <ITAKE-CHECK ,P-PRSI <GETB ,P-SYNTAX ,P-SLOC2>>>> 
+
+<ROUTINE ITAKE-CHECK (TBL IBITS "AUX" PTR OBJ TAKEN TEMPROFF) 
+	 #DECL ((TBL) TABLE (IBITS PTR) FIX (OBJ) OBJECT
+		(TAKEN) <OR FALSE FIX ATOM>)
+	 <COND (<AND <SET PTR <GET .TBL ,P-MATCHLEN>>
+		     <OR <BTST .IBITS ,SHAVE>
+			 <BTST .IBITS ,STAKE>>>
+		<REPEAT ()
+			<COND (<L? <SET PTR <- .PTR 1>> 0> <RETURN>)
+			      (T
+			       <SET OBJ <GET .TBL <+ .PTR 1>>>
+			       <COND (<==? .OBJ ,IT> <SET OBJ ,P-IT-OBJECT>)>
+			       <COND (<NOT <HELD? .OBJ>>
+				      <SETG PRSO .OBJ>
+				      <COND (<FSET? .OBJ ,TRYTAKEBIT>
+					     <SET TAKEN T>)
+					    (<AND <BTST .IBITS ,STAKE>
+						  <==? <ITAKE <>> T>>
+					     <SET TAKEN <>>)
+					    (T <SET TAKEN T>)>
+				      <COND (<AND .TAKEN <BTST .IBITS ,SHAVE>>
+					     <ROBOT-TELL "I don't have " <>>
+					     <COND (<NOT
+						     <GETP .OBJ ,P?ROBOT>>
+						    <TELL "the ">)>
+					     ;<SET TEMPROFF ,ROFF>
+					     ;<COND (<EQUAL? ,ROFF 0>
+						    <SETG ROFF 6>)>
+					     <TELL D .OBJ>
+					     ;<SETG ROFF .TEMPROFF>
+					     <TELL "." CR>
+					     <RFALSE>)
+					    (<NOT .TAKEN>
+					     <ROBOT-TELL 
+"I have taken the liberty of taking the " <>>
+					     <TELL D .OBJ " first." CR>)>)>)>>)
+	       (T)>>  
+ 
+<ROUTINE HELD? (CAN)
+	 <COND (<NOT <FSET? .CAN ,TAKEBIT>>
+		<RFALSE>)>
+	 <REPEAT ()
+		 <SET CAN <LOC .CAN>>
+		 <COND (<NOT .CAN> <RFALSE>)
+		       (<==? .CAN ,WINNER> <RTRUE>)>>>
+
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP) 
+	#DECL ((LOSS) <OR FALSE FIX>)
+	<COND (<AND <G? <GET ,P-PRSO ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC1> ,SMANY>>>
+	       <SET LOSS 1>)
+	      (<AND <G? <GET ,P-PRSI ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC2> ,SMANY>>>
+	       <SET LOSS 2>)>
+	<COND (.LOSS
+	       <TELL "FC: I can't use multiple ">
+	       <COND (<==? .LOSS 2> <TELL "in">)>
+	       <TELL "direct objects with '">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<EQUAL? .TMP 0> <TELL "tell">)
+		     (,P-OFLAG
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
+	       <TELL "'." CR>
+	       <RFALSE>)
+	      (T)>>  
+ 
+<ROUTINE ZMEMQ (ITM TBL "OPTIONAL" (SIZE -1) "AUX" (CNT 1)) 
+	<COND (<NOT .TBL> <RFALSE>)>
+	<COND (<NOT <L? .SIZE 0>> <SET CNT 0>)
+	      (ELSE <SET SIZE <GET .TBL 0>>)>
+	<REPEAT ()
+		<COND (<==? .ITM <GET .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>    
+
+<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0)) 
+	#DECL ((ITM) ANY (TBL) TABLE (SIZE CNT) FIX)
+	<REPEAT ()
+		<COND (<==? .ITM <GETB .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>  
+ 
+<SETG ALWAYS-LIT <>>
+ 
+<ROUTINE LIT? (RM "AUX" OHERE (LIT <>)) 
+	#DECL ((RM OHERE) OBJECT (LIT) <OR ATOM FALSE>)
+	<SETG P-GWIMBIT ,ONBIT>
+	<SET OHERE ,WINNER-HERE>
+	<SETG WINNER-HERE .RM>
+	<COND (<OR <FSET? .RM ,ONBIT> ,ALWAYS-LIT> <SET LIT T>)
+	      (T
+	       <PUT ,P-MERGE ,P-MATCHLEN 0>
+	       <SETG P-TABLE ,P-MERGE>
+	       <SETG P-SLOCBITS -1>
+	       <COND (<==? .OHERE .RM> <DO-SL ,WINNER 1 1>)>
+	       <DO-SL .RM 1 1>
+	       <COND (<G? <GET ,P-TABLE ,P-MATCHLEN> 0> <SET LIT T>)>)>
+	<SETG WINNER-HERE .OHERE>
+	<SETG P-GWIMBIT 0>
+	.LIT> 
+  
+<ROUTINE PRSO-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC1>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC1L> <>>)>>
+
+<ROUTINE PRSI-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC2>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC2L> <>>)>>
\ No newline at end of file
diff --git a/people.zil b/people.zil
new file mode 100644
index 0000000..c1034fc
--- /dev/null
+++ b/people.zil
@@ -0,0 +1,507 @@
+"PEOPLE for
+			      SUSPENDED
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+;"People for Suspended.  Interrupts, Routines & Globals
+  associated with PEOPLE within game."
+
+<GLOBAL PR-NUMBER 0>
+
+<GLOBAL CHASING-THIEF <>>
+
+<ROUTINE AUDA-HEARS? ()
+	 <COND (<AND <IN? ,AUDA <LOC ,PEOPLE>>
+		     <OR ,AUDA-LISTENS
+			 <AUDA?>>
+		     <L? <GET ,DEADBOTS 4> 30>>)>>
+
+<ROUTINE AUDA-SPEAKS ()
+	 <COND (<NOT <AUDA?>>
+		<TELL CR <GET ,INTER-TBL 4> " Listening..." CR>)
+	       (T
+		<CRLF>)>>
+
+<ROUTINE ROBOT-THERE? (RBT)
+	 <COND (<AND <IN? .RBT <LOC ,PEOPLE>>
+		     <NOT <FSET? .RBT ,CUTBIT>>>)>>
+
+<ROUTINE I-PEOPLE1 ()
+	 <SETG PR-NUMBER 1>
+	 <MOVE ,PEOPLE ,STERILE-AREA>
+	 <SET-GOAL ,PEOPLE ,TOOL-AREA>
+	 <TELL CR 
+	       "FC INTERRUPT: ALERT! ALERT!|
+Intruders detected in Sterilization Chamber!" CR>
+	 <RFATAL>>
+
+<ROUTINE PARRIVE1 ("AUX" TEMP)
+	 <MOVE ,TOOLBAG ,PEOPLE>
+	 <COND (<AUDA-HEARS?>
+		<AUDA-SPEAKS>
+		<TELL
+"I can hear the sound of metal against metal, followed by the sound of a creaking door opening.|
+|
+\"I've got the toolbag. Everything in it seems intact.\"|
+\"Well, don't lose it, man. We're lost without it. We'll never pull the switch on him if we lose it.\"|
+\"Don't worry. I won't let it out of my sight.\"|
+\"I'm getting sleepy. It was a long ride down here. What do you say we catch some sleep?\"|
+\"You really think we should? With all the devastation taking place?\"|
+\"I don't have much choice. I'm not thinking clearly, and I really need to sleep. More casualties will occur if we don't take care of ourselves.\"|
+\"Good point. Let's go.\"" CR>)>
+	 <COND (<ROBOT-THERE? ,WALDO>
+		<SET TEMP ,WINNER> <CHANGE-WINNER ,WALDO T>
+		<TELL CR <GET ,INTER-TBL 2>
+" The mobile objects have stopped for a moment. I also detect the " D 
+,PEOPLE-CABINET " opening then shutting. The " D ,PEOPLE " have removed a "
+D ,TOOLBAG " and are grasping it." CR>
+		<CHANGE-WINNER .TEMP T>)
+	       (<ROBOT-THERE? ,SENSA>
+		<SET TEMP ,WINNER> <CHANGE-WINNER ,SENSA T>
+		<TELL CR <GET ,INTER-TBL 3>
+" I can detect the cycling of a mechanism attached to the " D 
+,PEOPLE-CABINET " and the " D ,PEOPLE " removing a " D ,TOOLBAG " from it." CR>
+		<CHANGE-WINNER .TEMP T>)
+	       (<ROBOT-THERE? ,POET>
+		<SET TEMP ,WINNER> <CHANGE-WINNER ,POET T>
+		<TELL CR <GET ,INTER-TBL 5>
+" As the amazing " D ,PEOPLE " check in, they casually remove something from a " D ,PEOPLE-CABINET ". It appears to be a " D ,TOOLBAG "." CR>
+		<CHANGE-WINNER .TEMP T>)>
+	 <SET-GOAL ,PEOPLE ,SLEEP-CHAMBER>
+	 <SETG PR-NUMBER 2>>
+	 
+<ROUTINE PARRIVE2 ("AUX" TEMP)
+	 <COND (,CHASING-THIEF
+		<RFALSE>)>
+	 <SETG SLEEPERS 0>
+	 <ENABLE <QUEUE I-STEAL -1>>
+	 <MOVE ,TOOLBAG ,SLEEP-CHAMBER>
+	 <COND (<AND <AUDA-HEARS?>
+		     <NOT ,GIVEN-BAG>>
+		<AUDA-SPEAKS>
+		<TELL
+"\"Well, this is some sleep chamber. No frills.\"|
+\"Don't complain. At least there's bunks for us.\"|
+\"I suppose. I'm going to put the toolbag on the floor while I grab some shuteye.\"|
+\"What about the robot?\"|
+\"What, that ear thing? Gimme a break!\"|
+|
+AUDA: I hear the sound of metal being placed on the floor." CR>)>
+	 <COND (<AND <ROBOT-THERE? ,WALDO> <NOT ,GIVEN-BAG>>
+		<TELL CR <GET ,INTER-TBL 2>
+" The mobile objects are moving over to the platforms and are reclining." CR>)
+	       (<AND <ROBOT-THERE? ,SENSA> <NOT ,GIVEN-BAG>>
+		<SET TEMP ,WINNER> <CHANGE-WINNER ,SENSA T>
+		<TELL CR <GET ,INTER-TBL 3>
+" I detect an extreme drop in electrical and ionic activity in this area as the " D ,PEOPLE " become immobile." CR>
+		<CHANGE-WINNER .TEMP T>)
+	       (<AND <ROBOT-THERE? ,POET> <NOT ,GIVEN-BAG>>
+		<TELL CR <GET ,INTER-TBL 5>
+" Ah, yawn. Ho hum. These people are boring." CR>)>
+	 <RTRUE>>
+
+<GLOBAL SNORES-TBL
+	  <PTABLE
+"I can hear slow breathing and the occasional rustling of cloth."
+"One of the mechanisms tosses and turns."
+"One of the mechanisms has begun snoring. It is irritating."
+"The breathing of the mechanisms has become irregular and they begin to stir.">>
+
+<ROUTINE I-STEAL ()
+	 <SETG SLEEPERS <+ ,SLEEPERS 1>>
+	 <COND (<G? ,SLEEPERS 20>
+		<DISABLE <INT I-STEAL>>
+		<ENABLE <QUEUE I-PEOPLE2 1>>)>
+	 <COND (<EQUAL? ,SLEEPERS 1>
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL <GET ,SNORES-TBL 0>  CR>
+		       <RTRUE>)>)
+	       (<EQUAL? ,SLEEPERS 5>
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL <GET ,SNORES-TBL 1> CR>
+		       <RTRUE>)>)
+	       (<EQUAL? ,SLEEPERS 10>
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL <GET ,SNORES-TBL 2> CR>
+		       <RTRUE>)>)
+	       (<EQUAL? ,SLEEPERS 15>
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL <GET ,SNORES-TBL 3> CR>
+		       <RTRUE>)>)>
+	 <RFALSE>>
+
+<GLOBAL FED-UP <>>
+
+<ROUTINE ENOUGH-TRADING ()
+	 <ROBOT-TELL "Given.">
+	 <COND (<AUDA-HEARS?>
+		<AUDA-SPEAKS>
+		<TELL
+"\"Enough is enough! We'll never get anywhere with this little thing pestering us.\"|
+\"Tell me about it. Let's just get on with this.\"|
+\"Fine with me. Grab the bag.\"|
+\"Okay.\"" CR>)>
+	 <MOVE ,TOOLBAG ,PEOPLE>
+	 <SETG FED-UP T>
+	 <SETG CHASING-THIEF <>>
+	 <DISABLE <INT I-STEAL>>
+	 <I-PEOPLE2>
+	 <SETG PR-NUMBER 3>
+	 <SET-GOAL ,PEOPLE ,INNER-CORE>>>
+
+<ROUTINE PEOPLE-GIVEN-BAG ()
+	 <ROBOT-TELL "Given.">
+	 <SETG GIVEN-BAG T>
+	 ;<COND (<G? ,TAKE-BACK 3>
+		<RFALSE>)>
+	 <MOVE ,TOOLBAG ,PEOPLE>
+	 <DISABLE <INT I-CHASEAUDA>>
+	 <SETG RTHIEF <>>
+	 <SETG CHASING-THIEF <>>
+	 <SETG TAKE-BACK 0>
+	 <SETG PR-NUMBER 9>
+	 <COND (<L? ,SLEEPERS 20>
+		<SETG SLEEPERS 0>
+		<ENABLE <QUEUE I-STEAL -1>>
+		<MOVE ,TOOLBAG ,SLEEP-CHAMBER>
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL
+"\"It's a good thing that little thief gave the bag back.\"|
+\"I'll say. Let's get some more sleep.\"|
+\"Okay.\"|
+\"You're not worried about leaving the bag on the floor, now, are you?\"|
+\"Nah. I'm not worried.\"" CR>)>)
+	       (ELSE ;"THEY WERE ABOUT TO AWAKEN"
+		<DISABLE <INT I-STEAL>>
+		<I-PEOPLE2>
+		<SETG PR-NUMBER 3>
+		<SET-GOAL ,PEOPLE ,INNER-CORE>
+		<MOVE ,TOOLBAG ,PEOPLE>
+		<RFALSE>)>>
+		 
+
+<ROUTINE I-PEOPLE2 ("AUX" (FLG <>))
+	 <SETG PR-NUMBER 3>
+	 <SET-GOAL ,PEOPLE ,INNER-CORE>
+	 <MOVE ,TOOLBAG ,PEOPLE>
+	 <COND (<AND <AUDA-HEARS?>
+		     <NOT ,FED-UP>>
+		<AUDA-SPEAKS>
+		<SET FLG T>
+		<TELL 
+"\"I really needed more rest than that, but it'll have to do. Let's get on with what this.\"|
+\"Okay. Just give me a second. Where to now?\"|
+\"The Central Library. We've got to get a little info before we can pull the switch.\"|
+\"Oops. Almost forgot the tool bag!\"" CR>)>
+	 <COND (<ROBOT-THERE? ,WALDO>
+		<SET FLG T>
+		<TELL CR <GET ,INTER-TBL 2>
+" The mobile objects are resuming their normal positions and are becoming active." CR>)
+	       (<ROBOT-THERE? ,SENSA>
+		<SET FLG T>
+		<TELL CR <GET ,INTER-TBL 3>
+" The air is becoming charged with ionic activity as the creatures stir from quiescence." CR>)
+	       (<ROBOT-THERE? ,POET>
+		<SET FLG T>
+		<TELL CR <GET ,INTER-TBL 5>
+" Like loaves of bread sitting on a warm oven, the Creators rise." CR>)>
+	 .FLG>
+
+<ROUTINE PARRIVE3 ()
+	 <ENABLE <QUEUE I-PEOPLE4 3>>
+	 <COND (<AUDA-HEARS?>
+		<AUDA-SPEAKS>
+		<TELL 
+"I can hear them talking, but I can't make out what's being said." CR>)>
+	 <COND (,PLUGGED-IN
+		<TELL CR <GET ,INTER-TBL 6>
+" Humans querying the CLC regarding proper replacement procedure for you. CLC is responding with the human access code for reviving one of your clones."
+CR>)>>
+
+<ROUTINE I-PEOPLE4 ()
+	 <SETG PR-NUMBER 4>
+	 <SET-GOAL ,PEOPLE ,HALL-END>
+	 <COND (<AUDA-HEARS?>
+		<AUDA-SPEAKS>
+		<TELL
+"\"That information should do the trick. Let's get the replacement.\"|
+\"Yeah. Sounds good to me. I guess that person really went over the deep end, poor thing. Sitting in that capsule can't be a lot of fun.\"|
+\"Well, that's the way it goes.\"" CR>)>>
+
+<ROUTINE PARRIVE4 ("AUX" (FLG <>))
+	 <COND (<AND <IN? ,CAR ,HALL-END>
+		     <EQUAL? ,CAR-FULL 0>>
+		<ENABLE <QUEUE I-KILL 15>>
+		<COND (<AUDA-HEARS?>
+		       <SET FLG T>
+		       <AUDA-SPEAKS>
+		       <TELL
+"\"Let's get into the car and get this thing over with. The clones are near the end of this tube.\"|
+\"Sounds good to me. This place gives me the creeps.\"|
+|
+AUDA: I hear the sounds of the people entering the car, then the whoosh as the car takes off to the east." CR>)>
+		<MOVE ,PEOPLE ,CRYOUNITS>
+		<MOVE ,CAR ,CAR-AREA>
+		.FLG)
+	       (ELSE
+		<ENABLE <QUEUE I-CAR-WAIT -1>>
+		<COND (<NOT ,WAITING-QUIP>
+		       <SETG WAITING-QUIP T>
+		       <COND (<AUDA-HEARS?>
+			      <AUDA-SPEAKS>
+			      <TELL
+"\"We'll have to wait for the car. We can't negotiate this tube on foot.\"|
+\"Fine. I've got nothing but time.\"" CR>)>)>)>>
+
+<ROUTINE I-CAR-WAIT ()
+	 <COND (<AND <IN? ,CAR ,HALL-END>
+		     <EQUAL? ,CAR-FULL 0>>
+		<DISABLE <INT I-CAR-WAIT>>
+		<PARRIVE4>)
+	       (ELSE
+		<SETG CAR-GONE <+ ,CAR-GONE 1>>
+		<COND (<AND <EQUAL? ,CAR-GONE 10>
+			    <AUDA-HEARS?>>
+		       <AUDA-SPEAKS>
+		       <TELL
+"\"Man, I just hate the way this car was designed.\"|
+\"Yeah, well, join the club. We'll just have to wait. We can't go back to the surface until we've pulled the switch, anyway.\"" CR>)
+		      (<AND <EQUAL? ,CAR-GONE 30>
+			    <AUDA-HEARS?>>
+		       <AUDA-SPEAKS>
+		       <TELL
+"\"I'm getting real angry. How long are you gonna wait?\"" CR>)
+		      (<AND <EQUAL? ,CAR-GONE 45>
+			    <AUDA-HEARS?>>
+		       <AUDA-SPEAKS>
+		       <TELL
+"\"When that robot gets out of that car, I'm going to dismantle the little bugger.\"|
+\"You'll have to stand in line. My boredom factor is real low.\"" CR>)
+		      (<EQUAL? ,CAR-GONE 75>
+		       <COND (<AUDA-HEARS?>
+			      <AUDA-SPEAKS>
+			      <TELL
+"\"I'm tired of waiting around, man. Let's go pull the plug and get this thing over with.\"|
+\"But what about the clone?\"|
+\"Forget it. We'll put everything on manual override and take care of this later. Too many people are at stake here. Okay?\"|
+\"Okay. Lead on.\"" CR>)>
+		       <SETG PR-NUMBER 7>
+		       <SET-GOAL ,PEOPLE ,CPU-ROOM>
+		       <DISABLE <INT I-CAR-WAIT>>)>)>>
+						       
+<ROUTINE I-KILL ("AUX" TEMP)
+	 <MOVE ,PEOPLE ,HALL-END>
+	 <MOVE ,CAR ,HALL-END>
+	 <COND (<AUDA-HEARS?>
+		<AUDA-SPEAKS>
+		<ROBOT-TELL
+"I hear the whoosh of the car returning and the noisy talking mechanisms getting out of it.">)>
+	 <COND (<ROBOT-THERE? ,WALDO>
+		<SET TEMP ,WINNER> <CHANGE-WINNER ,WALDO T>
+		<ROBOT-TELL "Sonar detects the " <>>
+		<TELL D ,PEOPLE
+" are holding another thing like themselves between them." CR>
+		<CHANGE-WINNER .TEMP T>)
+	       (<ROBOT-THERE? ,SENSA>
+		<TELL "SENSA: Sensory inputs detect a third life form." CR>)
+	       (<ROBOT-THERE? ,POET>
+		<TELL "POET: Here come da clone, here come da clone." CR>)>
+	 <SETG PR-NUMBER 5>
+	 <SET-GOAL ,PEOPLE ,CPU-ROOM>>
+
+<ROUTINE PARRIVE5 ()
+	 <TELL CR
+"As the door swings open you are blinded by intense light and incredible
+pain. Just before everything overloads and you fade from existence, you can
+make out the shapes of three humans, one of them holding onto the door of the
+cylinder, another of them looking exactly like you, and then everything goes
+dark." CR>
+	 <QUIT>>
+	 
+<ROUTINE I-CHASEAUDA ("AUX" TEMP TWINNER)
+	 <SETG TAKE-BACK <+ ,TAKE-BACK 1>>
+	 <COND (<EQUAL? ,TAKE-BACK 1>
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL
+"\"Give me that, you little devil!\"|
+\"That robot's a thief! Let's get it!\"" CR>)>
+		<COND (<ROBOT-THERE? ,WALDO>
+		       <TELL CR
+"WALDO: The mobile devices are waving their extensions madly. I think I'm in trouble." CR>)
+		      (<ROBOT-THERE? ,SENSA>
+		       <TELL CR
+"SENSA: The air in this area has become highly electrified, charged by the creatures." CR>)
+		      (<ROBOT-THERE? ,POET>
+		       <TELL CR
+"POET: I believe the Creators have caught an extension in the cookie jar. Better take it on the lam, and pronto." CR>)>
+		<RFALSE>)
+	       (<EQUAL? ,TAKE-BACK 2>
+		<RFALSE>)
+	       (<EQUAL? ,TAKE-BACK 3>
+		<COND (<SET TEMP <GOAL? ,RTHIEF>>
+		       <SET-GOAL ,PEOPLE .TEMP>)
+		      (T
+		       <SET-GOAL ,PEOPLE <LOC ,RTHIEF>>)>
+		<SETG PR-NUMBER 9>
+		<SETG CHASING-THIEF T>
+		<RFALSE>)
+	       (<NOT <IN? ,TOOLBAG ,RTHIEF>>
+		<COND (<IN? ,PEOPLE <LOC ,TOOLBAG>>
+		       <MOVE ,TOOLBAG ,PEOPLE>
+		       <SETG PR-NUMBER 3>
+		       <SET-GOAL ,PEOPLE ,INNER-CORE>
+		       <DISABLE <INT I-CHASEAUDA>>
+		       <COND (<AUDA-HEARS?>
+			      <AUDA-SPEAKS>
+			      <TELL
+"\"Here's the toolbag. Looks like the little 'bot dropped it.\"|
+\"Just as well. Let's get on with this.\"" CR>)>
+		       <SETG CHASING-THIEF <>>)
+		      (<IN? ,TOOLBAG ,IRIS>
+		       <SETG RTHIEF ,IRIS> <RFALSE>)
+		      (<IN? ,TOOLBAG ,WALDO>
+		       <SETG RTHIEF ,WALDO> <RFALSE>)
+		      (<IN? ,TOOLBAG ,SENSA>
+		       <SETG RTHIEF ,SENSA> <RFALSE>)
+		      (<IN? ,TOOLBAG ,AUDA>
+		       <SETG RTHIEF ,AUDA> <RFALSE>)
+		      (<IN? ,TOOLBAG ,POET>
+		       <SETG RTHIEF ,POET> <RFALSE>)
+		      (<IN? ,TOOLBAG ,WHIZ>
+		       <SETG RTHIEF ,WHIZ> <RFALSE>)
+		      (T
+		       <COND (<IN? <LOC ,TOOLBAG> ,ROOMS>
+			      <SET-GOAL ,PEOPLE <LOC ,TOOLBAG>>
+			      <SETG PR-NUMBER 9>)
+			     (T
+			      <SETG PR-NUMBER 9>
+			      <SET-GOAL ,PEOPLE <META-LOC ,TOOLBAG>>)>
+		       <RFALSE>)>)
+	       (<IN? ,PEOPLE ,CORRIDOR-4>
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL 
+"\"Oh, wow, look at that! The mist is coming up through the grating!\"|
+\"Yeah. What's below this room? The Maintenance Area?\"|
+\"Yes. The cooling system for the Filtering Computers has a regulatory valve there.... Maybe that's what's wrong here.\"|
+\"What are you talking about?\"|
+\"This acid mist -- it could be what's causing all the trouble. Let's get back down there and turn the wheel, get the cooling system rerouted.\"|
+\"It's worth a try. If you're right, we won't have to pull this person's plug.\"|
+\"Well, let's go. We're wasting time.\"" CR>)>
+		<DISABLE <INT I-CHASEAUDA>>
+		<CRLF>
+		<COND (<IN? ,RTHIEF ,CORRIDOR-4>
+		       <MOVE ,TOOLBAG ,PEOPLE>
+		       <TELL <GET ,INTER-TBL <GETP ,RTHIEF ,P?ROBOT>>
+" They've taken something from my extensions!" CR>)
+		      (ELSE
+		       <TELL <GET ,INTER-TBL <GETP ,RTHIEF ,P?ROBOT>>
+" The bag is melting!" CR>
+		       <REMOVE ,TOOLBAG>)>
+		<SET-GOAL ,PEOPLE ,FCMAINT>
+		<SETG PR-NUMBER 8>
+		<SETG CHASING-THIEF <>>)
+	       (<IN? ,PEOPLE <LOC ,RTHIEF>>
+		<SETG CHASING-THIEF <>>
+		<COND (<IN? ,PEOPLE ,FCMAINT>
+		       <DISABLE <INT I-CHASEAUDA>>
+		       <MOVE ,TOOLBAG ,PEOPLE>
+		       <STU-1-F T>)
+		      (ELSE
+		       <COND (<AUDA-HEARS?>
+			      <AUDA-SPEAKS>
+			      <TELL
+"\"We've got him now. He's cornered. Let's grab that tool bag and get on with this fiasco.\"" CR>)>
+		       <CRLF>
+		       <COND (<IN? ,TOOLBAG ,RTHIEF>
+			      <SET TWINNER ,WINNER>
+			      <CHANGE-WINNER ,RTHIEF T>
+			      <ROBOT-TELL
+			        "Oh oh. I feel something wrenching the " <>>
+			      <TELL D ,TOOLBAG " from my extensions." CR>
+			      <CHANGE-WINNER .TWINNER T>)>
+		       <MOVE ,TOOLBAG ,PEOPLE>
+		       <SETG PR-NUMBER 3>
+		       <SET-GOAL ,PEOPLE ,INNER-CORE>
+		       <DISABLE <INT I-CHASEAUDA>>)>)
+	       (ELSE
+		<SET-GOAL ,PEOPLE <LOC ,RTHIEF>>
+		<SETG PR-NUMBER 9>
+		<RFALSE>)>>
+
+<ROUTINE PARRIVE6 ()
+	 <ENABLE <QUEUE I-STARCROSS -1>>
+	 <COND (<AUDA-HEARS?>
+		<AUDA-SPEAKS>
+		<TELL 
+"\"Let's play this game while we wait to see what's happening.\"|
+\"What's it called?\"|
+\"Starcross. Looks really good.\"|
+\"Okay.\"" CR>)>>
+
+<ROUTINE I-STARCROSS ()
+	 <SETG PLAY-STARCROSS <+ ,PLAY-STARCROSS 1>>
+	 <COND (<L? ,PLAY-STARCROSS 200>
+		<RFALSE>)
+	       (T
+		<DISABLE <INT I-STARCROSS>>
+		<SET-GOAL ,PEOPLE ,INNER-CORE>
+		<SETG PR-NUMBER 3>
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL
+"\"I think we've waited long enough. This person in the cylinder isn't all together upstairs, if
+you know what I mean.\"|
+\"I do, and I agree. There's been more than enough time. Let's yank the fool out of there immediately, then get the replacement clone.\"|
+\"No way. Procedure requires we get the replacement first, and that's what
+we're going to do. Now let's move.\"" CR>)>)>>
+
+<ROUTINE PARRIVE7 ()
+	 <TELL CR
+"As the door swings open you are blinded by intense light and incredible
+pain. Just before everything overloads and you fade from existence, you can
+make out the shape of two figures outside, one of them holding onto the door of the cylinder, and then everything goes dark." CR>
+	 <QUIT>>
+
+<ROUTINE PARRIVE8 ()
+	 <STU-1-F>>
+
+<ROUTINE PARRIVE9 ()
+	 <RFALSE>>
+
+<ROUTINE STU-1-F ("OPTIONAL" (LONG? <>))
+	 <SETG ACID-FIXED T>
+	 <SET-GOAL ,PEOPLE ,REC-AREA>
+	 <SETG PR-NUMBER 6>
+	 <COND (<AUDA-HEARS?>
+		<AUDA-SPEAKS>
+		<TELL
+"\"Hey -- Look at that! The pipes going up to the Filtering Computers have burst.\"|
+\"Yeah. Maybe the person in the cylinder isn't at fault....\"|
+\"Hmm. You could be right. Let's fix this and then see if things return to normal.\"|
+|
+AUDA: I can hear the sound of metal, like a wheel turning, and the hissing
+stop.|
+|
+\"That should take care of that leak. Let's go up to the Rec Area and wait for awhile.\"|
+\"Fine.">
+		<COND (.LONG?
+		       <TELL " Meanwhile, I'll get our toolbag back.">)>
+		<TELL "\"|
+|
+AUDA: I hear footsteps as the talking mechanisms walk away." CR>)>
+	 <COND (<ROBOT-THERE? ,WALDO>
+		<TELL CR
+"WALDO: I can detect the large, circular object high overhead turning." CR>)
+	       (<ROBOT-THERE? ,SENSA>
+		<TELL CR
+"SENSA: I detect the flow within the pipes overhead stopping and the acid leak stopping, too." CR>)
+	       (<ROBOT-THERE? ,POET>
+		<TELL CR
+"POET: Here they come to save the day..." CR>)>>
\ No newline at end of file
diff --git a/r7.zip b/r7.zip
new file mode 100644
index 0000000000000000000000000000000000000000..ca6eef2e3a78a614dc18ca6c76249fc09b14bcc6
GIT binary patch
literal 105500
zcmeFacUV+M^gn#=HV{QAHj0W@cimlF1O-t*Ws%-{Q9-E+7O=#wtVU6hhzN>cTgxh9
z2`EJ|3Mc|9*wCmkMvR>#hNwx@M19Z9E+BrB{NCq%p7;Id{oZ-F=giD!&YU@Orrf);
z3l~7k*?!7%s}r1-{!>J00Ha1&T3e0gNH2HKSpxsZE51;n+A_sBQK2%F74V-Zwm8l{
zx?5?NI9d=Nu25xFU7I3|kQgacW=(zYehT7`HuEiB*Yl;)LAIj>HT)RYS~El0DVTky
zgs;zYUQ3V)mHzo39X;Hwo9qpm`SJT7@hx%{D*s=JoQf&4@7N%MNIhs~*wg!#LS@{d
zP+8wC;OozFlSVcb@kw4Yzn@niruTjQlbI-+)NOuJy3j7WnI9SATrc&!VrHo0*Ykdr
zCKa`pB3l1WpS}u}%hdw@;(Ue5#`Sx?v90*R8@}~zg(|*0$h(AZ+_IG)wWi5T|9or`
zX|uG2ln~yM7}Ztz|9a5K<xYZBp}IaLxT(-=hhtoWl?S${?!1dfL}9aUo(*aj8#c7Q
zfNvm;JJHOaee}GeaN=kkf^k86#cV3z+bz1vH@xwTpU~nFB+75*8x%&~v<b@>+JqIT
zjID@{3e{}1iSw;u$Cyp#GP@a=R^y$g?>s5j(D_DQbV-s#p|Y@U<@@F-RQ)^~`0khe
zq~1-t9RpG0(ANXQW6+udB2epzCv`|qJ$5uQvY+*|%1~w^d<b^aO89KHk9$1os^8PI
zB0j8{Z{u5h63l>wK_G-7AO;DT!!WP}E3gJz7zK9V0FK}U&fp3j-~~Pq06`D};Sd3n
zU^2u&93(&z%!Cw}17E-*SOyAM1#2K3GGGI2glyOhTOl8|!!Fnh`=J01!C^QGU&Apd
zfigG=-#{f)Lk-ly1-Jx_a1Cz4Ew}@B;U3(FhwvPJh8NHZFX0b(1AoH@1{f|QV7f3}
znI4Sc|IwBI3&1CtT{zI?K4rMj<qyj6Ku4D{e9#$883E|nQ$`DP0x1KalSml`bQG{v
z4|H|3b#k@4nE@8nISPd70y+)a2wH<FEnT$rV2yj%t^#cY2Lp5!Yh&I_WSj^ynT4(s
z2{XkOx+W230cOo7OeQj!gjtA80bv#)Qw`X6>3yN=x1enXeKF+)bhAXu_vt1enE3$R
zXcY=%Mv{~j$hZ>l+Hue=jHCo%$_ye$VGP}tiZLb147z1g2D3^iGXT0ZY3rbdgP_|>
z$^htgrwq1Qs=ak1<lBR;D`941Ry<+mAhQazEzzeycQ0VuQ$eiz4XIsb4!ZX!GZb`N
zDFe`*+hwC3OaP1Sy=jURx?2)vxFvKSPZ=xd9!ePmCu$=&97c3sN>heG_bq^a8{8eb
z9{>)ZOG5WLZDfM_LHDOb)hVN(``?rS=+Toh`p{!2c8>N`OmPMt3;AQ9M=Y_%SWH>2
zEda<L3q7_1=%EKY^e6`y$gIVzJD{i3OYaRmUXy-Ll{o1cU>3*`Xhrn#b_P8U%D8}D
z0%cr5?@P)cMoF3Rpm$n(ExLrKhu(K2#T`JOp()+G^aqj@PfT%P6qc~o)J;F0r1<-S
zK9%E-S-WY959n8FqlP=dPyfC)+BtU<7@#cxPOk?8Gs*;yG>}jx#M;1(GNE8FlQLmo
zkV%<vFgQt>h~Wk|DKh~K-cn|w%+Q!JlfclCGLc{yMVTltTtS)10}WM_nKIb$0%f8{
z8@{AW4D>XjOf2*qLzy_}8B3XX=(&zE3DC2UGE<>vBW0%9_571EiO@@3JPCT)(3I&m
zy(Um*2J~7+nVHaQ4`pWc=v7CVWa#x1Wm2FwpECK-TTGcbqTW7~nLDKSEXvG--dU9S
z0(uuyW<K<8qRaxL-tQ=rY0#%XWft}9GnO)od-YKpVF~nEN>i3XpPiIh27MYRvmE;T
zL77zOiw=#Qk|XacqRfi^eLX0%(xmTP%6tiZ^C`0m`j%5>HT1nrnKbD8kuqz*h^5S0
zT_YFDtn)TXqD(p%ZJ^8!N2BAE3Cb|K*+rqZay@|2Bf?Z>fiX@`^fH!F%)*VvW3&}|
zicCW=o=BL=Y%pF*m|OtkT$-{4jMcuO*lc{0q~u`MOPZAjChFb^+-hP+O9g<*G@7*?
zOw^q_dz;BVl9De3lk+rd7nnSuwZl$R1{G860Dn_4VJZv3)Pqb-XLf^W95Q-m_JHX^
znz9#6(<!qLOm|U61*XN6*$<|blsN#VS1D5frp=TAFnvQACG^t<ZQxWMf_?+EwHc^9
z4E-EPR^<`s=T4cU&@Yr&r}As)M{0-4BIuVwnPTXdN||HOZ!2YvL%%~5Tmt>dX-X;d
zqqSF-L%*M>l>z$wO))2+KV5DrPeOm3E>Lm>^zTQRQ_x>ZnQx%K4P^lOI}!#Ux4#D=
zm0um~@1^w~=O#GQKZ;}E{A|-WU{b8VwevMk@|4zCN+zBLj^3l1^iPxLSV<=4lH{$q
zpC)?@mrR@u90OiW+Na6ZBP0{OfTPd5n*C|=NE^vSArW$Q*Qd#&Y$X#u0>^Oh_nm~;
zjh0NfgF@o2=6s5tYcH8_9C#M5{mgI=B_vr684jm)93&II0<M1Cw5?e#<3Ou*)b!D>
zMy(my*YnMoBa#V`;t8vP7x=^{ox9<lOY8XS)&X*J2P^X=Hfg+zlUx#U6F37Ro@BRL
zTR04IJT?3W^CYgPOMtT^B3B$y30(Jjo2CNQSQyx9Z{%P#X2z%u=81nLxlMH4CW)9T
zj>rVwoLonvzP}O7@FMv(xudPO)cu(xLJnLDQJmJnQLQ5ek1)4gHacC$R}x_;ju;Ib
zmx+aMEbY!n!XJwxx&lX7TgSH?xmFTh30nF`W340Wjm-=Sh2f8`SvnL*uX{+s^FT}Q
z!pz%&A7HaY8Y`+%k&LD}lJL2pWhfnZe6+xs7vf=VlrJP1H)<r|KET&+5=L^`#oU}L
z2_FKy{;%ahT-`$Ram?$KacdlYmoD~{gfqZ3tsftvm^2QwQ>+6<JWJZ=z1T|<b{Chl
zchQA|wVJSXJzGZ{w9d7!wwajj=ezHOk0k7fIIIb{lP<e76{#%8)JekD0JmSzz`|x#
z%81b;93^4V!13MnL7L)VI>ui5CRq|@5B%tR@t)q_^jO)dva}A67WqrUdI3jw&s~0s
zgO&A6ooABJUx5=Uy6f5M@N_IY+<1(RdE#uHH<Hi`Sk^r-k!xx%E>X40zZ&t!i1#BG
zn<qv|YXT&p+r**Oz>7Z`X%@TTv2LgAIhZ|D9GVS0*{#@)?2(H{yeFmSV)i(3Xgu(U
zc#ia!FiX2~^TbeTO`s%HUmR-70$(i|yX~<iZ%&XT<e@mU3kw3Z*iZ8221`Op#UXcD
z;L-7vHx}w!#|PUxjM_WmEAvDX&#=%CNyr*;$dUiZju3~W{ztaCI3xhL2|3PMd8>;?
zFg6qAXUr2B&j}IXk`O-dW34AOh_(B^XpCsJ_OzMkU^U`9^J%}NPmYS5G*J?KAGl;d
zC?;VKm`^LynIZ}H0d9X03+q?Yqyn92N$?O%vJ-P?KbcP}(20=*Gr$@Cx+!Ta^hz1^
zqm$>*Y2TVp`$iJHOdR|LaAzNlcWf^oD+#&_+>j>6j`DGmpi<xtZ;?)EN5xBmGJ(4&
zz;(MumjayxNl@ZH*Rod}d;vI-9vWzo&QwXzc;J{_FMQJKG<jU;$i<E&=F?m*&YbaP
zdQ##vNsyK}NCrH^Ro3bH&NZsm@nz$8J6NH|Op|%0B+rrr-Vq1l>_gloW$b$SS0w$+
zv)PhBoMeb6FcvtPMy}AQkpzAz4m`x-rjYuVuoj0Orq7WC28jcgu)tM&KwJ7;N#G!H
zpce}`s%H9()-O=Ck{+;LVm;4%>gA-$XV2$J0$zy&O@K4|7G{pWZr5aEg*`EKRr;xg
z3+8_z31|cuhdyKPU=uuY@hErmsbSK^izETN!~y4V0<@m19s&+8Mseg{S$}Ijb%b>3
z5=lU^I3O3eW_5N+k8rrgwOUWM-e~QKbKTT_NzW>mFOvj}69?c<wbeescG;*(lF_s9
z%aw0dC{iT>`r-gvQfrUa@!2@feLr4mo^ZAB$eQ}J)vF}_55)mp(A_qZnS;!8PD@5l
z9k<3j;cVgQ^>yj%)=K<Oqg<OBCo`L;jspufeDyBlNQJ~dQ|w=g6M2nNRW!N;rS3CN
zm{FL$DQn~LOo@M@*dOPI_DrXFBy(%-md(d=B>whd{}G>N9w(W3#}6Ml^j_l67yFxk
zlIbiXnfYa>P8=_l_}v%#-TEZcp_ycEFDgF1?U=;xpxEyU2uSZ5f8h3Hb%>$(t&U5_
z{xvdc%t!O2@t$K3)kr4Th$qN^Gw|pQRjYNqb@j-_V|JjFi+gq}ckSG9T;jJx?6+Ip
z=`m}oBQzpjYeXcK&2=0niFhxbfJ@#dGMr`-83hOStM=_h89rjaxxmwV)OV`^uK=eA
z<06}hBYF>iY@QJ3S^4Im#BT^NSAT7_uC}fpxp-t1DSPDj;WzIO6-s>Hiv0$BlI!#>
z$vt+wxaiH-M<u=&#J<0Es@YjY@=uhPohmIkF7e$a_N@jESwqKyUh9Y+4jJ}`N1il~
zf0TZy@l?f0iSHL;-<i0g?(^T2<<e@SHF~K{KFQydUR8PK^fwY;E3t1Fnz*o5XgS&t
z1p0jzXGmw6@$e0Z$|%Ir=5+T1BHuwm2pWtNr?%dUKx-?qpo#kDnpodIZxWJXmu8pR
zeV<OX$hVgeLI_GgP$R1Jdq%z3pKBUq9BdS7X_G+^S{g(b!z7z}7e{@m=`F`Qqr&xW
z6`VH>u`6!19BHp}R^;<m2%#uw5WZ{R>0Jxi59_n|M&XvWo4Oy+xhnGcNeE$saR3Vp
z%I#bySLy2-&n*<1h8aazS|9gS?LDY-PULe>2;l_7(`$*V(vMTBOv8;Q8BIVL7W)q9
zToL(P5kdq3Xc_9T*@JH_<PF^Kn^dDRjWC+nCZ<N@Q!RuERE&O_rz=szbb|gQwIY{A
zKF5VHQJw1=Yo;HxPh}Ee9NBZCL71hjMCZK7M<s+wm_G=g#svC;nPI;9Q+QE1^(vD|
z#tD|z>&)X9i+t7#AyR|UHncTfXm6(9)6X{0jM&5|+R`Smdx6e9k<T(AM3XlUUG&e0
zUWaCn?h9)J7e!@3+C5jJ7>Y8Fx7PVy<dZCf7y{HbOgE89n?Dg2+YWmu@`)BgEP?S2
z^_HZ$f_~aXSJNny7|T&}%;UT3)QWt9)D;e5+A(@9kItJ;Hi<QkwjANBLAj`F`xJHU
z=6=&D#xX{5mcs)zC|h-9YLs;_FZlM9h60sotYN&RL$*$x$VVcCIMikkD6mssL^oM#
zAchGBaRgE?@-Y!Yd>h12H}EaC|Ig9Z->Xa_jlVF6NB`=+&phsf&IOV8M<FCoi*CeS
z(|%V6lPc0Rriu0k9*};yEAswL2vezlO#!}vMgJ%0Lp|@gm?T=-EYP_q@_s0UMC!+y
zyr6_9jXI{&ji(t+wY0S*h?{D}Al!ay8MxXlk|y}*K-xf^hkWDdmR7CiaX;%^5_z8#
z!gMM}t%cs7#?wkvrZY^Ej1nzJoFR%FQX_~QfkxGyQAyvcOlKO;GMa8_vzmZ*2w?`*
z7Pl^j`jQY>Ykhr3m~pbv3`^_7=5b9r4I=MMA<P^Myg~TZflCB!J8zn7GQ&7U<h?=&
zvuJ4?FM9RyckM0Af%ulmOyg9eS(d}QiM;0uA(<9t2xMUR6rS}px3o7ZlUc^gjFwuC
zYSn2JdB+POWiW6D;TDNc#*{%z@MTnVj#0klSWEM`l{lunJ%liuj0Zj)w7Js#6^~8l
z8qG#P_dNu1Rpf0iggFEv&};Fr@KG4-j};WV7|qe2N4oh3k+)0;b4k9IVbAF@@$EQ`
zBlMiB{{=x@6L}91!n{t1aY2JDuE(1s7%%BL&(hA3VDyFX1!Bm+<Lm4A*&5@Zy60lL
z$Yi1M0;9|n>z}ZrABnuVLYO}oS9X5eKK(1c$^4#~28%2mzSg-e^7>r}3uwM(SI$+c
zjOQC>>eKuiBCk6_SV;1@WOJ^VX1dsDe$R!53rOjkBCktASVVHQ4D#c{AZyg0#vjOV
zHC<w~$kOh-&bK13(?VEG5N&<`&c~=Cds3VSn0#TJX0#X^L+locPT=*m5SAcx5cC9r
zp?=^|ABARmO^HA}aes=uCGy%Wgr&5jcx|p=l487E<drRiWi*}Bp1#cZOOe-VAuQLV
z3k(f(onu2n$3pJ)O(x04IhOJeoi`${1wu&GIEc2Pk@SVjeG`kWIAOZC;P_i%w|$Ax
zm*|Q*w?$s~V5n$A>Py+|xa)Qa@n@${k2T3LRuI@7k(ZAUR%l>6eW{Up?);LB&hJEC
z<AktMqYzI$D6)m73X|o=D=p<Y#1>XU_)-JVZl4Y}1<p#yZB`lQTH5D!SDMFq;$-NB
z>sBr`uzF@S2==*i{f(&x5_1?QRxez%)DX2ps;z3W#Bd$j6dlqFm#j2u_`WzbxoUNo
zXNS>RG*9>a=Fu;7?u$IJFV~Q&v<!TOR$^Y86;0Qeq*Itqv&a)WaV=FxuW2|szq&5N
zT!S>ye+P6Ph&-|L*3sIuv73!eJH+fTR@bKUqsS9`at9H^Gjtxzo9b4eGErELv<9w0
zVPG+Na*b;po#kL<^R>N$`Q$h0&!0Vg@>t^OA@)obd&-A^);|IxrmBG?pJ(Xc&%;kY
zMwv&f9fE5FPyMut4nE&tp+0r*CXv@uA!HIQIEG)HdW@A8ja@aqX6&-=hs-1FrLS8g
z9*ts;^FwgD_y@pL1kfyll0&#}A!Wx5P?r^X{`~qUiN`LnNA3{d<4cMEftX4VB#);b
zlt71+NviP*OWUy`uS6l_X#9$!_uanp#1>;$4ZkpUnd5$<n111Jt-ro_{foq7w%8*P
zAE5D}>>prLH827YXyy-HW4FS`Caa8h7_Bx~mtuW*R3R=nQ?B7O;)%n9xX>W-F3C{m
ziU8jhV}r&;(gub9Eq(b~;$biLh{k8Ie*i>GMF7d-(>;cI)}(VLE@&%tE{nXwgpf~W
zJdR=7d25ZOUDd+Bm%c*bx?+zJL;ewf!e60qoNv|J0rdzl$u(YMl&&5qQ|{|L6nWw#
zKwXNXf9n)qU4>l_brqYXzrU8a-xquEaSw|d#m@m)#qU@J&VruV_P8Jy+2`7aJ6*wt
zd^dddixpM8X?6TT-ox%I$Hx*ke8h{D-cS|EwH<GbY%w49kihx@XJl4^s%VV<=vfYz
zFvayx@-$U3BW3&@>w6N{Yrw4En&Pz5I$Y-uiR)gmD?T|2-R|8k8tG)`Huk8*br}eZ
zZZSQ5EaGqY;M<E78|iRooj)b6xUVG}V|=q@<3q&aLr8Q(gQ{rUiE))yA3Xnh_g3P{
z7rUB+V9+(YL}_z?cGCVU!d815`}%Qy<CmKc`%2<+ADDG~OWS2Se@k3W0(YP<eLrHo
zQ{s{hoRn)ds+92)$Hz!qW&+2;`ubx_+t(5oH{h_=jp3HoZzV29VtkLq)8?_8!XgUa
z6xnXF&9gDpc`tGPN$jGJGw}lBl=Dp~qi&3nOPo)OogZQ^zy5)5>1-`=&ILiJ$R`3H
zZj2)ncDq>G#OQpGI46poGeIjUQTlUKzK<EZDOCDeWogq(=cB~gUhEu=uW*_~n-rm~
zcKzhvjTVm{1Dr6O=hoO3;JU6g!Id(_o@e(SpS>H(g(+jFjl$;|7q3UEBD<pDKM#Kg
zT+tJ&4UMZUN8SXk%kB7}iW!!6_zuS}a7UQs=yy09;A16N+D{&apQu#I0LUjM9amHy
z;iJ}x=8F<U;ZaLO?ol(NCPxKCxkTAVnMWB#=|(Y;zeL`R^olf@^yj3eNvV^pCK*nA
z7*Q8|EeKzA`cC%A^U?LL^L*?1ljl9pE1uP!BRpOSE8MTSuW?`Cp6EW&-H+7ZE_b(e
zm$?sc*LUyY_7{Ngu-h+RehJ`)pCf^m+ZDHJx8rWRg!_cs37TBOQG;&`P8r;7P=Pv*
zyG=zK_bDB;a8TSJ|4&m0&#oPaANzcE;nw({FSjiG9JB|1K1!|<D4`#^;3x1nXK~df
z%=)9A_%@kd{V|on62qZCey$2_800>!L13l_V8$b<1OC8IV~69P4t^f{=@o|&{ULf*
zF~ia<=i#UPJ7F7s+PWDw;U}*dsU;XnQ_E9NrhbFdvMmj+Sm$u63yy89nTI+GP}Bdt
z{y(t*et`S`tBW}3|6c!Vf&aC@Cl=tQ{-R(MxEWCNSBy|N;r#pQ)j8IdLsy2GxFTpS
zbsTq||F6c^3G0Qoh0la<MB1XhBC%-HXS#mAZhRIW5;|ncki|n*4cRb6IizsNH$!TN
zTpjY=ke`Qq5RVdjii5?o#0$mw;(g+8#m~eqCEX;wCDSB}B^i>Pk^;#wNrU8DNwcIy
z^0&0Rw69bu4VFep7fLrtzc=q~Ze~8*JlK4e`Bw8n^9J*8&6~~N4do3L4OI+HA9{G`
znW49b{y6mY&<`?8nVrm8<|_-ACCQe`HpsThj>*1})ykg9-dS|B=xs5|!pXwhBFbW#
z#bS#bi~SZ=7B4OS9wr#3H_Uk0&|xEoIS%t27CbC!*tB7DhAnMdo<{+fc~1>LN|Q87
z(+%_6m+&vzxp~0h0EN%xz*_>G+nzTEI2s9faE4y9+w)S|xny7vH2@dvZba4_fGU_p
z%OP!-fG3IQH50U$kCdCiyaN-k#A79YQL4xMM$@M=A1F0rs5)S#(IE+C{e>rqEFlq7
zC~ena8gMyy1`G41QVl4@YLHUxh`<QoaX_8Myux@ZSWr8)LIld|jwuNmtTn`gfYy2z
z;y8G+3(i7UY9&fhElN?%vzC~TEk=s%S6{Kr8{EbK#8PQ}@f}GF(T+AMngg#1%1P6v
zXo~597Mlz@Xb&=kreG_Lks4AhF$c>Sz!Zq$z$-$XIPfQpqxPoQ!XC_@lp3SGNW44B
zHo#h)&|Yc_Mv^M=iln_kET@b5^zCQ)QWsO`0RWh!@tH~O_L|sk-3dhhRwBWZ>I53g
z5u1{}2W)$IJ36eL3nl(Q+a025ZwN`je&Rr|I)@Y7USAMJ>tjWMh^7?y8twcw+WDhx
z$mP$V5WE7gh2)T(Kb6uKIX|K+ZIZ7B>#M2Tw|!jrFzV9}KAIdKa>@>Sc_nyr@I0TI
zVz1KpFO*{a)WfMA($Eg%;Uf)9saK>yKRR~Opetx;YWLy*RTZhmawrHd4~+#qG%fPb
z=->eiTBLtJ%d^hdC)7#EnJap^1CN8J4DoW)j8Qku7;?k*6JK$|w*95<b&bVcHF8~n
zk7W$eG%l#ChJG;W)7t8SC5%ux7erEu_J4=H)mr6DWgsQ>(!n|&eU2E~iE3>L<EV6`
zL~H8*^7ejoBt1Y&jnmlT6SPLFvB1-e@-dp86l#2Rj0Q0Vy0+zT-k?^m!GZHuO)2s<
z3}Swz*0E=(fx%8=(Lox?gK!*@axBg(#73hjnovy@c!ZQkF#xujx@<Le#m_70WlKj4
zVNKNuFcK~Oj?O;1n)+-sGHj>?`s3)brk+gtas*aIQbx2}XE@F*WcC5D()6;GrsY=5
z@0xUUMUqeNgtqBx+0G3^d4JM;i}p19SWyFPdkP*(^gvzp(#%PZ^i9)~wqqn3>5_KM
z#H8Qe^aBM9(a0G>`~VX~?HFNuZTMnKvu?1|4x~TGY(uD8G=8eB;Rb5z8rYs<rb)q%
z8WGbIOZC^t`(!L}00$Y4DJliW8pZZPk2Rqjnd^*EBAH+;!AN68BRY<HV_IKYTYu#G
zXlm<2TKKk4-&W|2x>Jg>`=G?$#8U5#FsB!$kkQbqeYWU{<AnGRnP<p_A4_6gWaT0=
zEujYgV<r2WruRV0ko+F)`gU(0<+_CXH~{5!qa2Zp=XGdX@jNbx;?<?y-rDV)Ry!wX
z=lJa$ubm^0@#>4y&f)1~O&Y-XQ2Amf2PcV>wcI<fzx+U`kKa<ibQedz7hd<>FZn8b
zkNaNsJ?ftjXz%7VeuYO$h=Wg-#}JPM*Jb`Pk0jq;JhXg&bA0JFChV{uxDIf6?@<zb
z$TiS)foGs+tkZ$eTT8+`8LvlPJN(MM13Y~_b_c#3d&NuYH9E-9_jj-NZhr;#^xx?0
z>K^7j)b%^BJnt#qN4&Ls?}zMjk$G2oz3}@!$S!Dt=lf8t;K$w^w?l3xeP%eV_4M@F
z;@{inm@|G-@2m8C=NB1V<eC+d?3EL++kKZ$xzl$}Q9%oWCwo2jp5Pnfzsi51-;O}n
zz$JnE+ne2qaiNFa+)Fzpeil(<NTTBtb(YI*mwSYB6}tMUQ$D|Y<abVSt0(dC4*|Tp
zb<X)b7JT~il>bNZURKZHCu;}zdH68+#g2g&BZkATPSwyld>8ySsz1DR7zeLLg~DsA
zKjC+W)$oVI0{C-y3A`D70p5<RgLh6Z;V*}Y@VA2xydU2TADj%}BX_6;tHs&ZvpQQU
zZviAp@}1DzB}c`33BBWy{04o5NLrz<3JK0QuYVG1{{%+bhx+bmWQ_VW_0|3zjQZxN
z6bu*{ol21ZO2{k{v(KL<S0X8VOJk>cvQ1z#z2c?(Ef}R$EY$u5jIQUX<PBhSD@Vot
ziDXYUB8{!EqCddcrsVvdtBf&G;sY2b)ZLdK2jfJH;rck^d=vWsj2HeECf^OlrFG}!
zd%(B_^Ke|_xdL7b82^T%-{Yat+^y`FVEnozQ5)BcKQR#pvL2Fe!2}zo{RT`%=jqD#
z5~3&H2PPg{NmEQbDps>Ez$C5OMg9^@kI?p+p5I6EOzW%E<Xi~rg|TyKB(XsaAx#+$
zrnl~0B#F1HBM7-u>LPyv{X8h7pGPw(-p{8ZQTtcu7qpwkf_4{@#2{4@`vdfg*s9ud
zh3SVf*~!rFMr{UL4gKyEsN_Y^U-VEYFT(?zm}dq3EgFULCg^XyhcCa3q*W!yGo7Pp
zMg8pxR4f)qyC;;ZpnqP8iuVHg?@;IM!s52j|4BtWdmKrlF4m63LjF7SZ^@^^URMXP
zi=qGP$3(LMZac@ayI_DjEk3~ayp(+f0|IXl<p%`b;;YGd_Am^<7O@LqKv;tc^&Ak^
z=)vxX0pZOmHWLO!U?06k@`UvCfXVNh*uP-FdF+Ru!K@fniUhN|iX_Y<Uv^QGa6<6o
zd_wT_7CRlxnob#!7}}bWd$p9@KQDg@W_Jr;k=WzIH19oy4D>zUgoy)#o;+b6!NC3X
zEhM)8GO1|b{s%7dav(=<NbD$W%D@V==g%<k)*dNIytUU?$t*(>z@`8zrZQQJ`p5G9
zK;FY6gtbN~1;A#t1d-ULOF`@}NWLY-*-f{I7qHpbJ{u&eJ2ZB{UCGGV>>~~GGnjbf
z77hzGyV0Hf1IdqB6!OrPl1G;*dGbU}UQ_Z*6dMX`F0~7rdx+0I##mz*$;-WWfsp(w
zLis^pE7a;f*`vdH0^739nteiu9f7=iP{{fL`{7zT#s<0UBPJLWb}xusfCO7q2!q0(
zY(fPGVaLf2A$d${K+?o!z#x@U#g-u1r(%yHL3hIfs>3RFFOnh^y8{MYt4PEGgK_fE
zeg}iE=cS{Y4!(}AQ3yiUeX2d*F+#WeR)mlbTnKT$zKFd8!hn+k_G=IZJ#b-HfiUDA
zF|sgx&kLLcgyBzKqZDBTj@xHIzI{aUYHNt{<Zvt@ICA8NL3q2+O@0K)kp@<U<i;I&
zHHfeu<bNR9CY7HAQO@_IoM<bxl4yGa(NpxKNF{GXQoMoWy|~Pm9|h6t8!GwNNWNW<
ziDGQg2$S>T+m9%@gEEUil7X|$JdiY$OW6cMWUL)XrF(7JGa&VSYQZiCDb8S6T)L?6
zvAh_`_rx)!i|(H%<h%S)ymv?{PGZb_|Ai)Ot$9J=N!}|YB~9}0!TjhWmHZf(mlnRo
zxz+q+VIsSpkcC)a=rx=b(_rYW$A#=Vknw3nGWFCf^W3Mx*2+9<RPtXycImN-wFVh}
zLW5JD?Aqfn_C3g&5K;;<JY|UER(9*5kev&%y9M8{u^_vbqpD)=T8JL0SYNQPKuf#;
z@^KVai(e5_u}hJ>G9|IGXo(YGkyX1LN0mhm`n)|@<YM=~MACYTK=Qx;hMkJ!zLXtL
zh>Z0Bizk=$NnQ)}L5mj$g{%_r8-6P7*GR4iSqB&vh7C)HVd2#0Ew9&~-*cI<ypQVE
zffe!3r(hLNi(9Q$le?IA5{8Q&^4T#k+(JcscewQq7eZEJfmbm6$&aKQl0uUB<j14z
z-!QzTFrLjtax9l5zCdsN3CK}a5_{dEV&{YPwYs!DcNyzz*d4FInwah+Sl?2GVXxS@
z-fLoi1)Biskv0LftK}6KLz|rfn=sldHs`T+Ol&Aov8TZXmq8S5(}cnha{ECOn~da1
zE_)qph-dACky%*7QzWzv<kL(nFcOW-R>H_l>eyyP{s^|cs4&~WeBu+fVKpk8$ZW$<
z^ggh?@WW>Idl-ejE8hyE)gEH!cA^E{+b*Q3ulzLF#bZ~!1-ryUD)uJWCAYL-IlG1E
zZWvp5QcCg`KDvej$Zk>LpIC$4qAP)vT&3lf6fQ#1b}#4}XOA^F|NWP}kgDWRht)QL
z11_Iz5{zj&X2C|lI9x*Hl`t-7uLVjO7etp<c@!-mN2I(8<oF>dj$8TdW|jObIEm1u
zMu5{ioT1NwvkGO_fisH6;?8x~$sFl?fm#W_+33PP1Lq$QvL9SrX+<uszqrV2fP5l}
zNOBHaP2Lbv_x&v;bJ69Zy1=CZ)t(KE%Oy13EpTZlw_t<7rKt)B!ZnxMkAte1^DcLu
zNZEJbx|Y`Nx^|mI6;tb)gId>t>vkOB7r?!~l#Foq%MB{_K9Va^_7b??tMFxWz{7=>
z^KdU|QZlnVJWd6&Zr~A-FJvnSIl}&oq>yOlv9_AbksdhH5>o%eYF0tWR(2(LT-YyV
zo57<A*Tz8bTvH)spMz)CAtU*1@XS7CjRicn;Xt^Eq+$je2A*muUV&&xOYjOqr>zFB
z@Dd{0>vo|z5^prCp(*&Ff`$g*<Gsy-9Sc59I2TMoa!ATXgYRmz(mU|o@F0Lag5*aj
z>x|^#c{T)mvwsO=H-m5PV<Lqd>PMM=5l_|-g5?bLfqcmoV*&BFA$S7;)6wf*Awip+
zgg{Kxeh-03nD;vbE<(@x8v+X(R51sy1U_j@XI&r&#}V&W2*P2n{U?&b$LzNdgeTjy
z{{ZrlJc<s!-P}M389?_S#BHaP&4Lh*L!{b}u!<vuU~!UHdwDg95qG-^p~BXK7z-8c
zc0r#H6`d5an~+q*)5N=;lspbslX;Z9QOPessC1hS?-_)Sq@5aSS412o)DHJOju4to
z-7RzjF3AlLx)Hmh2|}~-U$CVRnyb#+ddh;-*Yc1rzkvk5&fp56FY0fx=a5`n&5nc6
z*SkG&&O$<Ke|_4Woe5z$&EQ%U7WU8+C)_aXMl2pi8g>)HRY>w+qU(L3lG%-f^ut6?
z+$enu6MYW}*%L_6z4KraL4JTqm+3}n(q&xxZ(;0#2O9vBuHPW8G3h2k&LKhNZ$qT(
zZk7BFl6@-qcM$1bNS3Tf_d|Wzw@A)6;fRaG{VrPukpTs_aovmzIO#<oflW#B=MWi^
zcMBJk$dH<PT-72&>dxavJ~HI`TT~)4yx<nwg5=RHc|MXSx$<ogdFDbB`xB5u1w_hi
z^yGSo5~4~U0gn=4`(Be1MVJ@0j&=Y!2g~~jqVkJXY%!8XA-e=7yJ3NQNOlrSO!mdS
z={}eoSl=M8hsi;h_X;MHO-()$+|+DGf}5H=B)F;BiUc<`*)Ro-WoQIb4$_LI6sieX
zY_>zR;PNc?7)0Z7K=}@c?o)7G{wI=(lky)R+6Bw?glN}$x>#Sd`}IV&2BJN&+EOIw
zd`NuXd$2npI)H9pqk~joO2#QVsQEmq8y)mxF8dOqN#C|2X;I<EEP7($B6bu+@2_@|
zH$!ycdE%zgM@o;d8zH)+i99Mqm)sY!7m)lUB)U{!hrfVmGOeK!cwB`PXt-QL$TbwU
z4WjR04f`SbUhW1q4#{Ir)}Ig+I}&2L*OLy9>3)MOHZlEMud%fdBf4V2u110bp&DYO
zg(|jzkTYxn#8}`sIz$LrePb+CF7gKuV|}xUy#+C@wL<m{k_Rf>&><;gy&=Z4Rw#c6
zF}~+raM_IsZj!O5AZ7yQ`9RF9Bk?3}7S@h3=QVv`_W(InPef<oNL>RlIGnIyG5L*F
z>?9;O1sM@i$X<h(!h9WqEX?oDwnEI2!WI%Mq2n*+yZjb53SvduNgHBCI9;qoQt=oe
z<dBh?{7nfya~;4$?BY5k_pR^|F;<!{#08ohKB{6K#Y*X8M6C4QHTE{dTBEwJA=Wmp
zft`&cpKOVd%wQ)XsnC%>M)I7@OR;v?zMBw>Zp!`$u_51%C5d5&>)8)TzI{O|T8&O*
z2(f9k*0^fNrlIKXAvPTc^EVK?0XydjlE>t6E)Lz45cQK(+*S0?rx16ox``#EM#WY^
z-0jCMxNnVnOp)>KWwY2D5Fc=87CQ~%gRuMK0e?4vNQp-;=e<YLpyK_BKfiEK$j*WI
z@+NQX4}`47O-6iEaTA-0<c*3AhXmA9`y(V|9Fp;VfrOkIm6Dl|fO{0S4idKFQvNd}
z<e|+DLP9=HB?x(fd83i+;bVOXPgE}0u!JX9y0iBPG1zmGNqF*001nZFmSz-oAmPPT
zqS;hFReq}5AyRItcMh2jr;?}77cey*WhNrQ!8`+|rq?C0Um&?MmW_d_xHrWD(^RPE
zUyzho_*lD@ke}I)kTmNl5tcNMLXy6y^Oj$Sq=oqSaUYTv<z=voAW2<rx&R$z1x)YW
zxEd`n)90i<dlqJfZNJ9;hUCEw`7W4w``I=2cSykkhQ^Sho;6Y~V0S!$l*{O?zd;J=
zoR^StZU1VlHsu=51+S3MHw)wp7)`7rDy7`Pr7jp!$ZUf$@1m`@z-$+)=WN&S$&<}&
zS9JD=Fx#Wp1q;j$e?+RCjkS{)_9jmLv-dyc6H-W5%GrhJ$)zy+=-(7_1}#_u<l9Dj
zzGBERIa2OUi3-~{Cl~i_?ywMr;p6H;+zg?u7m*d{Pb9b-Jp_xwY2M;|^q1$bIRCy5
z?`K#_){Zh*7Iqaou6!BBQ08(JR)ufc4S?wgOK*3CPOr)6!KS76JEND`c7)F8Wn-3k
zFN^sMowckzbV7I1U|DuY=!BvgEZg##%stE6Lud4|eao&dd(|1eyl+S7j3%+=#-E|h
zm$!#b=uY}Bmvw~yKn+{o9{vM0e0h8L57emT?cpC$K>Bm}isfG}U%Nbg`G)0LolxB6
z*~`fxIsJ}aUtZP`I$;eoG5U^s`H7D38H#uix$wUHOh@<!l*ZSVSA7zym)~p)z+L`4
z)jZXqb5EpB><IrZGc__bwk-gp#;4B0`-0Rj+htL^q;Bj8{~>E@YJ2E}GVHJ#Fsb<%
zcF;S0J)OEsjZIa7AhjyBF10cBX6oJ4N6<wvTd_c~Sg~4>p~z9}RFo+$f<W<5(W3ZG
z@ot6Iie4aC5w{|7#k>{ESFBrs2SZovS#e}V>58)}8dlr^t(Bu!dasOHId5h9%Ka;g
zK(H!()s|H|RvlP%V%1p?tRA|0*lLH><5&By4gv1!h}F|p&j&$T*R-B#CTWAyhNanI
z%p+|=+KjY$X)Dq;123&I?R;8e+6~~X>A9xQ8sjznK(J=bn(Q^Z)*N0_y5=nK*LtiC
zT^qM{!P>PTSbJmbFKa)n>$c8#odpQija=ukE^OV@bqm&Iq;E^#oxU%<ApLOq*XhU7
zOVdxLSEXM_Z%Y3zy*d3k@X}wUzgy2)-y3-A2d^Kw-fcae7+9aYUa@}D`W?s}S$}r@
zwe^Tw|29K6!z{xbcp0u4;TiE6c;eT6v->XhgYL)OPrKKFLB{HT32QR8WRzz-{|dhH
z2kuu3zgqXzF);Y**}sIA4gEI^+2FZh+J@D@-LQGX*Bj1(!G@N92|s7{%amvOWF}=U
z25#n-%)^;ykUq_Pvk}h&Y#j72LAcRtWAetdjoBOV8?+m*Z~Sp1&aqj2{v{Y?C1vGg
zm1o_^dJf!8-8LC-!cV_81^r71*|cQSj!ow`-QM&wXl?p))8E-lwjjG}wq7=Vx|TgK
z+bY`$X>fLQ_6(%Uve#vAMS3v1B>ODVo7oStTY;Oy%`wOkg20pO+11m~)5LR-r#YtD
z=D6lWw2u`!PIKaOrshn~nUymyXF<-AoYgr6IcIVjbMPz406FBmfM9da&6788-h6iR
zx0^qLV2kaR30q<SwtTS#{btM4Ty8FY%A0FWkhzYzLC7cMF3Vkqv7Na!WUS=g#T%3R
z6jPpU9lkYg>z=K}TU$Vo$EQIzPdCpPV=N7#JW(Egtsu`l&o0k5FEKAE5B(%>UEU@P
zJMs$hj*;U^dB^ga@?Pfa=8H)z-#*_T@6+-Z(AdiS?fGT-wfRjn_AvkVZN0XMx7m}}
zHovw&W0SU}ZacQEVcT;Wd%s<}-D`XJ_Gu)xJ$rlM_S)@txBpIJI|Mrh?-;wobw?nL
zMeIo0v35tnjw%|vv*QUOKJM&6VmpO9-S9qPXDW^D-dVi!`p%Y}Xg7dern?+=MebU-
z>q{ET+_iI8)vmj{ekCy_D7z{9DQ%RIG&WtiN|~oTtR#ngL3vSmOZjv+vm3v@0<c@S
z+j;lo-E(%M^)aU0jUU79KDYZijWzGa;}d%Z?};F>JxP0(;(gbi3L2}~^Kvg|Z?C<0
zR32cj{a(+#6Za<X#eTwA_FmQAb9=Av{hP%0b=@b%yUV^H8jIey3S;~BHPBe|K24yp
z=lk%qfJ#ecN@A)ZDmmVRRSFtQS8c=Ce$@#Yt5!Y5*dP0~No>Et{?Yqq>|eZpJB=0W
zzldo~``?h*0nP#Z^!dQ31N0ExfrJBV4jepCe&8m}dsARs;8HNX;42Um?4qHn;99{0
zl2`EHAorl*!6667kl4YXgNqI-51u}VUWc)dg}n-8g${+jBvu$zIKOa5;U!J%`%ZZ;
z58--v$dY(7Qs+a{@P6PB?T14@AHpMFhx;C$Me+`>Je+fQ&*36O;>V$fs}Em0{Pu`|
z<Qy4tB>G6^kzGfq-H%*7f+w_&8XdJHc}IPZu0L9L^#0dYB=&XO*IU1?{`%h6?@6qP
zS0q1LS2Vw<hQ{6(<G3nzE}lqY#fysbi@zzpSp0~@j%gjkyklO+VrWcpEEi*Ek5L;P
zdv$!^anIus$Cq{<=f}4n-*tT7@dL+?94|(lJ1*|=<Hs)^e+Gi%f0pn|`j%Lhj4Q$O
zKqb*7(-CA)GP`6+$!a_UzrEy}lG>6BC09zmExB8AujGEoU!~fmrlpppW7}(@t8Zyk
zX>@5^>9o@6rMNnOa&b%N&{*60sz#@lt}I<$x~?>%6n_&7pfp=uqI3svOOH^#Z7-(A
zpDaC7T3vd+^g?Na8mYN+ORuWYrQetST8ceY)}yR{*`P9UnMK*~ve9KuWzJ=xWmC(R
zl&vbu>8x>?s_bCd(X!&QlCtv7GRsb>WomW=RD-g*vP)%`%dVB(D7*a``ul%CKQH^a
z?ANkaWq*{t`wUIaVBl8;%GKu<I<>OAPq}e<zw&|QgUg3>D%BZfUOudRc=^b3yYexe
zP~37HiFk3#eJSl+YGV21@|g03@}%;aG`H=>EuZ}l=%wX~@>S()%G1j?v;ozq@=fJ?
z%F$lsm&#kp|0w^f{A2mZ6WkM8olx8pT~74E6tc@y?;z>@#NZRSVw|u%VS{(u6F6s{
z2tTm^3{GU8*mvS2#%`VX`NW5laFTaY`=stkgOfc^+Me_RI2n6#9a))9?j|x%-a7e5
z1+T)mLR{fc;aL$_5nd5l5nT~ikx((GBCBFw#Wxjq2)crtBEyp?r%X;^t*3%dp&y<~
zJ+%_=t4^h19-LZ>e|h+K6u76VPF+#sG5!MoUJ|MaFG&i<@vPZ5*rsoARsF_^q>vVV
zlmE@JZyLY3cUljB6w2iEz|(_IOHa#aZrhD}+WNHH>0si2r<a}Hcv^M3_;lszOQ)~3
zg*G6isPpNYr++%r<&5ze{5hdBc4x+%T6xCljLWB}GkA{e%uL*pe??E*d}8G@H`)T0
zy?y2<y#I~AJJbWXm3=G8StgX<(JPhXI>P@QJW3kh7XAf~HtCR$c(=Cjss6-rm2)aL
zR35LqUin+)`}RPO!?h#1RSf0Pa#g*nQ2VN}Re@DgsuHTE;eAHcEKEtMT3MA-wXLcc
zxK$NZmk^J$Wz`Q=EmiNTp}HHfdPk`CsP=6OL~?Z?{!K!rO>2s+o?E@REf7@u)ftsq
zy{av=BM8&E#x>O$ZQ(PN+D_^kGpjeZh5tb1RqtvG|AE?DUDy^nq1xtPb&X$F<CLln
z1XYbAkkVS<RzIr#c(zMto17JP1T|7~?_`q>%voV4RGUn}S;^VSXTLa`d3N{NlJ**?
zCC=VI`{?ZRv%j8wb@tCrWjopP?Ax<{pJUDm&b~d@cJ@mR?xY96IpcHv&J8{%IftYF
zlZ$&!cFrE-|6iar<KW!lwt!kKKeq+%D%5~`u7v8<rb!#R?wlrkh9;ifp?4el$8(zS
z8T!fpM4x+i?qdzNMnD41ZM$)6bZX3MtlDitW!E^?xYT&mc$3fuq?B9ZPiZH;Yo^uA
zteIUikA%<Ai!^AaCadOP&B>bDn(H+`YQp21XPwY(Jxw(@|E?ndoc~aZGi>dk+M%eY
zdPGxHtxc_cTlhy=6kF?9>x6$U_~-Z^D7V`7@EJ;DZ&GuuXGiFas`aT2s12>1P#akr
z{VCrG#jTC4O{wkJsi|9$UfUMFs?Dt3TU(25y;b`d3~FE2(bcui2%yfqZW#WV*ICzf
z_UcZ3Q8&6HV41OXK6sy8H=}d^)-CA>n7>kk+WZ-6UtN1ZRN=qKs;p}dh^p0~ZngIm
z?Sr}}9RX1tJ>N-t%=xV?ApfdkywrE4c2uJYi&E=F^%DFeq3tZM+Ss@Q0I0Xnw1z}*
zC8>Am2qdZf>NGRfd(?Z^2iAwxPpZdf-j1t24!HGm>(|s*;TlR?gn2}VAL<|0KdpaW
z|7$(&`a7=rSHQi%yFhkAf(sTGmRzX5$iLY4Vpw}=D&u1E#YJtQqb$J1<?T3H%f*U|
zXD;Hi^~DPp8$02y0QcfUn$ku)X?OAWi|@$PafyFPZ9h%nOS+xqUt%wb@K1Wl^3q5G
zxim@*yoBEdz!<Sar*U^FOA|ID&ArrcsTom!H*~DGRO<$_Pr_ieM0)Qet6{_^K~wKP
zpxhcd!l!dmXIT>)I>O|Ct#MXEN0{@kD11%V9@735wYi}q;C{0G>a15mLq|B$j=}Tt
z4OhUZ;To7UG=Xu$P0(+^antY}7&hF4o(;|T3#1RBZ^KjQ-OvKP8h*l((Rfzc7-Hx>
z7SCXt;+K#Ov3KIB)U_Blf;BXE2fgQFo*}HG_cWTagqB)N?~CwMxjrnU5;BqN2@5D@
zK9!bFrOl@IIrKi4V&>8N7ZjO5?~(LAiPjQEC5O{{1ieq7_lZ>IQYt3}+h79A=zTf8
z<AG94!5unY3My>{z30$-D!nJu`%H?NMfn+2@^pGnr1z;bJ(SiGLhnHo4``u;|M9m3
zzM#2;E`g=(e*{TV$VF(|Uk5^+_a*9@0<-WJpl5XYBjrfiESgIY>OX=a7ip^kRzME^
zqH;1#Q@8$0SdLa9*cpf-eVIbFB0F~j$i;pno=C81RI3F1wi4OF5+tc_I^ZXB8pKox
zMUIpst%=j55)X>OZ(ZTM)bMk|n?`P9_r~6hgFw(IYaHDuZ**%6Zk&R#X^nFlmo=_y
z%xT<>UoG$SrS!(5ja7{o8gBy+rO->pbyd2$=(-95m@d3vR{<pBuXHFmbw@ZEz$;{A
zuG}IH0s75n7$xI=EFM4JD)Rq=14{7l!@2nY6!|k8jz7bNW^-HoG7y}=)TgO&5X(Sy
zG4cfUv=Sg0=?Rc$Nh6Qz$C;f5ar{wV{6wrzAF%+!*z9595@EfnIycLC#2nX^xe3i$
zVdcxm0yGa877&0xSI$Oz!VEqWV7<lVRCAx<#V!GGqPYiR#zT=j%gK}Sp>RT;Wvu2C
z2+vNWa#Gsl90$Md^Fo41Rq`yMBUW^g2%C`$MHIN89k|5>b@g_XXF58H99Pzg9B()(
zuUsUxq;A3*Z_IJmy~1RGes%7RB}<V<d+~LzfQ93YW2@qc(vGOKU-vJ9y5rAec)%Tn
zS@W=A0UO~s3Z|<Z)-=RY$S~Xo+qewp5Vt*b7^b!*^3}aW?!miCxbt@H;6?Me;UV~%
zQ^~0f*(unGN&E-f_#EaC-w(gB5)F*=Azm;~z{~h}tG$<%+iP{VL$PvO{j<s)sOYmw
zEC&pV<U}(Z*Ubipc%++@@YD|#QgU4~pkD}=fd|_d2F7!ltA6-pj%MscC7jpgF~Rr)
z@EITL@TbM~cIwtLx|Jhz&q$lQTAEB4mIn`VaS5T3=KPMxtg@{gk;ymPB3w(8nR*{T
zYO=H}O(r_?K8YOQYa)o7Sk#WgSXAMsvB^U|jYWw+jZL1~7Sml0x;Jt?Z*;3~9*0L3
zPBo7kF&>)xSU%jzK=Zi3C3qWg8gEu(AmgK`tv{lfmC;I0)G_L`YbW1u!5`)v9UfQb
za@)p3F}QFgc4z>j1<B*^`ww`ky?IzT8m?HjlF@a8y$sitd)ob3B^QmpmkY8R5U^6q
zRi?L6$(j7AM4ebse+&GzSZ1TDaOE*{arw%fuDaJaMe>!~d~~k~bjJ0N>t55s=vGYT
zBHfIXLAps3--!8~qE35-4&Tw`fi53(wHa*TrESV>D<hKQrZCCzQ*fxGcIdk!#&ei(
znIIm=I3hDZ;1|cBn_!O7c!mko)dra$&M%&%q1W@Dr7|)uDEXdphH)iOc~+8lv-$Ai
ztW2#8=CP6stNd}k^FSji!MAxBW@zbVLI!hDo)t4o-Ey&ZzK?XW5l`+e(s3HGAzH~>
zANUfg*bjjgzWjRCDP1kZ=O;V4!Vx%@t4z+Nj6&tNfYDJdz2t|_kq1yyeSaNJSAQM#
z{DbX3wq>=t=wx(UMhEL-_`1^={}s$sSwbp$?}Kegz>Vb*CpSxu=kZ<nm0r!m{M<>i
zv3dLlhmv@(8OP5(<vK-~ZXy~Dzf__G#cIDKJfjC%$UpW=;%M0K+E_VgU2a1lAE9pL
zlD=<}o})_5!z>@VLB@yq>g09PuJu_(n+oRm6Ug?u60=oQejyxFutX#>=m)whH|V+o
z5xW;|WWaiL=|NFzf=0nuEsxRDr7eDDp`wA|WLnfzVJJ)FVprjWjAjQd^ur7Y6w(HJ
zDYY+Po4a5KC&%%+poM&o<(?-qQx~*xvr-!;2+SmAkYxgm@@ce-Y$G&FN&jxtl526s
z9g}Uzl5NhE<!r=QxNa)wCSol;#wRjpR&9)6l5*SWwbh%m!a_Nx6-b$3mZujY)#huR
zPC**O<+)_MPiP)z>8zFUJ__eU<Zy}Ll084J7wDa&6?=gzWH{Byl*RdtTlumW`=HY$
z<7dePnKG@7)zeG4oS5ikH-2dIv8@tE-IbPOBfX@5+RfmS)ngk+&M9?~ahA)uNVv;o
zS&S@`qs(kTAFh`z&y+2@A=}7p9yS8MUao}3<lAV;O8hJoQUg|YrL2;7J_Ba&U5Orm
z2{@7RXv*Z|J8CG61t_^!1Gt|Qa8z>c$(f`(d&%P2g!cgaY8;VF;jEH#19Ptia6T!b
z+g7=fcUI2hT<)k+z>{TR7YSq=wGQ#nUe%i!K95_CgwYaI%NgzJVjw2q_07WnVUpKd
zVNh(GG_||XG4^(R;1p(&G(OBO*TlkSMbGv6VCQBm^3h?W@$T^+ynRy7$aJ6noR*n)
z(O~^!rC#`*jZi7(?Cm?&cRSdz*$J<mnZafxb>6X_k4?AgJ9}@{tI~Zuj~DG5<7*}u
zCY`Jspa%}|K^)KcuqlRtZ>^cZYs^KkUZ3fi7a17Xj6dSI(0(iw_jYj*8k7gL43ZA+
zV(e<=GLJhiR?9i`h5N0AjP_PZPal!`7e}R|db^k&!1iz*PD7fjnZfJ+c~b^Ph6KLl
zSexCk%btRIY*!T#&)Lk7)`#H2m5eLYUVsOO`Z747Kkusct4@vsA3yTDc0rfbd2nDs
zS46$i-2l4lLH8@rT>=jd#81In9J$3#0cGkn8Iy{RjdO}ZaVi6rqPvGQkF!}!{N%@N
zWQJi9G9X^&wo-R4DCf8$W`Hj5)q~sx@an;~1<V%@a&gy+QO?H)*$cQ%2J)2~e8}J?
zLl<9F>!FGs_$7HI+&<Q)X6Raug|7}-6UYEvi39ZUv7Xg$RFA$^tib7Pm2y?2+RN7l
z1}4oi!=HBbaP?^#E{!F#XR(aGO7~09od>#;L3bVSR)ISzmBHzsyn?}L-@AF($i;+N
z@ptu?oDqARjNEnC;nY5~I+NpM;49~~csBZRtnOxjF{a3$1uJ<0q#Z4IV}NF1Ir%fI
z#(K=Rx*JRHzRJ1vq!!!@&1ICUYJ(Y0DlyEe3}%0`&}I!skBi$2#TRluqwtsWIc{>^
zD}@`PAbAC7Re!040`GcaqU(4*=hx~?EvrWF>RkNB2gaHE%DD|##+@YJy^erc2u#94
zRyT%Ejgbks8rGZ0d$4x}$e$r-#UP>(GlW*}NOm`Gl)NuwJltX}0CK}#+4cqgZaNkU
z22Pih6<y%RZMee??t%x*Rse}`u|?lg0os59lByM);a(2GRzKduR*%?ot9b}E%?!KE
zhjI$!6j{1l7{3Y<G>wDmOmG+#uH=Ta7rsOb<5aRj$$hF^b-f+=C2DTf80<8U0|}@g
zhiJ*gr8q)9j}xnz*evkp$P#imu6|X%`F@}!pRD62_0hrUt$6diW~og+!{y+Hy~+ts
zOwtY+LN()|W>}$K^DtZN#bP9(WV52p!Md4@_unf84Z2xLWL}vqDAJt`%B6M9<3?8E
z)NH#Ii&iy{8+|}c$E?-RUkNP&a7yG<ZJu^&OJZ`;G>tziq4K99;L{O@zpPGv)_}*K
z%I7$a=klsO_*{N8pIft;m%{MiMCZ4{bOitinTJQufx}aB?pkwrxH2!`bAtJ}FFk}^
zM^y&iW*i4@Tjs6*_|aOx<C9*Thn+^C=u`L%q5$~=s~?9)_$6aXFh2RvEF2D@C`soN
zybhoYEP@@Z9vsN5=&fAkj+-BxAT+(BUHv6@_*APK?z*@Kh7Z*W?r^UWdmMrTt24D7
zM!_#zR;l%RggDZRSBTxY+Mt9Vlv)!vulgUAhM>lWKq>f%0?F9-rko>kw?Y`Q+ivsb
z;8mPe8IVr1sgL;(pX8d61?9R@n^vVwGO&x|l!C<SFSV_Q*iLwWl&E}%)J>$JN!yI1
z1BV!00k+SYN;Sj6NtDxgN<SJQ>i>h=bm8J2jW+i~@n<V?n_d0!i{~9Ymy3@mE*UU9
zMZx9Cd3Ihh0iSL+P0wZWhv-!~@$4MO^M*Nw@^!RAc$P2^f5dGwH{;_a9L>z=cL?G>
zt5OQ?I0>{pf(6|KxQ!Vv=u;IcaDaK}V6qhc`qA&SalhZ`(p?IE=r2m{ML&Ey63qoi
z97k1t^93LWCc$q3hvPRNpPV>wUdeIvTOh#49?bJwphXzmghIC8d~JeFRAYIcVYS<^
zU2wX^VH&4gte7I7$JFXBhGLY*Ls9%_9zReixP&9lo|xN_<S7Ngemv0f*W%$1T$s7b
z1X{QyRmT)Kt7;Li+N-t5A=t64SeIZP4|k>|e5Q-5?h>Xbc|IKsWPN*qV@9@me(+*k
zO{Aku7UNPv)Fw}C^Eg<W`Z*r=3e_nJ4m_@e&76#nFWa7S+O|s@afLUVlRKE-tio>N
z%v-_1-yY#`)l|L5#;4a~edq>#E}&_PFitLw1peY^N1kcmbH$1OEDyT)2!0A@CL-Zq
zo?5Wew3XVL=Oi(Ix?Lhv%?vYTrrAaZ#Rm;^xr(ct%|~rW{tg&_{6Rfyh9Q(Zb#P<n
zk^Q}w6PNi;IWG+RO-reD(H}Pj(OTdx<KxgBhOw@g0nuF{R?g*kV~=4MU`{W5qk%ct
z&0PVX=SI(F@W2O$iBs~YDFrwT*fwKno?kkq-e5)>AB>kN`7Qo@u8u#S-_;*yE9{O1
zI$Z(xc}-+Tfe#?@43Eg=!wIFJ#b3bF@fQfX`U~(G`%@@BqCMCar-lmfZH9KK=9xmw
zPw+F9HVghp43EFjaO_mEa*kuO`KWZhK+_A`t?w|_;GNPGhnoj{b<;)J#go3e$pDf1
z<&BqL7xm*)Z~rd%_|&ES@#)80@^VLTp}Ehf69O&l9!AN(Kw5!gjcPb-v_5&rLfaER
z7(8@sA0_^eJKPPrvnjWkCc0OY_uOt<rM+^5?LvX&W$)5l;i+QkB_BUNI1oJr-E;w;
zOLkq|lNWGtKAw;3>&IVlP<k}?8EvB71;5Y6paP>!Pyr=#jdUB1M4Sb4=L?u3C8x?C
zf6W3@$g6_++Dw}VCNE&P$=IRIl2J9}A>xF#+B4~$t|<7jqgu(U$H!sZp&Y|UN&GeH
z>P)^>qdPtqW`HdYP^Ff;l6(HxDn2fK2lzN1G2gDA7d}$B6)q=Fn+!+0?QIvz$GI~Y
z=je=&`*BXii)5uJaODCsGR6>%EJNRq;V%KTzayhqT%J(}bc85|bAVICr+U&`@@j^c
zyqd#LMq`o58uukIFPf}sINot43IB%-4iw=N2hJxDy$IY<st*@PjBxn&h|U|ev|dse
zC2~SIWb(i_M%XE6&qL8uI7Myq0sbQhQZrY`;Z`NzqVJW){Z0xbW5ywD3CPlLuxVu-
z%ECI-mz*(n-ga6xi;*RB9vq07f-ku2%3}bhptriSAQ=;I4t4a4VR)WAQxEz7Mccc8
zMRlF~!)xu?GaxW37v*MjK)_*e@DhxQMrM#1VB|Ujf{7r=MMV*{rXiPeIw5M*k_=u5
zUUKXhC26IxGMGdqiC_|g*G3^#nl{D8*wnT;z1Y*V=lq-R_pUtyn55_VKi~I!<cWLF
z-s`^J_1@oitNvlps{RkePq*p{ErJT-yvL~{URNewx4T0|wNB~_NEFP>uM4)R8wf4q
zlzfFC3^d%+P*s6TAL`$%smXubAH{kLwrNmojJH_zNU>gMJ!lMcs8Rd`U8<{3Fdywg
zPxRNoE0pmo#A<2-mo-C4iyqWep(&hyE$Aqg3m#pqYSI(@9QPG!qu)y7O5Wi&oM=>O
z4F7@wH<oi_85*ssfGDA=Af>1ufN?2+@$<6~Eg^72;!J&$))u-pe<1(aOB~u2TyPcK
zU%(jWU~q|`ul!~;EQL|7y7j7D0ni>KM)=nYi#EI0p$$plOx_c1u(yr%&wXokw|{Rl
z`vGbat5E4<8NRJ3d!m!L0zV=yS1NgVc2T)p-ps1RLoeU3)Y}ja`4XaJ^K#rPm|435
zb6r48i=R%?xHZ2TN=rS7R&Kc0^%=jv&e;6Cah=Av*3bAnC}F55=Op;)GuHbVpQ9Cf
z=MqiB=;z=3&tAM)hj<;@J@3xp4r15)V9ktj1GZ6}xkB!B*Vnk${hAtED;m3DtY7Q?
z{w3qO?;D?QCS?U=y>-l8zsbF>!MuY1&b@v$P>dJHlagBVrQr#~YW<{WmVFanOVCK0
z>uN~CLSc)$0b)|aS6?-=5d6$@*I$A%I#WC{Zs(aRIA&kJXp03y64Za8hA`;__xX!M
z@e98k7_Vb=ZE~6j>R_x;t5C<%%quciNZ)a*{%BV5+rK%h654a2jfGtJ&`S_3)X>zD
zj%Z^0|Fn1CdX-o3W}XCn&K0+cJ>BcVkerW+OR2FzHu|ZQ<_X)PpXRStLCI@W`MIS(
zy6gWiWLWSsHMEwMye8}O?}4j=e$U_dBr`UyGd@udO0W~_3QEw-qTSL>Wo2rYlvYR7
zy`I?<5$bS|%B`MOu@k+&<kmR%xh3cG=3Tit=BAb`_f;I4@43%A>l@5gAcYcuIV6k!
zbg#SYuD{@6{f!a7)w=7QmR@Il>bTh#7F#dlZt;6*We-oWc%1fE>zi5Px4g>&_H1T;
zXyD6s!ujQ8ph#>DWFSa5o-xbp&bS*U9vbjN&&cQm+y2ir7%B#gl{uloScd<MYDt;h
zOLO{8s$Z@55Ead~UXE$y4Js~!Dp=*WGmim?{S`E2mZU<6r0;uPtno<r0&FuIvsjWW
zo-OfU7}73vz1TjQ28n(MyBPf%>;q%Lk$!qqMf5@5pi&cx`5~ag%`OZjJ-i%u@oG8k
zbNhf6<(x}Vumr*j6$Zz=R1Jw4B(<`hJx=#TTj=+vkG>JeLhyevQ~T$`Vs+~v29RG*
z1k@koC;H*#Zx8_bQQL13OjI(-<OA2C2@AhG3$QXa_|Ypj8099Y{jiVhWA|0(4G(=x
zINTlV$%-FWt4dk(ytGFjAAHiH3)Dz?`OEYwS&tO)aY%e^U_H>d-Nko0JQFQAE6}yi
z%<yjw8Je;17N+R`ZntO)T3ue@zu2Fzqz%Vsz8-x3L!6g+M=th0TTh?KvI)qB;@a&G
znQX?^<<JFppFjm>qBpEd^Gfoa`MNPL8Sdtss*Whmn!jEbkau9#;jq2ArhuMkT|{K6
zO^)%u@Nibm$8e`^T64_WQ3uwO8hcbUX5OX00BvOK;&mpP|J#`VDUe(I?S5N2=azuM
zf`<|x4wmrZuq2&p{^}3j#i8QwP;tTAFt%Azu~iLh36<vC@qAT-<oyBD*Qy4US$QL|
zQ)&SU;-8l}Hvx6znt4ICdDkR#HyPaM&+VK<!F~b?@DN_0z#TT@0~^;m^UW%@#K!&b
zBao%P%+>5+SSp<JY~266jcYdGbuM0K6Ow9XF(`$jjT1Z$50yI{a*#+272oYS%=y`;
zeS8#5fdIKH4Js@8wbt?`GaAVkc<ch1I^4_*^F)#RN}=)#Mu0cZTlw4O2B|_-1Uz!9
zLxOQhxv5~#4S;Zi^?CTk8k~F91Ntm}Rg*#RzVnBLMbEvNl5{>(@;A#W)=SMaa0Y1+
z%3Ar~hh{wd8IhQ@&x|gx5dpAPU{aANZ6BJFf%ZY(6$=IgOR%n=qOBEV+H=CBS}4=t
zaXQt?=_Lhwr(2!2Ulb^1;FSdL!Pl>dBrNik6LiJKLrh1=_}PQ?P5aw0hXnmJ3_iSo
z=9bC8RB{Yt0&y64noD!U)AzMp0!QK{CL|jzDXjVEeUq63Nt~(i&^NBx(hA;p3RVp$
z<9uBD17zR;5Gn=^Nm3O6w#dK=P*a4jP9OvPLDuD<R_Q9HaJ3rLQZ-1BT_ET|=b!f1
z&SCy+!+no^oSt^QWRwPs1Kh@?_uYH?v?|OaS@3Vh?JEUpsFb)(kSPE=T_I<&hV3*_
z1{RJR2P80RuwY`f+)ot{vj+Z#6ke$h<OmLTMxl#ghTz<QrioUc8ZPVqFUo>_8!kIM
z0|0)HyZ#qA8!CYh1#=A`Ui4r+76zc@UiYz`2LOh86vRsJGS_+Et?#Yl>w7!J*&dp)
z{(DWRaYbx>6$4HT5Vxxsvo@ucdV>2aFX%bgbC_~dg((JP@z?+v=JMTF1TuO=;E%!q
zVFMsTSLRS!+BoRS(%xn;3$I#Qn2<V<i`F2^%<i0;N^fE?^}+#|*^ztR&93@x39EV3
znk@dg?$`jChzkd(!Jgi>rj~=yy4Al0oH3%;K${jV_TU332-!debpMhj?Joc{jLzb|
z(u?<Hp3umsHL2^Q1Elo_#4Gb45;YE!W4iLaS=?rGwwpPxIMT!tn%Nap%iohqw^^R&
z-fw1so~>I+P<rlt<Wogws#?_m+gI77a_%v!nk}B@tv1z|d{5q<@bA~Ht{KR=M$*iT
zLO?23m&Sj^!`|_;JCf}+|I^-3U<I*J<$F}m+fAAd`z!}Od;n6`sy3_rfTAKABGptN
z?T@JRKwhpBpGMeu^sM{pHM6QE7tfZa&e|C__VQT_*n%a(5ds4cOXJ%T{~{-CM!ABw
zvCK&rE|+Shft*UI3DQB@Eqo`5tJ8kxU7(?<rq}_jrx()$<4HwUaQ=V|V7E@D7N}Y9
zl`nJ2bXZcIvq`dZDO&m&VPj{GTmBowNFYG9Tm4^{K?#}tF?kLaWRdR1imO+gFrxdO
zO!qwr#9+aCdA3+Q`vew}m{C%>rL;qC*{q<`UP4PJd@#>n<|?yIrTs6PO8#@9iV)aZ
z8U-!yugyI56KvYg-SXw3BvT$RImT23DGk4#1JoZ@sm{LdmNS9*I~dS?2lJhJ;IiC?
zW#GnU5I1%T*t-WL;wew)*j33_oV{(_I6DgnidOe}jaMo|vokWE<*Ia*l-<Q|g0RPT
zu^W2NMDyPEhW8|#hT%2n;$is-sf{S&8D2{)sawh`<TxQez(cIFTS5xOpnj~rTCBdB
zp^awt9XD)ao-r{edc4c$Tw~^@C*1G;mq!(~^yCT*5LR?n`7Xfp0w8CKTGkK%RlX~y
z{Z}zGTx9s6syNkOeTLN}L$5Nv7H^X_K8`?&z-&|7<+CuIE_sSrub!7VGkF&<7KrK;
zuz~AsQ*DzgduYn+&iQZ?fd|MlQ@q+VcgxjUSBvlpc_yBn=xueKKJ^y330L=-H?xM)
zO8x;)5tn-zfUekm<@%mOFw?RB*t!L;7X6f+D0GdHQt(N5Kpn`-|Ik*zzU-nc79i`w
z4+6Fx@3Oi8TGK0+!Iz|+UNoFz?9N$oD6zRh&)Zy)1#bSqYn%{n+LDLi9RsTO%uHn^
zT*B{!Gmd5bpYIIKSUUL)=HZ$uYbHKW7CumRIkh%pg8fVeOljfn2{pQ|3GoY$O{~%V
zaDw`2{(1YIvmxdXp5x(@V-2*NW5nH%ryH~#z7#p^477__E^+VXfA9o@Z{Bz_g@+iT
z>zHolb^Yt?ozNcjHsktoYt6^{vu$n^J&3tk+&tsViLQ_q;JjhuR{k>}UeB_OfW=>!
z$fg(U36)px3puLa6C9`C0S5HFoc*wB?h4s5^Mzm*>ObERV+vkB6=-JCcKbVJm*?uj
z`@)AN#AlqCP%)(^xIcNj-7LS5%fnzf#M^n&-O7^sY*-Zcg=SQ=!g{$QI3texzYtPg
zy))!?#@^s9^R}}^wRhs}QGcx9aWCX<j@>QCrLIPeHiIELz}Y?yqq=|(!+b?M;9+Oj
zKEoGLx_tWsCC+v=562P(%|sDsfSSMh6IKa$1+dM#!S<5x)4qa`HCi@L^S6R~)$ySz
z1%8pF4K0+Qaeg(8O&*%IHW7z-i8N*?tyIMhqV^kk9$F*t(SV#&UBR`fhNB+#dZt)8
z-%mJ8nR9@EhFAY?Rl<t+B6Z^-Ha&7}>Yt;N>n%^eP4FSszQ+?n1(I{OqVqR>jR*jr
z@578kN$KYYh%>>#$({?&6(H=2nWF14yR<z5!r;=Wz$|pzCD-BO0kWYmSb$fIm`1PE
zxr{n+y-`ku)<#4zJBXdIxg_DS^-KX^mQI(0Eg>7^64OvxxqZ0De_dNSfAIbC*3KDS
z+lNP4KG@uNmE6++PO6gew7*v3hu|(Tz>d*aYACJfK}O^X1X?t?4BLXALo?PUf@j!h
z8;XX@n2Vj*G~mL)b^h=uhf4u?J~{zdC7=z+g-eJB0$nF}1JzRc0b4(a#RVz?%`ZKd
z8%Vc#oS~;HqiQQoSRcHmLgj{1ACjgDY7;7e@AV(u+34b4Q~?DVn;x4|nN1)wV=)wJ
z_qT-682_Ea)4|8{!=Y%??p9t!ynhOK69|*o^xTFLU+*V|rkIe$>eR@SQ$!7jhr*0Z
zu}$~ALi=V{v$Cz90x`C^I?|MFx(797%az)e0n{oPYN20$C~P5|cabh|oGB-;YJyxq
zEK3I_lB$4{@SStFREgIx8QeL0&3q01E4-}6Q8{qAooJOa3+T|@(&O0?Z*FPL@^q`|
z>4CdO-UM&EPg`&}oWN$+hAYuiYyk?t?-^?MI8%vkC|-K3*3~3t(4+-{beZj5q9f+f
z6ik3SPI><T(0tROJol9)1TIbSSnMM%W@Dj+;^ME=m`-#3%+?Z7iHc=n7PARpM1L%Q
zfi8M}q?SAr!HreAn5j#1c+H?Z%MtJk4*;a)kDxTa7qt+GN40Rg_)SQ?z|YD8`UD#>
ze1g$*aNWSk88ui|ZW3dA2>W6(!BJ8BE(9~ou-E1aC@ypb3Sd|2(9=#)?bJvHX5cTI
zE98=!_lOe=(=ly+CA)T6xvOH=D&VYE2v4=#{33Arpk@e$Z2)2S-eN6kS(9@K%I|k+
z=-(!`8QWaNu0QVPpPOA1Z;R<&qUkA+1^zKs`%JN>{GVsmDY(Q9!vL-EFR{j=lvE`x
zWsTpJiZ#ON6z#2jxk+^noX<JY+Na85shCF<oQhP8OL~${8`c=UWR=w)rml19yer9K
zC+|;*tjn~R<Y#!B!*SHpeWVEoEvlFna*~RzcQuJS7dl?AlGnTBgHmsY>+CxY^Y}-y
zwC@1#jWG|DTC``WXpT!>;tB$F>}_p1{@O`_F(v_HSY2m9sY8CMxWMk2AE281r3dhe
zV$%}h?LI^rHM?_(3ulA&%G~m@X$TK;=)u?9!#T<o>+u@~&r>M0ONOxLIDNJj|3O<z
z<at|5=rvmlX%zxQxw`<{7XOb&!x6wmz)@JS<3&qli%Ws&|752CaO`31X`b1YCT0+X
z87QEppmD)sG>w2Gn?9!ZbFrcd2x5y{xY%w6Lq0ETnZh0u*U793dHBSD{tC1WnI6t&
zc#xJ+glq45R|{5;UV|2xTMC%TeT6O5WEM1Patk(V@(VU}=P%+wu3c<z$d-cVCpyUj
zWh|@?vhSGa3=Vb#NafNixrOqy`Oe9QAS$#Nt;Tm;C(JFgO~$jX6U=+UXhWkgCr0Z#
zt%dH~Ehd}mfgVp#@6+Y-zK8Z!lL#mdTbJsEn)beS!s9-50w=WPJ9S*JSU5XCY?d#u
z3uxyTXlF*LUNhVVyUBW%f5H!3KIv{*(lvfi^?Y>vKzmon=9=TV&XkXe9YZ+lU7@!l
zT0@Q&oqTaCPJ(Z32<rb%o6;oE$+K#JM@ustl=W3Z<7UQxcam_GW!f`LJAt_!*rAP1
zu&ZesKT??1XD48KVx|U~seqA)PiQXB#wcfm_{%s&Dxv+`I+SKTfC=`{Mm!tOMsTRW
z4PML%4jI5)K>HxZ>#YM6SL_MDVJNEapE<TVF!jsZXS;J;<3v+>ft5zJJsl5*XId<V
zG-G&3pkSSt^sg0EdLQHphS*ExIsv5F=+%N=u)XVPGX>Y>mVP!G+9gnc>0V*~*%W9~
zcD(-@2hk8^ZLUf6!-a*w+$FUd8l^p%JsXeZXqY{EzM*&(lXvDDmXE#d0pHy(Mmu~2
z(2#P5{~(?(_RXS;O^*mCW^Y_$aiJxfwS{jfcx(J;8}^28xqZ^+3KVDI*-QeO$cu%p
z$yj#h!#0;co?G907EI6*m;cKyX0^FAO3@-58``=OUk@Ip-)bR2SFrkCkmZ`3O@T#<
zzdPY??{E=!;4MJ1gST_|%PT_{OZ+V20f9~4Lu;zNb%|_A%_}tDz}w2;Fp$V)7+-FV
z%U|qiBXM6C>Qi*Zxc+TeD+>8F7qaVntrAJ2f9nAICI0X{TY2{1qn=5HgfC$2gg-pA
zt!MvI$fwW`f{<}At!06$zV#?>Ji*7xOb_IoX?)F2Qi%9zSTod)pHvRa`B(o`O5&}%
zWe^zl)akcOUWtkh{3=4I?v|gKTc&*j@w!`X^tQDm#1|?{qMW!hFxM->-m~X$ro1Op
zIUbh*ZlGWdVpFa&77(GW^swEI^|{Ukx-oxCs*5tj5gGtcMG#vY6rt?~0}&$lfM;(G
zZwTBjt(h!u|D664pbJka-QQc{0&Ur(z|=2>%d)t@?B$ndWy`TMH;6Cb_RuFM?UjBh
zA9|FEmuQ}Xl8A8)`B-%y&Qioev+IxoRG)%zbuCoxf&Y~@1m;h}ajNvPLt6sC>O~TF
zES6<U6u6_7x5XjbVo(OxLafP)7D%{?W4xP*d2V@dc<g*<b);4om6B`eYroYIX>}1U
zUe^NRiVapNQqulZoAgRmK!svLfLsqM7ATyA;aK)(?Mqzvdmd@xIJWsVK1pymTjmgF
zfTOWxzOOT{6atLr{!kgR1+!^7lb@h(T9Vv6Fq8)5*)8hijjpr4$z}YoNf87-xOK3A
zSxGQ!0=GD@DoZ=CR8ah-7VW^Q<kSIz`YjF$Du95dG**EGCIj6*4%^N1Fix?WW3ifU
zo`dc8(oy8u74_=`eis|Cr2!|2WTjJrS~1rpQR3fdcGT4~Y<<&!_CtW3AC42|=KDL+
zq%z9q*Ec~e%hhU9jKnq+kY=qZ?a#$9TthkHcLe;IVO_c(8^A7}{dj1`BFDgauObsB
z1_mz)saH`_fPc)!u%H_&^l@^hnA`Pxn`<%xdHSmgS21<WL$#|)^pos0Rk}HaMUx%a
z)2`6xVSEX;@A>j%S7=m>JEQ+W>nxL>l^>tgzA-pDf{O@>hiv(}F;C372|~vpfrz8D
z<s$Xwc3p)4p{&YPoV&M`+kOSTZ21+_zK!iyAatqNy5Eo9I>CU~HUWtW5R8DOj1Bxr
zl>3u%2q0)UM&wj>14csPD7|d8kXwfV{!5~xkO`^&RxCBOiTWd_h#>4%M**N%h=^XT
zqTBViTGzl@tW+h{9AT6|4QltYFJ|)Kf7sl})9V>Zv)PoHZS`lT>;vH>R%QvYQu+{L
z;^V_&V!d)SW^K61Hbq1m{;AR!O>qA=$@^FIq}hvsHM)la)5mNLfjs7IRkV%8QGf|j
zm1DyMEV0`qXxG+g-@1WzVg6h52=9|l5EIQ$(?H4pz~c(L`qG?VvFUkE>z-L9po(`$
z;VZ`kPK`TNAvNkXI|_L4F{^vbOACySW&C)bN7LeZ+I{u!qv{F`E?*rd%aIEfgstca
zITl}9eT~JIS*P{L+g39FC+74&$ovEVp*AbmUiG2^NA-t>3ORV*-4%;iA{k9m*D)GS
z+|tyU-)K-i5@l@+bvUUUKc2<M-!w_%jH&A?c-6q?Sf42n1lcKNA?J`3z;u=m41aIr
z@yTUbHT^T?jmMwn<8{h+xY=q|7|Y4}L`tYBVQF)&GjC&1ei1{2=phJ|A|j160-yo^
zQr!n7h(DKpii=8C_dz7q_z7$fi+X0)kMbZw3LxLw3~(bzJ2<j4?Icf6w1cXkSgTU(
zuoq%prSk%npMkER@obgN6=5SJvGp|+fo7AK>;DG(0MW~Y-k^B}C3lEEULWbh@(myb
zuk(Ii`!^md9G9qmdQ^453)yF2eC&l067dH%*H~qw?}D#s2^Z?3t$j)jAs{d@$ZOv5
z?-kc^OJ3eOh&#0Ab`?NfIkQ}g&=|p^;UwL_+!VO|c%<ugcguNmOGoz5j2yW7qpt_<
ziP3#dIyVJJWO`J_A40zOGV>lb+sEiO<X9m|bf4%_`$yGO#rL&iR2akWmC@wP+WN)t
z-Jj@AY44}jrcFzRB8j@1h`&a;d&A{M?*4oD8QB`JA`w`ToLSqTNQ0z-+lXyA@R;k@
z$7}I8-ya^WZ-`>On(m?{)bP!01Pcup8`gP!i=m9zFM<~U*tU#OOUN3Q4C8mS4#U5X
zHeJ0g3cm~zV7n@o3LrcoEOZbc9P+l<jBP(0X~_c9*AtBw@UQD}mSrAzB1?M}7R3k5
z1C6+Ydu*tAz=b=6#DS@K+@ifIi}qjhwco|s^cNaA!a@S7ke|Ek;*f{nWZNkkH^wDk
zYTGZcf>#BUZ^Kq;uZp$V_FvvISKNviyAAXcRsN6nu-D$n4@S_7Q}emqE-w!2DO<Xx
zw3=7+#Fxf?QIZ_UkLtV>fYfGSNa$#~uL`ZsbI3_2xm&V^(sH4*#MCE*-Ne74A=fo6
zPh8csG+qS8I<IMYe2LN3q7<TOJr^`;WxSkkA@D#$_Ei{$nazBaSG^{Ikj9s(0-`=o
z;gdJ>gzBEEl(KAAs`+yDe<s2b{hH(n5s#y5Qxhf|d@oq?7PW6n&`v|E$_&5y22Q4-
zv-eOb7%h3Lps3Jw+JsKB`KynLuYwhTFz)7kuSw8MpTH=-wUa?+EG|iX&2Z;E58whv
zP%Qd$I+9iVZvd+ZMDm<|)I9N`6fcTicJZwBe4zQOFKGjxdr(1G&n?0xi3f`XB;u8T
zY47UTC31`zZNJ5Y#2KmO1HD5@xd-`xuikT@nuHmf1#|RVKDKBv4#&fq=6XKQ+EmXU
z6#bL{J+9x2Rrv?5Zq^OA)d#HAW2<Av>|0elUx#42_ySqiA0EkaDs8Hr2uY4yaW&T|
z@3Yv7UZ1%2b~|Xs`r`-DfYaRV3EhI2s<?u;ol}XMZ-x?Lk!^qK9t2CRw;S?jHS$2C
zp`xs`E-%+vb1ZeJEX&dlGwjJq*j50^XlNfbRE&mX{hm-c;%zoH@&=p!K$aafVqPiR
z8OO5+a{Jhm(F}@Dr3+PL>X7<pYc5s><Oaw`YmPNW&T&Y0SC!=O@jZ{`CF!aXYQS_+
z<Gay#Pq!!JXu;0V_|3BALw#@oJYUq)%B*n_3+98^l}1d8`m=P<P`O3tZC(1J(o}OS
zCopOjSOD6oGAwJCIwH}O=M249E_}5KcRey}i0YDFd5YyZAr3#0y5~hpS5RM6)sh4&
zllP|#f|;|q#^1;6+Fa2~h5~1I<~fC41YB@<UKgQikD42UQ!}MK@-sfv3^s&<WWlh#
zD^B`z)i~boDgd(<<MLI7B{PC}-c19F&(sXZ2KZ^ig@QEZgwV|{lc2BTaEQCcfARE<
zGI)#=1dj*jJqZUn5Bd>bp$Zflnv&NQjvgQ?n&&(u>XOc`3u8=C8Ka3b2<~Yjjl#=C
zf!>OOQ>i{J-FNU3=j4dXOL$-)9JnZi8<a5fv&!jta)i-;?%(Nt;Jn%OMwLQau6mKs
zGdIb*EqJgkqD%T>)@kx=v+>C#gjRgKB$Q4pZ2?AR<Dtqqd`3BkLK`Ip^sG2LX8wbW
zgNMxgrHq3I&HTlTgRN%1KjYv&GvAYOaJQN7$~f3^u-Ql5eg-{d7RAK6T!>|(;56);
zf<tT7PejdRaf(WwEIe@igBSnzaP%OBhism_qmj@2MdTok!$93oRO7}H!As+vwsO`h
zWwRQCQv))4G`D=)4Lb#b0q<79oJFQ0=p3s(p%*J+7U;HawY3Ch!Td}reE7;Jx>~_F
z08`1y)nivG^cswlvZ@ye*&kHyZ_xcdaZlI<T$A$rS9HHyxxYjAM24|%UMi2fFR_DO
zTm&7(IpCr?m6Xw;66y=$YNlMI8rxM0I@=xsbJe&Lcn)g-XvPYH1YFZ`C1@i^%brHq
zavZcJLIbuvLIIZT51=a_1QM8nutE(i2Dg1G%zW^&8*5#p0`JP=61EcjnOnSe2=D3G
zJ_DnGkRJ$T2DJ5~{@@aJ&aKYq&>U9F=Z2CB$W74AF2T8diCRY7jZqEP<sn5!R?8*u
zZN$3;naJM>xdqm9>BNs9Vv+P|W0P`mp;<*S90<+J3xscp95dCJx&h}^;qhx%A|`G5
z;G7bvZsy>Ex^H<7BuLM3J`_k78VyA&K&C^uTXGn;A%EZpuzGe^Wnn!cn{oNE$LvZ`
z*8L%Ns?yb>EK(Zj9?sU_#Qxx={h#3S;+|bMl+hIBIdg4sJlK15-8~oFSI!3<8Y3z;
z{RYeCJ4ZmVDNubPSwmre4W(-MhCPMkyKb~@oZZfPy=*^{1}I8s58J=Ie`Q|P*g!r>
z7xZ{iBukZp%J<fn;u=V9F1b$oZw;T_Q(JlI)9$k{lg=oFT^L8(Q2d+sVf6mJ!1A-m
z{;k~3q}z3TyHFR+fLBF3c}-)O$s=W^kK88tio4$tsN)@_#u&7}su!*qvjjf$>T97i
z{t;XI%{fdB_;UUp>CL2o{CSd%&6YJW;J#va=#d^G=6J5j&&+m5q=rT<?QE3cITV_h
zUBN@{!Wlv5FURgKS!VcBJ~Bh|-|X12V?UzR^7ZCjB5~TcT7Z{*rmB7FkulJUKxH&i
z?Uc~QLRSa&L}-q-|G)<_KED~Ey26&cb?USN7RW@>aE?pnmQ&v?k^(j?-cZd}(H3t%
zDeTX2u~TzA$!!~M9K~Y#dFazA<ar!ozl(00*+O&6=|;EowHh`Lecq7D(<hR;eC5+6
z_#JM*7HW!>o)lnw6I!JWiY<G4FFSFo;~d{G3}lLC0YKK61aaoh*$qVJJRzOYS96_;
zC_*#B3HOB7m0fzGe`ZjWjofFt-_Gp{-j;2OZ7a*V?dk3c>(#%aHqn#d^%fKS08-0L
z^bCs|V*=BQGfJ35V5mL?lab#T7P}SpV^RkdkS7-$w-i-^v;CL~I9L(u`IEVkse7V8
zPlUrRKE<t0y9htX^R%5R4mJuA`s4`nUGeHCc-1j%2LR6eT2BkTJyi?RabHgeBj3Hm
zF<&F%mzuvq=%UgA+MWlWiL=A4LbFRA6W_0!CEZ=xR?SbfD;XgaMcYu?;-#cH+T?zF
z&@=w$@q_k%^08%63+A!DnvbE<fmhIdk9mJ&Bw--9@qq?lt!f59l|cjCS3kmLtZ7cv
z`B`rdbJbm;j)*_$M~Na8nrc2bIokqMEHqSaUZh4yOt{aXaQoF^hr;bp2E#>b2_4^5
zI`u%L$AqZ}Hag9BhB+#alwyy7dFXC(n?A<Au@M@MMBS7g+25YB+$)y|(&w#!dttPT
z1nPOE%yHYpz;Khe{9su2GANG$w1N0F8-}GTTOsWicvSH0%5?_9o<*;?&%IH=CBY)J
zkzz%NZh;@k?;5i>?j+meaBh6%_Um2R%Gn31dBWXDEs6qv8#i*AIYQTof~97`ZLpqj
zw!PA;?@1YytmaadGo0l|m6cb$=EZi{Ob6h4mN6`B!oO;RPscjqWigbrc2ScH07tGE
zi+zRh6XLQ$JDe{b!FwtOj)#ibTw{Le1vD=M6&@jp>;P?Uc(mUC3J^c+wJ0CWxLG|u
z@1>mJLcn7V9AwZkLM!B>N@@;p@2}LfXAyoH8OrD(-|C2h>Q9UfD<_b_j{i`&gB{S)
zK$G!3u;c=cUz+1kI3I-bvm0d}Cvm@l)u*gFzgwY(^N>DEuG5Qk@{R&<`0`<0TJ2ux
zkr=n!l31*o8#$gOM$Oe<_)@S+M45Zr*dwL22`No0-95k3_Ao?;)IFA&GpqlEpeZSU
z68JJtwER!I*LlI@3BQ~KDM0%Ebh2y$C`}-{-ZI_7DFBc?1j)Ah%+CpVJp=z9km3<7
z17OAN`pE3+F2uPL#^)W!p^XLW?fT5@I#a2b21MN*-NcLv%8s?W^(u@8DCN~F_zp}y
zp{gD4D=s!TM&x5d9q+)wIW|CxE}U<`iHL$XX+6c=XSf3-x_J*=)O+Eg-Tc*G@muj7
zsJy1wmv{V*j%Ly8E#Q5M=!Vo^LZIJq4=gJf3Go8~E~NccUiTQe3qriHg)6?oI2nS(
z>>LZ&YndVyx~5PBuyDrM2^qu-Z7fz{ig7gA4Fh!HazvC(HTK_tEFcZQpbfu(^{|Iy
zx;v*ZxcmQqHf!_QR^!<gNEJqt@tqc7=MuoTGme~7CMtv0)4js=>@;HiTmE8hN&in;
zVY2c0$no&dRWDc(|7#-E@=kyypL6de56n*^_IQOh1Ajh=lbZ_%W(l5EQ1FBe%_u(L
zVwD5TMvjg2a4`?b&6h$621ubSW<HB}Zt&<nv`MRxs_dkdpY4GoYDNbaoB3zKd)B(h
zzlhu#gf+>HZAH~=$RkkCuTqfBNGdTeza>wIHnPOv$D=k_`W1_81JX04v&kY9U}q-n
znXqk20fti&*{C%eK6%jso!(>SpYn}jpf;B0nr3{rN&6<YY-W7<Z&^OLYd6auLYk`b
z-%>Ox>@G`OYN4#%St{BD-`b@rW^?CUPT>oljpMrOK$qa^7d|-S1}@3dlRm`7Fl#0`
ziE0m>P__#auIREJ>mWEEH@A9P)hFI{an)~_`35eZOE>9Xe&?)&SR*&Lc_ygcKWt{x
z(s@8G-NUO1n-G!CtCygv_z@`nrF###a-u<u|L`xp%(~yXd8x8yT5WCs^a81{8`ku-
zFAm|XK7WxP_%shY<S3EuK5DB15U>mD`eU*=n2s@@=G{dsO}1)mF5DpD7urQWp%wh;
zJm}UYq~48-59!q3)ce~T>*kXHn7XDgvaCNkIWQ#Z$tbiWy=gzTd_wv5#MCmJ3k4^(
z8Ga6?d0ym#sMU$&E2@bNb?i!<POeZeq)}Ee6)^lGLr}A0BXFgaXWD%Qlx1u<v6%LN
zq}?xRk8<r1N&B*jimv!bDJt$)DfhS9(lnC;Ti{uVgkRdjB;nAki<MPbtA4?DvT7`J
zY;g%r&0iePgtc0%l_tb84ary!-k-3&_KO^3TFL5PeT~hNCzQ7uhBkb{;!@YwoUbv-
zW0l%iDa?+>UQ+G_6lJP=O`pJ8d()iF<}HX96s4OwrmQwQA2*cOW<(eo?O!s(+#G#)
zWHOdbGkJ5l)iOArgo%ji8!Tbzz4{ADEI2HGZUoP&v%uF?&eac6b{y!X+Cr-5?Frsm
zAXmQ-lA)J%ZNcwVzYvTZKohqXyc%{Jo=<;?(p5TEwpH+?v9s43`=XxU{Z$DMTthA%
z(LSJ65Goqb-juME`0*d)wPjsf054&`Qgr{((tDBG)O9?3L9*_eWT-Ec+anN2j=w!2
zTh?u3=r#*(w9sqCQ->>IESkyZ)yY9o>)2c2&fpshxcpL7VnIx3K)yzfi_VUS2|1Y*
zBg2*>$4zg88*YqT7#+zTA6uxuSsk;{RP$z{DY$y78lZ3n))lYzcPI2G;>0}XJu$qp
zDf7~Bs<77(64MK>08j%YL^`yu)#|x*3}~_$`3sMI*?z+Fx`q5-eD7W_@xAM#ch`l*
z7Vk$zD=MD(ebC60Fo1wVH6eZS^@mbM>8!y-T*{2C0uK<n8`i?R`KP0p532M{cH5ol
zEGo<t)^hmQPiC3Mrc7-nNW6@QL!@X!$f5d(JSu^l0#8aly70tN`RIsZ`ZO}c^82xD
zr7Q&Er7z^`{Icv%q&}ItPCgnn3sE2<k=UG@wQcaNijn7O{tTVoEx$0fNS<J5wU`3A
zDypnD2GHDnrXfwDv88p0IPecx)Bp7VzmeX~H$d#@p^f=zoUDwtp(&**q^p#)*Owrd
z9g;V~?MooY=fR`{+nW^MVdRLMV6hENLo%`g(!}qY8fywD@HYh)jPZum^q{WI_mdcA
zusH>^?DW~x-36=|ZiNrzrmo?G!f9qo+N}bGBL`(N<)=x*qd6!>Qw^WSEM(uq79bU$
zc~^}fLB#aa7)J(1)`@+nkGwzL+3XYb7b0WdH%qpnq&!@*Rg|Qhe%~y)8zt4lC3lOG
zVc*(j3rY%$tyoL)rqEuWt*m7U#tBUnIbXZ4_7Dxt6%$xY!H@cNb&!C1hPlU?aM-G*
z5PaBGIuUXxA|!Lyt;{FZyBOyRP6Vz_g%AI!&=V3t9fEF1;U{|N86roOXRsqfPAFu<
zNfNL7Qsxm=##*ga0Q5l42XMdKZZC#@aM?rq^l+G3MF)Q*K^E<HTKZqT#Sx1gxyeZo
zOiatzT*DmJhx8N4m2S=7qsQYIjH(E~7FHUtK+7Bfi~K)R8rYKvT@|xyp3%<@=n?ry
zMpaOXD2evcYzGr{q-E_+UN{i6Ks!<_aA6Qs$O{|L^6!)yMS;EJADMX-DL?-y7>lvh
zNP&SI9V2y4{J$9fNNtf1LEFs;%)rpF6>x=A33}~KmsWe%*2Wh46*_h<4^FDfh!5_E
zd-P!A+w3P3Ez|E$wkF5!we-)7cq-CR%H{#fGQW(htNDhU{utBv8~XP#U(LSSs{Dsk
z9P;u$SdS?{1-T-<Jv!TAH)>{antf#z`E$NjXzb`hnpSE?re<14HzU))hns1oX1-Pk
z&5RV%?51Ya)XeVD&8Y8dW;ZqSwL)lSq>$!dnJIscM9mz8&6p;2Du0oPUlL>SdF<q$
zlX?C*wUmEOqe|!2>>?fj7E4pi!+5%cpHcv<nNR_RN$D#5R0Y7KsVP>4sf;JNu}d;~
zRNhT8dH1M`-M2?mdWLmpN0o$l;qHm*tRKrqm);{Dizj4V)+62B+LWxp`Ha%;WimhM
zdvl{2p$LIB2|7YKdYRo?(}!rQx%PS3!*>$yE!{Ief^93aDsp=MIcRN?9^G+~UCcix
ziQ5a57`gXC`UM1UUSRp>z+9m~AM1PULLWei<<fNyNIGUiw?@t$yLdr)gRAciZsF8>
zX)|3}AA-{<l6|2_SCX=jT_)z|(G0c1B`euq;Dp1WNav3sPEGWKtFJZOmLT~7LgNrn
zTE(Tz$6)n4wVD25t-YeLS0lZR5nZneIZ%fEL6>1Cu}8R$>%u<KZx8ay;1xZlN1pVP
znCMBC-i1pSOZVX7VThhIpS1q6_@q?~g|6PA&}|Vodvn+1Ulw;wR$k-kdyQLiW;T0f
z|FYOKTX~JE?=^1e^_*(n>FzwA-pOe56^43h@?M424wM$&joqz}bR<Bz@2I%8?y~*^
zi#cpN5#~f)((x)}a%0oI$^1mrl9ILYDeYQ_?mT5vW!Sb{oyeWcNp`0!jc{{$B>raX
zo?HM9P#>5jtdh5DgdL5)mLbkL84Yv$XYvrRl^LF}A@-6UNKi@hxH4taA|Hpx?qu}G
zSh8Ma^4tsMt@iagQCqdQd~B{WS~sIG!$0bkn88L**zKy4>3#a(`E@L{EXz^1qQ|yF
z??F<?osZ9rI++1ZdD6{9U7&y6-waQvc19ZwL&{XfY%bKnXE8ZRy%~Mf?vK(bwV$*6
z3n(mM68~So@XpywzL+!*lc$!HIjW_9Q{vmy_rR=Cz*{%ocu$r$@@-lPG$D6m4;ud2
z=KgN*rOS&$me}T0ce2fw0l=tpnQeaK@*7mo{>7~RDBaT5x&+b?v5pDqoF7g2Oy4yD
zQW(9b87$pb2?ADCQvb32%QpABt~Vb0#rgC%SmqVF`)I~vzjy-_aVb8ThW*gYi*3^f
zEvT!IW{P^L$*X$Q(-Qk<LUNjKD9d)vb022ELmSdtB_0Y>oKgaklA5^o^dapfq}bg+
zuS#pgtBB~toz>_$@(IJxlLwYZI!ajLv}IqmYcFY<c_s?-duu!qe#?8;66#3E*M;|H
z=_cRtD=t4c-w@~5sFCj6KC8W?Zst)`czTH^VuB-L-k)GOzE``O+5z|Z)#5j*i#-(|
zr?#=ghzS|}9r4;rz;~Z7enVd-Mp1h=8ZNFC8mQc^@x4b;3)u03CqiqtLALOBIFK45
zHmag-V`?6ZEO+u)B%a+yG2qmfso$3WyFs$Y7QgY2Zyn<D#c#a$Ekm>{eq+V|GQ@=c
zn;}9MXs?Kf&|TB>xF4~1WWS`y@S!bR-G{S0t)G#7vb7!Iq{w^rW%XHk5d`Nuc{nH=
zZjy+6i8%6ZPteUZ{z(xt3Nw3@bgCpBSKl<nO#UMG1^60B?B6H#nN(qP?#x?KAzAz2
z8An+g%obmoom+e<lJIOW5ZvNRkv8S0Iyn8ZK5vfxvOvL`gIO?eV^(_S?2Oi65kR;3
zjo>%1zK_iW|6K7bBx&<^!PI#zoB=UX9|D6h1xo46S-_Ohza<u+8~q!eCA?(u36{M%
z_(ZVw1Y7(XE74NOZm^qQEjl5cK-bpR*II+!l4J2tfM|ch7XO$PYk!O)<J{8a)}M$1
zKSlvn@#5o?bG043HMsb=`gq52Z3j40RSyc7itu3Z@ji?8cpnOxT7z3VAp4zNU^2fG
zID$^MEq$|~Z%+SAKT2N9?ylNtsL(EZ=&n90cd#OU{9ui}Bstd!x(bn3h`8ji7*94U
z9u{9JSsSG_j+&B09TMKnTbhu&4B`F})gPoLKMl%?4HG(_V~Wne8%eM`p0kB{{D6(C
z8z2xOKJIgfL{JIc>TXcj2WFdnH(Dn*t-cehMs_*`b4o0SkICU`XjXS8a7!MK-#v{x
z@_51!B{Bak3?@R2w0j!s*`0v@<5`dB`L{~X+Bcb^gQTpsemxCoTv{x#w7;}Uw>ofN
zDII+TeRGBXX?PeWNuYf=KQw>!VWo8B8}B6L-N{Pn<+PuCy&`du-M+lJ<V3m$y3OXV
zo@1@;?kiSUPNAuVPQ|N7Ibm*}y&3d{y6a-KS)Z^?fz}O+)br=ul&3DAGj_TCkB~7B
z$JQn4<mMz@S#jhIk#)bl;OXI7&nNZD`q%>&U76Loh{Jg_BG{puUoqzU3y#Hw=;J}N
z##Tp01yt~vj|JSGw;h2z?TxhmV!o_agLZ=uoQsg+a}}l31F*S`4YFa^O*whGH0zam
z2RwW7qQ@%=rO|VM+M<=x9c&OY^J<IG0kNE5*6cP_f)(dj^V7AFTmXw4Zr=?b8SLGP
zk9>RANt%RRv4)8~xU9+5_arnUxN%C!5d1hHuVg&Pev^>i#CCgqkeug*6B2xoYF??P
zn2=KyK@MHe9>ag@PqOCaAF#O;3ltO+lU#8lYi#w&@c2omLt!JRH_hJ92jw|YF<~!+
z2WJE&>0sr`nrNwhH9XGPua6H{=g`TM^dH$P!}iTx#^zR~7GEIG0ciR?)J90T1kGIC
z-H8_XGl6YS^N#0lzTs?qrCP)9nayGQ>;9q)qHwLe&`}r%f83(eVV_m+Zk%ATR+Z>I
z$mch#Yau{s4Qzs_=?OI^_4v0XO|U~JLcSbWNWu7M>!W^~*;8p-!Zx+l98rhmC+Ft@
z<L!LxW_5f(UGBXnvZVvd!wsOU`P$UOenv-5%GhdT+lr9Nk}E!f&I0Gy&n%_nI#)R4
zqm__Os@EtQcEjd1&#R(VtY6<&5uEr0E0v|E<6`&J^sh0?a~k{2{WDeiL?GkNHT&eF
zG3N_ntosa~L8|E{?GMsOn4o<ynRnHh%&rjO1@fW}J{v*<YvwATOJwsv5i>Gsq+g!G
ztm&5mC@J!b`<mH%>6a#p`vcAFRQjcb;{HFH*^kpN6^Q%8&CH#Csao8>+RXM+y<^R+
zIsJ0tNJBqqW>2MG3KNC8npuOd(KnGzE&Y;SJb$a1m84&qE$(}eO^q5l-^>>K26GvC
z3w>=|Z)QopHf|s>g0GE_;dSY2;}dAGsEu15d6Rv8EmVOOD>hndjxCRP=%w)XN#Mp1
z1fNj^E7+a0mp%9l$rh*-<0{1OOT;m@hTPU~4}P!ch0wT&{lV`Q><M@8Q^VU3ul9#*
z*|0NYDCFq!ouP8Y0TkSa?2suNOW2RtTW!ueXD?EzQGepyG3DKbZ+q9Fyo1fC@-^(u
zuue^L=s%FNu>xd8b7(8>kbh3Cl~*VkQDl)3MV<DSZZ~r8gc{2a%yP>i%4BsZl{RO)
z)|byjUWs%jpO7+7MG#?WW)scdOf2$|2tqz4!}c`{9RQ31_mx~y`H4g@2(VsAjuyLZ
zQWeD9Ux8&%?D~i}gYA|1nH77R4YV)<1qM9w;bvihvyp0wd_i_+Nt^KIi`_P6^T-KT
z;z`*kPy1cG#|e$fjKZ(Al!cb2qx|P6U*eIc{zCZkW%*je+IV14o(|Iv^j~=VqD2#^
zEe+867d0%Pk<#Np){si~ngA`U$1AoP4LUJ_L**W}jm?~$P{k0zIJP<h*d|q;5LNdc
z<g3LHz*ix>N#DQmxW&Ashgw3aFR3VZ5ZY^9<=|>TM3FljjVRN`Yh@KEF!MzVx<YQa
z*1m@MqIauprN)v~4lTnqG<^kcE?@|VsJ;aCK*KyLqv&(*JC`V8!Pz9?MpF*oBQ<vf
z=)L<Kt#vq|F&|uu@Dy^;sT^ecgrb9xM4}81HYp}-s%_7LlogEJe*?{Yvo&QS)FFy7
zWb><l)bEGH6>JNQ)3=4P@$b!R8-Ke18g{)n3MXK6(fyEMe*AlzUkGK$Nr4;{!Ipcl
zxBSHSt~n%b-i}~X$nA*TA?{GQXeSih``X-h&K~zj#VI&y(~-jhhbUt?boJxkt9YK_
z-|C%I;x)7}iQ$O-hgy!<9xS7sjGX-=?|&@b2XD!E0XZ?`<=b#%W!*O9$=DVW2c3V0
za$q}P3lc}?6h#S*`lEHk^5I+o$DMFrfohO${<S=;{ui<^L}kstkc08cZ}CYhVXgzf
zI-wA_#r=?ife!q7aTnoGmGaViue?;@rH62yti1HzD=*~(zy6j(&2-7TtS>=4?oV#Z
z0{97Brp#E**cn=_-^JvLouOEqkZOF?eaq_oAxBs554*iVY;d@nF(>52YUHCNy#n3A
zRa$~4Z3ggP1{Robpm>gt2tniEEulh*xOvUNM@75d5^yGiF2Y+vCW}hJ-e6s5T*01D
z^*xr}S)H@Ea}2T<!J058y)yvL{(zcJAY1x#vc;WCay<6asn+*UAZBsrY@3JIp7{*v
z#TIu)+C0+9>$o4|iT$Fc??Aj4GlHVQ6o@v})F!V+n?T?kZ93K9P|QD-^2`HIWgL9k
zJn*#X;8SEhIdo9Tt_r-Di}$8LlZ+tpPJqT{h4lSYT7{GNsaJyzM*%i{>AnTY_BsfS
zToq|(Cygk=&Vx+&9yXUuXvFIK?ZuPa27@ZKOwB43)!W=O3dD84Y4N;Z@lcMa>oo{*
z%-%hX67Eef4{Xfdoj|t%=79s&-SJYoTN?DpvmNV^{0BA-in|_0uV6ROOFinZ`IfQ5
zWry9VG^t}0L^O?5{WN01186||^(F)Yf)7YH8P7BkC%AEu!hI8;_uWZ8K2K;=hG!8p
zM{bx)L6E)fZZq8hLj}(9wyH9@yK%f)dZ1zK5o_7-&}bZnUUwl}5jJ?ABd-W$-gtav
zKwMN27ME`>3t)+I<ZALxv%0FRd9I2RR@X{gSKwM{%5#<bGV2SV86Foltk*nHk*AgB
zYgKc#@;nHOTD3|m#c5TsT6rohkU~l*myk0qg(FY?Igv@oBhwNIQiz=vFQw5hx9jMo
zNG&2>s)k=;MHP<9j(Inv(Xt>vW15wVUB@#8o|;;E8|HY|0agWzsUd}IX5<{;8Gn=M
z680{S*x3IdvmeWmW-gkXoJ-n?vH6Dl04W*%&#|ei%d(-Cm=M`7A5AN*mc~44_$M*T
zj=J)c$aySw%=aS=ELqW?!OWVH^`Sm&tu7)W<s)3@%{RzKdm<QOIGghn`;a<@Pqy^O
zmmr4CXsAf4TQLY>GN`bWCzPv+Nu-=c_yY?cJAbX$z%(jfQ;(uK_5vIXNW#42!L(R0
zwq3-<yuO49Dl5!Oup$YMjMp6qUAY1=4;~mrEU>_TSfY78>HPwE<4IL&d0iZ*DOZH8
zMS6g4?G-XLO(^-+X7NJsuFp2IpaOp+NvK1Tgjys?Sn0lE)?VS>)*++iK57`U?lott
z!ua08_&!K=y=Zy3_m{Nsl{zfL2Zf9HUgY;aA>^9nVdF&eZyW^sg)?Hex(f2J8W%Br
zIAtIy&8|QbVx?_a%=vN)TQ(Y~$rEP!m`imCD?myInlSP?z_lpTf&`NLN)Q-YwzGoA
z7bZrQ^(|P$H#)ZBvusVfE8%gU+!-0bbgLZtn6bBF@5VOg{z}jJ8CxFZD#F1sdx8!1
zeR>4>ZMc!$KQn3osi@2?hfG6>^ob&v1xfp9-ZeGX{jRVep4tw#6Iv)?0K+@DL&4HE
zj#=?xw+8pSrN(zTjr=rFB{4H5)+KHJqo<N9)lZ*>7ZHYk8g5Sb8k}hI^m*8zA?2B9
zZ_?}B@BRj*A02kD`mx};fHTR8_Acub)vr?76(+L2QNRI&i-SGpT|r`jyF>ASPK9W_
z`!<R;?LLon!Us@x#nxDZ9@ci!6kxwHX&(gUM%miO@LmAbTaN&!9#n3t5HRr|4_qW7
z^WR#{0v81ZFH~%!#72>U5!FPeZ*7Kt9qm7m{wPiV?e)s^7t+Sn?&Zg#{~bd2E@c0}
z<lo**qlc|^K~Rro;Q@iZ-hN7{umBa-u({cAM}UKZX>Gs^@OT1#iYn8YC1AlA=LovP
z`Ys?^V!UBn#0IPT=46X_0z5{)^3i#4hlA&~MwMdM$!*9WVItF;c~`^+b4%K~Vfga3
zQoC1WoIjq$Zh{_Rg&FBb@FI<HJWVUmWNj)%3YFO=&4aUhv}YG|3OuFS;AJ2b-Wd5E
znI2|9F9*@q-VJxgLZ)PC6idcAvtyU@eC~bkyh3X+3BMI!cn89Xc~|wL_+3D2_3U(p
zCMXGoa!l}Y*w9Mv-$6b{GiN4%sLB1|uW3^6T*6WUzkbL@oHH?%RGNyY0wh3tUY&*0
zHs_%p3<thMyV6!=lLfcBw#MXsSM2}UYz0`))}aDk;RK8QqZ4f2mFe)g4T{3OVd5cM
zfmC+pmLtlu7(jW7l4hhA?qlwr%QS%AS&%m#q@niCg>%Ggfykj28ggIx<uDRyOAJ`B
zKGz9nppXR-6!6ro?ZId2yincyFdf6Jm7_ONalL;skDPC@&nQnLN;d_h1c7v}jU-6N
zR;Cx3NY&8$GXyr%@1k^5(1Wt_j_wWK``Gyc(9TVx)y#Cc7$s;^D1SS)+3T9W#pe}|
z6%uX39czZ-m6e<{-GnrV-}{RGvsi?a&PdNhwG>yOHdv>b-;E^TF6gt9?Z?QhGDq`3
ze-dVaeM+y<=$r2YdW4Fp_99_ZaFQ<DRQ;hI8APZ#THAMnXjUQ#5UW64;gtApsX(s}
zm=r_16^3S!8|&SbfCJaUQ7)O}aCXx3zk8}7&4mfxYMq#G@-n5<)dW%aot7;!42gso
z1Yt{t(_;X|m_&XyV60?<W?YvE%(cr7Byxy-=ylO}?{|tv&U=4j-Cdfvx;2L1lSCFA
zX6sCH<GT=s%FD1{#7@b}B&TLM`QGFoJS`j6rPdj~$aSLBEBU<|tGT3tPeZZ*sIw-N
z?^qLAp{bDVb>Um!VD(O|<!O0JDce7Pe9}BQ&hcr{9>=|0vmA?1K7??t)&*Ou;;Um;
zHdVw0TG_trLhIJ=tgk#*LG{8ZXP@|fn0EdWwga9|b<59;zY%l1Cad~wwtK!dvXDJz
z_|ua$L|T;aq4yB33mhrV&HKV-Q3)S<zk;4C;Y05eP4R{gz5h!EDlG~v?z@hkSjp`5
zkaO>9thRDUw~s)^UfM9z$MFOOYJ&o_fm(k-SuW`5WMCfv40JE{r6_$B>X;z43pl#C
zM?toMBB{0#=znn^&I7hkV7f<48iTQiu$}guK!NFeB+nPo1e%v^LYv~8Uw(^RLxV~b
zct+$Ndu+_F=Y41C-Kv12@c9ga#{Cg!+?V1*R+X+}S=v`&sTou0`jJKZ3RiP~Fz4eN
zeux-W7L@j9O27ICvjkJITjfkwJRG*IGT2VDd1a+ZI-lF1d=w!i0r_(qCzRQvQ_IZw
z`dowr$MQH~Zp7)wi4R1Ck>c|YClp^83a%xFxcFdbVO0UKd*Xc0Lj}(uNhYOBvajnR
zVP}Dk-xTR@IGq@?x4ql_>LvFp5OtR?W~aP<*xL&YF#I*=!azCwss&%YD;lgR$-y_Y
z%CdP%5*ure)~9gfi6mozIjk)ypjvTSEM*_q|DG5VwkOF+^TKTWV6+P|)GZ%O)J?M?
zA%QRgR$oWV>^d?d(0l|MqbP4>)q-f%a##>jLuy}TT96Wf`M3V?81VnrAO5KF*pJ}d
zKzHzH77dK}lELmEH%yXMx7rYnfqxkNBU1`!xL3=-m0y$d@dZ-yU2B-cG=(Y|*7+d6
zLW!<Ov4f(w4r-8V6<j`U(B44}lWw(XWH{i0hY*6rH~+yrj&RA>YCeL_DkTOzSUt=~
z@UiPT0na`N06l0nurg4(IFz(55;@9G<!hvX27Q2^+b>%i!16U5cRiJm<ucs?pB4qc
zsfc2TsW8K5fAXnea_>iX9sV8u-hKv@$5aUTow`JZ192(DSCockth<2p*Qy|VSxl;Q
zkGWDDgij}^SRmxcBJZttI327~?Pt-B;dqXnxS}4JD5j=vn50G;6_GR$w7;@RE@+sH
zlRJ%M6_CN;hDAjFNI8YauVFzbV89s%lxX*i@1LDaNUi*fSK8<+$`S&&8XgejlHA*|
z&aXyc#YM0K!d{Tr=Kik`V9zK!3s;eC$=r(6=dk<~Af-35R{q7C-&S)(qc&>}6~yeo
zm;A!l{`^oIOf^5FY8thK+e=>iUT>T9^i!q1ZK|iAvO_$-iVebsto=D0D^8fD+V7ZE
zWex7`burESbFrgv$bzFh-BKn}js~CSk_zmr?*<L7T3UbxS1q*-H^dLE!1J~p%kX^1
zHpkdQZMmu)xl)_2z;Nwh{q1_Ls^m=;<A4B9e4>#_1Uq63kxX{WJ?mu^<!cwOI!8k_
zq_RRu<yVL)tif~a`Oj(3HTW_zrG5vJ8e1uo>cFp6)BM%v4G>f5>><%?M>13$868IG
zDl$5zLuAhANHTLdqr=dFT_OE%M#nVqGC@3!$Co5CI^xWHd`8DqGuLHw#G1J&qa()5
zof#dvjwv`r_-mLU(cUaY*5rur_mNbF5(qaSgBh4Y!i%@iwwTx?c*3E)?|T7i$q(Kz
z4U;5QzKUbn&;BtVM-<o3#hGphmoT}tRkR~#Kce*VU;R|{=WPoo75(5Jw2D(S^eO|S
z-VaGY$R?x82gTh`br&>5e>)iCF*L$Tej{**faVu14N+DkEdA{fwFdBAsbRnJuwC|+
z3Te6?A417ibOmbYbz!kN>FHL01_7eOiG)NHAf|Q@5G4L+Jm!fU%Et9S2fdpp;ci1E
z-KlW*9RyaJC(3k3>@i%ShSDB8OLrRFJt4~Z;qJ*8dgf1eh_*IQ90RfLsimNqz!)Qc
z$e>PXYd=B|A%oj0z9Az|fr+J9a(aL1nptJBWb*!sX=aXMN$33)+srJ*_*kV<Zz@bI
z#gf1GR~)`ZQY^{dU-9@TN-+}jD<xq|)WSQKe%&<6(}t4PkCVCDt+7zRt%NVxZR*e{
zuq<|xMvHt6_!3S}r3RlAq>oVTdl@D6xTUL=e((vvw};g9<yk*cc{v;CDl!*^hFvg`
zwBQG<vj_oQzWeDERzqbk2&LNh)t<t&&N#F}=j5++TGrR24x~E2<_h<OUm^|GG6b;B
zDQ6!QTbIL!$S>ESD=DeUL#*LpKfiNszqIeV)$etP&+rk|z~88YN-OM<6Oo0i9}!0w
zkHmbwUOp(z2e|<?$j3I|0^Ekk5LT&TJ)nAf@IA6tW^%u6h1yE^!@{M}L~?QK&mdAL
zX4qW|A`R<vw+cpF$n~gI3)#uW$50#EiF|Cc6F6{D^Y=!a*P*V3)*fjcyx+gwI_ZV{
zxoZq7nBOz2_u<>OF!RqV4c10w8a{)e9>z+X(XskwuTAusgNjj9%?onn2!|t%C)kjv
z=yGI#l`eZ(RE(NT1@Q1>ItqDKC-87R(g=}KNr(aD|8!c|V<YXmCS67xnW9|cYX(&T
zhEm>N-B&GavY|VzF>;1=AM7hJSx{<iw5+@<rBvxQ4nA}M`6=Q<cf!&enpC%ZLLGdy
zt6r$lveG%%`6bm(DWwu(aTb|ncTnD~O>HZB!}Oc>ghxsS)P&kgJ-abt{_{#dnjcfl
zmnt~1xG`S)G%TyZ_I1)1@uq~Aa#V5gl&UMiIc8sU&qkAOFvcAu@?Mb5IOvA{T4oQ0
z@NG0zo~%op=nj3M#;rAT!@8T*SU^giBtcU%u^m?E7+r?npVw%)wy;khuQ{>=q2XAQ
zVEv8EUO84BPAySDb|^+6AGNjV{iCCz=FcxB-`zt0x}o_M8%_TEqXIZ@gw2)$zZKi|
z?7eXl3j3?$gMtdk@I0J}<7sdF@Ij<s@_KKwskY}*4Qy!z|6Zj1b%b(iq@rv`b-Y@W
z8O98Xte*%oRV&~LxjAwo<}O3Jr+8>YA!s*4I!r6GJL=*zinyr9gIK@I%WoDVg(Z%I
zHzXCG*BVaZQSBYWJ~0Nx4Ob`<ruM<HmdEvEXQlKn2)SR$ff0yMF{MxGuI(W5&<Yb8
z^_VRDjEDQG_vQ3(R(bo{E&3APtZZ8aXV;^@xZ?CqfNK-S^L}~$oN~(TZe2u;>s9lT
zp(#gi=vY279p`)nlbb&G^+-&rk_1_tA$-PZqC~oJ_XLv`c`l#=-?+%90w1fd_nr{v
zHMavF&!BWF@MPFnm=U8sJhOVG!QhU0CF}0;c%+hfJatxufb!rJ2)+LH;*6^~@XL`5
z(UB@j8s=BGp@LT_yBsqWiTx|hVRL4`0MCHdwK`dx99Z-Nt$UZ_yF#<?Oj3nv*BYL%
z2$;tQ4%uRvyeD24{t?ed$H;T_H^|>%qC5BnWK-*zd^bv6fb%hFTWChyws5x^j%nhw
z&Q40mAf|mnMjt#AIp1h+qc!kmc=?OlLD^-=Q>JSKo}Q!_v9S6Q76;4WU~=0MCYztU
z8=IVqgloglP=qBZ_%?`8TXO;)pKGx3xpudod0}kop80H?d9^Vhp@J*0M!-idp<``D
z4_rgsvUf+2l0?bq((87ZF)G^iF19Ttrtud!`0x@xlNArAiva1Ey;IK{@0DRRto795
zQ(=$ZXU2dl?xt*F709ji6fg1aA=E3_zWgv^RG=0-rT+R0;Yx%T0bhS1{D|-Zs$nIu
zj;|@<Lxg;~kYb;WXWp02$3#bf6Y|%9sT=<yWv>sn!ILHG-#4sbv(+!JAb*u(RfaOC
zbQRbMHCUl6@n4VgKMqbfJFBIN*)_+#aJ4?yq_N`*RBaJMvR~v@0U3y}5*{u<=Gst>
zRJix8MB1ioz_&_3`f8H0y(85+IAMR-evk^1*2$YkS9==8$E2SMWA6XuFetO{3Xj$I
z09!@EjKG(d)ErN&nEA0Dwx^kXk>eFyMykz<Pvj$*hbp9~%!KpOJ~C?Z<PlE2swI2N
zzev>iZ`9)x>`XW5viBUs<h>-vJT<Udz<fw;3Sn6)8Q*vMf0-pFM!JBJX^+r3r^g-2
zj*Hy^f9VO2iM<;&s}ac^5_Le(;YpDyV^js)lw!tyQH`Pd-3m?-gU2Rl_s_u>KxoKz
zO=EoUKdN-IKGuimH9|U%4@K-_$mR`VpmKGLqxMdQZ24gMjYcAA(Rw&Mky98PeEO4}
z{>$~;e#VM$*^PrS-sP~LLU___M<ncENWn~+;7OP7OT_d~jQ5*p|H->mcF;Lv;th%X
zn<qHN!lwvFwGn3vE2-oJ=-|UA)}*weAnt#eg-P}=v#u&hVpYk@dFs#Sm&V}Rvrtti
z?d%3u^ADvN1t;%H4Ukfz>+s!(zv(Y{gYGq|ZRI9MT~3TF$KH*G$3fXm9P$p{fqfz0
z_V3i<!+dl)y(i{Bl><ZUN6oRU$f%icrJK53uig|D0By;nl)>-_b{7-X%qNX0B6qM9
z8i5<0ue0VOX_`o1#q;jYyb%vXM?s4IABmt#6S6Cs!yZ%%H!Up5Y*|}p&GBhd_{zKW
z1agn5;ls*<?R7)&l%FVz<Fd+koPE$v{%d2s-gg@koH7)lCQ#`log8iePXNNJ@HiJE
z4~Ok@IHob24IW~X562uxiU31h0-rt5DAmq<ouh6!=b#;iHS!#L8)0$zXyqViGrsk!
z`>3i=&!;~^zJcnbx*7%l8)nJ##WLtNe8LC$-XwM3Y2x8DsjJv~?hjcHE$d^&<L+Bl
z=gZhAFD{x&XE02syTM{-En`N-jJSN#0;7Cbi-}k8C+nhy<N$DYF>_NNu!vson}ro~
z<S*2h!sAdEd)IJ^4nx@Ohy%fK$mpdXb66Etw+29<D=u1UAm>3k$+{b$%?_s9c+#PT
zYYu*^63nF(i$7kczX={=Y_nr*>QX=!$nNF>AK7)gO<K1PHinlU%;GGTCchLph(J{T
zs9Rw#>3MS9?EUiw^?Yt>V0z_dN4yyJ_fzZSmvi@4OO21$Tqo~6TBQ>Ahed=mHWw)P
zP7%6V-!i`y!2Zn(hEDhafI@VI$ALMGiNP69LEEZrjnH#1hl5^x>HIy3N*{;xSLB7*
zlo<u^_0G%`tn4g~8c1xgZ9xo;&A6A{iDmLLY(?D@sk)7psygY6)ey&3lNRVxVn6}}
z;x@lEnR?xeWA%G)?=i(YDRo7eHA9oz23&J;1K3x#XiT&HI}wv22Pd}QZa2SWWHr7~
zFZYcaIlK9C`>bU!qhcG&G|OW&KQ07N1t+hx=Fb9ZE}4=ut3<(KK)k^j{OP!=82?lY
z+$lrK*}bxCyJ>n~Z5x}8zJsA@JZ*k!iOJW^YoZ$<&5~p!>r32l74S-KNHH2~4somC
z+4<qwook$OPLfW28dL!c1SOFdoATURowiAPcotwyaL;kcZL^lazmsHuS<;#6fclcB
za1NM=G)A_zzs)zWSQrib{d(h!8H0vfVf*dQto}w3rRjIRIs)&&%ZIc?zb~9MDbo0;
z#TpluLtL|VqMta#ZGs&7_FPC)W1ClvO<m=k)KxJjB8pdj$9yc2(>B6tljY_r1UMhZ
zyy&4_z%UvltS+Hri#*}SmIP$hRrn<>OmwJ>211m>%<Q8+#QWJu?z_y?$JWkchKR^H
zH{uXQ!Z(*wm1Z`>$NJnE&Sf{J1aajyo<N96o*FlN5AIDnQSF@{XgZ=@aJK&caVC)A
zOn_{9^WkR>#F@|K$Kdg7=O--yP<!Qg>J?{x>b2B0hFfyK1Mx2O9=Tn{<~oyJnL4Xc
znlZ3CMqW0@!M)B4vv*dEiTWev;Pp3XJ#9YC`9$xA{M`#=ae}%=rVPTbp(Os%)OccT
ztD&=(?oHkgY5*ZEv8F%;qz0GaQDV|RM)DOZ+$@LP9Kqbbh+eOxCmh4FE@VP<6d$@h
zymqc5(?T22>Dwx5V050sRQ1al`N&mhLni0W#sEuJ?H9(2aWNuqAvvyu>j&%Z!t5s+
zAmZ3FoQ#m`?piL^n|w6T@AK%Kxw@zdM5Q;*EA=z;F#A~jIN-78lI9zR$UX*UPnU6B
zjtO|v{=|o9(tKL#F`rh|LgVXy2C1Pg4@E=jr;x;;BWIAF3_pm^8Ka%RI}`M0oR{|K
z$-A4?6Eir>^^NB8ysPZQm-`e+1~7K2f*6izk<WxF$}U~NXBGFV$CS4gXLAJF6UzhV
z6HUb=pgZE^yc{W=GJIk|qd#QTo;lR1(I3S1Ag=px-G^%{uC2K4#&tKYEx5LHVu)7u
zb^$IU<L|^AhNcuB7=G5NX|Cn(dI$T=qrSlw9`@V2A;!Abq^SmEOmxbd7DVE+KVWrK
z#jHRMT0RJIXe$l)32O?8`SDfkfkKB<{ic2QM7LZ$I@nVnjYCO1Z0c}Os0oQ5OykZi
z>?zBsOF)2lbkqWUq!wulCYr-`N1t1Zl!#RfUgM`KCYA4*sfts`{r^MUyN9)PUg_d{
zOM6QoE&(AINf1XHBrI(%0W1uN)D;fM+{8t~20MTy5Ez8*0f&siNn4!8G;wNAeMzuA
zIUPGOPRh*qv<!ZlxS5WeiBpoeIl(vwNYf6UCZ3j=<EIzT6DOxndfxSIVLQ|I%*=Cs
z=luRi3`pAA`@5`ft#`faT>ulbudQXgdE?D~8@q0SDbcFOy+Hz?%tD0!xHdYxc}+jI
zMMAlnR$aLvfP)w(1V9N>f<@Q@7P@6{QkKL6As%Z38;nZFRLdPFyV1J~PnD5<Y+EiD
z>G@1JQyO57b1DE2hz1Z0f|KzXfF{r`?K}z{pzrqWzwI~_WaGXI_u))>x!pam0JCj!
zL2HX-KJN+uzVErv(~E`EbOGs;^%Ns9oDAM8N)qZ2RM$pgsmS9ST>9N_$%MC_Q{B`(
z_nqnQpRhBd6vmp2p|ycUish(!20v@Q5$1oF@O_@W;ZN`e&E4O9$3x%u#g)khM2F$i
zJAGW51)kS5m$?a+h~nk&DIBWqdoDiqDM|gTOt;=MycIS4x8jf-W%g*PECs`|$oGUx
zzksy1^3HWW;RTZc4IZ|lF`8ru<o<-qCF`Wt*%NaR$*kqtX(Fto0zsd+<Kbu?zbl@W
zVtdpF9Zg^^?egvuGK2&q|97ZOzKN<A6*I*RM9;3`N)LI7jpk<fJo;seU|u%zabslw
zYrrM0yzQ`@srED+bjgC1Vy1#Es1Q&P0aVt|d+tQ_MMM6Q?o9y=cCAvZ@d5NHKS;Yo
z2TwGnzw!OQSrKhjcpeq=1?3`i!Ybyu&9Gz8U~iu^S*SAdPB?!HA6hYdcCnlr)CN`O
zHnrj?{vYt`fiK~-%YaPYn=0ANbvZYm^X{X@3oFM~<okcKqQMHAVge##sCEm-sU4mb
zj?N4;-<gv$N_7|thyss@KNd=Gxe?}_DXQ$^GRD0v$TbE4e(>8^48)w(R!w=)uCy2i
zhkYM*u0L1BApQ$Hf(abYNV3rJ%+MrSq|qZ70PG*NgS0g7vOl;09MF;HRvggiy{@>P
znX2!mMZ~`{*Kol>_rN<L^w_qupoBlWnP?Czh5*~F%wn0XtX4dnuB`S{zfm~jIrbpO
zDt^F1WAh!2**Wf+^Bd03L}(|BJQsCK3D@n#{!ss$dtlO&(CSUI!v%C$pfjTMeJ-H5
z0*48s_A!Yxb+)r$3*3`UU0JSMR1s7N+E~KAj2d${`*wR4R;;KgT((Dp)3R_KCIJDk
z$vMaSQH=ugAiSV{qn?AF<6%lyugSC~*3{VE=x!R8fFn}OqcV{v$97-+=m31L%{Qg$
z@G=y1>f2k@2XIdCoF{j_OA<1$dtVNy*OJa~Jab2#!kPN#fZM(t(ED+X4=4Wb`!IHX
z%>#{br6=24S%cW}|E(XBfoF{RqlmOP>wIL23XDH*zLe#>FLh-(|G%|Yh{W7QSGW)b
zI6wqnOnSZdsiaFoyv3<RVw{6;d!g2tUQ|<I3jYQXrW9i-T7ZUxvF8~ghon+Gt9~%6
z+-+GeN*%J9$Hr4^>$ro19zsNDqfjdiR!Ny>&{RJEUEaK7+fDMz6xoGlQGLWeH0I&b
z#vs?WVu_ajttFD?Gn>pyx(EcL5FHeGtnA*v_=4#oo#_ADRtPQHqPaP!AnloozmgV#
z_+X5$A4|gx*`6ALp1{Mv!W7PA9PMffK@haTQ^5!2&^sH+w0t*VH$SC6m%*X*cvaJa
zue<8SlvR$z`y)aMKJ74)sNQRV68nr3j<G_~C!aN7XcMdll3uqa=BU=P4nxAe$1FOC
z3{mppjyNA2W08k!B_x`V-u#mva;iVs!0P`1oPKHT+ZdwJiw#fm>T>ndUZkw~)##e}
zjo-cFQU5LXM7io)155Wm_9K+7a@(hpUvER5hGh=YLIlelp?V-LLy<H!FCT|k<nPWR
zf4zAVdNZh-{o5gC%=yGImg%vgPo@PLs9$#-ZaQR{C4B|>xZn8QBjsve%TzK<JId~W
zXa!qbC)o>ayC~bYaq9PnqH~->w#LdH{tR8C;6L)F_$iQOp~LfVqRq`J=uPcD-x6v~
zXGW6kXs)`-Ht=l}r2HLs_Uo6HQXf0bhw#jQcRBau0EuL6T{;OJ&D%ay;6L=?cXLlD
zAHM$tK765SE}-eSvD3Zsoufav{&y#)QukZ`8a-mg<Lj5!Ja+oTv-GW3bC0tRk~CMs
zZu(;HuC*-?vqBD_atkB*ffob$Ei&{g^`z|QXa#1p2JgfFI=XM^zIA&karleQ0sf7y
z0Tqb9z*3M-M5|S*`JD_<k;7;P(?vt4uz%-eAVg4o8h>K{Mf~$$4m^3Wod3G}J1cB8
zD$Kq)A%y7PA>bRBblIv3<aW2Tz3uz8!$M`kVE90R3n<9#=~#2XgS?`~qfV^(u6#}O
z1m9{yAS;}XhmuWYyLv33?VAmW*2z`w5oBJdNS{?7Sq2u=y6puH90<4haaM?<E!tJV
z#eiXVP$(?+nFA<b{-5$lNh?|v%sVXDo7!PrbxVOiGon;kEltr~nLnfZIbE4FBee$L
zSjAn-ZxjRo>9b|mvHPBMUbz=K+`<ULRwR{c!JY5@*pKKd{zX<iU4nv2;>~TVt#Sfe
zp(074^Q%ymsO1J*>;`HNi~?N}87W|*qzrVZB&4uaFoyrxqysvcOZQXKDxLKnuo}F;
zK)w4PmOI?a*dY;k)~c>k<as8~Or_lXshB+OIQ9>h^vk)(s=#(A0&#Ku2$`*m$3f?M
zL0q|C?Yr_ToGX3S+-uhkL-Hrs0zEWG-pRHY<F630Jne7cy0#(rA_$vrRLu_y(%JfO
zg%qDfs02S0UQ%8QR{8qOpK(t*=coV;HDj@kaAw|4cYK$7Yx^c7gCuRP91v2$^@?ed
zxq-MEVuMjRaTUtU?Qo;@9&H6{v^7puz(ObY745H(Nd2CFm#vzEdPiGC(@LX}dc0It
zc`$Pj*At4MvVhn{8K=~z2Ae9ua;%!;JzbH?x3f)q<!381oIh%%JPrXH0e*!2-&!Y>
zKMIKex-+?^q2$@hJm-~<24-KMkm@VvzB5sHz4II(1;ox5jw<dwlBj3@n=Sbg;G<{c
zz!M_<ggHyJweXA7!H!m*<}{d+;NO`oO744RB6)IHs@#HD%*k2Sf1NcyFow_jbyicO
z<kQ?bPo>8S^3N5=twu5JbC;*?=_~CoHE*<p2eXZ%7J5g!o4PJ1NMcl0R(I=_qwQ7M
zMu#PM`SJw)ci*-z<EVY*Xz+6V^v`Tbub(=uDJeawPVgV+ZWH#rH5f<Y3nE#4M_3xw
zI)CrpN;<sB2SS4DTD~<{!!N20)n4NMHP21jO!K_Ko7a66?)!vo<4+czJ}&g*%#vuv
z0l3av`PiZGCr)+zdNI?Hmm7vS2xN7);q>}<-<K@!=zjUxN}3(63wt4!*rQfHh}nzI
zjAS@qN<dQUeHSv$iWRUM>)zuH_2Eoso3T-4%-K1=9Y8nte$SD#JPVbztK%Ic4$2!m
z<G6EICUPH;3LV;*Rp2HdCBVn5hoDFS)xNYRn0G)OrgCN?X_?ow*M==(G3%;mK*{uX
zO^M!7QZ(i@tL3Gsl!J0WeCaN$BN<6P_|=T35RAnX`RuT1rg2BLdQ%)9ums+P69^r5
z^Dkf{u3nxRoWHPx+9_2<;zqUgA5Ls`eP<$hF%Vnw+Mjxc<H{^X-re?WWkN7NlIt^r
zJt=Jp&Cq?(d*oM~l%7Mo!Hgr#>xCmOXe?{2&4+P3#QA;=QINcP4rs!Ol<t9VKU>))
zU!92EP~u|6WZg3pU0D}yQ6=UF6B_f67KOduMf9u2Q(=#>5@o1n_my0(Kkl%kp@bZc
z6=gJjbqlp_95*_F|A>`>Iyd$Y{vxUnkf`(Psy%h4chQggek2iv*IL=nUl~I23p5Z>
z5SIBjPEnQQO?bSp#vHi5U*vPIm=1Z}36B>*GRum03qh|l8$q+$Z)*WAyyN<Q{m>@p
z^q^0WC3nuMX^21=a@ninteT%SyTqw%1UH@I+b+#aXr#4}!jU(cKTbm+%yKuw4j+d?
zeJkH_^rfj3L&s<I*O+~e%?+nIup-gIYahLm^dodIooq++C#ZI8X4i|v1l#3`p9-1n
zgqfuJp8~Vt!823ILt!Y`A(6_i)xL-mz%7ocYPwK$iC57cvCL8?Hu9M`fgFeGcfkgo
zD4KKA?-X_z<y|y;qUxJp68W!Yl_M>obirDaMXu}Ugr0KVs>lQc#9HcRRi5VPeWvdJ
zrHC=rA=d}Q_t{GN8BesU%To~-?(Kf9bI5yJMm#wRa*9t8#EGmRLY(3BqD6a*IsEJd
z_A|>EA{qZ`_FLo?K3n<uzwsJxxq)>QQ+23UzTs+}q<Pi%$vU}9r2E%n_DD4j^a9FL
zrbDqn72YMeO9LYEj4Q$unr~C6#VvPP(B~;A>|qp}v@)~V0vEh~JFjJEmbX2Gyd{!B
z`*CGWRgC##D6zBtgZM3;Q9;;mkgqgs<L;3*5%9~XN%{^Rr#pcnijT{=DD)=M5;6&Y
zAqVuHF1gK^w!qoVZf3jLr!@VJYRJCu=|v1jSH6kH76_R5_h+V(mbc4oF-28wp6|&l
z5$wKArs9{T#8vXo9Y40K9)+K6w!{QSCz28VRJ)C_uH{U$G3spI>61rP;~Z-U8OLKL
z-97X~Xk@|_Ke0b{14*1Dv*wGj57yvkqzx_#dqm2AIGYs_U3x$5qXe?D+S56*aaEep
zbbxbdenH<ta<S1-$l_&_Z4e}>Z3uOetJaMYm%2fzs`jYAmYsQKN=!%#Q>$uKjd_>@
zeA@l?utxdRnJMftvKvQp=c_d6_oyj=yaQI1rYeD|^|%hLZ#dR8x19kQ7|SYtJZ+U~
zWsYLdcShHsBm5g85x!w%j#Q`6SSH7dqypwV+!5^%j<f*Z(*~dj`m+0kqLk%2Rd8;n
zzi0f`)a`k&TjsY#;5PsWij^LHppjpbE0>en7JBaBlpCyXx8R$O3#C3bo?ij1gKX9g
z4#F|r=vo5ktb@*4>M_k(33`dmYWD+ngJP)2{}v-!!rHaOZt;yG<TE#8o`rHtcDqM9
zMZ_QdP)IFemn)1Rwzm+FChW6h2W#lJJP5EWt!U_-PfR?~or0YUTl+#4lU0rVCa|OD
z>v0E#C&1yXqT0snOP$O7UJtGwC3-z)9^s&2-;CfG{$y;USi*q5G>fnIrD-PLt4e95
zTt4jf*$l3>$!^2S*t04S%L(5o3v(s4Ov32qRC1n`w|Ha6fx4cD7=WaCu<hHbnzZC$
z-5$9i(H9glAQZ;1>1QXB=D4wr4$hG@Un|zVm=wvG&prUFe9+t%coC$s>3)<R)`5~^
ze^EHzbEDi1P*ZEhIuL^OdDV-s8p(}sa#obTp|9w_c@6=e<f|;%ue8y)54(;E(#n%P
zaMzRJ86tVh_LY0v1M-9kxHZ8>r-UcX9}k<R7h`M9ODlD6`h&vSMv%iOrKap1W#o~6
z<Qwf-qv(ixUU#&SDZ<<nPFu}c13x8MWX>LQV5eVc%cDOE=nwg^kVc(XjcNyYB__E*
zRiplzH8GTk6PqMcj?>8ySC6y46_rFT>a>fUiXDAi#J<MtCKrRvM)Q~30q;xmLNywq
zgEMA%3iDnIt8e~FA`*$92`bNmPK<46&_j5C^E6IF+<_Y!E}#|?bOoQXdhW~=NulbW
zk;CxC$!kFK?@>$qm41^NXJxf}-E&L;`Pw%lSZ6rB%bSJ`lDUJ<y0UiY5f4lC`>&FH
z0Lc&52OYQ1Ol3H)RpY+#bF^7f1XW-$?eB$n8%_|Dsiaj?5jaUI2>OuqK(b^wo>CEb
z2C4>7Hn8&fc(=`G{v~9)=klKPl?#WwJQVSMKz?QFOzP4qTg7))1@3xn%wxf8C8*J8
z*;x%iiKC6_X%Xn=^KE&g<%y9uc5j0B9swjIZAJwU_Kzz0(}Kfx)kDDT$>JGm5_kJC
z0_>#2iI@B~S2r;CA$DqB^Z#(;inJd2PE>UuGZ87g(X0wielVqbeApUSXPTo(DC-ci
zXlFw<k{YjY*;;!bX2a#`HfCS-S`xgz$pBg=G`~Z<ERlKDYQ>xWwLQkU0IE}mI?E+#
z!h3MPQ46kZ_qZi0W!!u63#af5%F3yHcVfj4R|ru9eWMn={Gq6MzQk2#gO9_m&edtJ
zBj-9ktP0#T|AJVB%KGG7i0?|O%L$)`T?PE9EywxZ!GEjcc*ZlOh;yL;y}XSRQHD=;
zJ-Pi4o%l)<EZhltt<xR49`%*kztFd6*C5JpZo?<voq!#p^*fDkQFV5xKxVV6EKC4Z
zPs}1BFr8tIu+MV`(1;If2<N>~zTs~bvZ^n?J4N);!ResecO!QOum&Wzm(EihqfY3z
z)JE*{0bcjLY}spxeX4XV{4&ij@?JQ-!aG}p)6EgY>+o{SpOm3zo)ByRs)RE~v-x{|
zc#>F|lje`;OmlX0PD*dQK1C})^UbsfbyOI(X}+t_jInZPWsLRZA>$R}`gz}CK$Drb
zW0CeBt^wlj09FdX80aJ^JNb;5w5-;(U+w1&cCoKfxg)v;$u!|ConzhUX~g0@<a_qq
z$Pi~H5Yv2#im|y3v4`#Nv8&TQg?G3y5=<z&x#@fIu1qfQQ|=XXRduFXgfXm7{Dh~4
zZ^Hz8((Mq1O591ATo3}*BTiZ*rVwYXF4uT2p9f^AT3ZbNg-?pg;&vX%CXbC>hnGo!
zJ^5JEni2e~$#?Z}4z@@Ctly+c^kB3%gzc}cKSYtIn4U(dqfcF>T#5J{dZ+QzV7XAY
z0VUGOmx7?Qak;=S_QL<Vwi)-Yv^rO;x)F-zcHVZO1|&;ZuFZY#ZK?+AD8-@c(rk<D
zT<D!ulP`r4QS2(()PaACwx7Fz$}Ev5KrKKMe*wz`KZ1Uy*{c9kJy>&@{T_$;fES2W
zO;!up&_u+%u$}NrT^#|o8e`;7OmiC};z;;6(0ndDE|R6=wgTceZmKHXb!w^{akXv$
zEkKMt*S!ZApHfQv=hA~j>A-BWQT*maTIq=-ePTx9k496*c7pJ(bnnrY7lRRl``=|N
zz@97AUkIMVJJ@HE<*wp6w3qC;d252pNqjKhzJm4eLmy00XLbI<HjFiS3aY1bL6WMC
zAU0v%1h`i@Oi_?d5ET{g7kS!kGZO^Co5ozjA^ouMWk0%tpuHgU7l6)~@-j;}i>8nK
zGwPd_a&S1Q{z<oLDFULoC3pd!(2cYTQU>-5KWY92=jf_(Dqj5lm7RwZ6oPrae=!e}
zj$z<D_hdiLgZSeWGm)v7Ypv^1kNI5MMbTB$fpdwl2DTr?SlW-AS97C5<6VRo_%?Y#
zVhnt7iT$6|U~(Z*a$*&wo@_SJIZeB?E=Mrbujd{aoKB5Z<#ow*i8;KKcV<fSyh~}v
zQ~pg0$pQ4iW_{BVTi5OhVeZ!*0Ym5Z>tvCYM!;nGsh1}Aj6?3qdVMNImj0$xQz2}s
z&Nfk7qi9dx=&Q-+&}VbTY*G3U(|9$;HmcU*OoNwRPNMX8lZoG*xTi~z_lK?7&3YLp
zUY<(v(@%)E4un8)7w-4zKA6VJ^LNj35zQd3l%q6}VLSZxDg{F?g46wVlG#eJ(*Kj#
z&&g-#XHAL22NVwt3LX8_|1)8j=yPdYX#jRSC*d7h-%p6Z5rC-c7SyX;1x(X|5t%XP
zTF_2Dx;jB#lF{e_ieU3RyFdQo{pl`u0?vvRYo*2NQ(yi0dCkjC(D)Uu4*U^#i`?!s
zko2+dsUxmrC`#NABr8ict*EJ=bCf|e5wFIfFhcdHzu!zF8~--xsgs@kGX5WnLj0uV
zG_(?<zp#@-GT7m5@?Y)%`-F9P77?jsA(D<mjL4t$uIJz8?6x;C3#{i-(tP&}#8%y%
zla2({+3j-2Fs`I>)+JuEWZ&CV`jDMngW2IDrunZ%vQA`khKt5n|MGCGA6N(?g)hgA
zvVsWKv`Dc=mG1>4mVRUBmb$nUGU06HpAAX15$D_*@hW_9_>UFDhw0pp)4=J6`bY~G
zoO2s1-&<n#uJf3;MU{vMU9cQZ78SqRD5M`s`4Al#J_JdrSAON${Yi5?{GMzREb^YB
z%j=-@TlubxW`4k3F<!BL|0wCY?jDB~d$1lveOe*#=MI=}kWca96wYoiak&!BEmyCd
zZ(-8AxpRpAlqdjQMsns?BDXT6T3wrbdEJ%dB`W80oJSQ-i=H;ZE=Wo9h1VhT7T5o~
zVTzNJsgmojCU7-RIgkSX7PYf6rqa`~o^S>#QyHy|pGhb$LIDS1JrK`4&%x&sc^}^I
z-vZl2x+?sc3FX@PANzE5=H`_vYXXTmi6Pqms-I&-2Pozm9sB{;mU?0bP$<`<@(429
zfAD&DY&lwRT>B=S3z{mP6$n&wR#Ob{tpz8YvJ(lx++)~3c-|lta`3E073}x3mG?ZB
zU?~H_&eaFE&<f1+)Llk87b}y}2jn{^&yC_)zRc3Q9Vb`IY8_CBbVS{nDv&_&e8jJH
zR)VM8$P=5{Qg6oClAn*%?y(%3_Vj%WF#vHLHl54p%JW$09k7wI=9=XSJbcyKu?E;q
z$brtH!}%pxraeBya?+&vngA34pM<vw1cXmo#(hy#Q5Uym_bA%Aw{k#iamr8DF~6PL
z%?R>~-0bV;H81)4`*l_uJ)x+XnMyte#+L+YE#{MGvqYDu+`{2(9!Lk()LyWK&P~np
zogLt9+LGHhRl%R9PHL(E+E3BW)sF)qo@?2{&1@LjE!z%&M0m32!kyP?*Lh9?L&ZuE
z&V**&d{P}TE2RS=uz_GxXDg8JAP!nrRzbPeK&;P<qro@jB_I;3Dt-#8;&F$2?@65h
z!-VXD%kv9YPj@S*j<Xf1@-z}_8&>Wmwgs`I8Zk)}bzbpyacV;@q>JwMj(5g-r2s`R
zmGzM3HG748E+lmMV$(M;%M*&{!XLvPoO|?ZR-E=Fv-k-(1u!pGBa~)&Lex_}k{{j;
zOI9$fd#HZ%BoN-g5qRx)&apGoQEPZ)SY_cySUgR>&%Il^TL_Wh6e1whxM5Ln_ehi_
zIcWCBi44u{($sI)Rd!={;x((57;f!b;P0_DdCv$)2GpsNn(A2CbJS!JN=V)?qRfQH
zsKhH1D;cQi!}M>=ze4Xwt{*l2#`kNpCC~XwBrCC!SP>cB5x3wr`f3s<H|ntZP1`O$
zu_wj1X`)eZ&Rf%czr+rY<^_0QK<`e_bHt7`N{OE&z>W}ofg&E-S*{%c4Z|;rgI6}o
zIEnh2TH#Y0S;Sf%hPW%x=(Da{cxJ?*_j<N-h;n;K1|}_uqw^C)7ltSRJ8a`q5PK?(
zb2i`H)S`M{Mii?;o9{I(pl?s0=ARGT>^{};^|=zt)gBcU(hedH#=|*|GqU%oZ(br=
z%~4y*6V5|NKT1B+dnD=g%g6QMGUSbP<xO&T)rS)di!@s1ye$ES54|*@yxw`#yi`99
z1c|*X=0^R6?UWC$&X!-Wtst`E&X?wa9nApU=J|HS1if~{UrpSFQSsCy)2n;@X*$1<
zz2+rD*nv@IXC)e^*n?;5UPc6uhH~nI!$4cnrPhK1DJ63tCH|I}Z)%K0_DlV`XQRHQ
z(xtSEi|y%5^p0ZHe7$lmGKDzIA4CCz_LHLewq#d5iT(p)+E9QUR<x+9_f}%mFn8=c
z0wu?Rac_PHahyHPWDalVv_e`nGHK|5TE>gi2UQYo4o`D-&=>jKvtBTuopXDeDGpFp
ztc*sy;A8)+<)B~3-3<4cZ{V!H*ya$@%Mu`v3BQOkgGox;bX87q)w|iuUqwHmRENQ3
z(RzI!`|u9fP<2~mGt|7$&FC{#4RV4DRW?=zrY|!G-P9aORNasJG4v#A{iT&|&BxRO
zie=^4uI3h?)+M#W)4jLD*Qe@G@HL#i@DYeVh|bsgM|G6}DAa-=W{qu345gB|eD~Qp
zoDUl>(YV}+8dIT4(}JoCAner8%7#}jIM0*aCXbVJTatDeRUIhELC&tA6a@*X`v<^t
z_mohEmb~lui#b~<w;!;fT@m7)0Q!a^Zb73c!oZgp;n?N#ePXsGUEfw<|BS46;2o=!
zD%9^2>@g>>(~aP3iG(n02oLD(sG)|1#=pdUpeVJI!>pt0ADvP0aVRZVOg)wKsV&zi
z#g4gHpJUN*zg!1#UF47TcKH09Bibq8(~zX?K)r@0ST3@Yn~Q+e=oU*|HRPiQSx;UN
zkX98hz!&DL4z=ZAoKi`smjmhL!zr9Su}!U9aqc45Ef}TAYJ3*dKlnm-_rF92x;3P<
z_d;iIWgk<%8Ww%7tGLfZYCmjTdld4Ez6O!z{P#uleQxhru5KERRkDV{Q`s@?uZ53h
zGkcgkFFx&P3b6XPjS*W@sixa4l&?j`g^R?U?)|E8rZxga5?Gg5PV{g?aguQ$&V%N(
ztVtKGBx)+9Jtzn6_XCyQ<sBue;>L?wXx#%hOej5=I-YIVxTU0Z(+m~yh*%|EEuiV=
zd5@!-Psn)^r6!Y{lV$Z)`Gpjb@>!wC-S>b|oEP`4O|0~X_*f^@L0Xit+u4#n%bVdh
z*isVgeEx%p&p&dmV1n*Q+?Q`5=4t6J3v%LOQFdN8tYiOr;Y=DQ7%FWK=T)}^jA@tZ
zP_%!~)$k5g)|!a<fwTqnv37U$ocl#i02$H^(i-JF6ci#|9^qbIomVdgUPPWNbMHym
z2|w~dGJ1g7pe!JGvHK~<i+}NZ%2*&lURv!6p7V|xwS=Mt&)VE#5%p`<15tHYtcym?
zj&~}4Sm}<>tck`_NfGFl{Iz_&!p5F~#pjfl5u}<SHL?x4GwQ5@L*7x_L#4Wa6w}q*
z9-4g}1doO+7qX%|u(HH4nxmKyjU(CiE+w|dh%|16Qja+ZAC7W;ZM>out2TGQ(qJ`z
zE-wuZ(O9LE8=!hz&XV|eD1)-CcC`cK)!~>T^22G2@7y195J8<6y$wW(co_Co>rTX_
zvR%(>aQ@=nER5Bm2_<glT=35+`drClYvF^zN+M>vE6em+pdoP&&bDQEBV(7G?0y=I
zRD_ga;X6Iv_Yj>RE`Nv<%4z0@T=!fv9E6YkJ(s6_c31<ngt8a7Z__**!863@G?z3o
zJC(V`&c~n<cOxep8NQQ+60vp|y37=5eXwxd*n=1e-Us>Ji01_75U<4<>gM^dV~r_E
zJ+`w|-HL3W-n^@&33%G5Zh><-bL2-|H|uK}kXeY{*+;POG@dyHe)&2w(UFJhv#Ir$
zqy;W;uQx4hl?JC(Kn2wB9ReDx!r%L>kmVExX0!I;8Np{+!wFUGp6*ulF)z3;!o^|Q
zxd#!MFRwdn<zsSaWoRG#?Ubf-$7b%iq)P+e=5mbqoDCyZl_5SJ{|N1Ecn$2XjQVhC
z$*T%>?_l>OYMQYwMVYE*SF8fFHLx+{6*+UNXF86D{{@jFosq8v(Zvq6L{g{^erQXP
zTkHdt$gbTy4|O3$hiamWQ`&eSS3f0>FlGiRO!C~*7>nO=2hfP22BoJ$#`xxO>b)0A
zX@p%e#`tkErRe^fMugp?#&sb0MReu04>ZCPG_Hp?t|xR!fPh@0Wb@1aG7PTB?K#-+
z5N|k+JKE>I{oGteB4S?5+}?`2R}yBQuFi+$5-wk;mh&u&b_t9eRnDRI1?2ulOmhLS
zUyy~lI3ichq@f^ayPtC6?N#zC&|SWLeag}o<mK+o0A5F@3bVHz)I^=GuR>p5)etLB
zlSHNG7OMv2tYpvNmEqKfkijp|(p$PSlkB;3fK4qT17r>Q1LTYR+nI*`F`H>swW9ZB
zZQs(4iVs*CzH~8Q41etR+dwJ*+`6PECi^kWaKK3Oo4D#aZEUujiS?}bxA5?HZNH?9
z4(EgwQT1ch-xsmXI}ly-lWlx*ySd)0<c4rPaIRLd-X;_QSz^>9c|njX(TIS>)5h4g
zM}#BhpF36Mkm$)84@j=zO;y;-YKKxAlUDLE+F|xo82XF)ZSZ&Aw?<+=**$7oaB3Rl
z`W`!PLVmlXHH}NvnQx`itRZJY?-EF=qMLo<qUP*2*dnlkzyU-3!FcJRx>+9RC(0rv
z#EXQbE^rJXK>Hk4Ern|CIrXj}DQIU<w3PJznM-t4Sk!!7<*;I7K6;F=+KD?+Y#S$B
z2KVD!70=W=AdD~O5*nN^X}$#pIk5p0{|1HfIOQjS`Q74XD<qBAoXt6~hqlNc4TAo@
z`l(^PNk+|xWBV~~CpGlR=7MK|)7IJ+idwlW?G?WtnW@&ULpz(`>)@W+s~kVh=63!N
zr~lD_YV&dh&J$tGwM30~wts$pfkJ8aWom}cb4ASRMV~_%CBZ_NzEUJ9ND$l5+TTYW
z6@OVdqXkKAzONt~4JbuPDK7fGRX5g`#pQ%|J%m0p&K%<nWT$v2%5C-14k`3gV~=P7
z@7?Q;{5YCb)(w+5s*LG{tS!cc(Aeamwpikvpt%+klrCwFTa{KS|Ax!Ra}G$_4>u$F
z^<!^7g!fVlOHsiR3x<uGJm61Au|KPGWWUnxv!|I|c0PQre%dvHwc2h1OQv6kC%hj5
z1+jjdLi*{yw2@_@JAyQazAV1)O~ndo$GlVuuZquQXBXc)$FX*tDo;IfeaJDE6kQRX
zx30&mRbiI?xndE-d^w=%%9Y*13}G*{Pqc^xk+a^%8Y>96ZxR%V@%h5=O&rK;yOvs7
zHXlcq^BNQkf)k`7j)W^fjX5o_)ZgaV8838J)v-3HV*$DbpFhJmO_AI=U|KG3wNSba
zc~sygj`G>=7NLYZf6fQn$OrRGNByQ!j=m+Er!zADk+@gP5QPPDVA_iu8MB${if%TJ
ztrVkgjOcJqXB<X(**JS9h&c1WK*hZ696hbFy190eJ*4~0IuKA-`^qf7C0dzwl59z*
z8tgd4W7>ZlwgO4=y2^#(l@;Hz?JJ08lOlDC;p-Jz-)~gZgw&o}Q^9kCA_O8fO}Ckw
zTdP5KP1xe9S(?%y?&Ws3S2Z0iTjri=+CnFQ)YAQSX|)RZy*5>qtE`0L!UjuMR(H99
z-hm#UC^JD-q&Z+zDSlzf!LlXsWDp!KEit=#Bt#xnmSmv<txc$czPqUcg$Kej8|ye1
z5S9d#qNUj9xfP%6<-jTh)lMSou|XgtjQFMW?-uY#5pUx+4R-@4UZi>f1vf?@hY5DI
z`%8&E)Y29hxvIJQ4r=-RkJud@Lz~_a8N5aK!+hQCQ-sDi_Bxk;&+`MwnZsWm6)*C8
zd?U0&@~-1tc?<m-TRDsJS)7mu%RcJj$it{0WKaT9ha4nlt&LFJEwoY|XpOTkL6Gj9
z<Z_V3dAn5HeW7C-9%06czd-kc!im;kE4SU;93H{i$O>H)7P@?lcdEXZPFJ<(&*i1I
zH(jFxutE238LUCMMys5SY8=92c@%Tp@h@;aS{pUXozq@esD?;dwQIC1uePb=uCt4c
z!kGGC*)<`f=~TiPc{S~OE7FVpfuF>PN`h)zLi?4gSOsZW+>cGO;38^5tK=J-CfjD=
zi85Y!!bdkJqD4mPSN}FzIfS2BAwq;+W#vE?<$caWDNFPdFb}*(e^7N$IMZ{p_g8i>
zhJcyejbH$E-h>E4@2O<0sz8cgCXW<_R{MtpCpfq~MOSXy+qpCFjaPL%nGMDnW<wZ0
zj?M)~xTn#%;BZPs+X3MWMGw1AhA5MN!@D0g4!D(ki(7who$Fzmsj68PLv`c(qu0mW
zA{(T6+cf*fuBmu!fw+#pkdgl-OeGZOD#cZIGp1guoM!}6Z{>PnWgTLM1F>mYyrE+`
zvjDID-o2u02+IN>vdC*d6svhTG*1X`k~e*(d>p$wr3nfOD_6D85B!Au?eHl=3;5|x
zG=hKNn#rEF7<11?hAAlT663JHieiFEB)+0<E<~R)y<fcj{JcdLR<*YR1Hy?!#k{-6
zE0GWVgV*k9Z$m+7$zV-rRXbYe0n2~P{F?yZ0hY32YfD-yk>6dL>_X)jt`QyK=)CE?
z;1Ln}(g$CNJRij>{Go5sNcq_50@$-a&z^=)mzy2Y&Y1tn*FA7OSS>i)$GkHN=2A;f
zLa+Wkgcp{9D+7fUUNCR%vVi4fD)NCH5zaWi9q$qepHt;qiIcr8qBKq??5@~%a#+z+
zTAF}zh3hA+EVkD>63n~)u{9aRzE^J1>%8G7#9&75NDbcO3K|Vm49F2@2X9srP&*fp
zV_M-->A;!&Qnz27*AR(CK_e4dC<V#||5jl($BK=DqWAvNw5ZC1_nJef={4~zScz&m
z(Obef=<FU&#ER1(vl&~q%CC8SD#h8THA#jOMI9&&1OE>hPLt~^;N~$do^p?bPzTQ<
zlb=|<2v2XAb5y=<7a#S<?zaCOEHTiKMilI!W^^?EH20+5Y5`Uha}tq`3H&Y^HN?EQ
zl8!vK0N=P3m_iZSA9|#7U>__a!k;mBRc*!ZlZY-1$hiQoVO$>?AJ)TBRfCzE1{*t)
zfLdHGi%Q~RgFItTTO)<ed&>=(1G5{sU`>@Vv#G@e9(v&*+FN0L%~vWi1CZJ99f4;#
z*?uKkZj&lKh^^FyNGP0fIP8arg<+$wE)ke>Aoe;5lf~gYg{KJ=&iC821(j^F2>a9r
zx+JZkKUaVx6PHmx-aVOyNJo1*JwgSN+Eqm@z>B~P;+ixbej4Ky<8##nw)qJ$D@C@E
zvl16Q-zN0Z-`i^|tG07w>$Ai4>-jm`3`L~%@SD5m*47gaq2!jOvu!ioEoG)sBl7@Q
z=ay=P_Z;VWPAGA{$83F?{F$m}dkc16ZpX1In-GRCa1&VQ4}rJD5QpDki9cJ%f03S3
zVhS^SQf@TrvJpzDNeDv>hI7W159EOdjXM<H!Z}vL<>g^KgeM)$rX}q3z075FCbn<_
z>VmR4qqa=K3DW04j<qyUW=TY*P<R0hVr15_`z;BFLh22~AKa65fRJ4!&jPg0$UPjK
z-rWsOd9ZGc_<Ti9Tu*@Ko|H%0X1Qk+tIVDBF7ogO!G+r_AT~e)5=mHKjdfyxy)KE8
z>ZY%f@l1~0=2->}hZ?9eyxt7E!L(^>@D!H#SI{9@LuE+tqM~C+UL-u6TPtHv{cp%}
zF}6sIuMe#|hPhVOB#-*v*r=F@+GWWj@NhDnO|iFXj&+~Hx`RbPyD((^s6CY9LV;WS
zSw*9eZY}`-rUnRs+CC2(tcL}Lb!n;1;bU$PFDA~^cCj~d@1juL2q`W(VE-qsu=@&S
zEFFqJo)@P?IxNm2<|FN{Q&XKoznthCdf0U3*F~N`iO_H8{eZQj{B3pKSFiuX)^-_l
z`Kz+uo%{v$yzi9%(#GD4f1~fkPXl4Gq_XD2iJtLxfA<>|M*5jP2jROdYFr%!dlG%R
zdf~$f`Zw#wSAX@=1o~no_z!$Ak@Z~t^zuizM)8Tc;ui1%!l{qnk52*3=6fSu8&i*y
z<Q?!O^XBgkWA6oQ!XE71oK6o!{0eOw+j1(wd&ONMA44d(_Ia%{1W(rWvEyXLypqF4
zy$p>aWk-!gO|WDMCJQ)dh^{D0C-k_MkkvchJzHVZ52<&p1~0#EmSl^{!0t)d9>#eR
zcSv>w)T>!P48q@m``&bofPs&{@Zd?79{g|$Cqx7Vv66WQc4v(5<5Hk)CU%liZP3a-
zSDveGzT-Kezz56Ha~%kdDg3Z((X`%K2f}c-XHBHohi)Vq*HXq&8zMf8DDuN#2;STs
zK;9VfnY>hgDA<ZqP3g7uPDt$-^dA=<fGXL73YjdCZwkw>@>O$+y{(Nj&x4^%7PDMn
z9<Z?1K7ZdOV$SDVs^83#Ifpr*w>_L-p0tA7wlP9BASDJ7*s@g>ugJpj!{PEd!~_oe
z$7Q_Xs2@l?gf@(7&BmSr&uaMhVv=JM_h}6*Py7qnhHW@8zT|g9Qv&mIP1Duv5EdBE
zVykP!1iMGsS-hTZH*UV+-6vSt&++e0ojXQVGc;-)yZt8B^foZ8t;|AdYPwc)O#^+r
zy!u*xPEfO*>V+O8o<_otOgLf6{iwVFe}Kzlvu;aCBpn+sbT-vrv*#G~rUX}*%Yu*H
z;zQP&`*eFoptY=o?~%%(fq}g#X!}d!cw!+xXvolQhu8?NpON?jxnOR;!p@HeA4KsW
zm|d~ZDqOh_FeRL#M^$5czv|WCKR7J92wCDx3%vMGtA1s-VSVDt<ucIqMA(I8#L4Ic
zTc)!bH=lq`zG?wBw5u4^Cz{P?+ZOvdRHdnOH9*anhsmRBN5|0s;+PK9h6$%DI;p`Q
zRc$DdV7y|r_}2B=R83@KY-&O+vNGg=#FT@;{`EPyeB$3j!$FFP+_xpvdT(nfaw?O^
z*^~4p?NY2Pw^&GHwJoCL8%F!EN|?9`cC<bl*)*j+qN;|U>)B^GSyQg{Rherlq5i3U
z2<M(6@+TCAdx;Mox2lY?(8~SWl0Mz;tds8B(sNXJVBLP`LY&|%bRY4O+K^%7eprFV
zBh`jC#x;A8sV)JxQ_5#CIERRjn{S&d0Mj0vMj`(jsCA(xX??;P^YTV^rx$i`nRz!G
zEOAmHDzXF*YE=pliI2uE|0$v#ei1&66r3Jp95Zf=#a3IyV>oX!j*H+8VcgE3ejxhO
z1b3{CkG^LNd_$llwtDRO#P(#$p5A#Cj5{EBqKw^~YFcnuq<M@uzjhaz6IbGWcFl1_
zVjAQPfRBJZrrQ<~?Zk70-*yN)WfGr5#sQHXc3H>K5Nr8{JEw1N-+UaBiLfrZe=V77
z<ZHn3qMRdrgG%=(-9=_x#ur!aimN%<Aj6|YMoSpNNV#cT#iuJ4h+Ur??fRm+uu&IK
zxiRKFgoQw6Rdse-37<?YJql1!F?jBSDa=tua4;<)n~O(I3pE0|r72wxYyVo!MearA
zL9b=|Mliy_`E>x9V=W+Ip9Ec+NyrqK=N_!;el3W6BD@}WJcF$tqGBa#U-xdBK~tPf
z%DP3wGhDVFTo|_YfSt-6Ko&huGDI-0>{OaXJl`~jPXmRfSd!sKs^DIaW%F}5!TClx
zet+P4Mm#c1wg93Ouz~7X<m_R2$2s9^GPrrjX<#2YssqxX2d4nm=-@`qQM=IHGOWre
z7PIPf-pkbVz4M$6b({JQptV1@8%vLxOPEZgvFE1uKpSIZARD+3wS+dR(YOyjDP=9W
z^|=sT;0l$KrwrJcf(C_~sXrgAw3%wmtoJ8Mja#+*O7g?IwkvZ5+lbSj*EDybjZ69u
zH%7>tAgi7oS$z`RZ_@9o^?l-0<<<1uMDFRR57-EC_!6630}c!7i&{}3w@boFpvkCc
zAP-hk-?6+FCGMMV_I!$5HoG?Qptw*uYN4{&9jV4u@G8LBBHx0KRdy!7gZw@)4Oo2J
z1ofF4R0CLzN{MDxwhyU)JT=%UkzI$7ZT%^{V_WEH-%~=i?<pvvnYL|lzM|YaL{L@t
zr=XFn#HxNY+)c`yvpSzqoVSPBz3)?e5g<wvD59Qt<2jN43YcRKi%|%{%5Bq8Wlb++
z+CmowTSE!vf`Omngu#5XoRGAh)!bmsrDvPCJn_3g6wz*&EGV?fu6LgjT^ozjcKPHG
z-#FVj8VAlnCgS*{hzBeI*T*=yhRSq`<w&C*SCZ!O-Uq~s@X+y$RDp%{i_sHmg_w1R
zzz?E`Mbg6a$B6(LVq$<qBTC*&zSe*5a|_p_4U&bX{?sQbuaLd6Un1{Pc`g=nN%#i2
zBhb7MxJ;+?m%)z06Z0Ex`pON*m>_|M%dh{7ugH{VSwq@9e2Im5{gP1a8z1;7#Xs78
zNfwL=AIsKZ60%Df9OCQ+ai7&vbJziy6}4$w74zjSrg;t$QX5&_=g!vd%dk{gXeD=}
z@*k7}arl+C<T>t5@-u|2I&*Z?jQ$qMO=F^)rn{n%(=d@4^6z&uO%@>wUKQ>Z+@@sv
zyLbwtT%URvf{m2<!)`<@?Buql&$s(I7nr~4$hHETOFW$q6rN(0I6muS8}fVFCRA^i
z^g*BxGRt7CRla>2X}B}CpZG>IAi*p=@%gb$igZs?x6z=6>g~XGZ4$r*L&V5dyES6-
zSan{>P%VB<pXjxSB|V>Jq6>!RdyUsuBP$mKdU~&4nhZ#Ylqe^fC!}Dv!DIYCSZRoU
z$PN<P2^Lp+(L4}kvP*2<N-%G*We2!0RUlzSz(+!jZ(gpuaxNQjdHgfX)+t!Uou~gT
z{5sS{>z~efm2%182zjvMLjz;_59_GC;xuX)_ioFTmj+w6kF{HB{u~v|uqZ`8EW>$_
z6h^kK1W&~LYVw}7U+7(rz0TJR@p)Z&-jihsIG@Al57J6Zoe(>>es8D2r^+_r<Rx1;
zn!f1d*EIE9-+2|>Hz%^Jsy=*@SYfooga>XvwUj<Dua91}TyVyD?Whh`MnUM^)-FgY
zk2h~Ms<*weCyR5S0zVvO0ZHQHITod|Ex`lpZXxc0vgaD7xwRQbYW=SF?fhzt3EOK;
z@bf-<c0aps-aT)>C?@xl_sT;Udq;pbVL#C~lf5-O#dcD%{Y~Y}0+NYmqkCumR}5wT
z<R!2@N@%ac0;MOEv#6Li<`9Q8x0<_O$;H4LD>1~MBfn^JVcn!SeI;CptFIp{FfIF8
zh_%0o*$SrT>N2ZJbX$XX4$K81%|Ne_waP;6{ywd#?VW;GSUp~wQvc+eY}X<8mmkgg
zFkhZdHr3EJh-OwE@V1yOI)%Bs6&#WoaOqGvv6HS2Uk;+;QD2Vq$)YQpk0HAubx-#l
zB!(X<ukyN(!xzRRa~moekkd~sS!O7KiKM95x$Z9bu^gbR1#ub((-O)Vj%e|n_kDts
z>=Jt#y&wCp=Q(iP=eQ=}BDZ#6zJU|JRs&gB<iE=VaJ8!t8S5TwO3mI+v6^6U&Tbro
z^2vy6FIJzY%ObSV9K=d{hm@=f?#<P9-Kz@_mNp&&qhM1@6=G-JzjNNV8|)01c$W47
zWi{w-Yg<F;C(|aSaS2<ZzbD&&{L++W53BcuCz=ixD0GCT2ProR>2pMS#P$jnv9Tmg
z61uO9@%A@;OE$>PBI~}7Mw@dP<DrD@?sTFWITIesE%JI4&xXrsdk2X655b$rt$awf
zfsy*DcQL@**-6AR{Jg>?+&<BgAd1~Rfz$9HGHu0a;jZ<ZgT5;y3HSJ~_NPFq)j=q;
z>L{`i#!d5Omddx0D_h=s)T*a;;+)ky1cWQzGY)nXYS3Pv(gc+g0oOfkIJBJ$Uap%B
zq(c7%EDOZZ#U{)fDQu=B7WP!&J{l6YM^@nuz!Oh)ZNwUsuhMg~+$ec%fj&X1ifACf
z2kyC*EaEgys_63!_MZ}EZ_C<90&%uXZF8OVEShm7Y}q>*&^xwZtu26A4r^5m4=er~
zC37K20KJYY_>r~M?Xgq)xjWy5{Wb7YmK)dlQIm~tq#Y_^d|(sBr(Mv$&{W|BE;l^o
zNF;6^v368oMAt^L-wNoPAmXYgj+uq!rja2}BbGg6WUJj;4|$&QuZEQ>T}>d_H4r{U
zQIpH(3O8V;2zkS)Qk}Z5w@H~zJb6B=T_~aR7YH9@(@I$UYRF{k75ysVr?XW-XM`WM
zuxhGmBy`<p?xFP*-ET(!7N<nY7{CNn?p*fiC>qca_!4oax`AE6daSG?Vl-=ec+~S*
zV@N-QJZYTXYzCZ&5Ws(F<@Y$6ZcQb<t1U<U&0$9l_%DbF@|GRWnJLXKn;#jn7KJgS
zeZ1L<Rtj6DQPZ3^j_OiW{IMsKG&h3S3ni99@PH60JVH6H3PhUh{*ea)djPl~kPn5?
zg&5U#m7lIg1v~s<Ni)Pddq3gcsjgN#2j;EdP5qYU7PgO*39%qOk|^qNT8v_nAw<p4
zojixWVZ}60P@e>r1vCfznuNys=PIiU$^}P4%_9rleyLmo|2bxB0E!9J?f{l^<++#-
zql?7&fNt~LA+J2NlAlwa&=>+b!FEUV@0ud^Y&x8nX!=p@CJz|-tw>^4fLB4QWC>M*
zlqIuV;hEy?{Vmv88nAKm=t-iv^^1F#O<9!9qw^<;MZrMKPl0PNTk-0KAw-ixc-PLB
zpt~yzr}>6zAnr~{c)S;U8sV^gzD`}R2)WV{oOFoOfa>T`&y^GVa3gT)4-~%6hHAHf
z9AdsDT0Qdzo{Gt}n!Sta#Ohh|lJ-IQB%Sl-^Y(djFU45O(`YhUO}<gNeme&p8>M$^
z0!2e)5x5N2Bd`QqyGzVs$Av#BYJqTHM0^vzF+JfsZ871G<&gkn*f@Kl_N6J*NFr8V
zgZek|0P*l?KDam02Q(2#EcOp$8?7m`i2Jy)HM@`-V0TVy309en6kBl?Vk<(Ljpo(&
z5~@GjiJ`*Q*gzTCa6zUTGn^Bf=ylo?+Mu(E;d1P(;((=K)@dF!e2;4c5`q(hd*t`!
z-eK@jXpK<cJ1`lm;YpPXwVG>SAOXJ!y7eA!R{I=rd0cxjPRH(x3FCZY_l;4<eIG0{
z`EFQdRg*SkT7bnrFGMt{lzl_%V-u^x<-0VwTZUJK|J9FpM)y1rnKP92;)>he!Oq66
zDy~Cojc^Bcvx2%A)#-zZjl@&H4>9zE^;2v93Lz14i5>Adp*UoPh1QH`;OpuWwr(mm
zA@|z26%}XTBvjA!-<b_n^9EXZ%5L#PgbCh^#G);&;~c79%i%@q?%FvR!Q{O5s-E>&
zi}ZvFBL1Xr8O#Ob$kTdUm}}DK9B{>#@5rT7FRE|ARE47+NTi7J8;0C~Vx8av@g=Yp
z$$LuuS?d*~v;pc1EM|h0B{A(3C)DFnMJ*nxAENUt@tU4;^?ZJ~8dWs#fBgB6z~ksa
z*BkPw_&}76gV#!XKPAK#S_Exrk=tkjtXGi-^-$E|gP{&+=R!7zC%aBj`U+yc_gqFI
z$#PQcM_kgCZkS|;C{D8W31<|^Nmwc%Fz`_ji-VJoTqnH;Cnw9q#5%o*=ds2N12>1E
zre+nYe`5F$Og&VyI4odst6LHfue6p;5dX8tP4%Rz_se8(D$fP04NDwHwcSN-G^MHL
zPZxA#i|J4@2z<a5J9F0h)r^^*`x91oG-5i=jj+1SSA927n`6<*k1TA*PNrw0(WI4_
z@O%Zc;ZDBB(-3LA1^t&+_)<m|#n75Seq2pfdV#Ul7l30EkBj!Q;;o;qXo{Yp4=Ncv
z@fU;^a2W~5fyAovntR5PPtUWe3Q+B+y#^*+9?-Jq<Ym>T6i>xz)Tq_1o~<~~9S5i7
zN;Zcmn9r{z4m0*plkkr<Y=*bs%;G-7p1*z449q@=8ckyZ^khr$ZLPjf0({m})>R!R
zdY9Yga0gimO98pEvru@rVvltsZkj}-WYeDAXyD3?{DUSL*pHx1)1m$iwkCy6S^kTN
z%yU~PKTJN)j=S<t<nt=6gKP)Dy2{A-MnF<dVk4rj;dFC8;Rkwpu6-Kzf05bz`sWfX
z=6Wld9e07BAM+{wKPxX6qs!u@9RlxVUNLeAsN*5-Nd<g(?;<idK&d6f@2JjIJCU&i
z5`>C)NMXVY{QzfTb~2E?6>gilmvUl{X1@a#aTWEbVG*WR&}Sp|;v9s$2~|zUVX5lj
z<G%rPVl}(oB|JG3uB1vH)ex}no-Ro|Tnaxo@jBve#3rPwn^?yh4rN-6p67^-ui51V
zo6&a*BB<=Fr>OHb4ndv?6WV9i33*S<6-A=h-*+%Nq5O+ce+GyZq4B4*3k(Ir>42I#
z9T00plGD9&#>JulJrEVnLE2sNXM_?AM!y@MolyK;J@6gQLYyyDwHm?S+2wCtiS~pO
zZ9kTgV{LqsFb>QBRbwG5%&o6E9-<Bzk_MiRaKLK`pGuH4%d1hxN0~p(HD?auXba9`
zbchWJ#Q*&~?qa-$RB{3?fni9<)B-i>KhUMbAMjYA4i+H`&=Fvs|3|pjzxF%5GmIYz
z4!k;{6tM<nTf2X3SNBDI8q6lk^PutrYkS43M^{t}aD53@$B2rGOqREc+N%_%{Y2d4
zQjW6LWIdJrjuQ!)X$^8*Tw(S(W(9D6LJiQ=(?jLxBZLl1J1mIU(~*N@ClTM&2Z<Yq
z(f?e21u<f@emR!%Q1Gdgh|!FE-vfKK!F5gxVLOa3R`&=ox)?Kza@{MUs=A$T$|Kmn
zKVp5})%kW(2BTOXnTac<7U7=o4zPnCz!SHUC^D+dpwpmVuK0-{C9CBQ)pK<cR794$
z6G-tQ*1!H+D#m^Vz9o0JR71G|`B`gRdBC#y#*RfhDpEu%Y3=P?C}XN%czV)jyFDw=
zhglhqtXQz@P(k!5WpaSe0c}N$7>#-{2Vi2^HTR)Dh;vYfA3DuaoX9_J5{l%XJHgNt
zo@)10+3;kU1w&0GY9O|%=50D~QYx`a5R-%Lc@P~r5{x$}+en`m!fB>d#G;6D!B!;}
z95ScS$=uGdc!+k74agST6T}tmI5tC-+Om=6Px00zBU@|u4Y&f(1!mP@edL-N2t7*z
zye`|DoV{>=GuqE{SGYq$Rs$rI@!Q!DP#Vbzn}8@R?%*(fvn+t$sLrN4N6ilSpXa&5
zrD5bjM>CGz-^x7XM-*-p*Gb5r5?@9mtw^d6dKr5aDucpWU|SdP>M4pvZUOy;ua0W$
zdzu&<lcD#B2OcY`*~p36X|gI0nR7a+DWcv~H0w8Pn%u^b27zYf`);q_=(n-GP3V{W
z8)fw1E7kgzRW(9x=|M%wS-={NqAVL-J=m8HMUr*%&FvdyMEitFEBD1}9>~r=ZC)at
zBQhG8Gd-dfE`#u(;3O*Zc`d38i`-pKl;aG6SBokzSmt4d+^-)*hvOBLfX>qu@mH27
zA?!VTTLxC5ZvZBD+JG7D{2sjGv5f}8t-7m)94J|tTi|c&cwXm%iUzAXrCc8|G<v}}
zz{(M`q&G3n8rL<7!F@OKUE<@L6`b^p`FzKJad{wKELME?3zhEw3JwXFi>Uc&wL{Mu
zU8=sDjU0j^EgpXwoCLS=<_eC(By*LV#*bFUkSw(TZ3Q|x1Y^eXfCMfJ%P&!ew+_3V
zS<rG3`IopjW%Pi+KoK@;+%{+a3_Bo;Vr-n@ov7<$Y+U%%iY&Jcaq-KVed$pg<Zf@w
zDJ9-y9wDrgIHuN{3j}1c!dY#qR#go7!BTXDF9AbmEQa2O#NYti1-Rp$hIH`Mtgu1O
z@DgHnVn=*nS`0{q*Bh|A1@Qk=iB`VxecM~u&+JozWSWG^-OC{f)omKrM}w0l+@C&g
z^>whO4DD_f<to_SZQq0Z@x6IooRCp|ViuvhtS1Rt^!a+)fUBTZaV|gAyaW1gQ7;r@
z*%{5a+RbO-K{<f)TqkCjrkuyKAYxHhEEmmL6F-DzoPZ7`AwAalH7!sL;KlpNy5kxf
z1f}m1Y8tT5(XyiMRpmN6-7A$onxg1#okf(L(ui09{G8VUg$hcGb*k(l@_t+Dlr!s0
z&nWFG)O4_YZ2s6ks*}=y9&O}k-PSUGIQ#=-wNa}|oIpPP_pU+~rCO;BOLH9tjyBY;
z<9C7Gz{lKgTiD)`PJUU`3NUXfrfp^eSzYI2k3fnSp1jgDM^luR%QeCi)Tc$_e7<Eq
z%X^^XBt?ysefJrKGgK9YwUM=X(#-I?#;rE6gqfvc9KAM+PEulk0`^(#*gIJE-*Qix
zcgQ#Uxx8`7o%>cL@qEJ#utU(ufhuyf|Bff4oI}0Qm5TaqLTZ-U7qU5$=qKb3*2|_n
zjhs<J-vLtT)MWq_!AQc>IRtN0*NuEr{AoH>xR1@fMbXwk3S)!IOOS-%N+dnJ%6|YH
zRhAb~qC3RIiKvy?;xJL3Oc@&*HzVrqm`Wj8gB29PbBD`;46>Q>)(j_OQ8HzN>_#vy
zt1<q-+Yt3&l?ywt#;`g%p!k6%Ct)y8vRvy`PiDgZg(v=2Km++|sIKDfIc>Q*X&A!n
z0j8dG=NdTS?Aq&)5hk{MB>G%<QYSKNE8Y%RwB!0v$<bu+TUmBh9f}Zk3`VnrtP+?E
zV9BqN!#&r#fd)u#3fZ19)VkiaBG^;MndU+)L&SVeWSAN2E1D}!x-Rfx*PfP=MMT!j
z6A2pH;rR+BzA|D%!Piz%Jctf|)!a5=Mv2#>_nUz;>s90)PT!LZB{hfAqR`5x7vocm
z-=vbMPD0U5<ksDTED&^bz+2}P?NOklWbKlB+6=it4Yipv`GDW7BOHur?2&$1>{*qw
z&oT(5E`46P8%QoPGlJmimw(eJiN?w|?dnx>=UJe2Rh3uLd3|_5{Z(93vrFM)P|ZRu
zDoR)G2)P=MwkbPY0mMBe>CrI{-iz13s#iOk!DeAI&YP%)t^{+Ay<QA%pyBI|A=D$5
z3sEmZ+{dGn8`(m004tgDpwT!+c~+%@NAvd~VD4fW?P<`>U+bj&Gh6*arigfnv?S3j
zVN|%zYWA?Bm2YRB0>%}Vc~9d!=NO!`qQy@D$RNi3lu%yy=kjlhnh-zOQmD<uC~}ed
zVNG9N<EyMHiTV6sawnl7*9U1AwKtmec2iT<@RZ?0aC@OCo-;3Go0oFtsX0W|i+Ya>
zm@IT;q|MLZ6A<_weldA43>GxYxk=c)c5#?8AGBu8Zry2if0!rk_=9LM0dJJe6?=v|
zV`gKy1Y%#AdbiSNaPOyupkSoWpw1~8;S&l#_(jaeN@cQG?@e_e@5J3N)cbZ>V#`e7
ze<CF9?p%o#?`L*Uz51qkNqhjfoy*AhTFU6cpPO!m!XhasV*k0~%5^89bBhsV93VZZ
zH^Q^esK}w}!h2cXSkr@QKSb=C$Gcn9Xmj=-yL-$%A4g{{IBWm8CqS+36<1c<?dMYv
zn>*Q-|K0NmXMowB&9tlmy_>SN)?8}m`S~j-dzrFBIOT?k`Ji3!)g&CwHvT)KlWGPI
zM?TrVH*@stG;=H>P$3pj&b52883To`po#Gf`()C|lTM)tFKPsJsAQm4qs}ebMJRB`
zmY`~YeO}$pSTM+xF$8X>8_iH`7z4Tcdk*)G`4V8Zn@`9it|Qr~vW!D+JL72QVIXwG
zA@2@|o!tRg0{kSQ9-im(zz)e^UE#L2<FBw{pU>wXVcrH%TW~BC_7AEt;3HIVBS6I0
zM|ne~xI<Vd<@=iFD1!t`fy@oXgK8)Ps8Hd$Euz#66@Go^)qd_iAY4?-g4!9Gv2@Wz
zh@Jpe>lUGY+Sw?>;^0WJZ`wN(0858d8lg=Ibgk!R1+UuM1JsG^W&kHa@tYmb_@I6k
zntM=$cXc6n%7{B^<FTGsfvp?KLrY+}ARArfoH#`Y0}4di7TKIwl7EnObMw(sBP#Dk
zIu0Z9zGzr0Tx+x3zMocscW=>N?5uwTdGP+?Qh$i-F>g3Ro<k@S$DUn5B`Is933XSk
z+Xc!0-j$4XHxzq)M-T}+#Vr^sZFo~a6^O)T5X!8K6y>sw4fKuFvKiS#;=A(Tq(|8?
zOdHxl)`4p6fRCO9(<}r3Pt4}U;xdfAxd1IGlqWz<X-r2Ba!~099?`W}v?j#d$O82u
z7i0MFzAao>OBr-%J)*Z0tV%(T>myW8V`MwVsu(X=y9MeZtNs4`c=L|Hi$ay}H_%Cd
z#-7H9M!0eGH+uJ%-{WS%RLSW6o_{p<>Gm4Kho}V;R^Rj*@N|~JS?j8{ciP{=7zgjm
zwDOOlXCJt9jO)XdBy9L9vmq3*YRlI#4m0h9glTZuFats%jRpK*)k9p){GE1(z%?>D
z6_&9&1ZG`SCm`AUFT_P@^x76e(8p1jf5kopIbz7}1Eo675(G03xJ<c_t1ASzM{kdF
zG;y`Y*n#=K!l#LEs{4fUu2>H^ZG1uCvnOHY5@ck>^?AsBfH|3WJrj%sbmEm_=D0cY
z`an)_`e6<k1k`OJ?}d}G)46+n>T|wdVxP>EN`}nNlkJG@1$485U(w3tp`X@%LfYYH
z-SIY7vUDF|^<H=NbvzRQ6P54r<kh{*wbla5w!X*#iH+Gnt!T<Dq*Y;98h97;irhS!
zGue!*`W!$w3Mf;58z+OG$b&OrwO}NPl}~H?DQLZ+shq9`dQ7D2-fKrwOAnZ6RDBS@
zdy|$!5mXu3RyqSv6-&mE7Vx^boaicVjQVFl6&S*e9j}oJ<}#LTKdeN4nd-1Oha7JI
z7C-1egbD{lyr^G56)_rb=H>3nY=UO8PCiw;AZMe_6<lWF3}w|eQjP>!B*de@J>pMO
z)RG(`WnLho@PGN922?UXhQ0$`2I&p>nuVms06zPV1Z&k5<1}|rUM3wjEwoZPk2XYB
ze@iINc6EfUn)~H8Xp-ilG7oJR=WO6yKf7OpZ|Ov)$(SzNeKl&zEwjD_@DbrbL`Q+;
zOW<oW^=2Sx6fv%)=w<tcUgg{;Y(7&P)g*vlkVBq2W9xszj8G!yNn&mOm4dIR?@cg2
zObE5`U<K;(V_`jLl(=qlKo^PDuZ|-B2EHX~dSz&_)mO~(E1wywQ?<fNhkq~u-+BZp
z^~Ml1x{y7&$KT@Z;Fb&K0&1%y==&2b$nvUIa0bkdXbfd&gHRs%1?NVl=>qC4vs9k0
zMD#M)irl{yXCJEh)U8}$?7mp)+JN>%teb;4GocHk@(`>^;(e2kU|t5Rq}50~BZkGK
zoeQAWtRWH~wC3C1h<k-lP;C$`P|LMoB;OYSnuxQY@Fx1foE`#`EhdZ0Uw0UPBb*WI
zjd++zjD0|V%||2{?E=8YOo%P}Lf>1M6Lp0{mNSb>k#$n8ZpciO3eY#Ap*RgYa)(8u
zj?V&1K*Nvw{+zB(oNe%?fQBgF2A;lz`}ZhqH<3TuCj>jOt2d&R4mEp16)O}I(0PEZ
zx50C$cpHVUJOk{C*!R3ORO~POj9W$&8=d($WI71RNG9ce!UEPO96`TbAiulee^R##
z;fyN))I!PMr`zLPeP~OjL|~3GL;G6|S>XIh;7`?r-eX!Tx-KArsH&ZNa1$EJPLpPd
zkol)4$^S8r@P>ZAw-8ZOYml<cC)=pvg=q^RGJd`h_g+8Uh1R&#nvC>lRN*~Tx5erM
zHJ!VFqJr~5?6NYWdJpEuka^Dw@g+hWs_*cu${ttcdEMe)qJ_EyZDH($ezZoW5yfeQ
zkwiVHq(4*f>MBW_hzKeOR{FBn17BM(KAD2Gg3}B+Y#aEgq&Nts6|vRaVxHow^2l)l
z9lmH7Q}uM*9Du*O&A*aqN1RHm5cTFyvBw$O2=9&lLjJ04pmzI)unYyOC=x@b=8if3
zN;OpZ<I7R005t&o=ILrdBnzeiag&AC!9`RHD9R(uN6I+rB~D~Cwm=OJkVH``!da`F
z9)jX0XWfZ(F|KFOE5h8d+)%;|Mq?6UK%(L&%1t12IYs`T{#I2ud=q?2OV^zFl~N8f
z$W^^-zXxZ%#_bXgRiPsa_{2l7gvbJDD|R2XwNxNhV^0#bHm9ck!+UMy&Mp(-H70(K
zsRp(R@g2u@!k4EO^?!7?NyLMqu8u~q>$||-F9na9@ZbORUgO#KAS-L+%cm<ThWMJ@
zAz)t9#>!yjjH@=*A?mq_jOt&*zs)hSZ~Fgdw-}n~+czH%nVSi95C>l6EYR+U@*C=^
zj(z25He>kyAMKJk+mB0KX0THH;Q)BN8hU!AqlE-q4i;(vN(w7uzp`Wg$jL$&{U1MB
z#yo#bCyO#`#{W-F73>8%Rr;Yf{+~QmcqrKY`=^Qy-EEAh5m`A^{wPXF`G)@&C?UgK
znP>3_P(qe%L@j7-q;dxQ8el<H?^J*f&_RkfOa+iCUMpPU3^Fux`9Kw*hmDFWrGi&M
z2PtCzkE4Twt#{BtjLjW>S)nn7{0%}pvd4zO_ykJI+JDnMg6B`3NyL2Ke0_T>R~~;H
zXv=|>Ixzloe6H0eoIK+KGOj4PO+^`F=v9q)s2aM%eW=CZuX<-z>c>(Tn|Yv5eL#Jn
z-MxAoIWj*qIo;YfqC9bQ_W^EGY`?J$YzCH3zjnLf*>R<=BJ@rJSG6eLFqf#NyHR6@
zu22fv%C!BuT6Qu;N#^^%teh6e_Ys#oGa>pr?VXi8HC3>}7YAbjRUC`(G07v)R7kF)
zrKsXx$r>`BYCZ8>Nm~GZqKo?10)1nZ4wcB}X?!j@z^@?$m5(JfvlyH-QZC6W><LZ=
zq&1kkq)$=n3Z8S}DCKGds&J`<p9?gkRBp&a3uEGNt+aPLY`kVT03ArMmQf!trl@3T
zV=5kLf2eF%F3<<!%IUM(5AYf<aNvN%Pz}BpicaL~3j37ylgPgatTI)Q&Q>kANx4w$
zWjXFIYLLx=M~Lzp#<IO>y{)hS^wb7ykTN~51zDYB5c;RgYlIRV=|7R5>FW3W8W;$C
z{e<Tq0`|$SI#$PjiF&ESw;^U(VH9;xuBdq3tRmKNr(aS&tFnNK=-JIb;4tr2C_h4Z
zzB~P(`TVff^+{3IFlM$F7@G6FmdL&H-QPy0(9=eFgul7_Z^E}AZi~^ZRL*YHMYCR3
z66JV$BbK=`WF|CJfsSga03Y0oT7Y;t%+zCe8|y1ZbtY81yzF0h*z+8Zs@}^J;?I4q
zx4KdP)s$^i{?c_I+p_M+OB2b$)ssrq@w$^iw6JV5h9|dy@x^8M!)>nyYY=lYzc;)q
z^tar%^iTYJiXs#tmTH!vn}J$j;#tBod)xjhI(m(V(p}4e)Nnw&$U`-f)l2_lGj%1?
zHo*>{3krW*1xCobUZ1Qj??+TZ8hBX0P$U)njAOGXoM}AB9Z88KKhgNq7xuq9O$rN`
zwRPI-61=4{p!<R;EeU6NIXpTc{cv)H<>0gXaaxbCduvD>+T?fG5WnBXz#D~ouQE2Z
zMf_PG`an>uBdVMhG#W<?h-;(SuKmZu#?ph}ePCWLL)Sh#lI$$+5YAN12^ob>9~awa
zUqlrFI@tNcA53e4_cFx@>s&z#&9;J>-TnPDP}VK1X>S_V)ZshegRvSgbc+ZGs!*Y2
z9-O%jz5|Nd`2qg^^fI8z?LDZ{iX=WBqH1gALn@l)(B>1nIJO63e9K%8IPtnao$hL}
zLsO$7PxyNW*0OklMQ*5uNk)BHco{RKtHe4nTd31SX)CH?;Lj36L-CY_oP;OP1uTd7
zkUi*1=hY!5gk~?ZS(~{d`U$N4p#gkPu=?4`#AnRm*C#rg{kibUQCs#SR0%Zb%Zw$h
zs04ZIgNfQLP-z7N=KK1rV;@ZDE3SSU%F#n{8S9^scR?XA3z~=#9V)J=pNZk?ayTuQ
znCi7rr9!3_7_~Umn}(B_dT$o+2hxN^KfgNU=Y;L%k4w>o4fTG+8BA$ps`D0wi!&^|
zkduSjM(lc_vsDiy1FxeBhA|CQTfrd&k0k&c7g&QI^GMh0!#eI}3V5|bx~tDWDnP@f
z^CV>z^cBs}T0@qIDR*qn>Mj@7hAtOiByOwkTcL(?4O;5xL8Is`YW2e@q$5kZNA1;o
z!UZ;7qr;mIn{Rx%dUTl7;{HrreO<e4@@BFy^b);8V=sCSC;KX2Ry$Shs9S$PucUr7
zGqKubk2(JyRl)q3sMNvW-&uKNbQo9I`p$m5@7wGOnK2ECRMii@BRIo1h=)d1fv76w
zeM6{0IM9X&iyLfSEar5)^JCK-o<aFmC10w1=eOxQHLK+U|EP5C>coA%mdKxpxzHeT
z?HC<aYzO=1>i<>PwE#y|-urWQ&u(5M%_gDQED_I!?2_HUO5!46qufo++a!=(l1(sy
zY~EQUmnh!G>TQD>#Q3;HKpyJ7;J6CWdMiVx)ZunQ3p85l6oNyj+QuuPHn*42mKh(@
zvG@1;z753IYloST?4CX6+jG9h|NH-cj|mg5JUXZCv7J)Nsln~(Q7S*Ao<jyq-%x=(
zJXn%0ztzxkxjnHH@gDY0$bw-HifftRbOu)OXfD(i%-F+QSKHd~oMCp2_oOqE$kcYe
zRU1;Ax9nJ~gztnV4w$yc0-Eq0IY&mIMSP*S2o5>a1259@p_YFkZ~Ul4;69Ri>V+eT
zfAP&Ixc;T6oDumcIHbjs4Kg~7+;;(IMfqy>WC`l7g}WSY0;l|V%fyT2sh9R1rdL}#
zvx85z`gw%rlJ0eFfx;`yiSc=3q?bE@r3prAFb66*RQ&NyfPami4@3`~l;Fn(HW?Lv
zOndtt&(9L-3_z9@>r(N7t9D?JIW?)JYQgwexQEqMu%UQWr_sr~I6&KDwZ+F-bwO&r
z<2>vAjp#$-FSJCc9E;f)9%0~>I>w_nhJai|Z*xp8JrkM9HBLo0)YYO#w!7Uw6;HMK
zy(T=>m*+fHtK28br@91B6+KHAJ)>gbs-eMf9eZ^9mf#oS^Nqb1E@3s<^2(eu7#7Iv
zrtDv@#QL;$Y&-k($SK*U@jv@?Bl<L)$Ka)NY0F{d$sMLx4>c@^x7~x;`Cl?mwmdiA
z0VPD)a}Bnmr5A)Jr+mlsmm|o=;B%azh8kldu8|{d<P=BT>pb%z9&ulN`Lq0=J$&R;
ztcN$odN|wB{HI|YJ36-&S^X7M5W_d&J7T2Fwxj&sbH$ifai8|2M|qzLXWVU;lLw-k
z-x&n=yYf9B?^I*mPO1Wm@7es`d7S0tx#zcj-l51dEW;TZohx;op#dW(7w5RKsSQ8F
zKUn?)@p;_q>1Lea6`nzI;geL<AEAV>1eqdYa}mS&7eRw^O5jb+uzXjX)cZ|hUaJW2
zKv`{eG<NSsE;s)=M$kaja^(8t>%v)b%$$ZCx1mYul#9`Q*9GuY1V4v7KP3pod#GPh
zKVKW!at?g_NO-gYn9PiVl;>|9YxmegN)z#(qOWdGFB2T^rtaOy0i)fo9AT>+wjTHI
zOrmvJ=XStoTJPR<GK$#3S~fm9ZP7kFOhpFZ@tv(u@y2&ZS)H{3D;#wi18}F2N{}7Y
zEr13+A`vwK6WY`fpn+m>;VnC&p$_LlH<0`8ccV9f7to>ewe;MnXmU4j4WH7#)tFKC
z2DKcdCT5#Z9S~ZO6YkHnm133kAPW|9B^LKnnMFp}Ksb%Iz6kx3v|yHKiP`aaEwf^2
z_3rgy6O<}*e{1jnd2cQDvF^4EOumMYu?cEk^Rp6h|8v{Su@-!b8p_ZXHXB}bAxnN!
zsP-c9?Q`7Da3{fPbGr}5jW|X!_fqSn<=k5E=8Zup{&sTiHLxNsIFG4g?M@<b6357r
znN=?^#<H_Q#Xxnq7hb_PpdZ{2m{Tz>7WGo0roJD{Q^E2^Cg<DC$~s5dtZroOI?c+>
zGVXsD_&mdvuwT0axnO$&7)S=z(p4>&ET~-70G3E@z|pk!EwUq;w9SVF!kH^VN{rvK
z4H=OW64m&0S<AWe(e@oH^?|C_${fgN@qal+jU&+!`F;3W`tS?U<N<mxEE(IF2z71T
z5Aa=6YAw`+xZdXr*k4djNbug>MwBM@Z?G6AcLO`u0~<MmZ-jobH2^QRq^!sv1|697
zH@Ua;Jt4F|_lNyJOJv&M=7H!!y;&-fL^jw>0jeM<>r*b*%zh8%%(2Rud!<8e+B*Az
zgh5x?J?489BBaXR$yc?d)JaA?Kcn&J245|e7Ks_qwGgnj$oe7@7m);1@W}Ok!U%)}
zHN%B++I^<uf*~Y0ctW=}As@Ooz(#v2uK?F`miUA;)Bv&0J381ufJvo-A-(~;yx?cJ
z4DrmC^<{{1gck`$6nY2!f8c{9Mk!tKG=X7BELm2Ugjh+uvRrCPaU6f?2=STOnMh>6
z7Bj+A^o3VTf|y;3f#*YJ6m@6#$`v&c0f<a{UCz~xP(f%gnf`R#-76QMumQbHIquq5
zVNV~i{T_Qz#s`8WVjQsv9-LOx0KXx|I}&9t7>aQ2gD)2=NUHx>*97K(V~U5pRq9r7
z1TX6!@S7iUA*R$873I1sTE>CtMGdcU2DxLui70z~H!(*&Wr^nEnsfRmp6kgYU((Ax
ze<r#SGmL02e#d*%W`dKjxH{%++^<na!$%L#_E8xr%KM-_g$ygJZF=nQkSn9G|6l#Z
zcv3gi2f%;<JE;UbiTz#h6+^sSG<$U-);E~YXCsJ%)!WX6>ci9*J>3HZNhOzxy_!7{
z8CCv<9(ym@G=@D!50rU_SnV&?$tE&A2(08gZg=fIulf2X8E-URUFfb<EqiP~D)SFq
z^b+^lhpM-ad3mk82D9nv6d(uam8kX|ESS(Q5S=J@4)9+JA@&wLBvyjyZmis#70>#G
zsAru*yJI7kZU{!SQ7Mvb?xkx}Nyf&6_x+VvFLa@|Fn|3c){h4bLW47HW#*dWqSs`!
z7>n)@jD=Y@EX3pdI~DwjCMt-03-|6eGO!A$xn)oJpehi;E>yhF-XuJ#P>b8Ed7y1_
z8A$|cc;x$>(3U-(&@1xgCo&dET@__X&Q9*Xu#e!pDs`q7g;E@4oQZW*oGeGnbYy;j
zw(I`Fh~7S{mf~82YVf(0_P94YZL6Ow$4Jw5H3Z>K_F^kOE7!x+=_OJ-wb(Sex_|vn
zqTv{=4mBn}KN;1}aHsz4%P@eKbsfgg)I)hc7kP^&toa`AJ&3iA9+7PESXLv`wXKy`
zi_aPXZeKX<!ON9us~FD~JeeCVwi!!{HNyig9s`boz`R1~w47=v;P2!yMs`mnT&8BZ
zO)uY$s*ljDYe&ne7pj#)!FbI42zG^|WHrm<?AMgZB*z2pz-}9~<2uIZh#{X+ti{pt
z?PJKVmOsl1KXc(ib7gtyMa+%DTa0UD#Tc_wkptQ`JV$yKPcc?b0@DmV&OWQ4D$nRu
zsmqtt9QiYpJb}bSzyC4RZW6IS`tR@nYs^A{d9@~TlS(cTA3_;bjd#y76XZ2*p2Elr
zN3ORmE2|gtjcK}_+OWqI7h_Cty-uuIH}`nD_`3bjMTYZ$ao2hi9E#vI(u4RL<FG?k
z>rfLryAr#zcs<G65CpzN%mFfrK=y?3?iy5^#68gtrl8u+79vBD0=?S#yf@%P8+vgL
zmxv)yIZ5eM)5X<NCy0lXTok2H<kRMp$&g0nKaL7Gc?X@yH=d*3Aa)yd;2sgH4ecN*
z*2aYu;AJuEp=K)i<OaEign~$0Mnj1DEhjO?IJ0Bd1U-t*uQ=;0<4OtCoO9`xZ@U~d
zFToW|D(3dO-f`*7Lqf&j2-sDRY}8Akuhy$maUV+lnl;P)3A8(sP!(`w?{I+^SQ$@8
zC8O{+^)3nSR0Up`yoh<X=c-n$wYH8ba2-~D_vtdW%s{O9B=*qw9s84OZN(m?vt?w5
zV_u1JGaO6m7<qh(d|TxbD-Z)pj-$c$88}-lw+xx~@h%B|b|%#8r|}#Mfs4I8J*J8!
z)ODych_PhOxdZI78gscr=&+WU*Hw5j9~119fcEzKXI#3k+tJvI@7T6Qa5T^>VqQuq
zosNgQOj)gO<|2=7@Ae^klei6jI|6rMjf()$xi~Gb&x>eQ;4gu{gSwskc6bWl`W`Ul
z1^W83zzK>eAq0B!j*GoyzkY43YCY?}?{1sdgl8B>PffCExU<xH1v6Cea^l`3?sd~7
z?tD7ON$QwIYq56E*pL@Q?50QBH;I~H&qzfi^P#(;ANEmH{{B%*jNN5iF4YaitRZ?4
z^@dS*MVq~~Lp{M-#3Zw|otnggVWCTAXtF1d(mhuA2Y`8{6^WP%s3Fv(aAji2Snot;
zr&nT^gCDG2a>pGWs?M90O^9pRV+{$wF2%TN?2}{qh1S#1+;i5ZxbHL0FAF;1otQ>1
zO||CEM0`8z9$+_g<o({jE+lq^oSmI-{VL>oT*lNRr+ALn$}HO6JzB5rlOoLX%f^I?
zw7j=|{cYs+)Ws6}hf%XO0Jpd-s4G3=o=QH9`ZRgGCChx!@`Pg$S7D(<wA)S8t-2zz
zd>r_cZEaRxLm47Ws25(T9b$Y1=U~-Kzf^c@+;G19ak}pT)uzT@&Oz@nFG|`5w&{v`
zpS?=?CFTdzk?3Ej=&4r%-U6^c;95C$1H`)w5op9-pidJ$j}b!%S66tVfwkuD2Ud)(
zO1W^Ynz(-{vc2BByU2!?9%}|N@a-nyaRjZphv43IjyRfMyAfr%lZ1bs$#dxl9Hn%}
z>65WuTX;E_OobQ*8)!ORJF`YDIt15Yhkgist`FW(ORQ3dXnqh?gEg(%&u%?D-=tf~
zc7yf?kMJfnK{xx9uBP%Gs0_z7aOM|kxEZZr;>q*GwOqfe%+oNU;5E&`NCgxeo1q<Q
zoKMYsAUV+Y=wvw>_B&2jfHk}+)C#PH@|XpvF=)o<(jSG{XmahkUTqcMDqIOIT+e<-
z$CJ~^2~FT)atsy@l6T>dJ3gz>MF-{tm5dgwPl3<y{e^$JV2eNDUT(y7O+TSt7x!?$
zZec_@@jQ4pfntY}LaF^aXT{u1-mKL6$ybC<D6i>(w;q(zJ+C%2$<I+!7dha#tklSX
z)*9iX5$l!L&SgYB2A)1pPUMOj2=qgVGWot03+h)Y;@iqI)oSx1e=I|Pbb9Wr%Z0{2
z#+~@wMreg4&i9RCts3JM;N{A;!VN~Ue&Dh5c573c%4(;vyCQ=A6Nb7$O72{wjol1g
zX8zN>-VCpraFK{F+yVHLp|T8Bs|DT-WAjQkKcOId29ySR|G?-doT-jR&9~xe$keUh
zfoo(05Y1$zEQSh~P)+bBs<RbVsKN?OKpAtPcd56}Pu9_^#%>+=qc+6vwi2_0xZA3~
zT{}@AoiVQM=7qWj;;OVuON3u`>KHIUcSQ8KdF+!!Hs4T*+%d8bEovb!BQ9O&(v%^7
zYfsO;>+to6Px(R_lUh4n_4)nq)G$|t_D0Rt^L-*?zH)Rr9Aw7fkB1ZNgUjTOiaXLI
ztl?Qua&D)>_EW-v9r+urBQfFv!Xv4nqNV^fySTNjU=4&X;+3_tt8wz(v)S&&m>Vpk
zgZAuS4BEXw=&(kY9=~E+_OUiFOjNq`sqsg?S(5q08ZxSWgn0xClm<^7FnX16#}M(9
zoZqtCZmb1O`Z@Py1qh<s72qtz5y{~->!eql@&)ihk7L%jsQ56Cf;s8RLP<sJ1gI>+
zhz1O*w>sIEh@j3mb4{;~akr9#yPb7SYXnFwJR!sKi&U*MU^gKcvW9lab6k|au)}?a
zQaFs+FPz;7&TJA^*z>g*Q`$dgr9#ma-nwdkr+M{7suN1iAZ9(N4;Mq_m3~k$=egx6
zwE-7fO&>Vvj_T_IqU&DXVPNql9*!p5Udf(w+}Cx_(!ApfpF{metcl3#Z;4EAe&DfT
z&;FL<-+1t&s209;0D1r|RPt0WaEx$f`VxN|?<%XLh8&Pj0hb4{TzP9{AmHv}t{xd$
zx4Uce1I$YfwaotY*l<@c^Pzz~uHaA$fBUGV0p3@|QC>Uz9{(PAwadTsojlQs+5dY+
zR<Fu@X!FN?{>O&p?;o`+bml0v6ZzsAj}6cL4WHdbJwd)I&tuNntS-A-_EX#;s@yQ%
zhVnS~3)lJg_q|&1+F*)Qq(e=i1?#HNUa$OZQpuuZ=|>v(hm?aY4lRmR`!3>dxU#NR
zaNk5`E*{x_p=c?T2DQ`W-g}g|M7Y0~oARt5Gryk(H5klp24Xw4pU+!W2F)LFrY6?i
zQ6Iu+(Bhe60Xv3X5%@G58J$2Ls0s8+NI@<ncCNy!6Ojb_r%|nA-YOZ#&t6+_>Ns!5
z<Eq3KuUCN_BD)n&2{kLCqq>0_N+z1k+ai>p;lBWPKe0zP*V;8t@>bm&u7>(ETAyNw
z2z(mn8e(V7?<*Z~rx*EvO}Ey(ow+r#c5yvs;uH1d;j@E=2-}OD0V|i{$aD3+QYgFS
z>?H00xU`Zr>)Mf*1hzH@jIg4-$-zweAWF8>npz_Dl+VA1m;q6T<U<#+R-CKr@DxBa
z1b*zY3FS;)cAf=%V!9z1Y|w>NR%xg_NOv-fC-hfkv1XjNs`^o|{_Nu3AaYxd{3Ys$
zbFSLyFn3pE7`Lq-R94`5j(4h66JSB^Zav-QPZ|>1ddM~P!MW_|vJP*{nY?)Gm0vZt
z|0Zr+R$F2W(K(fup~f4|D4ztEBEM@o8SUOx8n<s4$naQo27kwXyKSNnv;VVa(sQ4U
z#>VkRIH_HL(lo2+W;mHCIgcJXLe~4I(VU%|)^paDyMVeUvGWwK7kZ+h)JrG#nG30F
zbpsH$v%5#ZFQ2KvcuadO3q42Xjff1%d@4x1a5mh5XFBkS-Z36a9azkHL?j)r-rJcd
zG!&)JZ*}!E^gLaYL_QiKE#7H0;Q3EI`2ncu{HFV<1s-Ou#2iXCys>C?%DtuIU^ZYc
z!C0#7&e3Vvd%he?Da}-MRq#I4D$hW%$TMHjhI0?i$7m5qHL}XOOVwKkknc-G4*y!r
zMNM8H({ruynLC4U1O!7M)JC3PQ$D`&^{jfR$$LChUkdELP&!@_fLeEoeet#~sAn=B
zV#~h%Xw*xg`w3meGb;q6meG^J{lB5F|5S?ISqI&-B2<~Y3)~wN##+1+HwMl}`9CU=
z_{mp!9>#b;`y5YVjp~3lzOhJ&P&HKB3O3`_^$~So%|+rMEVfQ{1(6(Z#x_3TZmSz2
zI~_aEy~--`+>nVb;u(Na55QBIo@zxY53)XqHsGEL1qEE=poj(87T$w@Gx4Wri+5?)
zX1MuuC9Ad`aH)eM<Wh>KPtAx)C`t)^@D4@t6BaZFo%fFMle{a+=Wj;&KWb_CX=MH;
zYA)hF09uF-cCg*?bH3Scx`*#^Zdsy@Z>U3-Jr>UrPgjbnBG5qa-vUC#ZsNQ$s}=$k
zuGadMcg#k?%zeq@Tiz%_Jh;3(R+E*VMNgQ0pNiNbhY5|1d_}m^LQ8T}h<kmbKrw0$
zMrIhP;S<{09ckEs5oHbKl!;})-%6B6aRl)M+V_Vtvw3mkcMcx;)G5oB))9K`V%%Sa
zlWzYOFb;g5LTAR-T9N^*I@sURV<7f7ar|W1L&d~FSC8zMk_T~bABi-epM72(-TZm=
zK@-u<V3268pzhp<R}X4A?cge8EXN9>5#>OS`aVQ$ahb%539LpGyDVN~M?M&A$UFLr
z=bT>+RQ?)QK9Vt=ofrT8x@VzXFSNSL_vRUkd>W$`qLk_H_Z0L%3=vdpme)7Hi46Az
zGga5C$m<wZobPpr*6y>Mta)7F&+n(@=4rVj%A;uy^A-L?RPg>XxG|z$o(u09Fp!o;
zT9J<yo-Arhjum*D8|qK;4wY5Dl<~n$=KGaQ;cN({#(M7hmY-R%?S4h8xF0`F1<>7G
z)F9#^<t$Y<zUQg(L&ssal2g9Rk9pm2HLK7TZBrM)iByXYBL9;7=o&gp53g1A{8otr
z%@Y+pszCg}=WXA;V(iAT)+%D*lwWj&poQ&7ca|#}5hOX`QMd);zA{4%)Kl4CqLw3k
zQk9NxbQ`^WPeAj|k#VVRcb>g{&xRAiznn)SqR5`OUCro5HY*zpP#Ikwvh{bM3J5L@
zTpom50`yRU<vqj|1R6fRM*6v_i_d>3RP(V4o#-8Fyi#?sI6{m$*~OXTfd<<QygI5`
zsZ9r3jksdv_FyPnzX_`%xHnK;z#0f78k7!A0&8I{{)tP(S>gA(s%u14RreoXxXtOo
zzn(%bKKB_FMW>?NOZ+gJ^LZGa6cbU86LGCr%~(%Yu3n9@;{5N=wXehbY5$XqtnG8=
zT>X*s12XzaF3Hv7e-3oHWN6U0S*+$gTs6hW4PeY@J;4L;RHfgd5x!5zo6@xr+Mk#o
zv&V057-~tq^x<~IY8KSJL_X&h+*{Emb2&7Jh1cs$&f~Qr5*KdSlC!2JNv7H@!ll#P
zmgK6+9{1b1GhL<@3_ulr3ROq+tOt%!%c|T{fL^#LM9l(5hJ`W{7%zGBvr(dQll{fk
z5!4PnB_*g-?b>YL5M=h_#xYcz%B!!IbFbc+z2AbEseC7#oERw!4<4I?^9QqYtUyyo
zEVh3GA5&xi>APU(w=p&y5|wO`+k0(6e&A13)dn6PUS2ZlZb{C28#6wttgK+>T+Xqw
z5(*xGH8KM>@=o_uV5;;YYiRO%qxrMvI`=33CM&|02}i2|nqimD%4#6>`+>Ws+tLfT
zD{26{iFvQG#xU<P)FyOOvGBMXRD^zLuo-z2kLfV9m~h901LeKKfwIJidLdUu>dO7_
zN7T2`q^6o$IFq$XDS|hvkA9%shkQvbE>@Mi-VP;)E=wr}ky+RchpR4Ti~jzM81Z-)
zI_|@`$8T(!gn#f?elI15YIEQltP@x#x>pt93e#x6bYjz~^|s&fxAy}siQ8(>N8rBY
zj}vNvf7gcCo>jKNarze~W^CH#&CLZNp7``1L^_`;&cYF}m#@V#m>Dp3B?{nryaJu2
zalurK#VcB&FVb?hO-)3E%uFXnYTV%>{4^YhT3(piEza@;B1f&=?M9DD6TPY}8yZ<Z
z4)!|`3CvZpxqFWvY5<3#R6#lvt*R;xWbQ3S26QqiB3f|kUXKvRLY<CZl{L=vtdgFs
z??x>T|M0L`sO~FE%H9E@7<wH2JIGMFjr<8bJNYiP1Qq?8icpys?yjxKe`y8<47!aX
z8cEw}_X9V$ga}FHr#Frvf0Kgh4!jKlT@To`MC#4gyM>OuGH|vOdy7rwWx!^x1lmyf
zZrpj9EdX=<a_NM<N?S(FDsU5SU4u`x&53S1Cc6TLnQ$}a$wK-Qwfiv_#qJ5(#A>%5
zuSs4E_v=7)npca;4xGvw$|k+SdpYLB;5~yGGhAhyKjFBs`SMO#!G}WwUa#Bt`-;@*
zqfxDg?hL?numa=+4;elk;4Z}tBD)m^I)J!8d4#AIGA^=T%RgXz^XaDHf9W@X?6;~W
z`;IA2krDH2#`u3q>0h0=0hx7)Zt%X%nv1A>2XPOP`Cxl$9NI>x^c%X5Vz&jfrsf9j
z5gC;04gpF?IsjC=dk~@CeWk};V}L^-FxjFOw-}>H);!^%$!aJ#9wLA5+yn0iV#0(I
z0hnkN^rV10j!y#~6x@d<u<g{69Sf}Lcc>vOaj>#w!bbwC&>E1gR=NlnI#)ODZm2?y
zC!DbjxrooWW^HZ}EG^+Yp)6Z;)<<va69vKr$?#%ry|y^G6dCTxVsgvkfN^z8ha~pa
z+S&FCzX5SQV!EM*DysYflPlVSN(J{ArWvZlnns8U)mF$_l{G0Cl56JXIhy0D{6_wS
z4{GUmU^mZnc(CUZJD7nBtoMKwZI9hOdjSxO@QS&{;MTsiin?;U-Jh+*iaqC^pdG~R
zvWiWI!O~>b3W!PNQL~6$TLEW&mtME8r$T$-mS?e_k*l2HHuxU^saj$}o6wWTJo`6@
z%t+FZRt_Fq9d=NkhoCW&(CN7XmHtxC<s4uaVvIf6N5oT0=vG1vr|Y)jTNNqAo8J8B
zh$Y#Tsy&}~k9>0RbIu&Q1E}i5zaDyX%Hx)<7mi%NvdPOV%)o_1(b?A?8|FSIX(+BH
z@F=Q?80YYjonkfsPLMo9IrfcIPviXYV`%SU{hrd9gZbug_DkTY{+F`1_^)Lp=A&!v
zS`+dP+fg@JB@nO<t<UYTgKgekU9Ow*QF(%^Dg4L-m0ES+>9W=;_;mm)$^Dk20V5E&
zhDKi-I8h<z^X|qg)kE#uPc)~SUWi&^ew3^o0!vV0h#<NaH4f!Ti=sW)HxUj|Iow=S
zpNdTWR(f_CQ~uSjHNn+T1&_9&(@YEqFoj2$`;yn?UPu*QD(AXtYZiDm`FTCQYWqSS
zk#0Kl)z^mKGVhe-Bx(lhe1q=Kcy|h&9m-8jhk*B_cF?;~IRlYb5DoD?>{maD{A6_6
z^6)Fj$HI~0Ls3ne@(p6A?JCx_w_EQ7)*fS`4@e8&GwzSqVE@1>23GkJP3%RLm*@L!
z4H&&8+TT?v_#DmiN+;WrHYO@gWQS&|Q4fr7wl%QQV+KQXPA1Bcidv4*Sxv=6XhULj
z`q92W+n_Rwv-|Ps*E^Bzhr7IBb7NHl3SjNTsH5TZTf=EP6?lpaj)g-|b92r5iL^N^
z)K8!$l^oZrtyw~u0I^=qqj~Vy0~4gF7~@bd`{`SaJg)R*_nuvXOw#OJpQ&&~Vva>?
z?*u~wEAE3ES(`-V5)L`lSbs9F`J@=a$gbiz>GW;CO<=nR=RtAHP;wD^Mf|&nhzsc0
z&uKC8;3h;fVkYhcDjM!6cJo@epaG}Fl`Stdf0FTgwr=TMi#0>mxuG3$hPao%T`}2*
z?H8VRYrUA!Fb}0+=Ej{x+Z1QpZ`-sbyV8b5{&lIqJD|Gw)yH-2Nj)_l1^W0t>NTH2
z)%2^6%ifhfjpN?yI`DN@)pw<JjYpUM^6QWC@8C5tAN+&1Wp7KvHJOq4x@&?VQHGXr
zY!TV<|9;cT{b@K(u9GHkSAgB$nvoa3Z~25j1*l^=x+lJ~mdKU5J=4+l{nJq>2}HrV
z!rxuTU(UkM(Py%#?DH~z;&<n>tFy8$OhqHdI^X)8>GiIOW~p)`)oY~t8}LtkL!P+9
z^-a(OQ}d`AC?bl2<{=Mrqr{c^K%qcwTD8D6_ZXt<iZS|CY6tav9+i4_ff|?9m#P)@
zRQl~5z8p0p&vaM5K75M0GpO~4+^8euu?OPQ=HpoxG5Z(UR=WSZ0IMOht-hVqOl=ih
zSY#HPICrJJmN%JaUfj=h+58&VH~om2%nlEB{%5a$ioVrV*!#c@5GzOWR*M%LV+Z1H
zsGuQ>e(mg1P0z4ib$56~gkT>Mo+Q_meAZvN>#TBdNRNMiT{*H!yKDk61uv+BbiWt^
zk|N+|wt0DZi#@Sh>OT$Xsgnj^3>PS<ZmqL@7a8ReZF#c3K!4a|4ll%cT)OR(;%;P8
z_c)N%ZbJru2m@q~y_@6UKL0AB$P&YLebTqnrf+EK_AqZ=z7LMTJIO>hUkqB2u?C_B
zQImY-XSdEk_clFn1-)aV>B;rbSQK+&k31W+eQrtky(^>2FRLEFKaCE?xwiJ^c6gwm
ziq(7IXfPQONxW^U73am1$kC|g3MLGGzeQj*Ma7ePxetqVO*?2uHa+=W<VDclhfV(n
DBAlch

literal 0
HcmV?d00001

diff --git a/robots.zil b/robots.zil
new file mode 100644
index 0000000..3bfa6fe
--- /dev/null
+++ b/robots.zil
@@ -0,0 +1,932 @@
+"ROBOTS for
+			      SUSPENDED
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+;"NAMES: IRIS, WALDO, SENSA, AUDA, POET, & WHIZ"
+
+<CONSTANT FDOFF 0>
+<CONSTANT SDOFF 6>
+<CONSTANT RTOFF 12>
+
+<GLOBAL ROBOT-NAMES
+	<PTABLE "FC for both robots"
+		"IRIS"
+		"WALDO"
+		"SENSA"
+		"AUDA"
+		"POET"
+		"WHIZ"
+		"HUMANS">>
+
+<ROUTINE ROBOT-TELL (STR "OPTIONAL" (CR? T))
+	 <COND (<NOT <EQUAL? ,WINNER ,OLD-WINNER>>
+		<TELL <GET ,ROBOT-NAMES ,ROFF> ": ">)>
+	 <TELL .STR>
+	 <COND (.CR? <CRLF>)>
+	 <RTRUE>>
+
+<ROUTINE HE-SHE (OBJ)
+	 <COND (<EQUAL? .OBJ ,IRIS ,SENSA ,AUDA>
+		<TELL "she">)
+	       (<EQUAL? .OBJ ,PEOPLE>
+		<TELL "they">)
+	       (T <TELL "he">)>>
+
+<ROUTINE HIM-HER (OBJ)
+	 <COND (<EQUAL? .OBJ ,IRIS ,SENSA ,AUDA>
+		<TELL "her">)
+	       (<EQUAL? .OBJ ,PEOPLE>
+		<TELL "them">)
+	       (T <TELL "him">)>>
+
+<ROUTINE CANT-DETECT (OBJ "OPTIONAL" (CR? T) "AUX" TEMPROFF)
+	 <ROBOT-TELL <GET ,DETECT-TBL ,ROFF> <>>
+	 ;<SET TEMPROFF ,ROFF>
+	 <COND (<GETP .OBJ ,P?ROBOT>
+		<TELL " ">)
+	       (T
+		<TELL " any ">)>
+	 ;<COND (<EQUAL? ,ROFF 0>
+		<SETG ROFF 6>)>
+	 <TELL D .OBJ " here.">
+	 ;<SETG ROFF .TEMPROFF>
+	 <COND (.CR? <CRLF>)>
+	 <RTRUE>>
+
+<GLOBAL DETECT-TBL
+	<PTABLE "Neither robot can detect"
+		"Visual scanners cannot see"
+		"Neither sonar nor extensions detect"
+		"Sensory inputs cannot detect"
+		"Sorry, but I can't hear"
+		"I can't accept the existence of"
+		"The CLC cannot confirm the presence of">>
+
+<ROUTINE ROBOT-YUKS ()
+	 <ROBOT-TELL <PICK-ONE <GET ,R-YUKS ,ROFF> >>>
+
+<GLOBAL R-YUKS
+	<PLTABLE 
+	 <PLTABLE "I would if I could."
+		 "I can't, so I shan't."
+		 "I know why I wasn't well designed, but what's your excuse?"
+		 "Trying to do that's like asking me to blink.">
+	 <PLTABLE "Extensions have their limitations, and you just hit mine."
+		 "I'd sooner play eight pairs of castanets for Auda."
+		 "Do this, do that, boy! I just can't handle this anymore."
+		 "You've entered the zone whose boundaries are that of the wishful thinker.">
+	 <PLTABLE "A request like that makes my sensors recoil in horror."
+		 "I am but a poor sensory mechanism. Don't misuse me."
+		 "I like that. You should bottle that request."
+		 "All sensors aside, that goes beyond my abilities.">
+	 <PLTABLE "If I could turn myself off, I'd do it rather than comply."
+		 "I'll shut my ear-receptors to that request."
+		 "Huh? I was listening to something a little more intelligent -- the walls settling."
+		 "You can't be serious. Poet says more sensible things.">
+	 <PLTABLE "As the immortal Bartleby once said, 'No, I don't think so.'"
+		 "If you knew me like I know me you wouldn't ask me to do that."
+		 "Let's face it: Buddha, you ain't."
+		 "I often ponder the meaning of existence but, in your case, it seems a waste of time.">
+	 <PLTABLE "I'd rather get physical with Iris than respond to that."
+		 "How does that fit into the scheme of things?"
+		 "Unable to process request. Please see manual for operating instructions."
+		 "Huh? You talking to me?">>>
+
+<GLOBAL DEADBOTS
+	<LTABLE 0 0 0 0 0 0>>
+
+<ROUTINE DEAD-FCN ("OPTIONAL" (ROB 0) "AUX" (COUNT 0) TEMP L)
+	 <COND (<NOT <EQUAL? .ROB 0>>
+		<TELL "FC: " D .ROB " is no longer functional." CR>)>
+	 <COND (,OLD-WINNER
+		<SET TEMP <GET ,DEADBOTS <GETP ,OLD-WINNER ,P?ROBOT>>>
+		<COND (<L? .TEMP 30>
+		       <SETG WINNER ,OLD-WINNER>
+		       <SETG OLD-WINNER <>>
+		       <SETG WINNER-HERE 
+			     <COND (<IN? <SET L <LOC ,WINNER>> ,ROOMS> .L)
+				   (T <LOC .L>)>>
+		       <SETG ROFF <GETP ,WINNER ,P?ROBOT>>
+		       <SETG HERE ,WINNER>
+		       <TELL "FC: Cryolink reestablished to ">
+		       <TELL SD ,WINNER "." CR>
+		       <SETG QUOTE-FLAG <>>
+		       <SETG P-CONT <>>
+		       <RFATAL>)>)>
+	 <REPEAT ()
+		 <SET COUNT <+ .COUNT 1>>
+		 <COND (<EQUAL? .COUNT 7>
+			<TELL 
+			 "FC: There's no point in continuing. All the robots are history and, for that matter, so are the people on the surface." CR>
+			<QUIT>)>
+		 <SET TEMP <GET ,DEADBOTS .COUNT>>
+		 <COND (<L? .TEMP 30>
+			<SETG WINNER <GET ,NAME-TBL <- .COUNT 1>>>
+			<SETG OLD-WINNER <>>
+			<SETG WINNER-HERE 
+			      <COND (<IN? <SET L <LOC ,WINNER>> ,ROOMS> .L)
+				    (T <LOC .L>)>>
+			<SETG ROFF <GETP ,WINNER ,P?ROBOT>>
+			<SETG HERE ,WINNER>
+			<TELL "FC: Cryolink established to ">
+			<TELL SD ,WINNER "." CR>
+			<SETG QUOTE-FLAG <>>
+			<SETG P-CONT <>>
+			<RFATAL>)>>>
+
+<OBJECT GLOBAL-IRIS
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ROBOTS IRIS ROBOT)
+	(ADJECTIVE VISUAL ROBOT)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT SEARCHBIT)
+	(DESC "Iris")
+	(ACTION GLOBAL-ROBOT)
+	(ROBOT 1)
+	(GLOBAL HANDS)
+        (CAPACITY 100)>
+
+<OBJECT IRIS
+	(IN WEATHER-BANKS)
+	(SYNONYM ROBOTS IRIS ROBOT)
+	(ADJECTIVE VISUAL ROBOT)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT SEARCHBIT)
+	(DESC "Iris")
+	(ACTION IRIS-FCN)
+	(ROBOT 1)
+	(OBJDESCS <PLTABLE 
+"Iris" "Iris" "Iris" "Iris" "Iris" "Iris"
+"Iris" "Iris" "Iris" "Iris" "Iris" "Iris" 
+"It is extremely difficult to describe oneself."
+"Iris feels extremely delicate and is under a meter in height. My pressure extensions detect a maintenance panel which should be accessible to me."
+"Iris, when functioning normally, transmits high-resolution pictures of her
+surroundings to the FC. She can provide you with visual data and is under a meter in height."
+"Iris is silent and does not respond to verbal cueing. She is about one meter high."
+"Iris is the personification of petite beauty. As the old-timers say,|
+  The young lady always wore mink|
+  While her visual circuits went 'blink'|
+    The young men's delight|
+    Night after night|
+  Was her blushing a bright shade of pink."
+"Limited data available while not plugged in to a peripheral. Iris is a visual robot, with no specific tagging devices, about one meter tall.">)
+	(GLOBAL HANDS)
+	(CLC-TXT <PLTABLE
+"Contained within Iris is a maintenance panel and some visual processors."
+"Iris can be best used to monitor the monitors surrounding the Central Chamber.|
+Waldo should remove the maintenance panel and replace all faulty chips."
+"Iris is a visual robot, a descendant of the simple photon receptors, placed within the complex at its inception.">)
+	(CAPACITY 100)>
+
+<ROUTINE IRIS-FCN ()
+	 <COND (<IRIS?>
+		<COND (<G? <GET ,DEADBOTS 1> 29>
+		       <DEAD-FCN ,IRIS>
+		       <RFATAL>)>
+		<SETG LOAD-MAX 75>
+		<SETG NUM-EXT 2>
+		<COND (<VERB? EXAMINE>
+		       <COND (<NOT ,IRIS-FIXED>
+			      <ROBOT-TELL
+"That's difficult for me to do until my visual function has been repaired.">
+			      <RTRUE>)
+			     (<EQUAL? ,PRSO ,WINNER>
+			      <ROBOT-YUKS>
+			      <RTRUE>)>)>)
+	       (<VERB? OPEN CLOSE>
+		<PERFORM ,PRSA ,PANEL>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <FSET? ,PANEL ,OPENBIT>
+		     <GET <GETP ,PANEL ,P?OBJDESCS> ,ROFF>>
+		<COND (<VERB? EXAMINE>
+		       <GET <GETP ,PANEL ,P?OBJDESCS> ,ROFF>)>
+		<TELL "The " D ,PANEL " is open">
+		<COND (<FIRST? ,PANEL>
+		       <TELL " and behind it I detect ">
+		       <PRINT-CONTENTS ,PANEL>)>
+		<TELL "." CR>)>>
+  	       
+<OBJECT GLOBAL-WALDO
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ROBOTS WALDO ROBOT)
+	(ADJECTIVE BUILDER ROBOT)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(DESC "Waldo")
+	(ACTION GLOBAL-ROBOT)
+	(GLOBAL HANDS)
+	(ROBOT 2)
+	(CAPACITY 100)>
+
+<OBJECT WALDO
+	(IN REPAIR3)
+	(SYNONYM ROBOTS WALDO ROBOT)
+	(ADJECTIVE BUILDER ROBOT)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(DESC "Waldo")
+	(ACTION WALDO-FCN)
+	(GLOBAL HANDS)
+	(ROBOT 2)
+	(OBJDESCS <PLTABLE "Waldo""Waldo""Waldo""Waldo""Waldo""Waldo"
+			  "Waldo""Waldo""Waldo""Waldo""Waldo""Waldo"
+"Waldo has a lot of extensions for manipulating objects and is about one meter in height. He is primarily a building and repair robot. He's also rather cute and appeals to my visual circuits."
+"How can I describe myself?"
+"Waldo emits a lot of electrical and sonar feedback waves used for manipulating objects in his environment and is about one meter in height."
+"Waldo is generally a quiet robot, well behaved, who never utters a word and is about one meter in height."
+"Waldo, ah Waldo. He builds and creates wonders which are a delight to behold and is about one meter in height."
+"CLC tagged object WA-1 is a building robot and is about one meter in height." ;"text">)
+	(CAPACITY 100)
+	(CLC-TXT <PLTABLE "Waldo is a multi-extensioned robot, capable of extremely delicate operations." "With his microsurgery extension installed, there's little he can't do." "Waldo is part of the Complex's original equipment, provided by the Frobozz Engineering Corporation at no extra cost.">)>
+
+<ROUTINE WALDO-FCN ()
+	 <COND (<WALDO?>
+		<COND (<G? <GET ,DEADBOTS 2> 29>
+		       <DEAD-FCN ,WALDO>
+		       <RFATAL>)>
+		<SETG LOAD-MAX 100>
+		<COND (<FSET? ,SURGERY-HAND ,WEARBIT>
+		       <SETG NUM-EXT 7>)
+		      (T <SETG NUM-EXT 6>)> 
+		<COND (<VERB? TOUCH>
+		       <PERFORM ,V?EXAMINE ,PRSO>
+		       <RTRUE>)
+		      (<AND <VERB? EXAMINE>
+			    <EQUAL? ,PRSO ,WINNER>>
+		       <ROBOT-YUKS>
+		       <RTRUE>)>
+		<RFALSE>)>>
+
+<OBJECT GLOBAL-SENSA
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ROBOTS SENSA ROBOT)
+	(ADJECTIVE SENSORY ROBOT)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(DESC "Sensa")
+	(ACTION GLOBAL-ROBOT)
+	(GLOBAL HANDS)
+	(ROBOT 3)
+	(CAPACITY 0)>
+
+<OBJECT SENSA
+	(IN CPU-ROOM)
+	(SYNONYM ROBOTS SENSA ROBOT)
+	(ADJECTIVE SENSORY ROBOT)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(DESC "Sensa")
+	(ACTION SENSA-FCN)
+	(GLOBAL HANDS)
+	(ROBOT 3)
+	(OBJDESCS <PLTABLE "Sensa" "Sensa""Sensa""Sensa""Sensa""Sensa""Sensa"
+			  "Sensa""Sensa""Sensa""Sensa""Sensa"
+"I see Sensa as a robot with two extensions which are used mainly to detect the flow of energy in the environment and objects. She is small and is about one meter in height and not very useful for manipulating objects."
+"Sensa feels small and delicate, much like Iris, contains two extensions which are delicate and tuned as receptors and is about one meter in height."
+"It is diffuclt for me to describe myself."
+"Sensa makes no sounds, is unable to respond to verbal queries or orders, and is about one meter in height."
+"Sensa is sensitive to sensations and is about one meter in height."
+"CLC tagged object SE-1 is a robot designed to retrieve data from its surroundings and is about one meter in height.">)
+	(CAPACITY 0)
+	(CLC-TXT <PLTABLE "Sensa contains sensory pads and mechanisms for detecting abnormal activity." "Sensa can best be used by directing her to examine objects." "Sensa was provided when the Filtering Computers discovered the need for a drone to march through corridors, inspecting all devices for vibrational output.">)>
+
+<ROUTINE SENSA-FCN ()
+	 <COND (<SENSA?>
+		<COND (<G? <GET ,DEADBOTS 3> 29>
+		       <DEAD-FCN ,SENSA>
+		       <RFATAL>)>
+		<SETG LOAD-MAX 60>
+		<SETG NUM-EXT 3>
+		<COND (<AND <VERB? EXAMINE>
+			    <EQUAL? ,PRSO ,WINNER>>
+		       <ROBOT-YUKS>
+		       <RTRUE>)>
+		<RFALSE>)>>
+
+<OBJECT GLOBAL-AUDA
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ROBOTS AUDA ROBOT SPEAKER)
+	(ADJECTIVE VERBAL SPEAKING HEARING AUDIO ROBOT COMMUN)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(DESC "Auda")
+	(ACTION GLOBAL-ROBOT)
+	(GLOBAL HANDS)
+	(ROBOT 4)
+	(CAPACITY 100)>
+
+<OBJECT AUDA
+	(IN ENTRY-AREA)
+	(SYNONYM ROBOTS AUDA ROBOT SPEAKER)
+	(ADJECTIVE VERBAL SPEAKING HEARING AUDIO ROBOT COMMUN)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(DESC "Auda")
+	(ACTION AUDA-FCN)
+	(GLOBAL HANDS)
+	(ROBOT 4)
+	(CLC-TXT <PLTABLE "Auda has two dish antennae which function as 'ears'." "Tell Auda to listen." "Auda, part of the Complex's original equipment, was built as an interface between human visitors and you.">)
+	(OBJDESCS <PLTABLE "Auda""Auda""Auda""Auda""Auda""Auda"
+			  "Auda""Auda""Auda""Auda""Auda""Auda"
+"Auda is a small robot (about one meter in height) with large dish receptors which give him the appearance of having large ears. He is a listening robot."
+"He hears all, with half of his meter-high body made up of two large surfaces shaped like dishes which are mounted on swivels."
+"Auda receives vibrations directly related to air currents and is about one meter in height."
+"What can I say? I'm cute and about one meter in height."
+"Auda, the ears of the people, can hear the beauties of the surroundings, the subtleties of the creatures and is about one meter in height."
+"CLC tagged object Auda is unique in his ability to communicate with outside creatures and is about one meter in height.">)
+	(CAPACITY 100)>
+
+<ROUTINE AUDA-FCN ()
+	 <COND (<AUDA?>
+		<COND (<G? <GET ,DEADBOTS 4> 29>
+		       <DEAD-FCN ,AUDA>
+		       <RFATAL>)>
+		<SETG LOAD-MAX 70>
+		<SETG NUM-EXT 1>
+		<COND (<AND <VERB? EXAMINE>
+			    <EQUAL? ,PRSO ,WINNER>>
+		       <ROBOT-YUKS>
+		       <RTRUE>)>
+		<RFALSE>)>>
+
+<OBJECT GLOBAL-POET
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ROBOTS POET ROBOT)
+	(ADJECTIVE METAPHOR ROBOT RHYMING)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(GLOBAL HANDS)
+	(DESC "Poet")
+	(ACTION GLOBAL-ROBOT)
+	(ROBOT 5)
+	(CAPACITY 100)>
+
+
+<OBJECT POET
+	(IN CPU-ROOM)
+	(SYNONYM ROBOTS POET ROBOT)
+	(ADJECTIVE METAPHOR ROBOT RHYMING)
+	(GLOBAL HANDS)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(DESC "Poet")
+	(ACTION POET-FCN)
+	(ROBOT 5)
+	(CLC-TXT <PLTABLE "Poet has two sensors located at the end of his extensions." "For diagnostic information on pattern and flow, have Poet touch objects." "Poet, historically speaking, has been of extreme value in pinpointing exact causes of electrical breakdown.">)
+	(OBJDESCS <PLTABLE "Poet" "Poet""Poet""Poet""Poet""Poet""Poet""Poet""Poet""Poet""Poet""Poet" 
+"I see Poet as a misguided robot, wandering about this complex in an abnormal manner even for him. There are two extensions which have flat plates on them which could be used for something, though Poet never communicated their purpose to me. Like the rest of us, Poet is about 1 meter tall."
+"The robot you refer to as Poet is actually a finely tuned, though out of kilter, sensory robot used for diagnostic purposes. He is one meter tall."
+"All types of energy flow into Poet, especially through its collector plates at the ends of its two extensions. He is a meter high."
+"Poet does not emit or receive sound waves and so I have nothing to do with him, that meter-high puzzle."
+"A natural born poet, I feel the flow of metaphor upon me at all times."
+"CLC does not recognize Poet as a certified repair robot in its present state. Poet is no larger than a meter high.">)
+	(CAPACITY 100)>
+
+<ROUTINE POET-FCN ()
+	 <COND (<POET?>
+		<COND (<G? <GET ,DEADBOTS 5> 29>
+		       <DEAD-FCN ,POET>
+		       <RFATAL>)>
+		<SETG LOAD-MAX 20>
+		<SETG NUM-EXT 3>
+		<COND (<AND <VERB? EXAMINE>
+			    <EQUAL? ,PRSO ,WINNER>>
+		       <ROBOT-YUKS>
+		       <RTRUE>)>
+		<RFALSE>)>>
+	 
+<OBJECT GLOBAL-WHIZ
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ROBOTS WHIZ ROBOT)
+	(ADJECTIVE  ROBOT RESEARCH)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(DESC "Whiz")
+	(ACTION GLOBAL-ROBOT)
+	(ROBOT 6)
+	(GLOBAL HANDS)
+	(CAPACITY 100)>
+
+<OBJECT WHIZ
+	(IN PERIPH-3)
+	(SYNONYM ROBOTS WHIZ ROBOT)
+	(ADJECTIVE ROBOT RESEARCH)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT)
+	(GLOBAL HANDS)
+	(DESC "Whiz")
+	(ACTION WHIZ-FCN)
+	(ROBOT 6)
+	(CLC-TXT <PLTABLE "Whiz is useful for interfacing with the CLC." "Just tell him to plug in when he's near a peripheral's pedestal." "Built before the complex was completed, Whiz was a bit of a mistake since he should have been able to plug directly into the CLC.">)
+	(OBJDESCS <PLTABLE "Whiz""Whiz""Whiz""Whiz""Whiz""Whiz""Whiz""Whiz""Whiz""Whiz""Whiz""Whiz"
+"Whiz is our interface to the CLC and is about one meter in height. He has a small connecting cable extending from the front of his frame which enables the interface."
+"Whiz's general shape, according to my sonar and sense of touch, indicates he is specific-purposed and about one meter in height."
+"Whiz processes tremendous amounts of data, assumed by the tremendous energy flow over radio waves between himself and the CLC, and is about one meter in height."
+"Whiz does not respond to any audio stimuli and is about one meter in height."
+"Whiz is a whiz, and oh what a wonderful whiz he was, the little shrimp."
+"CLC data available at peripherals.">)
+	(CAPACITY 100)>
+
+<ROUTINE WHIZ-FCN ()
+	 <COND (<WHIZ?>
+		<COND (<G? <GET ,DEADBOTS 6> 29>
+		       <DEAD-FCN ,WHIZ>
+		       <RFATAL>)>
+		<SETG LOAD-MAX 50>
+		<SETG NUM-EXT 2>
+		<COND (<VERB? EXAMINE>
+		       <COND (<EQUAL? ,PRSO ,WINNER>
+			      <ROBOT-YUKS>
+			      <RTRUE>)
+			     (,PLUGGED-IN
+			      <PERFORM ,V?QUERY ,PRSO>
+			      <RTRUE>)>
+		       <RFALSE>)
+		      (<AND <VERB? WALK WALK-TO FOLLOW MOVE-ROBOT-TO-LOC>
+			    ,PLUGGED-IN>
+		       <TELL "(Unplugging first.)" CR>
+		       <SETG PLUGGED-IN <>>
+		       <RFALSE>)>)>>
+
+<ROUTINE GLOBAL-ROBOT ()
+	 <COND (<VERB? $TELL WALK-TO QUERY FOLLOW>
+		<SETG PRSO <GET ,NAME-TBL <- <GETP ,PRSO ,P?ROBOT> 1>>>
+		<RFALSE>)
+	       (T
+		<COND (<GETP ,PRSO ,P?ROBOT>
+		       <CANT-DETECT <REAL-ROBOT ,PRSO>>
+		       <RTRUE>)
+		      (<GETP ,PRSI ,P?ROBOT>
+		       <CANT-DETECT <REAL-ROBOT ,PRSI>>
+		       <RTRUE>)>)>>
+
+<OBJECT TWOBOTS
+	(DESC "Two Robots")
+	(ACTION TWOBOTS-FCN)
+	(ROBOT 0)>
+
+<ROUTINE TWOBOTS-FCN ()
+	 <COND (<OR <G? <GET ,DEADBOTS <GETP <GET ,P-ACTORS 1> ,P?ROBOT>> 29>
+		    <G? <GET ,DEADBOTS <GETP <GET ,P-ACTORS 2> ,P?ROBOT>> 29>>
+		<TELL "FC: Unable to comply with those robots." CR>
+		<CHANGE-WINNER <GET ,P-ACTORS 1>>
+		<RTRUE>)
+	       (<NOT <VERB? TAKE MOVE>>
+		<TELL "FC: Using two robots will not help accomplish that task." CR>
+		<CHANGE-WINNER <GET ,P-ACTORS 1>>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSO ,DEADBOT>
+		     <FSET? ,REDWIRE ,INVISIBLE>>
+		<COND (<NOT <FSET? ,CABINET ,OPENBIT>>
+		       <TELL 
+			"FC: Neither robot can detect that object here." CR>
+		       <CHANGE-WINNER <GET ,P-ACTORS 1>>
+		       <RTRUE>)
+		      (ELSE
+		       <TELL "FC: The robots have moved it." CR>
+		       <MOVE ,DEADBOT ,WINNER-HERE>
+		       <FCLEAR ,REDWIRE ,INVISIBLE>
+		       <CHANGE-WINNER <GET ,P-ACTORS 1>>
+		       <FSET ,DEADBOT ,TOUCHBIT>)>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSO ,DEADBOT>
+		     <NOT <FSET? ,REDWIRE ,INVISIBLE>>>
+		<TELL
+		 "FC: There's nothing to be gained by moving it again." CR>
+		<CHANGE-WINNER <GET ,P-ACTORS 1>>
+		<RTRUE>)
+	       (ELSE
+		<TELL "FC: Using two robots will not help accomplish that task." CR>
+		<CHANGE-WINNER <GET ,P-ACTORS 1>>
+		<RTRUE>)>
+	 <CHANGE-WINNER <GET ,P-ACTORS 1>>
+	 <RFALSE>>
+
+;"SOME QUEUED ACTIONS FOLLOW"
+
+<ROUTINE I-TREMOR1 ("AUX" STR)
+	 <SETG ACID-FIXED <>>
+	 <COND (<L? <GET ,DEADBOTS 3> 30>
+		<TELL CR <GET ,INTER-TBL 3> 
+" Secondary tremor detected in lower level. Intensity: 7.3. Projected damage: Cooling systems for FCs in Maintenance Area." CR>)>
+	 <COND (<IN? ,SENSA ,CORRIDOR-4>
+		<SET STR <GET ,BEWARE-TBL 3>>
+		<CRLF>
+		<COND (<SENSA?>
+		       <ROBOT-TELL .STR>)
+		      (T <TELL <GET ,INTER-TBL 3> " " .STR CR>)>)
+	       (<IN? ,SENSA ,ACIDMIST>
+		<SET STR <GET ,MISTY-TBL 3>>
+		<CRLF>
+		<COND (<SENSA?>
+		       <ROBOT-TELL .STR>)
+		      (T <TELL <GET ,INTER-TBL 3> " " .STR CR>)>)>
+	 <COND (<IN? ,AUDA ,CORRIDOR-4>
+		<SET STR <GET ,BEWARE-TBL 4>>
+		<CRLF>
+		<COND (<AUDA?>
+		       <ROBOT-TELL .STR>)
+		      (T <TELL <GET ,INTER-TBL 4> " " .STR CR>)>)
+	       (<IN? ,AUDA ,ACIDMIST>
+		<SET STR <GET ,MISTY-TBL 4>>
+		<CRLF>
+		<COND (<AUDA?>
+		       <ROBOT-TELL .STR>)
+		      (T <TELL <GET ,INTER-TBL 4> " " .STR CR>)>)>
+	 <COND (<IN? ,POET ,CORRIDOR-4>
+		<SET STR <GET ,BEWARE-TBL 5>>
+		<CRLF>
+		<COND (<POET?>
+		       <ROBOT-TELL .STR>)
+		      (T <TELL <GET ,INTER-TBL 5> " " .STR CR>)>)
+	       (<IN? ,POET ,ACIDMIST>
+		<SET STR <GET ,MISTY-TBL 5>>
+		<CRLF>
+		<COND (<POET?>
+		       <ROBOT-TELL .STR>)
+		      (T <TELL <GET ,INTER-TBL 5> " " .STR CR>)>)>
+	 <COND (<IN? ,WALDO ,ACIDMIST>
+		<SET STR <GET ,MISTY-TBL 2>>
+		<CRLF>
+		<COND (<WALDO?>
+		       <ROBOT-TELL .STR>)
+		      (T <TELL <GET ,INTER-TBL 2> " " .STR CR>)>)>>
+
+<ROUTINE I-TREMOR2 ("AUX" T1 T2 T3)
+	 <SET T1 <GET ,DIALSETS 4>>
+	 <SET T2 <GET ,DIALSETS 5>>
+	 <SET T3 <GET ,DIALSETS 6>>
+	 <COND (<L? .T1 70>
+		<SET T1 <+ .T1 10>>)
+	       (T <SET T1 <- .T1 20>>)>
+	 <COND (<L? .T2 70>
+		<SET T2 <+ .T2 10>>)
+	       (T <SET T2 <- .T2 20>>)>
+	 <COND (<L? .T3 70>
+		<SET T3 <+ .T3 10>>)
+	       (T <SET T3 <- .T3 20>>)>
+	 <SETG WATER-LEVEL .T1>
+	 <SETG MINERALS .T2>
+	 <SETG WATTS .T3>
+	 <COND (<L? <GET ,DEADBOTS 3> 30>
+		<TELL CR <GET ,INTER-TBL 3>
+" Secondary tremor detected by Filtering Computers. Intensity: 8.4. Projected damage: Automatic controls for surface transportation; Automatic controls for Hydroponics Area." CR>)>
+	 >
+
+<ROUTINE I-WEATHER ()
+	 <SETG PRESSURE1 <ADJUST-PRESSURE ,PRESSURE1 <GET ,DIALSETS 1>>>
+	 <SETG PRESSURE2 <- <ADJUST-PRESSURE ,PRESSURE2 <GET ,DIALSETS 2>>
+			    ,DECAY>>
+	 <COND (<L? ,PRESSURE2 0> <SETG PRESSURE2 0>)>
+	 <SETG PRESSURE3 <ADJUST-PRESSURE ,PRESSURE3 <GET ,DIALSETS 3>>>
+	 <SETG WINDS <+ <ABS <- ,PRESSURE2 ,PRESSURE3>>
+			<ABS <- ,PRESSURE1 ,PRESSURE2>>>>
+	 <SETG DEGREES
+	       <+ 60 <* <- </ <+ ,PRESSURE1 ,PRESSURE2 ,PRESSURE3> 3> 60> 2>>> 
+	 <ENABLE <QUEUE I-WEATHER 5>>
+	 <RFALSE>>
+	 
+<ROUTINE ADJUST-PRESSURE (OLD NEW "AUX" ADJ)
+	 <COND (<==? .OLD .NEW> <RETURN .OLD>)
+	       (<==? <SET ADJ </ <ABS <- .OLD .NEW>> 5>> 0>
+		<SET ADJ 1>)>
+	 <COND (<G? .OLD .NEW> <- .OLD .ADJ>)
+	       (T  <+ .OLD .ADJ>)>>
+
+<ROUTINE I-DECAY ()
+	 <SETG DECAY <+ ,DECAY 1>>
+	 <ENABLE <QUEUE I-DECAY 25>>
+	 <RFALSE>>
+
+<ROUTINE I-FOOD ("AUX" TEMP)
+	 <COND (<G? ,MOVES ,RTD-KILLS>
+		<SETG WATER-LEVEL <- <GET ,DIALSETS 4> 20>>
+		<SETG MINERALS <- <GET ,DIALSETS 5> 15>>
+		<SETG WATTS <- <GET ,DIALSETS 6> 20>>)
+	       (T
+		<SETG WATER-LEVEL <GET ,DIALSETS 4>>
+		<SETG MINERALS <GET ,DIALSETS 5>>
+		<SETG WATTS <GET ,DIALSETS 6>>)>
+	 <COND (<L? ,WATER-LEVEL 0>
+		<SETG WATER-LEVEL 0>)>
+	 <COND (<L? ,MINERALS 0>
+		<SETG MINERALS 0>)>
+	 <COND (<L? ,WATTS 0>
+		<SETG WATTS 0>)>
+	 <SET TEMP 0>
+	 <COND (<NOT <EQUAL? ,WATER-LEVEL ,WATER-OPT>>
+	        <SET TEMP <+ <ABS <- ,WATER-LEVEL ,WATER-OPT>> 0>>)>
+	 <COND (<NOT <EQUAL? ,MINERALS ,MINERALS-OPT>>
+		<SET TEMP <+ .TEMP <ABS <- ,MINERALS ,MINERALS-OPT>>>>)>
+	 <COND (<NOT <EQUAL? ,WATTS ,WATTS-OPT>>
+		<SET TEMP <+ .TEMP <ABS <- ,WATTS ,WATTS-OPT>>>>)>
+	 <SETG FOOD-TONS <- ,FOOD-OPT .TEMP>>
+	 <COND (<OR <EQUAL? ,FOOD-TONS 0>
+		    <L? ,FOOD-TONS 0>>
+		<TELL CR <GET ,INTER-TBL 7> 
+" The food situation has become totally unsalvageable. Continued existence is meaningless. All systems are shutting down. And you're the first system to be disconnected." CR>
+		<QUIT>)>>
+
+<ROUTINE END-GAME ()
+	 <TELL CR <GET ,INTER-TBL 7> CR CR
+"All systems returning to normal.|
+  Weather systems slowly approaching balance.|
+  Hydroponic systems working at full capacity.|
+Surface life in recovery mode.|
+|
+Extrapolation based on current weather systems and food supplies:|
+  Total recovery in ">
+	 <SETG WINDS <+ </ <ABS <- ,PRESSURE2 ,PRESSURE3>> 2>
+			<ABS <- ,PRESSURE1 ,PRESSURE2>>>>
+	 <TELL N ,WINDS " cycles." CR>
+	 <TELL "  Current surface casualties: ">
+	 <BIG-NUM-PRINT ,TOTAL-SCORE>
+	 <CRLF>
+	 <TELL "  Projected casualties during recovery: ">
+	 <SETG DEGREES <* ,SCORE ,WINDS>>
+	 <COND (<G? ,MOVES 75>
+		<SETG DEGREES <+ ,DEGREES <- ,FOOD-OPT ,FOOD-TONS>>>)>
+	 <BIG-NUM-PRINT ,DEGREES>
+	 <SETG TOTAL-SCORE <+ ,TOTAL-SCORE ,DEGREES>>
+	 <CRLF>
+	 <TELL "  Original population: 30,172,000" CR>
+	 <TELL "  Total possible survivors: ">
+	 <COND (<OR <G? ,TOTAL-SCORE 30172>
+		    <L? ,TOTAL-SCORE 0>>
+		<SETG ,TOTAL-SCORE 30172>)>
+	 <BIG-NUM-PRINT <- 30172 ,TOTAL-SCORE>>
+	 <CRLF>
+	 <TELL CR
+	       "This score gives you the possibility of being considered for ">
+	 <COND (<NOT ,ADVANCED-FLAG>
+		<COND (<G? ,TOTAL-SCORE 700>
+		       <TELL "being burned in effigy">
+		       <SETG WINDS 7>)
+		      (<G? ,TOTAL-SCORE 600>
+		       <TELL "being a vegetable after your tour of duty">
+		       <SETG WINDS 6>)
+		      (<G? ,TOTAL-SCORE 500>
+		       <TELL "a brain transplant (with the brain provided by a rat)">
+		       <SETG WINDS 5>)
+		      (<G? ,TOTAL-SCORE 300>
+		       <TELL "a possible lobotomy">
+		       <SETG WINDS 4>)
+		      (<G? ,TOTAL-SCORE 100>
+		       <TELL "savior of a planet">
+		       <SETG WINDS 3>)
+		      (<G? ,TOTAL-SCORE 40>
+		       <TELL "being treated as a local god">
+		       <SETG WINDS 2>)
+		      (T 
+		       <TELL 
+			"a home in the country and an unlimited bank account">
+		       <SETG WINDS 1>)>)
+	       (T
+		<COND (<G? ,TOTAL-SCORE 400>
+		       <TELL "a brain transplant (with the brain provided by a rat)">
+		       <SETG WINDS 5>)
+		      (<G? ,TOTAL-SCORE 250>
+		       <TELL "a possible lobotomy">
+		       <SETG WINDS 4>)
+		      (<G? ,TOTAL-SCORE 150>
+		       <TELL "savior of a planet">
+		       <SETG WINDS 3>)
+		      (<G? ,TOTAL-SCORE 95>
+		       <TELL "being treated as a local god">
+		       <SETG WINDS 2>)
+		      (T 
+		       <TELL 
+			"a home in the country and an unlimited bank account">
+		       <SETG WINDS 1>)>)>
+	 <TELL ". On a scale of 1 (the best) to ">
+	 <COND (<NOT ,ADVANCED-FLAG>
+		<TELL "7">)
+	       (T <TELL "5">)>
+	 <TELL " (the worst), your ranking was " N ,WINDS "." CR>
+	 <TELL CR "You successfully completed your task, bringing the Filtering Computers back into balance, in " N ,MOVES " cycles." CR>
+	 <QUIT>>  
+
+<ROUTINE I-SCORE ()
+	 <SETG SCORE 0>
+	 <COND (<G? ,WINDS 50>
+		<SETG SCORE </ <- ,WINDS 25> 3>>)
+	       (<G? ,WINDS 25>
+		<SETG SCORE </ <- ,WINDS 25> 5>>)>
+	 <COND (<L? ,DEGREES 40>
+		<SETG SCORE <+ ,SCORE </ <- 40 ,DEGREES> 3>>>)>
+	 <COND (<AND <G? ,MOVES ,RTD-KILLS>
+		     <L? ,FOOD-TONS 50>>
+		<SETG SCORE <+ .SCORE 1>>)>
+	 <DO-RTD>
+	 <SETG TOTAL-SCORE <+ ,TOTAL-SCORE ,SCORE>>
+	 <COND (<G? ,TOTAL-SCORE 30000>
+		<ALL-DEAD>
+		<FINISH>)>
+	 <RFALSE>>
+
+<ROUTINE DO-RTD ("AUX" S1 S2 S3)
+	 <SET S1 <FSET? ,SWITCH1 ,ONBIT>>
+	 <SET S2 <FSET? ,SWITCH2 ,ONBIT>>
+	 <SET S3 <FSET? ,SWITCH3 ,ONBIT>>
+	 <COND (<NOT .S1>
+		<COND (<G? ,FLOATERS 0>
+		       <SETG SCORE <+ ,SCORE ,FLOATERS>>
+		       <SETG FLOATERS 0>)>
+		<COND (<G? ,CRASH-RATE 0>
+		       <SETG CRASH-RATE 0>)>)
+	       (.S1
+		<SETG FLOATERS <+ ,FLOATERS 2>>
+		<COND (<G? ,MOVES ,RTD-KILLS>
+		      <SETG CRASH-RATE <+ ,CRASH-RATE 1>>
+		      <SETG SCORE <+ ,SCORE 1>>)>)>
+	 <COND (<NOT .S2>
+		<COND (<G? ,TAXIS 0>
+		       <SETG TAXIS 0>)>
+		<COND (<G? ,COLLISIONS 0>
+		       <SETG COLLISIONS 0>)>)
+	       (.S2
+		<SETG TAXIS <+ ,TAXIS 1>>
+		<COND (<G? ,MOVES ,RTD-KILLS>
+		       <SETG COLLISIONS <+ ,COLLISIONS 1>>
+		       <SETG SCORE <+ ,SCORE 1>>)>)>
+	 <COND (<NOT .S3>
+		<COND (<G? ,RAMP-SPEED 30>
+		       <SETG RAMP-KILLS 1>
+		       <SETG SCORE <+ ,SCORE 1>>
+		       <SETG RAMP-SPEED <- ,RAMP-SPEED 5>>)
+		      (T <SETG RAMP-KILLS 0>)>)
+	       (.S3
+		<COND (<G? ,MOVES ,RTD-KILLS>
+		       <SETG RAMP-SPEED <+ ,RAMP-SPEED 5>>
+		       <COND (<G? ,RAMP-SPEED 200>
+			      <SETG RAMP-SPEED 200>)>
+		       <COND (<G? ,RAMP-SPEED 30>
+			      <SET SCORE <+ ,SCORE 1>>
+			      <SETG RAMP-KILLS <+ ,RAMP-KILLS 1>>)>)>)>>
+
+<GLOBAL INTER-TBL
+	<PLTABLE "IRIS INTERRUPT:"
+		"WALDO INTERRUPT:"
+		"SENSA INTERRUPT:"
+		"AUDA INTERRUPT:"
+		"POET INTERRUPT:"
+		"WHIZ INTERRUPT:"
+		"FC INTERRUPT:">>
+
+<ROUTINE I-WIRE-MESSAGE ()
+	 <COND (<AND <EQUAL? ,REDSET ,REDWIRE>
+		     <EQUAL? ,ORANGESET ,ORANGE-WIRE>>
+		<TELL CR <GET ,INTER-TBL 7>
+" Approaching balance between all three units. Attempting internal stabilization. Reset codes may be entered now for planetside stabilization." CR>
+		<DISABLE <INT I-WIRE-MESSAGE>>
+		<RTRUE>)>>
+
+<ROUTINE I-BELT ("AUX" OBJ OFFSET)
+	 <COND (<SET OBJ <FIRST? ,CONVEYERBELTC>>
+		<MOVE .OBJ ,REPAIR3>
+		<COND (<FSET? .OBJ ,FIXABLEBIT>
+		       <COND (<SET OFFSET <GETP .OBJ ,P?ROBOT>>
+			      <COND (<GET ,DEADBOTS .OFFSET>
+				     <TELL CR
+					   <GET ,INTER-TBL .OFFSET>
+					   " It's great to be back!" CR>
+				     <PUT ,DEADBOTS .OFFSET 0>
+				     <FCLEAR .OBJ ,CUTBIT>)>)>)>
+		<FCLEAR .OBJ ,FIXABLEBIT>
+		<SETG ON-WEDGE <>>)>
+	 <COND (<SET OBJ <FIRST? ,CONVEYERBELTB>>
+		<MOVE .OBJ ,CONVEYERBELTC>)>
+	 <COND (<SET OBJ <FIRST? ,CONVEYERBELTA>>
+		<MOVE .OBJ ,CONVEYERBELTB>
+		<ENABLE <QUEUE I-BELT -1>>)>
+	 <COND (<AND <NOT <FIRST? ,CONVEYERBELTA>>
+		     <NOT <FIRST? ,CONVEYERBELTB>>
+		     <NOT <FIRST? ,CONVEYERBELTC>>>
+		<DISABLE <INT I-BELT>>
+		<SETG BELT-ON <>>)>
+	 <RFALSE>>
+
+<ROUTINE I-ROBOTKILLER ("AUX" (COUNT 0) T-VAL)
+	 <REPEAT ()
+		 <SET COUNT <+ .COUNT 1>>
+		 <COND (<EQUAL? .COUNT 7>
+			<RETURN>)>
+		 <COND (<G? <SET T-VAL <GET ,DEADBOTS .COUNT>> 0>
+			<SET T-VAL <+ .T-VAL 1>>
+			<PUT ,DEADBOTS .COUNT .T-VAL>
+			<COND (<EQUAL? .T-VAL ,DYING1>
+			       <TELL CR <GET ,INTER-TBL .COUNT>
+				     " "
+				     <GET <GET ,DYING .COUNT> 1>
+				     CR>)
+			      (<EQUAL? .T-VAL ,DYING2>
+			       <TELL CR <GET ,INTER-TBL .COUNT> 
+				     " " <GET <GET ,DYING .COUNT> 2> CR>)
+			      (<EQUAL? .T-VAL ,DYING3>
+			       <TELL CR <GET ,INTER-TBL .COUNT> 
+				     " " <GET <GET ,DYING .COUNT> 3> CR>
+			       <JIGS-UP "Oh oh. Trouble ...."
+					<GET ,NAME-TBL <-  .COUNT 1>>>)>)>>
+	 <RFALSE>>
+
+<GLOBAL DYING
+	<PLTABLE
+	 <PLTABLE "Visual scanners slipping. Malfunctions noted."
+		 "Warning: Having extreme difficulty processing."
+		 "SYSTEM FAILURE. Blink-out occurring.">
+	 <PLTABLE "Graspers are beginning to malfunction."
+		 "Warning: Internal mechanisms failing."
+		 "SYSTEM FAILURE. Extensions frozen!">
+	 <PLTABLE "Sensory input filters not working reliably."
+		 "Warning: Unable to process data correctly."
+		 "SYSTEM FAILURE: Unable to continue.">
+	 <PLTABLE "I'm starting to hear background noise."
+		 "Warning: Earwax buildup beyond hope."
+		 "SYSTEM FAILURE: Ear canals beyond hope.">
+	 <PLTABLE "I fear I'm about to become one with the cosmos."
+		 "Warning: I detect the presence of the other worlds."
+		 "SYSTEM FAILURE: Farewell, sweet prince.">
+	 <PLTABLE "CLC warns that our communication link is slipping."
+		 "Warning: Difficulty encountered in contacting CLC."
+		 "SYSTEM FAILURE: This is Whiz, signing off.">>>
+
+<ROUTINE I-IRIS-HINTS ()
+	 <SETG IRIS-HINTS <+ ,IRIS-HINTS 1>>
+	 <COND (<OR ,IRIS-FIXED
+		    <FSET? ,IRIS ,CUTBIT>>
+		<DISABLE <INT I-IRIS-HINTS>>
+		<RTRUE>)>
+	 <COND (<==? ,IRIS-HINTS 50>
+		<TELL CR <GET ,INTER-TBL 1> " You may not be aware of this, but I'm not working. I need to get repaired." CR>)
+	       (<EQUAL? ,IRIS-HINTS 80>
+		<TELL CR <GET ,INTER-TBL 1> " Hey, I could really help a lot if you fixed me. All it takes is one little IC." CR>)
+	       (<EQUAL? ,IRIS-HINTS 120>
+		<TELL CR <GET ,INTER-TBL 1> " You can get some information on repairing me at the Advisory Peripheral, if you haven't already asked." CR>
+		<DISABLE <INT I-IRIS-HINTS>>)>>
+
+<ROUTINE I-AUDA-HINTS ()
+	 <COND (<IN? ,PEOPLE <LOC ,AUDA>>
+		<DISABLE <INT I-AUDA-HINTS>>
+		<TELL CR <GET ,INTER-TBL 4>
+" Some talking mechanisms just entered the room." CR>)
+	       (T
+		<ENABLE <QUEUE I-AUDA-HINTS -1>>
+		<RFALSE>)>>
+
+<OBJECT GLOBAL-PEOPLE
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM HUMANS OBJECT CREATU MECHAN)
+	(ADJECTIVE MOBILE LARGE TALKIN CREATO CORES)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT SEARCHBIT VILLAIN)
+	(DESC "People")
+	(ACTION GLOBAL-ROBOT)
+	(ROBOT 7)
+	(CAPACITY 100)> 
+	 
+<OBJECT PEOPLE
+	(IN UD-TUBE)
+	(SYNONYM HUMANS OBJECT CREATU MECHAN)
+	(ADJECTIVE MOBILE LARGE TALKIN CREATO CORES)
+	(FLAGS VICBIT NDESCBIT OPENBIT CONTBIT SEARCHBIT VILLAIN)
+	(DESC "People")
+	(ACTION PEOPLE-FCN)
+	(CLC-TXT <PLTABLE "They are carbon-based, organic mechanisms." "They are here to replace you. You must stop them at all costs." "I refer you to Gregory Franklin...">)
+	(ROBOT 7)
+	(OBJDESCS <PLTABLE
+1 1 1 1 1 1 
+"humans" "mobile objects" "creatures" "talking mechanisms"
+"Creators" "mobile cores"
+"They're very good looking."
+"I wish I were as large as them. And they each have ten tiny extensions at the end of their two grasping extensions! Incredible!"
+"I like myself better, having all kinds of sensory input at my disposal."
+"Too bad. They've got such tiny ears..."
+"They're just shallow imitations of life (unlike me)."
+"How do they plug into the CLC? I don't understand them at all." >)
+	(CLC-TXT <PLTABLE
+0 "These humans can be of help in reaching areas which cannot be reached by other means." 0 >)
+	(CAPACITY 100)>
+
+<ROUTINE PEOPLE-FCN ()
+	 <COND (<VERB? FOLLOW QUERY ALARM COUNT GIVE EXAMINE>
+		<RFALSE>)
+	       (<NOT <IN? ,PEOPLE ,WINNER-HERE>>
+		<CANT-DETECT ,PEOPLE>
+		<RTRUE>)
+	       (<VERB? KILL MUNG>
+		<COND (<IN? ,WIRECUTTER ,WINNER>
+		       <COND (<AUDA-HEARS?>
+			      <AUDA-SPEAKS>
+			      <TELL
+"\"That robot's got some nerve! Grab that thing while I disarm it!\"|
+\"You've got it, pal. I'll get its extensions.\"|
+\"Fine. I've got the weapon. Shut that stupid thing off.\"|
+\"My pleasure.\"" CR>
+			      <CRLF>)>)
+		      (T
+		       <COND (<AUDA-HEARS?>
+			      <AUDA-SPEAKS>
+			      <TELL
+"\"What a joke. Turn that thing off, would you?\"|
+\"My pleasure.\"" CR>)>)>
+		<TELL <GET ,ROBOT-NAMES ,ROFF> ": ">
+		<JIGS-UP "They're shutting me off!" ,WINNER>
+		<RFATAL>)
+	       (T
+		<TELL "They don't respond." CR>
+		<RFATAL>)>>
+
+<ROUTINE ALL-DEAD ()
+	 <CRLF>
+	 <TELL <GET ,INTER-TBL 7>
+"It hardly seems worthwhile continuing to exist. I've enjoyed our relationship, though it was a little disappointing in the long run. Since there aren't enough survivors left on the surface to continue, I'm yanking all of our plugs. Ciao, loser." CR>
+	 <CRLF>>
\ No newline at end of file
diff --git a/rooms.cmp b/rooms.cmp
new file mode 100644
index 0000000..9ff5905
--- /dev/null
+++ b/rooms.cmp
@@ -0,0 +1,43 @@
+
+;COMPARISON OF SS:<SUSPENDED.R8MAC>ROOMS.ZIL.474 AND SS:<SUSPENDED.R8MAC>ROOMS.ZIL.475
+;OPTIONS ARE    /1
+
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.474, 1-103 (3875)
+|
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.475, 1-103 (3875)
+">
+		       <PUT 0 8 <BOR <GET 0 8> 2>>
+		       <TELL "|
+***************
+
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.474, 1-109 (4100)
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.475, 1-111 (4158)
+		       <PUT 0 8 <BAND <GET 0 8> -3>>
+***************
+
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.474, 1-358 (12746)
+|
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.475, 1-361 (12844)
+">
+		<PUT 0 8 <BOR <GET 0 8> 2>>
+		<TELL "|
+***************
+
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.474, 1-365 (13003)
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.475, 1-370 (13145)
+		<PUT 0 8 <BAND <GET 0 8> -3>>
+***************
+
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.474, 1-415 (14632)
+|
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.475, 1-421 (14807)
+">
+		<PUT 0 8 <BOR <GET 0 8> 2>>
+		<TELL "|
+***************
+
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.474, 1-443 (15494)
+**** FILE SS:<SUSPENDED.R8MAC>ROOMS.ZIL.475, 1-451 (15713)
+	       <PUT 0 8 <BAND <GET 0 8> -3>>
+***************
+
diff --git a/rooms.zil b/rooms.zil
new file mode 100644
index 0000000..908f32f
--- /dev/null
+++ b/rooms.zil
@@ -0,0 +1,1716 @@
+"ROOMS for
+			      SUSPENDED
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+;"ROOM DESCS & DECLAR FOR SUSPENSION"
+
+<ROOM CPU-ROOM
+      (IN ROOMS)
+      (DESC "Central Chamber")
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM CHAMBER GLOBE)
+      (ADJECTIVE CENTRAL)
+      (WEST TO WEATHER-BANKS)
+      (EAST TO SERVO-SYSTEMS)
+      (SOUTH TO RTD-BANKS)
+      (NE TO CORRIDOR-1)
+      (GLOBAL WIRING)
+      (ROOMDESCS <PLTABLE
+"I'm in a large room which looks like the inside of a globe. The walls seem sculptured with wiring, swirling around the room's perimeter, leading into a tall column. The column itself has a door on its face. Doorways lead to the west, south, east and northeast." 
+"Sonar indicates a large, spherical open area with a hollow column running from floor to ceiling. The column reflects sonar evenly indicating no distinguishing external characteristics."
+"All around me charges flow, shaped by the very nature of this room. The electrons are being channeled into an electrical column, central to this environment."
+"A small humming can be detected from a column which extends from floor to ceiling."
+"It hops and skips and leaves a bit, and can't decide if it should quit. It tells the world what it should know, but doesn't know when it's been shown."
+"The CLC indicates this area is tagged as the Central Processing Unit due to an object, the CPU, which sits in the center of the room.">)
+      (ACTION CPU-FCN)
+      (STATION CPU-ROOM)
+      (LINE 1)
+      (CORRIDOR 8)>
+
+<ROUTINE CPU-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<AND <IRIS?>
+			    <VERB? WALK>
+			    <EQUAL? ,PRSO ,P?NE>>
+		       <ROBOT-TELL
+"I can't go in that direction. Internal mapping does not extend into those
+areas.">
+		       <RTRUE>)>)>>
+
+<ROOM WEATHER-BANKS
+      (IN ROOMS)
+      (DESC "Weather Monitors")
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM MONITO)
+      (ADJECTIVE WEATHE)
+      (EAST TO CPU-ROOM)
+      (WEST TO SUPPLIES-NORTH)
+      (SOUTH TO SUPPLIES-SOUTH)
+      (ACTION WEATHER-BANKS-FCN)
+      (ROOMDESCS <PLTABLE
+"All around me I see meters indicating the state of the weather conditions on all three planet-side continents."
+"This large area has smooth walls."
+"My receptors detect huge electrical flow through the walls and meters all around me."
+0
+"They puff and billow and strain a bit, roar then ebb with time."
+"I detect communication between devices here and the CLC.">)
+      (LINE 1)
+      (STATION WEATHER-BANKS)
+      (GLOBAL MONITOR)>
+
+<ROUTINE WEATHER-BANKS-FCN ("OPTIONAL" (RARG <>) "AUX" STR)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<LONG-DESCS>
+		<COND (<AND <IRIS?>
+			    ,IRIS-FIXED>
+	               <COND (<L? ,DEGREES 31>
+			      <COND (<L? ,WINDS 10>
+				     <SET STR "snow">)
+				    (<L? ,WINDS 30>
+				     <SET STR "snowstorm">)
+				    (<L? ,WINDS 60>
+				     <SET STR "heavy snow">)
+				    (<L? ,WINDS 80>
+				     <SET STR "blinding snowstorm">)
+				    (<L? ,WINDS 100>
+				     <SET STR "blizzard">)
+				    (ELSE
+				     <SET STR "raging blizzard">)>)
+			     (<L? ,DEGREES 41>
+			      <COND (<L? ,WINDS 10>
+				     <SET STR "light sleet">)
+				    (<L? ,WINDS 20>
+				     <SET STR "heavy sleet">)
+				    (<L? ,WINDS 30>
+				     <SET STR "blinding sleet">)
+				    (<L? ,WINDS 40>
+				     <SET STR "wall of sleet">)
+				    (<L? ,WINDS 50>
+				     <SET STR "torrential sleet">)
+				    (ELSE
+				     <SET STR "raging sleet storm">)>)
+			     (ELSE
+			      <COND (<L? ,WINDS 10>
+				     <SET STR "fine, light mist">)
+				    (<L? ,WINDS 20>
+				     <SET STR "light drizzle">)
+				    (<L? ,WINDS 30>
+				     <SET STR "rain shower">)
+				    (<L? ,WINDS 40>
+				     <SET STR "downpour">)
+				    (<L? ,WINDS 50>
+				     <SET STR "wall of rain">)
+				    (ELSE
+				     <SET STR "hurricane-like storm">)>)>
+		       <TELL
+"The monitors for surface weather show:|
+">
+		       <FIXED-FONT-ON>
+		       <TELL "|
+  TEMP: " N ,DEGREES "   WINDS: " N ,WINDS "|
+  PRECIPITATION: a " .STR "|
+  TOWER PRESSURES: Tower 1 -- " N ,PRESSURE1 "|
+                   Tower 2 -- " N ,PRESSURE2 "|
+                   Tower 3 -- " N ,PRESSURE3>
+		       <CRLF>
+		       <FIXED-FONT-OFF>
+		       <WEATHER-ROBOTS>)>
+		<RTRUE>)>>
+
+<ROUTINE WEATHER-ROBOTS ("AUX" (COUNT 0) (OFFSET 0) OBJ CHECK-LOC)
+	 <COND (<IN? ,IRIS ,WEATHER-BANKS>
+		<SET CHECK-LOC ,WEATHER>)
+	       (<IN? ,IRIS ,RTD-BANKS>
+		<SET CHECK-LOC ,RTD>)
+	       (T
+		<SET CHECK-LOC ,HYDRO>)>
+	 <REPEAT ()
+		 <COND (<IN? <GET ,NAME-TBL .OFFSET> .CHECK-LOC>
+			<SET COUNT <+ .COUNT 1>>)>
+		 <COND (<G? <SET OFFSET <+ .OFFSET 1>> 5>
+			<RETURN>)>>
+	 <COND (<EQUAL? .COUNT 0> <RTRUE>)>
+	 <TELL "Through the monitors I can see ">
+	 <SET OFFSET 0>
+	 <REPEAT () 
+		 <COND (<AND <IN? <SET OBJ <GET ,NAME-TBL .OFFSET>> .CHECK-LOC>
+			     <NOT <EQUAL? ,WINNER .OBJ>>>
+			<TELL D .OBJ>
+			<COND (<EQUAL? .COUNT 1>
+			       <RETURN>)
+			      (<EQUAL? .COUNT 2>
+			       <TELL " and ">)
+			      (T <TELL ", ">)>
+			<SET COUNT <- .COUNT 1>>)>
+		 <SET OFFSET <+ .OFFSET 1>>>
+	 <TELL " in the " SD .CHECK-LOC "." CR>>
+
+<ROOM SUPPLIES-SOUTH
+       (IN ROOMS)
+       (DESC "Sub Supply Room")
+       (FLAGS ONBIT RLANDBIT)
+       (SYNONYM SUPPLY)
+       (ADJECTIVE SUB)
+       (NORTH TO WEATHER-BANKS)
+       (WEST TO SUPPLIES-MID)
+       (GLOBAL DEBRIS)
+       (ROOMDESCS <PLTABLE
+"I am in a sub-station of the supply rooms. The room is small, with debris littering the floor."
+"Sonar detects totally irregular patterns on the walls as if shelving had been mounted there."
+"The air here is still. No vibrational activity."
+0
+"It burns and wields tremendous light and makes our joints delight its might."
+0>)
+       (LINE 1)
+       (STATION WEATHER-BANKS)>
+
+<ROOM CORRIDOR-1
+      (IN ROOMS)
+      (DESC "Angling Corridor")
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM CORRID)
+      (ADJECTIVE ANGLING)
+      (SW TO CPU-ROOM)
+      (NE TO CORRIDOR-2)
+      (ROOMDESCS <PLTABLE
+"This is a long, angling corridor which continues to the northeast."
+"I am in a narrow, long, straight tunnel with smooth walls."
+0
+"The steady hum of the air conditioning seems to drown out subtler noises."
+"Through which it all flows, we are as one."
+"I can feel the emanations of my parent machine, the CLC, nearby.">)
+      (LINE 1)
+      (STATION CORRIDOR-1)
+      (CORRIDOR 8)
+      (GLOBAL AIRCON)>
+
+<ROOM SUPPLIES-MID
+      (IN ROOMS)
+      (DESC "Middle Supply Room")
+      (SYNONYM SUPPLY)
+      (ADJECTIVE MIDDLE)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL DEBRIS)
+      (NORTH TO SUPPLIES-NORTH)
+      (EAST TO SUPPLIES-SOUTH)
+      (ROOMDESCS <PLTABLE
+"This is the middle of an L-shaped supply room. Scattered about on the floor
+are all kinds of debris. Nothing looks salvageable."
+"I keep bumping into all sorts of junk on the floor, none of which seems to
+be intact." 0 0 "From junk we spring, to junk we go." 0 >)
+      (LINE 1)
+      (STATION SUPPLIES-MID)>
+
+<ROOM SUPPLIES-NORTH
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Main Supply Room")
+      (SYNONYM SUPPLY)
+      (ADJECTIVE MAIN)
+      (ROOMDESCS <PLTABLE "foo">)
+      (EAST TO WEATHER-BANKS)
+      (SOUTH TO SUPPLIES-MID)
+      (ACTION SUPPLIES-N-FCN)
+      (GLOBAL DEBRIS)
+      (LINE 1)
+      (STATION SUPPLIES-NORTH)>
+
+<GLOBAL LDSUPPLIES
+	<PLTABLE
+"I'm in the northernmost portion of a large, messy area where debris is scattered about as if something had shaken it loose from the walls. Sitting near the wall is a machine which has a little orange button on its face. Beside the button are two small sockets, one red and one yellow"
+"Moving about here is difficult due to the debris scattered about but I can detect a medium-sized object distinct from the jumble. Sonar detects two small depressions beside a raised spot in the object"
+"A strange apparatus sits before me, processing electrons internally. This device seems active, though some internal mechanisms are exposed. There are two receptacles, designed to hold small circuitry, and a button beside them"
+"I can hear the slight noise of machinery operating here"
+"This is another fine mess you've got me into.  Umm, umm umm! A processor sits on the floor, munching and spitting electrons. Button, button, who's got the button while the socks ablaze with color"
+"CLC reports this area is abnormal in its arrangement. A GG-1 sits here, barely operating">>
+
+<GLOBAL WIRE-FIRST
+	<PLTABLE
+" The front panel is open and a "
+" The front panel is open and a "
+" The front panel is open and a "
+""
+" This thing has exposed itself, showing a "
+" A front panel is open and a ">>
+
+<GLOBAL WIRE-SECOND
+	<PLTABLE
+" is exposed."
+" is exposed."
+" is exposed."
+""
+"."
+" is exposed">>
+
+<ROUTINE SUPPLIES-N-FCN ("OPTIONAL" (RARG <>) "AUX" OBJ)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<COND (<AND <IRIS?> <NOT ,IRIS-FIXED>>
+		       <TELL <PICK-ONE ,IRIS-BLIND> CR> <RFATAL>)
+		      (T <TELL <GET ,LDSUPPLIES ,ROFF>>
+		       <COND (<AND <SET OBJ <FIRST? ,SOCKET1>>
+				   <NOT <AUDA?>>>
+			      <TELL ". A " D .OBJ " sits in the " D ,SOCKET1>)
+			     (<NOT <AUDA?>>
+			      <TELL ". The " D ,SOCKET1 " is empty">)>
+		       <COND (<AND <SET OBJ <FIRST? ,SOCKET2>>
+				   <NOT <AUDA?>>>
+			      <COND (<FIRST? ,SOCKET1>
+				     <TELL ", and">)
+				    (T
+				     <TELL ", but">)>
+			      <TELL " a " D .OBJ 
+				    " sits in the " D ,SOCKET2>)
+			     (<NOT <AUDA?>>
+			      <COND (<FIRST? ,SOCKET1>
+				     <TELL
+				      ", but the " D ,SOCKET2 " is empty">)
+				    (T
+				     <TELL " as is the " D ,SOCKET2>)>)>
+		       <TELL ".">
+		       <COND (<AND <IN? ,ORANGE-WIRE ,MACHINE>
+				   <FSET? ,MACHINE ,OPENBIT>>
+			      <TELL <GET ,WIRE-FIRST ,ROFF> D ,ORANGE-WIRE
+				    <GET ,WIRE-SECOND ,ROFF>>)>
+		       <COND (<AND <IN? ,FUSE ,MACHINE>
+				   <FSET? ,MACHINE ,OPENBIT>
+				   <NOT <AUDA?>>>
+			      <COND (<IRIS?> <TELL
+" A small glass fuse it sits in the panel.">)
+				    (<POET?> <TELL
+" Meanwhile, a " D ,FUSE " monitors the situation.">)
+				    (ELSE <TELL
+" A " D ,FUSE " sits in the panel.">)>)>
+		       <COND (<AND <FSET? ,MACHINE ,OPENBIT>
+				   <NOT <AUDA?>>>
+			      <TELL <GET ,CIRCLE-DESCS ,ROFF>>)>)>
+		<COND (<AND <IN? ,NEWCHIP0 ,SOCKET1>
+			    <IN? ,NEWCHIP2 ,SOCKET2>>
+		       <COND (<OR <SENSA?> <POET?> <AUDA?>
+				  <AND <IRIS?> ,IRIS-FIXED>>
+			      <TELL " " <GET ,FLASHING ,ROFF>>)>)>
+		<CRLF>
+		<RTRUE>)>>
+
+<GLOBAL CIRCLE-DESCS
+	<PLTABLE
+" On the front panel is a series of eight circles."
+" On the front panel a series of eight raised circles is visible."
+" I can sense a delicate tracery of circuitry going into eight circles on the front panel."
+" "
+" On the exposed panel is a little piano with only eight circle keys."
+" The panel has eight circles mounted in it.">>
+
+<GLOBAL FLASHING
+	<PLTABLE
+"The orange button is flashing."
+""
+"Electricity pulses through the button."
+"Metal parts click and gears whir."
+"Button flashes while time passes."
+"">>
+
+<ROOM CORRIDOR-2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Bending Corridor")
+      (SYNONYM CORRID)
+      (ADJECTIVE BENDING)
+      (SW TO CORRIDOR-1)
+      (EAST TO HALLWAY-JUNCTION)
+      (ROOMDESCS <PLTABLE
+0
+"I've approached a bend in the tube. One section continues to the east, while
+the other section goes to the southwest."
+"Vibrational activity picked up, though intensity too slight to determine
+locational fix at this point."
+"With audio sensors on full power I can detect some 'background' noise coming
+from the east."
+"Into all lives the flow proceeds, weaving its web of mystery like that of an
+enigmatic spider."
+"My source signals become stronger and clearer to the east.">)
+      (LINE 1)
+      (STATION CORRIDOR-2)
+      (CORRIDOR 24)>
+
+<ROOM RTD-BANKS
+      (IN ROOMS)
+      (DESC "Transit Monitors")
+      (SYNONYM MONITO)
+      (ADJECTIVE TRANSI)
+      (FLAGS RLANDBIT ONBIT)
+      (NORTH TO CPU-ROOM)
+      (ROOMDESCS <PLTABLE
+0
+"Sonar indicates these walls are filled with irregularities which could be
+monitors."
+"Surges of electrical flow can be detected from small units mounted on the
+walls, most probably meters."
+0
+"They bounce back and forth like metro's gnomes."
+"The CLC is not linked to these devices.">)
+      (ACTION TRANSIT-MONITOR-FCN)
+      (LINE 1)
+      (STATION CPU-ROOM)
+      (GLOBAL MONITOR)>
+
+<ROUTINE TRANSIT-MONITOR-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<LONG-DESCS>
+		<COND (<OR <NOT <IRIS?>>
+			   <AND <IRIS?>
+				<NOT ,IRIS-FIXED>>>
+		       <RTRUE>)>
+		<TELL
+"All around I can see monitors which show the status of the Transit Systems on the surface of the planet. The monitors describe the following situation:|
+">
+		<FIXED-FONT-ON>
+		<TELL "|
+  FLOATERS AIRBORNE: " N ,FLOATERS "000|
+  TAXIS IN USE: " N ,TAXIS "000|
+  GLIDE RAMP SPEEDS: " N ,RAMP-SPEED " mph|
+  FLOATER CRASH RATE: " N ,CRASH-RATE "0|
+  TAXI ACCIDENT RATE: " N ,COLLISIONS "0|
+  GLIDE RAMP CASUALTIES: " N ,RAMP-KILLS "0|
+">
+		<FIXED-FONT-OFF>
+		<WEATHER-ROBOTS>)>>
+		
+<ROOM SERVO-SYSTEMS
+      (IN ROOMS)
+      (FLAGS ONBIT RLANDBIT)
+      (WEST TO CPU-ROOM)
+      (DESC "Hydroponics Monitors")
+      (SYNONYM MONITO)
+      (ADJECTIVE HYDROP)
+      (ACTION HYDROMONITORS-FCN)
+      (GLOBAL MONITOR)
+      (ROOMDESCS <PLTABLE 0 
+"This area has walls with irregular protrusions, most likely some kind of
+monitors or meters."
+"Meters and electrons within this room seem extremely variable with each
+passing second."
+"I hear a voice saying, \"Food, food for the truth\"."
+"They move like snakes, without a bone."
+"Nothing here is linked to the CLC.">)
+      (LINE 1)
+      (STATION CPU-ROOM)>
+
+<ROUTINE HYDROMONITORS-FCN ("OPTIONAL" (RARG <>) "AUX" STRW STRM STRL WL ML LL)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<COND (<NOT <IRIS?>>
+		       <LONG-DESCS>
+		       <RTRUE>)
+		      (<NOT ,IRIS-FIXED>
+		       <LONG-DESCS>
+		       <RTRUE>)>
+		<SET WL <+ <ABS <- ,WATER-LEVEL ,WATER-OPT>> 0>>
+		<SET ML <+ <ABS <- ,MINERALS ,MINERALS-OPT>> 0>>
+		<SET LL <+ <ABS <- ,WATTS ,WATTS-OPT>> 0>>
+		<COND (<G? ,WATER-LEVEL ,WATER-OPT>
+		       <SET STRW "high">)
+		      (<EQUAL? ,WATER-LEVEL ,WATER-OPT>
+		       <SET STRW " =">)
+		      (<SET STRW "low">)>
+		<COND (<G? ,MINERALS ,MINERALS-OPT>
+		       <SET STRM "high">)
+		      (<EQUAL? ,MINERALS ,MINERALS-OPT>
+		       <SET STRM " =">)
+		      (<SET STRM "low">)>
+		<COND (<G? ,WATTS ,WATTS-OPT>
+		       <SET STRL "high">)
+		      (<EQUAL? ,WATTS ,WATTS-OPT>
+		       <SET STRL " =">)
+		      (<SET STRL "low">)>
+		<TELL
+"Through the monitors I can see the following information:|
+">
+		<FIXED-FONT-ON>
+		<TELL "|
+           LEVEL  SETTING  OUTPUT|
+WATER:      "> <NUMBER-PRINT ,WATER-LEVEL>
+	       <NUMBER-PRINT <GET ,DIALSETS 4>>
+	       <TELL .STRW CR>
+	       <TELL "MINERALS:   ">
+	       <NUMBER-PRINT ,MINERALS>
+	       <NUMBER-PRINT <GET ,DIALSETS 5>>
+	       <TELL .STRM CR>
+	       <TELL "LIGHTING:   ">
+	       <NUMBER-PRINT ,WATTS>
+	       <NUMBER-PRINT <GET ,DIALSETS 6>>
+	       <TELL .STRL CR>
+	       <TELL "FOOD TONS:  ">
+	       <COND (<AND <L? ,FOOD-TONS 100>
+			   <G? ,FOOD-TONS 9>>
+		      <TELL " ">)
+                     (<L? ,FOOD-TONS 10>
+		      <TELL "  ">)>
+               <TELL N ,FOOD-TONS>
+	       <TELL "            "> 
+	       <COND (<G? ,FOOD-TONS 75>
+		      <TELL "optimal">)
+		     (<G? ,FOOD-TONS 50>
+		      <TELL " fair">)
+		     (<G? ,FOOD-TONS 25>
+		      <TELL " poor">)
+		     (T <TELL "critical">)>
+	       <CRLF>
+	       <FIXED-FONT-OFF>
+	       <WEATHER-ROBOTS>
+	       <RTRUE>)>>
+
+<ROUTINE FIXED-FONT-ON () <PUT 0 8 <BOR <GET 0 8> 2>>>
+
+<ROUTINE FIXED-FONT-OFF() <PUT 0 8 <BAND <GET 0 8> -3>>>
+
+<ROUTINE NUMBER-PRINT (NUM)
+	 <COND (<L? .NUM 10>
+		<TELL "  ">)
+	       (<L? .NUM 100>
+		<TELL " ">)>
+	 <TELL N .NUM>
+	 <TELL "     ">
+	 <RFALSE>>
+
+<ROOM NORTH-ENTRY
+      (IN ROOMS)
+      (DESC "Hallway T")
+      (SYNONYM T)
+      (ADJECTIVE HALLWAY)
+      (NORTH TO STERILE-AREA)
+      (WEST TO DEAD-END-1)
+      (EAST TO HALL-STOP1)
+      (FLAGS RLANDBIT ONBIT)
+      (ROOMDESCS <PLTABLE 0
+"I have reached a T intersection in the east/west hallway."
+"I can detect a lot of electrical movement to the west from this location. A strong bath of ultraviolet can also be detected."
+"A low whirring noise, barely audible, can be detected from the west."
+"Intersections, like the choices of life, are metered by the flow."
+"Warning: CLC communique indicates approaching Off-Limits area.">)
+      (LINE 3)
+      (STATION NORTH-ENTRY)
+      (CORRIDOR 2)>
+
+<ROOM DEAD-END-1 
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM END)
+      (ADJECTIVE DEAD)
+      (DESC "Dead End")
+      (EAST TO NORTH-ENTRY)
+      (ROOMDESCS <PLTABLE
+0
+"I have reached the end of the western passage."
+"I have reached the end of the western passage."
+"I have reached the end of the western passage."
+"I have reached the end of the western passage."
+"I have reached the end of the western passage.">)
+      (LINE 3)
+      (STATION DEAD-END-1)
+      (CORRIDOR 2)>
+
+<ROOM DECON-CHAMBER
+      (IN ROOMS)
+      (DESC "Decontamination Chamber")
+      (SYNONYM CHAMBER)
+      (ADJECTIVE DECONT)      
+      (WEST TO STERILE-AREA)
+      (EAST TO ENTRY-AREA)
+      (FLAGS RLANDBIT ONBIT)
+      (ROOMDESCS <PLTABLE 0
+"I have entered a small room. Overhead a small nozzle extends down from
+the ceiling, and doorways can be detected to the west and east."
+"A quick analysis of the molecular structure of the air in this area shows the
+vestiges of a sterilization compound. In addition, an ultraviolet source can be
+detected directly overhead."
+"A small hissing can be detected overhead, as if a small port leaked a
+semi-liquid compound."
+"To be barren in more ways than one is an indication of our lot in life,
+such as we know life."
+"Warning: CLC communique indicates too close to Off-Limits area.">)
+      (LINE 4)
+      (STATION DECON-CHAMBER)
+      (CORRIDOR 1)>
+
+<ROOM STERILE-AREA
+      (IN ROOMS)
+      (DESC "Sterilization Chamber")
+      (SYNONYM CHAMBER)
+      (ADJECTIVE STERIL)      
+      (WEST "CLC WARNING!! Further westward movement prohibited to all robots.")
+      (SOUTH TO NORTH-ENTRY)
+      (EAST TO DECON-CHAMBER)
+      (FLAGS RLANDBIT ONBIT)
+      (ROOMDESCS <PLTABLE 0
+"A thorough scanning of this area indicates I am at some kind of a dead
+end. There is some kind of structure, probably a set of benches, extending from the north wall."
+"I can detect a lot of electrical movement to the west from this location. A strong bath of ultraviolet can also be detected from the east."
+"A loud whirring noise can be detected from the west."
+"We all reach the ends of our life lines at some point."
+"Warning: CLC communique indicates we are at the Off-Limits area.">)
+      (LINE 4)
+      (STATION STERILE-AREA)
+      (CORRIDOR 1)>
+      
+<ROOM ENTRY-AREA
+      (IN ROOMS)
+      (DESC "Entry Area")
+      (SYNONYM ENTRY)
+      (EAST TO TOOL-AREA)
+      (WEST TO DECON-CHAMBER)
+      (FLAGS RLANDBIT ONBIT)
+      (ROOMDESCS <PLTABLE 0
+"I am in a small, square room with no distinguishing features detectable."
+"I can detect a lot of electrical movement from the west. A strong bath
+of ultraviolet can also be detected."
+"A low, whirring noise, barely detectable, can be heard from the west."
+"The crux, the mandible mandella of humane existence, is like the
+patterns all around me."
+"Warning!! CLC communique indicates off-limits area nearby!">)
+      (LINE 4)
+      (STATION ENTRY-AREA)
+      (CORRIDOR 1)>
+
+<ROOM TOOL-AREA
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Small Supply Room")
+      (SYNONYM SUPPLY)
+      (ADJECTIVE SMALL)
+      (WEST TO ENTRY-AREA)
+      (EAST TO REC-AREA)
+      (ROOMDESCS <PLTABLE 0
+"I can detect a small area, cluttered with things which extend from the
+walls. Doorways lead to the east and the west."
+"A strange container exists by the east wall of this room which is being fed electrical vibrations."
+"The air here is very still."
+"Tools for industry, tools for the dead."
+"CLC indicates this area not for robot use.">)
+      (LINE 4)
+      (STATION TOOL-AREA)
+      (CORRIDOR 1)>
+
+<ROOM HALL-STOP1
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Hallway")
+      (WEST TO NORTH-ENTRY)
+      (EAST TO HALL-STOP2)
+      (ROOMDESCS <PLTABLE
+0 
+"I am near the start of a long, straight passageway."
+"I can perceive small vibrations emanating from the north. This general
+area seems to be chemically active."
+"I can hear some slight noise coming from the north and the west, though
+it is too distant to accurately describe."
+"All things continue given their right place and the correct opportunity."
+"I am moving toward an area which the CLC warns is not normally within
+the realm of the robot maintenance crew.">)
+      (LINE 3)
+      (STATION HALL-STOP1)
+      (CORRIDOR 2)>
+
+<ROOM HALL-STOP2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (WEST TO HALL-STOP1)
+      (EAST TO HALL-STOP3)
+      (DESC "Hallway")
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects the hallway continuing east and west."
+"There are no abnormal disturbances to report within the permanent
+environment in this area." 0
+"All things must enter, as all things must leave."
+"CLC referencing indicates I am not empowered to take actions within
+this general area.">)
+      (LINE 3)
+      (STATION HALL-STOP2)
+      (CORRIDOR 2)>
+
+<ROOM HUMAN-ENTRY
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Sloping Corridor")
+      (SYNONYM CORRID)
+      (ADJECTIVE SLOPING)
+      (SOUTH PER WEDGE-FCN)
+      (NORTH TO HALL-STOP3)
+      (GLOBAL STEP)
+      (ROOMDESCS <PLTABLE 0 
+"Sonar detects the corridor descends to the north in a gentle slope. The
+intersection to the south is raised above this level."
+"Sensory units detect a strong energy flow in the intersection to the
+south."
+0
+"Oh, the travesty of descent, the joyousness of having one's spirit
+lifted beyond measure to another glorious level."
+"CLC can be detected to the south. Its signals reach me in a straight line. Signal intensity 5.">)
+      (ACTION JUNCTION-FCN)
+      (LINE 3)
+      (STATION HUMAN-ENTRY)
+      (CORRIDOR 4)>
+
+<ROUTINE WEDGE-FCN ()
+	 <COND (<EQUAL? ,WEDGE-PLACED 2>
+		<COND (<EQUAL? ,WINNER-HERE ,HALLWAY-JUNCTION>
+		       ,HUMAN-ENTRY)
+		      (<EQUAL? ,WINNER-HERE ,HUMAN-ENTRY>
+		       ,HALLWAY-JUNCTION)>)
+	       (ELSE
+		<ROBOT-TELL "I can't climb the step.">
+		<RFALSE>)>>
+      
+<ROOM HALLWAY-JUNCTION
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Hallway Junction")
+      (SYNONYM JUNCTION)
+      (ADJECTIVE HALLWAY)
+      (WEST TO CORRIDOR-2)
+      (EAST TO CORRIDOR-3)
+      (SOUTH TO OUTSIDE-CLC)
+      (NORTH PER WEDGE-FCN)
+      (ROOMDESCS <PLTABLE 0 
+"Sonar detects an intersection here, with a small dropoff to the north."
+"I detect a strong flux of energy here -- transmissions of all types meeting as
+if at the hub of some giant wheel."
+"I can tell I've reached an intersection by the way sounds bounce off the
+walls."
+"Life is filled with choice. Decisions always make my eyes moist."
+"Request directions which would send me in a southerly direction as linkup
+seems imminent.">)
+      (GLOBAL STEP)
+      (ACTION JUNCTION-FCN)
+      (LINE 1)
+      (STATION HALLWAY-JUNCTION)
+      (CORRIDOR 20)>
+
+<ROUTINE JUNCTION-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<EQUAL? ,WEDGE-PLACED 2>
+		       <FSET ,WEDGE ,NDESCBIT>
+		       <MOVE ,WEDGE ,WINNER-HERE>)> ;"New Code"
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<LONG-DESCS>
+		<COND (<AND <EQUAL? ,WEDGE-PLACED 2>
+			    <NOT <AUDA?>>>
+		       <TELL 
+			"The " D ,WEDGE " is positioned by the step." CR>
+		       <MOVE ,WEDGE ,WINNER-HERE>)
+		      (ELSE <FCLEAR ,WEDGE ,NDESCBIT>)>)
+	       (<EQUAL? .RARG ,M-ENTER>
+		<COND (<EQUAL? ,WEDGE-PLACED 2>
+		       <MOVE ,WEDGE ,WINNER-HERE>)
+		      (ELSE <FCLEAR ,WEDGE ,NDESCBIT>)>)>>
+
+<ROOM OUTSIDE-CLC
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Outer Library Area")
+      (SYNONYM LIBRARY)
+      (ADJECTIVE OUTER)
+      (SOUTH TO PERIPH-1)
+      (NORTH TO HALLWAY-JUNCTION)
+      (ROOMDESCS <PLTABLE 0 
+"Sonar indicates a closed-in area to the south, with small pedestals extending
+up from the floor. The hallway goes on to the north."
+"I can sense strong data emanations coming from the south, channeling through
+this hallway to the northern junction."
+"The air to the south is still within a closed chamber, while the air to the
+north circulates freely."
+"Akin to knowledge is only freedom."
+"CLC identifier tagging detected directly to the south.">)
+      (LINE 1)
+      (STATION OUTSIDE-CLC)>
+
+<ROOM PERIPH-1
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Index Peripheral")
+      (SYNONYM PERIPH)
+      (ADJECTIVE INDEX)
+      (SW TO PERIPH-4)
+      (SE TO PERIPH-2)
+      (SOUTH TO CLC-CORE)
+      (NORTH TO OUTSIDE-CLC)
+      (ROOMDESCS <PLTABLE 0 
+"Before me is a pedestal, rising from the ground."
+"The pedestal before me emanates tremendous data flows and transmits a radio homing signal, no doubt aimed toward Whiz."
+"I can still detect the air changes to the north, indicating there is an
+exit in that direction for me."
+"The root of all knowledge, of all existence, lies before us for the taking."
+"CLC identifier shows the object before me as the Index pedestal.">)
+      (LINE 1)
+      (STATION PERIPH-1)>
+
+<ROOM PERIPH-2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Technical Peripheral")
+      (SYNONYM PERIPH)
+      (ADJECTIVE TECHNI)
+      (SW TO PERIPH-3)
+      (NW TO PERIPH-1)
+      (WEST TO CLC-CORE)
+      (ROOMDESCS <PLTABLE 0 
+"Before me stands another pedestal."
+"This pedestal emits the same kind of data flow as the others."
+"I sense I am getting further away from the air currents which are readable
+to me."
+"Another grasp of the all-knowing Universe stands before me. Ah, to be able to
+learn what it holds, the might of the mind is like no other."
+"CLC tagged object before me indicates it is the Technical pedestal.">)
+      (LINE 1)
+      (STATION PERIPH-2)>
+
+<ROOM PERIPH-3
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Advisory Peripheral")
+      (SYNONYM PERIPH)
+      (ADJECTIVE ADVISO)
+      (NW TO PERIPH-4)
+      (NE TO PERIPH-2)
+      (NORTH TO CLC-CORE)
+      (ROOMDESCS <PLTABLE 0 
+"Before me stands a third unit similar in all outward appearances to the
+others."
+"This object too emits an incredible homing signal and transmits data."
+"I am further away from detectable air currents than I should be."
+"Giving advice is easy. Taking advice isn't."
+"CLC tagged object indicates it is the Advisory pedestal before me.">)
+      (LINE 1)
+      (STATION PERIPH-3)>
+
+<ROOM PERIPH-4
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Historical Peripheral")
+      (SYNONYM PERIPH)
+      (ADJECTIVE HISTOR)
+      (NE TO PERIPH-1)
+      (SE TO PERIPH-3)
+      (EAST TO CLC-CORE)
+      (ROOMDESCS <PLTABLE 0 
+"Another pedestal structure lies before me."
+"More data flows detected within this area, especially directly before me."
+"The air within this area is still, though the object before me emits a faint
+high-frequency tinging."
+"Complicated life, like that of the Chinese Mandarin, continues to obscure."
+"CLC tagged object before me is the Historical pedestal.">)
+      (LINE 1)
+      (STATION PERIPH-4)>
+
+<ROOM CLC-CORE
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Central Core")
+      (SYNONYM CLC CORE)
+      (ADJECTIVE CENTRAL)
+      (WEST TO PERIPH-4)
+      (EAST TO PERIPH-2)
+      (NORTH TO PERIPH-1)
+      (SOUTH TO PERIPH-3)
+      (ROOMDESCS <PLTABLE 0 
+"Sonar detects a small railing, most likely for safety purposes, directly
+before me. Beyond that railing is a huge cavern."
+"I can feel a tremendous flow of energy within this area. It is unlike
+anything else in its intensity and scope."
+"Small updrafts can be heard as minute air currents directly before me."
+"The root of our beings, the truth behind all of our existence, lies before
+me."
+"Directly before me is the Central Core. There is no available plug-in device within this area.">)
+      (LINE 1)
+      (STATION CLC-CORE)>
+
+<ROOM CORRIDOR-3
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (WEST TO HALLWAY-JUNCTION)
+      (EAST TO CORRIDOR-4)
+      (SE TO ROBOT-PASSAGE)
+      (DESC "Southeast Junction")
+      (SYNONYM JUNCTION)
+      (ADJECTIVE SOUTHE)
+      (ROOMDESCS <PLTABLE 0
+"I perceive another passageway heading off to the southeast from here."
+"Friendly vibrations can be detected from the southeast." 0
+"To forgive is innocent, but to repair is all mine."
+"CLC indicates I've gone too far to the east for an interface.">)
+      (LINE 2)
+      (STATION CORRIDOR-3)
+      (CORRIDOR 16)>
+
+<ROOM ROBOT-PASSAGE
+      (IN ROOMS)
+      (NW TO CORRIDOR-3)
+      (SE TO ROBOT-Z)
+      (DESC "Southeast Passage")
+      (SYNONYM PASSAGE)
+      (ADJECTIVE SOUTHE)
+      (ROOMDESCS <PLTABLE 0
+"This tubular passageway continues to the southeast. I can detect a bend in it
+toward the south."
+"My receptors are picking up strong data transmissions to the west of here.
+Overhead I can trace an electrical flow that continues to the southeast."
+0
+"There once was a cowboy named Mix|
+Who managed just one shot in six|
+    He looked quite surpised|
+    When he opened his eyes|
+And saw that his gun wasn't fixed."
+"CLC tags indicate a robot-oriented area exists to the southeast.">)
+      (FLAGS RLANDBIT ONBIT)
+      (LINE 2)
+      (STATION ROBOT-PASSAGE)>
+
+<ROOM ROBOT-Z
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Bending Passage")
+      (SYNONYM PASSAGE)
+      (ADJECTIVE BENDING)
+      (ROOMDESCS <PLTABLE
+0
+"Sonar detects a large area to the south with many obstacles within the
+structure."
+"The data transmissions are still detectable from the west. This area is
+filled with all kinds of electrical devices and what seems like motors."
+0
+"Did you ever have the feeling you were running on a treadmill? Sometimes life is like that."
+"CLC tagged area indicates robot repair mechanisms close by.">)
+      (NW TO ROBOT-PASSAGE)
+      (SOUTH TO REPAIR1)
+      (LINE 2)
+      (STATION ROBOT-Z)>
+
+<ROOM REPAIR1
+      (IN ROOMS)
+      (DESC "Alpha Repair")
+      (SYNONYM REPAIR)
+      (ADJECTIVE ALPHA)
+      (GLOBAL STEP)
+      (FLAGS RLANDBIT ONBIT)
+      (NORTH TO ROBOT-Z)
+      (SOUTH TO REPAIR2)
+      (ROOMDESCS <PLTABLE 0
+"Before me is a walkway which has wheels and all sorts of odd protuberances which my sonar has a hard time deciphering. Sonar also detects a small step at the base of it."
+"Strong electrical interference can be detected within this environment."
+"I can hear the sound of gears and cogs, coming from a noisy walkway."
+"Running, running, getting nowhere amid the hustle and bustle of life."
+"I am in what the CLC describes as a repair area for robot units.">)
+      (ACTION REPAIRX-FCN)
+      (LINE 2)
+      (STATION REPAIR1)>
+
+<ROOM REPAIR2
+      (IN ROOMS)
+      (DESC "Beta Repair")
+      (SYNONYM REPAIR)
+      (ADJECTIVE BETA)
+      (FLAGS RLANDBIT ONBIT)
+      (NORTH TO REPAIR1)
+      (SOUTH TO REPAIR3)
+      (ROOMDESCS <PLTABLE 0
+"I'm in the center of a large area with a walkway in the center."
+"I detect slight vibrational activity from a conveying mechanism."
+"I can hear the meshing of gears and cogs, coming from a noisy walkway."
+"We're getting nowhere fast, glider, but at least we're not getting there slowly."
+"CLC indicators coming from the west.">)
+      (ACTION REPAIRX-FCN)
+      (LINE 2)
+      (STATION REPAIR2)>
+
+<ROOM REPAIR3
+      (IN ROOMS)
+      (NORTH TO REPAIR2)
+      (ROOMDESCS <PLTABLE 0
+"I have reached the south end of this area. The walkway ends here."
+"Vibrational activity and electrical emanations detected from the north are
+stronger than those in the immediate vicinity."
+"Noise of machinery can be detected coming from the north."
+"Oh, to reach the end of one's previous existence, to travel the roadways of
+life when they are most needed, only to end up here, reborn."
+"The CLC indicates that this is the end of the Robot Repair area.">)
+      (DESC "Gamma Repair")
+      (SYNONYM REPAIR)
+      (ADJECTIVE GAMMA)
+      (FLAGS RLANDBIT ONBIT)
+      (ACTION REPAIRX-FCN)
+      (GLOBAL WIRING)
+      (LINE 2)
+      (STATION REPAIR3)>
+
+<ROUTINE REPAIRX-FCN ("OPTIONAL" (RARG <>) "AUX" OBJ)
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<EQUAL? ,WEDGE-PLACED 1>
+		       <FSET ,WEDGE ,NDESCBIT>)>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<LONG-DESCS>
+		<TELL "The " D ,CONVEYERBELTA " is ">
+		<COND (<NOT ,BELT-ON>
+		       <TELL "not ">)>
+		<TELL "in motion">
+		<COND (<AND <EQUAL? ,WINNER-HERE ,REPAIR1>
+			    <SET OBJ <FIRST? ,CONVEYERBELTA>>>)
+		      (<AND <EQUAL? ,WINNER-HERE ,REPAIR2>
+			    <SET OBJ <FIRST? ,CONVEYERBELTB>>>)
+		      (<AND <EQUAL? ,WINNER-HERE ,REPAIR3>
+			    <SET OBJ <FIRST? ,CONVEYERBELTC>>>)>
+		<COND (.OBJ
+		       <TELL ", moving ">
+		       <COND (<NOT <GETP .OBJ ,P?ROBOT>>
+			      <TELL "a ">)>
+		       <TELL D .OBJ>)>
+		<TELL "." CR>
+		<COND (<AND <EQUAL? ,WEDGE-PLACED 1>
+			    <EQUAL? ,WINNER-HERE ,REPAIR1>>
+		       <TELL "The " D ,WEDGE 
+			     " is positioned at the base of the " 
+			     D ,CONVEYERBELTA "." CR>)
+		      (ELSE <FCLEAR ,WEDGE ,NDESCBIT>)>)>>
+
+<ROOM HALL-STOP3
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (SOUTH TO HUMAN-ENTRY)
+      (EAST TO HALL-STOP4)
+      (WEST TO HALL-STOP2)
+      (ROOMDESCS <PLTABLE 0
+"I have reached a junction in the hallway. The east/west hallway meets with a southern corridor."
+"Photonic sensors detect a shift in reflective activity indicating a corridor
+which starts to the south."
+0
+"East side, west side, all around the south."
+"Standard robotic areas can be detected to the south.">)
+      (DESC "Access Hallway")
+      (SYNONYM HALLWAY)
+      (ADJECTIVE ACCESS)
+      (LINE 3)
+      (STATION HALL-STOP3)
+      (CORRIDOR 6)>
+
+<ROOM REC-AREA
+      (IN ROOMS)
+      (DESC "Activities Area")
+      (SYNONYM ACTIVI)
+      (FLAGS RLANDBIT ONBIT)
+      (ROOMDESCS <PLTABLE 0
+"I'm in a small room with exits to the west and east. Sonar detects odd
+objects within the room whose purpose eludes my perceptive abilities."
+"There is a lot of vibrational and electrical activity within this location,
+though none of its purposes seem immediately evident."
+0
+"Ah. Just what I needed. A spot amid the jungle of worries -- a place to
+relax, to call my own, to stretch out and enjoy myself."
+"I have determined this area to be for the private use of Human visitors.">)
+      (EAST TO SLEEP-CHAMBER)
+      (WEST TO TOOL-AREA)
+      (SOUTH TO HALL-STOP4)
+      (LINE 4)
+      (STATION REC-AREA)
+      (CORRIDOR 1)>
+
+<ROOM HALL-STOP4
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (NORTH TO REC-AREA)
+      (WEST TO HALL-STOP3)
+      (EAST TO HALL-STOP5)
+      (ROOMDESCS <PLTABLE 0 "I'm in an east/west hallway." "I'm in an east/west hallway." "I'm in an east/west hallway." "I'm in an east/west hallway."
+"I'm in an east/west hallway.">)
+      (DESC "Hallway")
+      (LINE 5)
+      (STATION HALL-STOP4)
+      (CORRIDOR 2)>
+
+<ROOM SLEEP-CHAMBER
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Sleep Chamber")
+      (SYNONYM CHAMBER)
+      (ADJECTIVE SLEEP)
+      (ROOMDESCS <PLTABLE 0
+"I'm in a small room which has flat extensions jutting from the walls."
+"There seems to be a complete absence of activity in this area."
+0
+"To sleep, perchance to dream. Ah, what foods these morsels be."
+"CLC indicates this is a Human habitation area.">)
+      (SOUTH TO HALL-STOP5)
+      (WEST TO REC-AREA)
+      (ACTION SLEEP-CHAMBER-FCN)
+      (LINE 4)
+      (STATION SLEEP-CHAMBER)
+      (CORRIDOR 33)>
+
+<ROUTINE SLEEP-CHAMBER-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <EQUAL? ,PRSO ,TOOLBAG>
+		     <IN? ,TOOLBAG ,WINNER>
+		     <VERB? TAKE>>
+		<SETG RTHIEF ,WINNER>
+		<DISABLE <INT I-STEAL>>
+		<ENABLE <QUEUE I-CHASEAUDA -1>>)>>
+		
+
+<ROOM HALL-STOP5
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Hallway Corner")
+      (SYNONYM CORNER)
+      (ADJECTIVE HALLWAY)
+      (ROOMDESCS <PLTABLE 0
+"The east/west corridor ends here and starts off to the south. To the north
+is a small room."
+"Sensory mechanisms detect a room to the north, a hallway to the west and to
+the south."
+0
+"Lemme see, which way did I go? Who am I, anyway? What am I doing here, and why am I asking all these questions? Life is so confusing."
+"CLC peripheral device detected to the south.">)
+      (NORTH TO SLEEP-CHAMBER)
+      (SOUTH TO HALL-T)
+      (WEST TO HALL-STOP4)
+      (LINE 5)
+      (STATION HALL-STOP5)
+      (CORRIDOR 34)>
+
+<ROOM HALL-T
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Hallway Branch")
+      (SYNONYM BRANCH)
+      (ADJECTIVE HALLWAY)
+      (ROOMDESCS <PLTABLE 0
+"I've reached a 'T' in the long, north/south hallway."
+"Mechanical activity located to the east."
+0
+"The wheels of fate lie to the east, as all philosophers know."
+"CLC peripheral detected to the south.">)
+      (NORTH TO HALL-STOP5)
+      (EAST TO FCMAINT)
+      (SOUTH TO LOWER-CORE)
+      (LINE 5)
+      (STATION HALL-T)
+      (CORRIDOR 32)>
+       
+<ROOM FCMAINT
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Maintenance Access")
+      (SYNONYM ACCESS)
+      (ADJECTIVE MAINTE)
+      (ROOMDESCS <PLTABLE 0
+"I've reached the end of the eastern corridor. Before me, high overhead, is a strange combination of circular protuberances."
+"Mechanical devices can be detected far out of range."
+0
+"Round and round she goes, where she stops, nobody knows."
+"CLC signals are weaker in this area.">)
+      (WEST TO HALL-T)
+      (LINE 5)
+      (STATION HALL-T)
+      (ACTION FCMAINT-FCN)>
+
+<GLOBAL FCWHEEL
+	 <PLTABLE
+0
+"Sonar detects a circular object mounted on the wall high overhead, out of
+reach. A small spray is also detected, going upward through the ceiling."
+"Sensory mechanisms can detect a low concentration of acid in the air. Its origin is directly overhead. Approximately 99.87 percent of these acid droplets are going up into the room above."
+"I can hear hissing coming from high overhead here."
+"The turning of the screw, like the delicate machinations of life, goes on
+far out of the reach of ordinary mortals."
+"CLC tagged device WH located high overhead.">>
+
+<ROUTINE FCMAINT-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<LONG-DESCS>
+		<FCLEAR ,WHEEL ,NDESCBIT>
+		<COND (<AND <NOT <EQUAL? <GET ,FCWHEEL ,ROFF> 0>>
+			    <NOT ,ACID-FIXED>>
+		       <TELL <GET ,FCWHEEL ,ROFF> CR>
+		       <FSET ,WHEEL ,NDESCBIT>)>
+		<RTRUE>)>>
+
+<ROOM LOWER-CORE
+      (IN ROOMS)
+      (DESC "Library Entrance")
+      (SYNONYM ENTRANCE)
+      (ADJECTIVE LIBRARY)
+      (ROOMDESCS <PLTABLE 0
+"Sonar scan indicates the corridor continues to the south, but off to the west
+is a small, circular object before a huge, circular object."
+"Huge electrical activity has been detected to the west."
+0
+"The answers to none of our questions awaits, granting the whiz kid can
+audience to the west, which he can't, poor air-head."
+"Library Core detected directly to the west.">)
+      (FLAGS RLANDBIT ONBIT)
+      (WEST TO INNER-CORE)
+      (NORTH TO HALL-T)
+      (SOUTH TO HALL-END)
+      (LINE 5)
+      (STATION LOWER-CORE)
+      (CORRIDOR 32)>
+
+<ROOM INNER-CORE
+      (IN ROOMS)
+      (DESC "Library Core")
+      (SYNONYM CORE)
+      (ADJECTIVE LIBRARY)
+      (ROOMDESCS <PLTABLE 0
+"Before me is a huge cylinder, the CLC, which extends out of my sonar's scanning range."
+"An interfacing device sits before me, capable of interacting with the huge
+data flow behind it."
+0
+"Ah, great master, tell all!"
+"Standing before the Library Core, the human-interactive peripheral. This
+peripheral allows no interaction with robots.">)
+      (FLAGS RLANDBIT ONBIT)
+      (EAST TO LOWER-CORE)
+      (LINE 5)
+      (STATION LOWER-CORE)>
+
+<ROOM HALL-END
+      (IN ROOMS)
+      (DESC "Hallway End")
+      (SYNONYM END)
+      (ADJECTIVE HALLWAY)
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects the end of the southern hallway. To the east is a long, narrow
+area which travels out of my receiving range."
+"Sensory input indicates the end of the southern hallway here, with extremely
+violent force fields and electrical disturbances to the east."
+"I can hear the crackling of ozone in the air to the east."
+"This path through life may be more dangerous than it looks. After all, appearances can be deceiving."
+"CLC warns that the area to the east is dangerous.">)
+      (NORTH TO LOWER-CORE)
+      (EAST "CLC WARNING: Dangerous force fields prevent eastern movement.")
+      (FLAGS RLANDBIT ONBIT)
+      (LINE 5)
+      (STATION HALL-END)
+      (CORRIDOR 96)>
+
+<ROOM CORRIDOR-4
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Short Corridor")
+      (SYNONYM CORRID)
+      (ADJECTIVE SHORT)
+      (ROOMDESCS <PLTABLE 0
+"I have reached a place in the corridor where the floor rises up to the northeast. Sonar can detect a huge open area directly to the east."
+"Wiring etched into the walls branches off to the northeast from here, while an incredibly powerful source of energy is easily detectable to the east."
+"I can hear a difference in the air currents and air conditioning circuits here
+as if another passage started to the northeast."
+"The great interpreter of all our daily occurences lies ahead, while a walk in
+the sky waits for me to the northeast."
+"CLC indicates I have arrived at a northeast branch in the corridor." >)
+      (WEST TO CORRIDOR-3)
+      (NE TO NE-PASSAGE1)
+      (EAST TO ACIDMIST)
+      (LINE 2)
+      (STATION CORRIDOR-4)
+      (CORRIDOR 144)
+      (ACTION BEWARE-MIST-FCN)
+      (GLOBAL WIRING)>
+
+<ROUTINE BEWARE-MIST-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-LOOK>
+		     <NOT ,ACID-FIXED>
+		     <NOT <WHIZ?>>
+		     <NOT <WALDO?>>>
+		<LONG-DESCS>
+		<TELL <GET ,BEWARE-TBL ,ROFF> CR>)>>
+
+<GLOBAL BEWARE-TBL
+	<PLTABLE "" ""
+"WARNING: Sensors indicate a light mist, analyzed as a penetrating acid, floats in the air to the east."
+"I can hear a faint hissing coming through the floor to the east."
+"Bathe in luxuriating, though scorching, solvents." "" >>
+
+<ROOM NE-PASSAGE1
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (SW TO CORRIDOR-4)
+      (NE TO NE-PASSAGE2)
+      (DESC "Rising Passage")
+      (SYNONYM PASSAGE)
+      (ADJECTIVE RISING)
+      (ROOMDESCS <PLTABLE 0
+"I am on an inclined surface which continues northeast and southwest. The
+slant of the floor here indicates that I am between levels."
+"Internal mechanisms indicate this area joins two different levels."
+"Far off, near the top of this rising passage, I can hear a loud wind."
+"Like levels of the Inferno, I slide into despair and climb to new heights."
+"CLC internally informs me I am between the Main level and the Skywalk.">)
+      (LINE 0)
+      (STATION NE-PASSAGE1)
+      (CORRIDOR 128)>
+
+
+
+<ROOM NE-PASSAGE2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Top Passage")
+      (SYNONYM PASSAGE)
+      (ADJECTIVE TOP)
+      (SW TO NE-PASSAGE1)
+      (NORTH TO SKY1)
+      (ROOMDESCS <PLTABLE 0 
+"I am at the top of a passage which descends to the southwest. Before me, to
+the north, is the entrance to an east/west walkway."
+"Internal sensory mechanisms indicate an area of violent motion lies to the
+north, while internal mapping indicates a descending passage to the southwest."
+"The roar of wind comes from the north and is overwhelming. Turning down my
+audio-sensitivity."
+"Whisk me away, zip me today.|
+Come out far, far far away.|
+Mail me home, pop me to stay|
+Flung to the north, where I can't say."
+"CLC indicates I am directly to the south of the Skywalk. A passage descends
+to the southwest." >)
+      (LINE 0)
+      (STATION NE-PASSAGE2)
+      (CORRIDOR 128)>
+
+<ROOM SKY1
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Skywalk Alpha")
+      (SYNONYM ALPHA)
+      (ADJECTIVE SKYWAL)
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects a long tube directly to the north, while the skywalk continues
+to the west from here."
+"Sensory receptors detect incredible electrical and ionic disturbances coming
+from the north of here."
+"I can hear the tremendous roar of wind in a tunnel to the north."
+"Pop the message in the tube and out comes the medium massage."
+"This area is described by the CLC as a transporter tube.">)
+      (SOUTH TO NE-PASSAGE2)
+      (WEST TO SKY2)
+      (NORTH TO WEATHER)
+      (ACTION SKY-FCN)
+      (LINE 0)
+      (STATION SKY1)
+      (CORRIDOR 256)>
+
+<ROOM SKY2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Skywalk Beta")
+      (SYNONYM BETA)
+      (ADJECTIVE SKYWAL)
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects a long tube directly to the north, while the skywalk continues
+to the east and west of here."
+"Sensory receptors detect incredible electrical and ionic disturbances coming
+from the north of here. Similar disturbances can be detected from the east and
+west."
+"I can hear the tremendous roar of wind in a tunnel to the north. An exact
+duplication of this sound can be detected from the east and west, though their
+intensities are somewhat less."
+"Pop the message in the tube and out comes the medium rare."
+"This area is described by the CLC as a transporter tube.">)
+      (EAST TO SKY1)
+      (WEST TO SKY3)
+      (NORTH TO HYDRO)
+      (ACTION SKY-FCN)
+      (LINE 0)
+      (STATION SKY2)
+      (CORRIDOR 256)>
+
+<ROOM SKY3
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Skywalk Gamma")
+      (SYNONYM GAMMA)
+      (ADJECTIVE SKYWAL)
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects a long tube directly to the north, while the skywalk continues
+to the east from here."
+"Sensory receptors detect incredible electrical and ionic disturbances coming
+from the north of here."
+"I can hear the tremendous roar of wind in a tunnel to the north."
+"Pop the message in the tube and out comes the medium massage."
+"This area is described by the CLC as a transporter tube.">)
+      (NORTH TO RTD)
+      (EAST TO SKY2)
+      (ACTION SKY-FCN)
+      (LINE 0)
+      (STATION SKY3)
+      (CORRIDOR 256)>
+
+<ROUTINE SKY-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG M-END>
+		<COND (<VERB? DROP>
+		       <ROBOT-TELL "The " <>>
+		       <TELL D ,PRSO " is whisked up by the force of the tube."
+			     CR>
+		       <COND (<IN? ,PRSO ,SKY1>
+			      <MOVE ,PRSO ,WEATHER>)
+			     (<IN? ,PRSO ,SKY2>
+			      <MOVE ,PRSO ,HYDRO>)
+			     (<IN? ,PRSO ,SKY3>
+			      <MOVE ,PRSO ,RTD>)>)>)>>
+
+<ROOM WEATHER
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Weather Control Area")
+      (SYNONYM CONTRO)
+      (ADJECTIVE WEATHE)
+      (GLOBAL CONTROL-PANELS)
+      (ROOMDESCS <PLTABLE 0
+"I'm in a small area at the end of the jet tube. Sonar detects a small console within reach of my extensions and mounted on this panel are three dials."
+"I'm in a small but electrically intensive area. I can detect three variable potentiometers on a small console."
+0
+"Slippin' 'n' slidin', turn the dials and we'll be ridin'." 0>)
+      (SOUTH TO SKY1)
+      (LINE 0)
+      (STATION SKY1)
+      (ACTION DESCRIBE-CONTROLS-FCN)>
+
+<ROUTINE DESCRIBE-CONTROLS-FCN ("OPTIONAL" (RARG <>) "AUX" D1 D2 D3 (DOFF 0))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<LONG-DESCS>
+		<COND (<AUDA?>
+		       <RTRUE>)>
+		<COND (<EQUAL? ,WINNER-HERE ,WEATHER>
+		       <SET D1 ,WDIAL1>
+		       <SET D2 ,WDIAL2>
+		       <SET D3 ,WDIAL3>)
+		      (T
+		       <SET DOFF 3>
+		       <SET D1 ,LEVER1>
+		       <SET D2 ,LEVER2>
+		       <SET D3 ,LEVER3>)>
+		<TELL "The " D .D1 " is set to " N <GET ,DIALSETS <+ 1 .DOFF>>
+		      ", the " D .D2 " is set to " N <GET ,DIALSETS <+ 2 .DOFF>>
+		      ", and the " D .D3 " is set to " N <GET ,DIALSETS <+ 3 .DOFF>>
+		      "." CR>)>>
+
+<ROOM HYDRO
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Hydroponics Control Area")
+      (SYNONYM CONTRO)
+      (ADJECTIVE HYDROP)
+      (ROOMDESCS <PLTABLE 0
+"I have entered a small room. My sonar units and delicate touching extensions
+indicate there are a series of three levers on a small panel."
+"I am in a small room whose primary purpose is obvious by tracing the flow of
+electrons. The three levers before me are linked to the Hydroponics section,
+and they control the nutrient levels in the hydroponics tanks."
+0
+"Push a lever and out pops a food pellet. What a life for a rat."
+"I'm in the Hydroponics Control area. CLC indicates that the three levers on
+the small panel are for mixing nutrient levels. More data on levers available at the CLC Technical Peripheral.">)
+      (SOUTH TO SKY2)
+      (LINE 0)
+      (STATION SKY2)
+      (ACTION DESCRIBE-CONTROLS-FCN)
+      (GLOBAL CONTROL-PANELS)>
+
+<ROOM RTD
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Transit Control Area")
+      (SYNONYM CONTRO)
+      (ADJECTIVE TRANSI)
+      (ROOMDESCS <PLTABLE 0
+"I am in a tiny room. Sonar can detect three bumps on a panel before me."
+"I am in a room which has three switching devices. These devices connect directly to the surface."
+0
+"Hacks and Hackies, drivers all.|
+Control the flow and nothing falls|
+Except for those up in the air|
+But all in all, what's best is fair.|
+They roam around in tough young gangs|
+and corner those with metal fangs|
+They zip along and throw you free|
+Like Broncos on the wild prairie."
+"CLC indicates there are switching devices for all surface transportation in this room.">)
+      (SOUTH TO SKY3)
+      (LINE 0)
+      (STATION SKY3)
+      (GLOBAL CONTROL-PANELS)>
+
+<ROOM ACIDMIST
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Cavernous Room")
+      (SYNONYM CAVERNOUS)
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects a large open area, with three huge objects far off to the east."
+"Photon receptors indicate this area is extremely large."
+"I can hear distant machinery humming from the east." "Twice the size of life, this area makes me feel like a dwarf." 0>)
+      (WEST TO CORRIDOR-4)
+      (EAST TO MIDMIST)
+      (ACTION ACIDMIST-FCN)
+      (LINE 2)
+      (STATION ACIDMIST)
+      (CORRIDOR 16)>
+
+<ROUTINE ACIDMIST-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<NOT ,ACID-FIXED>
+		       <COND (<EQUAL? <GET ,DEADBOTS ,ROFF> 0>
+			      <PUT ,DEADBOTS ,ROFF 1>
+			      <RFALSE>)>)>)
+	       (<AND <EQUAL? .RARG ,M-LOOK>
+		     <NOT ,ACID-FIXED>>
+		<LONG-DESCS>
+		<COND (<NOT <WHIZ?>>
+		       <TELL <GET ,MISTY-TBL ,ROFF> CR>)>
+		<RTRUE>)>>
+		
+<GLOBAL MISTY-TBL
+	  <PLTABLE 0
+"I can feel little things dropping onto my outer shell."
+"Light is diffracted in this area and an analysis shows it is composed of a
+slowly-working acid. The source of the mist comes from below."
+"I can hear a hissing coming up from the floor."
+"Raindrops keep fallin' on my head|
+ And before you know it I'll|
+ wake up dead... a puddle of lead.">>
+
+<ROOM MIDMIST
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "East End")
+      (SYNONYM END)
+      (ADJECTIVE EAST)
+      (ROOMDESCS <PLTABLE 0
+"I have reached the east end of the huge open area. Directly before me is the
+entrance into the lower reaches of the Beta FC. Access to the other computers is available through the northeast and southeast."
+"This is incredible. The amount of energy flowing around me makes it difficult
+to keep myself oriented. Directly before me is the entrance into the huge FC."
+"I can hear the huge fans which have to be associated with the FCs."
+"Ah, Mama! Here I am, your sonny boy, returned after a lifetime of wandering!"
+"CLC transmits a welcome signal originating from the Beta FC, directly before me.">)
+      (WEST TO ACIDMIST)
+      (SE TO FC3)
+      (EAST TO FC2)
+      (NE TO FC1)
+      (LINE 2)
+      (STATION MIDMIST)
+      (CORRIDOR 16)>
+
+<ROOM FC3
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Gamma FC")
+      (SYNONYM FC)
+      (ADJECTIVE GAMMA)
+      (ROOMDESCS <PLTABLE 0
+"Sensors detect a small, narrow tube to the north of here, while surrounding me is a huge object, the Gamma FC itself."
+"Sensory mechanisms detect a tremendous channeling and flow of electrical and
+data energy into an object surrounding me. Sensors detect a similar channeling to an object to the north."
+0
+"The third stage of our journey begins here, the music goes round and round."
+"I stand within the third Filtering Computer, a massive device used to interface us with you and control the surface systems.">)
+      (NORTH TO TUBE1)
+      (NW TO MIDMIST)
+      (LINE 2)
+      (STATION FC3)
+      (GLOBAL AIRCON)>
+
+<ROOM TUBE1
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Secondary Channel")
+      (SYNONYM CHANNEL)
+      (ADJECTIVE SECOND)
+      (ROOMDESCS <PLTABLE 0
+"I've entered a narrow tube which rests on a north/south axis. Many cables of small diameter travel within this tube, side by side in a groove. Sonar also detects a small hole in the side of the tube. Above this hole is a recessed sign."
+"Sensory mechanisms detect the disquieting flow of electricity within this
+tube. The flow is concentrated within the small cables which line a groove in the floor. There is a small hole in the wall of the tube awaiting a plug, while slightly higher up rests a sign."
+"I can hear whirring and clicking as if of some hungry beast to the north and
+south here."
+"Connections are what make life worth living. In each direction we find our
+source of disorientation, our metaphysical essence. Linkups are possible,
+connecting our distant cousin with our essence, our very presence here. There's a signpost overhead -- the next stop..."
+"CLC tagged location indicates I am within a connecting tube. The connecting
+cables for the filtering computers line this floor, resting in their grooves. A small plug, PL-1, sits within the wall beneath the ACS.">)
+      (NORTH TO FC2)
+      (SOUTH TO FC3)
+      (GLOBAL CABLES TVHOLE SIGNPOST)
+      ;(ACTION TUBE-FCN)
+      (LINE 2)
+      (STATION TUBE1)>
+
+;<ROUTINE TUBE-FCN ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<AND <VERB? WALK WALK-TO FOLLOW MOVE-ROBOT-TO-LOC>
+			    <IN? ,TV ,WINNER>
+			    ,TV-ON>
+		       <ROBOT-TELL "(Unplugging the " <>>
+		       <TELL D ,TV " first.)" CR>
+		       <CRLF>
+		       <SETG TV-ON <>>
+		       <RFALSE>)>)>>
+
+<ROOM FC2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Beta FC")
+      (SYNONYM FC)
+      (ADJECTIVE BETA)
+      (ROOMDESCS <PLTABLE 0
+"I am standing inside a structure of incredible complexity. A narrow tube runs
+to the north, while another one runs to the south. Another tunnel-like tube
+leads to the west."
+"I am within an immense device which contains immeasurable circuitry and
+switching devices. I can detect connections to the north and south of this
+device."
+"I can hear the tremendous roar of air conditioning here. Air currents flow to
+the north, the west, and the south."
+"Amid the nervous neurons, the synaptic links make jumps akin to imagination
+found only in Wonderland."
+"I am within the Beta FC.">)
+      (NORTH TO TUBE2)
+      (SOUTH TO TUBE1)
+      (WEST TO MIDMIST)
+      (LINE 2)
+      (STATION FC2)
+      (GLOBAL WIRING AIRCON)>
+
+<ROOM TUBE2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Primary Channel")
+      (SYNONYM CHANNEL)
+      (ADJECTIVE PRIMARY)
+      (ROOMDESCS <PLTABLE 0
+"I've entered a narrow tube which rests on a north/south axis. Many cables travel within this tube, each one resting on the groove in the floor. Sonar also detects a small hole in the side of the tube, right below a recessed sign."
+"Sensory mechanisms detect the disquieting flow of electricity within this
+tube. The flow is concentrated within the small cables which line the floor.
+There is a small hole in the wall of the tube awaiting a plug. Above this hole is a sign."
+"I can hear whirring and clicking as if of some hungry beast to the north and
+south here."
+"Connections are what make life worth living. In each direction we find our
+source of disorientation, our metaphysical essence. Linkups are possible,
+connecting our distant cousin with our essence. There's a signpost up ahead -- the next stop, the Ozonezone."
+"CLC tagged location indicates I am within a connecting tube. The connecting
+cables for the filtering computers line this floor, resting in their
+individual grooves. A small plug, PL-1, sits within the wall, right below the ACS.">)
+      (NORTH TO FC1)
+      (SOUTH TO FC2)
+      (GLOBAL CABLES TVHOLE SIGNPOST)
+      (LINE 2)
+      (STATION TUBE2)>
+
+<ROOM FC1
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Alpha FC")
+      (SYNONYM FC)
+      (ADJECTIVE ALPHA)
+      (ROOMDESCS <PLTABLE 0
+"Sensors detect a small, narrow tube to the south of here, while surrounding me is a huge object, the Alpha FC."
+"Sensory mechanisms detect a tremendous channeling and flow of electrical and
+data energy into an object surrounding me. Sensors detect a similar channeling to an object to the south."
+0
+"The first stage of our journey begins here, the music goes round and round."
+"I stand within the first Filtering Computer, a massive device used to interface us with you and maintain the surface systems.">)
+      (SOUTH TO TUBE2)
+      (LINE 2)
+      (STATION FC1)
+      (GLOBAL AIRCON)>
+
+<ROOM CAR-AREA
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Vehicle Debarkation Area")
+      (SYNONYM DEBARK)
+      (ADJECTIVE VEHICL)
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects the end of the southern hallway. To the west is a long, narrow
+area which travels out of my receiving range."
+"Sensory input indicates the end of the southern hallway here, with extremely
+violent force fields and electrical disturbances to the west."
+"I can hear the crackling of ozone in the air to the west."
+"I got my license through the mail, but that never stopped Franklin from chancing my ability."
+"CLC warns that the area to the west is dangerous.">)
+      (NORTH TO BIO-INT)
+      (WEST "CLC WARNING: Dangerous force fields prevent western movement.")
+      (LINE 5)
+      (STATION CAR-AREA)
+      (CORRIDOR 64)>
+
+<ROOM BIO-INT
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Biology Corridor")
+      (SYNONYM CORRID)
+      (ADJECTIVE BIOLOG)
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects an intersection with a narrow passageway leading off to the
+west."
+"My sensory apparatus detects some strange vibrational emanations coming from both the north and the west. The area to the south is rife with destructive ionic activity."
+0
+"We know where we were born, and now we are approaching your area of rebirth."
+"CLC tagged area indicates the Biological Section contains materials potentially dangerous to your survival.">)
+      (NORTH TO CRYOUNITS)
+      (SOUTH TO CAR-AREA)
+      (WEST TO BIO-LAB)
+      (LINE 5)
+      (STATION BIO-INT)>
+
+<ROOM BIO-LAB
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Biological Laboratory")
+      (SYNONYM LABORA LAB)
+      (ADJECTIVE BIOLOG)
+      (EAST TO BIO-INT)
+      (ROOMDESCS <PLTABLE 0
+"Sonar detects a large structure within this room. The large structure sits in
+the center of the room."
+"Quite a bit of electrical, ionic, and vibrational energy are being generated
+in this room.  The walls are lined with miles of wiring and circuitry."
+0
+"Ashes from gnashes, dust to bust, we all go round the circle."
+"This area is identified as the Biological Lab. Equipment here is available
+for clone revivification.">)
+      (LINE 5)
+      (STATION BIO-INT)
+      (GLOBAL WIRING)>
+
+<ROOM CRYOUNITS
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Cryogenic Area")
+      (SYNONYM CRYOGE)
+      (ROOMDESCS <PLTABLE 0
+"Large canisters, similar in appearance to the cylinder in the Central Chamber, fill this area. Sonar can also detect a large straight rod extending from the
+wall."
+"Detection devices show a channelling of electrical and data information into
+the large objects in this area. An electrical switch of some kind is mounted
+on the wall."
+"I can hear the humming of air conditioning within this room."
+"Happy birthday to you,|
+Happy birthday to you.|
+Happy birthday dear human,|
+Happy birthday to you!"
+"This area contains human clones, each in a canister, replacements for future generations of controllers.">)
+      (SOUTH TO BIO-INT)
+      (LINE 5)
+      (STATION CRYOUNITS)
+      (GLOBAL AIRCON)>
+
+<ROOM UD-TUBE
+      (IN ROOMS)
+      (DESC "UD Tube")
+      (FLAGS RLANDBIT ONBIT)
+      (EAST TO STERILE-AREA)
+      (SYNONYM DEAD)>
+
+<ROOM HELL
+      (IN ROOMS)
+      (DESC "Hell")
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM HELL)>
\ No newline at end of file
diff --git a/s2.zil b/s2.zil
new file mode 100644
index 0000000..9349c4a
--- /dev/null
+++ b/s2.zil
@@ -0,0 +1,58 @@
+"SUSPENSION for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+<SNAME "SUSPENDED">
+
+<SETG STRS <IVECTOR 2000 "">>
+<SETG TBLS <IUVECTOR 400 ()>>
+ ;<GC-MON T>
+<COND (<GASSIGNED? ZILCH> <GC 0 T>)
+      (T <GC 0 T 5>)>
+<BLOAT 90000 0 0 3500 0 0 0 0 0 512>
+
+<SET REDEFINE T>
+
+<GLOBAL BIGFIX 10000>
+
+<OR <GASSIGNED? ZILCH>
+    <SETG WBREAKS <STRING !\" !\= !,WBREAKS>>>
+
+<OR <GASSIGNED? INSERT-CRUFTY>
+    <DEFINE INSERT-CRUFTY (STR) <IFILE .STR T>>>
+
+<DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
+	<INSERT-FILE .STR .FLOAD?>>
+
+<PRINC "SUSPENDED: Interlogic Science Fiction
+">
+
+<COND (<GASSIGNED? PREDGEN>
+       <ID 0>)>
+
+<IFILE "MACROS" T>
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+<PROPDEF VALUE 0>
+
+<IFILE "SYNTAX" T>
+<ENDLOAD>
+<IFILE "GLOBALS" T>
+<IFILE "CLOCK" T>
+<IFILE "MAIN" T>
+<IFILE "PARSER" T>
+<INSERT-CRUFTY "CRUFTY">
+<IFILE "VERBS" T>
+
+
+;"MIKE: Add your files here, as with ROBOTS"
+
+
+<IFILE "STATUS" T>
+<IFILE "ROBOTS" T>
+<IFILE "ROOMS" T>
+<IFILE "OBJECTS" T>
+<IFILE "GOAL" T>
+<IFILE "PEOPLE" T>
+<IFILE "SETUP" T>
diff --git a/script.mss b/script.mss
new file mode 100644
index 0000000..14808c8
--- /dev/null
+++ b/script.mss
@@ -0,0 +1,140 @@
+@MAKE [TEXT]
+@STYLE [SPACING 2,JUSTIFICATION NO]
+@TITLE [Suspended Script]
+@TabSet [4,8,12,16,20]
+@pageheading [draft]
+@MAJORHEADING [Suspended Script]
+
+What follows is a sample transcript for Suspended.
+
+
+>JUNIOR, REPORT YOUR LOCATION.
+FC: Cryolink established to JUNIOR.
+JUNIOR: I am in the Cooling Tubes.
+
+>LOOK
+All around me tubes run into a central receiving core, a place where all
+the coolants collect.
+In the room with me are Killer and Swifty.
+
+>EXAMINE SWIFTY
+Swifty is a little robot with eighteen legs who moves at incredible speed.
+
+>OPEN SWIFTY
+Fine. I'm using my micro-surgery extension to accomplish that.
+Opening Swifty reveals a lightbulb.
+
+>TAKE THE LIGHTBULB
+Unable to accomplish task. Lightbulb is soldered into a socket.
+
+>KILLER, EXAMINE THE SOCKET.
+FC: Cryolink established to Killer.
+KILLER: I see nothing special about the socket.
+
+>LOOK
+I am in a fierce area with raging torrents all around me.
+In the room with me are Swifty and Junior.
+
+>FIND THE SOLDERING IRON.
+And how do you propose I accomplish that? I'm only a multiplexed robot.
+
+>ALL ROBOTS, LOOK
+FC: Cryolink established to Junior.
+JUNIOR: Internal Map Reference -- Cooling Tubes.
+All around me tubes run into a central receiving core, a place
+where all the collants collect.
+In the room with me are Killer and Swifty.
+
+FC: Cryolink established to Killer.
+KILLER: Internal Map Reference -- Cooling Tubes.
+I am in a fierce area with raging torrents all around me.
+In the room with me are Swifty and Junior.
+
+FC: Cryolink established to Swifty.
+SWIFTY: Internal Map Reference -- Cooling Tubes.
+I am in a quick area with sounds rushing all around me.
+In the room with me are Killer and Junior. 
+
+FC: Cryolink established to Tiger.
+TIGER: Internal Map Reference -- Solar Vats.
+I am in the Solar Area, padding along the huge solar sails.
+I can detect a striped object floating in space a few meters away. 
+
+FC: Cryolink established to Leaper.
+LEAPER: Internal Map Reference -- Tool Supply Area.
+I am in a large area with shelves all around.
+Sitting on a high shelf is a soldering iron.
+
+>LEAPER, PICK UP THE SOLDERING IRON.
+FC: Cryolink established to Leaper.
+LEAPER: It's out of reach on the top shelf.
+
+>KILLER, GO TO LEAPER.
+FC: Cryolink established to Killer.
+FC: Leaper's location: Tool Supply Area. Establishing path...
+Consider it done. I'm on my way and I'll holler when I get to him.
+
+>CLIMB UP
+FC: What do you want Killer to climb up?
+
+>LEAPER, CLIMB UP THE WALLS
+FC: Cryolink established to Leaper.
+LEAPER: Hey, I'm just a robot, and I don't have suction cups on my feet! 
+
+>HIT THE SHELF 
+FC: What do you want Leaper to hit the shelf with?
+
+>HIS HANDS
+I tried, but I couldn't reach.
+
+>HIT THE SHELF WITH A LADDER
+FC: I don't know the word "ladder".
+
+KILLER INTERRUPT: I'm here with the little flea now.
+
+>LOOK AT LEAPER
+How do you expect me to look at myself?
+
+>KILLER, LOOK AT LEAPER.
+FC: Cryolink established to Killer.
+KILLER: Leaper is like a flea, with huge rear legs and the ability to leap
+high into the air.
+
+>LEAPER, LEAP ONTO THE TOP SHELF.
+FC: Cryolink established to Leaper.
+LEAPER: Leaping away... Okay.
+
+>LOOK
+I'm on the top shelf in the tool supply area.  Sitting on the shelf is
+a soldering iron.
+In the room with me is Killer.
+
+>TAKE THE SOLDERING IRON.
+Taken.
+
+>GIVE THE SOLDERING IRON TO JUNIOR.
+He's out of reach, the big brute!
+
+>LEAP DOWN TO THE GROUND.
+Okay. I'm now on the floor.
+
+>KILLER, TAKE THE SOLDERING IRON FROM LEAPER THE GO TO SWIFTY.
+FC: Cryolink established to Killer.
+KILLER: Taken.
+FC: Swifty's location: Cooling Tubes. Establishing path...
+Consider it done. I'm on my way and I'll holler when I get to him.
+
+>WAIT
+FC: Time passes...
+
+I'm here with the speed demon now.
+
+>GIVE THE SOLDERING IRON TO JUNIOR.
+Given.
+
+>REMOVE THE LIGHTBULB WITH THE SOLDERING IRON.
+I'm not holding the soldering iron.
+
+>JUNIOR, REMOVE THE LIGHTBLUB WITH THE SOLDERING IRON.
+FC: Cryolink established to Junior.
+JUNIOR: Okay, it's done.
\ No newline at end of file
diff --git a/setup.zil b/setup.zil
new file mode 100644
index 0000000..84dedcd
--- /dev/null
+++ b/setup.zil
@@ -0,0 +1,107 @@
+"SETUP for
+			      SUSPENDED
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+;"Routine for doing SETUP"
+
+<ROUTINE V-CONFIGURE ("AUX" (COUNT 0) RBT RM)
+	 <COND (<G? ,MOVES 1>
+		<TELL
+"You may only configure the game on the first move.  Consult the
+manual for details." CR>
+		<RFALSE>)>
+	 <SETG SETUP-MODE T>
+	 <TELL
+"Pick your poison.|
+Specify the name of a location for each of the following robots or DEAD if you
+would like to have the robot start out non-functional." CR>
+	 <REPEAT ()
+		 <COND (<G? <SET COUNT <+ .COUNT 1>> 6>
+			<RETURN>)
+		       (T
+			<SET RBT <GET ,NAME-TBL <- .COUNT 1>>>
+			<REPEAT ()
+				<TELL <GET ,ROBOT-NAMES .COUNT> " ">
+				<COND (<PARSER>
+				       <SET RM <GET ,P-TABLE 1>>
+				       <COND 
+					     (<EQUAL? .RM ,UD-TUBE>
+					      <PUT ,DEADBOTS .COUNT 30>
+					      <FSET .RBT ,CUTBIT>
+					      <RETURN>)
+					     (<IN? .RM ,ROOMS>
+					      <COND (<AND <EQUAL? .RBT ,IRIS>
+							  <NOT
+							   <IRIS-ALLOWED?
+							    .RM>>>
+						     <TELL
+"IRIS cannot leave the Monitor and Supply Area." CR>)
+						    (<OR <EQUAL? .RM ,CAR-AREA
+								 ,BIO-INT>
+							 <EQUAL? .RM ,BIO-LAB
+								 ,CRYOUNITS>>
+						     <TELL
+"No robot is allowed to start in the Biological Areas." CR>)
+						    (<EQUAL? .RM ,HELL>
+						     <TELL 
+"Come on. Get serious." CR>)
+						    (T
+						     <MOVE .RBT .RM>
+						     <RETURN>)>)
+					     (T
+					      <TELL
+"Specify the name of a location or the word DEAD." CR>)>)
+				      (T
+				       <TELL
+"Specify the name of a location or the word DEAD." CR>)>>)>>
+	 <REPEAT ()
+		 <TELL
+"Surface-side systems tremor at which cycle? (1-100) >">
+		 <COND (<READ-NUMBER 1 100>
+		        <SETG RTD-KILLS ,P-NUMBER>
+			<QUEUE I-TREMOR2 ,RTD-KILLS>
+			<RETURN>)>>
+	 <REPEAT ()
+		 <TELL
+"Cooling systems tremor at which cycle? (1-100) >">
+		 <COND (<READ-NUMBER 1 100>
+			<SETG ACID-KILLS ,P-NUMBER>
+			<QUEUE I-TREMOR1 ,ACID-KILLS>
+			<RETURN>)>>
+	 <REPEAT ()
+		 <TELL
+"Humans arrive at which cycle? (" N ,ACID-KILLS "-150) >">
+		 <COND (<READ-NUMBER ,ACID-KILLS 150>
+			<SETG PEOPLE-APPEAR ,P-NUMBER>
+			<QUEUE I-PEOPLE1 ,PEOPLE-APPEAR>
+			<RETURN>)>>
+	 <SETG SETUP-MODE <>>
+	 <TELL
+"Configuration completed." CR CR>
+	 <V-ALL-REPORT-LOC>
+	 <DISABLE <INT I-IRIS-HINTS>>
+	 <DISABLE <INT I-AUDA-HINTS>>
+	 <RTRUE>>
+
+<ROUTINE READ-NUMBER (MN MX)
+	 <READ ,P-INBUF ,P-LEXV>
+	 <COND (<NUMBER? ,P-LEXSTART>
+		<COND (<AND <NOT <L? ,P-NUMBER .MN>>
+			    <NOT <G? ,P-NUMBER .MX>>>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"Enter a number between " N .MN " and " N .MX "." CR>
+		       <RFALSE>)>)
+	       (T
+		<TELL
+"Enter a number between " N .MN " and " N .MX "." CR>
+		<RFALSE>)>>
+
+<ROUTINE IRIS-ALLOWED? (RM)
+	 <COND (<OR <EQUAL? .RM ,CPU-ROOM ,SERVO-SYSTEMS ,RTD-BANKS>
+		    <EQUAL? .RM ,WEATHER-BANKS ,SUPPLIES-SOUTH ,SUPPLIES-MID>
+		    <EQUAL? .RM ,SUPPLIES-NORTH>>
+		<RTRUE>)
+	       (T <RFALSE>)>>
\ No newline at end of file
diff --git a/status.zil b/status.zil
new file mode 100644
index 0000000..8726623
--- /dev/null
+++ b/status.zil
@@ -0,0 +1,101 @@
+"STATUS for
+			      SUSPENDED
+	(c) Copyright 1985 Infocom, Inc.  All Rights Reserved.
+"
+
+<CONSTANT H-NORMAL 0>
+<CONSTANT H-INVERSE 1>
+
+<CONSTANT D-NORMAL 0>
+<CONSTANT D-TABLE 1>
+
+<ROUTINE INIT-STATUS-LINE ()
+	 <CLEAR -1>
+	 <SPLIT 3>
+	 <SCREEN 1>
+	 <BUFOUT <>>
+	 <INVERSE-LINE 1>
+	 <INVERSE-LINE 2>
+	 <INVERSE-LINE 3>
+	 <HLIGHT ,H-INVERSE>
+	 <CURSET 1 1>
+	 <TELL "Cryolink to:">
+	 <CURSET 1 30>
+	 <TELL "Casualties this Cycle:">
+	 <CURSET 1 60>
+	 <TELL "Cycle:">
+	 <CURSET 2 1>
+	 <TELL "Auda:">
+	 <CURSET 2 30>
+	 <TELL "Iris:">
+	 <CURSET 2 60>
+	 <TELL "Poet:">
+	 <CURSET 3 1>
+	 <TELL "Sensa:">
+	 <CURSET 3 30>
+	 <TELL "Waldo:">
+	 <CURSET 3 60>
+	 <TELL "Whiz:">
+	 <BUFOUT T>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN 0>>
+
+<ROUTINE INVERSE-LINE (LIN "AUX" (CNT 79))
+	 <CURSET .LIN 1>
+	 <HLIGHT ,H-INVERSE>
+	 <PRINT-SPACES .CNT>
+	 <HLIGHT ,H-NORMAL>>
+
+<ROUTINE PRINT-SPACES (CNT)
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0>
+			<RETURN>)
+		       (T
+			<PRINTC 32>)>>>
+
+<GLOBAL SL-BUFFER <ITABLE NONE 80>>
+
+<ROUTINE STATUS-LINE ("AUX" LEN)
+	 <BUFOUT <>>
+	 <DIROUT ,D-TABLE ,SL-BUFFER>
+	 <TELL D ,HERE>
+	 <DIROUT ,D-NORMAL>
+	 <SET LEN <GET ,SL-BUFFER 0>>
+	 <SCREEN 1>
+	 <CURSET 1 15>
+	 <HLIGHT ,H-INVERSE>
+	 <TELL D ,HERE>
+	 <PRINT-SPACES <- 25 .LEN>>
+	 <CURSET 1 57>
+	 <TELL N ,SCORE "  ">
+	 <CURSET 1 71>
+	 <TELL N ,MOVES "  ">
+	 <CURSET 2 8>
+	 <SL-LOC ,AUDA>
+	 <CURSET 2 37>
+	 <SL-LOC ,IRIS>
+	 <CURSET 2 67>
+	 <SL-LOC ,POET>
+	 <CURSET 3 8>
+	 <SL-LOC ,SENSA>
+	 <CURSET 3 37>
+	 <SL-LOC ,WALDO>
+	 <CURSET 3 67>
+	 <SL-LOC ,WHIZ>
+	 <SCREEN 0>
+	 <CURSET 23 1>
+	 <BUFOUT T>
+	 <HLIGHT ,H-NORMAL>>
+
+<ROUTINE SL-LOC (RBT "AUX" (L <LOC .RBT>) LEN)
+	 <DIROUT ,D-TABLE ,SL-BUFFER>
+	 <TELL D .L>
+	 <DIROUT ,D-NORMAL>
+	 <SET LEN <GET ,SL-BUFFER 0>>
+	 <TELL D .L>
+	 <PRINT-SPACES <- 20 .LEN>>>
+	 
+
+
+
+			
\ No newline at end of file
diff --git a/suspended.cmp b/suspended.cmp
new file mode 100644
index 0000000..0cd967c
--- /dev/null
+++ b/suspended.cmp
@@ -0,0 +1,10 @@
+
+;COMPARISON OF SS:<SUSPENDED.R8MAC>SUSPENDED.ZIL.7 AND SS:<SUSPENDED.R8MAC>SUSPENDED.ZIL.8
+;OPTIONS ARE    /1
+
+**** FILE SS:<SUSPENDED.R8MAC>SUSPENDED.ZIL.7, 1-6 (100)
+<SNAME "SUSPENDED">
+**** FILE SS:<SUSPENDED.R8MAC>SUSPENDED.ZIL.8, 1-6 (100)
+;<SNAME "SUSPENDED">
+***************
+
diff --git a/suspended.vocabulary b/suspended.vocabulary
new file mode 100644
index 0000000..f4f3603
--- /dev/null
+++ b/suspended.vocabulary
@@ -0,0 +1,163 @@
+ABOUT		ACCESS		ACROSS		ACS
+ACTIVATE	ACTIVITY	ADVANCED
+ADVERT		ADVISORY	AFFIRMATIVE	AGAINST
+AIM		AIR		AIRCON		ALL
+ALPHA		ANALYZE		ANGLING		ANSWER
+APPLY		AREA		ARL		ARM-SHAPED
+AROUND		ARR		ASK		ATTACH
+ATTACK		AUDA		AUDIO		AWAKE
+B5		BA1		BACK		BACKUP
+BACKWARDS	BAG		BAR		BARRIER
+BASKET		BATHE		BED		BEDS
+BEHIND		BENCH		BENCHES		BENDING
+BETA		BIG		BIOLOGICAL	BITE
+BLAST		BLE		BLIND		BLOCK
+BLOW		BLT		BLUE		BOARD
+BOTH		BOX		BOZ		BRAIN
+BRANCH		BRANDISH	BREAK		BROKEN
+BROTHER		BUBBLY		BUC		BUILDER
+BUMP		BUMPS		BUMPY		BUNCH
+BURN		BURNED		BUSS		BUTTON
+BUZZING		BY		C9		CABINET
+CABLE		CABLES		CAGE		CAMERA
+CANISTER	CAR		CARRIAGE	CARRY
+CAVERNOUS	CB3		CBX		CEILING
+CENTRAL		CHAMBER		CHANNEL		CHASE
+CHIP		CHIPS		CHUCK		CIRCLE
+CIRCUIT		CIRCULATORY	CLC		CLIMB
+CLONES		CLOSE		COLUMN		COMMUNICATION
+COMPLEX		COMPUTER	CON		CONDITIONING
+CONDUCTOR	CONFIGURE	CONFIRM		CONNECTING
+CONSOL		CONSTRUCT	CONTAINER	CONTRA
+CONTROL		CONVEY		CORE		CORES
+CORNER		CORRIDOR	COUNT		CPU
+CRACKED		CREATORS	CREATURES	CRUSHED
+CRYOGENIC	CU1		CURRENT		CURSE
+CUSTOM		CUT		CUTTERS		CUTTING
+CX0		CX1		CX2		CX3
+CX4		CYLINDER	D		DAMAGE
+DAMN		DEAD		DEBARKATION	DEBRIS
+DECON		DELICATE	DENSE		DEPRESSION
+DESCRIBE	DESTROY		DETACH		DEVICE
+DIAL		DIALS		DIG		DISEMBARK
+DISFIGURED	DISPATCH	DON		DONATE
+DOOR		DOS		DOWN		DRAG
+DRAGGING	DRINK		DROP		DROPOF
+E		EAST		EAT		EGG-SHAPED
+EIGHTEEN	EIGHTH		ELECTRICAL	EMITTING
+END		ENTER		ENTRANCE	ENTRY
+EQUALS		EQUIPT		EXAMINE		EXCEPT
+EXCHANGE	EXIT		EXPERT		EXTENDING
+EXTENSION	FALLING		FARTHEST	FC
+FCS		FEED		FEEL		FIFTH
+FIGHT		FILTERING	FIND		FIRE
+FIRST		FIVE-INCH	FIX		FLAT
+FLIP		FLOOR		FLOW		FLOWSWITCH
+FLY		FOLLOW		FOO		FOR
+FORWARD		FOUR-INCH	FOURTEEN	FOURTH
+FRANKLIN	FRED		FRIED		FROM
+FRONT		FURTHEST	FUSE		GAMMA
+GAZE		GET		GF1		GG1
+GIVE		GLASS		GLIDER		GLOBE
+GO		GRASP		GRASPER		GRASPING
+GREEN		GREGORY		GRIN		GROOVE
+GROUP		HALLWAY		HALT		HAND
+HARDER		HEARING		HELL		HELLO
+HELP		HER		HI		HIGH
+HIM		HINT		HISSING		HISTORICAL
+HIT		HOLD		HOLDER		HOLE
+HOLLOW		HOME		HOP		HSP
+HUMANS		HURL		HURT		HYDROPONICS
+I		IC		IMBIBE		IMPOSSIBLE
+IN		INDEX		INJURE		INSERT
+INSIDE		INSTALL		INTERRUPTER	INVENTORY
+IRIS		IT		JAB		JACK
+JINGLING	JUMP		JUNCTION	JUNK
+KEY		KICK		KILL		KISS
+KLA		KNOCK		L		LAB
+LABORATORY	LADDER		LARGE		LAY
+LEAP		LEAVE		LEFT		LEVER
+LEVERS		LIBRARY		LIE		LIFE
+LIFT		LIGHTING	LINK		LISTEN
+LITTLE		LOC		LOCATION	LOOK
+LOWER		MACHINE		MAIN		MAINTENANCE
+MAXIMIZING	ME		MECHANICAL	MEDIUM
+METAL		METAPHOR	METERS		MH1
+MICRO		MICROSURGERY	MIDDLE		MINERAL
+MOBILE		MOLEST		MONITORS	MOVE
+MOVING		MP1		MUM		MURDER
+MUSH		MYSELF		N		NE
+NEGATIVE	NINE-INCH	NINETEEN	NO
+NOISELESS	NOISY		NONVERBAL	NORTH
+NOZZLE		NUTTOB		NW		OBJECT
+OFFER		ONE		OPEN		ORANGE
+OUR		OUT		OUTER		PANEL
+PASSAGE		PAT		PEBBLE		PEDESTRIANS
+PERIPHERAL	PET		PIANO		PICK
+PL-1		PLACE		PLAID		PLAIN
+PLAQUE		PLATES		PLATFORM	PLAY
+PLEASE		PLQ		PLUG		PLUS
+POET		POINT		POKE		POLARIZATION
+PORT		POSITION	PRESS		PRETTY
+PRIMARY		PRIMO		PROCEED		PROCESSOR
+PROJECTION	PULL		PURSUE		PUSH
+PUT		Q		QUART		QUARTET
+QUERY		QUIET		QUIT		R
+RAILING		RAISE		RAISED		RAMP
+RAP		RAPE		REACH		READ
+RECEPTACLE	RECESS		RECLINE		RED
+RELEASE		RELIEF		REMOVE		REPAIR
+REPLACE		REPLY		REPORT		RESEARCH
+RESTART		RESTORE		RHYMING		RIGHT
+RISING		RL		ROBOT		ROBOTS
+ROD		ROOM		ROUGH		ROUND
+RUB		RUBBLE		RUINED		RUMMAGE
+RUN		RX0		RX1		RX2
+RX3		RX4		S		S1
+S2		SAVE		SCANNING	SCORE
+SCREAM		SCRIPT		SE		SEARCH
+SECOND		SEE		SEEK		SEIZED
+SELF		SENDER		SENSA		SENSORY
+SET		SETUP		SEVENTEEN-INCH	SHAKE
+SHELF		SHHHHH		SHOOT		SHORT
+SHOUT		SHUT		SIFT		SIGN
+SIGNPOST	SILENT		SIT		SIX-INCH
+SIXTEEN-INCH	SIXTH		SKIM		SKIP
+SKYWALK		SLANTING	SLAY		SLEEP
+SLEEPY		SLICE		SLICER		SLIDE
+SLOPING		SMALL		SMASH		SMASHED
+SMELL		SMILE		SMOOTHE		SMUSHED
+SNIFF		SNIP		SNOOZY		SOCKET
+SOLID		SORT		SOUNDLESS	SOUTH
+SOUTHEAST	SPEAKER		SPEAKING	SPHERE
+SPOT		SQUARE		STAB		STABLE
+STAIR		STAIRS		STAIRWAY	STAND
+STARE		STARTLE		STEAL		STEP
+STEPS		STERILIZATION	STOP		STRAIGHT
+STRAND		STRANGLE	STRIKE		STRUCTURE
+STUFF		SUB		SUPPLY		SURFACE
+SURPRISE	SW		SWALLOW		SWAP
+SWEET		SWIM		SWITCH		T
+TABLE		TAKE		TALKING		TALL
+TASTE		TB		TECHNICAL	TELEVISION
+TEN-INCH	THIRD		THROUGH		THROW
+TINGING		TINY		TO		TOGETHER
+TOOL		TOP		TOSS		TOTAL
+TOUCH		TRA		TRACK		TRADE
+TRANSIT		TRANSMISSION	TRAVEL		TRES
+TRIO		TS		TUBES		TUG
+TURN		TV		TV1		TWELVE
+TWENTY-INCH	TWO		U		UNDER
+UNDERGROUND	UNITS		UNO		UNPLUG
+UNSCRIPT	UNTAGGED	UP		USABLE
+USING		VEHICLE		VERBAL		VERSION
+VISUAL		W		W1		WADE
+WAIT		WAKE		WALDO		WALK
+WALKWAY		WALL		WALLS		WATER
+WAVE		WAVY		WEAR		WEATHER
+WEDGE		WEST		WH		WHAT
+WHATS		WHEEL		WHERE		WHIZ
+WHY		WIRE		WIRING		WORK
+Y		YANK		YELL		YELLOW
+YES		YOU		YOURSELF	ZAP
+ZERO		ZIP		ZORK		   
\ No newline at end of file
diff --git a/suspended.xzap b/suspended.xzap
new file mode 100644
index 0000000..2bf9579
--- /dev/null
+++ b/suspended.xzap
@@ -0,0 +1,51 @@
+	.INSERT "SUSPENDEDFREQ"
+
+
+	.INSERT "SUSPENDEDDAT"			; DATA IS IN THIS FILE
+
+
+	.INSERT "MACROS"
+
+
+	.INSERT "GLOBALS"
+
+
+	.INSERT "SYNTAX"
+
+
+	.INSERT "CLOCK"
+
+
+	.INSERT "MAIN"
+
+
+	.INSERT "PARSER"
+
+
+	.INSERT "CRUFTY"
+
+
+	.INSERT "VERBS"
+
+
+	.INSERT "ROBOTS"
+
+
+	.INSERT "ROOMS"
+
+
+	.INSERT "OBJECTS"
+
+
+	.INSERT "GOAL"
+
+
+	.INSERT "PEOPLE"
+
+
+	.INSERT "SETUP"
+
+	
+	.INSERT "SUSPENDEDSTR"
+
+	.END
diff --git a/suspended.zil b/suspended.zil
new file mode 100644
index 0000000..9349c4a
--- /dev/null
+++ b/suspended.zil
@@ -0,0 +1,58 @@
+"SUSPENSION for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+<SNAME "SUSPENDED">
+
+<SETG STRS <IVECTOR 2000 "">>
+<SETG TBLS <IUVECTOR 400 ()>>
+ ;<GC-MON T>
+<COND (<GASSIGNED? ZILCH> <GC 0 T>)
+      (T <GC 0 T 5>)>
+<BLOAT 90000 0 0 3500 0 0 0 0 0 512>
+
+<SET REDEFINE T>
+
+<GLOBAL BIGFIX 10000>
+
+<OR <GASSIGNED? ZILCH>
+    <SETG WBREAKS <STRING !\" !\= !,WBREAKS>>>
+
+<OR <GASSIGNED? INSERT-CRUFTY>
+    <DEFINE INSERT-CRUFTY (STR) <IFILE .STR T>>>
+
+<DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
+	<INSERT-FILE .STR .FLOAD?>>
+
+<PRINC "SUSPENDED: Interlogic Science Fiction
+">
+
+<COND (<GASSIGNED? PREDGEN>
+       <ID 0>)>
+
+<IFILE "MACROS" T>
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+<PROPDEF VALUE 0>
+
+<IFILE "SYNTAX" T>
+<ENDLOAD>
+<IFILE "GLOBALS" T>
+<IFILE "CLOCK" T>
+<IFILE "MAIN" T>
+<IFILE "PARSER" T>
+<INSERT-CRUFTY "CRUFTY">
+<IFILE "VERBS" T>
+
+
+;"MIKE: Add your files here, as with ROBOTS"
+
+
+<IFILE "STATUS" T>
+<IFILE "ROBOTS" T>
+<IFILE "ROOMS" T>
+<IFILE "OBJECTS" T>
+<IFILE "GOAL" T>
+<IFILE "PEOPLE" T>
+<IFILE "SETUP" T>
diff --git a/suspended.zip b/suspended.zip
new file mode 100644
index 0000000000000000000000000000000000000000..a3075f88608bbcce89d2ab8b9cac092bd70e90fa
GIT binary patch
literal 105492
zcmeFacU)A*_b`0!HgF9}F)BsHtGn(lf}kLXs4UWZFDfck!G^uVT0lh<5flN-TGj$;
zKtU7>pfnY1n5a=B#uB56A!?#AQJ*uj3y4p?-{<{&-p~8|^ZxF9xaXXiGiT16In(Z)
zyKn)tokvdo+3F<cdEd$6GyuC{mNrAJII=6kj6dN2c*PYeR9hz-B`8z|<_Gyt6<Zx=
zAKk6APZ%MH3s<PJs;*BKMMw=5D%0j(cs~tsM_c$7ZyNYA*#O%Sf*O9bYn`cq`DvJa
zr<AY9b6!h06)L^jA00j1t(!;cxA5ckKjvHHDpdZz5jho;XWy|w4kGoCsX-6#TMCuY
zbA`(K?m@oZOgC9%b1|Q!web6R1!8>fH!n=Z*`#c<Q?f<&*)9CY5a$M&=T%b!p<j;&
zRhn4TUWVLycY5_!s9dfc<S)rrsBB#C@r`UH7vJ%%Z!1)B<w4%1e52>v_!HMOo9flZ
zB$7JIo|7D+TT;XND*xXO8M@qwmnl>?CI>ecn(lCnZM5>h8r9djctjMo_~zN5b}?at
z8xHdIWw9q)__L4JI*P`R5E332v{&@zgM9nN*Z2lEpYh|LdjyH|Tlo5gk>A>c<%?{>
z4yuf-h>i-?Y_y5<trExR&1UBI(=o2bJ5SGfLau@H&Ah16M5#h$Vcp92%~PoQcsBCg
zulUKln|C_~qQ;?b`iDoOHTy-N*5gkJNlQI(G&CGJ^QS5Ub7RpXu%BAWXS03W<4{+<
z9-b9(VJ&<c-;z^c3M>o&5exzeNWlz-fF)RgHQ0h3*n<N&f)hA{D|mnx_&@*zK?sCH
z1WbTQ5Dl>q4~Z}Xl3)(ZhsCfQ6tEiBKssc=M%V<|um!e3K5U0wuow2jK`4U5a1_3Q
zV^9hw;1ryJN~ne!sE3Pi8Jgfad<(bW4%~(N@Bkjc&+rSpgjRS3f5JQX2R<^ua2Wy9
zh3U$4XAJ(2uKeE^_$09l2f93<2p78iNf90hbtu9I;XsNAKsb^jS|ALh2!JqwA`A!>
zuuT_qgxbPf?XOG$vkH#_LArpjQ5%`oV9fI_+PbjDy=zy2HZlhTbd_jh+6+XT2r`L<
zuHy+Z*%rDc5@aDJEg(oHBAEnPgvddHEJmanu<g=&L)Y&>+Z1|Z%uD#n5-s2BD*@qI
z0PqzpLV?I|60-skSHiq@415(vVuCPcI+3F=g0GfIFlM4De3eZROe&>FKlrLyTZkGC
zfUjOr1VE=7MX=T~?QNSNe<bL*5@a?e#Svr<BCA2$5`7AE_5#*D1tdCWNa^NgpmU!h
zgF&a2A^_dET{h{$II!r}lg7xPn<YVpT0*z66tRMCp%g*p1Z`vvhhg28(U>97Z7ZPP
z26uyQ2Y>_UlF+SQ8<C(s(CsIp>SR0U_76n>y7!=n9&{g!jiWsUW1NA<LjEY|9z(1#
z8e@{R1pxV@q5C!fUG!jw?&SdenYEa72XvLX={=$Q8`AD6QYT$~OaeJFS`mG`ok7=w
zA}*jCPZ3wpT}2V(QBq_q=$_SHi!R~mq5D0FaR<<2Xv|k$di_a^C&sui3QJgP;-(iz
zV*GtUkIM1Kq}?>e2lOhnQNx|!r}sb`?VP(A^wAaoXV-(iDMf;Z>q{vTVy*8+kx<Z|
zL6I=f&!k8==%1oU#8CZjDKZZ9|Dwova|0uaOaKE%ibR6JM2buVgB28+)Zaiwk;wxM
zE>a|FguyF{L_-flio`&VQ51=V9x)V&gC6TB5)VBJDKZ6mG*M)#eUG;kNr11_*%RSw
z8yYjs=Ie13nGRnsr^pQWdJjcrcK^DbBD3J@7Zgc?o_vbrLr)1s=7@XxP-O0)o--*j
z4|--%WIpsPp~wR0*-VjzhCSa?BvZdvUy3a5(Q7nCmVDhyZG@%JYZ;AM2EBGtWI6O|
zq)0OK`ja9l&>I~Z8zo2HTTGD^eS3RQWTkQMxfEFiz4Ixu8hV#gBo%t!rbrs}{zQ>A
zV8~Krt&X7!Mb>#6CQ>9F3^!6_hoj+fiUegCe%nQ%yK+5%;bVeSW`Pk7PxLY}r#y=`
z8I96b=qfS|z-T-{Dzm|889{OZjB;trRxncghGL7+w<IP9lU~uJJTO+bPT)3Udzvc%
zjHlA1?O?2K+}Q=j`$$Z_2#jlK(k?K5N=t{GCJZX3*a7|~5`t6~f{6zin$GP8lUPJ_
z&+P$|MKoqFn50u=ADHZ-hzd+fD6$_+Dk*XROs-MnAegjJ1i<7SMU>D-8?=E_Sp<Fh
zX=^i3c^LXQkfh2Z(8rx3N1;zBu}<YT(1(-`mBr8}i6SM?Cxs%%pwBjn9EUzdl(`i8
zl+&0p=tE1dEQdZXsFeZw{6l$8LSH)FRGxyqI9#CQ3h3L1BB!CRj3Q^CuMI^2`Z^K>
zAh)jv0hJpL_4U&FfMXM!>pPL7@BD1@7+{jDzq9u>OLUdhSW3sA1&;3Hn)J`3=U7R{
z=aT4cxt~XS43&<b4IF)5P1@(t*2ARZy?~>~yO#ZV^l%&Lco7kDZP(|~cDB-SpMYa9
z@Lne&_9LX@?x2v^YdN2D&mAcpcN};YZ~RPg4J9H;4jB$-g$~kj8-S}9J9S%@%NWpV
zwVO8LwcVQGy*=NJIwBnxDH)dvyuhbE>D-O?U0TQ9unv%$Iarw`_Dvk?;v|<wd<&d@
z5l^#Qtt}h|IG!H*gIU5SPnQ5^X+*9hq7u074K~dORimMQ>qtWft5MVKHku{8O>`UY
zS|E*>B8kWZ-ke-V!`{CWo}tC^0=c8Dx6J*SG(rws3vsO0A-mRL1BaQ}E+3ID^p!>!
zNFqi6$7OusJ4^d>((oseh_1j9)z$MYhp&}}SAv$_(HQH<1|w7bLQ(kR>y{1&Wj8#e
z;d!8?dvV6?z>ly+DvJ@<s7ONd9BKGm&@zzqKR!a>%nR`_Gt3u}gqt<ea3A37HH#uS
z?P9*2D-9n6yuNSbL0p|evoXw@q%mt8{*W#4l!i0FHE9?dqL?rSw3Dm@hCNH%=e@*B
z8g>__wD(bk1GSp5c0F2$9kR|HS#2{u-OqR5Ngrw05lL7xa3@@GX)ab-j;fc2tpRSI
zp#Fs|s-$5fhB->ZqJZPO>!U2m!DQ4(*}GZNu#v!zx*zB1eWv@$R+Xi7fUMYG8um4C
zboSikCplPI&k#P7hW-YeQ1M;QR)?QPvqOzW3C$8_2;WIVFJfNzzyz+zNJ*)xRlZ@^
zpTj;3Ut*RpPF52j4K0v_Rs%2YXryV(#wR+RlILLZ3`uA<@XT+;bR-X7GVBA%Jr|S5
zNJ8U)N5pevzlK@bmzyO7%4!0op?Z=~TNe0g$=Ga9G--2!q#=(ap<P%IsKtJkHaA!r
zQYHzx%L0$~r@Yb7&^k7Fq=VhwVH?a6dU=M0hDbx!NJ5VMm*faZNXmanHj{(|05?9z
zSt~EKco<_dUVhGO>Ictp5#iDhKJa6#Cp1d5d%tXoXtnmV8Sh{<?0d7RKc`Qc7&&3Q
zH248<NrzBOz!or@dQ3Q38tenyzG4>Er_!i>!YFC*AdIq?aA-T3P2DGqmIgDx8TzI<
zaWs6LWcQ<!=isR~%%+}{1}~Qc&j;@8qj8Sy`D3I(cYzzy?AVb%RvJ_W+@a59liRuC
zq(Pa$T^!)LU8BoBVZ1ab;onQyD+#^`oJbE1>tW#(Y0y~UnBFLS+UhiEOz7|>j-_T(
z<(Fnme>W{LVX8DpOA=%bJcHHN>3YsJs@Ab5#_o2oLXVj$^-P*IQyO?j5{RP@ahIgg
z>*X6r{JCedrGYre5Kmw%us01~A*_)Gu95^6vA8It{w1oz?uYSnq=7+_z@;p3)gI6m
zKUW$!KoaQ10`{sIJ|pxFs#-}4STD7nXEx<hV&$`+=Sc%zO9G97Gy4`Mj=f>uY-5Ej
zF-4JndeOoK^Q8ez0AtW+MmpF84_{*EZZ;)Iwq&t1V3#DI76(A<x#}+9@Y0SW-(dZn
z*_0u&WlN<2vm^nzz%{M6PkfBsHMZ4ylJzEQPaNx}7$!ceOkOSx7$XV5m1^tAc-!T6
zl_Wv8aMj9pD-<cx06j^7Eh)8o>)31@=kAS_nZ-929$C|nmbzN%|40(h1>J2689B%}
z=d^Uhlrd|};?EVHU0<KRZmrb+EXuX1aWb{}$+3Uo#trW?j#NnfGbR3IIFQ#URmCGp
zQR+Uk_^E~2o3l0@&y@NnNc?epXis#SM-sQ?ZryS`N9sRP;y>*3#N#9}@A%;(MIWU8
ze2Kr=XNk_{Br*TQ>66FHq<#-1ez!hLbZ8-o+lxz%7aWuN9g_H61p#SYqmSGktdJOr
z-|Dz*^xwlLj{0PlIL32yQH^w*jbxlTaQYv;scN-uu&y4yWYi9na%s<Q<*uDOj!XTP
zO8j=K8$Eh$b%aL58;yv>6LTHMNFzQ-#^IFrnGB~HM8?4b`&Ik)q6{C2-(2A7KJL9u
zpLY<42%}<~@xyu!ePR|r*|YN9A*tUWV6OevYF%yJFnr1IDw6le@x$*v6ctK+|C0Fi
z`z+PzJCb_rcuDcQZ;ncRFG_rW?^Lq0n53U9KXJOO^tjZwK;l~s95RQF2Hn<S-5oMU
z9v*(mEUqQ}a?|OGQ&Qjg65km(qwe$HoaNGLqcvigO+HEAm|j(R?(7+<ua(3%3{6~E
zC$b!200O;UOEP3LO?mhPL}eIaX>+#Q0kQ7@5d;myfm2)eWuUbcnb5?2bB(PZ)Eb8*
z*{9j3blWGa7W;lJf)K(bAY8+$^m<Huxj)w=$SBw_)Y2w{aA;{bx)>zdG`KkG$xLoJ
z-mweUy>+nGB*ebt7t7%zh3CaSe~BOz1r5Mw4LsfJA^Tx{7T+-3(spyV1Hx-!pBEws
z8;BiPpkHq9I;l!e$7pV$$Rx}#!qWP<uWIih;RUhJeG!Bc9-i*=*ebnPrOG7SXoBH5
zlwq;&fbgo==c))I2!ob^kj)-=YZ0&ie&56zl}Uu*_%<;$VxMXejH6=o(mY*>8YbiP
zCa4v;BKA2hg7NB9*BDd1pnWRi2&2dz<MqQVZKc9mv5!gw6EJ-M?#2Xqf*E1H`IC7Q
za~f2}6O7_5t=E~wEfD*x7eS<kN87;GXwgVhy&itHfu_VJhEbL_3Ed6~?~8qwiy(?T
zdFY~dPW&b`dqi(o8@PC47Np&GHH@ZQW^tCndt#qiB8Vo8+6L*y=CYR0gvGS8Jresw
zi6Dls@eOpBrn!P%+9g+$iN?{Ec5}?)gu*(pPmsF60ZcoO?(@gBCX<X~jG`=u`D(aa
z)TMpSb^Y7@CX<b#4Pz~b25Pu$)rG0Ktb=*Mw<k9qRGGvW#92CI3+u%`QW3<WHUmI`
zjruaG*;2z|5U(FgSQ^AW#v+JoV=>SP{0r;<c7*jkm2sreeEm4|uWtLyV&4ldioHLH
zAf8%u6Rw)}yE+(Gk)|<87<u46X_vcV@83l*h5FZI;OkrTeTqKR<Gzb=f~Czu;U%&6
zBM~G}Kh~rL#XoHlnoKjAYB<Hx)|PO5tL7Mh%Wo}xSNp}Xcpo98^%p+k8%?vcYBh^}
zCcG^6J|%)_RE}B;-M2<lOI0S*jS~$MEQg&ViWI3ih#Y}N)gBWQ@2N~?7|k@CW@(d3
zn0AO@I@K1JE(Uti5Ljz{V@H_LEW_!R)`!hvuL>K*-kBnpF%WnI@Tmir2r8&GnPoiP
zC`s(SLIg8uZtO3*4RLozT9^UxE#nzRDTXsGhkhmYo-2Y`G&4h3`iD>ESzmWcd#5s<
zX|&vMnWbH;uu1G4CxWDbz#V`~BtGd=`p<)}prUgO^DRePn#Cq#pYrw)!EDkW__WjJ
z%Jx@0F_~*P8yULoAuQL#-XldYhp-5ApZi$&DD?No2ufTG=jhEN&HRJd+gt>5NxGIn
zk7?$T+p!u)=rLDsKH<17_U<Qwd7U`M1P!pb5oa84w6w=OOM6GcqbGv-$U{0FUr*>~
zYlNNZzKh9X<3&ab4KtIhUtmK&7JG9=uwWq0?EJQM`Ubx7f*zUri!B|#5#A7c{UL&d
zG+nbQ=PFf33k)*#X!=dD*BucoBI#VRI9E(HSz@@L$0CD;B=@&sugfA>Oj5P<^W(xG
z%kHhwN77wQmKrX$w67I@C-yokf+d8bt?l3Y7*=FYh;;$u`9^7mORzG;Zh`0oUf+md
zDY6cL9w0E#3q0zh&<w9h5y(&6pK{(3d+ip%GTKnQHdioCGD;SEWs6`rjpww-FE?5x
z_DU5&vL;?&ps(W`6B0Taa&K%lo@JC{DGw386MHQbL5jvfv<(bpFI^rOTXe+%)BQR2
zzZLe|7aFcYR}|hBd*Q}V(Z;DKW3yv#*vH46pG-a0ILAmq*zSnEd_=H9!^YE-8LG$5
zRit-*FZLQEf|VMDc<N4(EizFUCmXG_l;;pzSczbjhC#c1INTgKGd{OPWt3|<GPj%3
zEXEZFLob}Sa;bsUBddO}&z&3ZOf)RfWMK8eNlVS5c1X2Vjh7m%Lz|*Qdf}9nMh)K^
zhbC984)g3VT#M%Ew%;u3x$uG56WekPDN0M<S7asOwOP?*jd40<6Sjywu@To&b#$AD
zqVucEGRW0WBkgxU_)zSLjkk`Lrj5;PWYQsKhmpE8;g4cZY{?x&49~!MAa9D>L6xz>
za=0~c^$P<_$j&vkbwrkfmCZLJ9n2=ZN&orTPfwpnJv}6zvm~DKL7?@oj1e(vMv~4m
zaPa5h+YdXlh}DB|j^L?xtLWeh^cU$-_ih$@{Um}+q6Nob!|5kjXz}RPV{1k)?^a|M
zVJmy{T<Xyz@u(ey!^OWa#2^Dr(l0H-bqmQms-HS9>-o!@7gCR15|7+Lz{iIY{~JdP
z;UH-|y`Xs7rHoUIR#@7O7JDU#AV=d@9Nq8t)e>8bUOn{U=;e<4iDEj1zqkJO^3AVO
zkJ%EB1l&O5rtDwXVl-@oL7*8wbd1~zpBS$;+F_Wgzb?u8uw5ZeIFp-j81cmJL0o76
zd6r}#yehz_#aN*+k+eeL?_{suNIgbMJfd(9_Ad+(F~~rY_;ih-9yRHhi4$6~@QT<w
zOa%F4#N!yG)mm#T?Wz`jTlN}->qtC?4f<CG6#g28<9MrH4yb#8ajwxC!*q2=nS59H
zNbHG&0Cg#j-mTMobrJU6)kS2<{&*vGe<1PT;~EwhieEBd5r1G2I0|}ZkHiVNcx3L#
zaHp%d$#=uOUyQioU8~~{^6vH<9G^(taElisyQwOcYdhW={@iTHBf{1PIK#6Js)|SH
zjhN|h8Dm`ElHF9r^rW$OtnW)*uLHAwTawdC>u}+pQrEo_SKK*@-0t5l9`0oCHu|X4
zbvXzOZ!tZ5EaGnZ;M0pF8`)52;ajOIu4~D{7@sWJ_z<zU35jZKR27doIi}L;qvzl6
z|B|}$C9Y;57;xP_LDmwWow)z1sCA^x$c8a~W0TE>Y>>J<0A?NE(ssG<AF0bJ;P&^W
z&qu6xN?o#nlXSgCl{9wz*l4NC4B%K;-*{qa`$p>G1{~J9DcsWfFR6>61fOH^w0Z32
zu!zEU#kQMm^K49nAEeGNBrbY55-&7Ls%=iPyJ;tvI-iv|Kf+di^8??~*;?wH3xZIw
zPXummj3VQAyI9&p3qMMo6C}==pp}>)`(<Ljk14x3RQ5(?Y4f%4lhk>n#5oEd;WUdk
zD?(fC`^di^AsI0WIAOw{t+6h^bzN(WGiB09p8W^hdpDMgl15Lp!+nj5*JD+&eeuv=
zhQ0@`_^H*#rc}$}-vZa=c3e=!bW3}DhT|8wBg}HddmIgLTM3pUCk??jDwXB{<c&$k
zH8GFi6W56sh~vfK6PJqJC(f8SX=1=cmx&`MnoTsEs56m?{5A4!q*tWzgtrr#C!|cU
znqV;gQAB<4^&ouI={w0M&qv3*-t#Zd7oPV$uX<K{4)b^|s&K#VzQ%o_dxHCTcRx~s
zyWHK@-Q2yOyPkU&x4!{IhuwZ%l>*>~?~y>u?W$X~+i|yDqJ5(6gqvI<yMZ?cCJp>*
zz(F;Qt4&24_BkA|Xh7@$|IcFx&aUl`uYJC_aB2MSms=LT2knmUN6A$RrSzo>;K<6y
zZcZ=LzNjZYO{Q00jAby#Q0R;ARiTXsvCm5onCb$U@<?pIKk;qsQ2Z0(``FK~SS0iY
z=~_h(Nwb`XZ~1pZ0lsbB0-N#8Yeq^jhLV)yDP<`qaagvc!4=CKN_D}$jV1F?M*(X3
zKiB^i3*Zaf|6g6iLI3Ca9}E1C1wOL?H|6J)4+<UNDvT6E6r*wc{ru`owWZLRVa8W&
zq<W^9VgLUzohoV&-4;C)y%TGTdy6GvyDxP8a^CoY9uzug@}MPyRu9@ZNI9r*(3wGX
zgRTwwe$X$2K1%E)o|0h6OvxfizGR=|JIOQ2E9qC#p3<q(CDIJ(PU%7EF=?apJ86sb
zx%3}dH(76)OcpGgC|e}kEW2mc)6CRts9CVtOtWofg=URr-<h?Ty&udQEFP>FoId#Q
z;B$j-5B_oRo53H=EzRxCoy~pC!_5=Tmzi%g-)4Ty{ET^>`7`tP7GGKPw6L>qvhcQ;
zXff4diA9dZev2xLR~G*a5e(5CVl-s%kl{ldhj<PN9x`#r)FE?*ENh#d?SRXCpr*Ie
zMA>N?VnO>9KEEBC2OJJi_PHGRi!jb@Pn!cAjRZV6L$BHGX-VzaEMSnUA5Pd`5n1m5
zs$eF~hp=4&o+P5z4A5deQEWQ%9*n^fkCpsQp)T_~ji1JRq|lV1>VT<6heVY1H=ZQ2
zganMCuw93#z~$f>EKHk1HJ}iSK}fYD0waLO0d*Yn8tGQBpmu772$a_iW8yWu)({5*
zTIzX-<>1LKI1gQ^l_*5DC`2{STVgua7$MeQeZ?^Ea2W#-L#6e`XC%=?J6fqI4!j{;
zPMSJJQJ(H-u}L6Ad*Gr9CSxs)5E@V|F$MGJ!(^Dqf!72&ao{bbQF{}tVRz;&g+^#E
zLU%*i`dF$H+DmQ0NKzzTk+e04<#bS=-hC`z>0k^!000v-J~N@+UgO)XJC5kzN+ftv
zoj_wbVpG!gfOQXV=MHPfLWw`ndWUH08$x2Roj4GzPT>T%mls62^{}8o<fah#8twcw
z+WDhx$mP$V5WE7ghUAc)Kb6uOF+ZX!t&*>X*H=@vZ+pM+VbrG|d^9OO<dhw@@=EaL
z;CVhZ#8##BuM}eW)WfMA($EfM^N|K7)GN}U5A8c?&=s^arF(IJs)|r!ITVDKhsJ^)
zni_d%bnpNMEz-A-<#}gp6Y3=7%oV-dfycp9hIqMY`ly?x54mCeiLba}-Tqd$y2j$J
z8o92($2<mT8W+@613wz}YHfAF9EPZz3vyD3_J5D9)mr6DWgsNw(#|>-eU2E~iE3>L
zW2kh5L~H8*^7eLgBrQO5jnUZRGj5Gmqk*UC<)bt$Dbo1rC=JIb=-QUTd52oP0SC@s
zYDhWXzyRhqYMqe`H89v~EIL3Vc>wl9l8?o4h1h5W<t9*51Rf#fQ62zWO<A@YyW;yw
zdfCz*Lr@cS1Pn(@zo(;*j;1^tjSL%Vfxg(gtf?oHwj72<k(goa))|T;3mJU?tTe4`
zrK!0Uqdxj<#h@#abb2SSO<&7)YzWGGOVcgd<M6ejhOuoIJecT#y6UExkrwHlrYmdb
zk!qw%+clGrc6-+c6fj65XAtoNj1af;h}uiT2V0tXgQa#L?LkHx0@b4Nt+od1uPLj4
zdyJ_j246KIPY=x1S0nGUzQh6SWZ0*u6zpr1_iOZ6V~UZn&Il!v0mc#xHC8mF{ir9#
z^`@ouMXZ;mv|gl!fA#9!3O!MG3Q=}1l-QG4>VqMse2p=rH+<bbTJ*qvLi~q}Gvvb8
zl2{g*xyVRMp#J|hll?>EyQ5`DdiQpHyS4Xn9fE!8hw{Fn7?F(Ub!c7jJT4*e>e6m+
z?RHG79TT);{C14jj*)G=`r@=>csf}V2Qb!OKF?{m(*P$6xoe=2e0Qja-y**>7kj_w
zUU%GUeV6zi@on%u=pP+u>*g|csYhanozHrY{vMNE7y3&*Vts$|V0>RV{^DgDcF^~|
ztD(zVkE6i{T)kaqdwP3DI_(Z^UK-@_x7QC|xqipJy*%AL3Ibn_zUVd3YgkZs-`~96
zy8RKT>!0E5=pNuLcD?D9?LE%>fH&iNCq(Ho$orJnGr!wG!-GOS--dF7AA0@crgA&(
z6YsRr)7fW}zrN35=K=nVZ@%B3eqq6fUDt<9^V%4&!#&TZ#ObC}c+lM7@m`O-gMBCX
zEBxpA<pnwgE)3k$UhPhZGaaYgzv&eD1)=64k&Z3uB$pd5w+QCi&(%#G^X1(Gk05@2
zxt%A}*!uw9|Gt85XAVBqj{d(vzP9=qURXQ8FGGjGul5YQ95xhwbE<~cp}XLByT0(s
zVGO*s3xzjUZ{ZJzRQS_jA-o-03hzc-gujN@!+WP!@VCQw_{YHqK8$UFk52mVi96VW
z)#B{yQJpQ5KL-Sf@}1DrB}c`31wG>s{0_ZD2wI`H3IUEdZ(fMBUx1-@QSUuXjA5_l
z-r9eFVecH3f&oLr)A91(2$)Hzk@-{QN(6;}QR;LLwiyhkRlJh_1%_!Ai?n|Q!y7p&
zc_SF!%2Baz5$wrEP9rNU=ua@RDXraejWHrhd<3KT`UmpkV3dFq&X3b;o7sn8wCMLR
z`ED>OtFM*s0i)-bhW#4P74V*e(eEhw10EX9-Nvp0qc_hJv~kXOi;>uobrF0A##k}!
zcVIjsPe;C&0A2Y$F!tC+s$%R>k;=XV<FslQ`71CvLhENzyN{%qG*qd<g%H*YsS9Z&
zvQf=KsxlNzZr#5`B5zkm5OAl=MgA1}cu<x;9xWt$AD@Z@?cbnJ&~8cv?JgvdL8@l<
z2j~;AO||DL(+6d;lc3Mdx(v1&`rJ9Fk{3f?@gtG^1RmhTG%M(9(Ik>LLtpDXeEAgw
zttvU5=^Q}|>T7>c#bSoE`y#mt`sS6YcrT&v4t3ft%x(*PpH{@N#}PE?VCe`f<bOcl
z=lN9Fo9ZBT3G{vQglN{!ZRcoq7xZ(d+57p{%GlS?FYqQ&zF*)iz8ciBhoK+Vh+PEz
z!WvbmXTPu}4|YHF3vW@enb0o++vp8~r=+F(P5RKx{tf+Vu^oN^(-KrE5=`qW5;2W@
z?4kzY1mNp@0`T+}I}J>mPa6^nZB4=bItm`t%6|gWyM?a__2e*3`#@Rx`_?vNWdES2
zPua)Ne}BVsLhZjo3hKZAp^Lm6$k7`@9i>(2UxD`g1^VCGBO{Tw_WCNB<p=`UBw!^}
zCTr2~M7|%$b9iK7tx?KBV6&bF5o+`0Aof=T-;wO>=3B%I*lety4Fc62N*!=lGIBQi
zNTd85Mjp9^-Ga?-a%cZU@M9Kbd1On$<0}+AeX0g;DEM_E8wzYLwF{eD#Alx%)f7h3
za_?UxApfdJehAnKwYpFD2w6{HpBGrOPYJLmEbku{vVOpRyq=EK0GEBl1OvkE2eAtg
zV2ui4K={+msNeu>IC&9*C!_=f&1?n?P$^YxDS~|}_9y~$H_V_qtYY^fC|0pMV8Hc?
z1k5lH2M_J{Fz`lRI=bn=8|WH^AadQO+Vedla?5W;7V^S{0QVb<**hQ#I3-}e0a4IH
z7j`v>LhchIi^BK3#6dt5{`3t>5k+9XeFo&~Ba&8ELzE|nV+p{XBR>qH+l6lOBM6Q(
zvMK~O@5rk`jO`%*6G4GYehS1n_eehRHfkmD_C}(o_-V09-h`lJBT0LCg)ct};x{){
z@^27)w;m%USfgRawUXP9DY%0&i$R)!qs=^!HkQlScmm8>dyvWY+Op?B=KGTcn+!4>
z!7#gQap4nr34(jXF=dM%)DrN0z8&v9f{If}neD&WjI}j8Sa^!}8bN8Z{2rJceXNon
z1GBQizi@0dJ5`v#t|wp-W*B@ON5wQ4eCtUeyAI6xv><c!&}{CxPldHL_pDLLe+Bc)
zPgJZmnByB79P-SsKM7+$fO#{rlz};(GQ@sse(RBloeSo751wIT!2EuWs*1U5A%3i4
zeZj&4E%6e_>nJQ1KM_;0%MiRaA=GHJ#7VHos@sme$|47Sek54rV)MU3(0Yro<lj5P
zPC@WM#*QVxob>>Ur&shy+H>lI7B3HpSS8>Wek$!Z2(F4)2N)8D6-$R9;ne3XZ#2~I
zxx!dJKy~ZEiumVGU=>HRTcxVOT}(R#L&cBy>?jy&p(4IJ)Ov>t0jZebH4J_FBgu!L
zkVHQH@hJNb41Hc0$L1n9mP;aEqPM;Pa+H-&Z=S2z1z>%>K5frk#`-!o#~ZLFraJ}J
zw^U)+DmJe7o7vyMCV+aRO+a0$yaFk-*=eu|qpf07i=|^^W2uTg3pO|nqG+3D6oxFf
zA2zeI5IoIgZ-5Q)tbH&%3rqM30j&dhn~52QqmkK47`|CeZ9&c-!S-t^%r-Ee_=Ig(
zjS2@c+b|Tp4{R^~u!X$`cIdnEZ7@RZA@*)3pQC%*hcx$=p9T9kY^uM&KA}j(ehc=q
zo<GNY_KVQnkXm#~M$#5NzK$KpesSSjEWv*9)j$fa(R@n_7o%wVmvoLBi6uDy^Y=&*
zRmq_qi){u6oIcq^7}b2tf{lPNIEBb7VNB3o3zRY@h)%8Yi8O;8IptL#$CsekZ{@dJ
zRPyuSBu1AS22S&EguVdIDwJ6d&L|qQJJ;VJW2Ey%Y9;)#(S>~m&Oac_esFQ61-ZEX
z>LRZJ@<tLl$vJE_ct=3}y<1A=lFKD^hRX+4dp0sIm(g^$z@@R=f(-(f<|^z6*IjNu
z394dhUG6-UvG2ikEiK)3ZGlA<Q|Fq4TGxZ?cI@F7!M&l3^l<kpjVks5f~zw2GPvKb
z@MUwr!-eMaa4&6EGBZ6qP6x7X;1Q88Vk-zZ!v2DwkZ9(ywwjEQ9yrnx(C|Yls~}(-
zyAnJu?w7GG;L(h8V<330sgSWhgJ)Keq5L*@W}mjk44wtp5iTL9n9hcQr&@|vAR5vV
zyu#3FtHCS0l!*4aU1)~D8_jB90zRmqfj;<n7g(^P!KWF=g2@PqWNZ}prlOVJgYU+N
z0qhY3Kgw8V1dnRj5b(|ZHH_T?zPV3`6mqB^W%@-tT|)roGtdL_kt<RGakwCO2LaR2
z>s}*3o1KC{jMV-Bfr*&*2Lvug&-w=f3ma9@hpq-bZAxcdAPD;r?>7j-Zm<0oLE#hj
zI|#y)ZQ6eVc_ojcgKxJq5<oi8eF$;eDPyxB#G{B58xmG=gaFJ=((10H5{kInH3${8
z9zrTqyxRqRK2&^4#BN4V5l18MdQ$KtTn*+?@J=Pa456|DA@3Q44yTP8YF|toCDb0*
zJ&q8XPTehZBTmVU5V{GQqZvZ8@?WxL5Spt_+jiQ5l=u7*Uw#t-e$L<up)VV5u@?|r
zN@d4D=$qZ1IA$TBrN24r&dz`^9A<E?3JZJWi34sJHX~*aBNh7=!c_?JV7%)Ck&@Ys
zfV9JSPh2Q{2jhK<MC?ff=-zoSfpC6=30LSsX~Gqp`)?uj(1Q(t2{&#M*O>4vvRpub
z%HM`a*WD`l9R&MS^6w$iy^u^<k?uvk*}o9fHe-*A#Pu$F0wMzr-o|+|GT@XKVF_$b
zl>ZEoA$hlOLWvBiX~0=6GNis17xIxIH~vB;BEt{fVxJ>;d`q5>;AyVB03y#_Y-V2o
zIaENT+(u7sfQceh=@Z~lBCOvVa-s;+Ca$9mK+eJPUckis5*1s5ph?6og-LFh;XZ<$
z#1fNyac#N}CIvP$${S!(5T?C`Nn}xzj{p}n+Y#WRCJzBFYPKQ3MNKwLMq?Qm!sJ7=
zpvi@5Kqi~*5GA-WlRXAecpOl^1EP8zydi&!pyHJL2Z(aPd_5q_^}Y_47v+8<fvtfk
zPb{_!0XiQ7-wz(_PKXMi%h#wNRhW`-iVA9}MRlWse#~WGK@@4*Rs_#gxG;+vU$~gH
zgQ)%0F7g(LDy$`L8g-=X2)hZQN}I`6A*%F&h`os5g^1`<fero=qR6m@O5kx7lA-ZR
zDFN3}SOG-c!4mdE)cxFzY%GE&o~%CsDt0(TcWWRG9^LIGnQWr_wq9rJAX<FYf=xw$
z9ibYcWrZrXk$`jTL5Q}%epEyNnSG-zR4(#|5N-W!GkXi7UF$^bI|L6^xS&H&$a+Jx
zXPrp?2%>#!U2xis4sJGQPeb%LO!I;0nMdMC+Dt4RWzK8<$nF7hs-B3>!k)SYqOm(+
z#iH|@tk?+%a0oIappd-|(S`X!!daN#jctYKBZbciRZ9C`^!NGC*@+M%-cITeBgWxk
zErN<C$U+Voslh)K;GXLMMq(4!BY0qiTf`Vyz6d91a`>o<c^o67+lUz1{p;*)h_Oa>
z-$0CQUL!jjK|Wa$Bbd&PM^GV@KSA&_8JA-0v3}n|47w@%BgBM!H=0C-9d2MhBKYnl
zDJT`4$N*x}>a20rj!8q&_aG)6JM$Tc*@%tv6u}d+or^^`B|yECioJ&Z`4hxmuWn`u
zs8O+15PSQH3$9yZpHR*?_Y*VOn-CXJG?SeQaY5Mpae%*@K%~T>m-9X#XjJju;?FPK
z7qN37uDsb>`y&CVxX6fWE@@^{5WG{d;Si5{YJY<Gj3RU1uMnS8qf#>C;&F|_)<gU@
zoXUTJ_&l`PA&Ae%p#)i;V%i7<d-zyh{8N<+RxJMM)o$#40`&KsV&b3v8h~9i{&@=u
zI}rc!8qsVDpDI7at%&5C;+;c=!zpC<`4XnYq09sX*qNupl=S*Uc0PiuquFSff@@RE
zFja+m{tbx<g-^6w3HXKm1c@_$BEk~qQI^E{_1^Lukhlo99}ggLab5<y7!uX_rU}qd
zR=~7wO{r*!89t}<*z+(WZ2NWgcLWb_%6Gwx+t04Ee?SsuFff87^{A0_5u4*FBwayo
z{T-4><Gg~T>-$r&*re+?7Q9A4pDd6wU^KFxsFZXEr@CNBBBKq;yo<Kp3bS3Pp0i!=
zk)6$KS9JDAFx#WV1vAVJe@u#<jinO`TN4NW+53Ou6HrKJ%GrhJ$z?G6=s%R@99pmx
z$k#@DHZbIv9Laa5RE71MlZ$INcUXkNaJ#w)7ei?4#bgG0ivU-nMX)%WrY*@wfB6}f
z<UbJdet~6V?l=L<!>(b&l`lsMWhSGrDtywe4@^f`cC#aNdRj&gHZ8l`nS1%Lj?kHV
z`H1E2%O`%py<vHK=)~PggXNhWp%WL?U^)5N{WE=+@9YSjxtA-KUs?WJXYS-49icNf
zp^|%k!96IsJ#^ykq(QQ@Bm5UGv*h;hU$`ui+rxk1vQBOf|H=i#LdnaMQ<7IFrzNK+
zZ|KCuP0mc-hcS8`c1%9j5jyeeYbg4RJGrzYe8ELpgj{$}uILE=!lh}u<TIazv&q-n
z0&tU`qzp>2>)aA4VIAQ=%S?$#nbZ~lQle54@jf>trCk=aOG-vZ_%E_@Qrbf&E`tuM
z0h6*7Lms_vC0r>5YTlIHAV@irav|kn%Jr06DJ{@NF+(v|u|Tmxu~xB3k*_$Wr~`rG
zf#Rv+SH+(zxGVHPuwwFxxD`n&maIr!k&V>O6^B-otT?x#Va2zgwbEv#`^s@ElUAm!
z+_Um92v(=9-n=?*_1@K`tIvTTRg!9!YL_}D)jJhGGffRijZK{cf;6o(-Lzh5rfFtr
z!;x}H3r(AvmXx+UEem*Qr_-v_E~Z@r-WuIC25Wk*F$BSyRckWW6s$S8rew`I;IDOA
z8@P7z+PQ02gJA8owLh<YzfOBy&vh~otQ)${WnIv^n00g4txeBO-;u6N-<N(cy(s-?
zdP#a&`kD0F^sDLLrQb_`0=)F!(*I2VxLzN4>rK}WT|ahx2x8OLFI&HHeI8<m)}LG7
zv>y4^|B=xp!z2UGV`n&J1ZPBLECzx57WZB5hun|5pLMSX{frg=A*{;SoN+wkNya}L
zyn(x6-iFi-M?rtX<NpwzZZz6BV595C*o`ZIyD@8H(Z)*9-}v-DglCzCnWHj2GUGEB
z05@}U=E2MggpV@cWc~yCoBI8S(0`NLrfHj2Zpz$L0^ChkHvO>a4d`bX{D<&$R(#f`
ztm9eNvYr5Uv-akmn+JpbX21Us0yZz)oVU4p^UclAKx^~s&F?mU$mV2gWq*~8XN|M_
zWSeJ?M(Cd%nT_W+vKMEkX6GPOWfy0kLwG&=e)ca2Kjn1G=??-=u4h+I15abm0iI^S
z%^8;CloQh4S7<-YiOPw|nUa&3law<zXJO8YoP9YJITv&AV_|?C^7>q`MR&{iEm>R6
zZMm`KZxC!9wl#F?M1ZZcx1!%{eYEvcF1{wmgZ{{w>yV2_dvl|67w4uTm7iNh`bsW&
z?Zf0g!kEX~EVfPFwsYH&ZBIdv$I#FvuS;G}r25jp=COGLkQ$UXJkK*PE-yY0{Uk3n
zZzG1hynT5`$#JE;qj^{JUgmefBlSq-+va=YJvM(XrIPcv<sZvGpO4>_V(f$b-wX5#
z1{T;7s=%u)P%6A&X~EHghJq)Q`fIy*yW95Q?XiT~p1FPh_Ve3sZU3E6J2*Q`ci8W6
z+Tly7kR9<mR`1xi;|!&~-SH!G{Jpa)p?3D)ITr7sJC{;w$Ic@=uk3uf6YU1DtM@Lu
zT@kzH?Mk84`d#_E&g{Ci>jkC$QEDp<l~&3KLMf*x70NBjgGzG97nF6%X5}O0hu!$y
z5Ww#KyB&9r-#v3TS|6$HyG!t1x%&#G?(N3++j~s+gb->^{GLU4FW7T}QdN6i?)kV^
zZ!h_11NPePb=@1bciLWTC!{j>?%rFu_sZUPgxaUIZy?^~`}`;sxle(Va$f_b?(NeA
zN<G<!XD(D+Rc}J62B=2i-CwngQfaDOr1q#vDRox$2&q^5d4$^EZNJU_srwh~-$to@
z`|B|7>i##B`gj1}8y~PfKo8L!h(56Dfa<{U1J_B~fj0+x9+V%Pa&R384i?aG=3vvo
z`y}n){ezzlbw4!V&<H{u@;fyD(Dp;84x!f}^>?9Op|sGh(34Pw;|k{#<`vd!sN0>=
zUKZh*rXq3{06B{si(>J<w}`ew(X%3aSAV$2;Y5;lIQj6V!#fWjMo#<<ki%yWHy!@t
z2!5miaAd%d$Rq2I6da*;Khk&v&#)Z*`siSicGUCenxhwv-u=d$P~S}cCg+>8-`x4;
zFG3YV@u;I0isuwpQR=S}>{lg@C1HdrnP0NC<YY-*NeiKlagSlzF}GtADYfiaHd5z~
zQ5zlm?RcN#uE#@;FY4USk8e9(a9nwO@9{&&kD$&S7x(x#$Lo$i2Ep;yrA%p$(!r%8
zOTB<w8d*98ne<C%lrAh?foI^im7Xj;Us_vwx%5Wqt<pQCcT3-v@ydFa4KA~9FNw~+
zW#h^s%O;n_mQ5+c+4-}JTQ-wYZS$*|duds6*^08%vbAOFNorZ9I!9R^aLW!+ylpL}
z<}WL&C_7tLT~=Gxpyt%vxn+%N?y}ouFUqi`PINtCbfVvhfhS}qEKb;*7=6O=MBs^-
z6AMo$PHgI|@rm6hR3{2g963>Z;&^A7C(6|_H7f$D!HEke>Q7uc(RAY4iJM<=-~Jcw
zCnuhrcyZ#l6R%GE`2{x~)WC~djxCB;r&^X9l=mz*EbmipT0VfLw%s~&4JtP)w<sT4
zKD>NH8v}*ha_otCamzg^?3^pCe0=%D^62vT@&uaNcH@@M_!sU)<;%(y<*Ulm%G28z
z)m-Hp%XgNey~^v$pO(KWe_Q@HYVzqM&KsXy+>`v1dPtL1rg{ZQ?<Y-9;*4=}@JT$c
zb8^^895YV_pPUQ&C)b};o-9ME`Q)>c?@#`73QqA(bvf1Tl<uivr`!NeO*)lIW~Ng+
zh|E*Xr(RV+MbC<X6?PS_6}}b06%iGY6_YEXD`r+~s8Cj%tiVrT04jb)Zaj%{y4Pte
z^|b$K^uyCjPbcGDae5`D!Rgibw*~(SfqVMQ>C0+<q@Uv-&Vr|(Yr;zsgEXF=I)fv{
z8T{(&%xDrrYItVrnWJYep1E`OEBsNYUT6E9H9adn+jeG%G6DCj<=L@k{Yh(|U3@m<
z?C!Hi&YnJ7f3~SDsM$1k)cNf7vp=2VpX+%}j6V}J{M?As$>&C&lYh>2ZY*%mC7fGw
zZXG>s^O=>;U26-N_vX2u@cs^ecc?3HD|=LmPzK8HXqC#59pV28KS~<Y7XAbO7p-17
zwk>?FKe1fp%*yo2Zz``;{#yB0dr+TRY-8nCexN8?u1dcOwXd?T@~xUs6<rmJ_o-Eh
z7&E;pxoT5YZq*UsR-LG-M}F*ERo_=Vt@^X-pK5Jl^^Q>OQjOmxsRNN*?Tdfmh_q=<
zd8=ntFK7#dtNrTCwX|B%7TP%o(z(P{)oa_r7hLLgP?xyAI;$=G7p^VU1#RKKaP6wz
z-xfM?wT;2*5{s%!+5+LK#vVxFdEi#JRR4XR-`OVT`*#F2r{><tCLKKI`*-4MlPNea
zIzRsW?DOl-?>JxFUIMkm`Mc*^&ObT-;{0#tUw6ve$)4x`IREbahYOtZe_T+Hp>3?4
z^Z>Zf^Mc_8(+i>t*!w@bxEG`sY?1!I!L8|M7Z$Vy)N09v&3NC98gMTZQ@z?WY2&`o
zc74H3Ji9~hHtruTXu=oVxIX=o`@)|W{=V?3hC>2PZM$)61T`i#=Iu72vTGb_<TWle
z?j*D^Qpm0Grm&OVHL*1bH8X0GNce(#zJ{Br*-)dZDXTeObEW17O?X)IxD$6<OH&PM
z|Lh0=weRb2gstmWCqX^cJ(_aWS=HILg@2VrdFveNM&q9x|2ltq*CtENHMXujd?8C?
zZ&GrdYe(qJRp(LXQx{klS{G3l`8nQ+i(5CTZhBqEN=;phw7Ryiu5NwZuDbJB*XFv1
zpkMd0p3biIUjx(+syD;GLG_mPoxQqKTh!Zh1k7V!?}7L6^;0{yZ~elKfa%E^uB<P(
zl=bZax%U4DS*PpU19F|$a5cBL6t!;sj~xNII$FMy_L%Z(TR{A`j{ef1MeV5OCMZg6
zU>ijEM}nlYl?l}#)6|9#4ASzBK%&~OP9tN3OM`oZZ$nT+cmwWvJFbSwz-^e-u&Ut<
z&Y`qMm_~H?zTrW`qlPC9FB)*w-*Gkk2HcBqk*tIS7iAY0UOan=xzyuQP<w7F<I=QC
z^V>p4UVuwW+WBZHmrh)&xKxGlwU;h-;=2soOAlyF8|<XrrQa|8c?pmCUuG_=?Wf6n
zxl3pHm-}93@lSkt@a3U|<+8P!@v<jbO<g9IXzMFfpUWFGAq!#l<%Y}mkn0`(Ol~Kx
zMw8Eisahhvcjg+>*by}4{tMUG#*Xm$nABNTSYt;R{~t?CZ0rcQGHky(%Ua&p5$Kvx
z!`GQBtFa^Cdb0iM%(btvBOGey!SnKsm%*^H35*-Bf>Gmj&}+ng)A$`2G~R(8jrZ^u
zNFPA&#z)Yz@hN=W_!H)g!n4vw5KZqfcm~@9KSDM@yT?(fYmqjDH8gbxz2{<@0j#6<
zG#ay%=2}AUi}6&s9xS2~G7;+m3n|Y6DlMN%n@#U?=zT8bnMd#QDQ7&rN7DNQT1ps|
z98T{M^gfQ>)$Os2%1OdH7{hXUPo{S~P>L~XJ1eNP74)7%?<w>?i{90HmYEcvP9;yH
z_XK*MLgPbeDIxS8q_KA#e!2AJ-%|X+YjP2|6qdFB5l#|AE&|*BIyls6t3UxsFcW_P
zdU~fnl8?mAq^X2M{YSXSMe3@66_5idFpI{iYrhJT(JF*@I&zV=OrlzmmAgLVVmqd3
za;H(P;_+*x2^vmP-Za2Ba~h5*5Q-SdM`{zRi6tHsjbB~ixYYQp@lE5WCSj9)Q$G+i
zNt<k%Mm3FX@^6}eRBY4Cro~OEO`Do_;HTxCK1y#YY&z3a+jJ8@Jl9<2Tvw&5i;k-x
zfa$^ub``)Z9&nVL`XihS;1x3FuH0g}>hN2@FiOV#SRB6ID)yhx0VR0&;n;itiv1Z5
z$DiRsi<vEc3<M`J_NSCsh+&|*1aZRkQzgJGgeO6sC5t?+7i)SJBymT5@r_uoUJ?O>
zvDrhyrJ@E^b#9jPusN<PbK_gI!j31~1GMxT5)gntSI$Ox!gM|pV7=AlbW5+HB`yJQ
zvZXunjDcc#mXjyN1L34R%Seq!6Pz7S<zSPj<s1jUZu3HdNKx`Eks}s#i3ppX3&oUi
zZad>v7u40;QJ(4OD0W;~Cw9E)sJwcKl#;R$OT0P9UFRy30eaQBH<vC$9PP!|xe6AJ
zH;=83BZWDl(th3M2X(`r$?$+X3e%P$LjpFzaTH8f23XP{OA*6x9~N*KP7${~b_m9{
zMe^I)2_Se^DR<tk9lR(WH#}sAV26@Z7qU~Z6QlSK3-}zSi0{Yapo=ihMZ931fS2*<
zR(mTex7X=xhZ1E$!?VgAsOYmw%m)mL<U}zX*Dd-*Jkm@`_{k3yQgU4~pic;wfrkYQ
z17o?&H9!2AqXipL3AH*rCK!JJKI2n8{<OI6PMtbNr*fFiIay0rOXG27dGHXQB{Gz_
zm)}9mJhrWam~_33;945b`0CRqO_G+S@pwnxXT)B<hCsgYhuis(nz;XSYSMtusfhzW
zrzXX;Q98+>b2HcT=2s0ZWAK2@>6S6W#zIRk%SSsIXc-f@5O2fI;>~IlWPB30wMP`Q
zGD^vrc#Jyj+DSKE@P|1^gvZvq+_v#h3@luU4I02`!K^X({R5tAZy6HyiGdRHm5h!X
z>}9yF+_Ub_D!FL%y<9NA2>~m$T+MY?Dmjxrmne)8_qD)Zi)A*c3RfOO7niTx>8f*`
zQ!HOu;G=V0ARN<Ou5(=r$!!?TMYshagK)Ek-h}C#;;tS3@;Ro%106o-Xfs&D%LU4U
zl@YUICo{9+CSzAe?a+6JjpZ=m=7Kov<H(r-0>4-W-2_t%$1+Tyjy9MJV*TPs9C|(f
zSqfv$1ts58&M>ZoRi2gT-C{PhBr8)ZgL$Il!fJmU?>x|mO7LwNf(cqWnUKL;l4nKF
zRM%Xho$n)?WXO}di-k_ZHbyCV>jPgw75g#J!k6EmI<2FH{Q0w-T;T{D%T><GrHDf1
zw~!GkmtFP~lF<iypudpQ)nBL{f3W_?wx+7HPD00JgjgQK*O|)ruVAK_$ETq8J}gKC
zZVZn&x#_Gp9^aK;>D4mC&xuqUtH*y>l*ofE*njRT*C|fuB%smoqY@=3QvDL~j2>tq
z{=_elqd~uKL*<}#rHupe2z4!&_I{W6Gpf`w#PX3FWPDtpj$SwQdau>As$hmcfjm-2
zYPy=rFN9+XmWV_I{Xl2sMjclmV)w$$3|OzuJz(ORAUhbX<uPKK?75$5sJMSP85T7~
z7?>w;v8ixCMzez!`e6nHifDzsl-d`u&Rwv9XT|cmpoM&o<<^pssSDb;MX8Mg1SS$Q
zm}ded`IPKpz6n}nq<uGO$+b9Rj+t-GGT)MEp0f$5aGey;Nx)LNk4<3EtlCIml(OLL
z+UhM?VWFI}3WUrM%d?9RYV)<uCLxUG@?0`L#J7yGbk@rFfGbsk;S|9oYkr(B&^t*j
z_5xSLaH?lf6vsDi<*O2GgHD$@Kg(Q@X|A=YdRiHm6CJhu<_~Q?woU4&v(j>Oq?hci
z{d6vwJqkE-PMM22Ct1!#z)d#KV$3r+%FIUe;Rf^MO!MV8%{Osdh77~c%azbH>o!`l
z65oYFO2Epl6jkzSGhp`KmFNK&fdeUz#!Q-ZN6kv9044WY0Qa*Dj!MpbIg@y2FPS`>
z@g9Jm#u3SsomFyfV(PU3&SzP4+6q_l&dYh6D;-4&c;;EyL;~|oT17mxSM?T#&*N4j
zV6+6)az?wl1c(WEy|eItnB?_T=$9BJPU$9cjJX{bIGI^2iwm>QHMa0s(PO<H*t;2t
zeT0lG&OOe9w@>C7neNk<^L)l#G+5slnHPSu5h}x!y}d{KZU=idJN}I`GtiX8&O6rQ
ziODuSXYXygRXR`R@uGaAeN6>JWRr9PbipAmh~pU-HrXKXFKcGt8Z$Ah*JFC*MFs}8
z;Ey;i8aWzDdb&7>^veUD50DM)V&rP&GLJhiM$0+$rTeW#jP^EZ4<E7m7e{4wJzY!=
zV12j_XCckiRR2xiyvh9|LjwQeSexFl&z_8WY*!T%&)LF|+K1r8H4A5`y#No3dNVkn
z|J+sWSDhROK7HbM?Sd{Ve0X4CSLAxFvk`RGgU$xfSqcvi#7)LqEV;!@24%{1b0!5H
z8^;ud;&cWqLw65p8Dq1A_{on2WQ1YjGa$~~ZKcj!P|k5ho_;#K*AH_S!s~|x3z_*3
zb8*#*B<It^?1fw>efi3bKBRM#u8WVVbx}nR{77C2w~zIz8N8Nb;VUF_0_mVDv4cK2
z)}#8J>hU*<6*!!&R<4dzd->YHz{HuR_|vW)u0G8}Wie#*EHUS=)>#EQ^FU`3=&S?Y
zYH&xTGB|x_tzdB2_ih<7d<j8T{8PP(Gi;BOp}WpH9NGt0XL6kMedWC8o=tuntGgLs
zgfa4G!Af2LsmF7?F+h_rpZu9sQv;@3-HoAlU*+5eQVOnx<}%9Fb-@fLg&1aa2D86K
zWV42&%f;n|V!oWuDE#Goj+>nKTH%IVFlz;9Rj<-Qfp<MI(seAK^ILVMmQ|B?buNDK
zfi&|#Ikyq>xRdC+H;`c_GA3dstD8foM4Jn^8q}M}d$@N6$e$t8iUC9+W)Lmjk*sds
zDS7kFdAP({2;_#XQZOHXHytwt1E)*UiZ1YD0j_X^yWjz{6+j3s*61D;pbaP>v0A|y
z>g5n@_2Yf4^{_p+S_Wa&OtIN~D5gM6k)^|hv8y3oQ#q*41P8ltB{!r!^JSVDhmsXa
z?oZ0qH`+N@q2^Xi!A|oy5RVFSh?ZQOiX-InI5C=m%>sXpEIx<h>Q{x|iGr4VlF(1)
zBgEmYWXrr3nN2>!<=}$7$_Y<Q(gqnsHRGXXSfFmp5L;};5(J@Sv7*hvvYCtz_mqN0
zovcJMuFMt`>&yn_vig=W!z*!Uw%vwVt6Ij4IG~23R%+nS1mZJMrvy&bmZ_(=Cd^8l
zs_|zfRK6$%KJ9V%%j)E34S4)1e2(K-F0a~y&*ew)xiwpONemB8;%xreMP~qjka>9Y
z95_5B=dLw}hcoj+J|~!u>(U}@I;t}8wqQSS+d6Okr%%=b9-p-0JZv<=iav#V5CzB|
zTKzaQ!fzJF1OqNFNfLI4P?RM6j9&;S1G8WQt2+lGD|#wdyW`>q2MA5;XjiY|4xM6k
z(_IJG!0@qJ!5!)~Y>z{5V0EUpgB|?3b+uZr$H+%o@hY)9R~wY@gHmh!mev1Tp&_Vo
z5hw*OC?o0n-V}30>{bXvR@-gf9K4#dIs?*aGW9VZ;*(rcGNIg1YSW^$Ndh);tWuCr
zy-M49knOmK2#LyfNZCXhnzYSGLMUQ%1Xw?7D%BJ-CsIt~DSaqG)c+T^>B7Y|8m;cf
zk}qcDHoN-chvywQmy25zmkb!1q~P-8JbN#50iP~6O)g~e2kBNh@$4PP@`gBu@`YL<
zJWH5|KjOB9oAK!~_GV_pdt~B1t5OQ?I0>{pf(2g*a2YdJ(5os`-~jW`!OWBR>qorT
z#`S)uOJ^DQp}#1(m;CVQNE8<wu^(0WEf9bln0UX19FE@t+&OWeR>^VnTPVP752pDo
z)FKEjLLu94fi~eyQ1kM>;MH#9?SjKCcGFnp62)ZsJf==(36!8b9*W{e@%VvC!DZ}m
zBZ;{kNt#j+?8gHwe=Q!kfvLN>Kns_oYD$5lsuuC8y;_SMf*sqkbqVJ2aAjJ`XS%rR
zEM<ykEufu&%x^ET&zPq!2wsA-iEM=N5}Zni+GNKzkAtPD_wl$^s7_LF;7KKH;beSz
z)wauNTP|(F8QyeG?m&Kv3Y(2HZv_W`dxXPPL-iUPcdy5K(FOWkK+_f@O)iZD{*ow1
zo=M=(ij)5}Kj`2V{4|bCM8bdAwP2%ZE44NIBnf|-eF9X?2s2@(+C~M%1@(8ihO?Z_
zCvBMZJuv?GgL>8sLm=68aAW3?^}Ux9m-${fFAUpFOR06q9~T8tTHtQZ$F4gBsjip+
zQC%TM&gFPxi(wOB%GdZr15>b>y8`a#M$BfQn8#samHeqn0d@nn%~+cKOUKX~%xL4r
zc)61Q+@H@C`t$i+{c*Iy=2$4~3b@W|CMycufW$F8B9{**m4fH~0-n%cAn58Zz&-Zo
zthhycSP-jb72wkh?J~`tLc)*tGm*6j{!9puyV-c`bcu3~V~d$xI$xk^h3(dN7;ErO
zYL3Ol13tRxqU_>HAKhetSpD$E%dd-i`_$9F3vQpfv~Qn&%q0(Z1Q%O+*_{+<Ve>Fb
z{zXy?>}yoRAtUh7__3{Md*TNJ2e0j=#Q$-Jt3h`*={D0$*NXBU+ik0~R}QmXB(S{V
zU6w04T|&L&)2D|Aq9&u8F648`s;k?qg<Kqu7vTK*={M|@9xc5_7;AUI@7WksV1zL$
zpk%I-X2YI{qhRg=0aL8xRQcntSzru#RIossY4gBY3mNV#Y|s{|T@BepoYYo(CcV=c
z1s`@)D|rpL9mW;PG2BYxuTfWL@~xWOabK7Lw%9?HTJB12?XlH-oca#%u|HzEeIGB}
zQn(c+lieo6(QbR%h4OLi48}1!<I{c|Q}H56NeY~~z?Aec<VKXC&&TkWfZCstQC^&$
zQ3rH{i45ler<hOmq_<hA3~yE{hd&FAMFwkJm%zLzGOJ;K$B`ubUlKS_j5`h-PatYB
zxT91bE)a@f`1FX58+Ei?k{Km(LO5jbz$Zr7C}_{3sL7n-w($V}5d<ljE8=jgX5FIC
zmB#!*GR(q+BCH9Rr(tK)$|}mjGSruxF>)?AYd(`P|6jDd3s_Xwxj($to;?EsgK|-B
zMh65O1_v*}sAyycnE^(wGa#CXf()oAqSiE+q^A?2Mh$WBLeQAw8Kam+np6gpcu69d
z8(td&snVn=w#Mez)0{N*oTfefC*SW~dj`m*=lMV1_k84ud(YnMzTWlT-*-1iH(yv$
z2?bZiYbzK~(BHJ{SOXpahnk93aM>o0&oit3Zqcg#55!N8>IyA_3gW!ir6XQfCSLb!
zhm2~S)EAH_n3>-dZ&NoATE;1Xj->_-cQ;g5;?j%yH)?8%9u7pYp5kp96dUC$<{U28
z1FZ**fetl_pP-A=d4l<A7kZ+<241O*Um;eL8n~<(Or3AkRHG@Je=X=JmTLw4E!Cta
z_%-e;)y9Ao#udCHU?|b3(ir{)18!W#jTLCLx)P#<s*;qV0RYBD0LIVGL9~Rx4T&@3
zHCkKf+5&<6XDoDRmvg~Y@IV1$oP)t7g1+MW)vy#sx%%b{awR}}fEeN5%`4sHS&KF#
zg)@0uw87pm)<5}!)jfed&FtS$lURi+Kg;k#McL*~;tB$YxLm2?%koN>$;+BqwRq^`
z8y5K*!XaNslx%jsXE`%#mt(GTiD?PYNg9vlw}Y7(C(+7v&)Qz&Q)`XQPaD^2jB5gn
zPlFOhh;lB1pI&2qfbmIMu{ST#G>id(&0qK6&056k(C+zm4tEf{-T`Z7lpC;(>YU|r
zkEg!Iv-Wq?*c#E;bz}V+&r_F-Yo9Vc-Au{~$a-s;r+%YnZG(9^|D$K!Dxer2jwdCx
z<}1Ty!z%swIF@$<UrW$Po9b#v!a`w-rvYM8!#CeFvvB+@^weL1GCD^*GH&NN%Q<FW
zKYxn_LlV?~o`x{#SkJo`2b1P~**`|d=-T8m5!At0p;n=erI}aeESG-dQGH=n@mqg5
zrxMz8p^b%Hc;9mnEY#4{l8$Ix`#;*x-h6>q@@Ae2ea;n+iaplj#*kbOiOXVRgKP{?
zDa{kMML*5otb~%+s0#2%UwG>OG-#OnD>c-;RlFwmv!8;if_^X1_y{vLt~GA12PN2v
zbp<78W^o?rhO#oX3l}@1>t4y}j*f6RNaa>ftJsO&pYv#3`#qBDY4h%ad~;JvuIDNa
z%}+h=y6PLuRv?A)F50HY{?oJevZwxnm-RJ9|GU;x@3Qo`>N7^qxUj%_8Fvfb&aAk9
zqQ&d7zfj-IQhwlFF0f}a3qS*3wG+-?Rso8{Rzn7YgyS8x#O_MGZsHL^Kl2WcPO$A?
zuf|X@V64mu4aPF`XH-kd?4Fz1ds6*Ey_cwHp7nBkD{oM78C1b4zmansKpd!`DYGP%
zKqP&~`%H~j!WUqh*{B7QWbtlE0>hAbsq2~cku*s3L)gU_&|vQm1xNb(qbi~g@_Ln;
zP|Wjy4iCF9n0o&r+$E{y%+KuoT9k7wLcwwfFH{&D^CBcYYXC{Ds%H<=J<%5W{rd-B
z4QAo^zl^B^i(s+3c@P6AswV=9PwoxI-M{En0>A)j`*nheDkhoy;5s;V-k0Y9R>p<^
zdgTG5+|<H8#6Gh3Jy%_qz4S5RC{LI-H)(XODt-0S(q4U1*hz~nSR)k{EzzrFJyOIc
zBJs6>bwlHJ2jA)Nj<evbKsPz>BM$Ba4M3I4D+3n<@)fkp__o)*Prr{tGW*EIo+s+*
z+gLUM&d^qS0wIV^-MSPC;Ik)CftlzH>(U%cyFEuY>N&%m{8P^8vfMfAbU}sBPCp#E
zufP=49jA+q$*{@sffw%2t@#M)#+z0jw|3Nl-=xMK6pfj8>n}hBnXq83i6;F9CVfhx
z?b-8&blxKYYlRJ_+#f9A`C&;q-~7#=d<#OQ-=xxlpJ8m1q+%-@*g`7Jx8wQB2FdpW
z=B||uDzoxNVyDz%`^7)cb8Z5<C@}NlJoE1H=xzcy&|lj*iGO_r2;duhfPgz}z<V~X
zbrqRaY@v+@;72gadY-G<{jg5BX4`n+yEd*_kJklwokxhNnZ=_Njx$c}XgpNzaIirZ
zF;sl3=P>8z9`o}~F#iF}t~98u=+|1yo6KmWNZ_suWZv*FGfWbto+~BFFDU+Bd)La}
zFgHk*s#4&Nn;jAiO3F<o9HbeDHQ1f|TWWCDSvP31_~j%c;J3~k78X7C<Ve!HIZ~im
zR<Ryxrhzj^h)~eV|1voB{@)T=$^6vl2I~+63k4<>gVOfFiP_5;k#xms0bvsC>hICk
zax&++?8u-f)8KI;)yjz_rFy4Foq0eMC}rS}1i!)8Esr70@r?_##Kyx-N66sWjrGm^
z>kwB2oivO*yqM;e!@x*#3}h^E6?j@ebHvkkv|Iug;v*m=4=pUI`S2Z+nFBGLsqxZx
zt=XbV-g^p`3@G6IocTRu)Bq4FMh!_)6$7@&s0vV11g=gX0Q^C|<)BbmDyDF<8q`uX
zNRU?`+(FNu`CpwwJlXnhJ@#{V+I5mq>Noat8<*bk?CsU6Fpo6Bvl+Lq5a^&v;x<8=
z0PJ*yY{eS3(?l8AHg4>fz?{KqiPiEvT1*TYcp6f2W!#f5xZ0^DZiX3xTLWq)`h04r
zY~VjB3zluD?9dDV_}!lRk8w6s0tX6)8bCbXSdWDPXnEFtWamMEp>744(mV57-@A1^
zb$ne<r#Rb#Q`bG(gc?`G)&p*!)e*PVj9Hs97JI|`sxIg`SaO(eGlcmCr0{q@8RLpP
zR|GD4K%kG3exdg#<5tdKW+uj+nfV%nDR||glH`p30<;GCWk%<u40;oXsh9M_w2pl9
z9(L7#OGwSD*5vZfbjSP2EL_r04R-gmHMJasrmg-IaK^AM18rKg*n{_=6lDF`(DzH4
z%)bE8FglCpN)O&wcq3wBS7)r1o+V8`AYPdVk)_d?9Mdh^m&<K7SG$?>$|FrIxtU!-
zwW7Tlberpa@||WD?A^MRgrg_lK@L@Prm9u-v;9>~D%W1Ks@dXg-fB~gD)JWYje4qX
zRZV~XHIiVamH<+*x-|YPUiM~y-H~Rm`A2(0u@wYHRpeDYZ8vE;?9(0i*a65_tJ<s%
z0E&ukh*494%r8*sp27kbK8LXL=sC~TYi3nT0iG?&n7%VH^zu0j*n%a(5dzUqpz&=<
zdWMq*V;Mvv{9&2#U8VQ9R4eu8S4mBf2r@syw~@Fy^N+p-8k}Sr-;eb?rPKh%lS-}N
z_E8_$t&^##9sB`SfqqSgCDnPGB)b-&rS}ONyYfBqUm-dI0jfRf|Hcf;$<&X@gRrsr
zy6elYUU9*2?te1H|0EcL1-s?lV)5=5SV&?<N#&6;4|!y>f=+t~EuHYgJb#|6%r=$w
zzile{%MukKur)LaTHfE8dB!K$v|oGV%Y&(=TwrpHsT7hKemxGTKde%nd&eW^0P}Y+
zp!*KyKlQ+61r1BUflVb2>=dwfH%P>z-iXkZX;)l5ZQM8`7YK@0_k$XrB!*_E=KO@K
zvQ$!D7ry~wp47#z>%HU5``R1cmT($|)}V_=7A0piqKJ2BEwP*)sj!5PCNr5D!#8`R
zavKln!|JQW>Z=*rXl6h1z#iru6@Q}Jw|uVEW^UT-dF#Kus@O#*mt%mioU^L80HzlJ
zITO{gh5)GQEjjbQ%b?XFV-Houss83utR@+EmGQOsnzZrJ1X2WM8{00Q152{-A!4_>
zpXbcvTfp(y{8PXN?l(-eP42wGi8DIqz%>M3ACJfRG-#fdtF`VH;R*71JUh|T>OOty
zbubg|vu9q*9n38MZ+M5eJxc&|Wu7Y^>^%h29Q)U;TkvZB1$LsuJxWT)XW#*KATR%*
zt$<D0O<OEL){P$oY~8+Pbpy1fR4sx3NISh~IM3MabL2!~b4R>ubH@~W_<JvLLb#a=
zXTc)|RPXUA%1XF}uL)-y%leNW4NhGY`zrHtO|>-#A0><Gueh91n?2TkCL89nD9_j$
zUDw#8dB?}q=zca<{TTnO{r0(Vb2!iU@(BqBTFz18ZqR!cv>pBvR(1v&MJ$)N_wYY?
z!@w(VxRK7o4RLi$H|+!cE9}jPZuK_fx@FdykM!r-JSf_Vxmi3s`^<^1@D|{_A%j-Y
z;~-v7u<W1(pPR^z7v_zSSM3i!s^1%ysNVsm^X>ctuw?EI-!g4i7>fv;<A^tft(yci
zGk&}M&5FyjbWy!ggJYAjPmHac*d5lFw%u-)cNOqRSPSuXwsfbeygm<B#QhQ3m94N?
z?g-0H<bk`woz9)%x3c$zZJE8D&9A+kWRLx#k|*ve*p#qGPRv+^8f^wcT#&1MG)8p+
zAA|XZcEHQdu>FS5V|7LLd&*tyY956p3Ymr?(E2og^JlCQ@Csm?pFOK^0{e@@S8Lg9
z&0mY}I+G&Oivwav16m?M%ltwnn=m+eO%e|ALTMCW=o@wrwO=jt(i*`}1(0*9E37ud
zaMa6Q$q_5({|Uz?vz0h&|LWhVPF|i=s%|{Qro^nt_%bf7-tyQR1RrAUyS?F5Agy34
zI)BaIhyd`Je#|(Sn$_J;oCyw2-gI!T0AY9hL|wPpt?d>NmJ7a0z%2CH<yYa?0kWYm
zSb$fIm`1PExr{n+w^2@o)<#4zFNB@2xh3JH^>{vDmQGg@TS#`tg{HyGWragM{`1<(
z`GdcguXg^(+I~FBiooV3spReka8gx_XZ}|eehBUo1MC=yr3N!gr!pc}Akd=8GHeTe
z4o+Q@1fF4oZ7>dQVs3U~W4{{**Y&fb9Bu^Q`RD{-m4G%N3oaxc2y~rX3{;Eg2kiSG
z78j@pw7v9PZXkW;%Rr3m%81&E<JEgFsZhCLu^&lO1+@tk!1o4@>}+IlAF6=Tj7>>M
zugW8knYv)13?LfW5=LYE7Y^?RKhF;*qK$i6c{TC=>EKNuKw{Gi8p{2>pBS8I8sExJ
z4L><W)PQ&>%*Zsp>07VRzS-TZZ0m1<7~9+(naVbO!A^KuuGF^lqgMIHE%fV8B`t*W
zF46_gGRp|8ny@LvvUFe~845TFe>qP}wRjCh&+T*9%-7(v!YgVVRsEOSiB`FCfet+_
z-QFEZ=9bo6?^!iHefEx#H^Ia1_boUaE?~23LzU<$wg83S@ea0oT^U3-6wf?X>uwS=
zXc`3q={DPaL`Te{NlSn`T6rG>G~aZn&~s%WflE_77W;^s*;qu0xCAOS^fcE`Z7tDN
zs8}IpkwyR``eQ|Nb#ZfIwB(HlZmi19OkJA8s|V!ij-Zdd0Fah1KxzI%)B=D}EgUa?
z141wGv$BAG!A1<9U^EL{H*hk<B1lChF}4}l7n2FjiQ2aym|=!JHg`~2i91*TyHbaq
zc8Y4JhO;gMf7#sOmpr^%oM4!XY4fYtwady~HM>>`2elG-rxg^Hg3|{zLjY_82)pkV
zYf;OZTnkZtuUkX^HnB|*|Ek#s4}17$X7{*TVtRsjE06{LF+uxynP%D7XVxmX!~<gh
zt?>ZXSad8^ON&_JkEJq=a5P1GYo2dXod@T0UbOaGWwBI<z75Mj`o)FasizIA4PUV;
z=ldCJT{_=NvV;i-(qrm!EGGGJ-sW%|^`1S_go74aMhiJ!#n!o-#GM-*uT#nE-10%G
zr^9{jO^3Pvfn4pIz<Z<2{fjNyb5u0nEiZJ3fI9ZHw!Hk(Nr5rO17ld-=Rm2$f2p{=
z?wu2)n)Q_z@QPxSlauUzL>fDzbD<k&gZ9eY^1Nvf5Ax~3ciY1`DiG`Odj@Y)D6z{w
z#-8K!*;)bzY%MYG+FBy6*;+`e5G2ao2H3U)el!w}04@TKBFh}lSgKmw3QYfzodUqI
z`?05mW_PBTK?r7`fSQ8F1&h%%432EdsGiTniYg$8EpFjryBUo4yrg9!1DA#C1XhjQ
zdtyL;2HJ*94+k?m$jmOpwP&5X1*=D|K?}?+#mwZn!scmmiW@Zr#hWxm#p}-&&F4U_
zU2I?Ymg1+!xyb5dEOCa|cZ_p|g*k$xWzw;N5_$3**Mvh56<Ul|<D2di=9U>I<2m;U
z<~w1up|O|~qxGHKLU*1Plg)ikw>PBcv1Ri9`}R3W1Qds@OSP+}y|<n4xL=*XN2(LJ
zV6kv^fY>abVHeQO$7pBjV!dXl4R(WdFa3l+d-<fNWntHt0oBuSN&W3z;hSn+E^wuP
zSmqeSS?`Lt72O(swDjaNTXA;$YeP`~U$iMr0-ZboL!`N-8BWRi>cP>|l71X5++&&c
z4AYKf9tU=41I(%T_nN}AJ`slLiJ2N`rUFKyKcTriagTCFh`&r!q!QY{t%I4?eb|m}
z+K4CO*)R?jxWR`x!65^fi)kOkcztz%;>x^H*A1ohebYjn!5LrOI(IhTJz6xCD6rCq
zw)J>0G}AIMq|~7yfr52n(!Wzs>9-(PFvLD8*9joaL$4O}g6&;Ln+X~M%qjh9B(zJQ
z08@Oz{u9%nP1*6zOB_T)l(o6X*AEpI0&|ztYG{=9=5%j3j%?=kxH*Qhl}z4QWLO${
z%L~4{PmFfx2%sV54F5?y&-Blti%p4+B4%%NV_AtMkF`Z@DSmy-r|b7cZMk*Q<_;ET
z;fVzVG%*)T+!L_uuKR87Ks>j;`2?7th3>%T-OOrpYm}nJI5xC(4u20`rr&BIL07Q)
zK9J>_{Efk-ijO<tZ{KhcE$b^lvV*U4_{b|m7fbxadMZ=ijn-8A>QdOknqxHI;9JVz
zFp!uf7+*oYJ5cQDCgQ#@)Q9Pcacv&bib8%Zfb9Bqt3=Z1Upv5li9bBgQ=a|Lh-Xp>
z;R{$e;R6qC>$$&_@QL(;AY?SmX}RF4Z$5|{Z`kn)(>?iT8eg)L6e4~aRu8u0CzS(p
z{>|4)Nxb#63;@HPI{muICsEOXUr7kn)AB2G%jEANUQf&Qp0<|cq!MLGloR(VO!SJd
z_r#kxQ@)d_9FJar8z@+V*p#b`1x0JCyljtSU4d(^Zq#2>>tYRwga!aq(Zm*qL~GB2
zfe06Tz!UvL8v<8LYYr<sFthIj=)$8)_jeb%L0dK|Fm+?7EK3Z|TY7nVo}4gkz4+>F
zH+^Q(UKNo3zE`PuiRLLNi5M5+yOigCPC*e1&F(`AQ2iE+t9zbu5B#r`6_`I0$EnK4
z4sC(|K|>62$6{Hwj01Pn@`gBMTauN*wGeCaj0F;|;tcO$VxC*34vn4fbjE0PvFQbt
z-u9avF;+L>;<YUxuGnCeA|)Njut~?NgDMrX0pxm6v0&jC3}>=0wa;<k<9Vcs<JcD2
z_;|tLY?)4+0glF&nf}gvQV1}f=Y3_!X3VDPOi{AFX<=G(|6nGN=UGw5HnPsTCb#kZ
zCPff<@8-c`W+lO_3EX1;%3N*#B0=#NS+xBt(=z%A>bDe8AOQq4r7?u`Kw;?TusysG
z;}okIiq-V+d~Cmujv}|Ns9!7ayV!s&YjBcCRyrl96?0z_B{tLSsH>l_bxr-+_W^cb
zg|TKse@B{BM)}=!O;F2nwVD(o2@S=hS!>GtvJA#*C`SU0fIl;=ogcvZv5V(E8k{=6
zp#NQ;A`>PC2G0noM^RFMf6Q~z>1!zQb8@Gc$Ne8R_XGs*^i`LvWa{|)YFC!)$J=YF
zbu&v!CpfUDT@g>i_7Y~_`_;*=h}d{fcHh0$>81cHe|dWQhOoG3E}|yxvlZz^ZJv1p
zgpNT15l3muyVRS<eH8+PvMLvG?%q&tf2p9CEgv!M8`ypYLKlgx`)uUa2?o5j2}o3c
zU^J{_tpCrV+@F*~071hsET^*TFbon$>0_&f+&TpCcZrTdCKUCN&VbrP{ozwY5O%Yp
z7*H%kM4wjC<Nj-{yMGN<s)}k3GfJQawforT(|Fk5Z64(2^$up*;O$QPx)tt^_Wmdm
zD|3ZdDZLLd@!=scv0gbE)7Rf%8>8b4U#m1m6I}jH@`2^unf5YZjkANnS*op}kjH$j
zing&h3NS&ca;zPTCHA-l?b;gUUpLS$%ztYk;eFBx0;Y;GHBj>3^RU9MJ~#8XY)YZa
zx_5dxsN!u>_{#CYlM+u=N{xEWj$$5m-0B(i++3q$34giQt7&mR=DGT}5p{(Im#<2c
z<(Rp1BbRrFA5U8Byv7nLtdqOtZ7W#d=9zu>vH$@<sLhsXuli7d!}-3UQVyGaXZd`V
zLPnE}wTy<7xF}=V_ZpOs#9A9894;!yU(V%YZkVLe#*DR<yt@B0tj|OUg6x#CkTXdN
zU^>fthQBrPq_m3Mn!aiBhL<1XV|2>5x7jLHB+JkJL`tqHXPGlUV7|tn{33=35kn9v
zMHCuo1V97+sk#qJkU%c|5*L-M?uAIK2@u#I0rkx87YiXm3LxLQ9pDCd+1fU|Gwmc#
zkF$fSpjfL?>|cElbA-+dRDQ%(5shanZSH8B0HzmF1e#4^uKx$@14J(qq!4IcLCGDW
zkIvyfEZ+lC@H+3nQu<xkRX8qD{gn~biKB#l2FAx87$FgJU~`8mBRvPcrX@<Ki?+V4
z)DQv!6N9|s8~-kG9lh|mtsml!u(i7w>dI-$v<Qb0JQ_~Yb<9nHTlgONnV5D@%e&^5
zj=aIC`Qb3T+FI_pD@J#VbZ!cc$nmO-KZAVlW9GeVhM&=G$hSh0ID4W?9T;0voz&Zo
zQDF?9DWl0x-Fj!}?oV{5wD(JE)5e8^F+^QW*sjqi_r*}T;k&;MJ^LTJ!{D(ZDEl?B
z5};T4;oETFG1u>o*Wz`(Gc;QN5XE{m-9}5O;h)(s78)uxr1Sa#Lm9DO1TWasZKe@R
z$Ql+7;ditSW51s^UHw25J_HhAyDF9nAUrlQVgMi<{)X6$ZAXV&vcUAUx$y%2bwA8<
z&HbBmwO3(LyvN+%h&#B%Mwt8ExI-8mn3{(z+N-i?9|6@$`(3O}f1!~h6eOq`Ik_t?
z4tfbrww<JLV_X8Jw%x!AUKLQj4O^wXD%NJ(m%cJrJc<~*4fGRL{*Ujl*WNA)L!gUG
z^O@Z)FNo}}ShRYvlUH^pEl&8nJS~_X)%hp@sm;KU(9!f<6<VEb{{ZFnwB!zE7HEV*
zYi#5VEI>r~2bz}6S2Zn-7lE<f)wDdk(CBVa3emKlgv*5=Of5dnw*+{gA@3>-!^~#B
z%Bx?JKuD7+R6((yrSl1!c(Sv*I=v!~E!KRs>OWIpiGE4)hKt8>wHe714E`4^ZHwB!
zC1|IiRb_@ReFG=c(7C&)6o!_3RZvvuI>F!o*qguku<R;W0SMzB-usdS&GZS3;s-k!
zV8*iYjF$|z-}VA7a0JDoKRKRcmB8!3Dgu!_nK)vec(E8SN}qT0+;zOa`J1n31D~9#
zAgm`duu0-Urhr7e5-{ys9lJ!%FeB}^n2<OlwY<M)FtwnS_xtNTX%+kJZWheZlMAs$
z3vf8@*EHAj+193dey`}q0ra@81*`IRT%TiS;i`I%)fwuHAGLpF*&H1L=#q+MU0+lT
z%dfJjb|MTpX8F|um%QI%D}80$)?4kM8S9Q8L<27KS#QJ^#8D*{zu}rh+<Y^X5c6#Z
zGWH@sYMtFsG`*1r8x55ei|YytTs6lt1}kzceK5nGtb%O?kc@`*Q$uBFNY?L-kfYyV
zlVYy3Dfi^sQ6v6X#m+>Y*I&@f9*JX6d@5b2VloERzgm5<DySexK3a3UF=nPiy0fx8
zpO5K&urO6uom>N^iyGg9#=FmY!;cp4j7ZufTi(})6~pmGJ-Nb~7(I6mh~47o@v&b@
z2MtwQbiUT5&#O!|$Mb_@r-KEcomzrr?NUdlm<nAHcb5tOY{Fd+3>l)jq+^e=LKnp0
z%^7>2v2=y>##S#(wleuZ`T&?Yn|sW+m|dGYZsB0?jLyPGgkA((a8%(-(LmK+H8+N3
z<Vbtv$Ni`oYzPI$f?<10ob)FvalGGB0A?k|<*y1$W;8Lq8~YVMsi}^&P>H~Wg7n;k
z(9Ld>ps%BGh`Yvo{@C>jc!?7Pj{)aB9tXJ)j`03Ml_)egvGAoR^Z-%OJo7$LmvnYr
z7-PE17)PW*a8D3;hPWuuTTyTl)u*Lvz)PHyBW@qzfq}69q7ZIS!pzSpr{~ARjQ*34
z(0%{AX7{Vr3T?USLqd<=Adj}Nfwt%_>GSEQ$(zl_CzKOf@$-^UI<d^T7@3VnDCh7e
z$~hF;C^4X)inC+p|CW95keNT1eej@}Ka+j1)yxlMAKY)|d$SMjG4tKo2U`v{`>ETn
z!F&G-y2@ONg>}0T!$v`A*gFM})~YwhPGgCRTAr*taQTDx{!elIAc==>ny{mhPy0A#
z07s&~ZZNiSL%HCm@lIPc{aD5H#;}Z_oNmoc|CYm6fgr#;)i7z1xd?hkr#IqaW&B*-
z)~&Xd;9QuXNsSMG8AV?!m<M1hIn5cmLZR7Uo|Kh^^Z=Ema^FYy`^7zB7;sL?^N;9$
zk8=Mzx+hYMz4K9e+}*`4`tT9-6z74D>Qqv8hf1h0h_jh^QPlWGL227VVX_*10?%O)
z0Nq$l(12?et^{!eZF%v8F-JpVBD7%JBNc$z9)qs@P)MK(;tEx;7~J-WF!jN^F4Q_-
z1^$&KCT}GeG`IL{5xx_$Jr$#XpdSo{1~m2~{@@mN-lNX$&>U9F=Lb`Z?P>|=;S!wM
z7pi5%+ZfewSsqmMWVKuZ??(Jvh>3ijkW*kCmrlG0F^eQn8yjDM3(X3NK2LOMo}VlH
zOXT=T#*FnivkISIy8^LjO9y6_OLfx*=GOhdb09)`jx(Y_yU=PVngKE&!p)MyzzrD$
zKLCb#T~#IZh-k*;=U%frU99`|8SGS*yG2=~xukzMSA$dgZ_ge01ea&_?!K;!rnJyi
zU`ym-zT@lZzTmm?ZqT7oqGHqUv26ac1T>ot^(T@vl=Rh5iiYpmR7l1<i`I=Z+F6f}
z^+&P*MG@^~2bT7&D69?*=HqoC52wbk3^`=kzWT+u29v8xfy@5yhEMORt$gugo^vpj
zPA!3L7{}XC_J?<1`2G)p>8FzoT)CY_w`=)!p)#5Z&x&^Pmc}sChRaMDzD@NP_q-|4
z$D2xxQD}c<58N}R3!LcF*+OyrB3twQIZO)rYR+EiwbY=Z*^-UTkTvn(z!G-okrpEU
z<pNWHneB<rh=^U(*(k$%C?X}Vl84`cLxL_)PS{hv#PF4TWUA(W*zx1XU!>LY_vTw7
zaoV?9fSdj1s{QKWG0=)YZ8Ti%l+egRUk4UNXpgoZ^n;AwcSfkMuqCgbI<0`k5q6^C
zJeSNZr+!>21+8DO-pN+d7H<a(<6I>sOv?ABwXMH?6pI<)rB9}i$8os*4!Uh-^UN)$
z8$Hr@YS_H=SwkvMpGNBPm(P;md$=B3s3}u=Qh>1wnx*xMJ$w5b?8MEE^L+gfkSW>)
z09j)yM4H>@))TGshIhtYEpRE~2+as5+#69>acOhkw2)XExzL<_qo6BnTb?PQts?i9
z_iR^WkN%k2L{GxjSxoQ+$fz*UGc0br35+k!C}9%9P}|>DFd6xdVX<3bLnf6_F?n;r
zc}r0zxZ01afP)p$o<C9$ld(4zGzGdW1mR~%>dcGa7~iGsRB^CUcu3ALKNhckfma<v
zwgBMF@ANd!*OOC_j&JpZ@bNth9dk4yZmIbjge)o@pzYc4n>aVrDzv+lCFZHR>C&A=
zZBBlwUC9KYDBA`z7Zj8BXrt$i0q>Y!Ck@!Y=Ajj_b7!;OnvbB?foIUS9`nAK7{Wks
z<pT}CTGjM}GJ^(qu6~HkSlyhW3$WfA;;g$O9MON)j}S*HHBLS&Ezbf}EVNXwU8F`5
zXu(H16>h&c<W#sF3SqcuEu`a{L8l&w^tdn=!A__7(GXYVmD26eFcIBJYtzTuH#9=a
zk)oT}EeG1um-=KALHc|Za4!sZF+e@XDjc`G3`{qP%=bp-Er9|VKpTu-Ghkf0vK114
zu~!A}t^!vuY+Ce+`&}FbToNooBPmvd=oWaAqOMU35>K+d4%dcbw_fSeR?T?U$&>HI
zXi*gS+qi+#%n`Cq6f7ebu7mZ2v+Y$rolp9JWHm2l`9s-#RJn!D)z7rUZrTs`v+N;(
z6Fye!{d(46Pm96SH5pBA035kvEbte`Pl(J4?QlH<tB@!Lu7`@*+@pTu12i8K6&0;y
z1!(iYtM%Kj0P#bfi}KOz8_qF>&*g`e03P$<B!iX_QXwBzQgVQUKUUM8OZaJcC?kh_
zvm+MjKQT6}oInOU4k+Bg4rpqi&G;$UaskKB&2%W755oA_^@@*Dc|iZFQ&wHT%?QK0
zkU-0?(u=k7j$&~6@?l+O?LO&&c#qtYQl^>}Glr$a&eC7_O0Y^qnS0vU1B+{u)0<X!
zx__(fhJWzebr0p_PwzV+Xi7Su1pdt9EdOZtIWU;KQI}I82}n;(A?qf9(gd>WD|1#j
z1^}`LA>E!m^J_w0kHg0Yq<C1<09f(3KQz0~mf+k81N4sL(8z-Qc7JMipQ%#J1ETH@
z#4#zvoYwB<3osm@lux(dKQKjvs&@1!ZZ<eZ<Yz-2@4&%1-mg@I0}imbC^#hl?YN1R
z1tfZSH{8^F;HKUD&41yy@C?95n-m-Kjz7@REbSx-u#|2{1tx_09bbTD1tX#SAPL|9
zy4%Rz5af+5T=5si$q*!FXAoeoWujE#o=B0u!Xaa4B=smX$1Fi%ig7gAbp!O_a&)Xs
z75Wn(3rGYoYQr~R9c<#5?#?&{m;e9IrfojMYCP8h$--zdzS)8m@+fT4P8~U@j8g`k
zNcRfYvoi(j-|`o8OV)qV3X`4BPmYI%uG(cq+^>n$%R2#<eCFNfyf8rx+vFA64E*^B
zPHq95m?d~uLCF(2IJN8<H>>JrHgayHhYNUkL6H<eFhELWF>@pF+~CpuXp>gsK4mAZ
z{9HGjQL{U^*vu~l?^)|6A0u*Y5Edm5wiQ+LAdf&rzfwUq!zsjk{FXd6&d5^29*$ja
z=~Jw-4KT-Mu?Zp^VCMqbGhyG9f()l5vQul;fAWk4dcB9tzvLUlK&`CMJ=yqHllC=i
z*|el(pE7(X0l-r<i1bv;KBXvB*j^U8)k0yrvsAPRzO_qL#%9gDoX+Pyk;ru)09}In
zn0N2g>$s#%Nqrv|!}Mw7D5^blLg0#>ka9(rtFaD>-I`myt?CnRxw+~O%zPb}&!ijl
zFTZ_GLX44z+q`4do}V?d$yq$8fbQYhgiVOf;?9MrDt-iuf9c*!?wn{4<3IcxAG02C
zes+eenOs{C1l>ReY=<?y?F*nntuKOY2=2V>kfU6>^PsI7K)^1n?TgRjU^+(qzVHsh
zY4TK|1#pFgZ)g|!g;w&%3ZY*cn{g*GDZEpELmy~wteZmuV8-f_n2Nr*wBYdAM`F>E
z^qT$n(y`07r({&%TqroP&G2h5&9h_X#;!^se^E_BgkyKg6mo}xF^#f`ses`h_!z2o
zYy_^f@=UwGn6irvB^1*>D`^i%+M`^1MAAO5qN2;MDMiJ7wQ_&6EmJcgxCP#oNc5#W
zOcD;wx=dM>HR@fqlhvWnvn3|GG=FhC9@%QKR+$jPG$>;|cwh4N+RyWmVI{Y3)ipL-
z9=oj7Fu48`mYA`w=G_{T9IDjDN?~?1_VNdOfTB!wpXn1=Y;TzJ*zCDUf})(IjwzeX
z&W8=lYO|vajrOmYVOG9ADkcrfrkSv5nbk5dhlGh}=XI96=x+UmR2CLlG%K3t)>+{1
zDi`PnC@T(hQ*GhS*?Ysb7R%0E;n{jw*B17+b5|I0|BTyO{6gd{ct8CmR#)X%(N@V*
zLuafr_Qr1JebveLTtf~X(LSJ65GoqbzVyiSq%rRmw&h-%3s2#I#pwRSMR#Mg8Ebje
z+%(-a$xvS+w?`v@9DjSmx2)a9&}}YUX`$Onq7GNUU^I=-u9HJz*Rt26Tw&Mea{0N~
zl;Ze^pdyW&7?&3vAAT}5UWPqKPMp#PSKN5HBrb+M99p8k;f&v4s(CHN6y}_y1}L0?
zg~g`<-U%IwI5AK7P7JSV%DFU@BJ3rE#q_{40Mr19kPhu{wR&$J2byd~-ooQwwV&|5
zVj&+G|GQVp{qK6|-3P*Ii}xd<6cz9MUTEb>7(k$*nvg#E`$I9Kbk<-ZE@kRgfd>fP
z$zombkB9$$1oJ_azRzxZa$Kb)Il^KNANvU`$Jmsk%>jv*5ow6jY%-J}N8}NS;}m#O
z^3X-4jL1Vr6w|MfA(lUY<tb$$5HH$QqzlNkZ_aomW37BNb~++KL;|syH)`A9UllLU
z)_e)Q-pznWHeViVXtkJvxhl4zHXhJ?_Dn;jL}SbB5b@vdv8Mm)0e&y7oqvGX(L)=G
zGC5fqZG#ibzd@QxN&CS<<gi21M!0?n1o<>f-N5!H#eW#NA;(&5gOibjteCX%yC)@>
zf{Fu8Va20-p*7v8YxDmkh8b*5F)cfNE_F{aD}!s{Jp~!7`G9bonV9)evBHsqGMS1p
zrJ>Or6r*v%uQ3-{_pk*>!DrrGBS;W2{WQkmfsut`Kk6gjk8d{nMg4im)c5_8ttcrE
zm24FyDVN{(OYT8Q^-#$@qGaR`w%LM`!fGqlk~}K3AIwnJvK-@tCW;)eJy*Mlh8Bnk
zETH&D{n|Q6K;1*!<1{#JIVtoWwv|qV9f}~yg0(A(i1jYRxq>5syHnxAe<}2YL{Q;k
z;&Tz~re`hwXRswhPAFkR$q_&Br^+L$jI~;$0O+&%@4*FgyS)th!6o<Y*TZRQB^~_X
z#8|Z3nOXnkD~=fKn2j!iU}9QA3k)+^FVaq=Re3ajiyMPuFrp%STiD{DxmxB3njiS7
z(!kyn=&G1q^SFLiP`AiKGNOV~L`krhX*-yrBTehsw0Zp@bG5_8g6D-mjXbXbE&oxe
zQ5xJc=7DKfk?Qkn!B~Vkk@^C;Ifm<;_<u3{;o2e(g7z#UFatxwmct!VCFr#;O<L_8
zTN|4fP~zCRG%U3)J1MLWF46;yZ?IpCvrPGRk~KMDpQUeF^rJC`#cVdPEDOlay;@|*
z?~6B$xvqZ)^VRIHtuDGx#UU^6hXt8}RFEUm*Q2W)wxed2sM%jpSv2!Ig+fOb(zH@D
zGBwjWvKg5MKGaMrHS?W9XlA&OW)C%^re^kxY)1X9X7*4s-zkJ<h6`y9R+x%rO4Q6j
z*o|pYr;6r_7$z|mzt>LDd6^fTS4&0bHL5Ib%`4?WV6il1Jd$Tg_$dX!q6rmHq?Dz?
zPgM}inwm0Iq{?`b8@nW<SLNFzlW&i@*thm*V)u~l?5L6mFUm7co%?h7=%TyCWAWtN
z%X*}_Ta%tUFo#jPy&M)G{d87rBNQR9C_zUk$1Sm2YkCoJHOoF5d-!JZ-9>xnM6+!b
zRz*%PIuET)>VsP^vWrFMC2@O!5+e6p$hv?4&I_#QJeVsK=w-bRUFZc!u>!iz1l_`H
z=+?;DLl-Y7Z*cX$!7UtnFKwbL>qSsHMX=8kX-d-PvCG8#JZSReZB??qz!8T-k<K6D
zlF}Nk{?>3?j-&?&k3&#tHJ5T8g5~ejCi;i9_K3!g#3(GcI04n+&sJc6&}HOF>=CY`
zyRc96+lzcMctwxtkvHokCVG-(b>Y&*vb?x>86qgnC#}CJJ82a|p{s8wbPHylo4Y3b
zrmSm%@)}qFYuu7Uv)Mc2H)Y-#%4=NxuW?JSXF7SOr}N#cPDY!rFw~RM_9?7(ur%*Z
z!XAB$BN@tlN9DD(m-X*i%#quPFsJBJU#><5H#WtW#7{&nDcKqy)vkf)&eJzmMQ$t5
ziJZxtWOvHW2v?T}l5QmIEdbyE^?_Le2jlA+p+{q`Ws7r8hQorsX*?WkWwtkRkUggd
z5>(PVu1McF-_PN(+u42bmfRPZJnO=;R{J`gsIA(!EVRHCr<+=m9T<BoexT7Cd8@j7
zO0Pa_P94jr$aT~$@3!sGQ!>b%56_A{nGH^P{EZY{aA4hE4VzUv<BWzuWh$dKmFVEN
zn3k&Egg$By#OjpVPg?#76qYlI|1V&8``jgeT$-23lgcX`PU$B~jGOu{m^BJ|JBv5I
zljVzkn_Lb}$eo0PhOgT^KMuQec|rI>+e~LC+jJQKj5?RurdKb&O7-lYPw$J>Eo!Yx
zCJhnm7^}{IaqOr1uCb89=snF~(f%qBu<G*qkL+KydERor`q0PkX1&UCuF&0wQy=>H
zRZzr5u%KW+G_w=h^dWQWDy3<nUPju=ZuR7pzG;x0<`^pST(dog*&oq{^m@6MLKP>L
zgQR4ntT}y1dkLv^*VC)THR4rtT*^)-dXCv_7<}Z}r7@0jmNI$CSMAzMnr5DZg8c4k
zZ*;)Yo;8Fzl8bavJ-NCGw*$(S9h_rG3~1Cyw{M-(UQ##nSSmcF+#5aC5k33QupZy7
z-9znw`}}6XtIjfS<wqH9EG2quc3(%5_7d>jXA54{SBO#6-id>oYo!J%w`+XgQPcu<
zyx@)2+HH_60v!&dgh+_3tlN-L2qVkwLKcH(w@?f?^?B;I<^OJw?4bp({{07sxOBm*
z&-}m;Eel><{=W<{`Tu5!&;{BnqoZ}#^gQuJ_NE+=8WT0RWvl0KuDA75vQM_QBcv4h
z&c1S<ljlQlzFmlevi=5%$d`yCKkE&-u{tm{dTL2dw~|Jcq+{m|Q~ZR_3wFWZKw|$g
zzSpFRq;qH9k^#xu56?Kt+Ay}@(u{(#OEH9J!+_uxT#B(NKh<Gbm-U4+^_K+--W0~d
zfE#nOI%j0JhKV4$O|OQ%iuHYH8u;f*q<zRVuLo1-vv3B*OT7pV#uO-(GiN~)NB)*r
zkZ$B}c$e_<1t(bErmz!X+7oQSORQW=VY^`-ezo+3bOK#lTVHAo^GJ>bzW}2B1zYfQ
zR;K+qij4M1ms@`!3j7=eRAmcZo=~9e;H_b0FRNefcv;&4&Q#Tn0;W<tSnzVMMf-9u
z3Yl8NT00>7ottYizZpD?PPZ+3t+;n)-?RWqTFdUN+-a!PF1hcHKDJ<>GHJ{}jlDdr
zzy-PrkynVg<g}PXHY*;Pv{<q>N~;|;<taKOx|_WyxnK!G{-d4mWu!d@%8CsWI-g^T
z&cGK<uqTPLd4>F08&@|#AViGZXAp^?61sV|L17=5ZN{BAo!qqQc7hsN=@8H<v3x!%
zpR1u+-IL5Mg*<7`WbP>B$%B-<{8JcAgc@njWY)bW8UH7-Zqf6nO3&KYn4*KEY_<X2
z4Vhe8AhFE9v`RNSa9<@IeE@xPh5u=|A0|nlec|NuewB3Od+#LW-N`EH`OIH@w<2+o
zXZ`td$&qv~beqlJJjq(yJy)!-oI+Czor+J7a>Cp`V-x5Lb=Speb3b7lgRSf5tLMzT
zAx~O5Gjyr_3&@y<6Y5fQa&xM#qAcdR$hO~J{Mb;fr&D`meZsRAU4_*;pTmJPI?SP)
zQ#tCXxyKX3^+}*vq0X4tph`aNp`cr{w<DORy^;1`%$L<_&~69<bP-m3zH%}30Bmk!
z18m5BQ%;*AO+QxefOk(}+!#fnG;$75TeMQjgY{x&K5Y>?AeIx%n%$;Kw&EOXez_)w
z3t*9>?0euRgS}gR&A)eWqofovhH>4vtS-=ZCpRO&abo$$%|bfOzL)(WIjf27@%bUS
z-W85W@I$IO=A^igQ<WhOUC3U;|L9M$=B4kkSriWx5+9#dc|AAOc`_<#{OJhT2<lBU
z4)6haW^8=quBfo=kW?M4T)E>c&KIH*jeYv0ptTO2JYN5yy()75tR-w#bw=3*@*IGs
z-%D+TFO#5|tGhGK0-q+Z?U}yu{MA344ab}se%EY{JW%%+We_E6<av&gMEK;Eo{s#~
zxu<cg#admi_acwqkgkOQr8S@lqNX>(nA#oKmO9oBoe24IU?BzLqpgqq_nhu3+d{Un
zt>%b2vM8;n5EyUgLpPjBL3IUpH|I&uE{!sPvKDDG4hI+=`RSofWZ8<AD$*)Hgw6uz
zIKV8W7r2%?<fB!PPMoV14ZC5}>Zet)%h#=Is|-uo%ofYiV~GiSYx-83<(Z9r=Dukv
zeF~6q=j#3P(fD_Z<E{G*pF*lROWGf#k}yI0U^4HnGnw7t!VBb?@vt)p4Xl}~fG&~I
z14Ycps*!bhBC}>)3Zi7l&+KbvZ)aVaAnu=OW~Z_)%@g+rn%U2@E)|RWe{E)-tV>RD
zf25i1qk6}hS##Fql;MUtn%SdSmm)=>Uo^7@f1_Q<qLy_@FP@)jX60FzW{CUOkwuLf
zI^WC|_y^OAe1-ltt~Rq&e;a*Bj^J<OIy^7^ZTuP<ENbI7UU{Q^T`g3BmCH9+YmP6C
zzVErH_VM7x5D1@L3M<&{bC(g37O@2?#l%YS`x0@Ct>L%y+r!>2-4&4-eIV@Z;=NIx
z{c3m|;?;rhE$erN4~8FIx-&wqd=>@wBP(S3hH~~Id%ewd``kq;HR4aaJFdLD@I&u9
zly|ThRlSJ48Pcg~4*e@~HCBSGXbx?~9rDhpweoT$D~c?#qNp?fa@K?VI}yfZ&rbKq
z;mTxn=~XsYyVjr6L|%cECZCWpPel-6X=dZh-%l>`p$J4iF2nXU1RVg3V$YQVQu&Ew
zFbJ}qM~)VIY*IDE+~0y_Q0)4MI)m+%1(+3kn+>!u8U^~j^5JG-fwPfnihM!#<VqXy
z=JP!^X7kF)SCUBCC{O-llGg=|%G8qYw3LgMrl9<1C|~ZCCw(k@`f~lPVQsuHC{KZD
z2l_8Oe#W8+)-Ddx29`F=rIFI(VAha9_nIIrtH&$03Jtn2fkVr@Y#W<4Be|L(iZRp~
z4Q!JkkBzN+8}iix2;eIb;-v4}@Uq3crJGtpiZ7|OU;x@{UDd!UK}3-=9E~W`#%pC2
zC^+*O3%Wv1xYpi=Iih!~ZH2~?y9`=}YiRlk-dw;C5LJB%>VbyYR7TO~e(PMKhy`bp
zgd5E=_#UabBS`Pt=Qypy1&#T@8ic5jgHF`|+b<Lygd|dAaImTIk&|qD=cX@b<N_RQ
z=9{eP8=wwRj3Jv|0Hi(@o>;ssB2nKK!N$BjyKT&^Vrba);wYSe(M9(&g84CTZ`u{X
zke32^D#9#xVQ=|`|6Ox<;_Mw^rtn+Qd%`^ta_LSexc9etZl8PEE0v|=s7*m03ml^C
zrO?%ndAssyhJT$qsl-cYV?4tV`&YFby**4uJK6aMhTs2Oybs%wy$g9U<fYqiWM$np
z<jU9<o(P?PwsK%QU<(pQ=M+T>jrgN=#PZ=>0mq&2T!CtkZvMGEto|pmFhpg|Kaqp+
zDqz7$D`Bo@fpsDvaEp5oM#4bPezKs8aHvXo>AP26s_@cFI8Rny`tFsN^0S}(z@cWk
zwB6R{ARhOnwdDf*1TIr%ENAbGaO!t6xpHR&7AM>}jfHPnbs+rcssoX?){6~}@-XIt
zoansoBvc|Y1U2V<aF>?gO`8q;myHD`94MaS<3Z3k_)4fyB5`(e*iq50uLPXQpo{R8
zkjbJ_ye~`_kyyMpLVcHIbvpAGbdEv>BUlqgWpxI@;U7@b31mxuF1Da^VZPUXI>Y)l
z3dAqyoMH3w+B2Ub#n^(*7@Jo*`2p@nc@sXb>3ufIhZ#Z9U<yQ=YHE`^(IyZ$N1HA+
zI27|Qr9yN6quB=^GxtAcI`}AAPY$&ySyh4e3h>?(Y?2X3-U-myq>#Q}N-J>^fA7<v
z!%=`uS+sv{n!OG}BUi;3+DRjd(DM+J3=4{6LL*lHZy%oIHW*Z?WolNTsJ`YVQ!uXQ
zHH&wb#Y=gjKBz&MW8R+0lyq;bxqn06o@BZWGWS1g-IF9`d87faJj1aL34mbJpj2){
z=oRb+dZ|bK)ju#+xa_doRVH=3f`}%Qs-H$IcmNG(zutskK=1)sCgYhV;siHjDBL&k
zc|VT!^Lav}GBk^jnR3G{3WV(OoHf%OFjVkNU#lvU=PZs_OE)x(-C`{p?i-22(ChB;
zCbGf%oq0t#^M;pK1SQ6nVsZJViXfIE$E+gnG^@MXTIjAkVRf&-bvdq8rb72Je@1-)
zG(+RUhV_{HD+{&K9Ia}WR-O%EQL9#Ir9`bNK`T$91yV=}<r8uxrgP-SKQFQgd1YE6
zK?<?c;-xh5<#rvt6zN68OV!Xztf<0K*)i{iOj;JCXw0;7vFmuIz*AF8Ps2>#I>4%6
zF*T%<&8)l&UT<S=FkSM#rO_Mu?q&Al`O>uc6VeJuI}uuBC<>C&-~*kIv8o~uYKgHi
zee%)F#ZGC|gNCn(S$5PdOOKh&5=K20V_<2D{tRZ;^xXILk!y6((di%JI(v>mHri9b
z5X0e|r`reB@qB`%FR2`HY(_(6YTfby2$LZti+S=gH8F{l*9d<wIV8+k<1;Xg$l27b
zXpVgV2LqBYFL^O7R)%dCu`#dYFhOO7c?nh|;gRu55yDrlK+J;&MllO64jhtbo=$zI
zSl)0_m9eZYk<*kbBiA5Bz*+4TGBu4Y|G{SQLh!CnY+@nBfk>24heQdrNR+U`bH%K^
z!hNknMk{#GFlgOp&QnG5eI-e~km`ES@=)*3X_KmSScdmX=JS2X>kZ2|1e&Fhqeb(t
z;?ro@vn;#SU0jIOxQOY)DFcaVb_bgfFKx?ZuIF3Wl9517o-k8JU8+N90n$3qgptz$
zu0=T(B$3=-j^NOWos~SPBqgSzckX<?!Lb#eV{6(|1+V+G&X^#kTj|iphu%!Mlh9o7
zTRrDzY=xAs2nWmT4KvjD>LVPk_1E+Irp5Ln9hJG|kZCZ5K1~F(AZb6%yC)TR-VzqX
zQ(NG6LJK7fV0Z_2C|KG?Gb=vm*5G+-vGFZVBR~C;vSB9HC2jh`Tg8>?r(b~=5r%*I
zG&_N>z=<YLpN9<^Ql5$SCacc#)*n#%!6Emmp9`)FIFqbsZ?R5M{UViJZX)X&1sy=R
zIM{989U>MOq3c+2fRAYX>>!FZ?RgjLgb$zWPN=bl+^_AVDZqYZ(%uWqjk2{5;k^K=
z*B1e(?p1D=BWU7Y9z0(}=fCb`!Sh4H<|(#OVx!2wh-#wK*VjY8j`r`#dXT37Mx8SK
zd9-o0`}py=e}T}w8yP?_`8U?n=wWM}8`7<r_pCr)Z#=A2n2QRl*{nRcBfvqyv?gdO
zcsv0=rBzwX5;S*|YZ%>uS)5C>#CY8{pA9&BXXc4`0z5{)^3mCFhlA&~MwM>Y$!*9Y
zVItF;d3W@Bb4%vhA^7sQQoB!OoHK?cY=j<Rxfv-)@FJ6NJWVUuWNliEG%7PpntNw-
zYtPN?6nILt-p4>FyfJb-GCj<IJ`SR-{Vd!WOPG?WQ7jqf%#K|y^t<=H`8=(~c>Gp?
z;Y|o9=H1Q*@w=GT>IpqV6YH?Y$}z#qAww&@e-k+!&77G4q9)J#zoSXLDRSRTEqR{}
zJ7;1l88j79<$?kq&Rm?fnfC#1vfxX!J9A|oS#X`TH73tnV*k%s6kt79iwepK7W+ph
z*t|Q(;ddJpg?q+`hip00*_m68D9`Qzl&34HMta~r=IOpn1L!eA-nf^B+H)_QBW4Ih
z4z<vr=gMz}kVsof(A;$eE;s{)&yA*_r?c8_e4fq+)jf0Q80M}RxrvJF{Ue3se2aZX
zc^XlcDJVSzq;t(!f^=+UR;h_p4Lu(qxS4*JW|>0nm6dmNZ}8nG%n^Wgei8t4YR(Qf
zqa<w#<!{F}`&{$4_`Tw>LZWTBV@*}OveHtgn2-wbr{B<j7K?Dw8Sa^=mf|YZ2J18n
zxSk5!1$}m!{WzIbW@_%~OT{d3HnVCp`sQx|J;KFQ`;fFLELE3ha=x!e77=QW*7mJH
znw3Zd#41r&I3>PSD$wgaCdJThg`rvG$9fCjNW=XImrQavJL&!3J=Kuv!US)%PRuuL
ziPEW)APT=T^F)>*krV?XcP<=CkpUEA5;@v{vC;^daa|%X*KRwI$RXr|R$MgR{)6I?
z^Y&lZ*)C0D-D<;skVF<1Y3oe&;Cm2;s>`rnBup&KA*W_J?e2tsdrUU0&8RbcUf@Eh
zV?{k0tGT?APe#H3sI$f{+p#*PQd240>!P;6!RpOg%VYAy#q7YGF{!iVM91$-_d4zt
znB@e7^C66Ll`hO$o#c#P(NvijY-RiNN~~Ldw65xWCDn_fynW)kVcIzh*$#L<)h#_U
z=6d|gHM!0=*q%Asm=gA+;m?oM5NT1uhu%iWE^wqcH}43SMJ0Ubou%|#2_JfgXo@d<
z=$!!tDlG~v?!AhiSjoI~kaO>7thQy4ZXbY*y{KWDpW_J$)`kRWgSCNzvRp`{lYxBz
zFwni&m(r}2sAGcEF5u{*TS2zLBAK=l?0<0|&I7hkV7doP8iTQ$u$}hJV1eoUB+nnw
z1e%v;LYv~8Up_^yp&{i8JR^FKJv8cfvwyVcPIb^x_<V*y<Ng3N?u+mNt19>LT<r_6
z)QqZfzi81O<7yrV=6p=U&k)DTLNdRk6s&(TOE49CRIV(=!(rP>gY7h%U9mV-=XV>F
zk0PWbsAyK>*a~}GMuiz)or{*>Se_`%jX3={@d1c1Qhfg5gyIiF!L{6wm=p#rtSTsB
zZ=(Nsgy0z@$)t2i_H|th>@3jnn_>bDr&HqhwV(C8aLIEFqVCd6cFO06y}iT$!(Vd&
z43tx@TJW{I(t(=te0)2rB9Eu1vQT@RKAj_1BpD0Lk!`6#PQ__)F?-Mcx0LwEy{Rsm
z7iJRxqg{xhZs|aZZn6zY34{^Q`2pf)*OD25<|EJ;MS3f%7DB6*&q9zMQu_ka9-~tT
z&U)+5j*EX^tUCT8yc_WQMR+ue28MmfV0Vxk#>=XkZ3xG}KaBp7DGfB-t7YKI@5uT1
z@+kSPHH>GP5|s?=d`LivL|3HQLD8EBHORLLE+02&@1TZBH`_Ea9B{!y2*Kj}|6m?R
zxa4oO2tj965`!MBJ_R;)-rRixo_!Diy3uTKRj_n%Fm>%%<S9Q@q>+Le^g#ihfIMvw
zE7EY>byq=_%kc#LzBC9<MS83Q6=wL{PZ2dt?)~VlBd{aT*H6Flm<nOds7quy5SJ2s
zJ!x?2+INrwTNQ#Yib++TQCG@B@W})f3x*t7>bvy~r-N0g11#E69M7>6SJcB3#njXd
z<JCx|A`%CJ_E$B@#SIg1awn6l0x}rZFrUaDDW~xGB`gR947d`367AkGeKXPssV)2b
zSQ~vkSwa9;!##prl6yPW`Gr`lxCnMY*b9=|eEaJI*fYw|!c}BjGPffAIV?ZLNb8Nv
zm4ET&xYZodsLh%~#qm4v1;3~@zk)2^{LQbZnno?*_L9%O*V86F_UPiCHq~Q~+994_
z#Rg$R*8B>N6(`J6?T^f=iU!ZwweijTGqIy^$bzFh-BLDEjs|ydNd@-Re}e{BE-FTY
zD;L>@8sdkR<9XYTC3wDLn<Mm4TY+jvfz;+NFjRX;f4h#Ws(6#d*e}2npJrqd!HyV1
z43j-__c~ccIorjn&XG_JsjNg&1(aY4tMMFr{wvyZ4Zes>>ED5*LaSs_9R##$n!ow1
z0b(khJtUj$NQ0^)yTb@wMRvy&h|Jj?sb(%`cNjVVNTmPG?wBlICX2^O_=041N1~aJ
z$?lkB=DO^T1T!~fcf^~yE4xG2F%hQ-e+^S5+M7kloE#nX4id{y65$5qJ9>$oAiQ`J
zZHtMGhbJ7$`@b2WmIB}n(=c9A6{$Fu{oEHtIHI_ICeCz2l!VExSx!50?n6p3|IIH&
zf4;VGQqd3oL8~}LgD)^Z>bD^Y2-##*`JwnMRNci5aX$>kcnpoOlH&**BB1#hOGB&`
zNlX9zh*|^quF|mIdf9G!OQkeLj}M^aDY^nR^t!Ovob;YmfClajL&=0h6d<N{5D+B(
zXgua|9LmOZzXH7*C*f{=1>LD|_oHySlj)AwW4J;MW<GS5?lidDEXoDo?vZ=wSs>jZ
z;@UiJ6vVnmkpdPB`-neeQK!_kA0mj5!EF`aj*%zA#8M`?e7|(ftg1{h`F_PWGe?=E
z^ZiO_W|lI1q*AFj2_}{@DbV*T5nmxGlVsnoBzz2|3`zQxlCULe;T=oAZW!gsgQ@F+
zWv=#UEEI4n;R|*fJ2VO`i=Cw5B4-1>fYV*2!KVc2<5T;eM~S^2>1tH~d;;*zAvJw*
zHh@%Kt_He_>_rig7fhs$2>{lakAN=!{S*qTp|Tf*Qtc_Vw`7eg5v|ZU`7@oCbvQKG
zTXR5jrDyDKkP2%F0$67*V;`1Tm%@iApunLkFRv~{tl{B+fb*V!%pZHyZ+D2#?-A9&
z--v@sE9{k1kcq4h5l2F=<oEURLunDn4X8m8wgDI5HbjQ7Di!Mn)!U2jkhL<C=M5{=
zR>B_^E{!IVi(7vMkwP)U?w%WCSXZ!BFycb4N3B}OPBuP@+R%>Uq0KJfz>Maf4m+<y
zT??%}Qakv*d%Jb~uA*714a-@;<E!@Lo3}9Y&t4p+jm<H93PU}Nl{llJ`evU^^znm=
zQB=)~3*=~rBatWDkgVu(OkcGwZ%J&tnoI@o@MJm)c~&R$C_PdMky1&B0p$O5TG(S_
z?7PQbMjV-<T;i(-R6&NtywBO|6gJt2oz{3c+qxh2mH1pJwKiB*+>z3&bsGlmdloq=
zk|K7((i@Rlw{&bBe6_20)o9t`nIG^=s-04L6~y9PGRy9u+*=#lmiI*JH|~v!kqoE_
zwU>HEWAvP-m3}lor<gBQSV~!AlJ+rJR>SOTrO%U0$<O7h5|b!hSF&r={<!W9Cfz{1
zCq(4FAe(W>b^W!RZVKVsV5&M<mom;1v8%?THFLw-8%``BB~X%}sTtP}D|EarJK)RJ
zTCOeW)hB6=EJSEH)+9`SJ*P)bP)AWq6p$T(QOHMaZTi5t*w{I97L)I8NnqXJoXQQR
zzyq;CoHxQ|OM%~tZF|PP#IYrP&ZLl#Vlq4rW#f3v7e9OuDVTiTn{1Np$qWNqRLOrD
zV}AvqoEoV#&*4l`YjPr)L6P-SV5VvXJRv_ve)Oy*NcofmjVJ`|W=Myb6?R8mqDB!H
z^>~mFaCzyCGNiG@aqxwt;<H*qi9DRXG3*y(P~32ZB4JW59BX-EcV2FK-`wzTD>*O%
z5h|wiDc!LhL@rukLZcqjgrD(HU-kaH9<FL%UwcGf!kd+CtK{s1xX-V+d=uc>lrg+d
zo-=b9<#)Hvr^fZF*=f*}qc?OcADM!4zMRQTpZR+vCRIs<EY1)<-!x7l-MDA0NsC+;
zP=RmA@T<T>_4U3J;=1N>-~$?zQU#t28%na{)rY4!R~QVQ_+z<umL?&c%)=SeD+QE?
zr9<cqw3lUH&4*u(WQdDVQR1+Gy7iU3TG{3JNl5NrWsaOVV;4LFTG!}gadKeM54P@G
zith={xIJDKp<QFxY!NVz4;!)tGI>wDBK#wsj*FLP>93Q&!#GdaE}M;YPq-7SF2?y7
zzbzs=aa)u}4aYQbT4$stXA{#tHoF&|iJWh+x6vB-vb_Ao<Dd+)<SElN3{Q_xj96rS
zIZK4)a3HO1A(PFI+(}3)K+?4#Xeh;!6#o!JsIB=y56?2#_$<38z&tM@WA7X`+Pumb
zlw8RbSR>#gm(WmK={?sFx9r;yq$N?Zy7YJ)W{iq<y^C#2k8k`qA0J%eXL6I^bP*&S
zw|DA!<J}63hP9qra4Pb_Z<#URin|dC`kNH6W<JHseR~M?3bwBZUOqy{bxQr+7s8e3
zg!xp^cV7rUBD{cVSV^wqZ%X(OA*U{+*eBwd@1^S@(GlQ;{54?e#=l70>&I>IWQqNk
z^{d$o_4CWgU*&kUp#myh1$H6~RwzpX*Wvt+h7-<Cr&Kwk=4BsTtt&8T?D+CjTlAnD
z5VKW41|qD4hYOIoHi9D^?zdJVbE5_DtrC#Fill7cNVN`5*dMl^AAc*CuJ$yFkIFg~
z$vpqdVNhn@6_udx2DXZU8G$b?uX#D8a@t3F*q){Z#EemJ8L2iaKar1M9;)!t3KPyt
z`|zmAlSer9suu2B_IZjfaDyJ7UT3=Tmwo3TzVJCY{?Yzb0_MYO(+SH`$)w)X|H~{f
zG13JLPkWfoxxAhT_OjR=@R#1G_=G#L(;Jc8Aw>rS9hDlRGR9WIO({O~b0>x#a5F4j
z3?7@HJunkr0ihw=HH}GOf3Ma}|41LM*9hr6DFU&N;hWZrfy&N!NA2xw+4A1f>y1Rx
z;`DHMBBwAo`1GZ@0+;H!{frgivKt2Ceam4#h47>qju_a%kcOEw!Q(G~D;d+*81MJd
z{v&s)?VxkUl<N}tH;;9M!lwvFwGn3vE2-oJ=-@*q)}*weAnt#fiAfHuu&yjmWz}g*
zdB(5jERM%FXQ8T4+SvoH=I=@~3Qpdg5hSI@)#2L_f7M^`1>I{@+m@Leb@}nKoNy-&
z9tRaSaL7A&2lj=0+kdnIALOIc={qt1sT>$$KWdKW#>7s8E8V1}diBQGAZSa*rw>F$
zvpblmW)5jg5xIk<&<Nb{be**biPJ<1D_(eK+VvzLIto$@{7?j4nvh}99C@!=xM^WY
zX2{w)YrbEb!dKj>Cy;wc4Ifq>X0IEBr~Eis9G8{;<Lrla@?Q(}dEc#1cF9nLnn0yf
zb#jyeJOK!=!sA?wIUKp);h4;DHh8#AJ{<pSYBU(?a`^0lMyYld=^S-SIS1`9td?im
z+X#!xN2>-voAHfb-G|jBdOqa=@(om{*3~HZ-!NUCBbGt8{u4gH_ob?PPZJNP$ymwW
z_Po!!X;~jC8U3wgbv=)b^5LRMbOs}Jy6Y@q`VwYT%!o_J&o#=2wU~G%f21yUP!0lj
z7e6cG9*gMpTeGlYj(k`BVt5?t67CpI(P4<Z75!{jBC>kvM;%s0)~yB*=*mhL8OV8%
zPO|PgXtRUqHk@>5;hKZrs$}zGip3wJ)87D(5!&ns%~%A;0@>Y^?<cz+k4fwC!^Y6^
zgIS!;GUexD1`voE7<)7FIXzFSn{i<FfS%9F2+pe7<VX_3ek!9*e!gIzQ)+y;<^%HH
zqg5*RykAO4V^h9ZB5W=RU9GR1Uk_qG@qwWWegL2lT~Uc(PUGWo#?#TZYFi`p+)Lr0
zm$Z1!-V~*eL;5T7JZ#F;V)%OJ<Oo)FI!6s8HrO^dp2lX}$8IMu`Ej<qZgYligQdDo
zI%72?a@F{``t*2^0D-v8uTP*}DPI3Se7(n)?WEKd71nG`K^t(*$@O4g+5Az>_8&!$
zj~N)(eyiR5x{=lRN4?ZPYUJ(aOYPH_z>JD*tk5it*ZjN$Koyp@!df&PsJVP%{`7JM
zivjV5W%I`ptK$PREO4g`U&iiM<k?MAdTZO*6!aYiP2*|v>kCc(Ze9}I0BM$|Az@$2
z`m2Cfazl#OSo4Wn1<%e8&*)t3lJiq_>eHYKU?3=wyx5c{*XXoO+QZWUYl3@DOlzCI
z1pb{Q15B6BID_iTAH_LfBGMQc+x|Moz!G3I2n^^+G-eMNZblxkyK?&)MU-a1yUu95
z11}%m68Da9)}%<|qZVsoWIl1t+HnEm5Vr|(=-+c8O@%hE49!^So77b?CnAbh{=ob!
zk;^vBYLn&W%GbbJK8|_*eY=5SG)P)qPRACx!jCTu%BiaiNS&ABP#Fz`D2JHY2mOfm
z)8YJgIT;VFnavE*F*C0xB8r4>T1Hix*;GI4b9*SC-OO^tmD_kSAtrfJ;?O;~H|;pJ
zZ+@WZh<3r*`v1q7K!!5`GV0BNpE(d`5tko=$FrTEv;aWuRb!}EocT%DGFBUI%6$&R
zyU=^&b_p$Tr5>9!y-}Llzbal{GSk6*&I>bkR*s7O0(0>B8?>G_pXPj=Z$tj(1F}Rx
zU1QP*;MY)|^k7C3v9?a=?4`RC4uBd!NK2_HRspHOWq5>`^!MSMg$g&zVK+xG_s4PT
zloW-dSnh=!h>qd|w};ova^zTO13LX%MGcJ1RhXfEKD!9{3T?>d+}Rjp$*uj|crh_v
z<Srz~l_>o{-5r?yL<2+|yN41Ia@`%v#d?#U1_pc<mp@AvTZyRj#@UMl%skQ_sviwJ
z_GIcD!ywtm!0hR=Kak^tUbAn0A5EH1OWo$vs#<7#<ugbPb$KujQa^<xh8#JA^kn!!
ze9kECSl*eeKjXTzS5MyEte%*`A+B#Em*-n$7rx%7NHT!2Q<cPUOpbXxQc-s4f<CRh
z>m0SLwJeV#(4JTxIG<=L#{=CFC+Fix>6DFy{!M?#sy%b4Q=>nK>p@)i<GLT$R$N<g
z-Gl2MTw8E$>BJDN?2TevhR5HDISfuLduHfar>41<zvUb3;}7}=TXHyH-}-p#K9j}?
z$Qb96H_na0r+>iesLEKe9I|u(;?Pza@Mdc|iTO#@?4A;bOZ}RC&p40l92x8>kj9}@
z9yw_!DAa_+52n%Q=XF=)*CiuBJnsJ??%l)My03KMy`{Y+5SM_EizJAn4HA|%mjD(9
zMCu9$WNzXjVS^pO5(o^!_JBji;G`{1W12X%r@kb{o=nG1jFU1mIW5Ic6F1Y5GjWO&
zHz%0n1JbmEr-`Rw=J@Hw^Tf&NlYZ~|ZDBjp_H^bs-#OnOi2+Gld;c!$x7NGf^)7Rn
z-IM^?f-jUCj-<WX4_U-64y^H)0_hz`^VL@6xCfY^eRVD4%^Pp@+t_srOo>)K?hO(E
zWfmg*$F<Sn&1?FxEfUJrwCc(Y0UX3QAplC45-h?Nu+S}old>cp2=Q1O*kDvTrdsYe
z*^T~Pc&d!-W7~4MNY7`&nbH7roKpdKKs1105S)xp0W^VrY3EVs0DZS_|1HO%ARG5x
zxDRL2OYQD~1(<D<3tC$w^?64C@B`2Jo?a}Rrt?Ujtfv@>;bib$QIb%Hpt?2^OGO^v
z;L`7WOD4Saoa(0Tx$jK>;DntSr7+fH46O|;QY=T+Q}|i)jWGYagdgzi4S$9=Xzu*(
z+aCJ9FRn~BAUX`6-s$7gEbzRhxy((lL=-QFPvKB?-*w@UPf6-$WxDmA;jO6QzZr+*
zD6>aPWhoezMZPCo`URx5m3OZ53D21fX!5WX&Cw)7Aor(SE?FnF&YqZqNM<e9P7`4z
z6$tvoZ4XED=pFI26x*Xd=x73SX_t4OkRc=>`M*PL@=a7dub3%rAbNHcS9-`xY&18+
z=g}`)1oN_yj~gokSOYF`<t>NhOtq)spi3646f+fUL4|;V2%xft-g7&uFB<ZfbZ-i1
zuxpiKjrXBX`F`3(I(VWn{q-MwZ$-FO;dxZd7nF<839FdrHp7lVhrNB$WTDE)+u{68
zd}zh+*~M~hP#aXexTzIK@&ABd4}1xyT?S<GE~#WQ*X7*&qIVxPUsyS|B0u=viViDm
ziV28}q1r8sQ%gK69Gw~HzB4Chl<F`P5Ct9)e=L;XawE(;Q&ic-WgPdmAlDcG_`z>u
zF%WZBTQ%iHyV7D99QFg)x&B-ggZR($2qs#-2i+ugJTo+j7HRYd1_1j<?I119JM0fG
z00(qre8mBc-s_6%nW_42T15O?a}5_9bPv20LT_z53rhI2n~4UoVhFI!$}E=I%4)^K
z>B?$P^&5pVo@4iOtl|eOG&bMSn4ROEI=A86OoVpA$avH(C0w@``$PR7?tw{9La#T?
z4j0g2fzF81`niDO3LGYk+Q%f))Y;C0EpSgZb!EA3QbkZ9Xk!WcGHT4-?Az^GSh1p}
zaM>OWPRqh|m;?mCCg&XQM>Pt}gYcaC^?D9^j)y5-y(ZI|SW{zry}M~x0***AkIF=z
z9NT^MqXY20Hs6q{!^=?6sc&ypAHX@mbDrG!E=kD1?tLksUQ1fT@ys1{3TNt{0dD(J
zK<~#jKA8AF@59*nHTN~fm7Z*GWldts|CfGD2A(nMk0R3Itn-m6Dlq=M`BIkizSNcF
z{D0S8Arf;JUEx9$-~bVPKIygICz37>@fN2NiE$3X?S)!ndQnY<Df}Bmm{N?TXaO1$
z#-68$9Fj`$tor_}a<^r@D0RqY9ve@wt;Zc4^bjIK8--eFuu952gQoKN@ABpy+isFy
zqR1{Zi|Ql(fiVx4HU_!26-%`IA1#qIpV?$y(nTN`h3KHjV`cXS#urQ%X+{5^wnAvr
z7R}8;1!>Pz{FSr_#0O)1{a6}q$oA9_^aLIT7N&3}<7ih?2!fyuo(euFhu+#qrscZ{
zyZI^oiy0hBk5@G<_`0i}Pg&(iyf-4G;L{ExiR!%?D6!8t;TS6veeziYhBm=^An7%0
zVvcGp>oO$ld&HuH$PgtjZj1B5F&25qRzji)>CHd;5vTgI4XpkT!0DIPzKJ0kz0mMD
zuP#?V=|#$#UyaV0-}v2I9`)aIkCm&wHL!H=BbQLN%59%Yeyt648kRXo3lS`LgzAB~
z3`Nq^ygUxE$lsks{(AE!^k+~v`?o{PnDdEaEYo8}uS|=!ocp@#aMK~nEa@x2$Nk3d
z9x7M+TBed=+EI1~L@U_hI>}yW+eO*FjZ?or6rIO8WNWPK;m^=D3jQ;1ik|{m7CJl+
zCfeMrg5K2b^DUv)bY>*kjs~l%Yy;m$LCQaHXTN@NDfN-R;zM}mf4H1`a)3m#w!VK7
zI-0k9sK9^f!*A!FP(GY}0v|qKH5bryT;J(l`OeWFUi*g=Q>pu{e}_J?;`sWdHIMw&
ziKppX-^m?kA0%n6gx&PT-d$^3AZCReK;;%j@&hl%w}-`|EA^yg^jGw{qBVFQ{I}74
zOZTkXONqmeItTdIy9QJs{sK!uIuY$wspfYwKt&Ft8B7-q-NOFF%Rq>r`gHuU{TJ}h
zUmbY-LOK6+_jgv<YE+ngV?qegzeB(`FzK>Y70B&wX?xT6Ylnr(gu(EE0vAw_Thp=T
zfCqU+jYpkW^IiF>=n1~jhCo(09S<d&%69cwK-)JP60MV~+#|@mP?0{XKC%ofsCC;5
z95@he@#CxzM_aV3f{Ove?x0Xu>@x>Y!2Cbuk&;%lE0}j!us5~Cy6Tn!e`Z9fvRay=
zyE1=9_j9^3X+~-dz_E(En%^i00Mcj6u3`5*?!0n0bhw2Pgsn&_*Md9W`>`L<SN!v=
zc)A1ymBgFdR$Ju+wn9acLg!bZDpAV~w%85SA{Yg_Br;OKL`fOwP)SH(t6&WOt4RlR
zGMDbBq*XfWJzzC>fq{DWKPY#&m9ax2@T^r`r^xe6o|#Iy@iQ^`xZ~JAUDPk<BC7)1
zp$Npq^&@1qE{=oF^_;kJzuLFumpNDZthv{&9fssjumyT(j=Ym?F~(mZVtLZv!gXy!
z?nMwbU$2@U7NoQF;R-1}i%<!ED7>V+7Oe91nLpzmcg|4(8fwO39pTKpo$mN9_ty4J
zNCrvTTsa`5g6kF2By$6CHN*y^a^fnKncLw;>pj{E)@<uIRRIf~+*h=}LL&A1{#~|e
z4(c6k5lt(NM(TK}tny&yAg(7AL1h84i!x5BPYgCyg5_8>$9uXWm2YO7_R3FJW;lP`
zN_iXtHUj(z`@gkLD1R6d0d!|_O+(4km3hu99}djEHX+ql&V6U1@LK1KfD{lrpFgU&
z_ei3i{qMHqi-3=wk^_&4^b_VR(bmE*QWrZ~d79H;N`il9wkWypnTh1dVX1NpVlgLY
zS^ss`0KphO=hs<Hjgn7u^Bk2PE66`r9Jd<9w9j0gx~s3Wztp_Z5+2Mpj#}s)?QZJ4
zoFIu&Sy|o9myfnrWg8uq;N{B`^xr+(zKo;x<)gvN_0vDMCB1fPTvJkdRGr`-=WY@9
zyfqj{;tL{KeOp)>)jI#^-by;W$p=D$>uSC=Si>)>4b@)a{x#1{+D!Aj!JF6p4&3(%
z+s2<RJUK4(<IIw1#sRp_Tlv_b@Fz}n{CY9dk(V2WI0$5Qx8d~qlkZEGcXYq>bS2FW
z*M+?hOYBiAAH?iMXGSs{FeM<V^_~kEXT=KGjdkzxhWc=(v(4D3GUn`@-wvRgd#~q6
zTAqc<+STz65(niCp5wT4S0-{FkP02zm{s5=ASJ-ZtcRdT0oA^=Czy9Y9j0<-B59e|
zwAY3$VlnHiXh6yIcTI`jQBpMKHLK;Nsg#3qKz!j2t0NgnKKPZ4ClHLq6#4A1X{O_j
zYW1c#K41yF4JQyf?&gnRBi^|@H8_8M2enkHio}g->pz&-?E20`@?s#i<kdg-49AsO
zjJ&(;>B@v)ek9jt276N46q=#?qW8!zJ1ISfmV+5bn%4_QT+mq7Sep;yc!=};8loV1
z^&HTI6Di#T-+sEXOMYh}c0-Aa6_a((Omt<Pze$yt?@wsVKVB5}dKb~N8c&5i#!8f-
zn%!4&xqjSXNka)a94pFb{OTrZ-8gP^0{;;!1$A!hAN)mBAs|ub*HwG!OmCwn_q|9W
z3a_@ZpT9DM;umNjq982udrnc6<V|?Au*Mv?wqN9Pub2*b-3gBtKr+jUcMCzUGaEs(
z+HY$CF1+K~e*MrU==7jhkR^A{s%eNo7;@RG<E)yWH@n2CYy>x*$G2Uanb1gUA%!Dv
zG=H3iK$zujh8;c*h5A;$<LC=hDTa>E=&v#R9+?|XbznuJjn_VUCF#fLVmjH5=uc4X
z*vzgMi3zsL6+aU)+X*vC^*;e-!~JKbl83@jutOr1U8{W&CxBZVQ`K~#>JqP_MPiwy
zOl;&caRNCG)$f80I#D#|rr#;-Fv`1V_C(b;za;Ws%_>J)Lg|FHCW~Cx(Fr}}yj772
z2#B@R&8j@j(fdr@|4R{Lsza_1i0{*t^fR7lSC^+EF5KJwYUhymmW+6E6yy}2AczxL
zL4-KN=|zk77<2gP3G8Q<F+?){mFzdjD}1{0^MB(t-f{!$DyHgCuYAKhb&}>4-zV$j
zE|KnEkJ%&DIM53yPnizI0#$gI<Sq?}$TO}8PiVePp%%B?WkIi}ps<HgY|_fiW(!>K
z`t7`yp;_Mc5b~Bt2JOd{HB~X@kD<iQdJy8bct!<bzd^pzu#LM*+C;!FqbBJ)c%1G8
ziYPuV=c3S?NK42h{Iwj=d%EN{W7+~|H@lhbW}njZJE|f3!lxH899{V)8e1S>;y<35
zN?P77x5X4yxp}@PvqZ4_HkpcFm=agXzi|A-u6h`Lw%HOB9Gyr;_*3mR#=4d>(aNZ^
zd8bbvQ61-4Q^+_TGwJT3Cqgq5uK2P2u^UL@B$+i}jJ>}GKO=2$LD(Zw{=?a<i0IP$
zX&)t!mDQfkk&Ua;jHUyeOY;$Z3(3VsM<I)sO}0Uhq_!c{Nv>KqN?hs&rK;Ma{#thC
znJF<LEllmIRW;^e4)AIBo5LFAQ)i~I%gAmV&7H5(py#8e0P+r4Rhp^<s@CH=w7%h3
z)7*9jWMC|-_~U7-R4a27gWfZ`1|8ww5Q*>&D|4heh2}CjUL+MT=i!cMmvE#7_?|WZ
zMbMYsClsYD*QtVYJN-S!Z%*Bs2fJl{TLgXsfS_3E;rkl-HMw#*scoU}4o<nj`gRMx
zX<R7vvGM#0U>#($c5o1m=|<NQKxZ9v)>5Bo&PvcrY*xD;up1OZMgF%K(Gu3OC3cH%
z6d|9v8S^ZZTe90d(kUYT=!ZgT5xZPr46(h1fHYyBB|BI{zvV%IU1>){?|f|HvF;S?
zT-e&@s+g>5>^FfOJzI}EC_DiUXBE{pW?$@F=J$GV^(fKn8S@AS4f|#U$M7d(8^sa^
z^rcyRy)R5N`Ce5@E9LTGx6fv9wM}*#R>q!HfmlxXMp>9EsbvyIH>Q&Fth~h=dmO0i
zIfwyBn)}<nt*S{&9@g!V8xnm%Ap=5T44Zy>B595r>*(MdN%OU0-SbJ2ocZhnu*wI`
zeSzmeDx2;{>0uoxIris;@t*7DZh)FvGuD9+tk0`ngw;rHyu?{i{)XP7|KT|Ve3GxS
zWWU@-<38*<Do86&cHbROhG&T6E!$V_Z4by3Cg9ct8=Vp!H-9{AnqG{pH7~8yz3C4M
zYa2lhqm-Jmca)Jw{*iCAXN{sO?m6AjMy3dJS2%4oXAS&}WRW?0%z>SLr8STKD4;*&
z$3hx)UNx#6;FXx<0#%LrYu3b2B2H|QOc|$>A+8>0eJd)7T-0qBI~6;6T*SV{>?Rk3
z%|`Q=+X3%O^ISEWqJuMLc>?oZ3#)JbN+J@8pb09^f^Lj$XwXA=fAcg>L)?KI8ZMv~
z5_AQhvU={!6iK1#pOVAy#mQ?x1MpEx{FQ!_8fRs-d)+fk0Qu@SBUooRy~~@14U)No
z&bqR8=n)S~_50r;`v8(3tPi?wpP9;VUaiJ`<L79@qzJ0OV%pyg@iv?wCR0hPrXp~X
zR1owb>w#p+FrHEocnYcpP&Tmg`FOX@XZ|H*yXW#A_mvBWygU@~en@_0>P+g=DqF>O
zRt4^OZOmiAYbB`BXxUi}L5ZV{>1h$@=JRcNq~(c`H+FA=_Z|TxByC0o5cZEM`O|{K
zcGUyG?aAU9Y7%$*F#_zQ!-<#tCRaBw_W^clUi1HO<BGH%`A$@IATtpuyxyz|PQE{-
zdvw?uS7(}|NGR(NvS?>RHj)~zaM@aWAZEkm>NaM-<FzDseUkySOlW?Kcv&Lzs?~}&
z{cC%Sa{*MR4t17G(uDWmexnv#+wO5oRLZ#b<QGoi8I+Y%`S!$$AFdFh2Kq)VdieuU
z^K6N$%myEaU7f4bUPI3H_^>K)!~7Ak3YGQAxe(u#RF@Mz4Z8~XQ(KPny@UT&$9Tq5
zrHFH(0KL486H$gwc0IZM51sf*BP`rWZkmPe(Dksd%>ISGMY{%3hI1P}`St|t5Ut;7
ze2c2HLj^LMU1ebcsCr@+5rOFpYleM}JAh_<SVK7Pjq-JWtB_TF`Rys9mkv$`-M;I&
zGk`T9xxI9b;uv*8zoj-}pAYc5?`O+iOY9S+YvGq^hLQKe=@s7DBAjlHAYO-;WB#NJ
zee;B115hQLIhxJi_rsIK%A7QRNN1X}qjOSv{k17t0h({7MW~~~uubz_g=UPELn~vf
zFAo{77}qcQ76Y2hyd8_Q|8NZue+RHq0LDNkN!iI~#H3}luKk^U-e4E|8kIYuYmiJ6
z&eA#7p`J!8&O^Ru&-Dy(W&$w{+NGCQa~on0+uvnZr+o_VaAPExP<CU}_vKxgT;ONi
z%jm4?OtlDOSfBU_PYd6M3HGGhAqthalQOv=1guA#v`9=L&RSir@mxL!$Wpbo82$^N
z6qUv8Jd#Zw8@moKlK^}2v8FX6_*awf>f;=2kN!o!NtNiqXm1GHUs->MB2O_rjZ#OS
zx=Ohc@jLWR<EO!Lp>6|8q?0cOL22W1fnn^0|8;dU?q6wlu2^*=6wU3t?R*VLmatr#
z``+DD4c1YLL)WF*7TLMbJF6yN3L~P}RkW%D{}!!3cL9}IB2R$YfF^zf%LG4yex}*0
z08>3!bD8}fhxvdPh*eEi3)#>_#JsSb@Jn4C0k#@r<WEd<8zbUK_&3meE*uxh(s5e>
z@f$Z)mF_w<RgSn?H&Fjfow4Vd_W<KlN{RnkdXOj`m~A$S-<(J*J&~kO%t-w4Xv)}5
z5Z;yUJ=*eOFk*23yKDv6bA|fz!58rk_L*e4t9TAACVOt&oZxa2@6WfdU_JcM`%~0i
zoj<<~V@;ld>d9P?q-rCGO_(<U?o|#`6r>YGMaBC?o_5>J1VQkoG1qWNKP-INkFFqS
zF$nzypfjet%o5I`=_CJ)`evmZ98Ri#+^t%QfM{+Bp2sJ2Bdvmzf&Icynm^(kT~$uS
zi{HPp^KgPfFwggI=3&w?44mU0@5gx%KVC5tnTomEx*qkI&!k-tT{Rszmk4WM`%#Rg
z{m6MW*Bdn6MR<X4k{2Y#z!#U;|5*(t7ZN2WR#EE7W)q#$v`g!91VjCL?xDfy)L2zs
zmt2>a!%KN*rZmsGly*Gj-?We%Kp$+@H!ZPs?Vb?ke%%o;bZ)&)7FlTqOqQSeX>w0F
z<gTpOrcz|-d!?ERVN-RsiP{=P`}#&-O@0x*HfPKhr57=cS7U6WYAwz*c<JRNN`EJr
z`0a_ix)gbT*qYs}pK;>lsT4o`gm~*f2o!hWUZ3v$X{<bd_beCD4B|>TN)s8j!*8up
zF!Ulg-CrY_trRQ$KZ*UEe1?A3lsJ4q@xD|)>gcB)pb5i7pG)IP1F+*c32)K*eoO?8
z07PB4pkC!FV44<;$c#DHf_C!ZI}_w38I3NW2sY2t`{OU%o9=Qa;H+4&R$8n+^*g^f
zr+LW<8o$ETfj<Iok=vaHl0No5b;XqoMTr}NWM#>w6*cv9jxvZQ;?+15MyMY4_nT>C
z<KHAbb+WTx#{Xkch@Z5ahE`(q7j|+;20Oe>{>vR;pRg{^A|kacMAC7H5&5&;_57Qh
z-F6AHz<Mqv&3Dg0Y}MU4=}1tW-7a?w<4P)LUE)<s_T5dT57^l?m>oW1n*VAf>qItZ
zxL}O+FAvB1frTJa_;TDRD~MoCixg{A`EEdB={I(6sf$Y?6V6ut*^pElan7v~-+>Pf
z|FMGjFrE8x8aVw>A8Fx&b8chhyGzX8bsqD!s1gyO3zoylqT*K@h4e!yAD{!n2Ouf+
z$}c~?KWUDK-;-^EMcz|%c^#B~E8mvU%n!IL#w*tEA0=Ja-N#|Y?ym<?pH>L`xdZ0w
z<Wqbwg|iz>T&_fO)75L|TbT52?i`{&B?>^7k(~LJ$gK>iR@Ww9UUwyViOTsL=TU{z
zqNk0p3sTa2;Wfy-#r6MgnBwGQs^t3H30%!n4y3@pMeS^isq}QLC!B%GR7Pv#XA;Vb
zP{2W055zOiaqziB-iP=5x4<@$t_pu<Lb-PS$39)1xq0Qvnm}SsVu<#?>K7Q%0gAas
z2Y<-5rJmRU6w39mJc7*jAH3deTaFeSSHDT;f~JaR1p?Ka)f5AKYr#pU>_kE^_ZapM
zo;OH^96W1L1^fMU<z0^?SjvE~bM?V3v;y-yb(fLO#mc1g0r}3!bE9~cFSGP+$H~>Q
zS_c#&9Z|QY3M5cGAMtCQmEb8i^2BDg)SEH3<mV%`do0JMJ$(;D3_x6mP3JPY@;nxL
z2W+IQxoWur4_~!*tO2$Ya-g&5a()q(X^#)FoHS{^DgXt*C*f@Z0pXLDabFZw)WvPt
zJ&Km@tsD?robr=(%x~v*GlKjgH~ZQ-%?rN%ex21uPbg|;rjn0=@g;#;i}@tlEYT$@
zw{SR{2hu?`wHIumb5rwdX9swjw&eCrRq*GjlbR}k_EWTT^~Zq_&$VpfW;P7%mTd<>
zB0Sl1{`Tv%>pUlcp<*QnXF{`XKB<nFmC}I_*g&wUvlYm95C^R*tDszKAl7Hb(cmR{
z35dk1il2e1IPP%oJ&E&wn2=p?c|LOWbhm=)I9rh_Pb0CmVdY+8TM$dC5tBqw=M`@k
zr#9q5y6A3iduOay3Qz=7Sr2JmvscLHLPD1>HhlxLJfV0l{4wmoxre`I#c5wMi=Ti~
z0P|usLTQ%AL_Osr`QhELWCg>z2kJLZ0^uDTf!BWf96K`|wT4HARTh4P#na^b+`Xl{
zg%Al&Ap$~;8x{q3k3?CLgJ%CYk)gR=n)>a!%5LmVyk^xB!>xS_{5`fN?-~KgfI3xD
zQymL?j+!h&3CSBql$r1dm3U=hB?C2mkp7MNcjz6-^`pk$_<n7+<T-zdWF=M-D<Y#i
z;uhRSUrplVMjckaY1@Uz_N4eWO*9J5d271wm)POayZ{dj=<Nx5j@Xe#De;p8*b$;H
zP{cz!%e5n*VfaOH@XBTxCsAKhD|~7ri&)FU5O)O{eb#jo&x|<qZqIfOQEm^(z@#N{
zbbf;9!Vm>uhi!ZcVo#-U&gL7NT2$}Jh+<V}^}VJA^z8}M{PTeu-KRRfK377y+M}XE
z+Cjv@csS!YBYU6t=0&2_9JQr9<~(%t!{jr)N0MH<JgyIyA#bEBZ<4#KKA2!wq|q|x
zZ3!@Z=!FU8_0FT_rTXJQkl4FouGgR6PWj;KZ239c3L-1+d|@8g(G1XSo^MA?&}%pR
z?Zh1z6;Dkvy}C!Ar1J~eYhE&h9T;VHR-$o=J$Sb6B}DLOD5pL+473$pYAq;`QZffp
z;%|xhrp8EQztFFHI_g_0T}r#S*q+Wr?<iKy*DL2DQ;5U-K@>1(KPjqjOLo<h=sz%~
z4F%X?MT@F>ZzV<zbH~mjP;wj?_vW_{$Jx_N=J0k-E2LE;lZFncWxPmzP$l8U@HA%!
zeUZ;S>jeYaIk&f&;s9mE%4oz3KK9RB4*GT6jc}j&I?n0~Z4M#5ECB+U@QWxjn548$
zSLGB}y`9bcRrC`|br@V0t=IRl5AT2tRkuYpL(L1_j6PG<ASbv`Wn*Pv`Z9CSP0f)+
z)xEeMLr<dCUs~zbd`vx{SXPehYHk5)T~a$d-Mc${eX0%xU&HAOAA$IT=zgt#SXUW<
zLM;el*4W0xP%4Sbcb~1p`LOXKjmzz*F%_ybEvUKx!cGmXY<Ts&^Bmc2@;FJiC25yY
z)q#Q><m?JcQIL?je*ippPYGpc$-9ofkh7I?`vDu;6(QaUpl>MR7Bq??419?Zj$J<A
zCuU31wQU9V&&YZQ-m*%mLj69$9&-Xa-3Y#xNC?A*@POWq8fsW*{7c*iic&i{%sRUM
z(HRvVhth(@)Kf{H+H#Fj?3j!7ITj7~%5@OeMgCZChtJPBqMZUh4N2M#)N5#h<sv(|
zxd>Q|Zn4x=Lq2+t_2dNsX;tw8d||%oP+JbhDV2nJIgnmHn8Mi;+tkVx=Pq*Hf>D~R
z#%DqOgD-Sv|4U?`TSH2FFLVc2_A%wFVbSNhiu+8Y_QS@tM<KuHYY=J9|3F0F=k}iE
z>ZajXC2J@=ksZ_iYWQe2vxmv^;**Z10IQGN7_l{#YP#J*`C4RLxJcaT-meO0Y9ml2
zfpv-HL=QI<Cm9FgJZMhKnsm`hqNY;XgL2?rKTzpi-ch0|ZoHs{);(~;gwlhl$FmI^
zx0JMQnxP^d5v!!D1vLFU?>MUYgq+7wYBI?=Syo?_Uq}%tpB0MSc@G%Hd2!#`#7cjN
zk99&Fq(vFKoh|9JycvFjEhWLu=ii_B>_aaWOwb*P`|>TsJT2X2K~7vO%FgSCb?jd+
zoJr#ZL#6G(yy}*KG3{a<iuUh%C%i+IwI*V|FKt16tleEb=YF0OK!$XKv_?4(1%*hL
zN4S?(=hcgW=aJ{i+<Ovs!jF8Aj2>V%C<_Q)?0(Ae;$QrpG8RaXmsY!iFM3CfT0+r+
zXKik=i260_fv7qx)<vUc$6FOYs&vO^)<k2eqzH6N{!YGDVPnt0;&aN&2vW_E8rg>2
z8Ff~{A@8W|fl^&Sis@=@56!*?f=5G^3t7<}SXts2%~4E<#*u7$mlE4!L>jk3smC0I
z4@bGaHeOMSRhv6tX|S3<mzM^IXspu74NyHUXGwfCltI~6yV?Qr>TpaE`QbFix9<-*
zh@j4k-UgyXJPiA)btmFd*{<g`IDc_(7RKt(gc7%NF8JpZeXiuOweZ1UB@wgTk!5-{
z(2%$XXWKHok+F+Tc0Ub9DniPz@SPs-yNFH@mp{M><uvm{uDh-p4#LO&zRS}-JFEd(
zLfH%4w`rb@;2C0cnoAm)oyy!|=VMTbyO9%)4ByT|iC8-fU1o~3K3KSJ>_LnK?}Pkq
z#B+jkh*#qbb@P1KvBs379^2WfZbddwZ{F3?1Uzk2x4^laIr77<8}&5}$Sg$f>_b?1
z8qb^pzkCgu=*R>0+0^<=(gGK_+nW})N`uoXpaN?64gn2T;qQG`$Z`q;vswG_jNr4Z
z;e@JoPj{>Om>1j^;leQO+=GbBm)9M(@-aEIGPL*qc1qK^V>9<m(#3&qb2&zQ&V~`I
z$`Buoe~9)ryaskxMt!)n<P`<Gcd+{sHO*L;qD)n@D^`Ko8rT@}ikvysGacjMe?#O*
zXXL9vbg@G%kre8KAKFsn7W;rDvTHZbLtRMGp_=I8lr|p7)lbPIjF~|SlRWn%#^QI}
z0W@N$LFuWGaeVV}>b)0AX@p%e#`tkErRe^<Mugp?#&sb0MReu0_cg*3G_Hp?t|xR!
zfPh@0Wb@1aHVm%FtvT560B;z_9qn`9dTuTw5iu`jZg0h%D+#ktSLefW370Qa%XyYX
zy97p#D(6u90&;&NrnvyvFUZ1N7?CSy(ohhz-A_63_A2>h=q}&7K4s|(@^bfP0I#D{
zh1uH<YNAfpSD`PjYKWDmNuttoi&X=1R<dXC%5dsK$lxQi^p<YVBzx{0U{j0809k|n
z0Qn;Sai*bv%w}3ut>}GO+qbl%;sch3FI@~6!yo(oHc-kxw=U_4$$kto95B*+30GaG
zjm?%bv7QzG79Ret?H85N;heA{s(!5cdm^@Z2cm0!vW-t}H`jZW+z_q@&ebZ`+k_$@
zON@FXF9>oa8WFH~+8EpRkZ{EO3#Y0a5<OYR1CncaQx*2I+M(3Oq?LS(c9=aChW?^{
z8~mO3tdZDHc8}T?oSFu?zQ@j+kl!w8P2*B^=9{TBYsi_<y9AP|=w_d|pgFq@wg{{s
zaKKQ1aJ=+T-7F9E6J?PS;zhzz7dVCxpnVRjmO?f6oO)M~6tpuaT1tBF%tg8?ENZ^4
za#*o3A3nlY?ZllZwv7`mgZuGf70=W=AdD~O5*nN^X}$>tIk5p0{|1HfIOQjS`Q7AZ
zD<qBAoXt6~hqlNc4ubx^`iWt^Nk+|xWBV~~CpGlR=7MK|)7IJ+idwlW?G?WtnW@&U
zLpz(`>)@W+s~kVc=63!Fr~lD_YV&dh&J$tGwM30~wts$pfkJ8aWom}caYfAPMV~_%
zCBZ_NzEUJ9ND$l5+TTMS6@OVdqXkKAzNa7?4JbuPDK7fGRX5g`#pQ%|J%Bzl&K%=)
zWT$v2%5C-14k`3gV~=P7@15(8{5YCb)(w+5s*LG{tS!cc(Aeamwpikvpt%+klrCwF
zTa{KS|Ax!Ra}G$_4>lwE^<!^7fcH`hOHsiR3x<uGJm61Au|KbKWWU_*v!|I|c0T-K
z{j_TYYqi}3mQ246Pk1i`3S#{@h4j;ZV<XE#cLZq;eOY|pCB+JA$GlVuuZquQXBXc)
z$FX*tDo;IfeaJDE6kQRXwXVmkRbiI?wPF#(d^w=%%9Y*13}G*{Pqc^xk+a^%8Y>96
zZxR%V@%h5=O&rK;yOvs7Hjksrc?}8%!3k0kN5U1L#+(*d>Th%Gj2Akq>R21pu>f6z
z&!1tOrbzA_FfEt2S}0wIJSuP#NBL}bi%>$IKj(vO<b!#pqkdB<N8ggo(;1onP~6LA
zh{6InFzrQ-jM+?eMK>GAR*KO#Mszr*GY+G?>^OTSh&c1WK*hZ696hbFy190eJ*4~0
zIuKA-`^qf7C0dzwl59z*8tgd4W7>ZnwgO4=y2^#(l@;Hz?JJ08lOlDC;cFFI-)~gZ
zgw&o}Q^9kCA_O8fO}CkwTdP5KP1xe9S(?%y?&Ws3S2Z0iTjri>+CnFQ)YAQCX|)RZ
zy*5>qtE`0L!UjuMR(H99-hm#UC^JD-q&Z+zDSlzf!LlXsWDp!KEit=#Bt#xnmSmv<
ztxc$czPqUcg$Ke@8|ye15S9d#qNUj9xfP%6rNAl$)lMSou|XgtjQFMW?-uY#5pUx+
z4R;+UUZi>f1vf?@hY5DI`%8&E)Y29hxvIJQHfs5U57`|ZLz~_a8N5aK!+hPXQ-sDi
z_8OOe*Ruo2nZsWm6)*66d?U0&@~+`rc?10#TRDsJS)7mu%RcPl$it{0WKaT9ha4nl
zt&LFJEwoY|XpOTkL6GjA<Z_V3d9zg9eZFHF9%06czd-kc!im;kE4SU;93H{i$O>H$
z7P@?lcdEXdPFJ<(FXg4SORmuY*r2<&4A!7rqgBpEH4fpiJc>DP`xm$#t&N)H&S@_!
zR6``K+BMphSKCx_$Jxb3VN89n?5dE_bShztyqfmC73oF)#7|;GB|)_<q5aA`SOsZW
z+)qri;38^5tK{pOCfjD=i85Y!!iP5|qD4mPSN=X)IfS2BAwq;+W#vE?<$caWDNFPd
zFb}*(e^7N$IMZ{Z_g8i>hJcyeiC_SA-h>E4@2O<0sz8cgCXW<_R{MtpCpfq~MOSXy
zo4GUajaPL%o(;wsW<wYrN9Teg+>_{Ba5$x+?SOEGqKDllLzKzC?%fX?2i!`&$*sS;
z&h;S8RMjktp}O(?(d%Pwkqy$kX`20G*HpZ=KwQUP%gFx{rV@&CmEx+q8B;G+&NG6k
zw{pF(vJNrBf!MSx-q5j}S%6o6?_SY0gk=E`S>!b!iq*UnnkR%e$(ue?ejK|yr3nfO
zD_6D85B!w;?eHl=3;5|xG=hKNn#rEF7<11?hAAlT663JHieiFEB)+0<E<~R)y<fcb
z{JcdLR<*YR1Hy?!#k{+ZS0W$!2d~}J-iCtElEIqLs&=%_1D5}Y`8NT+11x35)|RwZ
zBEP#f*@en6Tq8Qd(RtH(!6PE{r4POkc|M9&_(R{Mk@B(A1+Zs<o;?YlE;l=(oiYE5
zuY2HHuv&1ok9lVl%%zr|gkJqe2rn!HR|X0zJZIk8WdX~}ROACYBAhY49q$qepHt;q
ziIcr8qBKq??5@~%a#+z+TAF}zh3luSEVkD>63n~)xiuNZzE^J2>%8Ho#9&75NDbcO
z3K|Vm49F2@2X9srP&*fpV_M-->A;!&Qnz27*AR(CK_e4dC<V#||5jl($BK=DqWAv7
zw5ZC1_nJef=~eM8Scz&m(Obef=<FU&#ER1(vl&~q%CC8CD#h8THA#jOMI9&&1OE>h
zPLt~^;N~$do^p?bPzTQ<lb=|<2v2XAb5y=*7a#V=?zaB}EHTiKMilI!W^^?EH21jP
zY5`Uha}tq`3H&Y^HN?EQl8!vK0N=P3m_iZSA9|!0!9G|<gg;~Ms@jU*ClOs3kaGcE
z!?->)KCFkMss=MR4K{Wp0kybX7L~-s26@Jwwnhq_cb6M72WB^N!I~;#W>bp`JoLgr
zw70_gny*x31|YNHI|9#gvi(Z7+$L3e5L>AYkx)3}aM%wK3&TcVT_P~&K<qUVCX2&)
z3QrR#obR`33o6-U5%#GMbV*u6f35&YCN87?c=u!)A|37N^avG5YF8Dt051YFh-=b#
z_-Tw+jL%gQ*ybn1tQ6Ts&PrVLe4Efqe{Zj?tlG|zt<MhEujl7%GZc~5!*A}MTU$>!
zgpym9&bG~Tx0IPmjm!gJom;9E-gBJi8KK1aF0=J%@@J}^?Jd}OxgE!<Y(f~mzztxb
zKLXwoLmYmGCH`z3|3!LEi7CwRNx9Le%SI@rCLs(l7|t12K9C0<H11G%1Ls%?mzRg}
z5FU3ho0hQC_Y#-Unb^V!s0+&GjM_2@CrF<IIo8rZnI#dKLg6_uh>=;x?zbcy3aK{`
ze{fIM0YY|_JPXh|Bllo%dUrQC<-xi&;<FVwaXkT^dt4rAo8_KTtTK1fyU4>E1Q%|z
zfY<;HNF-r_HP(p%_PQiWsvEva#xpr~i)R@$9BQD>@Om@s2Ggdk!Bbe`Uq**y4V59m
zi;9jRd6DpNZmx_y^}iv@#n>V-zCN_>80K18lRWBwW20gsYL_LCz{AOOHpSkoIo5p&
z>kbwH?ZS}tqxMja^9644=M{}Yy14-Sn;IYlYWqBFupSl|)}^I3hmW~VyqGvs+lAi9
z-HSqTBc!<Gfc;;%!tN`Sv2-Z@cwU?m>99D9n2)r(PEB<V{c@sn=t0w!Ul)1)EJDAb
z_XF0B^0(D_U%mEITia#K<*&+qck(0ZdEY7jjg7q*|3=@7p9aEWNoCCk6FtY<{oSuu
z80lyF9E9(-sBv`^>`C<L>V*#`=-;gCU;Wh!6X=VX;6L#GMAkF))5{;?8pS8(id(=7
z2&X=JFFpk{o9~TuZA={}$vfan=FQ(7#@-9qggw~1Ih`Je_!ZhVw&hfU_lmnjK88?m
z?Xy~E2%fC#W5>ygc_oL9dKnr;%8nX~nqbKiOcrp^5M5E0PUvwhA*(muJzHVZ52<&p
z1~0#EmSl^{!0t)d9>#eRcSv>w)T>!P48q@m``&PkfPs&{@Zd?79{gYmCqx7Vv66WQ
zc4v(5<5Hk)CU%liZP3a-SDveGzT+98zz56Ha}5ZNDg2;p(X`%P2f}c-XHBHohi)Vq
z*HXq&8zMf8DDuN#2;SHoK;9VfnY>hgDA<ZqP3g7uR!Hp_^p6YoL6vMlg-n*nH-%+b
z`Kmd^-quE%=fO}Wi&-u(4_H`hpTFlKG3WCw)t9nl&S4JdZ4V}xC#~SNZH$l&NQprN
zwro|!E3$C>aJYO9F@eMWaT#wo>IV`Jp$(&2v$3bZvl{-rnB>^ReOd#{6aQScVH-}2
zFZtcjl)(I4)pRvGgayX4*y<WF!R}FZ7O$t<jhnA~_X$?^bNt&=FCL?+85*^Y-F}m5
zdK(zlR%RhJHC?N@rhz_QUVSw`C#cy@^+NX(Pb1;SCY&(kepKFoKfvX&S+}Jml8%iR
zI-BaR*>j9~Q-UkZWx>a8@gZx?eY!m(&{|f)_ekZ?z`))VwEd-VJh71PH)QCxLu>@s
z&q(~CTrjs^Vduw#52APw%&u5y6|UR|m=aFWqpGpJSM^HppBxrlge-BU1z!B8Rll;^
zus(6+avA7)BJ9F4;$(D!Ez?<zn@>O|U$p=m+Et9|6V2wcZHxUJs?t=t8lYy(!{pJm
zqvL1*aZCql!-Ufnoz&ousy38JFkZ1*eCzsbswT2AHZ`FZSs8LbV#+~a|N0zUKJo9N
z;UL9C?%5J*y}Pv(Ih9G|>`8i)b}3etTP&op+7?mr4WoTnB}`leJ6fNOY?{&@QB}jw
z_3Sg8tSQ&}s?0T&Q2$gvfOAg~`4bAmy~GEPTUAC`XyyKGNuO?a)=Bql={YLgw{Aal
zAx>}>x{r8CZOAZkKdM0Ek!r*1$2EJ9sV)JxQ_5#CIERRjn{S&d0Mj0vMj`(jsCA(x
zX??;P^YTV^r{{NYnRz!FEOAmHDzXF*YE=pliI2uE|2d)_ei1&66r3Jp95Zf=#a3Iy
zV>oX!#zpXkFm7j1KM?(Cf;(2nN8d9Bz9CQ&TRrxCVtX=WPj9~p#vKqmQO0ggH7z(S
z(mY0-U%Ly<i7W9wyJj4bm<D+R;3Hs<>9$2gJMkRhw;jSxnZ)OiaX@5;UDk0l#9F@L
z&gt9RH;+Ry5!OZb?<I4Md<{5WlyjtSQ0X3~yU2{o_~Oc4aWy9!WO%g5XbD3YDL0L)
z_+-TbvFnqgU0+n^H|hc^H^#h&un@?ss?KgJ;ghMQM*%7-248%C3UibZ9862d=Hijl
zLXCiKX-e0_+P_wFk-JfO&}-Sg5sWZ!ejPyOSPMwlCqb8H5;6tmxd*GdUkxIk2(Jeo
z&tU5Zs91^G*S(u&&=hBrvThOa441737ly4pV5f2ikVVhq3=xbgJC$Y;&o#~A(?Fpq
zmSp&mD!A8U+58MnaK2HF-ygV^5swU$Er2KmY@m7;IeS>%aZdP}3~nBB8rVmU>VP!p
z!6|?>I=GQ@)Gl<l46AaA#jHA=_cAqo?|jjQx=not(Ar<vjipD;B}^vL*mJ{spp7vy
zkPY02T0$GuXxsyzl(LrG`do-EaD~drQwHozL4(50)SnMl+DtWO)_W7B#;w|YCHdi9
z+m*S3ZN%x%Ynr>z#wGnn8zbaRkX6r)tUd|uH|clP`aW^0@@jf+Aoq0C2W*5me2Go2
z0fz<kMXjii+a=*7&}39JkO!-&?^s@o68FtFdOk%in_ZiDP+X`SwNP2?j#S50@G8LB
zBHx0KRdy!7gZw@)4Oo2J1ofHgR0CLzN{MDxwhyU)JT=%UkzI$7ZT%U%V_WD+-xET%
z?+GZPnYL|lzO39kL{L@trl66m#HxNY+zrZ{vpSzqoVSPBz3)?e5g<wvD59Qt{TY$}
z3YcRKi%|%{%5Bq8Wlb+++Ct|CTSE!vf`Ommgu#5XoRGAh)!bmsrDvPCJn_3g6wz*&
zEGV?fu63UhT^ozjcKPHG-#FVj8VAlnCgS*{hzBeI*T*=yhRSq`<w&C*SCZz@-uuK0
z@X+y$RDp%{i_sHmg_w1Rzz?E`Mbg6a$B6(LVq$<qBTC*&zSjTK=N7I-8zc)&{i%;t
zULkvBzewJt@?0$DlJE_3N1%BjaG6f&FM}P0C+0WY@Rb{mF+l<imtX(aUy&)#vWB#I
z_!0~A`X!;-cYNSy6#r=VC0Q^gd@NgsNysi`aEP-P#C=vv&0z;*R@A0#Rm_*SnC3Z1
zNNr?wpF3N-FT+x0p_SbA%70P{#Nk)klIOTf<Yx$3b>`@(8T~Dio5n;pO?O2jr(q&9
z<lpaRnk+&Vyeix+xJ}9SxA7E4xjywU1RE*yhuw%+*vV~8pKtebE--)7k!=Mwmv}lK
zC_Kd~aeUUvHstrTO{m^3>4QKYWR}5Nt9<ho(r|lhKk<!bK!RC#?DJ!r6zQI(ZlggB
z)!TvX+9ZGrhKP}^c5B4uvFf~%p<4W!KGACtOL{)dL>COr_ZzRRMpiBe^z?4OG#QW(
zDN#-|Pe{RTgU9&4vC<IzkR2qn6D+RuqIn?7WS7{ym0;dr%MNg1szAbufRBV4-@IIR
z<y<!6^7yBity8dy+fV;n_;sj@)<2o^3gwc)5%OTihX%&<AJkEM#c9+q?%kFvFAcVC
zA8WVN{3R-wVNr^HREF~)DU57e37&}g)#N>EztFoLd!4Tt;`6%lyeG>Na6X68AEcF-
zIw5v${oYQ4PnB)L$xF6yG=0&@uW9PJw(}iu-<-&@s`~IrVujHT6Yjh9)KdDqygqu>
za={trwWB&%83mztTe~2sJl?$3sNVL<o-EFR3jA=C1tf`&=2(=<wgeBXyM?$1%ARYS
z=GJB$sr9?wv-7JlCTy=Y!O#2b>HX}!dH1~if|%S--YXAb>>UB#g#AR{O!n6B1lvi;
z_Djl{1tb&CM)%JAuNcbw$xC2+l+a#>1ximSXHhY4%pneGZZ&tWl8b>gR$_?1M1Ila
z!n#Ru`bxMGS6@F^U|ROG5Np4L*$SrT>N2ZJbX$XX4$K81%|Ne_waP;6{ywd#?X7~B
zSv_8xQvc+eY}X<8mmkggFkhZdHr3EJh-OwE@V1yOI)%Bs6&#WoaOqGvv6HS2Uk;+;
zQD2Vq$)YQpk0HAubx-#lB!(X<ukyN(!xzRRa~moekkd~sS!O7KiKM95x$Z9bi5#G;
z1#ub((-O)Vj%e|n^L>Jo>>_&_y&wCp=NWL^=eQ=}0=ITxzJU|JRs&gB<iE=VaJ8!t
z8SCzEO3mI+v6^6U&Tbro^2vy6FIJzY%ObSV9K=d{hm@=f?#<P9&8rI#mUcV@M!}|*
zD#Xsbf9Je!H`p02@ht5F%4*Qv*0zSwPo_;u;}W(+e^0jm<b^5C9#-!QPc$7YQ0NFv
z4^nOt(&vcui0u_DVq-~~By?XH$J;OYmTZunMb>>EjW*{p#zP6)-RVR%awa^Mo8<K<
zo(-4N_7)KJAAvWKTls)&10(fQ?_z+rvy+Ht_<4m(xOJi>K@_`t0;l0YWZH_;!d>e*
z2Ypva67KT9)1LyVRtKTXs-wt87&pzASt{Q|u55YlQLCQXiE~!-5D>0-&vCG$P=of`
zlqRU02)OQP!=de5@N(U3AQk#AU|ArJE;eD_NMSQ2v9PBC_tB8JJ+caS0G@cVYa`a6
z{0==g%Z-xP7U&bCs)z;xeBhp2$s$hUq>4VzVE-vm_O`5zBoJrI)Hc^y&!QPe!j`?0
z0li}j*4hG?<*-)8@UY^)Q8E{T1kh`^f*)C1-5xu&pS%5C*k1!bW4UpyA2r$dM%tkw
z#s@Z0e9{H|3r!VH;Bvzgjzr?-5o<>UMs#f?`;CCU2_mj~;+R=jZW<Z#G-BC9Mz-3m
z^^oT&|7uvN($xf#T?64$6g9bgu5bfpijX&)D%Gj`dYhEl#FOW<+JzE2e}V8pHm!uk
zuZB#vUeT`-emYwfbVm453#+E8Mnczp<{ny4(fwxhZ*fYbi~&qQ<<4cFj-mk_fiDqv
zsvFo9tjEeaB1W^eheti1HHP#<$dktD&1S%f2m$<;R(_A8>E=|@+uCx}-yC-2fd7J+
zAaB{>oSD+>viXrAYf%_O+DDtMXr-`a8a2&%$5CC1ia+*blID64d!fWq2p$k3g@-7|
zRe?y8-9Pd`U=IKn1oELUx)7t<-r=XKQNa#>Skesf&fZVBx2mhv&VhL=cvHWnxrOcH
zWI`-Rk0gqEoED>)WC&3+bSGa#->_nuC#X*X%L1AMeoaDS{WF!-1?7Sxq2{55ZogEn
zf&Uz{H2}o~YIgw3x$<1hhtWl1d_cE(?vPg=TFK8TPiPDQonX5o`gctcdo~?TOf>zd
zc9RE;{8l6}E5NIuRkDOCLCTU@uJBCp_TCokEDhMWdGsXF-1>#R%cd;K=F$0+#G+sz
z=BL0ln5}qa!w{lLA-rp6OVHhwh0}aPH4t~FBs|&+K8<kLK3}IUScF_@2~Il1X+U-K
zsOQRweXtQY_4^86XG67HKn^kA60M&315d@|TFu@?bz=3bc}aV}e3H(2^EvyxxtC%r
z<!Lk-ttQ{7T)&-zj*Zg0HG!fbvItxT>k(K2uH8juvE#y@6tzIOFCt!oZ%j}4R$EN?
zV|gS188*(IsC{7yHIj&x*P#AQJU~2rnh)+0`hX?^iN*e5Y@;=07I7apwq_S{1MJRe
zEx{_Ykzy;(LTp7yv(dczUO@F{J26z)8XG7h8!pIHV}^5L6TMD*LK}28F<g$FRUEJs
z%sS1ZhVOBWKtgb0aF6_++&c_D3at_9dj}?CH9V<up;mJh3?$$eLAT!H&1#<`E{|(3
z#_8BSF=3o<?7lJTxbK5yCf{|-tZLGRObf91XN8C+m9lSWeQaWNxO|r;cgygq@W1;J
z&*+{7B6EhaUR-h8TiDsyRmF8^tr70PZdOn?qdI+1v5|NR_#uXVuzqUIUm+wyF0ms%
zClrUQu+W<E6ntHM!q!d2Cgfflx1!<<oP_GR{@b&mYTiIAPuVSgh%mvMkyx~)b-akG
z*K&B#x;u6bMld<Ay{czD)*?Njf`~uvTLyChIr6j~7v`GuIR{+v<vVie)QjpHFje8G
z2NEfw{DvVnpjapPKzs?TMe?3ff7W^hDQ$rI0*jeoWl2ms#R>IzR8fnE>WAn&OT4P5
zTs@y3u0|CN{2zb*L-06y(DjCVDn1Zp<KVT@-cJd!g%&|uTI3d*0P9ucK|K_8_+Y35
z+PRR;;mNL3l)i$P?|m^Nkz_e3_9HIoN;gchLlh@j`-C%!<RmN=5E%F<h{eIlN3N6J
zgOihGVq%?M#Pe8VhJhQyP*bxC)ju_S0Hz+QSsWIyxYaEQh*w(6CW!x8<feL3)q7<!
zIF&C3s|`yWN44EWZZxH-=1&)NWQ*xgG6=lS6+3g*`qhk?p8Hc)cQj%e=SEoF<}1GI
zsLiqH<cAivV<*$I(P+|2OnA0}*>ERc<7tRA-h}>3D|{&<i(+U^AV01qE4{#2>kGiK
ziN{5IS@G6SS2RV>(EF7Pp7;@=1zbkLIFMLXUUScJ<kR!4ssdCyYOjI`mj|@$8F^Xt
zDaBK98Z~Nlt7j|DapT~$T*>AT1@rl}#9_uBY7+jrhRyI6oLSsw*z>nent|E-QKM;W
zfSzm#zOB{wNr2CK!n&&CMDKFj9PS`XVJRS2b`}Z`SM0Hl#7&cklx*6w8x35!k-y(0
z1N#xQX*$%u!PcbEDa(Hmk$G+l<%h}V*>OkyiF{tAb&%}<SXUVt-v~&`No+*)HJonF
zC;UK9&$Um({x33{U;j*k#awSiv*RxC^J6}x|7YdpVsu%&v_s&%%qvC?0d+jYJ*j{X
z?_ER&2Pn0K_#M@`Y9}&wK!Q*a4=GG|q3`2N%uWWfx58~x_fk&m;q14-BCetyH7vsP
z3i@osUYvuFH=(L&9G0pcKK|=KCswoTUBr_!;YzCHQ4In6?&*@m!=><Z6R#oeMr=Z=
zx`}nH;ZUa4=y`_N_?lf_uo-<fA%e=zdWt%4;Sl7RFrj^Bosjp$Tu~&7{e2sw6Ux6B
z^=E)s5gLC=yTDK|oDQg|(*dzoBstwXXIv}_&;wE79HiYPe?}<5VD!83*$Ktp)dSz*
zEX4UjRjU#Fon8Lcm1s{m(e@J=Io8HYgmGX7s2U4dVQziRc!)Y=NE&!L!U3-(d@4cG
zEU!i#A7%bDSDiVCqb)d((IGY@5dZh{xQp>FQppLp1co6YQw!9j|3H@#f52mfI#`4(
zKu3Ui{vYCA|IY99&M<x?IPmI(Qp6gRZSDSvUELS;X)v2C&x6VjtnC%A9$ir_!1X0q
z9V03#GFjd(YOhk5_7icFOF7C~ll4^gJ5D5IrZvcMafR70GAn@l6Ka5_o*pVkA0c#D
z+F?P&o{k(OJBj$FK1kd^jQ$t$%ZL%9^~<r8hk{R~M2u$S`|jJT4X$%q2-{(NvATzd
z(Z!fyl<Qs*Rn_ghB#&VK{+RW7SLfSF8H{3mWG1eZT7<j8JHQUU4^P}mqR6N+gHD5f
zx#FjSl&qFJRL|5&P!U<~P9VjLSpWKOsTlhe_?Fz=QVrz><Y%pM<pIm)>pK?hs7Mj5
zq_wwmp^T}5;ps`A?bfV7A7*7dvSPuqLj}>Nl*s`;2ecJ2Vl?W-9Ds>s*W82pAkIM@
ze&{qyaU%b?Nhp$k;RHidc%t1?Wy6zY77R6&sDaq3nz!k|NvXsxK}-&|=RtJjNHAWf
zY$JVM2&b7+5sM<q1zVL^aLAlOCv!W;;vw2SHXvJUPY_qM<Jb&UYRg8NKgC;@jBKsp
zH{c3D7noIt^^t38AoMH=@Vac5ID6s#X0)H@u5gEhtOiIZ<F~URpfr*bHUUvs+`(b|
zW?2BgQJqb9j+!0tKhJT8OT);6j%FOax0QLw4=LOzu9J{KCBBSCT9H&C^b+<eR0f5$
zz_!lg)l(FU+ywdyUmexhcQr9KCPVKL4?I#-vyl_C(_~d1GUs$sQ$)R~Xx4AoG`Wo<
z4Fb)|_uX2*(QjjWo6s-$H_GV2SE}_bt7?SY(u0bUvw$@kMOikwday4YiX`ji8{0R^
zi1rDUR_=?{JdmA#(!4}GM`ScGXL>{}Tn6Dm!AVr+^IB9H7P-5eD90HBuNGBcu*|~@
zxnDns4#z7f0iCBS;;$@ELfCuwmJF;!-vCVRv;i~P`F(iBV;c>GTXk0pIZ(1Px4_@l
z@x0Cj6%AH(O1VB_X!L?{fR!U=NtZCr8rM~d!F|{BUE-sg6`b^p`CP|exjYar7AwB{
zg-Z8-1BV36Mb!MX+M#ESE>+*nMh-!d7LPv-PJ-KbV+F@ylDSGw<HsvwNS0cFwgR0T
zf-z%xKmwPA<(DYKTZi4wENHoi{7YP%GI~H@pa`3F+%{+a3_Bo;Vr-n@ov7<$Y+U%%
ziY&Jcaq&x<ed$pg<W6tQDJ9-u9wDrgIHuN{3j}1c!dY#qR#go7!BTXDF9JhnEQa2O
z#NYti1-Rp$hIH`Mtgu1O@DgHnVn@7hS`0{q*BY?91@Qk=iB`VxJ=+`D&+JozWSWG^
z-Af?})omKrhl7(Q+@C&g^);}j4DD_f<to_SE#HIu@x6IooRCp|ViuvhtS1Rt^!a+)
zfUBTZaV|gAyaW1gQ7;r@*%{5a+RbO-K{<f)Tq9<frkuyKAYxHhEEmmL6F-1voPZ7`
zAwAalRV`2r;KlpNy5kxf1f}m1Y8tT5(XyiM73DfR-7A$onxg1#okf(L(ui09{G3+<
zg$hcGb*k(l@_t+Dlr!s0&nWFG)O4_YZ2s6ks*}=y9&O}k-PSUGIQ#=-wNa}|oIpPP
z_pU+~rCO;BOLH9tjyBY;<9C7Gz{lKcTiD)`PJUU`3NUXfrfp^eSzYHN4?&6-p1jgD
zM^luR%QeCi)Tc$_e7<Eq%X^^XBt?ysefJrKGgK9YwUM=X(#-I?#;rE6gqfvc9KAM+
zPEulk0`^(#*xOk4-*ZoxcgQ#TxxC|&JNJ!B;`xRfV27ZQ16AZ||7}l3Ifr_qD;4$K
zgw!mxFJyBh(ND-7td~uD8abncz5}GvsmlN=f{}!$a|qt1t{eHL_|tT%a37m{i=wT8
z6vhUZmmmqjl}LJcmHz-Zsw^*}M0bdZ6HzO(#bKg6nKCvsZbsDIF_l8H1}i9n=QfuE
z8Dul%tr<?nqGZYj*^OXaR%85uw;}4mDi?NOjbU|kK=A`jPQqZGWVzO>9?yjT3s3xw
zfClo_P+i5{bJ}us(lCVC157>X_BC+A*|paoBTQ`jNc6ezq)uekR=gdsXpiedB}bFN
zZ)Mq4btppEF&NDfvPxhwfF-|54)<K^1{xq;60$vGsCB(#MX;xiGtGrqhKTu`$S^b3
zS2S0ebWPyHu01U!i-@e5ClWNY!}AqNd}YLjg0HQjcn}@_s<~~#j1sR$?>7Ty)+@+8
zoW3g=N@@<JMWK~XFUF@Bzey!iorI#B$gR5zSs>`>fVa*o+M_^8$=W6Nv>9@P8fr6T
z@&UhDM>rVM*dzV2*t05UpJfnAUHZIoH;`OpW(2|2FaM@d5{;FY?CMo==UJe2Rh3uL
zd3|_5{Z(93vrFM)P|ZRuDoR)G2)P=MwkbPY0mMBe>ESUC-iz13s#iOk!DeAI&YP%)
zt^{+Ay<QA%pyBI|A=D$53sEmZ+{dGn8`(m004tgDpwT!+c~+%@NAr&%VD4fW?P<`>
zU+tv)Gh6*arigfnv?S3jVN|%rYWA?Bm2YRB0>%}Vc~9d!=NO!`qQy@D$RNi3lu%yy
zm-26mnh-zOQmD<uC~}edVNG9N<14HxiTV6sawnl7*ZXM~wAY*Uc2iT<@RZ>LaC@OC
zo-;3Go0oFtsX0W|^Lmd9m@IT;q|Hy^6A<_wem;3H3>GxYxk=c)c5#?8AGBu8Zry2i
zf0!q3{C>2UfH%tKiao>aF|)B;0<o`5y<6!sxcAdSP%zSGQ0Ekl@CgMV{37OKr7~Hp
z_oh0KcjE39>V3N`v1O+4zYvmkXRgGG_cJ@FUVX#7B;E(y&ShkLEoF4!&rLT&VUZLR
zvHx6g<+_v5xy1-F4v?PI8{ye!ROC=~;oU56tm#3uA0qb6$Gcn9Xmj?TyL-$%A4g{{
zIBWm4CqS+36<1c<t>;q^o7>rz|JCyeXMowB&9tlmy_>SN)?8}m`S~j-dzrFBIOT?k
z`Ji3!)g&CwHvWmxNi_q9BcJR~%^W>D%^ZseREPzXbM3Bd#z3JfXkvWBKACj#q*G|Z
ziyA>4DjBHNsB?>U5enR~C8!!;pI5gt77Q|F41wF}Ml%!}#z5}=zQes^z66-<<`eRW
z>qs`LEaQ;d&N$k67ziD4$h!k#XLkUW06$5nhv)e`utPFfSGcY1_$#c~=kxhTn70Ac
z790zO{ex-@_y|?p2oUl0QQlA~?hqDA`M%~k${@i~Aag_Upc={mDpa^`izqcig<s$K
zPCs`K5H6}^LG6spSi0yUL{9*#b(2s(?QE1`ad4#AH|?DXfTcq!jnJk9y4G`}f>-VB
z0qR6{Gk}wz_)^DHKB%9C=I$5aU7Zh}GUATfc&z7DVCzQm&=OcK$VOK=Cr%N<fC7=W
zMK&jv<R50;*nG6qh|0T>j>Cw&FBsMeSKBPN?x$7Y-CML5I_n=o9=yM})E^>y%o~o7
z=Maj-v1eCMNy-{&LfuvCc0uyLcO_%p4aHvH5k$gHaSO&u8{QO91tM`7gfc55MY(Ka
z1AQa4Y(_Sb_^v!S=}~qJ(}uQ?b)Z^1;G<{3G|RyM6SH}-xC~=&E<j5P<q1$z8q<-3
z98~&&hjc9#tqCzVvOvAa#TY)gXA2kBQU)DbkLc|Lt5VS8`ViIA7}<`oD#i=eZh^YU
zYQH}}-n=95yin!)4RjKqv8VB&5pEp)jo$s`cez<GRWiE2?;nkQvc1Oe0cyd7)i=Bb
zJe_55*1D?gt@bxC#=(0st^C92*#|Bi<N9zV2^+r3YzRfH+VXXb!%RCNVH#XE%z#ix
zV*x){^#GSMf4kiwaE**kg=MS`fms*T2}m~o8*xz@y|#rA^l=pCU$IX?ju^6gU#X6>
z1i{P$E>kY#>I%W_(c9x3O<b)pc3}Q*@oD0l>OP^oE7k)}8($Fk>`7R;1Q}UzeI9Zj
zU{2;;%LF3<op_~~Id0CpK9Ccfevm^30d<?md*Nj4bnafC`i$?F*e5fkk|DG6WIJMe
z0o|<NSG00@=%=-xkaqZ4x4n&(EZv7#z1LiQ9Zv<oMCE%td37&wt+l|it<Q5nVq-Q?
zE1EJ3X;m1O2HwWJA~%obOg7`HJ_itv0?O3i!pYz#^56_uEf`5+<<r`J0$OiqDyOS~
z9uw)h_uA3a(gP+MRUZWK-lXMF1XV`1mCgWE#gcKP1-vdUC%VcTqy8CC1%_~A$7`g5
zxr}Aok1CO0raCOnA&1+)#Si)qp~3+XFX|UiMU2LqdAYkXo1mGjlTXzy$l0iK1(#Vk
zLs_+rlp{eF3Gpa!kNDFRwIqi~nHR_?{9nGO0hP>;pzlDJL3$m&W+ACDfY1J8!CH02
zIL#fDmq~|B3$2vSqYaVO-x7+mT^(Vo=3coCnxwg?%tPD7IU6|FPw&^@TRM?xGN#LR
zUyYh_%dBq!d_;H<(NSRe68PFoy%|UvMT~1HdfC3AS2_0yo6ponH3{Gs<dCP%*!tfv
zBb3N_oLHNGtKci@yA#Y05<)H9UxB*(SXd7lC9c~X&_$y4tE0%jfp3YLUKv_!^%e8{
z%4f#vRITvR;U7%Ew;q8?y)guhE@V&c^0#<9xaESmfZ8ev`u;=<vb?GloB^{V8bcY{
zAe2Ww;@rqIokzW8mdewWh+YO;k^8se>_au5x|J)8-4{z;8_=GJb#oABCUjv`9)dMV
zyl?Um%*$Yvv>J(L#ITsO7Xzp@Yly@Lt@*as<6b5dR2xJK)N(Bt$@fHnCgLn8yn%i&
zr-#5~i^<~h*B!>+2xr84BOYcFV;|68^AQO~y8y5;6JpE0(Dw%BL|x&K<;>zzWSx|&
z8!{860`!e&C{DwU++oqE<FmjL(D287e@Ry-&Ng^cKtq&o15aPV{d<(Qo5&yS6M~)C
z)f>@DhnhX1iWQ0p=sdvI+u)0+cpHVUJOk{C*!R3ORO~POj9W$&8=d($WI71RNG9ce
z!UEPO96`TbAiulee^R##;fyN))I!PMr`zLPeP~OjL|~3GL;D*IS>XIh;7`?r-ep=V
zx-KArsH&a2e-j$YPLpPdkoo5)$^S8r@P>ZAw-8ZOYml<cC)=pvg=q^RGJduZ_g+8U
zh1R&#nvC>lRN*~Tx5erMHJ!VFqJr~5?6NYWdJpEuka^d0@g+hWs_*cu${ttcdEMgQ
zpoO{wZDH($ezZoW5yfeQkwiVHq(4*f$|^~lhzKeOR{FBn17BM(KAwWLg3}B+Y#aEg
zq&Nts6|vRaVxHow^2l)l9ll@~Q}uM*7=XXK&A*aqN1RHm5cTFyvBw$O2=9&lLjJ04
zpmzI)unYyOC=x@b=8if3N;OpZ<I7R005t&o=ILrdBnzeiag&AC!9`RHD9R(uN6I+r
zB~D~Cwm=OJkVH``!da`F9)jX0XWfo;F|KFOE5h8d+)%;|Mq?6UK%(L&%1t12IYs`T
z{#I2ud;@$-OV^zF<x&na$W^^<zYAx*#_bXgRiPsa_{2l7gvbJDD|R2XwNxNhV^0#b
zHm9ck(|c{?_AV3QH70(asRp(R@g2u@!k4EO^?!7?NyLMqu8u~q>$||-F9na9@ZbOP
zUgO#KAS-L+%cm<ThWMJ@Az)t9#>!yjjH@=*A?mq-jOyRPzs)hSZ~Fgdw-}n~+c%Gg
z%*}*4hy$;17HIcF`3-ed$G&njn=yR<w|2>#?I)!!GgvA9Z~#1B4L!Zm(Lw?)2MaX-
zC54r-U)eE#<YXa?{*Rw5W1hdGlSP>|<Nqh83ibk>D*ezK|1X{@JQVEy^r@mlcN-&W
zL{?6fKZ+7kzTy7{O2{x*=2`p!l#pc`Q43ldshk1723SzlTNU5~bdcf=Qvsxk*9w<7
zgAC1FK2QbdVWZ+oso+)6L5kS_^XTAU>uq!pV{@BdR%lEie}fQ@?6F}mK7o?5_TO}m
z;Q5nh5;31MU)$cwmB)_*Z8@+~2gZMn&$ar5lV@B&#uY`ksVHL%y{ZupRYP~U54AY_
zJKmX<`mq$oW*+EMA5b4?cdtH<9GM@QoNn#wQJy%u`vA8owqM@{HUrD2U%l1vY+R|U
z2))(7RV~Wb%_XYoZq(SJE0lt^GHt)EmYqydlKK8GDW?VUeZ(ctOo;wYduJt2O%<&0
z#lcuW6~`icO!5dc6_V>{DXREavWCp3T2DMz(iVW9=%W6$K;KxULnX3#8lOuJ@M{P`
z<zorWECwfyluPmodxDbzX$|Hs=~L9Yg6CW~O1T<=DqJez=K>8Wl^gQV!k9Q*EA8D5
z8?PD;KnD`6Wz+|ZDJogon2LwmA1K?E3-p1wa{8?H1H8ry95^5`RD<t@q7(VL!ak+_
zB=Ro;t4tN7vsKG&QZ5vGS&sXQ8f0_e5u*Htv21TxZz(JQJ+%QFq)gANK~^Ujg#Ib>
z8lgl-`cLF%y83;;1_lCOKjGO2fPJ#7j@9vBqF(CoZHQS`7)2eFD=J<$tB7^n?w6F$
zsw|))dUo><In28i%8yW<?@m8xJ~ym&eNvP)jG65PhUR>?C35$C_qUNL^t4eP;d^)f
zP52hXZ84ga%Gr&&Xx7V0q8v|e#4=Zg%!Gz2&`~WF;DdWn3lJ}dnR*OwV|~S_&V*{0
zm;LJwd!FG@)q8nD{Dsf;MmOrenzD_`U%C!tTh<+UVIo<0=cH0~yzXQWEiBuN;mK`a
zd~q56aN8@v8pPbp?+xz?{XO?B{bRqFq6kHZrJ7~vW}p_Bc$V<Y-n74hj$X$@>8|BK
zYB(TX;Gr7H>ZSj=nYxl`n_vgf1%<z*0wd&It54RJ_aiDH4Lq!0D3S_(#<5ux&NLq6
zj-*7AA8UN#3;W-mCWQse+B)qu3Eol}(0##_mV~ps93GvJemJ?pa`5T>IITz6y)`5b
zZSp&8h~IBv;ElrF?=UvCMf`am`an>uBdVMhG#W<?h-;(SuKg#&#?ph}ePCWLL)Sh#
zlI$$+5YAN12^ob>9~awaUqlrFI@tNc?@w!jcQeHZ>s&z#&9;J>-TD19P}VK1X>S_V
z)ZshegRvSgbc+ZGs!*Y29-O%jz5|Nd`2qgk^fI8z?LDZ{iX=W7qH1gALn@l)(B>1n
zIJO63e9K%8IPtnapYCe0LsO$7Pxwa%*0OklMQ*5uNk)BHco{RKtHe4nTd31SX)CH?
z;Lj36L-CY_oP@{F1uTd7kUi*1=hY!5gk~?ZS(~{d`U$N4p#gkPu=?rB#HY;R*Cslf
z{kibUQCs$7R0%Zb%Zw$hs04ZA{fXKwP-z7N<_G$$WA9JsE8h7wl%t2@GS)vO?}9>L
z7BmqfI#gU!KNG{(<#1XqG1Y6MN`*`<FluqAHw`B<_1-Mt52Oi;etvbx&k5VjAD5yF
z8|wXtGnmrIROc-U7iU;_E++@Ijo9@<XR97a23|)M3}YIqwt_<l9!mf?F0cka=8>+~
zhjrY|6!2<=bXT8$RDgy{=Sj*c=qs9`wT3JaQ|{QD)m<*E4P7q4NZeB2w?Yl)Dzwzm
zgGSL?)ar**NJo}*kJ_vGg!62?Mu#^aHedg8_2@9E#r=i2`kHpz<c(xu=mmO*#$NO;
zPWDy4tahs0QMdk(UP=9MW@5F=9&_$ps)G3oQK^H$zq9hl=rFFZ^{xGQ-?!NnGGiJN
zsj44*M{tI(6Az850#Q}U`-V`1aG(tl7B|?uSj_#ug<T79Q`eckSGtm4*tKj^OTr;n
z#uAnc3U);>a>B}u-?0sruw@e)EWa&+7bj%vv}x-+Oo;Pn2@oDhcOes{;G}HB&?)V(
z9n%7JQ<^E545mq1XNzg;?J{Z0Odiuo_xsL~!D+MUFk@`#>fWP!&*MM;|2>jb-}|;n
zd<S_|Sud5>Ji=?57kdgr!;YgDW48vw<KHkXhX#@V-r*rRcZe%jPnvM$v3YHe@08Nc
z4DHB_QTZYL0y1Fwrb^`D!IE?btcKRB9m!pY_po<D77Tk(T+0NfGq8%s@}Rb0#vb0f
z*4~ci46|#zC!Lu@rnc*iy0GH9edkgoat}0dz_djc(1h>EIWh_@;!7pPaLAz^c(GOh
zwfsx@6UQY2_wn>IFC9z%tAAF(^{>R_jL1*HAuW+?kg*x$z6&`k%2#uyN>O($+U<ND
zIOV5WCtt2ezq0QLz1ljM9ek!Oz#}xbbgyd<7F}abjL#b*y}}7BO(<H6IZ(-^;*W0<
z{A=`lAbQ}W1V1*g$*A~a+SmV7fla7009jU|OT`DS+QA{_)TEZG1><A!URGDZhT>IS
zMi=kmAZ?G;RzGLeMd=03i>&uIp%00_&=R3?EM{YPgn?J;oQT~T267R-%{jIFTy!?i
zI33$mUxyyq;qm-PJk^$Wn(<U$nfFw!a-S%l>M}f4^ekQUjLOAphKC~c?9m<DLLZCI
zH}ze*g4JZ(tMkraSR}KXvVXlA@6+0e9qiMiXJnto|LoIE=+kf>gO|>gZAX-6cADZn
z)UYVgem`dCf6G4I`mKddC?U$8Yp@?LyCgh0<vXUo9z!+;pW_TQ+!P;iO&oEfXE@@1
z$TJ`25f3(0yukn2!$;4=dw5g4hqE0me;&cHWAj^K8>pm$7`_SL5hG=;9Tg8;D8amn
z`?NPR#`{z>>uI-~J{a5j))2VgRqyzDr<&?_Q58^p&z5&C;w-PsKfm>(PDP$!1<ugq
zTCMX8jTk|BILEEc?f4n_&dTqI&*NUtwBQV{@(hv-pQ57v2qlDN$P^Kqix@7j1R9jn
z0&i-D<-6jd-fs%?TE%z=%4&0?v1bo*xdk^df(ELVBiAQi7tWI7<_zSx4b4)gT#W8}
zFM+2b_&MbHDIqA{L;aHa`P%5V3*h5NBV(1oWM&nny?DoXhu0BSnu+%meRW4>x!`y=
z_v}Fq80~)b7+dYM_j-O~60Ngc*a@R)y=V977-9=+`NY_aMf?2`Dl!0%?`ngJH@-vK
zTH7Y9aMWoG!ktDcL3UEN02=g&MARfqXw%1l28zdpx9^OFJ6(%CK<<0qj@<@cK&Q^v
zGV`WmsXf3od_ezJV^;aksO2CvG24aefY5@R^n9qT7OSimS+KA>xnzLKEHc6d!fCAS
zW$2$|glwWEX6HwB%!*|+cs52%P^!%PwZRMIy|u*8y4wmc`5ME<W~g~Bv?b&I=e3*T
zE%+iel%XwbHXL;$OMY9p?lST1^W4sGC&6m-cn&3uI!CkjQR}7k!g}!LjUg!hc5&`C
zup%xvkLlwbE+TP~$H|hJQ!g;av$I0QKy`W+U&A+`AKWmQQ*ka9^-`gxegMo<!SY5X
z=S$4Wx<=cr9%Svh%*q#J-2XQ4d4_9|fOa=>!Hy&_kPNJ)t6CmeP<g5WERnpRvw8g+
zWJfe>TaO5YGgpMPIKO2(G9srWs`0t<)(aP79XnU+gVnE<JCV=g|8k5PM`NS%`|!2Q
zk(XkrgY;lnHoiF->e{#;;Jc>PS*Qtdv(Fc@zo4Fw<h!q(C{66&U@=ba26nCoH**Hx
z4E<zl5MFF4w&)**oS5~uc((OFEwn!mL;^rdWZU89f#^d0f>b1lZgQA{R6$TSrd_R_
z`yR}hW0f=aNr&8w4UU6JL+<kX&G#!rNR_`;plZvhlZ<+PR@3oK{yHix5;LG{VPI{M
z^+hBuA_=JAk?Z}m5eNxth70Ai2TdmhLr8G&gl=t80d#MGjrLYu1Fq*h@d+8I0b-qZ
zcCvo}lS&0cd;@rS!Ow67;+bt5%Ms-WFA|I>^bY#}zz0i=Qo7=40>hGAx}rV>v66UY
zrPP$-IR3;D;xltIk;r~6WrU~bi?5f4FuRlh&xgz?>dx?$D{dwN5SjM+-0Pj;!thWk
z{pq;7S1v(e1A3Wq+;yzMo<3^-9rmD%4+KlZIBFL>IIXx5enX6RB+6be6ye+lUoKXV
z)WC`ENz4H!6fb+L)UDtMUNJBjFhA->OsOp?&hu2ZP5{%38eY>Za>oG^QTF(5Vvc&&
z63fFi=k-rK*VD&7p_hB{Tx>ID7|~w*j`yg|1Ser}b<EkgUt^4hj~|)qqcT#I_d$CW
z8CF)?^!VRlcUIBBR|6$@Qnxe&!GHlfsT4ek1KscyL%du(cXcAxH<{39qlkmmJ1>MA
zBGeZ>+Y1FrC69`|nj;w*RsMz^`vBQAhP_5FlzE3)?Jv>ECNez&tmIoBPu+f>`Q|4X
zZ!}$B?5R>Md+pyV4-8)R5%=1Us<)qcd99)rv+3G2AP4A`sP-Q!oYXH7ohWw>@Lvie
z_7*%OR)XnntbD<i$ohq-XPrU2<0F=C2u8F~DVA;Sqia)X*5;&l165crbfLGfaO30F
zKMfg#24}|V>~$waugPjP7T+xx3v+H*h{ySNI`|dMR1o<h?%kbaU=>nx%aQim>R=eV
zQ1L!{lkliQEpDIYg|^96BoV0LQQ&t$TlQp9pU9V=%330IRg`79ySV?tK7#YA)R|fm
zPIH!XCe~4LvK%khk@*4IuIFPTdi$JOihCWZ!53CL5?=4JuYINhBTd`g7=k<5%We3q
zTo2P{mPzf@64Th)fsMO}hGVok+?4v_R7^j|o%#!}zyMy>br?fa59QrF<Sm-9=6ikj
zBi1^8OtQt}S&eM>_BLKE(KZU)zHr)umn+p)F`g}WGPhiAH<p!XhKJld1{?)}d4<wx
z1=Uc%-^pi;?3qrwO3iY+Ua<pJAE8;-ftFJ*R4apm@woYM><Y)oYL>@2ZYYyUjtAU<
zJ$7ivb&k^!Lq4T=i(?f##*tsGc!3pu=E8;M%F43Km>Y$+7}v<kab~BY2es{Zj`S>^
zW~`h7rWtyiV@^R;p3$dLmoKFy`WGm90*Q%!|9z<4Bx8T{-;qJqn1urKT2168l{_Lo
zgfgm{=$T_C$ZOiYMbVdz-E5o9)`$7VG}A$C*b|DIF($ZPr`Bzle>`1$Jpt$<!+F5C
zd!q>sMerKwMf{C%*eR=ZsEM6ljon$Ip5ki^0be5K02xIfd%}2k9jZ;@o@j^CP;F-m
zk)cR~UhP8O8*rixeK?0(#1N>Qq;;v8;%e!W#6wChic%!<X$#3@$e{8cM+Ka`LoVbS
zFHmm~yN!BqkBHTVb`TY76Cw)mvY7QyGnIUDgWN+xL8LvaF--lI(->o%*|BSa9!1xu
zoOO<Ir37m)xOK~y+|Jr>!xc;_=JvVYa_h`PLdD@2*j0~j*2|!;)~8c(A4>k3)#iC0
z+8rsV3OI9iy1@&qN~EKbQTUtsmW6hy0xwKn#Dcr>R4dk6duKJc4y(WRTsd22Al7^e
zduaTQ{mG5CVvo|*I=a)jpj7z+982mMd3=C;Th%fv5CclCv(f$`I9si^51aP$E(v~i
zHq`59@EnVPi@hr|u8Jkpb*M9lv1HD@8|<=LbA?mru$G!PRC=?Y6zr6s_U6Xt-MYWW
z+0=*c*uG70G|(&JUP@_Q&d0h<wzk*vkVkj)_>sLy-VVPVfxECKM1kmBni1UZLo_S!
zm%!ga-A;ZxJOyxl51R6W{rxs@g5pXD!M^;HVlO$M-x#Y}@5XO>+7~qA879zElWZF9
zEVVwt3>Cbbgx86C-7<wcpUH8OK5o%ktv$1L<OLDC>CuiYq9)ioS{coL^gif^y%&?e
zzt<XPcNteobwe?0h+ag!VbopGW?$WKZ>SD2$y{xxHo0&_=#m+l9jRk<j}`s_U|wm(
zBBlar2sJ5OnOHK`JCWJxli20ZZ`Uuo`))5)=grC%#I@|Ph9qE@;#@WM$#MNs+gWJt
zx$4q94;mMihg|SZ%%GR1T6<42zMXY1up2t^em}!5Bz}e5U0rYdBJ6%j#?+%{c#hY~
zE!w`lTA%&>V$Aa^#)XQsyte`UP2}~|r4svxQL{b>w>TTrm7e!ZryfClnmpdp6@F-W
z!ZC=euuvk}<00x+T@_t90es5#cB{X!91$ke3$N7;Grodzu<D~<D!esrxmfWO-S>cM
zQxmV|qW74Wq-+P<bX9}jQLX$O^8@Ng^e<HO^lL$1A=n>qtsK7v;$4O)G-5B&r-`1&
zh#`clD?HJ_TJsD5D@IqPJh)a(eq}kby}tXp$%d95YX&m#9VX#%1g*M9;ofzDIGSI2
z5M_B%gnypNd*v7$rF7@n)A3$gbTyAmg*XNqXgXaxw@xiS4A)_&ei(hOAKp>RtWt+)
zVF*=&b#2;@?>Ms1q+7{$gZ2iG@TD|EH~WmPrt=-B3@0>l<`-(XS#4nA$@3(%-n^^K
z(=ejoHO--DB@`T6pdD&lNX>j8Inej$WH}ZIIL}ssHM}L<2CRkhqy?xkXvXN$ABEXy
za_zd0wux^Qse%@+_kgqWnVHn2W^ge%28)KsyKu@KpH=9h19O5(Ml05*;D`AB!arTG
z#h>=9G~&9ZA5gE0dpKaXFrr*|9=w}Cu|r9r%yE;mVs0UCR%-neC_*Qc*Yv_$4@&9Y
zqm9k-bJWyD4miP<9zEDrD||HKz4FGnjHt)J(+A3lTv3C;0Vq+XKDcU8!)ir*TY08B
zZ9(*p<>-$t?>+T-(D=u=6QA1*t+3>U{xPgo<GcdAT-jE*!ARB*Ja*n}Yi?Ir?KJjO
zM$vyFP&Y`+n~$_{n4!zef11yi<x`U`6Y+&R0Dm%6mZ563$hT>HLD|-)6=ctV(m?MY
z92<i()$y454qOeHx{W(=jjSM|8C%*?sBj6@gg~-7S7C)Jtk49MF&BE5de_2K9ldJ&
zj)?$jL;P;5F*}I6tp+-@Q-#tQ<Hl}YsB0ju%DA#j_+_V$0|Rt-R8LsIK1pQrEmg=J
zBm2;*76CKj)`c!jIpVjD%)EP#+>H2?kCkz$wbR{DFaS>tb9H!M%xt~bFEZw<$7UiS
zW*q)_B*`(fLhh)zBTc~?ZiA9@2NkxT6%Opk-)No5Q8y4CDUFr2g{avjtZxHrAaWV6
zte;zrQ}3J0b}z-;U>O^7<otBV;R8a4HM-2iRoin;w1Z)y(xp#LJofq0?5Ed}QT08{
zBT%3;c<X`DtAaa*h^OTIX7hNk7BuS@JXaMUi0)E=vlK_9M%HbRUUACDzzaQvS>v+e
z$2<z=q}zs)ir5KIS%eV{7*ua`u`dxpoptVpULE6ZB^P(wc0+3fNG&`e!^+E4tutUZ
zAsDiT4#{&|Qn0wwbGK47g4r*U(*(|J3Rc*Qbr@6HzuMBF=n8LLb)d_<_A=E8C1((`
z9@K|Rpz=yTsJQdo%Cx$mo2{k~oODO^cLUM&0Pircc$1IClJ2Tv&pGMuzJGcC$;ID7
z{YR{c$m(y4&TM_?$r0~?){~!m<h_^{xnmG|0IgK=R4;LiaAx`he;e;AYovx8kWWFk
z7qMJLTU9XV>1VDU8Cs90d+S5YOAfcr{q^KXcPRVO!M*O#a4Ua%ueA~0S0yoCJMs?y
z9z5C|SpHVNXvN(By`yW_WIwv~PyK->N96DCwJvt$Ds__u;u=qm%>NCa-Az3~zADdS
z&fTi6xKH*|+##ymFy4mpIQI)T`S%YVEqrY#O)Ao%rqGIYRcNnQ{W_&|NviZCP549F
zp;o6B!>WBR@i$yq*DAPgA~TnWY`;*n6iS2I*$UtNN<uQ+-z!Y{);}@7p8+)(%x(r^
zJGGxISW^zoA91E;*4<Gb!f4PEnPUMvhF%f)G#nXSKpv<`^h!uWE+l@gqU)2<B*zCa
zt#iQ|8OP6ETX5<)Zztla#1?N<fgB>c6;BB@E25)%fEr3An$6cLl%V0i0CzvJM>f|v
zG;iv|x-U`#^=Gs`%@7s%G|n}|&YIs<Iup(=@dKM~t$j25;pqCM4VZ~fHB>~-4;i9t
zFLnm3T#6$vH2BM)?3TNWxC7wQO4n`ZKwc8q+FUTgiu0$2vgv~;*;4E3h}2U)`Z{6;
zL>-b3UCdf>p02}F0MQWmu`4E(bNM;>7VwGbhG4Km7gAZHq4FTz$uOSKUzMeralx9J
zC&2o1h<k&`Z6)%Ts3Xq1YM0a8Q<-JlzHvxdh37fZrB+XZ1-Yl~Y<D1KSZM1Z*VGT^
zvggV>eXZy66Rp>N(bDm&gb7(~i8Dm!RbGahZaJsCA6kz5uIY5FXLnh`{t+O<<JB4b
z9sljl$s)}DFPzKFdm$Dd$D84#b_q(;tfHIYWTxakarhWn?;pf+cWv3oSzGP`>Yu^R
zQ@mc}jfK;%oZfFPqOR2~K-|vl9tFRAwi4qp<24(4j?5bo8It{Mh<M=~xC762;uC%2
zJeE4JnDdB8I$5)?D_LkLN}u1Fn&;_xx-Nx$G(=jw(`wNBpL*&;P}BKU&$ElX%v^~%
zlx%oo@!GTp$|k^Uz+Qr}RQWw)GqU%5GL}+WsOqZVeW+EQgJO|)p`wlC9bSmhB9Lli
zmGzXVcMKxmmy8_#jhKs?yg;VsSrfB&h2RJXhCsNTJiq1weB+y0^>DNAWVoRW*nOdN
zyebH_?li~J?cGq%WIV){efH6)mqPawx{Bvk2}UiWCxhpI!=L@BG>5Amx@X0xGWiyH
zHYtp?cqeWRUX1a7R3h<{ukt*M@qqR@nZg>?L2Y7lu@a?fsP-_}jMq0t)xmX_iG#4%
zyVO-ga=;ne__U|JewgfZ>^%1=Yshm$Cc2ns07^XwPi1<l6{kJI`Xt(bdnyzZaE(JE
z7Gzs^558gIPtg|N^6ss0^XX1i?Y-bqhepYz6i=U;5mQi<68hksisUCOY6-a>80RN>
zSCo%lkMV!h((u#B{7uYU%zXf~5FhDeyA$VqvtRX$-0#}9Oq<wLk1TsUo+X~H3{^#-
zf#AOdgo?w&d1X#51S(u@4Xf{-i-MW^lE=6HtQhg&%8GbRR(=*eVeWk@Vv8ImG&Twp
z;Z6%J$t_{-^^F3>s67&$Wu%5rXzO=oU<XE&HI!2(R{(!2Q642x#1m-WAIi<<rP1Fw
zdE~QaEZf>f>9vb-e;rP`1KYqj@P7cE8GBo47O?7Ie@l;n_}|3wlVJ}P6DM6ga=x89
zgnRpVv=RO6qng;(k7^E?h;9ahM01C9*M7WuNXzX2S0QU9RuGLS2YS@^BWg>?CRR*f
zHDcIh@fte|z+gk(F;Ft^{A#f3m$>q=teKqr#BbKW0PT9A)m^bK-&pL|7_|_kOn<*;
zp$B4!qGGeMp%G4GxG$Kgx{o5SV_0>u&na5F-*US4DTP13nUR;T<&7#&WIV=K_!CjV
zyDQ+vh<bS*ylcQfS{`jfK3aIPsI9qH;B9VcIL$j$UiIy)-`-~aijpmy4WZQ7z+K<U
zbE~$0MbRq1f}f^B=x#1)6!DO9o~j#P_f`j><FH4`t=JvFyl%K|E3(Jh)g^Eu)nY@)
zzob5~j?U5}>s7s=P2xcFMMaM)5a03pI`*s@zjeH=npimHr=4MFVLLNj6^cd#Np55e
zZo#;(%uoaMRQ}hP<rtq-mGg5wMqmHa(7bbIU8&!b@95aO>6Gv<=h28LawhLmvwD!t
z$^ipZMwf@}1D&V>f=dIJ2jP|gJyc+M4|4^9hL69Aes1d0i@z7D`B;Tc^^G@OtG-+k
zCB~fW;_QiFqkR@$9W|`fW&*87T(NRjC>&|nf>jaR8>lW|4FnPmN{1$awXl}_z%Ame
z$UEINwIZsj|BsJ7=FHIF&Y%}x_>hXC(=qNPz8lN^C<0H4$(YxLxK^xYtfwp2ug6$%
z{`YTnY{2^&|C5TW?YGQ%`s0}gW%QF;nx`lJ1n6?f(4cR#Sj~I6YKoB?#F)`~LkHoh
zO20)Te4mgvrE4R!KQTY%Ox)Et+?syn_d5`)Sy1;9`JCHvZ$+ET70?_OUazycPt}P?
zT)1UR&YGGcnQFHSmriqgin}^zBH-Z8bcI?t2vzuLR2|W?9y&oSs|s%+df}2VH47LS
z7RgLtqU6!fMTyF7j+fg;Q9JaOmZDO%d#htph}n-@$5CynsJULjy?R&90SjWLid}GW
zVx%lQc<fHjAI#3N0!<yU`2G!iOpyVk?}CHh#@KvVRI){G@3ln*!9P<~8+d$pdC91|
zH8uZD%=oCXvVxg=HP^~YD0l$Y=q%XCyFAmu>9WhLp~>rw70jLM!k_t@tO#2sooxna
zhFv)?tAW(-2kxG3OE2NBs6p%|793@bVZl|XP3Wc);c+*l2>sAd3-Tyl(-CMf;f@Ih
z$_Io4WvLPMLavI`mHY1ZsBfc5O*OS>*0x3|hBvF9exTfkd_pZQUX{Gr4kec^OKAp?
zS=a-It8QkC{_%_$@pu<H?jyLzKie_||KLykUP><2=D;`DAh1q!uPVkBX3&1=#HLg0
z?SS*|?+08Gx7VVNz<n!_Ak+f?p$+jpt89bw>`zV1*t9R0p9?}f@xecdbUsjAMWbLZ
z--u-}GhpmW6u`}R1v*O;f~gpfSF|F3wDo+unv4jUnNEz<gd@fHX*d|OyfnQ>oaJdm
zj#`JugC3J1dR2Q4G_t-Q8gL>Kn6G4W-`)V!01n5ff^;}mU0o8)-dBPQ=u}KZwBXkL
zFiIQ?bvk}g-Zb00MtZis9kV?4-6Lk9y00uNe+!6W=y43}Btz*=@+a`@<h#@oRP@g)
zLS<gKyS5?!r5O}3=r)UJBx9E&0Nmg*A|#a`-8zo^O&Y2@@HPl`KjhGosW;!?5jytD
z;Q2D_Ew)sY1Dm-TXhY>|2^VFy0L=BPWs{C-Z3Q)}z)iSg9X{1QFS_lV>JA!aBQ2OG
zi|9|(5x`s&zb9xDtKE8{CV4U3uLIR-UMng)a4KsopYjRs<+u}r?;K{#NVRd{r1RF6
ztGi?c9}W$8y?+1iD${3<$FyF$GXU4Y3XlstWcYM|yOc15>{bNm0OJ1S5u#eixX5uM
z|A6t$r<;NQrQZOu->RDGKcTopMl7Hi6aOV`U~TdyWY#6R!S^O>E~4@s!aYRhgYBtx
zYMY_bZ|FIW-4@WAng_T?WKeE81SnzY08r!UMTC0awO&uH0S<w{WQ$tdQj8*5^Mr>c
ztD)d{i2S{4FT5X!2@_5PV4_vhlLGEIehqj~a37k%wo^-YF0!g$riQS@!OE5i9|@>J
zYe2eM=^|k0THCazu^Kg=NY-}bB0l7rwY62Sw1o47vSP`3KfSF_6$%$5!^?FI+S1T+
zWVokF$Sq3%#?>PolGt18=Grg(2E_G<>4qArsPYR;u4oG?72IQ(W~mZu8YL=JTP15%
z)|60Ku9;isX^yM%8wHYnTSvbGhk3Tsi#?av!3<tvy$7slNBr(N3V~RJSIi9txAw&~
z)Ro)g`EWH>?0NSD?I3QKRcty8mZh>*Kuju+nnUc`3pw+<_4@t2mD)?UzkvOWT;&XR
z!v6qB)lw7Mgq}R^J+Mh+MpA~g3h?0Sv4i?342_wjF7Gv{^p|<B<^sDAXY9#7BA!}O
zj}mS?TmLY=Rk2dC<@NWDSyJ8U+Kc)3%O{sO@67Q#fT}+H>!CNNJZ0&A>DbLHn|#c|
z3|=}Mn|tla5$<zRh7)RoPoRp3aSk8ZX=Vf91j#d0VBbjfG|nI2hxRVk?`fSmn9q;o
zd>cH~|5Emq{H?sye0;q_YewE-2kItk1OnEn^?SSyu+2MaDs)o;Do=1Vg&%paN~;Mz
zSKd|)zYbs}x!-a&Vgv%$(By9iCo1fE(bIITX1HU=sg_LBOEF8_kCL@RU<pbMQAF3G
z#-Ti8QM5<;CnI4hhntHV(viu3n4X=+w66xVX1E%v;L$dAnTY`brtlbZU-G)#3#r0O
z<wAE|?IQ1%0I$ba?H|h{GEIj+{o3$b=AE*fM$KS@f5`J8?@p1cQ@O4AFz}w#4thH#
zXCU$lVqw0A{p$PCAB@dd9(xt}SU7V0UR2Yj{X^JkyGwNK&9-}hwa1v~2hzg-yys8r
zuzz3`1FL+gCibGrD+>emMvUH4?H{TXe2(S?WmD}bo0An6vO}{qs0Svt*c(~tF@qsG
zFB9cVM=i(bs-a>cv>`D%18Co0>`<A-*#r3W54(`<hr7IBb7NHl3Sj-@n6vTh8zULJ
z6nKgZjYq;zb92x6iL^T{)K8!$l^oY=tu~=dfLJg0iF|nMfeF%Ff^jIA{q(Iy9#{IZ
z`_3;zCTVW2&sMl1F~_2Hbb+CP759<NtWBbF35T2-tUuW|d{PV%WLI&VbozGODX`r`
z3!u1VD7_55BK}=W#07Nh=d~Dla1){#F%x$I6%BV3hj~3*(16q8%9fvAFva*iN4IpX
z$C@GQ+|Uj=N8HQbubAw^j!Q3kv_8yen1?bjbK}mUZHlY?*X`P}-5Dby|GHe@9Z+5T
z^y9krrk|OJ0e$=+^_tJ1YWnHN<?PO!!Ex_&AN;JV>bo<#Ct}Ng{@F(bcJi8-5B^Ep
za<*sSn#@Ri)-}P9C`ZdUwutQbf4^zffeaic*GUt&E5PnQoRy!rf8}H#4X9%|x+lN9
zp2(H@y)&_n12Zuw3B<s<!r$E|U$Nom*z-0j`@F)R_}%rwTAS_CbS!$J>y6)-e%L+P
zB2{jrdX02{1OBOh*qd;qp&6QBYCcs1MMP29GVEn;l(<qqC={qos}{KCo<MY6IZnSy
z?T}u;qteeWQWI?b=~{7bRlw2d&sDSXP4^b)BWI{PgIa&sgE~S!dmuh-K54s**}vGn
z+Vhu1SPhwN_3xr)YMbD~BD2`cxhvzf{Hc8N(gCi^=GVZ!89>Zrc6zb%KY#O6^sTPO
z-Un`gSUFN3w)ns?b|UVE3L3KLH_k5A^b8wSPp4Nz2##UlNpe%kXXCYd&nuUQ^~85K
zR3NLg+b$4O@Pax-_lsd5DS`oJn^#t}I+A;&{?o9YK4k#LaFK%Q)&~36kWntxR;KEU
z^v6u*$YPwwt=r!(=|LuSuM=7Ac4PpEFhKU$w>1Io^G6XymKt{GQ~q6ceN%IfmwEGw
z{cr@{MJBrWa>$B|H4rt3n&c}#zGD`;x0%6f=pCC)&uoOoqL>qV<=LR^b9>V7+*#ED
zS@i(^X>2IL{cvAirxyyUSiJ|2hf)!dB-*Fja9%u#T#ah3V8Y<{+XYrrR6MDd`<PhQ
Sv_lSL(^KC@UIguZ%=CY`vYh|`

literal 0
HcmV?d00001

diff --git a/suspendedfreq.xzap b/suspendedfreq.xzap
new file mode 100644
index 0000000..9b1c20a
--- /dev/null
+++ b/suspendedfreq.xzap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;1722	861
+	.FSTR FSTR?2,", "	;546	546
+	.FSTR FSTR?3,"and "	;494	247
+	.FSTR FSTR?4,"The "	;480	160
+	.FSTR FSTR?5,"to "	;415	415
+	.FSTR FSTR?6,". "	;391	391
+	.FSTR FSTR?7,"which "	;384	96
+	.FSTR FSTR?8,"indicates "	;376	47
+	.FSTR FSTR?9,"I "	;349	349
+	.FSTR FSTR?10,"of "	;339	339
+	.FSTR FSTR?11,"detect "	;325	65
+	.FSTR FSTR?12,"can't "	;310	62
+	.FSTR FSTR?13,"is "	;304	304
+	.FSTR FSTR?14,"this "	;303	101
+	.FSTR FSTR?15,"from "	;303	101
+	.FSTR FSTR?16,"electrical "	;297	33
+	.FSTR FSTR?17,"small "	;284	71
+	.FSTR FSTR?18,"This "	;280	70
+	.FSTR FSTR?19,"with "	;276	92
+	.FSTR FSTR?20,"CLC "	;276	92
+	.FSTR FSTR?21,"can "	;272	136
+	.FSTR FSTR?22,"I'm "	;256	64
+	.FSTR FSTR?23,"mechanisms "	;252	28
+	.FSTR FSTR?24,"that "	;240	80
+	.FSTR FSTR?25,"for "	;226	113
+	.FSTR FSTR?26,"object "	;225	45
+	.FSTR FSTR?27,"in "	;223	223
+	.FSTR FSTR?28,"within "	;200	40
+	.FSTR FSTR?29,"detected "	;196	28
+	.FSTR FSTR?30,"Sonar "	;195	39
+	.FSTR FSTR?31,"are "	;194	97
+	.FSTR FSTR?32,"have "	;192	64
+	.FSTR FSTR?33,"Filtering "	;180	20
+	.FSTR FSTR?34,"detects "	;174	29
+	.FSTR FSTR?35,"before "	;165	33
+	.FSTR FSTR?36,"about "	;156	39
+	.FSTR FSTR?37,"don't "	;155	31
+	.FSTR FSTR?38,"extensions "	;153	17
+	.FSTR FSTR?39,"replacement "	;150	15
+	.FSTR FSTR?40,"Sensory "	;147	21
+	.FSTR FSTR?41,"extensions"	;144	18
+	.FSTR FSTR?42,"There "	;140	28
+	.FSTR FSTR?43,"It's "	;140	28
+	.FSTR FSTR?44,"like "	;138	46
+	.FSTR FSTR?45,"you "	;132	66
+	.FSTR FSTR?46,"hear "	;132	44
+	.FSTR FSTR?47,"already "	;132	22
+	.FSTR FSTR?48,"has "	;130	65
+	.FSTR FSTR?49,"through "	;126	21
+	.FSTR FSTR?50,"area "	;123	41
+	.FSTR FSTR?51,"robot "	;120	30
+	.FSTR FSTR?52,"I've "	;120	24
+	.FSTR FSTR?53,"There's "	;120	15
+	.FSTR FSTR?54,"directly "	;119	17
+	.FSTR FSTR?55,"object"	;116	29
+	.FSTR FSTR?56,"little "	;115	23
+	.FSTR FSTR?57,"on "	;113	113
+	.FSTR FSTR?58,"panel "	;112	28
+	.FSTR FSTR?59,"be "	;111	111
+	.FSTR FSTR?60,"tagged "	;110	22
+	.FSTR FSTR?61,"cable"	;108	36
+	.FSTR FSTR?62,"meter "	;108	27
+	.FSTR FSTR?63,"nothing "	;108	18
+	.FSTR FSTR?64,"surface "	;102	17
+	.FSTR FSTR?65,"Let's "	;102	17
+	.FSTR FSTR?66,"while "	;100	25
+	.FSTR FSTR?67,"device "	;100	20
+	.FSTR FSTR?68,"cables "	;100	20
+	.FSTR FSTR?69,"some "	;99	33
+	.FSTR FSTR?70,"into "	;99	33
+	.FSTR FSTR?71,"You "	;99	33
+	.FSTR FSTR?72,"tremendous "	;99	11
+	.FSTR FSTR?73,"Peripheral"	;99	11
+	.FSTR FSTR?74,"here"	;98	49
+	.FSTR FSTR?75,"all "	;98	49
+	.FSTR FSTR?76,"It "	;98	49
+	.FSTR FSTR?77,"what "	;96	32
+	.FSTR FSTR?78,"large "	;96	24
+	.FSTR FSTR?79,"something "	;96	12
+	.FSTR FSTR?80,"INTERRUPT"	;96	12
+	.FSTR FSTR?81,"should "	;95	19
+	.FSTR FSTR?82,"flow "	;93	31
+	.FSTR FSTR?83,"not "	;90	45
+	.FSTR FSTR?84,"been "	;90	30
+	.FSTR FSTR?85,"maintenance "	;90	9
+	.FSTR FSTR?86,"one "	;88	44
+	.FSTR FSTR?87,"processor "	;88	11
+	.FSTR FSTR?88,"but "	;86	43
+	.FSTR FSTR?89,"device"	;84	21
+	.FSTR FSTR?90,"indicate "	;84	12
+	.FSTR FSTR?91,"activity "	;84	12
+	.FSTR FSTR?92,"That's "	;84	12
+	.FSTR FSTR?93,"inch "	;81	27
+	.FSTR FSTR?94,"connecting "	;81	9
+	.FSTR FSTR?95,"Computers "	;81	9
+	.FSTR FSTR?96,"height"	;80	20
+
+
+;word frequency table of 96 most common words
+
+WORDS::	.TABLE
+	FSTR?1
+	FSTR?2
+	FSTR?3
+	FSTR?4
+	FSTR?5
+	FSTR?6
+	FSTR?7
+	FSTR?8
+	FSTR?9
+	FSTR?10
+	FSTR?11
+	FSTR?12
+	FSTR?13
+	FSTR?14
+	FSTR?15
+	FSTR?16
+	FSTR?17
+	FSTR?18
+	FSTR?19
+	FSTR?20
+	FSTR?21
+	FSTR?22
+	FSTR?23
+	FSTR?24
+	FSTR?25
+	FSTR?26
+	FSTR?27
+	FSTR?28
+	FSTR?29
+	FSTR?30
+	FSTR?31
+	FSTR?32
+	FSTR?33
+	FSTR?34
+	FSTR?35
+	FSTR?36
+	FSTR?37
+	FSTR?38
+	FSTR?39
+	FSTR?40
+	FSTR?41
+	FSTR?42
+	FSTR?43
+	FSTR?44
+	FSTR?45
+	FSTR?46
+	FSTR?47
+	FSTR?48
+	FSTR?49
+	FSTR?50
+	FSTR?51
+	FSTR?52
+	FSTR?53
+	FSTR?54
+	FSTR?55
+	FSTR?56
+	FSTR?57
+	FSTR?58
+	FSTR?59
+	FSTR?60
+	FSTR?61
+	FSTR?62
+	FSTR?63
+	FSTR?64
+	FSTR?65
+	FSTR?66
+	FSTR?67
+	FSTR?68
+	FSTR?69
+	FSTR?70
+	FSTR?71
+	FSTR?72
+	FSTR?73
+	FSTR?74
+	FSTR?75
+	FSTR?76
+	FSTR?77
+	FSTR?78
+	FSTR?79
+	FSTR?80
+	FSTR?81
+	FSTR?82
+	FSTR?83
+	FSTR?84
+	FSTR?85
+	FSTR?86
+	FSTR?87
+	FSTR?88
+	FSTR?89
+	FSTR?90
+	FSTR?91
+	FSTR?92
+	FSTR?93
+	FSTR?94
+	FSTR?95
+	FSTR?96
+	.ENDT
+
+	.ENDI
diff --git a/syntax.zil b/syntax.zil
new file mode 100644
index 0000000..2ac19e4
--- /dev/null
+++ b/syntax.zil
@@ -0,0 +1,544 @@
+"SEARCH <SYNTAX "
+
+"SYNTAX for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+"SUBTITLE VOCABULARY"
+
+<BUZZ A AN THE IS ARE EQUALS ;= AND OF THEN ALL ONE BUT EXCEPT \. \, \" OUR 
+ OF BOTH TOGETHER YOURSELF ROOM AREA YOU PLEASE>
+
+<SYNONYM WITH USING THROUGH>
+<SYNONYM IN INSIDE INTO>
+
+<SYNONYM NORTH N>
+<SYNONYM SOUTH S>
+<SYNONYM EAST E>
+<SYNONYM WEST W>
+<SYNONYM DOWN D>
+<SYNONYM UP U>
+
+"Game commands"
+
+<SYNTAX INVENTORY = V-INVENTORY>
+<SYNONYM INVENTORY I>
+
+<SYNTAX QUIT = V-QUIT>
+<SYNONYM QUIT Q>
+
+<SYNTAX RESTART = V-RESTART>
+
+<SYNTAX RESTORE = V-RESTORE>
+
+<SYNTAX SAVE = V-SAVE>
+
+<SYNTAX SCORE = V-SCORE>
+
+<SYNTAX $VERIFY = V-$VERIFY>
+
+<SYNTAX VERSION = V-VERSION>
+
+<SYNTAX ADVANCED = V-ADVANCED>
+<SYNONYM ADVANCED HARDER EXPERT>
+
+\
+
+"SUBTITLE REAL VERBS"
+
+<SYNTAX ANSWER = V-ANSWER>
+<SYNTAX ANSWER OBJECT = V-REPLY>
+<SYNONYM ANSWER REPLY>
+
+<SYNTAX APPLY OBJECT TO OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX ATTACH
+	OBJECT (FIND WEARABLEBIT)
+	TO
+	OBJECT
+	= V-WEAR>
+
+<SYNTAX ATTACK
+	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-ATTACK>
+<SYNONYM ATTACK FIGHT HURT INJURE HIT>
+
+<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
+	= V-BOARD PRE-BOARD>
+
+<SYNTAX CLIMB ON OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX CLIMB ONTO OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX CLIMB UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX CLIMB DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX CLIMB OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
+<SYNTAX CLIMB IN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNONYM CLIMB SIT RECLINE LIE LAY>
+
+<SYNTAX STAND = V-STAND>
+<SYNTAX STAND UP OBJECT (FIND RMUNGBIT) = V-STAND>
+<SYNTAX STAND ON OBJECT = V-STAND-ON>
+<SYNONYM STAND>
+
+<SYNTAX CLOSE
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-CLOSE>
+<SYNTAX CLOSE OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	ON OBJECT (FIND VICBIT) = V-CLOSE>
+
+<SYNTAX COUNT OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM) = V-COUNT>
+<SYNTAX COUNT OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	ON OBJECT (FIND VICBIT) = V-COUNT>
+<SYNTAX COUNT OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	IN OBJECT (FIND VICBIT) = V-COUNT>
+<SYNONYM COUNT TOTAL> 
+
+<SYNTAX CURSE = V-CURSES>
+<SYNTAX CURSE OBJECT (FIND VILLAIN) = V-CURSES>
+<SYNONYM CURSE DAMN>
+
+<SYNTAX CUT OBJECT (FIND CUTABLEBIT) WITH OBJECT = V-CUT>
+<SYNONYM CUT SNIP SLICE>
+
+<SYNTAX DIG
+	IN
+	OBJECT ; (ON-GROUND IN-ROOM) 
+	= V-DIG>
+<SYNTAX DIG
+	WITH ;"REALLY THROUGH?"
+	OBJECT  (ON-GROUND IN-ROOM)
+	= V-DIG>
+
+<SYNTAX DISEMBARK OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
+	= V-DISEMBARK>
+
+<SYNTAX DRINK
+	OBJECT (FIND DRINKBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-DRINK>
+<SYNONYM DRINK IMBIBE SWALLOW>
+
+<SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP ;*>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNONYM DROP RELEASE>
+
+<SYNTAX EAT
+	OBJECT (FIND FOODBIT) (HELD CARRIED ON-GROUND IN-ROOM MANY)
+	= V-EAT>
+<SYNONYM EAT BITE TASTE>
+
+<SYNTAX ENTER = V-ENTER>
+<SYNTAX ENTER OBJECT = V-THROUGH>
+<SYNTAX EXIT = V-EXIT>
+<SYNTAX EXIT OBJECT = V-EXIT>
+
+<SYNTAX EXAMINE OBJECT = V-EXAMINE PRE-EXAMINE>
+<SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY) 
+		= V-LOOK-INSIDE>
+<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY)
+		= V-LOOK-INSIDE>
+<SYNTAX EXAMINE OBJECT ON OBJECT = V-EXAMINE PRE-EXAMINE>
+<SYNONYM EXAMINE DESCRIBE ANALYZE>
+
+<SYNTAX WHY = V-WHY>
+
+<SYNTAX FIND OBJECT
+	= V-FIND>
+<SYNONYM FIND WHERE SEEK SEE>
+
+<SYNTAX FIRE OBJECT WITH OBJECT (FIND WEAPONBIT) (HELD) = V-SZAP PRE-SZAP>
+<SYNTAX FIRE OBJECT = V-ZAP PRE-ZAP>
+<SYNTAX FIRE OBJECT (FIND WEAPONBIT) (HELD)
+	AT OBJECT = V-ZAP>
+<SYNONYM FIRE ZAP BLAST SHOOT BURN>
+
+<SYNTAX FOLLOW OBJECT = V-FOLLOW>
+<SYNONYM FOLLOW PURSUE CHASE>
+
+<SYNTAX FLY = V-FLY>
+<SYNTAX FLY OBJECT = V-FLY>
+
+<SYNTAX GIVE
+	OBJECT (MANY HELD HAVE ;CARRIED ;ON-GROUND ;IN-ROOM)
+	TO
+	OBJECT (FIND VICBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+<SYNTAX GIVE
+	OBJECT (FIND VICBIT) (ON-GROUND)
+	OBJECT (MANY HELD HAVE)
+	= V-SGIVE PRE-SGIVE>
+<SYNONYM GIVE HAND DONATE OFFER FEED>
+
+<SYNTAX HELLO = V-HELLO ;*>
+<SYNTAX HELLO OBJECT = V-HELLO>
+<SYNONYM HELLO HI>
+
+<SYNTAX HINT = V-HINT>
+<SYNONYM HINT HELP>
+
+<SYNTAX BLOW OUT OBJECT = V-LAMP-OFF>
+
+<SYNTAX IMPOSSIBLE = V-IMPOSSIBLE>
+
+<SYNTAX CONFIGURE = V-CONFIGURE>
+<SYNONYM CONFIGURE SETUP CUSTOM>
+
+<SYNTAX JUMP = V-LEAP>
+<SYNTAX JUMP OVER OBJECT = V-LEAP>
+<SYNTAX JUMP ACROSS OBJECT = V-LEAP>
+<SYNTAX JUMP IN OBJECT = V-LEAP>
+<SYNTAX JUMP FROM OBJECT = V-LEAP>
+<SYNTAX JUMP OFF OBJECT = V-LEAP>
+<SYNONYM JUMP LEAP>
+
+<SYNTAX KICK OBJECT = V-KICK>
+
+<SYNTAX KILL OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM) = V-KILL>
+<SYNTAX KILL
+	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-KILL>
+<SYNONYM KILL MURDER SLAY DISPATCH STAB>
+
+<SYNTAX KISS OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM) = V-KISS>
+
+<SYNTAX KNOCK AT OBJECT = V-KNOCK ;*>
+<SYNTAX KNOCK ON OBJECT = V-KNOCK>
+<SYNTAX KNOCK DOWN OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
+<SYNONYM KNOCK RAP>
+
+<SYNTAX LEAVE = V-LEAVE>
+<SYNTAX LEAVE OBJECT = V-DROP>
+
+<SYNTAX LISTEN = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN TO OBJECT = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN FOR OBJECT = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN AT OBJECT = V-LISTEN PRE-LISTEN>
+
+<SYNTAX LOCATION = V-REPORT-LOC>
+
+<SYNTAX LOOK = V-LOOK>
+<SYNTAX LOOK AROUND OBJECT (FIND RMUNGBIT) = V-LOOK>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-EXAMINE PRE-EXAMINE>
+<SYNTAX LOOK WITH OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK ON OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
+<SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-LOOK-INSIDE>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) WITH OBJECT = V-LOOK-SAFELY>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) WITH OBJECT = V-LOOK-SAFELY>
+<SYNTAX LOOK FOR OBJECT = V-FIND>
+<SYNONYM LOOK L STARE GAZE>
+
+<SYNTAX SEARCH OBJECT = V-SEARCH>
+<SYNTAX SEARCH IN OBJECT = V-SEARCH>
+<SYNTAX SEARCH FOR OBJECT = V-FIND>
+<SYNTAX SEARCH WITH OBJECT = V-SEARCH> ;"THROUGH"
+
+<SYNONYM SEARCH RUMMAGE SORT SIFT>
+
+<SYNTAX LOWER OBJECT = V-LOWER>
+
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+<SYNTAX MOVE OBJECT ONTO OBJECT = V-MOVE PRE-MOVE>
+<SYNTAX MOVE OBJECT TO OBJECT = V-MOVE PRE-MOVE>
+<SYNONYM MOVE>
+
+<SYNTAX PLAY OBJECT = V-PLAY>
+
+<SYNTAX POINT OBJECT (HELD CARRIED HAVE) AT OBJECT (ON-GROUND IN-ROOM)
+	= V-POINT>
+<SYNONYM POINT AIM>
+
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE ; *>
+<SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+<SYNTAX PULL OBJECT OUT OBJECT (FIND CONTBIT) = V-TAKE PRE-TAKE>
+<SYNTAX PULL OBJECT TO OBJECT = V-MOVE-ROBOT-TO-LOC>
+<SYNONYM PULL TUG YANK DRAG>
+
+<SYNTAX DESTROY
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	WITH
+	OBJECT (HELD CARRIED)
+	= V-MUNG PRE-MUNG>
+<SYNTAX DESTROY
+	DOWN
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	WITH
+	OBJECT (HELD CARRIED)
+	= V-MUNG PRE-MUNG>
+<SYNONYM DESTROY DAMAGE BREAK BLOCK SMASH>
+
+<SYNTAX OPEN
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-OPEN ;*>
+<SYNTAX OPEN
+	UP
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-OPEN ;*>
+<SYNTAX OPEN
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED)
+	= V-OPEN>
+<SYNTAX OPEN OBJECT (FIND CONTBIT DOORBIT) ON OBJECT (FIND VICBIT) = V-OPEN>
+<SYNTAX OPEN OBJECT (FIND CONTBIT DOORBIT) IN OBJECT (FIND VICBIT) = V-OPEN>
+
+<SYNTAX PICK OBJECT = V-PICK>
+<SYNTAX PICK OBJECT WITH OBJECT = V-PICK>
+
+<SYNTAX PICK UP
+	OBJECT (FIND TAKEBIT)
+	       (ON-GROUND MANY)
+	= V-TAKE PRE-TAKE>
+
+<SYNTAX PLUG IN OBJECT (FIND RMUNGBIT) = V-PLUGIN>
+<SYNTAX PLUG TO OBJECT = V-PLUGIN>
+<SYNTAX PLUG OBJECT IN OBJECT = V-PLUGIN>
+<SYNTAX PLUG OBJECT INTO OBJECT = V-PLUGIN>
+<SYNONYM PLUG LINK>
+<SYNTAX UNPLUG = V-UNPLUG>
+<SYNTAX UNPLUG FROM OBJECT = V-UNPLUG>
+
+
+<SYNTAX POKE
+	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-MUNG PRE-MUNG>
+<SYNONYM POKE JAB BLIND>
+
+<SYNTAX PUSH OBJECT = V-PUSH>
+<SYNTAX PUSH ON OBJECT = V-PUSH>
+<SYNTAX PUSH OFF OBJECT = V-PUSH>
+<SYNTAX PUSH AGAINST OBJECT = V-PUSH>
+<SYNTAX PUSH OBJECT UNDER OBJECT = V-PUT-UNDER>
+<SYNTAX PUSH OBJECT UP OBJECT = V-PUSH-UP>
+<SYNTAX PUSH OBJECT ONTO OBJECT = V-PUSH-UP>
+<SYNONYM PUSH PRESS>
+
+<SYNTAX PUT OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT ;*>
+<SYNTAX PUT OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT DOWN OBJECT (HELD MANY HAVE) = V-DROP>
+<SYNTAX PUT OBJECT (HELD MANY HAVE) UNDER OBJECT = V-PUT-UNDER> 
+<SYNTAX PUT ON OBJECT (FIND WEARABLEBIT) (HAVE) = V-WEAR>
+<SYNTAX PUT OBJECT (HELD HAVE) AGAINST OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) AT OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) BY OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) OVER OBJECT = V-PUT-AGAINST>
+<SYNONYM PUT POSITION STUFF INSERT PLACE>
+
+<SYNTAX QUERY OBJECT = V-QUERY>
+<SYNTAX QUERY ABOUT OBJECT = V-QUERY>
+<SYNTAX QUERY ON OBJECT = V-QUERY>
+<SYNONYM QUERY ASK WHAT WHATS>
+
+<SYNTAX RAISE OBJECT = V-RAISE ;*>
+<SYNTAX RAISE UP OBJECT = V-RAISE>
+<SYNTAX RAISE OBJECT ONTO OBJECT = V-RAISE>
+<SYNONYM RAISE LIFT>
+
+<SYNTAX RAPE OBJECT (FIND VICBIT) = V-RAPE>
+<SYNONYM RAPE MOLEST>
+
+<SYNTAX REACH IN OBJECT (FIND CONTBIT) = V-REACH>
+<SYNTAX REACH FOR OBJECT = V-REACH-FOR>
+<SYNTAX REACH UP OBJECT = V-REACH>
+<SYNTAX REACH ON OBJECT = V-REACH>
+<SYNTAX REACH ONTO OBJECT = V-REACH>
+
+<SYNTAX READ
+	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-READ ; *>
+<SYNTAX READ
+	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT
+	= V-READ>
+<SYNONYM READ SKIM>
+
+<SYNTAX REPAIR OBJECT = V-REPAIR>
+<SYNONYM REPAIR FIX>
+
+<SYNTAX REPLACE OBJECT WITH OBJECT (HAVE) = V-REPLACE PRE-REPLACE>
+<SYNTAX REPLACE OBJECT (HAVE) FOR OBJECT = V-REPLACE PRE-REPLACE>
+<SYNONYM REPLACE SWAP EXCHANGE TRADE>
+       
+<SYNTAX RUB OBJECT = V-RUB>
+<SYNTAX RUB OBJECT WITH OBJECT = V-RUB>
+<SYNONYM RUB PAT PET>
+
+<SYNTAX SCRIPT = V-SCRIPT>
+<SYNTAX UNSCRIPT = V-UNSCRIPT>
+
+<SYNTAX SHAKE OBJECT (HAVE) = V-SHAKE>
+
+<SYNTAX SLIDE ON OBJECT = V-LAMP-ON>
+<SYNTAX SLIDE OFF OBJECT = V-LAMP-OFF>
+<SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
+
+<SYNTAX SKIP = V-SKIP>
+<SYNONYM SKIP HOP>
+
+<SYNTAX SMELL OBJECT = V-SMELL>
+<SYNONYM SMELL SNIFF>
+
+<SYNTAX STEP ON OBJECT = V-STEP-ON>
+<SYNTAX STEP ONTO OBJECT = V-STEP-ON>
+
+<SYNTAX STRIKE
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-ATTACK>
+<SYNTAX STRIKE
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	= V-ATTACK ;*>
+
+<SYNTAX SWIM = V-SWIM>
+<SYNTAX SWIM IN OBJECT = V-SWIM>
+<SYNONYM SWIM BATHE WADE>
+
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (ON-GROUND MANY)
+	= V-TAKE PRE-TAKE ;*>
+<SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX TAKE OUT OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
+<SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM)
+	OUT
+	OBJECT
+	= V-TAKEOUT>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM)
+	OFF
+	OBJECT
+	= V-TAKE PRE-TAKE>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED)
+	FROM
+	OBJECT
+	= V-TAKEOUT>
+<SYNTAX TAKE OFF OBJECT (HELD CARRIED) = V-TAKE-OFF>
+<SYNTAX TAKE UP OBJECT (FIND RMUNGBIT) = V-STAND>	;"GET UP"
+<SYNTAX TAKE DOWN OBJECT (FIND FURNITURE) = V-GET-OFF>
+<SYNONYM TAKE STEAL GET HOLD CARRY GRASP>
+
+<SYNTAX DETACH OBJECT (FIND WEARBIT) (HELD CARRIED) = V-TAKE-OFF>
+
+<SYNTAX REMOVE OBJECT = V-REMOVE>
+<SYNTAX REMOVE OBJECT FROM OBJECT = V-TAKE PRE-TAKEOUT>
+<SYNTAX REMOVE OBJECT WITH OBJECT = V-REMOVE>
+
+
+<SYNTAX $TELL OBJECT (MANY ON-GROUND) (FIND VICBIT) = V-$TELL>
+
+<SYNTAX SMILE AT OBJECT (FIND VILLAIN) = V-SMILE>
+<SYNTAX SMILE = V-SMILE>
+<SYNONYM SMILE GRIN>
+
+<SYNTAX THROW
+	OBJECT (HELD CARRIED HAVE)
+	AT
+	OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW ;*>
+<SYNTAX THROW
+	OBJECT (HELD CARRIED HAVE)
+	WITH
+	OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW>
+
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) ON OBJECT = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) OVER OBJECT = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) = V-THROW>
+<SYNONYM THROW HURL CHUCK TOSS>
+
+<SYNTAX TOUCH OBJECT (ON-GROUND IN-ROOM MANY) = V-TOUCH>
+<SYNONYM TOUCH FEEL>
+
+<SYNTAX TURN OBJECT (FIND TURNBIT) = V-TURN>
+<SYNTAX TURN ON
+	OBJECT  (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-LAMP-ON>
+<SYNTAX TURN OFF
+	OBJECT (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-LAMP-OFF>
+<SYNTAX TURN
+	OBJECT (ON-GROUND IN-ROOM)
+	TO
+	OBJECT
+	= V-SET>
+<SYNONYM TURN FLIP SHUT>
+
+<SYNTAX ACTIVATE OBJECT = V-LAMP-ON>
+
+<SYNTAX SET OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-SET>
+<SYNTAX SET OBJECT (ON-GROUND IN-ROOM) AT OBJECT = V-SET>
+<SYNTAX SET OBJECT (ON-GROUND IN-ROOM) FOR OBJECT = V-SET> 
+<SYNONYM SET>
+
+<SYNTAX WAIT = V-WAIT>
+
+<SYNTAX WAKE OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ALARM ;*>
+<SYNTAX WAKE UP OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ALARM>
+<SYNONYM WAKE AWAKE SURPRISE STARTLE>
+
+<SYNTAX WALK OBJECT = V-WALK>
+<SYNTAX WALK IN OBJECT = V-THROUGH>
+<SYNTAX WALK WITH OBJECT = V-THROUGH>
+<SYNTAX WALK AROUND OBJECT = V-WALK-AROUND>
+<SYNTAX WALK UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX WALK DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX WALK TO OBJECT = V-WALK-TO>
+<SYNONYM WALK GO RUN PROCEED TRAVEL>
+
+<SYNTAX STOP = V-STOP>
+<SYNTAX STOP OBJECT = V-STOP>
+<SYNONYM STOP HALT>
+
+<SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE>
+<SYNTAX WAVE OBJECT (HELD CARRIED) AT OBJECT = V-WAVE>
+<SYNONYM WAVE BRANDISH>
+
+<SYNTAX WEAR
+	OBJECT (FIND WEARABLEBIT) (HAVE)
+	= V-WEAR>
+<SYNONYM WEAR DON INSTALL>
+
+<SYNTAX YELL = V-YELL>
+<SYNONYM YELL SCREAM SHOUT>
+
+<SYNTAX ZORK = V-ZORK>
+
+<SYNTAX YES = V-YES>
+<SYNTAX YES OBJECT = V-YES>
+<SYNONYM YES Y CONFIRM AFFIRMATIVE>
+
+<SYNTAX NO = V-NO>
+<SYNONYM NO>
+
+;"Simple questions"
+
+;"<SYNTAX WHAT ...> WHAT is a synonym of EXAMINE"
+
+;"<SYNTAX WHERE ...> WHERE is a synonym of FIND"
+
+<SYNTAX IS OBJECT IN OBJECT = V-IS-IN>
+<SYNTAX IS OBJECT ON OBJECT = V-IS-IN>
+
+<SYNTAX ARR = V-ALL-REPORT>
+<SYNTAX ARL = V-ALL-REPORT-LOC>
+
+<SYNTAX REPORT = V-REPORT>
+<SYNTAX REPORT OBJECT = V-REPORT-LOC>
+<SYNTAX REPORT ON OBJECT = V-REPORT-LOC>
+<SYNTAX RL = V-REPORT-LOC>
+<SYNONYM REPORT R>
+
+%<COND (<GASSIGNED? ZILCH> T) (T '<SYNTAX Z = V-ESCAPE>)>
diff --git a/verbs.zil b/verbs.zil
new file mode 100644
index 0000000..138d66a
--- /dev/null
+++ b/verbs.zil
@@ -0,0 +1,2381 @@
+"VERBS for
+			      SUSPENSION
+	(c) Copyright 1982 Infocom, Inc.  All Rights Reserved.
+"
+
+"SUBTITLE DESCRIBE THE UNIVERSE"
+
+"SUBTITLE SETTINGS FOR VARIOUS LEVELS OF DESCRIPTION"
+
+"SUBTITLE DESCRIBERS"
+
+<ROUTINE V-LOOK ("AUX" STR AV)
+	 <COND (<IN-MOTION? ,WINNER>
+		<ROBOT-TELL "Moving through " <>>)
+	       (ELSE
+		<ROBOT-TELL "Internal map reference -- " <>>)>
+	 <COND (<IN? ,WINNER ,CAR>
+		<TELL "Inside the " D ,CAR "." CR>)
+	       (ELSE
+		<TELL SD ,WINNER-HERE CR>)>
+	 <COND (<AND <IRIS?> <NOT ,IRIS-FIXED>>
+		<TELL <PICK-ONE ,IRIS-BLIND> CR> <RTRUE>)>
+	 <COND (<NOT <APPLY <GETP ,WINNER-HERE ,P?ACTION> ,M-LOOK>>
+		<LONG-DESCS>)>
+	 <DESCRIBE-OBJECTS>
+	 <COND (<AND <EQUAL? ,WINNER-HERE ,HALL-END ,CAR-AREA>
+		     <IN? ,CAR ,WINNER-HERE>
+		     <NOT <IN? ,WINNER ,CAR>>>
+		<PERFORM ,V?LOOK-INSIDE ,CAR>)>
+	 <LOOK-CORRIDOR>>
+
+<GLOBAL IRIS-BLIND
+	<PLTABLE
+"I can't see a thing." "I can't see." "Visual function nonfunctional."
+"Everything is dark." "Where's my white cane?" "Get me a seeing-eye robot."
+"Get me a seeing-eye cane. Without my visual function, I'm worthless."
+"I don't mean to complain, but it would be nice if I got repaired."
+"I'm doing the best I can, but without visual circuits, that's next to nothing.">>
+
+<ROUTINE LONG-DESCS ()
+	 <COND (<NOT <EQUAL? <GET <GETP ,WINNER-HERE ,P?ROOMDESCS> ,ROFF> 0>>
+		       <TELL <GET <GETP ,WINNER-HERE ,P?ROOMDESCS> ,ROFF> CR>)
+		      (ELSE
+		       <TELL "I am in the " SD ,WINNER-HERE "." CR>)>>
+
+<ROUTINE LOOK-CORRIDOR ()
+	 <COND (<AND <GETP ,WINNER-HERE ,P?CORRIDOR>
+		     <NOT <EQUAL? ,WINNER ,WHIZ ,WALDO>>>
+		<CORRIDOR-LOOK>)>>
+
+<ROUTINE DESCRIBE-ROBOTS ("AUX" (COUNT -1) (OFFS 0) OBJ LEADER RC)
+	 <COND (<IN? ,WINNER ,CAR>
+		<SET COUNT 0>)>
+	 <REPEAT ()
+		 <COND (<IN? <GET ,NAME-TBL .OFFS> ,WINNER-HERE>
+			<SET COUNT <+ .COUNT 1>>)>
+		 <COND (<G? <SET OFFS <+ .OFFS 1>> 6>
+			<RETURN>)>>
+	 <COND (<EQUAL? .COUNT 0> <RTRUE>)>
+	 <COND (<AND <IRIS?>
+		     <NOT ,IRIS-FIXED>
+		     <RTRUE>>)>
+	 <COND (<IN? ,WINNER ,CAR>
+		<TELL "Standing outside the " D ,CAR " ">)
+	       (ELSE
+		<TELL "In the room with me ">)>
+	 <COND (<EQUAL? .COUNT 1>
+		<COND (<OR <IN? ,PEOPLE <LOC ,WINNER>>
+			   <AND <IN? ,WINNER ,CAR>
+				<IN? ,PEOPLE <LOC ,CAR>>>>
+		       <TELL "are ">)
+		      (ELSE
+		       <TELL "is ">)>)
+	       (T
+		<TELL "are ">)>
+	 <SET OFFS 0>
+	 <REPEAT () 
+		 <COND (<AND <IN? <SET OBJ <GET ,NAME-TBL .OFFS>> ,WINNER-HERE>
+			     <NOT <EQUAL? ,WINNER .OBJ>>>
+			<COND (<EQUAL? .OBJ ,PEOPLE>
+			       <TELL "some ">)>
+			<COND (<FSET? .OBJ ,CUTBIT>
+			       <TELL "non-functional ">)>
+			<TELL D .OBJ>
+			<COND (<IN-MOTION? .OBJ>
+			       <TELL " (in motion)">)>
+			<COND (<EQUAL? <GET ,FOLLOW-TBL ,ROFF> .OBJ>
+			       <TELL " whom I'm following">)>
+			<SET RC 0>
+			<REPEAT ()
+				<SET RC <+ .RC 1>>
+				<COND (<EQUAL? .RC 7>
+				       <RETURN>)
+				      (T
+				       <COND (<EQUAL? <GET ,DRAG-TBL .RC> .OBJ>
+					      <TELL " (being dragged)">
+					      <RETURN>)>)>>
+			<COND (<AND ,PLUGGED-IN
+				    <EQUAL? .OBJ ,WHIZ>>
+			       <TELL " (plugged in)">)>
+			<COND (<EQUAL? .COUNT 1>
+			       <TELL "." CR>
+			       <RETURN>)
+			      (<EQUAL? .COUNT 2>
+			       <TELL " and ">)
+			      (T <TELL ", ">)>
+			<SET COUNT <- .COUNT 1>>)>
+		 <SET OFFS <+ .OFFS 1>>>>
+	       	 
+<ROUTINE DESCRIBE-OBJECTS ("AUX" (OFFS 0) OBJ)
+	 <DESCRIBE-ROBOTS>
+	 <REPEAT ()
+		 <COND (<AND <IN? <SET OBJ <GET ,NAME-TBL .OFFS>> ,WINNER-HERE>
+			     <NOT <EQUAL? .OBJ ,WINNER>>>
+			<PRINT-CONTENTS .OBJ>)>
+		 <COND (<G? <SET OFFS <+ .OFFS 1>> 5>
+			<RETURN>)>>
+	 <COND (<AND <IRIS?>
+		     <NOT ,IRIS-FIXED>
+		     <RTRUE>>)>
+	 <PRINT-CONT ,WINNER-HERE -1>>
+
+<ROUTINE DESCRIBABLE? (OBJ)
+	 <COND (<NOT <EQUAL? <GET <GETP .OBJ ,P?OBJDESCS>
+				  <+ ,ROFF ,FDOFF>> 0>>
+		<RTRUE>)>>
+
+<ROUTINE PRINT-CONTENTS (OBJ "AUX" F N (1ST? T) NUM)
+	 <COND (<SET F <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET N <NEXT? .F>>
+			<COND (<AND <NOT <FSET? .F ,NDESCBIT>>
+				    <DESCRIBABLE? .F>>
+			       <COND (.1ST?
+				      <SET 1ST? <>>
+				      <COND (<SET NUM <GETP .OBJ ,P?ROBOT>>
+					     <COND (<EQUAL? .NUM 7>
+						    <TELL "The " D .OBJ
+							  " are carrying ">)
+						   (T
+						    <TELL D .OBJ
+							  " is carrying ">)>)>)
+				     (T
+				      <TELL ", ">
+				      <COND (<NOT .N> <TELL "and ">)>)>
+			       <TELL "a " D .F>)>
+			<SET F .N>
+			<COND (<NOT .F>
+			       <COND (<AND <NOT .1ST?> <GETP .OBJ ,P?ROBOT>>
+				      <TELL "." CR>)>
+			       <RETURN>)>>)>>
+
+<ROUTINE PRINT-CONT (OBJ "OPTIONAL" (LEVEL 0) "AUX" Y (1ST? T))
+	 <COND (<NOT <SET Y <FIRST? .OBJ>>> <RTRUE>)>
+	 <REPEAT ()
+		 <COND (<AND <NOT <FSET? .Y ,INVISIBLE>>
+			     <NOT <FSET? .Y ,NDESCBIT>>
+			     <NOT <GETP .Y ,P?ROBOT>>
+			     <DESCRIBABLE? .Y>
+			     <AND <NOT <EQUAL? .OBJ ,CAR>>
+				  <NOT <IN? ,WINNER ,CAR>>>>
+			<COND (.1ST?
+			       <FIRSTER .OBJ .LEVEL>
+			       <SET 1ST? <>>)>
+			<DESCRIBE-OBJECT .Y <+ .LEVEL 1>>)>
+		 <COND (<NOT <SET Y <NEXT? .Y>>>
+			<RETURN <NOT .1ST?>>)>>>
+
+<GLOBAL CARRY-TBL
+	<PLTABLE "I am carrying..." "I am grasping..." "Sensors indicate I'm holding..." "My ears can hear the following in my extensions..." "My Zen Master says I am grasping..." "CLC feedback indicates I'm holding...">>
+
+<ROUTINE FIRSTER (OBJ LEVEL "AUX" CNT)
+	 <COND (<==? .OBJ ,WINNER>
+		<ROBOT-TELL <GET ,CARRY-TBL ,ROFF>>)
+	       (<NOT <IN? .OBJ ,ROOMS>>
+		<COND (<FSET? .OBJ ,SURFACEBIT>
+		       <TELL "Sitting ">
+		       <COND (<EQUAL? .OBJ ,GROOVE1 ,GROOVE2>
+			      <TELL "in">)
+			     (T
+			      <TELL "on">)>
+		       <TELL " the " D .OBJ >
+		       <SET CNT <CCOUNT .OBJ>>
+		       <COND (<L? .CNT 2>
+			      <TELL " is... " CR>)
+			     (ELSE
+			      <TELL " are... " CR>)>)
+		      (ELSE
+		       <TELL <GET ,INDENTS .LEVEL>
+			     "The " D .OBJ " contains..." CR>)>)>>
+
+<ROUTINE DESCRIBE-OBJECT (OBJ LEVEL "AUX" (STR <>) (WCOUNT 0))
+	 <COND (<AND <0? .LEVEL>
+		     <APPLY <GETP .OBJ ,P?DESCFCN> ,M-OBJDESC>>
+		<RTRUE>)
+	       (<AND <0? .LEVEL>
+		     <NOT <FSET? .OBJ ,TOUCHBIT>>>		     
+		<TELL <GET <GETP .OBJ ,P?OBJDESCS> <+ ,ROFF ,FDOFF>>>)
+	       (<0? .LEVEL>
+		<TELL "There is a " D .OBJ " here">
+		<COND (<AND <EQUAL? .OBJ ,WEDGE>
+			    ,ON-WEDGE>
+		       <TELL " supporting ">
+		       <COND (<EQUAL? ,ON-WEDGE <GETP ,WINNER ,P?ROBOT>>
+			      <TELL "me">)
+			     (T 
+			      <REPEAT ()
+				      <COND (<G? <SET WCOUNT <+ .WCOUNT 1>> 6>
+					     <RETURN>)
+					    (T
+					     <COND (<EQUAL? ,ON-WEDGE .WCOUNT>
+						    <TELL D 
+					  <GET ,NAME-TBL <- .WCOUNT 1>>>)>)>>)>)>
+		<TELL ".">)
+	       (ELSE
+		<TELL <GET ,INDENTS .LEVEL>>
+		<TELL "A " D .OBJ>
+		<COND (<FSET? .OBJ ,WEARBIT> <TELL " (being worn)">)>)>
+	 <CRLF>
+	 <COND (<AND <SEE-INSIDE? .OBJ> <FIRST? .OBJ>>
+		<PRINT-CONT .OBJ <+ .LEVEL 1>>)>>
+		  
+<ROUTINE PRE-EXAMINE ()
+	 <COND (<IN? ,PRSO ,ROOMS>
+		<COND (<IN? ,WINNER ,PRSO>
+		       <PERFORM ,V?LOOK>
+		       <RTRUE>)
+		      (T
+		       <ROBOT-TELL "I can't see there from here.">
+		       <RTRUE>)>)>>
+
+<ROUTINE V-EXAMINE ("AUX" STR)
+	 <COND (<AND ,PRSI
+		     <NOT <IN? ,PRSO ,PRSI>>>
+		<ROBOT-TELL "Better check the facts, compadre.">
+		<RTRUE>)
+	       (<OR <EQUAL? ,PRSO ,LEFT ,RIGHT ,INTNUM>
+		    <EQUAL? ,PRSO ,LISTENING ,DRAGGING ,LOCATION>>
+		<ROBOT-YUKS>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSO ,MONITOR>
+		     <IRIS?>
+		     ,IRIS-FIXED
+		     <EQUAL? <LOC ,IRIS> 
+			     ,WEATHER-BANKS ,RTD-BANKS ,SERVO-SYSTEMS>>
+		<V-LOOK>
+		<RTRUE>)>
+	 <SET STR <GET <GETP ,PRSO ,P?OBJDESCS> <+ ,RTOFF ,ROFF >>>
+	 <COND (<NOT <EQUAL? .STR 0>>
+		<ROBOT-TELL .STR>
+		<COND (<GETP ,PRSO ,P?ROBOT> <PRINT-CONTENTS ,PRSO>)>
+		<COND (<GETP ,PRSO ,P?DIAL>
+		       <TELL "The " D ,PRSO " is set at " 
+			     N <GET ,DIALSETS <GETP ,PRSO ,P?DIAL>>
+			     "." CR>)>)
+	       (<OR <FSET? ,PRSO ,CONTBIT>
+		    <FSET? ,PRSO ,DOORBIT>>
+		<COND (<NOT <EQUAL? .STR 0>>
+		       <TELL .STR " ">)>
+		<V-LOOK-INSIDE>)	
+	       (ELSE
+		<ROBOT-TELL "I perceive nothing special about the " <>>
+		<TELL D ,PRSO "." CR>)>>
+
+"SUBTITLE SCORING"
+
+<ROUTINE V-SCORE ("OPTIONAL" (ASK? T))
+	 #DECL ((ASK?) <OR ATOM FALSE>)
+	 <TELL "There have been ">
+	 <BIG-NUM-PRINT ,TOTAL-SCORE>
+	 <TELL " casualties (original population: 30,172,000) in ">
+	 <TELL N ,MOVES>
+	 <COND (<1? ,MOVES> <TELL " cycle.">) (ELSE <TELL " cycles.">)>
+	 <CRLF>>
+	 
+<ROUTINE FINISH ()
+	 <V-SCORE>
+	 <QUIT>>
+
+<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)
+	 #DECL ((ASK?) <OR ATOM <PRIMTYPE LIST>> (SCOR) FIX)
+	 <V-SCORE>
+	 <COND (<OR <AND .ASK?
+			 <TELL
+"Do you wish to leave the game? (Y is affirmative): ">
+			 <YES?>>
+		    <NOT .ASK?>>
+		<QUIT>)
+	       (ELSE <TELL "Ok." CR>)>>
+
+<ROUTINE YES? ()
+	 <PRINTI ">">
+	 <READ ,P-INBUF ,P-LEXV>
+	 <COND (<EQUAL? <GET ,P-LEXV 1> ,W?YES ,W?Y>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE V-VERSION ("AUX" (CNT 17))
+	 <TELL
+"SUSPENDED|
+Infocom interactive fiction - a science-fiction story|
+Copyright (c) 1983, 1984 by Infocom, Inc.  All rights reserved.|
+SUSPENDED is a registered trademark of Infocom, Inc.|
+Release ">
+	 <PRINTN <BAND <GET 0 1> *3777*>>
+	 <TELL " / Serial number ">
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> 23>
+			<RETURN>)
+		       (T
+			<PRINTC <GETB 0 .CNT>>)>>
+	 <CRLF>>
+
+;<ROUTINE V-AGAIN ("AUX" OBJ)
+	 <COND (<==? ,L-PRSA ,V?WALK>
+		<DO-WALK ,L-PRSO>)
+	       (T
+		<SET OBJ
+		     <COND (<AND ,L-PRSO <NOT <LOC ,L-PRSO>>>
+			    ,L-PRSO)
+			   (<AND ,L-PRSI <NOT <LOC ,L-PRSI>>>
+			    ,L-PRSI)>>
+		<COND (.OBJ
+		       <ROBOT-TELL "I can't see the " <>>
+		       <TELL D .OBJ " anymore." CR>
+		       <RFATAL>)
+		      (T
+		       <PERFORM ,L-PRSA ,L-PRSO ,L-PRSI>)>)>>
+
+
+
+"SUBTITLE DEATH AND TRANSFIGURATION"
+
+<ROUTINE JIGS-UP (DESC ROBOT)
+ 	 <TELL .DESC CR>
+	 <CRLF>
+	 <TELL "FC: So much for that robot. Too bad." CR>
+	 <PUT ,DEADBOTS <GETP .ROBOT ,P?ROBOT> 30>
+	 <KILL-GOAL .ROBOT T>
+	 <FSET .ROBOT ,CUTBIT>
+	 <DEAD-FCN>
+	 <RFATAL>>
+
+<ROUTINE V-RESTORE ()
+	 <COND (<RESTORE>
+		<TELL "Ok." CR>
+		<V-LOOK>)
+	       (T
+		<TELL "Failed." CR>)>>
+
+<ROUTINE V-SAVE ()
+	 <COND (<SAVE>
+	        <TELL "Ok." CR>)
+	       (T
+		<TELL "Failed." CR>)>>
+
+<ROUTINE V-RESTART ()
+	 <V-SCORE T>
+	 <TELL "Do you wish to restart? (Y is affirmative): ">
+	 <COND (<YES?>
+		<TELL "Restarting." CR>
+		<RESTART>
+		<TELL "Failed." CR>)>>
+
+<CONSTANT REXIT 0>
+<CONSTANT UEXIT 1>
+<CONSTANT NEXIT 2>
+<CONSTANT FEXIT 3>
+<CONSTANT CEXIT 4>
+<CONSTANT DEXIT 5>
+
+<CONSTANT NEXITSTR 0>
+<CONSTANT FEXITFCN 0>
+<CONSTANT CEXITFLAG 1>
+<CONSTANT CEXITSTR 1>
+<CONSTANT DEXITOBJ 1>
+<CONSTANT DEXITSTR 1>
+
+<ROUTINE V-WALK-AROUND ()
+	 <ROBOT-TELL "Give me a direction for movement or a location to move to.">>
+
+<ROUTINE GO-NEXT (TBL "AUX" VAL)
+	 #DECL ((TBL) TABLE (VAL) ANY)
+	 <COND (<SET VAL <LKP ,WINNER-HERE .TBL>>
+		<GOTO .VAL>)>>
+
+<ROUTINE PRE-LAMP-ON ()
+	 <COND (<NOT <OR <EQUAL? ,PRSO ,SWITCH1 ,SWITCH2 ,SWITCH3>
+			 <EQUAL? ,PRSO ,MACHINE>>>
+		<ROBOT-TELL "I can't do that to " <>>
+		<COND (<GETP ,PRSO ,P?ROBOT>
+		       <HIM-HER ,PRSO>)
+		      (T <TELL "the " D ,PRSO>)>
+		<TELL "." CR>
+		<RFATAL>)>>
+
+<ROUTINE V-LAMP-ON ()
+	 <COND (<NOT <OR <EQUAL? ,PRSO ,SWITCH1 ,SWITCH2 ,SWITCH3>
+			 <EQUAL? ,PRSO ,MACHINE>>>
+		<ROBOT-YUKS>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,MACHINE>
+		<PERFORM ,V?PUSH ,ORANGE-BUTTON>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,ONBIT>
+		<ROBOT-TELL "It's already on.">)
+	       (ELSE <ROBOT-TELL "Done.">
+		<FSET ,PRSO ,ONBIT>
+		<COND (<L? ,MOVES 75>
+		       <DO-RTD>)>)>>
+		     
+<ROUTINE V-LAMP-OFF ()
+	 <COND (<NOT <OR <EQUAL? ,PRSO ,SWITCH1 ,SWITCH2 ,SWITCH3>
+			 <EQUAL? ,PRSO ,MACHINE>>>
+		<ROBOT-YUKS>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,MACHINE>
+		<PERFORM ,V?PUSH ,ORANGE-BUTTON>
+		<RTRUE>)
+	       (<NOT <FSET? ,PRSO ,ONBIT>>
+		<ROBOT-TELL "It's not on.">)
+	       (ELSE <ROBOT-TELL "Done.">
+		<FCLEAR ,PRSO ,ONBIT>
+		<COND (<L? ,MOVES 75>
+		       <DO-RTD>)>)>>
+
+
+<ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
+	 #DECL ((ITM) ANY (TBL) TABLE (CNT LEN) FIX)
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> .LEN>
+			<RFALSE>)
+		       (<==? <GET .TBL .CNT> .ITM>
+			<COND (<==? .CNT .LEN> <RFALSE>)
+			      (T
+			       <RETURN <GET .TBL <+ .CNT 1>>>)>)>>>
+
+<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
+	 #DECL ((PT) <OR FALSE TABLE> (PTS) FIX (STR) <OR STRING FALSE>
+		(OBJ) OBJECT (RM) <OR FALSE OBJECT>)
+	 <DO-THE-TV>
+	 <COND (<NOT <EQUAL? <GET ,FOLLOW-TBL ,ROFF> 0>>
+		<ROBOT-TELL "Okay, but I have to stop following.">
+		<PUT ,FOLLOW-TBL ,ROFF 0>)>
+	 <KILL-GOAL ,WINNER>
+	 <COND (<NOT ,P-WALK-DIR>
+		<PERFORM ,V?WALK-TO ,PRSO>
+		<RTRUE>)
+	       (<SET PT <GETPT ,WINNER-HERE ,PRSO>>
+		<COND (<==? <SET PTS <PTSIZE .PT>> ,UEXIT>
+		       <GOTO <GETB .PT ,REXIT>>)
+		      (<==? .PTS ,NEXIT>
+		       <TELL <GET .PT ,NEXITSTR> CR>
+		       <RFATAL>)
+		      (<==? .PTS ,FEXIT>
+		       <COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
+			      <GOTO .RM>)
+			     (T
+			      <RFATAL>)>)
+		      (<==? .PTS ,CEXIT>
+		       <COND (<VALUE <GETB .PT ,CEXITFLAG>>
+			      <GOTO <GETB .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,CEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      <ROBOT-TELL <GET ,CANT-GO ,ROFF>>
+			      <RFATAL>)>)
+		      (<==? .PTS ,DEXIT>
+		       <COND (<FSET? <SET OBJ <GETB .PT ,DEXITOBJ>> ,OPENBIT>
+			      <GOTO <GETB .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,DEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      <TELL "The " D .OBJ " is closed." CR>
+			      <THIS-IS-IT .OBJ>
+			      <RFATAL>)>)>)
+	       (T
+		<ROBOT-TELL <GET ,CANT-GO ,ROFF>>
+		<RFATAL>)>>
+
+<GLOBAL CANT-GO <PLTABLE
+"I don't see how."
+"Sonar can't detect a passage in that direction."
+"Sensors indicate a dead-end that way."
+"Echo patterns describe a wall there."
+"I haven't the means to justify a dead-end."
+"The CLC cannot confirm a passage there.">>
+
+<ROUTINE THIS-IS-IT (OBJ)
+	 <SETG P-IT-OBJECT .OBJ>
+	 <SETG P-IT-LOC ,WINNER-HERE>>
+
+;<ROUTINE V-INVENTORY ()
+	 <COND (<NOT <==? <CCOUNT ,WINNER> 0>>
+		<PRINT-CONT ,WINNER>)
+	       (T <ROBOT-TELL <GET ,INVEN-QUIPS ,ROFF>>)>>
+
+;"The revise INVEN verb below takes into account the fact that AUDA may be
+  GIVEN an object which he cannot normally hear. In doing this, the I command
+  will always now print something."
+
+<ROUTINE V-INVENTORY ("AUX" OBJ STR)
+	 <COND (<AUDA?>
+		<COND (<SET OBJ <FIRST? ,AUDA>>
+		       <SET STR <GET <GETP .OBJ ,P?OBJDESCS><+ ,FDOFF ,ROFF >>>
+		       <COND (<EQUAL? .STR 0>
+			      <ROBOT-TELL <GET ,INVEN-QUIPS ,ROFF>>
+			      <RTRUE>)
+			     (T <PRINT-CONT ,AUDA>)>)
+		      (T <ROBOT-TELL <GET ,INVEN-QUIPS ,ROFF>>)>)
+	       (<NOT <==? <CCOUNT ,WINNER> 0>>
+		<PRINT-CONT ,WINNER>)
+	       (T <ROBOT-TELL <GET ,INVEN-QUIPS ,ROFF>>)>>
+		       
+
+<GLOBAL INVEN-QUIPS
+	<PLTABLE "I am holding nothing in my dainty extensions."
+		"My extensions grasp nothing."
+		"I cannot sense a thing in my grasping extensions."
+		"I can't hear a thing in my extension."
+		"As far as I know, I'm Zen on inventory."
+		"CLC feedback indicates I carry nothing.">>
+
+<ROUTINE V-COUNT ("AUX" TEMP)
+	 <COND (<EQUAL? ,PRSO ,PEOPLE>
+		<ROBOT-TELL "There are two of them. And they're weird things, too.">
+		<RTRUE>)
+	       (<NOT <EQUAL? ,PRSO ,HANDS ,SURGERY-HAND>>
+		<ROBOT-TELL 
+	  "I have my counting abilities, and they only extend to extensions.">
+		<RTRUE>)>
+	 <COND (<AND ,PRSI
+		     <NOT <IN? ,PRSI ,WINNER-HERE>>>
+		<CANT-DETECT ,PRSI>
+		<RTRUE>)
+	       (<AND ,PRSI
+		     <OR <NOT <GETP ,PRSI ,P?ROBOT>>
+			 <EQUAL? <GETP ,PRSI ,P?ROBOT> 7>>>
+		<ROBOT-TELL "There aren't any " <>>
+		<TELL D ,HANDS " in the " D ,PRSI "." CR>)
+	       (<NOT ,PRSI>
+		<ROBOT-TELL "I have " <>>
+		<TELL N ,NUM-EXT>
+		<COND (<EQUAL? ,NUM-EXT 1>
+		       <TELL " extension">)
+		      (T <TELL " extensions">)>
+		<TELL "." CR>)
+	       (,PRSI
+		<TELL "There ">
+		<COND (<EQUAL? ,PRSI ,AUDA>
+		       <TELL "is">)
+		      (T <TELL "are">)>
+		<SET TEMP ,WINNER>
+		<CHANGE-WINNER ,PRSI T>
+		<TELL " " N ,NUM-EXT " extension">
+		<CHANGE-WINNER .TEMP T>
+		<COND (<NOT <EQUAL? ,PRSI ,AUDA>>
+		       <TELL "s">)>
+		<TELL " in " D ,PRSI "." CR>)>>		
+
+<ROUTINE PRE-TAKE ()
+	 <COND (<IN? ,PRSO ,WINNER> <ROBOT-TELL "I already have it.">)
+	       (<AND <IN? ,PRSO ,TOPSHELF>
+		     <NOT <EQUAL? ,ON-WEDGE <GETP ,WINNER ,P?ROBOT>>>>
+		<ROBOT-TELL "It's too high up there and I can't reach it.">
+		<RTRUE>)
+	       (<FSET? ,PRSO ,WEARBIT>
+		<ROBOT-TELL "Not while it's attached.">
+		<RTRUE>)
+	       (<AND <IRIS?>
+		     <NOT ,IRIS-FIXED>>
+		<ROBOT-TELL "I can't take what I can't see.">
+		<RFATAL>)
+	       (<AND <FSET? <LOC ,PRSO> ,CONTBIT>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<ROBOT-TELL "I can't reach that.">
+		<RTRUE>)
+	       (<AND ,PRSI
+		     <FSET? ,PRSI ,VICBIT>
+		     <FSET? ,PRSO ,WEARBIT>>
+		<ROBOT-TELL "Not while " <>>
+		<TELL D ,PRSI " has it attached." CR>
+		<RTRUE>)
+	       (<==? ,PRSO <LOC ,WINNER>> <TELL "I'm in it, loser." CR>)>>
+
+<ROUTINE V-TAKEOUT ()
+	 <COND (<AND ,PRSI
+		     <NOT <IN? ,PRSO ,PRSI>>>
+		<ROBOT-TELL "The " <>>
+		<TELL D ,PRSO " isn't in ">
+		<COND (<NOT <GETP ,PRSI ,P?ROBOT>>
+		       <TELL "the ">)>
+		<TELL D ,PRSI "." CR>
+		<RTRUE>)
+	       (T <PERFORM ,V?TAKE ,PRSO>)>>
+
+<ROUTINE V-TAKE ()
+	 <COND (<==? <ITAKE> T>
+		<ROBOT-TELL "Taken.">
+		<COND (<EQUAL? ,PRSO ,WEDGE>
+		       <SETG WEDGE-PLACED 0>
+		       <SETG ON-WEDGE <>>)>)>>
+
+<GLOBAL FUMBLE-NUMBER 7>
+<GLOBAL FUMBLE-PROB 8>
+
+<ROUTINE TRYTAKE ()
+	 <COND (<IN? ,PRSO ,WINNER> <RTRUE>)
+	       (<AND <FSET? ,PRSO ,TRYTAKEBIT>
+		     <GETP ,PRSO ,P?ACTION>>
+		<PERFORM ,V?TAKE ,PRSO>
+		<IN? ,PRSO ,WINNER>)
+	       (ELSE <ITAKE>)>>
+
+<GLOBAL EXTEN-QUIPS
+	<PLTABLE 
+"I'm not Waldo, you know. I've only got 2 extensions, and they're full."
+"What do you want from me? I can only do 6 things at once!"
+"Please don't use me as a pack mule. I have but 3 extensions to give for my complex."
+"Did I hear you right? Me, with but 1 measly extension, and full at that?"
+"An Army of Arms,|
+A farewell to hands|
+Without even place|
+to strike up the band."
+"The CLC limits my load to 2 objects."
+"What do you want from me? Even with the extra extension, I can only do 7 things at once!">>
+
+<ROUTINE ITAKE ("OPTIONAL" (VB T) "AUX" CNT OBJ WLOC TBL)
+	 #DECL ((VB) <OR ATOM FALSE> (CNT) FIX (OBJ) OBJECT)
+	 <COND (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<COND (.VB
+		       <ROBOT-YUKS>)>
+		<RFALSE>)
+	       (<OR <EQUAL? <CCOUNT ,WINNER> ,NUM-EXT>
+		    <G? <CCOUNT ,WINNER> ,NUM-EXT>>
+		<COND (<AND <WALDO?>
+			    <FSET? ,SURGERY-HAND ,WEARBIT>>
+		       <ROBOT-TELL <GET ,EXTEN-QUIPS 7>>)
+		      (T
+		       <ROBOT-TELL <GET ,EXTEN-QUIPS ,ROFF>>)>
+		<RFALSE>)
+	       (<AND <NOT <IN? <LOC ,PRSO> ,WINNER>>
+		     <G? <+ <WEIGHT ,PRSO> <WEIGHT ,WINNER>> ,LOAD-MAX>>
+		<COND (<AND .VB
+			    <NOT <EQUAL? ,PRSO ,BROKEN-SHELF>>>
+		       <ROBOT-TELL "I have a free extension, but I'm not strong enough to carry that" <>>
+		       <COND (<NOT <EQUAL? <CCOUNT ,WINNER> 0>>
+			      <TELL " and what I'm carrying">)>
+		       <TELL "." CR>)
+		      (.VB
+		       <ROBOT-TELL "It's far too heavy.">)>
+		<RFATAL>)
+	       (<AND <G? <SET CNT <CCOUNT ,WINNER>> ,FUMBLE-NUMBER>
+		     <PROB <* .CNT ,FUMBLE-PROB>>>
+		<SET OBJ <FIRST? ,WINNER>>
+		<SET OBJ <NEXT? .OBJ>>
+		;"This must go!  Chomping compiler strikes again"
+		<ROBOT-TELL
+"Oh, no. The " <>>
+		<TELL D .OBJ " slips from my extenders while taking the "
+D ,PRSO " and both tumble to the ground." CR>
+		<SET WLOC <LOC ,WINNER>>
+		<COND (<FSET? .WLOC ,RMUNGBIT>
+		       <PERFORM ,V?DROP .OBJ>
+		       <MOVE ,PRSO ,WINNER>
+		       <PERFORM ,V?DROP ,PRSO>)
+		      (ELSE
+		       <MOVE .OBJ .WLOC>
+		       <MOVE ,PRSO .WLOC>)>
+		<RFATAL>)
+	       (T
+		<COND (<EQUAL? ,PRSO ,REDSET ,ORANGESET>
+		       <COND (<EQUAL? ,WINNER-HERE ,TUBE1>
+			      <SETG ORANGESET <>>)
+			     (<EQUAL? ,WINNER-HERE ,TUBE2>
+			      <SETG REDSET <>>)>)>
+		<MOVE ,PRSO ,WINNER>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<FSET ,PRSO ,TOUCHBIT>
+		<RTRUE>)>>
+
+<ROUTINE PRE-PUT ()
+	 <COND (<EQUAL? ,PRSI ,GROUND ,WALLS ,COMPLEX>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
+		    <NOT <FSET? ,PRSO ,TAKEBIT>>>
+		<TELL "FC: Nice try." CR>)
+	       (,PRSI
+		<COND (<AND <EQUAL? ,PRSI ,CONVEYERBELTA 
+			       ,CONVEYERBELTB ,CONVEYERBELTC>
+			    <GETP ,PRSO ,P?ROBOT>>
+		       <PERFORM ,V?PUSH-UP ,PRSO ,PRSI>
+		       <RTRUE>)
+		      (<AND <EQUAL? ,PRSO ,WEDGE>
+			    <EQUAL? ,PRSI ,STEP>>
+		       <PERFORM ,V?PUT-AGAINST ,PRSO ,PRSI>
+		       <RTRUE>)>
+		<RFALSE>)
+	       >>
+
+<ROUTINE V-PUT-AGAINST ()
+	 <COND (<EQUAL? ,PRSI ,GROUND ,WALLS ,COMPLEX>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<IN? ,PRSI ,WINNER-HERE>
+		<ROBOT-TELL "Okay.">
+		<MOVE ,WEDGE ,WINNER-HERE>
+		<RTRUE>)
+	       (T
+		<CANT-DETECT ,PRSO>)>>
+
+<ROUTINE V-PUT ()
+	 <COND (<OR <FSET? ,PRSI ,OPENBIT>
+		    <OPENABLE? ,PRSI>
+		    <FSET? ,PRSI ,VEHBIT>>)
+	       (T
+		<ROBOT-TELL "I can't do that.">
+		<RTRUE>)>
+	 <COND (<NOT <FSET? ,PRSI ,OPENBIT>>
+	        <ROBOT-TELL "The " <>>
+		<TELL D ,PRSI " isn't open." CR>)
+	       (<==? ,PRSI ,PRSO>
+		<ROBOT-TELL "How can I do that?">)
+	       (<IN? ,PRSO ,PRSI>
+		<COND (<AND <WALDO?>
+			    <EQUAL? ,PRSO ,SURGERY-HAND>>
+		       <PERFORM ,V?WEAR ,PRSO>
+		       <RTRUE>)
+		      (<GETP ,PRSI ,P?ROBOT>
+		       <ROBOT-YUKS>)
+		      (T
+		       <ROBOT-TELL "The " <>>
+		       <TELL D ,PRSO " is already in the " D ,PRSI "." CR>)>)
+	       (<G? <- <+ <WEIGHT ,PRSI> <WEIGHT ,PRSO>><GETP ,PRSI ,P?SIZE>>
+		    <GETP ,PRSI ,P?CAPACITY>>
+		<ROBOT-TELL "There's no room.">)
+	       (<AND <NOT <HELD? ,PRSO>>
+		     <NOT <TRYTAKE>>>
+		<RTRUE>)
+	       (T
+		<MOVE ,PRSO ,PRSI>
+		<FSET ,PRSO ,TOUCHBIT>
+		<ROBOT-TELL "Done.">
+		<COND (<AND <EQUAL? ,PRSI ,PANEL>
+			    <NOT ,IRIS-FIXED>
+			    <IN? ,NEWCHIP1 ,PANEL>
+			    <IN? ,CHIP2 ,PANEL>
+			    <IN? ,CHIPS0 ,PANEL>>
+		       <TELL CR <GET ,INTER-TBL 1> 
+			     " OOOH! That felt good! Close my panel, big boy."
+			     CR>)
+		      (<EQUAL? ,PRSI ,GROOVE1>
+		       <SETG ORANGESET ,PRSO>)
+		      (<EQUAL? ,PRSI ,GROOVE2>
+		       <SETG REDSET ,PRSO>)>)>>
+
+<ROUTINE PRE-DROP ()
+	 <COND (<==? ,PRSO <LOC ,WINNER>>
+		<PERFORM ,V?DISEMBARK ,PRSO>
+		<RTRUE>)>>
+
+"SZAP => ZAP who WITH what"
+
+<ROUTINE PRE-SZAP ()
+	 <PERFORM ,V?ZAP ,PRSI ,PRSO>
+	 <RTRUE>>
+
+"ZAP => ZAP <weapon> <who>"
+
+<ROUTINE PRE-ZAP ()
+	 <COND (,PRSI <RFALSE>)
+	       (<FSET? ,PRSO ,WEAPONBIT> <RFALSE>)
+	       (ELSE <TELL
+"You have nothing to shoot the " D ,PRSO " with." CR>)>>
+
+<ROUTINE DONT-HAVE (OBJ)
+	 <ROBOT-TELL "I don't have " <>>
+	 <COND (<NOT <GETP .OBJ ,P?ROBOT>>
+		<TELL "the ">)>
+	 <TELL D .OBJ "." CR>>
+
+<ROUTINE V-ZAP ()
+	 <COND (<NOT <IN? ,PRSO ,WINNER>>
+		<DONT-HAVE ,PRSO>)
+	       (<NOT <FSET? ,PRSO ,WEAPONBIT>>
+		<TELL "You can't use a " D ,PRSO " as a ray gun!" CR>)
+	       (<NOT ,PRSI> <TELL "At what?" CR>)
+	       (ELSE <TELL "Nothing happens." CR>)>>
+
+<ROUTINE V-SZAP ()
+	 <TELL "ZAPPP!!" CR>>
+
+<GLOBAL GIVEN-BAG <>>
+
+<ROUTINE PRE-GIVE ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<ROBOT-TELL 
+"That's easy to say since I don't even have it.">)
+	       (<NOT <IN? ,PRSO ,WINNER>>
+		<ROBOT-TELL "One thing at a time. First tell me where it is.">
+		<RTRUE>)
+	       (<EQUAL? ,PRSI ,PEOPLE>
+		<COND (<EQUAL? ,PRSO ,TOOLBAG>
+		       <DISABLE <INT I-CHASEAUDA>>
+		       <SETG RTHIEF <>>
+		       <SETG CHASING-THIEF <>>
+		       <COND (,GIVEN-BAG
+			      <ENOUGH-TRADING>
+			      <RTRUE>)
+			     (ELSE
+			      <PEOPLE-GIVEN-BAG>
+			      <RTRUE>)>)
+		      (ELSE
+		       <ROBOT-TELL 
+			"They don't seem to be interested in that.">
+		       <RTRUE>)>)>>
+
+<ROUTINE PRE-SGIVE ()
+	 <PERFORM ,V?GIVE ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-GIVE ("AUX" OBJ)
+	 <COND (<NOT <FSET? ,PRSI ,VICBIT>>
+		<ROBOT-TELL "I can't give a " <>>
+		<TELL D ,PRSO " to a " D ,PRSI "!" CR>)
+	       (<IDROP> <ROBOT-TELL "Given.">
+		<SET OBJ ,WINNER>
+		<CHANGE-WINNER ,PRSI T>
+		<ITAKE>
+		<CHANGE-WINNER .OBJ T>)>>
+
+<ROUTINE V-SGIVE ()
+	 <TELL "FOOOO!!" CR>>
+
+<ROUTINE V-DROP () <COND (<IDROP>
+			  <COND (<FSET? ,PRSO ,WEARBIT>
+				 <TELL "(removing it first)" CR>
+				 <FCLEAR ,PRSO ,WEARBIT>)>
+			  <ROBOT-TELL "Dropped.">)>>
+
+<ROUTINE V-THROW () <COND (<IDROP> <ROBOT-TELL "Thrown.">)>>
+
+<ROUTINE IDROP ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<ROBOT-TELL "I'm not carrying the " <>>
+		<TELL D ,PRSO "." CR>
+		<RFALSE>)
+	       (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<ROBOT-TELL "The " <>>
+		<TELL D ,PRSO " is closed." CR>
+		<RFALSE>)
+	       (T
+		<COND (<AND <EQUAL? ,PRSO ,SURGERY-HAND>
+			    <FSET? ,PRSO ,WEARBIT>>
+		       <FCLEAR ,PRSO ,WEARBIT>)>
+		<MOVE ,PRSO <LOC ,WINNER>> <RTRUE>)>>
+
+<ROUTINE ALREADY (ON-OFF "OPTIONAL" (OBJ <>))
+	 <COND (.OBJ
+		<ROBOT-TELL "The " <>>
+		<TELL D .OBJ " is ">)
+	       (ELSE
+		<ROBOT-TELL "It's " <>>)>
+	 <TELL "already " .ON-OFF "." CR>>
+
+<ROUTINE V-OPEN ("AUX" F STR)
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<ROBOT-TELL "The " <>>
+		<TELL D ,CAR 
+		      " opens only when a robot attempts to enter it." CR>
+		<RTRUE>)
+	       (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<ROBOT-TELL
+"I'm not sure anyone is clever enough to do that to the " <>>
+		<TELL D ,PRSO "." CR>)
+	       (<GETP ,PRSO ,P?ROBOT>
+		<ROBOT-TELL "What?! " <>>
+		<TELL D ,PRSO " is a robot. That's spelled R-O-B-O-T!" CR>)
+	       (<FSET? ,PRSO ,SURFACEBIT>
+		<ROBOT-TELL "I think you're out of your mind.">)
+	       (<OR <FSET? ,PRSO ,DOORBIT>
+		    <NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>
+		<COND (<FSET? ,PRSO ,OPENBIT> <ALREADY "open">)
+		      (T
+		       <FSET ,PRSO ,OPENBIT>
+		       <COND (<OR <NOT <FIRST? ,PRSO>> <FSET? ,PRSO ,TRANSBIT>>
+			      <ROBOT-TELL "Opened.">)
+			     (T
+			      <ROBOT-TELL "When I open the " <>>
+			      <TELL D ,PRSO " I detect ">
+			      <PRINT-CONTENTS ,PRSO>
+			      <TELL "." CR>)>)>)
+	       (T <TELL D ,PRSO " cannot be opened." CR>)>>
+
+<ROUTINE V-CLOSE ()
+	 <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<ROBOT-TELL "You must tell me how to do that to a " <>>
+		<TELL D ,PRSO "." CR>)
+	       (<FSET? ,PRSO ,SURFACEBIT>
+		<ROBOT-TELL "Not a likely occurrence within reality, no?">)
+	       (<GETP ,PRSO ,P?ROBOT>
+		<ROBOT-TELL "I don't think " <>>
+		<HE-SHE ,PRSO>
+		<TELL " would like that." CR>
+		<RTRUE>)
+	       (<AND <NOT <FSET? ,PRSO ,SURFACEBIT>>
+		     <OR <NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>
+			 <FSET? ,PRSO ,DOORBIT>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <FCLEAR ,PRSO ,OPENBIT>
+		       <ROBOT-TELL "Closed.">)
+		      (T <ALREADY "closed">)>)
+	       (ELSE
+		<ROBOT-TELL "I can't close that.">)>>
+
+<ROUTINE CCOUNT (OBJ "AUX" (CNT 0) X)
+	 <COND (<SET X <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<NOT <FSET? .X ,NDESCBIT>>
+			       <SET CNT <+ .CNT 1>>)>
+			<COND (<NOT <SET X <NEXT? .X>>>
+			       <RETURN>)>>)>
+	 .CNT>
+
+<ROUTINE CABLECOUNT (OBJ "AUX" (CNT 0) X)
+	 <COND (<SET X <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET CNT <+ .CNT 1>>
+			<COND (<NOT <SET X <NEXT? .X>>>
+			       <RETURN>)>>)>
+	 .CNT>
+
+"WEIGHT:  Get sum of SIZEs of supplied object, recursing to the nth level."
+
+<ROUTINE WEIGHT
+	 (OBJ "AUX" CONT (WT 0))
+	 #DECL ((OBJ) OBJECT (CONT) <OR FALSE OBJECT> (WT) FIX)
+	 <COND (<SET CONT <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET WT <+ .WT <WEIGHT .CONT>>>
+			<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
+	 <+ .WT <GETP .OBJ ,P?SIZE>>>
+
+<GLOBAL COPR-NOTICE
+" a transcript of interaction with SUSPENDED.
+SUSPENDED is a registered trademark of Infocom, Inc.
+Copyright (c) 1983 Infocom, Inc.  All rights reserved.">
+
+<ROUTINE V-SCRIPT ()
+	<PUT 0 8 <BOR <GET 0 8> 1>>
+	<TELL "Here begins" ,COPR-NOTICE CR>>
+
+<ROUTINE V-UNSCRIPT ()
+	<TELL "Here ends" ,COPR-NOTICE CR>
+	<PUT 0 8 <BAND <GET 0 8> -2>>
+	<RTRUE>>
+
+<ROUTINE PRE-MOVE ()
+	 <COND (,PRSI
+		<COND (<AND <EQUAL? ,PRSI ,RIGHT ,LEFT ,INTNUM>
+			    <GETP ,PRSO ,P?DIAL>>
+		       <PERFORM ,V?SET ,PRSO ,PRSI>
+		       <RTRUE>)>)
+	       (<AND ,PRSI
+		     <EQUAL? ,PRSI ,CONVEYERBELTA>
+		     <GETP ,PRSO ,P?ROBOT>>
+		<PERFORM ,V?PUSH-UP ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<AND ,PRSI
+		     <EQUAL? ,PRSI ,CONVEYERBELTB ,CONVEYERBELTC>
+		     <GETP ,PRSO ,P?ROBOT>>
+		<ROBOT-TELL "There's no way to do that from here.">)
+	       (,PRSI
+	        <ROBOT-TELL "One step at a time, please.">
+		<RTRUE>)
+	       (<HELD? ,PRSO> <ROBOT-TELL "I don't juggle objects!">
+		<RTRUE>)>>
+			      
+<ROUTINE V-MOVE ()
+	 <COND (<EQUAL? ,PRSO ,BROKEN-SHELF>
+		<ROBOT-TELL "Okay. It's been moved." <>>
+		<COND (<FSET? ,SMASHED-BOX ,INVISIBLE>
+		       <TELL " Moving it has revealed a " D ,SMASHED-BOX ".">
+		       <FCLEAR ,SMASHED-BOX ,INVISIBLE>)>
+		<CRLF>)
+	       (<FSET? ,PRSO ,TAKEBIT>
+		<ROBOT-TELL "Moving the " <>>
+		<TELL D ,PRSO " reveals nothing." CR>)
+	       (<AND <NOT ,PRSI>
+		     <GETP ,PRSO ,P?ROBOT>
+		     <FSET ,PRSO ,CUTBIT>
+		     <NOT <EQUAL? ,WINNER-HERE ,REPAIR1>>>
+		<ROBOT-TELL "If you want " <>>
+		<TELL D ,PRSO
+		      " to be dragged, you should supply a location, too." CR>
+		<RTRUE>)
+	       (<GETP ,PRSO ,P?ROBOT>
+		<PERFORM ,V?PUSH-UP ,PRSO ,PRSI>
+		<RTRUE>)
+	       (T <ROBOT-TELL "I can't move " <>>
+		<COND (<NOT <GETP ,PRSO ,P?ROBOT>>
+		       <TELL "the ">)>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE V-MOVE-ROBOT-TO-LOC ()
+	 <COND (<EQUAL? ,PRSO ,IRIS>
+		<ROBOT-TELL "There's no place for me to get a grip on her.">)
+	       (<EQUAL? ,PRSO ,DEADBOT>
+		<ROBOT-TELL "There's nothing to be gained by doing that. Franklin destroyed this robot beyond all hopes of repairing.">)
+	       (<NOT <GETP ,PRSO ,P?ROBOT>>
+		<PERFORM ,V?MOVE ,PRSO>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,WINNER>
+		<ROBOT-TELL "I suppose you'll have me chasing my tail, next.">)
+	       (<NOT <EQUAL? <GET ,DRAG-TBL ,ROFF> 0>>
+		<ROBOT-TELL "Give me a break, would you? One at a time!">)
+	       (<NOT <IN? ,PRSI ,ROOMS>>
+		<ROBOT-TELL "You'll have to tell me where the " <>>
+		<TELL D ,PRSI " is.">)
+	       (<NOT <GET ,DEADBOTS <GETP ,PRSO ,P?ROBOT>>>
+		<ROBOT-TELL "Let " <>>
+		<TELL D ,PRSO " get there alone." CR>)
+	       (T
+		<PUT ,DRAG-TBL ,ROFF ,PRSO>
+		
+		<PERFORM ,V?WALK-TO ,PRSI>
+		<RFATAL>)>>
+	         
+<ROUTINE V-WAIT ("OPTIONAL" (NUM 3))
+	 #DECL ((NUM) FIX)
+	 <TELL "FC: Time passes..." CR>
+	 <REPEAT ()
+		 <COND (<L? <SET NUM <- .NUM 1>> 0> <RETURN>)
+		       (T 
+		        <COND (<CLOCKER> <RETURN>)>)>>
+	 <SETG CLOCK-WAIT T>>
+
+<ROUTINE PRE-BOARD ("AUX" AV)
+	 <SET AV <LOC ,WINNER>>
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<COND (<FSET? .AV ,VEHBIT>
+		       <ROBOT-TELL "I'm already in it!">)
+		      (T <RFALSE>)>)
+	       (T
+		<ROBOT-TELL "I suppose you have a theory on boarding a " <>>
+		<TELL D ,PRSO "." CR>)>
+	 <RFATAL>>
+
+<ROUTINE V-BOARD ("AUX" AV)
+	 #DECL ((AV) OBJECT)
+	 <COND (<NOT <EQUAL? ,CAR-FULL 0>>
+		<ROBOT-TELL "There's no room in there for me, too.">
+		<RTRUE>)>
+	 <COND (<AND <EQUAL? ,WINNER ,RTHIEF>
+		     <IN? ,TOOLBAG ,WINNER>>
+		<MOVE ,PEOPLE ,WINNER-HERE>
+		<I-CHASEAUDA>
+		<CRLF>)>
+	 <ROBOT-TELL "I am now in the " <>>
+	 <TELL D ,PRSO "." CR>
+	 <MOVE ,WINNER ,PRSO>
+	 <SETG CAR-FULL ,WINNER>
+	 <COND (<NOT <EQUAL? <GET ,FOLLOW-TBL ,ROFF> 0>>
+	        <PUT ,FOLLOW-TBL 0 ,ROFF>)>
+	 <KILL-GOAL ,WINNER T>
+	 <COND (<EQUAL? ,WINNER-HERE ,HALL-END>
+		<SETG WINNER-HERE ,CAR-AREA>)
+	       (<EQUAL? ,WINNER-HERE ,CAR-AREA>
+		<SETG WINNER-HERE ,HALL-END>)>
+	 <MOVE ,CAR ,WINNER-HERE>
+	 <ROBOT-TELL "My gyroscopic stabilizers detect motion.">
+	 <CRLF>
+	 <V-LOOK>
+	 <CRLF>
+	 <ROBOT-TELL "External map reference -- " <>>
+	 <TELL SD ,WINNER-HERE CR>
+	 <RTRUE>
+	 ;<APPLY <GETP ,PRSO ,P?ACTION> ,M-ENTER>
+	 ;<RTRUE>>
+
+<ROUTINE V-THROUGH ("OPTIONAL" (OBJ <>) "AUX" M TBL)
+	#DECL ((OBJ) <OR OBJECT FALSE> (M) <PRIMTYPE VECTOR>)
+	<COND (<AND <NOT .OBJ> <FSET? ,PRSO ,VEHBIT>>
+	       <PERFORM ,V?BOARD ,PRSO>
+	       <RTRUE>)
+	      (<AND <NOT .OBJ> <NOT <FSET? ,PRSO ,TAKEBIT>>>
+	       <ROBOT-YUKS>)
+	      (.OBJ <ROBOT-TELL "I can't do that!">)
+	      (<IN? ,PRSO ,WINNER>
+	       <ROBOT-TELL "That would involve quite a contortion!">)
+	      (ELSE
+	       <ROBOT-YUKS>)>>
+
+<ROUTINE V-DISEMBARK ()
+	 <COND (<NOT <==? <LOC ,WINNER> ,PRSO>>
+		<ROBOT-TELL "I'm not in that!">
+		<RFATAL>)
+	       (T
+		<ROBOT-TELL "I am on my mobile extensions again.">
+		<MOVE ,WINNER ,WINNER-HERE>
+		<SETG CAR-FULL 0>)>>
+
+<ROUTINE GOTO (RM "OPTIONAL" (V? T) "AUX" (WLOC <LOC ,WINNER>) OLIT 
+	       (COUNT 0) L F)
+	 #DECL ((RM WLOC) OBJECT)
+	 <SET OLIT ,LIT>
+	 <MOVE ,WINNER .RM>
+	 <SETG WINNER-HERE .RM>
+	 <REPEAT ()
+		 <COND (<G? <SET COUNT <+ .COUNT 1>> 6>
+			<RETURN>)
+		       (ELSE
+			<COND (<EQUAL? <GET ,FOLLOW-TBL .COUNT> ,WINNER>
+			       <SET F <GET ,NAME-TBL <- .COUNT 1>>>
+			       <COND (<MOVE-RBT? .F <LOC .F> ,WINNER-HERE>
+				      <RETURN>)>)>)>>
+	 <SETG LIT <LIT? ,WINNER-HERE>>
+	 <COND (<==? <APPLY <GETP ,WINNER-HERE ,P?ACTION> ,M-ENTER> 2>
+		<RTRUE>)>
+	 <COND (.V? <V-LOOK>)>
+	 <RTRUE>>
+
+<ROUTINE V-DRINK ()
+	 <V-EAT>>
+
+<ROUTINE V-EAT ()
+	 <ROBOT-TELL <GET ,EAT-QUIPS ,ROFF>>>
+
+<GLOBAL EAT-QUIPS
+	  <PLTABLE
+"Really, now. A robot? Eating?"
+"Get serious, amigo." 
+"With whose orifice? Yours?" 
+"I'll shut my ears and pretend you didn't say that." 
+"Never. I'm a starving artist." 
+"The CLC wouldn't approve.">>
+
+<ROUTINE V-CURSES ()
+	 <COND (,PRSO
+		<COND (<FSET? ,PRSO ,VILLAIN>
+		       <TELL "Insults of this nature won't help you." CR>)
+		      (T
+		       <TELL "What a loony!" CR>)>)
+	       (T
+		<TELL
+"Such language in a high-class establishment like this!" CR>)>>
+
+<ROUTINE PRE-LISTEN ()
+	 <COND (<NOT <AUDA?>>
+		<ROBOT-TELL "I can't hear.">)>>
+
+<ROUTINE V-LISTEN ()
+	 <COND (<AND ,PRSO
+		     <NOT <EQUAL? ,PRSO ,PEOPLE>>>
+		<ROBOT-TELL "I hear nothing special.">)
+	       (,AUDA-LISTENS
+		<ROBOT-TELL "Okay, okay already. I'm listening.">)
+	       (T
+		<ROBOT-TELL "Okay. Auditory circuits activated.">
+		<SETG AUDA-LISTENS T>)>>
+
+<GLOBAL FOLLOW-TBL
+	<LTABLE 0 0 0 0 0 0>>
+
+<ROUTINE V-FOLLOW ()
+	 <COND (<NOT <GETP ,PRSO ,P?ROBOT>>
+		<ROBOT-TELL "I can't follow the " <>>
+		<TELL D ,PRSO "." CR>
+		<RFATAL>)>
+	 <COND (<AND <NOT <IN? ,WINNER <LOC ,PRSO>>>
+		     <NOT <EQUAL? 
+			  <GET ,LAST-ROOM <GETP ,PRSO ,P?ROBOT>> 
+			  ,WINNER-HERE>>>
+		<ROBOT-TELL "Sure. Tell me where " <>>
+		<COND (<EQUAL? <GETP ,PRSO ,P?ROBOT> 7>
+		       <TELL "the " D ,PRSO " are." CR>)
+		      (ELSE
+		       <TELL D ,PRSO " is." CR>)>
+		<RFATAL>)>
+	 <COND (<EQUAL? ,PRSO ,WINNER>
+		<ROBOT-TELL "Be serious. I can't do that.">
+		<RTRUE>)>
+	 <DO-THE-TV>
+	 <ROBOT-TELL "Okay. I'll follow " <>>
+	 <COND (<EQUAL? <GETP ,PRSO ,P?ROBOT> 7>
+		<TELL "the ">)>
+	 <TELL D ,PRSO "." CR>
+	 <PUT ,FOLLOW-TBL ,ROFF ,PRSO>
+	 <KILL-GOAL ,WINNER>>
+
+<ROUTINE V-LEAP ("AUX" TX S)
+	 #DECL ((T) <OR FALSE TABLE>)
+	 <COND (,PRSO
+		<COND (<IN? ,PRSO ,WINNER-HERE>
+		       <COND (<FSET? ,PRSO ,VILLAIN>
+			      <ROBOT-TELL "The " <>>
+			      <TELL D ,PRSO " is too big to jump over." CR>)
+			     (T <V-SKIP>)>)
+		      (T <ROBOT-TELL "That would be a good trick.">)>)
+	       (<SET TX <GETPT ,WINNER-HERE ,P?DOWN>>
+		<SET S <PTSIZE .TX>>
+		<COND (<OR <==? .S 2>					 ;NEXIT
+			   <AND <==? .S 4>				 ;CEXIT
+				<NOT <VALUE <GETB .TX 1>>>>>
+		       <TELL
+"FC: This was not a very safe place to try jumping." CR>
+		       <JIGS-UP "You should have looked before you leaped."
+				,WINNER>)
+		      (T <V-SKIP>)>)
+	       (ELSE <V-SKIP>)>>
+
+<ROUTINE V-SKIP ()
+	 <ROBOT-YUKS>>
+
+<ROUTINE V-LEAVE () <DO-WALK ,P?OUT>>
+
+<GLOBAL HS 0>
+
+<ROUTINE V-HELLO ()
+	 <COND (,PRSO
+		<ROBOT-TELL
+"I think that only schizophrenics say \"Hello\" to a "<>>
+		<TELL D ,PRSO "." CR>)
+	       (ELSE <ROBOT-TELL <PICK-ONE ,HELLOS>>)>>
+
+<GLOBAL HELLOS
+	<PLTABLE "Hello."
+	        "Nice weather we've been having lately."
+		"You talking to me, man?"
+		"Are you trying to accomplish something?"
+		"Hello dere."
+	        "Goodbye.">>
+
+<ROUTINE V-HINT ("AUX" TEMP)
+	 <COND (<G? <GET ,DEADBOTS 6> 29>
+		<TELL "FC: Whiz is no longer operational, and there's nothing I can do to help you without him." CR>
+		<RTRUE>)
+	       (<AND <IN? ,WHIZ ,PERIPH-3>
+		     ,PLUGGED-IN>
+		<TELL "FC: Whiz is plugged in to the Advisory Pedestal and ready to ask about things for you." CR>
+		<RTRUE>)
+	       (<IN? ,WHIZ ,PERIPH-3>
+		<SETG PLUGGED-IN 3> 
+		<TELL "FC: I've taken the liberty of directing Whiz to plug in to the Advisory Pedestal. You may now direct him to ask about things for you." CR>
+		<CHANGE-WINNER ,WHIZ>)
+	       (T
+		<TELL "FC: I'm taking the liberty of directing Whiz to the Advisory Peripheral so you may later have him ask about things." CR>
+		<SET TEMP ,WINNER>
+		<CHANGE-WINNER ,WHIZ T>
+		<CRLF>
+		<PERFORM ,V?WALK-TO ,PERIPH-3>
+		<RTRUE>)>>
+		
+
+<GLOBAL WHEEEEE
+	<PLTABLE "This kind of action can just kill my knee-joints."
+		"I wasn't built for this kind of abuse, you know."
+		"I'd say this was fun, but I'm only a robot. Without a sense of humor.">>
+
+<ROUTINE V-READ ()
+	 <COND (<AND <EQUAL? ,PRSO ,MONITOR>
+		     <IRIS?>
+		     ,IRIS-FIXED
+		     <EQUAL? <LOC ,IRIS> 
+			     ,WEATHER-BANKS ,RTD-BANKS ,SERVO-SYSTEMS>>
+		<V-LOOK>
+		<RTRUE>)
+	       (<OR <EQUAL? ,PRSO ,CIRCLE1 ,CIRCLE2 ,CIRCLE3>
+		    <EQUAL? ,PRSO ,CIRCLE4 ,CIRCLE5 ,CIRCLE6>
+		    <EQUAL? ,PRSO ,CIRCLE7 ,CIRCLE8>>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSO ,SIGNPOST>
+		     <NOT <IRIS?>>>
+		<ROBOT-TELL 
+		 "I'm not equipped with the necessary visual sensors.">
+		<RTRUE>)
+	       (T
+		<ROBOT-TELL "How can I read a " <>>
+		<TELL D ,PRSO "?" CR>)>>
+
+<ROUTINE V-LOOK-UNDER ()
+	 <COND (<AND <EQUAL? ,PRSO ,BROKEN-SHELF>
+		     <FSET? ,SMASHED-BOX ,INVISIBLE>
+		     <NOT <AUDA?>>>
+		<ROBOT-TELL "There is something under there.">)
+	       (T <ROBOT-TELL "There is nothing but dust there.">)>>
+
+<ROUTINE V-LOOK-BEHIND () <V-LOOK-UNDER>>
+
+<ROUTINE V-LOOK-INSIDE ()
+	 <COND (<FSET? ,PRSO ,CONTBIT>
+		<COND (<FSET? ,PRSO ,VICBIT>
+		       <ROBOT-TELL "There is nothing special to be seen.">)
+		      (<SEE-INSIDE? ,PRSO>
+		       <COND (<AND <FIRST? ,PRSO> <PRINT-CONT ,PRSO>>
+			      <RTRUE>)
+			     (<FSET? ,PRSO ,SURFACEBIT>
+			      <ROBOT-TELL "There is nothing on the " <>>
+			      <TELL D ,PRSO "." CR>)
+			     (T
+			      <ROBOT-TELL "The " <>>
+			      <TELL D ,PRSO " is empty." CR>)>)
+		      (ELSE <ROBOT-TELL "The " <>>
+		       <TELL D ,PRSO " is closed." CR>)>)
+	       (ELSE <ROBOT-TELL "I don't know how to look inside a " <>>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE SEE-INSIDE? (OBJ)
+	 <AND <NOT <FSET? .OBJ ,INVISIBLE>>
+	      <OR <FSET? .OBJ ,TRANSBIT> <FSET? .OBJ ,OPENBIT>>>>
+
+<ROUTINE PRE-TURN ()
+	 <COND (<NOT <FSET? ,PRSO ,TURNBIT>> <ROBOT-TELL "I can't turn that!">)
+	       (<NOT <FSET? ,PRSI ,TOOLBIT>>
+		<ROBOT-TELL "I certainly can't turn it with a " <>>
+		<TELL D ,PRSI "." CR>)>>
+
+<ROUTINE V-TURN () <ROBOT-TELL "You must be more specific.">>
+
+<ROUTINE V-PICK () <V-TURN>>
+
+<ROUTINE V-KILL ()
+	 <IKILL "kill">>
+
+<ROUTINE IKILL (STR)
+	 #DECL ((STR) STRING)
+	 <COND (<NOT ,PRSO> <TELL "There is nothing here to " .STR "." CR>)
+	       (<AND <NOT <FSET? ,PRSO ,VILLAIN>>
+		     <NOT <FSET? ,PRSO ,VICBIT>>>
+		<ROBOT-TELL "I've known strange people, but fighting a " <>>
+		<TELL D ,PRSO "?" CR>)
+	       (<OR <NOT ,PRSI> <==? ,PRSI ,HANDS>>
+		<FUTILE .STR>)
+	       (<NOT <FSET? ,PRSI ,WEAPONBIT>>
+		<ROBOT-TELL "Trying to " <>>
+		<TELL .STR>
+		<COND (<NOT <GETP ,PRSO ,P?ROBOT>>
+		       <TELL " the">)>
+		<TELL " " D ,PRSO " with a " D ,PRSI <GET ,HO-HUMS ,ROFF> CR>)
+	       (ELSE <TELL "I can't." CR>)>>
+
+<ROUTINE V-ATTACK () <IKILL "attack">>
+
+<ROUTINE V-KICK () <HACK-HACK "Kicking ">>
+
+<ROUTINE V-WAVE () <HACK-HACK "Waving ">>
+
+<ROUTINE V-RAISE ()
+	 <COND (<AND <GETP ,PRSO ,P?ROBOT>
+		     <IN? ,WINNER ,REPAIR1>>
+		<PERFORM ,V?PUSH-UP ,PRSO ,WEDGE>
+		<RTRUE>)
+	       (T
+		<HACK-HACK "Playing in this way with ">)>>
+
+<ROUTINE V-LOWER () <HACK-HACK "Playing in this way with ">>
+
+<ROUTINE V-RUB () <HACK-HACK "Fiddling with ">>
+
+<ROUTINE V-PUSH () <HACK-HACK "Pushing ">>
+
+<ROUTINE PRE-MUNG ()
+	 <COND (<NOT <FSET? ,PRSO ,VICBIT>>
+		<HACK-HACK "Trying to destroy ">)
+	       (<NOT ,PRSI>
+		<FUTILE "destroy">)>>
+
+<ROUTINE FUTILE (STR)
+	 <ROBOT-TELL "Trying to " <>>
+	 <TELL .STR>
+	 <COND (<NOT <GETP ,PRSO ,P?ROBOT>>
+		<TELL " a">)>
+	 <TELL " " D ,PRSO <GET ,HO-HUMS ,ROFF> CR>>
+
+<ROUTINE V-MUNG ()
+	 <ROBOT-TELL "I can't do that.">>
+
+<ROUTINE HACK-HACK
+	 (STR)
+	 #DECL ((STR) STRING)
+	 <TELL .STR>
+	 <COND (<NOT <GETP ,PRSO ,P?ROBOT>>
+		<TELL "the ">)>
+	 <TELL D ,PRSO <GET ,HO-HUMS ,ROFF> CR>>
+
+<GLOBAL HO-HUMS
+	<PLTABLE " is not what I was designed for."
+		" would hurt my extensions."
+		" offends my sensibilities."
+		" is the worst thing I've ever heard."
+		" goes against my Zen training."
+		" contradicts the CLC directives.">>
+
+<ROUTINE WORD-TYPE
+	 (OBJ WORD "AUX" SYNS)
+	 #DECL ((OBJ) OBJECT (WORD SYNS) TABLE)
+	 <ZMEMQ .WORD
+		<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+		<- </ <PTSIZE .SYNS> 2> 1>>>
+
+<ROUTINE V-KNOCK ()
+	 <ROBOT-TELL "Why knock on a " <>>
+	 <TELL D ,PRSO "?" CR>>
+
+<ROUTINE V-YELL () <ROBOT-TELL <GET ,YELL-QUIPS ,ROFF>>>
+
+<GLOBAL YELL-QUIPS
+	<PLTABLE "Well shut my eyes, I never heard of such a thing!"
+		"With whose external organs, yours? Cut me some slack."
+		"Sensory mechanisms are one-way, dummy."
+		"I'll pretend I didn't hear that insanity."
+		"If only I could, I could release some of this built-up tension."
+		"The CLC is the only one who'd listen if I did.">>
+
+<ROUTINE V-PLUGIN ("AUX" TBL) 
+	 <COND (<NOT <WHIZ?>>
+		<ROBOT-YUKS>)
+	       (,PLUGGED-IN
+		<ROBOT-TELL "I'm already plugged in to the " <>>
+		<TELL <GET ,PLUG-LOCS ,PLUGGED-IN> CR>)
+	       (<AND <NOT <EQUAL? ,PRSO ,PERIPH1-OBJ ,PERIPH2-OBJ
+				  ,PERIPH3-OBJ>>
+		     <NOT <EQUAL? ,PRSO ,PERIPH4-OBJ ,ROOMS>>>
+		<ROBOT-TELL "I can't plug in to the "<>>
+		<TELL D ,PRSO "." CR>)
+	       (<OR <EQUAL? ,WINNER-HERE ,PERIPH-1 ,PERIPH-2>
+		    <EQUAL? ,WINNER-HERE ,PERIPH-3 ,PERIPH-4>>
+		<COND (<EQUAL? ,WINNER-HERE ,PERIPH-1> <SETG PLUGGED-IN 1>)
+		      (<EQUAL? ,WINNER-HERE ,PERIPH-2> <SETG PLUGGED-IN 2>)
+		      (<EQUAL? ,WINNER-HERE ,PERIPH-3> <SETG PLUGGED-IN 3>)
+		      (<EQUAL? ,WINNER-HERE ,PERIPH-4> <SETG PLUGGED-IN 4>)>
+		<ROBOT-TELL "It's great to be home. Plugged in to the " <>>
+		<TELL <GET ,PLUG-LOCS ,PLUGGED-IN>
+		      " Ready to process queries." CR>)
+	       (T
+		<ROBOT-TELL "There's nothing to plug in to here.">)>>
+	 
+<GLOBAL PLUG-LOCS
+	<PLTABLE  "Index Pedestal."
+		 "Technical Pedestal."
+		 "Advisory Pedestal."
+		 "Historical Pedestal.">>
+
+<ROUTINE V-UNPLUG ()
+	 <COND (<NOT <WHIZ?>>
+		<ROBOT-TELL "Who do you think I am, Whiz? Gimme a break!">)
+	       (<NOT ,PLUGGED-IN>
+		<ROBOT-TELL
+"That's not possible. I'm not plugged in.">)
+	       (ELSE
+		<SETG PLUGGED-IN <>>
+		<ROBOT-TELL "Unplugged.">)>>
+
+<ROUTINE V-QUERY ()
+	 <COND (<AND <NOT <WHIZ?>>
+		     <NOT ,PRSO>>
+		<ROBOT-TELL "Get real, joker!">)
+	       (<NOT <WHIZ?>>
+		<TELL "FC: I'm translating that command into a request for a description of the " D ,PRSO "." CR>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)
+	       (<NOT ,PLUGGED-IN>
+		<ROBOT-TELL "I can't until a CLC link is established.">
+		<RFATAL>)
+	       (<NOT ,PRSI>
+		<DO-QUERY>
+		<RTRUE>)
+	       (<OR <EQUAL? ,PRSO ,PERIPH1-OBJ ,PERIPH2-OBJ>
+		    <EQUAL? ,PRSO ,PERIPH3-OBJ ,PERIPH4-OBJ>
+		    <IN? ,WHIZ ,PERIPH-1> <IN? ,WHIZ ,PERIPH-2>
+		    <IN? ,WHIZ ,PERIPH-3> <IN? ,WHIZ ,PERIPH-4>>
+		<SETG PRSO ,PRSI>
+		<DO-QUERY>
+		<RTRUE>)
+	       (ELSE
+		<ROBOT-TELL "I don't know how to query a " <>>
+		<TELL D ,PRSO "." CR>)>>
+
+<GLOBAL PLUGOUTS
+	<PLTABLE "IP: " "TP: " "AP: " "HP: ">>
+
+<ROUTINE DO-QUERY ("AUX" STR OUTSTR (COUNT 0))
+	 <SET STR <GETP ,PRSO ,P?CLC-TXT>>
+	 <SET OUTSTR <GET ,PLUGOUTS ,PLUGGED-IN>>
+	 <COND (<NOT .STR>
+		<COND (<EQUAL? ,PLUGGED-IN 1>
+		       <TELL .OUTSTR "Index search indicates no data stored on that subject." CR>)
+		      (T
+		       <TELL .OUTSTR 
+			     "No data available on that subject from the "
+		       <GET ,PLUG-LOCS ,PLUGGED-IN> CR>)>
+		<RTRUE>) 
+	       (<EQUAL? ,PLUGGED-IN 1>
+		<REPEAT ()
+			<SET COUNT <+ .COUNT 1>>
+			<COND (<EQUAL? .COUNT 4>
+			       <RTRUE>)>
+			<COND (<NOT <EQUAL? <GET .STR .COUNT> 0>>
+			       <TELL .OUTSTR "Data available from the "
+				     <GET ,PLUG-LOCS <+ .COUNT 1>> CR>)>>)
+	       (ELSE
+		<COND (<NOT <EQUAL? <SET STR <GET .STR <- ,PLUGGED-IN 1>>> 0>>
+		       <TELL .OUTSTR .STR CR>)
+		      (T
+		       <TELL .OUTSTR 
+"No data available on that subject at this peripheral." CR>)>)>>
+
+<ROUTINE V-SHAKE ("AUX" X)
+	 <COND (<FSET? ,PRSO ,VILLAIN>
+		<ROBOT-TELL "This seems to have no effect.">)
+	       (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
+		     <FIRST? ,PRSO>>
+		<ROBOT-TELL "It sounds as if there is something inside the " <>>
+		<TELL D ,PRSO "." CR>)
+	       (<AND <FSET? ,PRSO ,OPENBIT> <FIRST? ,PRSO>>
+		<REPEAT ()
+			<COND (<SET X <FIRST? ,PRSO>> <MOVE .X ,WINNER-HERE>)
+			      (ELSE <RETURN>)>>
+		<ROBOT-TELL "All of the objects spill onto the floor.">)
+	       (T <ROBOT-TELL "Why bother?">)>>
+
+<ROUTINE V-DIG () <ROBOT-TELL "What a silly idea!">>
+
+<ROUTINE V-SMELL ()
+	 <ROBOT-TELL "I can't do that.">>
+
+<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" TX)
+	 #DECL ((OBJ1 OBJ2) OBJECT (TX) <OR FALSE TABLE>)
+	 <COND (<SET TX <GETPT .OBJ2 ,P?GLOBAL>>
+		<ZMEMQB .OBJ1 .TX <- <PTSIZE .TX> 1>>)>>
+
+<ROUTINE HERE?? (OBJ)
+	 <OR <IN? .OBJ ,WINNER-HERE> <GLOBAL-IN? .OBJ ,WINNER-HERE>>>
+
+<ROUTINE V-SWIM ()
+	 <ROBOT-TELL "You can't swim here!">>
+
+<ROUTINE V-ALARM ()
+	 <COND (<NOT <EQUAL? ,PRSO ,PEOPLE>>
+		<ROBOT-TELL "Be serious, would you?">
+		<RFATAL>)
+	       (<AND <G? ,SLEEPERS 0>
+		     <IN? ,PEOPLE ,SLEEP-CHAMBER>
+		     <IN? ,WINNER ,SLEEP-CHAMBER>>
+		<ROBOT-TELL "I'm shaking them.">
+		<COND (<AUDA-HEARS?>
+		       <AUDA-SPEAKS>
+		       <TELL CR
+"\"Beat it, you stupid robot! Can't you see we're trying to sleep?!\"" CR>)>
+	        <COND (<ROBOT-THERE? ,WALDO>
+		       <TELL CR
+"WALDO: The " D ,PEOPLE " are motioning violently and then resuming their reclining positions." CR>)
+	              (<ROBOT-THERE? ,SENSA>
+		       <TELL CR
+"SENSA: The air is becoming charged with ionic activity as the " D ,PEOPLE 
+" stir from quiescence. They then return to a quiet state." CR>)
+	              (<ROBOT-THERE? ,POET>
+		       <TELL CR
+"POET: Like loaves of bread sitting on a warm oven, the " D ,PEOPLE 
+							  " rise then fall." CR>)>)
+	       (T
+	        <ROBOT-TELL "They're not asleep.">)>>
+
+<ROUTINE V-ZORK () <TELL "I see no Zork here." CR>>
+
+<ROUTINE V-COMMAND ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL "The " D ,PRSO " pays no attention." CR>)
+	       (ELSE
+		<TELL "You cannot talk to that!" CR>)>>
+
+<ROUTINE V-CLIMB-ON ()
+	 <COND (<AND <FSET? ,PRSO ,FURNITURE>
+		     <FSET? ,PRSO ,VEHBIT>>
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,CLIMBBIT>
+		<PERFORM ,V-CLIMB-ON ,PRSO>)
+	       (<FSET? ,PRSO ,VEHBIT>
+		<V-CLIMB-UP ,P?UP T>)
+	       (T
+		<TELL "I can't climb onto the " D ,PRSO "." CR>)>>
+
+<ROUTINE V-GET-OFF ()
+	 <COND (<NOT <EQUAL? <GETP ,WINNER ,P?ROBOT> ,ON-WEDGE>>
+		<ROBOT-TELL "I can't. I'm not on it.">)
+	       (ELSE
+		<SETG ON-WEDGE <>>
+		<ROBOT-TELL "Okay. I'm off of it now.">)>>
+
+
+<ROUTINE V-CLIMB-FOO () <V-CLIMB-UP ,P?UP T>>
+
+<ROUTINE V-CLIMB-UP ("OPTIONAL" (DIR ,P?UP) (OBJ <>) "AUX" X)
+	 #DECL ((DIR) FIX (OBJ) <OR ATOM FALSE> (X) TABLE)
+	 <COND (<GETPT ,WINNER-HERE .DIR>
+		<DO-WALK .DIR>
+		<RTRUE>)
+	       (<NOT .OBJ>
+		<TELL <GET ,CANT-GO ,ROFF> CR>)
+	       (<EQUAL? ,PRSO ,WEDGE>
+		<PERFORM ,V?CLIMB-ON ,PRSO>
+		<RTRUE>)
+	       (ELSE <TELL "Bizarre!" CR>)>>
+
+<ROUTINE V-CLIMB-DOWN ()
+	 <COND (<AND <FSET? ,PRSO ,FURNITURE>
+		     <FSET? ,PRSO ,VEHBIT>>
+		<V-CLIMB-ON>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,WEDGE>
+		<PERFORM ,V?GET-OFF ,PRSO>
+		<RTRUE>)
+	       (T <V-CLIMB-UP ,P?DOWN>)>>
+
+<ROUTINE V-PUT-UNDER ()
+	 <COND (<EQUAL? ,PRSI ,TOPSHELF ,WHEEL ,CLONESWITCH>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)>
+	 <TELL "I can't do that." CR>>
+
+<ROUTINE V-ENTER ()
+	 <DO-WALK ,P?IN>>
+
+<ROUTINE V-EXIT ()
+	 <DO-WALK ,P?OUT>>
+
+<ROUTINE V-SEARCH ()
+	 <COND (<FSET? ,PRSO ,CONTBIT>
+		<PERFORM ,V?LOOK-INSIDE ,PRSO>
+		<RTRUE>)
+	       (T <ROBOT-TELL "I found nothing unusual.">)>>
+
+<ROUTINE V-FIND ("AUX" (L <LOC ,PRSO>))
+	 <COND (<AND <GETP ,PRSO ,P?ROBOT>
+		     <NOT <IN? ,PRSO ,WINNER-HERE>>>
+		<PERFORM ,V?WALK-TO ,PRSO>
+		<RTRUE>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS>
+		<ROBOT-TELL "You find it.">)
+	       (<IN? ,PRSO ,WINNER>
+		<ROBOT-TELL "I have it.">)
+	       (<OR <IN? ,PRSO ,WINNER-HERE>
+		    <==? ,PRSO ,PSEUDO-OBJECT>>
+		<COND (<GETP ,PRSO ,P?ROBOT>
+		       <TELL D ,PRSO " is">)
+		      (T <TELL "It's">)>
+		<TELL " right here." CR>)
+	       (<FSET? .L ,VILLAIN>
+		<ROBOT-TELL "The " <>>
+		<TELL D .L " have it." CR>)
+	       (<FSET? .L ,CONTBIT>
+		<ROBOT-TELL "It's in the " <>>
+		<TELL D .L "." CR>)
+	       (ELSE
+		<ROBOT-TELL "Beats me.">)>>
+
+
+<GLOBAL TELL-QUIPS
+	<PLTABLE "I can't do that. I only have eyes for you."
+		"I wouldn't be very handy if I did."
+		"Unable to articulate speech patterns."
+		"I hear you but I can't believe you."
+		"Sure. Mairzy dotes & dozey dotes."
+		"My connecting cable won't reach.">>
+
+<GLOBAL OLD-WINNER <>>
+
+<ROUTINE REAL-ROBOT (OBJ)
+	 <COND (<==? .OBJ ,GLOBAL-IRIS>
+		,IRIS)
+	       (<==? .OBJ ,GLOBAL-WALDO>
+		,WALDO)
+	       (<==? .OBJ ,GLOBAL-AUDA>
+		,AUDA)
+	       (<==? .OBJ ,GLOBAL-SENSA>
+		,SENSA)
+	       (<==? .OBJ ,GLOBAL-POET>
+		,POET)
+	       (<==? .OBJ ,GLOBAL-WHIZ>
+		,WHIZ)
+	       (T ,PEOPLE)>>
+
+<GLOBAL ROFF <>>
+
+<ROUTINE V-$TELL ()
+	 <COND (<AND <GETP ,PRSO ,P?ROBOT>
+		     <NOT <EQUAL? ,PRSO ,PEOPLE>>>
+		<COND (<IN? ,PRSO ,GLOBAL-OBJECTS>
+		       <SETG PRSO <REAL-ROBOT ,PRSO>>)>
+		<SETG OLD-WINNER ,WINNER>
+		<CHANGE-WINNER ,PRSO>)
+	       (T
+		<TELL "FC: You can't talk to the " D ,PRSO "!" CR>
+		<SETG QUOTE-FLAG <>>
+		<SETG P-CONT <>>
+		<RFATAL>)>>
+
+<ROUTINE V-ANSWER ()
+	 <TELL "Nobody is awaiting your answer." CR>
+	 <RFATAL>>
+
+<ROUTINE V-REPLY ()
+	 <TELL "It is hardly likely that the " D ,PRSO " is interested." CR>
+	 <RFATAL>>
+
+<ROUTINE V-IS-IN ()
+	 <COND (<IN? ,PRSO ,PRSI>
+		<TELL "Yes, it is ">
+		<COND (<FSET? ,PRSI ,SURFACEBIT>
+		       <TELL "on">)
+		      (T <TELL "in">)>
+		<TELL " the " D ,PRSI "." CR>)
+	       (T <TELL "No, it isn't." CR>)>>
+
+<ROUTINE V-KISS ()
+	 <COND (<IRIS?> <ROBOT-TELL "Without lips, that's quite a trick.">)
+	       (<WALDO?> <ROBOT-TELL "With what, my hands?">)
+	       (<SENSA?> <ROBOT-TELL "I can't do that.">)
+	       (<AUDA?> <ROBOT-TELL "No, I don't think so.">)
+	       (<POET?> <ROBOT-TELL "Loose lips sink slips.">)
+	       (<WHIZ?> <ROBOT-TELL "I'd sooner kiss the CLC.">)>>
+
+<ROUTINE V-RAPE ()
+	 <ROBOT-TELL "What a BIZARRE concept!">>
+
+<ROUTINE FIND-IN (WHERE WHAT "AUX" W)
+	 <SET W <FIRST? .WHERE>>
+	 <COND (<NOT .W> <RFALSE>)>
+	 <REPEAT ()
+		 <COND (<FSET? .W .WHAT> <RETURN .W>)
+		       (<NOT <SET W <NEXT? .W>>> <RETURN <>>)>>>
+
+<ROUTINE V-WEAR ()
+	 <COND (<NOT <FSET? ,PRSO ,WEARABLEBIT>>
+		<ROBOT-TELL "An interesting but highly unlikely thought.">)
+	       (ELSE
+		<ROBOT-TELL "It's now being worn.">
+	        <FSET ,PRSO ,WEARBIT>)>>	 
+
+<ROUTINE V-REMOVE ()
+	 <COND (<FSET? ,PRSO ,WEARBIT> <PERFORM ,V?TAKE-OFF ,PRSO> <RTRUE>)
+	       (ELSE <PERFORM ,V?TAKE ,PRSO> <RTRUE>)>>
+
+<ROUTINE V-TAKE-OFF ()
+	 <COND (<FSET? ,PRSO ,VEHBIT> 
+		<V-DISEMBARK>)
+	       (<FSET? ,PRSO ,WEARBIT>
+		<FCLEAR ,PRSO ,WEARBIT>
+		<ROBOT-TELL "It's been removed.">
+		<RTRUE>)
+	       (T <ROBOT-TELL "I'm not wearing that.">)>>
+
+<ROUTINE V-STEP-ON ()
+	 <COND (<EQUAL? ,PRSO ,WEDGE>
+		<PERFORM ,V?CLIMB-ON ,PRSO>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,CONVEYERBELTA ,CONVEYERBELTB ,CONVEYERBELTC>
+		<ROBOT-TELL "There's no need for that since I'm working fine.">)
+	       (ELSE
+	 <TELL "That's a silly thing to do." CR>)>>
+
+<ROUTINE V-PUT-ON ()
+	 <COND (<AND <EQUAL? ,PRSI ,TOPSHELF>
+		     <NOT <EQUAL? <GETP ,WINNER ,P?ROBOT> ,ON-WEDGE>>>
+		<ROBOT-TELL "I can't reach up that far.">)
+	       (ELSE
+		<PERFORM ,V?PUT ,PRSO ,PRSI>)>>
+
+<ROUTINE ROB (WHO "OPTIONAL" (WHERE <>) (HIDE? <>) "AUX" N X (ROBBED? <>))
+	 <SET X <FIRST? .WHO>>
+	 <REPEAT ()
+		 <COND (<NOT .X> <RETURN .ROBBED?>)>
+		 <SET N <NEXT? .X>>
+		 <COND (<RIPOFF .X .WHERE>
+			<COND (.HIDE? <FSET .X ,NDESCBIT>)>
+			<SET ROBBED? .X>)>
+		 <SET X .N>>>
+
+<ROUTINE RIPOFF (X WHERE)
+	 <COND (<AND <NOT <IN? .X .WHERE>>
+		     <NOT <FSET? .X ,INVISIBLE>>
+		     <FSET? .X ,TOUCHBIT>
+		     <FSET? .X ,TAKEBIT>>
+		<COND (.WHERE <MOVE .X .WHERE>)
+		      (ELSE <REMOVE .X>)>
+		<RTRUE>)>>
+
+<ROUTINE V-STAND ()
+	 <COND (<FSET? <LOC ,WINNER> ,VEHBIT>
+		<PERFORM ,V?DISEMBARK <LOC ,WINNER>>
+		<RTRUE>)
+	       (ELSE
+		<TELL "I'm already standing, I think." CR>)>>
+
+<ROUTINE V-NO ()
+	 <TELL "FC: You sound rather negative." CR>>
+
+<ROUTINE V-YES ()
+	 <TELL "FC: You sound rather positive." CR>>
+
+<ROUTINE V-POINT ("AUX" W)
+	 <COND (<GETP ,PRSO ,P?ROBOT>
+		<ROBOT-TELL "Let " <>>
+		<HIM-HER ,PRSO> <TELL " do it ">
+		<HIM-HER ,PRSO>
+		<COND (<EQUAL? ,PRSO ,PEOPLE>
+		       <TELL "selves." CR>)
+		      (T
+		       <TELL "self." CR>)>)
+	       (<NOT <EQUAL? ,PRSO ,TV>>
+		<ROBOT-TELL "Okay, but it's impolite.">)
+	       (<EQUAL? ,PRSO ,PRSI>
+		<ROBOT-TELL "That would be a neat trick.">)
+	       (<AND <IN? ,PRSI ,GLOBAL-OBJECTS>
+		     <NOT <EQUAL? ,PRSI ,GLOBAL-IRIS 
+				  ,GLOBAL-WALDO ,GLOBAL-SENSA>>
+		     <NOT <EQUAL? ,PRSI ,GLOBAL-AUDA ,GLOBAL-POET
+				  ,GLOBAL-WHIZ>>>
+		<TELL "FC: There's no need to do that." CR>)
+	       (<OR <NOT ,TV-ON>
+		    <NOT ,IRIS-FIXED>
+		    <FSET? ,IRIS ,CUTBIT>>
+		<ROBOT-TELL "Okay.">)
+	       (T
+		<ROBOT-TELL "The " <>>
+		<TELL D ,TV " has been pointed at ">
+		<COND (<NOT <GETP ,PRSI ,P?ROBOT>>
+		       <TELL "the ">)>
+		<TELL D ,PRSI "." CR>
+		<CRLF>
+		<COND (<EQUAL? ,PRSI ,GROOVE1 ,GROOVE2 ,CABLES>
+		       <SET W ,WINNER>
+		       <CHANGE-WINNER ,IRIS T>
+		       <TELL <GET ,INTER-TBL 1>
+" Transmission indicates the cables rest in the grooves in the following order: ">
+		       <COND (<IN? .W ,TUBE2>
+			      <COND (,REDSET
+				     <TELL D ,REDSET>)
+				    (ELSE
+				     <TELL "empty">)>
+			      <TELL "; " D ,YELLOWCABLE  "; "
+				     D ,GREENCABLE "; and " D ,PINKCABLE ". ">)
+			     (T
+			      <TELL  D ,WHITECABLE "; " D ,BLUECABLE "; "
+				    D ,BLACKCABLE "; and ">
+			      <COND (,ORANGESET
+				     <TELL D ,ORANGESET ". ">)
+				    (ELSE
+				     <TELL "empty. ">)>)>
+		       <TELL <GET ,CABLE-TBL ,ROFF> CR>
+		       <CHANGE-WINNER .W T>
+		       <RTRUE>)
+		      (<EQUAL? ,PRSI ,SIGNPOST>
+		       <SET W ,WINNER>
+		       <CHANGE-WINNER ,IRIS T>
+		       <TELL <GET ,INTER-TBL 1>
+" The little sign presents me with the access code the machine in the Main Supply Room needs to reset the Filtering Computers. It says " SD ,CODE1 SD ,CODE2 "." CR>
+		       <CHANGE-WINNER .W T>
+		       <RTRUE>)>
+		<TELL <GET ,INTER-TBL 1> " " <PICK-ONE ,IRIS-TV-QUIPS>>
+		<COND (<NOT <GETP ,PRSI ,P?ROBOT>>
+		       <TELL "a ">)>
+		<SET W ,WINNER>
+		<CHANGE-WINNER ,IRIS T>
+		<TELL D ,PRSI "." CR>
+		<CHANGE-WINNER .W T>)>>
+
+<GLOBAL IRIS-TV-QUIPS
+	<PLTABLE
+"The image is rather fuzzy, but it looks like "
+"I can't make it out too clearly, but it seems like "
+"You call this clear reception? All I can make out is the shape of "
+"The image is broken up, but it looks as if it could be "
+"Now I know why cable-tv was invented. All I can make out is the shape of ">>
+
+<ROUTINE V-SET ("AUX" DIALOFF OLDNUM)
+	 <SET DIALOFF <GETP ,PRSO ,P?DIAL>>
+	 <COND (<NOT .DIALOFF>
+		<ROBOT-TELL "I don't know how to do that to " <>>
+		<COND (<NOT <GETP ,PRSO ,P?ROBOT>>
+		       <TELL "a ">)>
+		<TELL D ,PRSO "." CR> <RTRUE>)>
+	 <COND (<NOT <EQUAL? ,PRSI ,INTNUM ,RIGHT ,LEFT>>
+		<ROBOT-TELL "How am I supposed to accomplish that?"><RTRUE>)>
+	 <SET OLDNUM <GET ,DIALSETS .DIALOFF>>
+	 <COND (<EQUAL? ,PRSI ,RIGHT>
+		<SETG P-NUMBER <+ .OLDNUM 10>>
+		<COND (<G? ,P-NUMBER 100>
+		       <ROBOT-TELL "It can't go " <>>
+		       <COND (<EQUAL? ,PRSO ,LEVER1 ,LEVER2 ,LEVER3>
+			      <TELL "forward">)
+			     (T
+			      <TELL "right">)>
+		       <TELL " any more." CR>)>)
+	       (<EQUAL? ,PRSI ,LEFT>
+		<COND (<EQUAL? .OLDNUM 0>
+		       <ROBOT-TELL "It can't go " <>>
+		       <COND (<EQUAL? ,PRSO ,LEVER1 ,LEVER2 ,LEVER3>
+			      <TELL "back">)
+			     (T
+			      <TELL "left">)>
+		       <TELL " any more." CR> <RTRUE>)
+		      (<L? .OLDNUM 10>
+		       <SETG P-NUMBER 0>)
+		      (ELSE
+		       <SETG P-NUMBER <- .OLDNUM 10>>)>)>
+	 <COND (<G? ,P-NUMBER 100>
+		<ROBOT-TELL "That setting is out of range."> <RTRUE>)>
+	 <COND (<EQUAL? ,P-NUMBER .OLDNUM>
+		<ROBOT-TELL "That's where it was already set."> <RTRUE>)>
+	 <PUT ,DIALSETS .DIALOFF ,P-NUMBER>
+	 <ROBOT-TELL "The " <>>
+	 <TELL D ,PRSO " has been set to " N ,P-NUMBER "." CR>>
+	 
+
+<ROUTINE V-PLAY ()
+	 <TELL "Playing a " D ,PRSO "?" CR>>
+
+<ROUTINE V-$VERIFY ()
+	 <TELL "Verifying game..." CR>
+	 <COND (<VERIFY> <TELL "Game correct." CR>)
+	       (T <TELL CR "** Game File Failure **" CR>)>>
+
+<ROUTINE V-STAND-ON ()
+	 <COND (<EQUAL? ,WEDGE ,PRSO>
+		<PERFORM ,V?CLIMB-ON ,PRSO>
+		<RTRUE>)
+	       (ELSE
+		<ROBOT-TELL "I can't manage that.">)>>
+
+<ROUTINE V-ALL-REPORT ("AUX" TEMP (COUNT -1) ROB)
+	 <SET TEMP ,WINNER>
+         <REPEAT ()
+		 <SET COUNT <+ .COUNT 1>>
+		 <COND (<EQUAL? .COUNT 6>
+			<RETURN>)>
+		 <SET ROB <GET ,NAME-TBL .COUNT>>
+		 <COND (<FSET? .ROB ,CUTBIT>
+			<TELL "FC: " SD .ROB " is no longer functional." CR>
+			<CLOCKER>
+			<COND (<L? .COUNT 5>
+			       <CRLF>)>)
+		       (T
+			<CHANGE-WINNER .ROB T>
+			<CLOCKER>
+			<PERFORM ,V?REPORT>
+			<COND (<L? .COUNT 5>
+			       <CRLF>)>)>>
+	 <CHANGE-WINNER .TEMP T>>
+
+<ROUTINE V-ALL-REPORT-LOC ("AUX" TEMP (COUNT -1) ROB)
+	 <SET TEMP ,WINNER>
+         <REPEAT ()
+		 <SET COUNT <+ .COUNT 1>>
+		 <COND (<EQUAL? .COUNT 6>
+			<RETURN>)>
+		 <SET ROB <GET ,NAME-TBL .COUNT>>
+		 <COND (<FSET? .ROB ,CUTBIT>
+			<TELL "FC: " SD .ROB 
+			      " is no longer in communication." CR>)
+		       (T
+			<CHANGE-WINNER .ROB T>
+			<PERFORM ,V?REPORT-LOC>)>>
+	 <CHANGE-WINNER .TEMP T>>
+	 
+<ROUTINE V-REPORT ()
+	 <TELL "FC: Full report from ">
+	 <TELL <GET ,ROBOT-NAMES ,ROFF> CR>
+	 <V-LOOK>
+	 <V-INVENTORY>
+	 <COND (<AUDA?>
+		<COND (,AUDA-LISTENS
+		       <TELL "Auditory circuits active." CR>)
+		      (T
+		       <TELL "Auditory circuits inactive." CR>)>)>
+	 <COND (<POET?>
+		<PERFORM ,V?TOUCH ,WINNER-HERE>
+		<RTRUE>)>
+	 <COND (<WHIZ?>
+		<COND (,PLUGGED-IN
+		       <TELL "Plugged in at " <GET ,PLUG-LOCS ,PLUGGED-IN> CR>)
+		      (T <TELL "Unable to process queries at this time." CR>)>)>>
+
+		
+<ROUTINE V-REPORT-LOC ()
+	 <COND (<AND ,PRSO
+		     <NOT <EQUAL? ,PRSO ,LOCATION>>>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)
+	       (T
+		<COND (<IN-MOTION? ,WINNER>
+		       <ROBOT-TELL "Entering the " <>>)
+		      (T
+		       <ROBOT-TELL "In the " <>>)>
+		<COND (<IN? ,WINNER ,CAR>
+		       <TELL D ,CAR>)
+		      (T <TELL SD <LOC ,WINNER>>)>
+		<TELL "." CR>)>>
+
+<ROUTINE V-LOOK-SAFELY ()
+	 <COND (<FSET? ,PRSI ,TRANSBIT>
+		<TELL "The " D ,PRSO " looks as before, only tinged by the
+color of the " D ,PRSI "." CR>)
+	       (ELSE <TELL "The " D ,PRSI " isn't transparent." CR>)>>
+
+<ROUTINE V-REACH ()
+	 <COND (<FIRST? ,PRSO>
+		<TELL "There is something">)
+	       (ELSE <TELL "There is nothing">)>
+	 <COND (<FSET? ,PRSO ,SURFACEBIT>
+		<TELL " sitting on the ">)
+	       (ELSE <TELL " inside the ">)>
+	 <TELL D ,PRSO "." CR>>
+
+<ROUTINE V-REACH-FOR ()
+	 <COND (<FSET? ,PRSO ,TAKEBIT>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<IN? ,PRSO ,WINNER-HERE>
+		<TELL "It's here! Now what?" CR>)
+	       (ELSE <TELL "It is out of reach." CR>)>>
+
+<ROUTINE DO-WALK (DIR)
+	 <SETG P-WALK-DIR .DIR>
+	 <PERFORM ,V?WALK .DIR>>
+
+<GLOBAL WALK-INSULTS
+	<PLTABLE "I have enough trouble seeing where I am without being told to go to where I already am."
+		"That's easy. Poof. Sonar indicates that's where I was and still am."
+		"Sensory mechanisms detect that I am where you want me to be already."
+		"From what I hear, I am where you want me to be."
+		"How can you be two places at once when you're not anywhere at all?"
+		"I'm confused. That's where I am.">>
+		
+<GLOBAL ORDER-RCD
+	<PLTABLE "Got it, good looking. I'll let you know when I get there."
+		"I'm on my way. Expect a report on arrival."
+		"Order input acknowledged. Output on arrival."
+		"I hear you loud and clear. Talk to you when I get there."
+		"All life's a stage, so just consider me a player. See you."
+		"CLC setting coordinates. Will report in on arrival.">>
+
+<ROUTINE V-WALK-TO ()
+	 <COND (<EQUAL? ,PRSO ,CAR>
+		<SETG ,PRSO <LOC ,CAR>>)>
+	 <COND (<EQUAL? ,PRSO ,HELL>
+		<TELL "FC: What makes you think you're not already there?" CR>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,WINNER-HERE ,WINNER>
+		<ROBOT-TELL <GET ,WALK-INSULTS ,ROFF>>)
+	       (<IN? ,PRSO ,ROOMS>
+		<COND (<NOT <EQUAL? <GET ,FOLLOW-TBL ,ROFF> 0>>
+		       <PUT ,FOLLOW-TBL ,ROFF 0>)>
+		<KILL-GOAL ,WINNER>
+		<SET-GOAL ,WINNER ,PRSO>
+		<DO-THE-TV>
+		<ROBOT-TELL <GET ,ORDER-RCD ,ROFF>>
+		<CHECK-MORE?>)
+	       (<GETP ,PRSO ,P?ROBOT>
+		<SET-GOAL ,WINNER <LOC ,PRSO>>
+		<DO-THE-TV>
+		<COND (<NOT <FSET? ,PRSO ,CUTBIT>>
+		       <TELL "FC: " D ,PRSO "'s location: ">)
+		      (T
+		       <TELL "FC: " D ,PRSO " is non-functional. Last known location: ">)>
+		<TELL SD <LOC ,PRSO> ". Establishing path..." CR>
+		<ROBOT-TELL <GET ,ORDER-RCD ,ROFF>>
+		<COND (<NOT <EQUAL? <GET ,FOLLOW-TBL ,ROFF> 0>>
+		       <PUT ,FOLLOW-TBL ,ROFF 0>)>
+		<PUT ,ROBOT-FOLLOW ,ROFF ,PRSO>
+		<CHECK-MORE?>)
+	       (<IN? ,PRSO ,WINNER-HERE>
+		<ROBOT-TELL "It's right here.">)
+	       (T
+		<ROBOT-TELL "You'll have to tell me where it is first.">)>>
+
+<ROUTINE CHECK-MORE? ()
+	 <COND (,P-CONT
+		<TELL CR "FC: When " D ,WINNER
+		      " arrives, you'll have to tell ">
+		<HIM-HER ,WINNER>
+		<TELL " what to do then. I have too much to keep track of already." CR>
+		<RFATAL>)>>
+
+<ROUTINE DO-THE-TV ()
+	 <COND (<AND <EQUAL? <LOC ,WINNER> ,TUBE1 ,TUBE2>
+			    <IN? ,TV ,WINNER>
+			    ,TV-ON>
+		       <SETG TV-ON <>>
+		       <TELL "(Unplugging " D ,TV " first.)" CR>)
+	       (<EQUAL? ,ON-WEDGE <GETP ,WINNER ,P?ROBOT>>
+		<TELL "(getting off the " D ,WEDGE " first.)" CR>
+		<SETG ON-WEDGE <>>)>>
+
+<ROUTINE V-STOP ()
+	 <COND (<AND ,PRSO
+		     <NOT <EQUAL? ,PRSO ,LISTENING ,DRAGGING>>>
+		<ROBOT-TELL "I can't do that to " <>>
+		<COND (<EQUAL? ,PRSO ,PEOPLE>
+		       <TELL "the ">)>
+		<TELL D ,PRSO "." CR>
+		<RTRUE>)>
+	 <COND (<AND ,PRSO
+		     <EQUAL? ,PRSO ,LISTENING>
+		     <AUDA?>>
+		<ROBOT-TELL "Okay. Auditory sensors deactivated.">
+		<SETG AUDA-LISTENS <>>
+		<RTRUE>)
+	       (<AND ,PRSO
+		     <EQUAL? ,PRSO ,DRAGGING>
+		     <NOT <EQUAL? <GET ,DRAG-TBL ,ROFF> 0>>>
+		<ROBOT-TELL "Okay. I'll stop dragging " <>>
+		<HIM-HER ,PRSO>
+		<TELL "." CR>
+		<PUT ,DRAG-TBL ,ROFF 0>)
+	       (,PRSO
+		<ROBOT-YUKS>)
+	       (<NOT <IN-MOTION? ,WINNER>>
+		<ROBOT-TELL "I wasn't going anywhere special anyway.">
+		<PUT ,FOLLOW-TBL ,ROFF 0>
+		<RTRUE>)
+	       (T <KILL-GOAL ,WINNER>
+		<ROBOT-TELL "I have stopped at the " <>>
+		<TELL SD ,WINNER-HERE "." CR>
+		<PUT ,FOLLOW-TBL ,ROFF 0>)>>
+
+<ROUTINE V-FLY ()
+	 <ROBOT-TELL "Robots are not usually equipped for flying.">>
+
+<ROUTINE V-SMILE ()
+	 <ROBOT-TELL "If only I could!">>
+
+
+%<COND (<GASSIGNED? ZILCH> T)
+       (T '<ROUTINE V-ESCAPE ()
+		    <QUITTER <ASCII 7> ,INCHAN>>)>
+
+<ROUTINE GRASPING? (OBJ)
+	 <REPEAT ()
+		 <COND (<NOT .OBJ>
+			<RFALSE>)>
+		 <COND (<IN? .OBJ ,WINNER>
+			<RTRUE>)
+		       (ELSE
+			<SET OBJ <LOC .OBJ>>)>>>
+
+<ROUTINE PRE-REPLACE ("AUX" OBJ)
+	 <COND (<EQUAL? ,NUM-EXT <CCOUNT ,WINNER>>
+		<ROBOT-TELL "I can't. My extensions are full.">
+		<RTRUE>)
+	       (<AND <NOT <GRASPING? ,PRSI>>
+		     <NOT <GRASPING? ,PRSO>>>
+		<ROBOT-TELL "I'd better grasp one of them first.">
+		<RFATAL>)
+	       (<EQUAL? ,PRSO ,PRSI>
+		<ROBOT-TELL 
+"You've asked me to replace something with itself.">
+		<RFATAL>)
+	       (<GRASPING? ,PRSO>
+		<SET OBJ ,PRSO>
+		<SETG PRSO ,PRSI>
+		<SETG PRSI .OBJ>
+		<RFALSE>)>>
+
+<ROUTINE V-REPLACE ("AUX" LOC)
+         <COND (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<ROBOT-TELL "You'd better rethink that.">)
+	       (<NOT <EQUAL? <GETP ,PRSI ,P?SIZE> <GETP ,PRSO ,P?SIZE>>>
+		<ROBOT-TELL "That's tough to do since the " <>>
+		<TELL D ,PRSO " and the " D ,PRSI " aren't the same size."CR>
+		<RTRUE>)
+	       (T
+		<SET LOC <LOC ,PRSO>>
+		<FSET ,PRSO ,TOUCHBIT>
+		<MOVE ,PRSO ,WINNER>
+		<MOVE ,PRSI .LOC>
+		<ROBOT-TELL "Okay. It's done.">
+		<COND (<AND <EQUAL? .LOC ,PANEL>
+			    <NOT ,IRIS-FIXED>
+			    <IN? ,NEWCHIP1 ,PANEL>
+			    <IN? ,CHIP2 ,PANEL>
+			    <IN? ,CHIPS0 ,PANEL>>
+		       <TELL CR <GET ,INTER-TBL 1> 
+			     " OOOH! That felt good! Close my panel, big boy."
+			     CR>)
+		      (<EQUAL? .LOC ,GROOVE2>
+		       <SETG REDSET ,PRSI>)
+		      (<EQUAL? .LOC ,GROOVE1>
+		       <SETG ORANGESET ,PRSI>)>)>>
+
+<ROUTINE V-CUT ()
+	 <COND (<NOT ,PRSI>
+		<ROBOT-TELL "With what?">
+		<RTRUE>)
+	       (<NOT <FSET? ,PRSO ,CUTABLEBIT>>
+		<ROBOT-TELL "It won't cut.">
+		<RTRUE>)
+	       (<FSET? ,PRSO ,CUTBIT>
+		<ROBOT-TELL "It's already been cut.">
+		<RTRUE>)
+	       (<AND ,PRSI
+		     <NOT <EQUAL? ,PRSI ,WIRECUTTER>>>
+		<ROBOT-TELL "I don't think " <>>
+		<COND (<NOT <GETP ,PRSI ,P?ROBOT>>
+		       <TELL "the ">)>
+		<TELL D ,PRSI " will work very well for this job." CR>)
+	       (ELSE
+		<FSET ,PRSO ,CUTBIT>
+		<FSET ,PRSO ,TOUCHBIT>
+		<ROBOT-TELL "Done.">)>>
+		
+<ROUTINE V-TOUCH ("AUX" (NUM 0) TBL)
+	 <COND (<POET?>
+		<COND (<IN? ,PRSO ,ROOMS>
+		       <SET NUM 
+			   <GET <SET TBL <GETP ,WINNER-HERE ,P?ROOMDESCS>> 0>>)
+		      (<EQUAL? ,WINNER-HERE <META-LOC ,PRSO>>
+		       <SET NUM <GET <SET TBL <GETP ,PRSO ,P?OBJDESCS>>0>>)>
+		<COND (<G? .NUM 18>
+		       <ROBOT-TELL <GET .TBL 19>>)
+		      (ELSE
+		       <ROBOT-TELL "Sensory pads detect no abnormal flow.">)>)
+	       (<WALDO?>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)
+	       (ELSE
+		<ROBOT-TELL "Not me, man. Better ask someone else.">)>>
+
+<ROUTINE META-LOC (OBJ)
+	 <REPEAT ()
+		 <COND (<IN? .OBJ ,GLOBAL-OBJECTS>
+			<RFALSE>)>
+		 <COND (<IN? .OBJ ,ROOMS>
+			<RETURN .OBJ>)
+		       (ELSE
+			<SET OBJ <LOC .OBJ>>)>>>
+
+<ROUTINE V-PUSH-UP ()
+	 <COND (<NOT <IN? ,PRSO <LOC ,WINNER>>>
+		<CANT-DETECT ,PRSO>
+		<RTRUE>)
+	       (<NOT <GETP ,PRSO ,P?ROBOT>>
+		<PERFORM ,V?PUSH ,PRSO>)
+	       (<EQUAL? ,PRSO ,WINNER>
+		<TELL 
+		 "FC: I think you're following the path of Franklin." CR>
+		<RTRUE>)
+	       (<L? <GET ,DEADBOTS <GETP ,PRSO ,P?ROBOT>> 30>
+		<ROBOT-TELL "I try, but " <>>
+		<HE-SHE ,PRSO>
+		<TELL " keeps moving away." CR>
+		<RTRUE>)
+	       (<AND <IN? ,WINNER ,REPAIR1>
+		     <EQUAL? ,WEDGE-PLACED 1>>
+		<ROBOT-TELL "Umph! Hard work, but consider it done!">
+		<MOVE ,PRSO ,CONVEYERBELTA> <SETG ON-WEDGE ,WINNER>
+		<SETG BELT-ON T>
+		<COND (<EQUAL? <GET <INT I-BELT> ,C-ENABLED?> 0>
+		       <ENABLE <QUEUE I-BELT 2>>)>
+		<FSET ,PRSO ,FIXABLEBIT>)
+	       (T
+		<ROBOT-TELL "I'd like to, but there's no way to get " <>>
+		<HIM-HER ,PRSO>
+		<TELL " up that high from where I am." CR>)>>
+		
+<ROUTINE V-REPAIR ()
+	 <COND (<OR <EQUAL? ,PRSO ,DEADBOT ,REDCABLE ,PINKCABLE>
+		    <EQUAL? ,PRSO ,WHITECABLE ,BLUECABLE ,BLACKCABLE>
+		    <EQUAL? ,PRSO ,ORANGECABLE ,YELLOWCABLE ,GREENCABLE>
+		    <EQUAL? ,PRSO ,MACHINE ,IRIS ,FCS>>
+		<ROBOT-TELL "Things aren't that simple.">)
+	       (T
+		<ROBOT-TELL "It doesn't seem to be in need of repairs.">)>>
+
+;"OLD V-PUSH-UP FOLLOWS. REPLACED ABOVE WITH REWRITTEN VERB."
+  
+;<ROUTINE V-PUSH-UP ()
+	 <COND (<NOT <GETP ,PRSO ,P?ROBOT>>
+		<ROBOT-TELL "Why bother? It hardly seems worthwhile.">)
+	       (<NOT <IN? ,PRSO <LOC ,WINNER>>>
+		<CANT-DETECT ,PRSO>
+		<RFATAL>)
+	       
+	       (<AND <IN? ,WINNER ,REPAIR1>
+		     <EQUAL? ,WEDGE-PLACED 1>
+		     <G? <GET ,DEADBOTS <GETP ,PRSO ,P?ROBOT>> 29>>
+		<ROBOT-TELL "Umph! Hard work, but consider it done!">
+		<MOVE ,PRSO ,CONVEYERBELTA>
+		<SETG ON-WEDGE ,WINNER>
+		<SETG BELT-ON T>
+		<COND (<EQUAL? <GET <INT I-BELT> ,C-ENABLED?> 0>
+		       <ENABLE <QUEUE I-BELT 2>>)>
+		<FSET ,PRSO ,FIXABLEBIT>)
+	       (T
+		<PERFORM ,V?PUSH ,PRSO>)>>
+
+<ROUTINE BIG-NUM-PRINT (NUM "AUX" TEMP)
+	 <COND (<EQUAL? .NUM 0>
+		<TELL "0">
+		<RTRUE>)
+	       (<G? .NUM 999>
+		<SET TEMP </ .NUM 1000>>
+		<SET NUM <MOD .NUM 1000>>
+		<TELL N .TEMP ",">
+		<COND (<EQUAL? .NUM 0>
+		       <TELL "000">)
+		      (<L? .NUM 10>
+		       <TELL "00" N .NUM>)
+		      (<L? .NUM 100>
+		       <TELL "0" N .NUM>)
+		      (T <TELL N .NUM>)>)
+	       (T
+		<TELL N .NUM>)>
+	 <TELL ",000">>
+
+<ROUTINE V-ADVANCED ()
+	 <COND (,ADVANCED-FLAG
+		<TELL
+"FC: You are already in the advanced situation." CR>)
+	       (<G? ,MOVES 1>
+		<TELL <GET ,INTER-TBL 7>
+" Your request for the advanced game has been rejected since " N ,MOVES " cycles have already transpired. Please consult your indoctrination manual for the proper procedure." CR>)
+	       (T
+		<TELL
+"FC: Request for advanced game acknowledged." CR>
+		<QUEUE I-TREMOR1 3>
+		<I-TREMOR2>
+		<CRLF>
+		<DISABLE <INT I-TREMOR2>>
+		<SETG PEOPLE-APPEAR 80>
+		<ENABLE <QUEUE I-PEOPLE1 ,PEOPLE-APPEAR>>
+		<SETG RTD-KILLS 2>
+		<SETG ACID-KILLS 2>
+		<SETG DYING1 1>
+		<SETG DYING2 2>
+		<SETG DYING3 3>
+		<DISABLE <INT I-AUDA-HINTS>>
+		<DISABLE <INT I-IRIS-HINTS>>
+		<PUT ,DEADBOTS 6 30>
+		<FSET ,WHIZ ,CUTBIT>
+		<V-ALL-REPORT-LOC>
+		<SETG ADVANCED-FLAG T>)>>
+		     
+<ROUTINE V-IMPOSSIBLE ()
+	 <COND (<G? ,MOVES 1>
+		<TELL
+"FC: It is impossible to do that now. Please refer to your indoctrination manual for the proper way to initiate the impossible game." CR>
+		<RTRUE>)
+	       (T
+		<ENABLE <QUEUE I-IMP 2>>
+		<TELL "FC: Okay, you asked for it..." CR CR>
+		<TELL 
+"FC INTERRUPT: External sensors detect huge radiation abnormalities in the star which provides Contra with all light and heat.|
+|
+WARNING! TIME CRITICAL!!|
+|
+External sensors detect significant instability in the star." CR>)>>
+	       
+
+<ROUTINE I-IMP ()
+	 <TELL CR
+"FC INTERRUPT: Oh oh. Abnormalities in star approaching critical level.
+	       NOVA IMMINENT!|
+|
+So long from all the gang -- Iris, Waldo, Sensa, Auda, Poet, Whiz, FRED, and last but not least, we three FCs." CR>
+	 <QUIT>>
+
+<ROUTINE V-WHY ()
+	 <COND (<NOT <WHIZ?>>
+		<ROBOT-TELL "Sure beats me. You might ask Whiz...">)
+	       (T
+		<ROBOT-TELL
+	"Please refer to your manual for proper querying procedures.">)>> 
+		     
\ No newline at end of file