From 87a3b787d166a441cab8d89d87f9a3753d40daa8 Mon Sep 17 00:00:00 2001
From: historicalsource <historicalsoftware@textfiles.com>
Date: Sat, 13 Apr 2019 21:47:22 -0400
Subject: [PATCH] Final Revision

---
 1actions.zil   |  489 ++++++-----
 1dungeon.zil   |   71 +-
 gclock.zil     |    8 +-
 gglobals.zil   |   93 +--
 gmacros.zil    |    7 -
 gmain.zil      |  132 +--
 gparser.zil    | 1152 +++++++++++++++-----------
 gsyntax.zil    |   61 +-
 gverbs.zil     |  446 ++++++----
 parser.cmp     | 2111 ++++++++++++++++++++++++++++++++++++++++++++++++
 zork1.chart    |    2 +
 zork1.errors   |   35 +
 zork1.record   |  632 +++++++++++++++
 zork1.serial   |    1 +
 zork1.zil      |   47 +-
 zork1.zip      |  Bin 84876 -> 86838 bytes
 zork1freq.xzap |  200 +++++
 17 files changed, 4419 insertions(+), 1068 deletions(-)
 create mode 100644 parser.cmp
 create mode 100644 zork1.chart
 create mode 100644 zork1.errors
 create mode 100644 zork1.record
 create mode 100644 zork1.serial
 create mode 100644 zork1freq.xzap

diff --git a/1actions.zil b/1actions.zil
index 44f234c..9c0f3fc 100644
--- a/1actions.zil
+++ b/1actions.zil
@@ -64,10 +64,14 @@ to brush them with." CR>)
 <ROUTINE GRANITE-WALL-F ()
 	 <COND (<EQUAL? ,HERE ,NORTH-TEMPLE>
 		<COND (<VERB? FIND>
-		       <TELL "The west wall is solid granite here." CR>)>)
+		       <TELL "The west wall is solid granite here." CR>)
+		      (<VERB? TAKE RAISE LOWER>
+		       <TELL "It's solid granite." CR>)>)
 	       (<EQUAL? ,HERE ,TREASURE-ROOM>
 		<COND (<VERB? FIND>
-		       <TELL "The east wall is solid granite here." CR>)>)
+		       <TELL "The east wall is solid granite here." CR>)
+		      (<VERB? TAKE RAISE LOWER>
+		       <TELL "It's solid granite." CR>)>)
 	       (<EQUAL? ,HERE ,SLIDE-ROOM>
 		<COND (<VERB? FIND READ>
 		       <TELL "It only SAYS \"Granite Wall\"." CR>)
@@ -122,8 +126,20 @@ It is clear that the owners must have been extremely wealthy." CR>)
 	  (<VERB? BURN>
 	   <TELL "You must be joking." CR>)>>
 
+;"0 -> no next, 1 -> success, 2 -> failed move"
+
+<ROUTINE GO-NEXT (TBL "AUX" VAL)
+	 <COND (<SET VAL <LKP ,HERE .TBL>>
+		<COND (<NOT <GOTO .VAL>> 2)
+		      (T 1)>)>>
+
 <ROUTINE FOREST-F ()
 	 <COND (<VERB? WALK-AROUND>
+		<COND (<OR <EQUAL? ,HERE
+			       ,WEST-OF-HOUSE ,NORTH-OF-HOUSE
+			       ,SOUTH-OF-HOUSE>
+			   <EQUAL? ,HERE ,EAST-OF-HOUSE>>
+		       <TELL "You aren't even in the forest." CR>)>
 		<GO-NEXT ,FOREST-AROUND>)
 	       (<VERB? DISEMBARK>
 		<TELL "You will have to specify a direction." CR>)
@@ -140,7 +156,7 @@ It is clear that the owners must have been extremely wealthy." CR>)
 
 <ROUTINE WATER-F ("AUX" AV W PI?)
 	 <COND (<VERB? SGIVE> <RFALSE>)
-	       (<VERB? THROUGH>
+	       (<VERB? THROUGH BOARD>
 		<TELL <PICK-ONE ,SWIMYUKS> CR>
 		<RTRUE>)
 	       (<VERB? FILL>	;"fill bottle with water =>"
@@ -153,8 +169,9 @@ It is clear that the owners must have been extremely wealthy." CR>)
 		    <EQUAL? ,PRSO ,WATER>>
 		<SET W ,PRSO>
 		<SET PI? <>>)
-	       (<SET W ,PRSI>
-		<SET PI? T>)>
+	       (ELSE
+		<SET W ,PRSI>
+		<COND (.W <SET PI? T>)>)>
 	 <COND (<EQUAL? .W ,GLOBAL-WATER>
 		<SET W ,WATER>
 		<COND (<VERB? TAKE PUT> <REMOVE-CAREFULLY .W>)>)>
@@ -192,8 +209,19 @@ It is clear that the owners must have been extremely wealthy." CR>)
 "It's in the bottle. Perhaps you should take that instead." CR>)
 		      (T
 		       <TELL "The water slips through your fingers." CR>)>)
-	       (.PI? <TELL "Nice try." CR>)
+	       (.PI?
+		<COND (<AND <VERB? PUT>
+			    <GLOBAL-IN? ,RIVER ,HERE>>
+		       <PERFORM ,V?PUT ,PRSO ,RIVER>)
+		      (ELSE
+		       <TELL "Nice try." CR>)>
+		<RTRUE>)
 	       (<VERB? DROP GIVE>
+		<COND (<AND <VERB? DROP>
+			    <IN? ,WATER ,BOTTLE>
+			    <NOT <FSET? ,BOTTLE ,OPENBIT>>>
+		       <TELL "The bottle is closed." CR>
+		       <RTRUE>)>
 		<REMOVE-CAREFULLY ,WATER>
 		<COND (.AV
 		       <TELL "There is now a puddle in the bottom of the "
@@ -288,10 +316,11 @@ It is clear that the owners must have been extremely wealthy." CR>)
 
 <ROUTINE FLY-ME ()
 	 <FWEEP 4>
-	 <TELL CR
+	 <TELL
 "The bat grabs you by the scruff of your neck and lifts you away...." CR CR>
 	 <GOTO <PICK-ONE ,BAT-DROPS> <>>
-	 <V-FIRST-LOOK>
+	 <COND (<NOT <EQUAL? ,HERE ,ENTRANCE-TO-HADES>>
+		<V-FIRST-LOOK>)>
 	 T>
 
 <ROUTINE FWEEP (N)
@@ -398,7 +427,7 @@ is completed in \"ZORK III: The Dungeon Master.\"" CR>)
 		      (T
 		       <TELL "
 ZORK: The Great Underground Empire.|" CR>)>
-		<V-QUIT <>>)>>
+		<FINISH>)>>
 
 <ROUTINE BARROW-DOOR-FCN ()
 	 <COND (<VERB? OPEN CLOSE>
@@ -610,8 +639,8 @@ uncomfortable, you stand up again." CR>)
 
 <ROUTINE TROLL-FCN ("OPTIONAL" (MODE <>))
 	 <COND (<VERB? TELL>
-		<TELL "The troll isn't much of a conversationalist." CR>
-		<SETG P-CONT <>>)
+		<SETG P-CONT <>>
+		<TELL "The troll isn't much of a conversationalist." CR>)
 	       (<EQUAL? .MODE ,F-BUSY?>
 		<COND (<IN? ,AXE ,TROLL> <>)
 		      (<AND <IN? ,AXE ,HERE> <PROB 75 90>>
@@ -738,7 +767,7 @@ his guttural tongue." CR>)
 
 "SUBTITLE GRATING/MAZE"
 
-<GLOBAL LEAVES-GONE <>>
+;<GLOBAL LEAVES-GONE <>> ;"no longer used?"
 <GLOBAL GRATE-REVEALED <>>
 <GLOBAL GRUNLOCK <>>
 
@@ -1020,7 +1049,7 @@ drawing you over the railing and down." CR>
 		       <JIGS-UP
 "I'm afraid that the leap you attempted has done you in.">)>)>>
 
-<GLOBAL EGYPT-FLAG <>>
+;<GLOBAL EGYPT-FLAG <>>	;"no longer used?"
 
 \
 
@@ -1177,9 +1206,9 @@ glowing serenely">)>
 				    T)>)
 			    (T <TELL
 "The bolt won't turn with your best effort." CR>)>)
-		     (,PRSI <TELL
-"The bolt won't turn using the " D ,PRSI "." CR>)
-		     (T <TELL "You can't with your bare hands." CR>)>)
+		     (ELSE
+		      <TELL
+"The bolt won't turn using the " D ,PRSI "." CR>)>)
 	      (<VERB? TAKE>
 	       <INTEGRAL-PART>)
 	      (<VERB? OIL>
@@ -1253,7 +1282,7 @@ to the other side." CR>)>
 	 T>
 
 <GLOBAL DROWNINGS
-      <TABLE "up to your ankles."
+      <TABLE (PURE) "up to your ankles."
 	"up to your shin."
 	"up to your knees."
 	"up to your hips."
@@ -1613,7 +1642,7 @@ His enflamed tongue protrudes from his man-sized mouth." CR>)>)
 	       <OR <0? ,CYCLOWRATH> <ENABLE <INT I-CYCLOPS>>>)>>
 
 <GLOBAL CYCLOMAD
-	<TABLE
+	<TABLE (PURE)
 	  "The cyclops seems somewhat agitated."
 	  "The cyclops appears to be getting more agitated."
 	  "The cyclops is moving about the room, looking for something."
@@ -1662,7 +1691,7 @@ stop. With a tremendous effort, you scramble out of the room." CR CR>
 "The rest of your commands have been lost in the noise." CR>
 			      <SETG P-CONT <>>)>
 		       <REPEAT ()
-			       <CRLF>
+			       <COND (<NOT ,SUPER-BRIEF> <CRLF>)>
 			       <TELL ">">
 			       <READ ,P-INBUF ,P-LEXV>
 			       <COND (<0? <GETB ,P-LEXV ,P-LEXWORDS>>
@@ -1691,7 +1720,8 @@ stop. With a tremendous effort, you scramble out of the room." CR CR>
 				      <SETG LOUD-FLAG T>
 				      <FCLEAR ,BAR ,SACREDBIT>
 				      <TELL
-"The acoustics of the room change subtly." CR CR>
+"The acoustics of the room change subtly." CR>
+				      <COND (<NOT ,SUPER-BRIEF> <CRLF>)>
 				      <RETURN>)
 				     ;(,DEAD <CRLF>)
 				     (T
@@ -1743,7 +1773,7 @@ walls here. He does not speak, but it is clear from his aspect that
 the bag will be taken only over his dead body." CR>
 		       <SETG THIEF-HERE T>
 		       <RTRUE>)
-		      (<IN? ,STILETTO ,WINNER>
+		      ;(<IN? ,STILETTO ,WINNER>
 		       <MOVE ,STILETTO ,THIEF>
 		       <FSET ,STILETTO ,NDESCBIT>
 		       <FCLEAR ,THIEF ,INVISIBLE>
@@ -1774,16 +1804,20 @@ Fortunately, he took nothing." CR>
 	        <RTRUE>)
 	       (<PROB 70> <RFALSE>)
 	       (<NOT ,DEAD>
-		<COND (<ROB ,HERE ,THIEF 100> <SET ROBBED? T>)
+		<COND (<ROB ,HERE ,THIEF 100>
+		       <SET ROBBED? ,HERE>)
 		      (<ROB ,WINNER ,THIEF>
-		       <SET ROBBED? T>
-		       <SET WINNER-ROBBED? T>)>
+		       <SET ROBBED? ,PLAYER>)>
 		<SETG THIEF-HERE T>
 	        <COND (<AND .ROBBED? <NOT .HERE?>>
 		       <TELL
 "A seedy-looking individual with a large bag just wandered through
-the room. On the way through, he quietly abstracted some valuables
-from the room and from your possession, mumbling something about
+the room. On the way through, he quietly abstracted some valuables from ">
+		       <COND (<EQUAL? .ROBBED? ,HERE>
+			      <TELL "the room">)
+			     (ELSE
+			      <TELL "your possession">)>
+		       <TELL ", mumbling something about
 \"Doing unto others before...\"" CR>
 		       <STOLE-LIGHT?>)
 		      (.HERE?
@@ -1792,10 +1826,11 @@ from the room and from your possession, mumbling something about
 			      <TELL
 "The thief just left, still carrying his large bag. You may
 not have noticed that he ">
-			      <COND (.WINNER-ROBBED?
+			      <COND (<EQUAL? .ROBBED? ,PLAYER>
 				     <TELL
 "robbed you blind first.">)
-				    (T <TELL
+				    (T
+				     <TELL
 "appropriated the valuables in the room.">)>
 			      <CRLF>
 			      <STOLE-LIGHT?>)
@@ -1813,12 +1848,21 @@ large bag. Finding nothing of value, he left disgruntled." CR>
 	(T
 	 <COND (.HERE?			;"Here, already announced."
 		<COND (<PROB 30>
-		       <COND (<SET ROBBED?
-				   <OR <ROB ,HERE ,THIEF 100>
-				       <ROB ,WINNER ,THIEF>>>
+		       <COND (<ROB ,HERE ,THIEF 100>
+			      <SET ROBBED? ,HERE>)
+			     (<ROB ,WINNER ,THIEF>
+			      <SET ROBBED? ,PLAYER>)>
+		       <COND (.ROBBED?
 			      <TELL
 "The thief just left, still carrying his large bag. You may
-not have noticed that he robbed you blind first." CR>
+not have noticed that he ">
+			      <COND (<EQUAL? .ROBBED? ,PLAYER>
+				     <TELL
+"robbed you blind first.">)
+				    (T
+				     <TELL
+"appropriated the valuables in the room.">)>
+			      <CRLF>
 			      <STOLE-LIGHT?>)
 			     (T
 			      <TELL
@@ -1913,16 +1957,24 @@ your greeting with his usual graciousness." CR>)
 		      (<AND <EQUAL? ,PRSO ,KNIFE>
 			    <VERB? THROW>
 			    <NOT <FSET? ,THIEF ,FIGHTBIT>>>
+		       <MOVE ,PRSO ,HERE>
 		       <COND (<PROB 10 0>
 			      <TELL
 "You evidently frightened the robber, though you didn't hit him. He
 flees">
-			      <COND (<SET X <FIRST? ,THIEF>>
+			      <REMOVE ,LARGE-BAG>
+			      <SET X <>>
+			      <COND (<IN? ,STILETTO ,THIEF>
+				     <REMOVE ,STILETTO>
+				     <SET X T>)>
+			      <COND (<FIRST? ,THIEF>
 				     <MOVE-ALL ,THIEF ,HERE>
 				     <TELL
 ", but the contents of his bag fall on the floor.">)
 				    (T
 				     <TELL ".">)>
+			      <MOVE ,LARGE-BAG ,THIEF>
+			      <COND (.X <MOVE ,STILETTO ,THIEF>)>
 			      <CRLF>
 			      <FSET ,THIEF ,INVISIBLE>)
 			     (T
@@ -1945,7 +1997,11 @@ angered by your attempt." CR>
 			      <TELL
 "Your proposed victim suddenly recovers consciousness." CR>)>
 		       <MOVE ,PRSO ,THIEF>
-		       <COND (<G? <GETP ,PRSO ,P?TVALUE> 0>
+		       <COND ;(<EQUAL? ,PRSO ,STILETTO>
+			      <TELL
+"The thief takes his stiletto and salutes you with a small nod of
+his head." CR>)
+			     (<G? <GETP ,PRSO ,P?TVALUE> 0>
 			      <SETG THIEF-ENGROSSED T>
 			      <TELL
 "The thief is taken aback by your unexpected generosity, but accepts
@@ -2079,20 +2135,18 @@ inside." CR>)>>
 "You can't. It's not a very good chalice, is it?" CR>)
 	       (T <DUMB-CONTAINER>)>>
 
-<ROUTINE TREASURE-ROOM-FCN (RARG "AUX" (FLG <>) TL)
+<ROUTINE TREASURE-ROOM-FCN (RARG "AUX" TL)
 	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
-	      <1? <GET <INT I-THIEF> ,C-ENABLED?>>
-	      <NOT ,DEAD>>
-	 <COND (<SET FLG <NOT <IN? ,THIEF ,HERE>>>
-		<TELL
+		     <1? <GET <INT I-THIEF> ,C-ENABLED?>>
+		     <NOT ,DEAD>>
+		<COND (<NOT <IN? ,THIEF ,HERE>>
+		       <TELL
 "You hear a scream of anguish as you violate the robber's hideaway.
 Using passages unknown to you, he rushes to its defense." CR>
-		<MOVE ,THIEF ,HERE>
+		       <MOVE ,THIEF ,HERE>)>
 		<FSET ,THIEF ,FIGHTBIT>
-		<FCLEAR ,THIEF ,INVISIBLE>)
-	       (T
-		<FSET ,THIEF ,FIGHTBIT>)>
-	 <THIEF-IN-TREASURE>)>>
+		<FCLEAR ,THIEF ,INVISIBLE>
+		<THIEF-IN-TREASURE>)>>
 
 <ROUTINE THIEF-IN-TREASURE ("AUX" F N)
 	 <SET F <FIRST? ,HERE>>
@@ -2102,8 +2156,7 @@ Using passages unknown to you, he rushes to its defense." CR>
 suddenly vanish." CR CR>)>
 	 <REPEAT ()
 		 <COND (<NOT .F> <RETURN>)
-		       (<AND <NOT <EQUAL? .F ,CHALICE>>
-			     <NOT <EQUAL? .F ,THIEF>>>
+		       (<NOT <EQUAL? .F ,CHALICE ,THIEF>>
 			<FSET .F ,INVISIBLE>)>
 		 <SET F <NEXT? .F>>>>
 
@@ -2165,7 +2218,8 @@ artist's masterpieces, you have destroyed one." CR>)>>
 "SUBTITLE LET THERE BE LIGHT SOURCES"
 
 <GLOBAL LAMP-TABLE
-	<TABLE 100
+	<TABLE (PURE)
+	       100
 	       "The lamp appears a bit dimmer."
 	       70
 	       "The lamp is definitely dimmer now."
@@ -2333,6 +2387,7 @@ burn." CR>)
 		       <COND (<FSET? ,CANDLES ,ONBIT>
 			      <TELL "The flame is extinguished.">
 			      <FCLEAR ,CANDLES ,ONBIT>
+			      <FSET ,CANDLES ,TOUCHBIT>
 			      <SETG LIT <LIT? ,HERE>>
 			      <COND (<NOT ,LIT>
 				     <TELL " It's really dark in here....">)>
@@ -2349,7 +2404,8 @@ burn." CR>)
 		       <CRLF>)>)>>
 
 <GLOBAL CANDLE-TABLE
-	<TABLE 20
+	<TABLE (PURE)
+	       20
 	       "The candles grow shorter."
 	       10
 	       "The candles are becoming quite short."
@@ -2426,6 +2482,7 @@ is obviously deranged and holding his nose." CR>)
 	       (<AND <EQUAL? .RARG ,M-ENTER> <NOT ,DEAD>>
 		<COND (<NOT <EQUAL? <LOC ,GARLIC> ,WINNER ,HERE>>
 		       <V-LOOK>
+		       <CRLF>
 		       <FLY-ME>)>)>>
 
 <ROUTINE MACHINE-ROOM-FCN (RARG)
@@ -2443,7 +2500,7 @@ lid, which is ">
 		<CRLF>)>>
 
 <ROUTINE MACHINE-F ()
-	 <COND (<VERB? TAKE>
+	 <COND (<AND <VERB? TAKE> <EQUAL? ,PRSO ,MACHINE>>
 		<TELL "It is far too large to carry." CR>)
 	       (<VERB? OPEN>
 	        <COND (<FSET? ,MACHINE ,OPENBIT>
@@ -2489,10 +2546,7 @@ excitement abates." CR>
 					     <COND (<SET O <FIRST? ,MACHINE>>
 						    <REMOVE-CAREFULLY .O>)
 						   (T <RETURN>)>>
-				     <MOVE ,GUNK ,MACHINE>)
-				    (T)>)>)
-		      (<NOT ,PRSI>
-		       <TELL "You can't turn it with your hands..." CR>)
+				     <MOVE ,GUNK ,MACHINE>)>)>)
 		      (T
 		       <TELL "It seems that a " D ,PRSI " won't do." CR>)>)>>
 
@@ -2553,12 +2607,13 @@ walkable (I think the giveaway was the stairs and bannister)." CR>
 			      <ROB ,ON-RAINBOW ,WALL>
 			      <TELL
 "The rainbow seems to have become somewhat run-of-the-mill." CR>
-			      <SETG RAINBOW-FLAG <>>)>)
+			      <SETG RAINBOW-FLAG <>>
+			      <RTRUE>)>)
 		      (<EQUAL? ,HERE ,ON-RAINBOW>
 		       <SETG RAINBOW-FLAG <>>
 		       <JIGS-UP
 "The structural integrity of the rainbow is severely compromised,
-leaving you hanging in mid-air, supported only by water vapor. Bye.">)
+leaving you hanging in midair, supported only by water vapor. Bye.">)
 		      (T
 		       <TELL
 "A dazzling display of color briefly emanates from the sceptre." CR>)>)>>
@@ -2635,13 +2690,13 @@ with swift currents and large, half-hidden rocks. You decide to forgo your
 swim." CR>)>>
 
 <GLOBAL RIVER-SPEEDS
-	<LTABLE RIVER-1 4 RIVER-2 4 RIVER-3 3 RIVER-4 2 RIVER-5 1>>
+	<LTABLE (PURE) RIVER-1 4 RIVER-2 4 RIVER-3 3 RIVER-4 2 RIVER-5 1>>
 
 <GLOBAL RIVER-NEXT
-	<LTABLE RIVER-1 RIVER-2 RIVER-3 RIVER-4 RIVER-5>>
+	<LTABLE (PURE) RIVER-1 RIVER-2 RIVER-3 RIVER-4 RIVER-5>>
 
 <GLOBAL RIVER-LAUNCH
-	<LTABLE DAM-BASE RIVER-1
+	<LTABLE (PURE) DAM-BASE RIVER-1
 		WHITE-CLIFFS-NORTH RIVER-3
 		WHITE-CLIFFS-SOUTH RIVER-4
 		SHORE RIVER-5
@@ -2814,7 +2869,7 @@ The boat deflates to the sounds of hissing, sputtering, and cursing." CR>
 		       <TELL <GET ,BDIGS ,BEACH-DIG> CR>)>)>>
 
 <GLOBAL BDIGS
-	<TABLE "You seem to be digging a hole here."
+	<TABLE (PURE) "You seem to be digging a hole here."
 	       "The hole is getting deeper, but that's about it."
 	       "You are surrounded by a wall of sand on all sides.">>
 
@@ -2833,7 +2888,7 @@ branches. The nearest branch above you is above your reach." CR>
 		       <PRINT-CONTENTS ,PATH>
 		       <TELL "." CR>)>)
 	       (<EQUAL? .RARG ,M-BEG>
-		<COND (<AND <VERB? CLIMB-DOWN> <EQUAL? ,PRSO ,TREE>>
+		<COND (<AND <VERB? CLIMB-DOWN> <EQUAL? ,PRSO ,TREE ,ROOMS>>
 		       <DO-WALK ,P?DOWN>)
 		      (<AND <VERB? CLIMB-UP CLIMB-FOO>
 			    <EQUAL? ,PRSO ,TREE>>
@@ -2992,7 +3047,7 @@ down, the songbird flies away." CR>
 					 <NOT <IN? .RLOC ,ROOMS>>>
 				     <MOVE ,ROPE ,HERE>)>
 			      T)>)>)
-	       (<AND <VERB? CLIMB-DOWN> <EQUAL? ,PRSO ,ROPE> ,DOME-FLAG>
+	       (<AND <VERB? CLIMB-DOWN> <EQUAL? ,PRSO ,ROPE ,ROOMS> ,DOME-FLAG>
 		<DO-WALK ,P?DOWN>)
 	       (<AND <VERB? TIE-UP>
 		     <EQUAL? ,ROPE ,PRSI>>
@@ -3061,7 +3116,7 @@ down, the songbird flies away." CR>
 			    <EQUAL? ,PRSO ,P?WEST>>
 		       <TELL "You cannot enter in your condition." CR>)>)
 	       (<VERB? BRIEF VERBOSE SUPER-BRIEF
-		       VERSION AGAIN SAVE RESTORE QUIT RESTART>
+		       VERSION ;AGAIN SAVE RESTORE QUIT RESTART>
 		<>)
 	       (<VERB? ATTACK MUNG ALARM SWING>
 		<TELL "All such attacks are vain in your condition." CR>)
@@ -3076,7 +3131,7 @@ down, the songbird flies away." CR>
 		<TELL "You need no light to guide you." CR>)
 	       (<VERB? SCORE>
 		<TELL "You're dead! How can you think of your score?" CR>)
-	       (<VERB? TAKE>
+	       (<VERB? TAKE RUB>
 		<TELL "Your hand passes through its object." CR>)
 	       (<VERB? DROP THROW INVENTORY>
 		<TELL "You have no possessions." CR>)
@@ -3098,7 +3153,7 @@ down, the songbird flies away." CR>
 		<COND (<EQUAL? ,HERE ,SOUTH-TEMPLE>
 		       <FCLEAR ,LAMP ,INVISIBLE>
 		       <PUTP ,WINNER ,P?ACTION 0>
-		       <SETG GWIM-DISABLE <>>
+		       ;<SETG GWIM-DISABLE <>>
 		       <SETG ALWAYS-LIT <>>
 		       <SETG DEAD <>>
 		       <COND (<IN? ,TROLL ,TROLL-ROOM>
@@ -3201,21 +3256,21 @@ teeth ache to touch it." CR>)>>
 "tables of melee results"
 
 <GLOBAL DEF1
-	<TABLE
+	<TABLE (PURE)
 	 MISSED MISSED MISSED MISSED
 	 STAGGER STAGGER
 	 UNCONSCIOUS UNCONSCIOUS
 	 KILLED KILLED KILLED KILLED KILLED>>
 
 <GLOBAL DEF2A
-	<TABLE
+	<TABLE (PURE)
 	 MISSED MISSED MISSED MISSED MISSED
 	 STAGGER STAGGER
 	 LIGHT-WOUND LIGHT-WOUND
 	 UNCONSCIOUS>>
 
 <GLOBAL DEF2B
-	<TABLE
+	<TABLE (PURE)
 	 MISSED MISSED MISSED
 	 STAGGER STAGGER
 	 LIGHT-WOUND LIGHT-WOUND LIGHT-WOUND
@@ -3223,21 +3278,21 @@ teeth ache to touch it." CR>)>>
 	 KILLED KILLED KILLED>>
 
 <GLOBAL DEF3A
-	<TABLE
+	<TABLE (PURE)
 	 MISSED MISSED MISSED MISSED MISSED
 	 STAGGER STAGGER
 	 LIGHT-WOUND LIGHT-WOUND
 	 SERIOUS-WOUND SERIOUS-WOUND>>
 
 <GLOBAL DEF3B
-	<TABLE
+	<TABLE (PURE)
 	 MISSED MISSED MISSED
 	 STAGGER STAGGER
 	 LIGHT-WOUND LIGHT-WOUND LIGHT-WOUND
 	 SERIOUS-WOUND SERIOUS-WOUND SERIOUS-WOUND>>
 
 <GLOBAL DEF3C
-	<TABLE
+	<TABLE (PURE)
 	 MISSED
 	 STAGGER STAGGER
 	 LIGHT-WOUND LIGHT-WOUND LIGHT-WOUND LIGHT-WOUND
@@ -3411,7 +3466,7 @@ property, which is normally 0"
 		       <SETG LOAD-ALLOWED <- ,LOAD-ALLOWED 20>>)>)
 	       (<EQUAL? .RES ,STAGGER> <FSET ,WINNER ,STAGGERED>)
 	       (T
-		<AND <EQUAL? .RES ,LOSE-WEAPON> .DWEAPON>
+		;<AND <EQUAL? .RES ,LOSE-WEAPON> .DWEAPON>
 		<MOVE .DWEAPON ,HERE>
 		<COND (<SET NWEAPON <FIND-WEAPON ,WINNER>>
 		       <TELL
@@ -3446,8 +3501,8 @@ ineffective." CR>
 	 <SET DWEAPON <FIND-WEAPON .VILLAIN>>
 	 <COND (<OR <NOT .DWEAPON> <L? .DEF 0>>
 		<TELL "The ">
-		<COND (<NOT .DWEAPON> <TELL "unarmed">)
-		      (T <TELL "unconscious">)>
+		<COND (<L? .DEF 0> <TELL "unconscious">)
+		      (T <TELL "unarmed">)>
 		<TELL " " D .VILLAIN
 		      " cannot defend himself: He dies." CR>
 		<SET RES ,KILLED>)
@@ -3485,7 +3540,7 @@ ineffective." CR>
 		<COND (<L? .DEF 0> <SET DEF 0>)>)
 	       (<EQUAL? .RES ,STAGGER> <FSET ,PRSO ,STAGGERED>)
 	       (T
-		<AND <EQUAL? .RES ,LOSE-WEAPON> .DWEAPON>
+		;<AND <EQUAL? .RES ,LOSE-WEAPON> .DWEAPON>
 		<FCLEAR .DWEAPON ,NDESCBIT>
 		<FSET .DWEAPON ,WEAPONBIT>
 		<MOVE .DWEAPON ,HERE>
@@ -3554,182 +3609,182 @@ carcass has disappeared." CR>
 <CONSTANT F-DEF 1>	;"means print defender name (villain, e.g.)"
 
 <GLOBAL HERO-MELEE
- <TABLE
-  <LTABLE
-   <LTABLE "Your " F-WEP " misses the " F-DEF " by an inch.">
-   <LTABLE "A good slash, but it misses the " F-DEF " by a mile.">
-   <LTABLE "You charge, but the " F-DEF " jumps nimbly aside.">
-   <LTABLE "Clang! Crash! The " F-DEF " parries.">
-   <LTABLE "A quick stroke, but the " F-DEF " is on guard.">
-   <LTABLE "A good stroke, but it's too slow; the " F-DEF " dodges.">>
-  <LTABLE
-   <LTABLE "Your " F-WEP " crashes down, knocking the " F-DEF " into dreamland.">
-   <LTABLE "The " F-DEF " is battered into unconsciousness.">
-   <LTABLE "A furious exchange, and the " F-DEF " is knocked out!">
-   <LTABLE "The haft of your " F-WEP " knocks out the " F-DEF ".">
-   <LTABLE "The " F-DEF " is knocked out!">>
-  <LTABLE
-   <LTABLE "It's curtains for the " F-DEF " as your " F-WEP " removes his head.">
-   <LTABLE "The fatal blow strikes the " F-DEF " square in the heart:  He dies.">
-   <LTABLE "The " F-DEF " takes a fatal blow and slumps to the floor dead.">>
-  <LTABLE
-   <LTABLE "The " F-DEF " is struck on the arm; blood begins to trickle down.">
-   <LTABLE "Your " F-WEP " pinks the " F-DEF " on the wrist, but it's not serious.">
-   <LTABLE "Your stroke lands, but it was only the flat of the blade.">
-   <LTABLE "The blow lands, making a shallow gash in the " F-DEF "'s arm!">>
-  <LTABLE
-   <LTABLE "The " F-DEF " receives a deep gash in his side.">
-   <LTABLE "A savage blow on the thigh! The " F-DEF " is stunned but can still fight!">
-   <LTABLE "Slash! Your blow lands! That one hit an artery, it could be serious!">
-   <LTABLE "Slash! Your stroke connects! This could be serious!">>
-  <LTABLE
-   <LTABLE "The " F-DEF " is staggered, and drops to his knees.">
-   <LTABLE "The " F-DEF " is momentarily disoriented and can't fight back.">
-   <LTABLE "The force of your blow knocks the " F-DEF " back, stunned.">
-   <LTABLE "The " F-DEF " is confused and can't fight back.">
-   <LTABLE "The quickness of your thrust knocks the " F-DEF " back, stunned.">>
-  <LTABLE
-   <LTABLE "The " F-DEF "'s weapon is knocked to the floor, leaving him unarmed.">
-   <LTABLE "The " F-DEF " is disarmed by a subtle feint past his guard.">>>>
+ <TABLE (PURE)
+  <LTABLE (PURE)
+   <LTABLE (PURE) "Your " F-WEP " misses the " F-DEF " by an inch.">
+   <LTABLE (PURE) "A good slash, but it misses the " F-DEF " by a mile.">
+   <LTABLE (PURE) "You charge, but the " F-DEF " jumps nimbly aside.">
+   <LTABLE (PURE) "Clang! Crash! The " F-DEF " parries.">
+   <LTABLE (PURE) "A quick stroke, but the " F-DEF " is on guard.">
+   <LTABLE (PURE) "A good stroke, but it's too slow; the " F-DEF " dodges.">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "Your " F-WEP " crashes down, knocking the " F-DEF " into dreamland.">
+   <LTABLE (PURE) "The " F-DEF " is battered into unconsciousness.">
+   <LTABLE (PURE) "A furious exchange, and the " F-DEF " is knocked out!">
+   <LTABLE (PURE) "The haft of your " F-WEP " knocks out the " F-DEF ".">
+   <LTABLE (PURE) "The " F-DEF " is knocked out!">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "It's curtains for the " F-DEF " as your " F-WEP " removes his head.">
+   <LTABLE (PURE) "The fatal blow strikes the " F-DEF " square in the heart: He dies.">
+   <LTABLE (PURE) "The " F-DEF " takes a fatal blow and slumps to the floor dead.">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The " F-DEF " is struck on the arm; blood begins to trickle down.">
+   <LTABLE (PURE) "Your " F-WEP " pinks the " F-DEF " on the wrist, but it's not serious.">
+   <LTABLE (PURE) "Your stroke lands, but it was only the flat of the blade.">
+   <LTABLE (PURE) "The blow lands, making a shallow gash in the " F-DEF "'s arm!">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The " F-DEF " receives a deep gash in his side.">
+   <LTABLE (PURE) "A savage blow on the thigh! The " F-DEF " is stunned but can still fight!">
+   <LTABLE (PURE) "Slash! Your blow lands! That one hit an artery, it could be serious!">
+   <LTABLE (PURE) "Slash! Your stroke connects! This could be serious!">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The " F-DEF " is staggered, and drops to his knees.">
+   <LTABLE (PURE) "The " F-DEF " is momentarily disoriented and can't fight back.">
+   <LTABLE (PURE) "The force of your blow knocks the " F-DEF " back, stunned.">
+   <LTABLE (PURE) "The " F-DEF " is confused and can't fight back.">
+   <LTABLE (PURE) "The quickness of your thrust knocks the " F-DEF " back, stunned.">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The " F-DEF "'s weapon is knocked to the floor, leaving him unarmed.">
+   <LTABLE (PURE) "The " F-DEF " is disarmed by a subtle feint past his guard.">>>>
 
 \
 
 "messages for cyclops (note that he has no weapon"
 
 <GLOBAL CYCLOPS-MELEE
- <TABLE
-  <LTABLE
-   <LTABLE "The Cyclops misses, but the backwash almost knocks you over.">
-   <LTABLE "The Cyclops rushes you, but runs into the wall.">>
-  <LTABLE
-   <LTABLE "The Cyclops sends you crashing to the floor, unconscious.">>
-  <LTABLE
-   <LTABLE "The Cyclops breaks your neck with a massive smash.">>
-  <LTABLE
-   <LTABLE "A quick punch, but it was only a glancing blow.">
-   <LTABLE "A glancing blow from the Cyclops' fist.">>
-  <LTABLE
-   <LTABLE "The monster smashes his huge fist into your chest, breaking several
+ <TABLE (PURE)
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The Cyclops misses, but the backwash almost knocks you over.">
+   <LTABLE (PURE) "The Cyclops rushes you, but runs into the wall.">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The Cyclops sends you crashing to the floor, unconscious.">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The Cyclops breaks your neck with a massive smash.">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "A quick punch, but it was only a glancing blow.">
+   <LTABLE (PURE) "A glancing blow from the Cyclops' fist.">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The monster smashes his huge fist into your chest, breaking several
 ribs.">
-   <LTABLE "The Cyclops almost knocks the wind out of you with a quick punch.">>
-  <LTABLE
-   <LTABLE "The Cyclops lands a punch that knocks the wind out of you.">
-   <LTABLE "Heedless of your weapons, the Cyclops tosses you against the rock
+   <LTABLE (PURE) "The Cyclops almost knocks the wind out of you with a quick punch.">>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The Cyclops lands a punch that knocks the wind out of you.">
+   <LTABLE (PURE) "Heedless of your weapons, the Cyclops tosses you against the rock
 wall of the room.">>
-  <LTABLE
-   <LTABLE "The Cyclops grabs your " F-WEP ", tastes it, and throws it to the
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The Cyclops grabs your " F-WEP ", tastes it, and throws it to the
 ground in disgust.">
-   <LTABLE "The monster grabs you on the wrist, squeezes, and you drop your
+   <LTABLE (PURE) "The monster grabs you on the wrist, squeezes, and you drop your
 " F-WEP " in pain.">>
-  <LTABLE
-   <LTABLE "The Cyclops seems unable to decide whether to broil or stew his
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The Cyclops seems unable to decide whether to broil or stew his
 dinner.">>
-  <LTABLE
-   <LTABLE "The Cyclops, no sportsman, dispatches his unconscious victim.">>>>
+  <LTABLE (PURE)
+   <LTABLE (PURE) "The Cyclops, no sportsman, dispatches his unconscious victim.">>>>
 
 \
 
 "messages for troll"
 
 <GLOBAL TROLL-MELEE
-<TABLE
- <LTABLE
-  <LTABLE "The troll swings his axe, but it misses.">
-  <LTABLE "The troll's axe barely misses your ear.">
-  <LTABLE "The axe sweeps past as you jump aside.">
-  <LTABLE "The axe crashes against the rock, throwing sparks!">>
- <LTABLE
-  <LTABLE "The flat of the troll's axe hits you delicately on the head, knocking
+<TABLE (PURE)
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The troll swings his axe, but it misses.">
+  <LTABLE (PURE) "The troll's axe barely misses your ear.">
+  <LTABLE (PURE) "The axe sweeps past as you jump aside.">
+  <LTABLE (PURE) "The axe crashes against the rock, throwing sparks!">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The flat of the troll's axe hits you delicately on the head, knocking
 you out.">>
- <LTABLE
-  <LTABLE "The troll neatly removes your head.">
-  <LTABLE "The troll's axe stroke cleaves you from the nave to the chops.">
-  <LTABLE "The troll's axe removes your head.">>
- <LTABLE
-  <LTABLE "The axe gets you right in the side. Ouch!">
-  <LTABLE "The flat of the troll's axe skins across your forearm.">
-  <LTABLE "The troll's swing almost knocks you over as you barely parry
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The troll neatly removes your head.">
+  <LTABLE (PURE) "The troll's axe stroke cleaves you from the nave to the chops.">
+  <LTABLE (PURE) "The troll's axe removes your head.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The axe gets you right in the side. Ouch!">
+  <LTABLE (PURE) "The flat of the troll's axe skins across your forearm.">
+  <LTABLE (PURE) "The troll's swing almost knocks you over as you barely parry
 in time.">
-  <LTABLE "The troll swings his axe, and it nicks your arm as you dodge.">>
- <LTABLE
-  <LTABLE "The troll charges, and his axe slashes you on your " F-WEP " arm.">
-  <LTABLE "An axe stroke makes a deep wound in your leg.">
-  <LTABLE "The troll's axe swings down, gashing your shoulder.">>
- <LTABLE
-  <LTABLE "The troll hits you with a glancing blow, and you are momentarily
+  <LTABLE (PURE) "The troll swings his axe, and it nicks your arm as you dodge.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The troll charges, and his axe slashes you on your " F-WEP " arm.">
+  <LTABLE (PURE) "An axe stroke makes a deep wound in your leg.">
+  <LTABLE (PURE) "The troll's axe swings down, gashing your shoulder.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The troll hits you with a glancing blow, and you are momentarily
 stunned.">
-  <LTABLE "The troll swings; the blade turns on your armor but crashes
+  <LTABLE (PURE) "The troll swings; the blade turns on your armor but crashes
 broadside into your head.">
-  <LTABLE "You stagger back under a hail of axe strokes.">
-  <LTABLE "The troll's mighty blow drops you to your knees.">>
- <LTABLE
-  <LTABLE "The axe hits your " F-WEP " and knocks it spinning.">
-  <LTABLE "The troll swings, you parry, but the force of his blow knocks your " F-WEP " away.">
-  <LTABLE "The axe knocks your " F-WEP " out of your hand. It falls to the floor.">>
- <LTABLE
-  <LTABLE "The troll hesitates, fingering his axe.">
-  <LTABLE "The troll scratches his head ruminatively:  Might you be magically
+  <LTABLE (PURE) "You stagger back under a hail of axe strokes.">
+  <LTABLE (PURE) "The troll's mighty blow drops you to your knees.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The axe hits your " F-WEP " and knocks it spinning.">
+  <LTABLE (PURE) "The troll swings, you parry, but the force of his blow knocks your " F-WEP " away.">
+  <LTABLE (PURE) "The axe knocks your " F-WEP " out of your hand. It falls to the floor.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The troll hesitates, fingering his axe.">
+  <LTABLE (PURE) "The troll scratches his head ruminatively:  Might you be magically
 protected, he wonders?">>
- <LTABLE
-  <LTABLE "Conquering his fears, the troll puts you to death.">>>>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "Conquering his fears, the troll puts you to death.">>>>
 
 \
 
 "messages for thief"
 
 <GLOBAL THIEF-MELEE
-<TABLE
- <LTABLE
-  <LTABLE "The thief stabs nonchalantly with his stiletto and misses.">
-  <LTABLE "You dodge as the thief comes in low.">
-  <LTABLE "You parry a lightning thrust, and the thief salutes you with
+<TABLE (PURE)
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The thief stabs nonchalantly with his stiletto and misses.">
+  <LTABLE (PURE) "You dodge as the thief comes in low.">
+  <LTABLE (PURE) "You parry a lightning thrust, and the thief salutes you with
 a grim nod.">
-  <LTABLE "The thief tries to sneak past your guard, but you twist away.">>
- <LTABLE
-  <LTABLE "Shifting in the midst of a thrust, the thief knocks you unconscious
+  <LTABLE (PURE) "The thief tries to sneak past your guard, but you twist away.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "Shifting in the midst of a thrust, the thief knocks you unconscious
 with the haft of his stiletto.">
-  <LTABLE "The thief knocks you out.">>
- <LTABLE
-  <LTABLE "Finishing you off, the thief inserts his blade into your heart.">
-  <LTABLE "The thief comes in from the side, feints, and inserts the blade
+  <LTABLE (PURE) "The thief knocks you out.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "Finishing you off, the thief inserts his blade into your heart.">
+  <LTABLE (PURE) "The thief comes in from the side, feints, and inserts the blade
 into your ribs.">
-  <LTABLE "The thief bows formally, raises his stiletto, and with a wry grin,
+  <LTABLE (PURE) "The thief bows formally, raises his stiletto, and with a wry grin,
 ends the battle and your life.">>
- <LTABLE
-  <LTABLE "A quick thrust pinks your left arm, and blood starts to
+ <LTABLE (PURE)
+  <LTABLE (PURE) "A quick thrust pinks your left arm, and blood starts to
 trickle down.">
-  <LTABLE "The thief draws blood, raking his stiletto across your arm.">
-  <LTABLE "The stiletto flashes faster than you can follow, and blood wells
+  <LTABLE (PURE) "The thief draws blood, raking his stiletto across your arm.">
+  <LTABLE (PURE) "The stiletto flashes faster than you can follow, and blood wells
 from your leg.">
-  <LTABLE "The thief slowly approaches, strikes like a snake, and leaves
+  <LTABLE (PURE) "The thief slowly approaches, strikes like a snake, and leaves
 you wounded.">>
- <LTABLE
-  <LTABLE "The thief strikes like a snake! The resulting wound is serious.">
-  <LTABLE "The thief stabs a deep cut in your upper arm.">
-  <LTABLE "The stiletto touches your forehead, and the blood obscures your
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The thief strikes like a snake! The resulting wound is serious.">
+  <LTABLE (PURE) "The thief stabs a deep cut in your upper arm.">
+  <LTABLE (PURE) "The stiletto touches your forehead, and the blood obscures your
 vision.">
-  <LTABLE "The thief strikes at your wrist, and suddenly your grip is slippery
+  <LTABLE (PURE) "The thief strikes at your wrist, and suddenly your grip is slippery
 with blood.">>
- <LTABLE
-  <LTABLE "The butt of his stiletto cracks you on the skull, and you stagger
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The butt of his stiletto cracks you on the skull, and you stagger
 back.">
-  <LTABLE "The thief rams the haft of his blade into your stomach, leaving
+  <LTABLE (PURE) "The thief rams the haft of his blade into your stomach, leaving
 you out of breath.">
-  <LTABLE "The thief attacks, and you fall back desperately.">>
- <LTABLE
-  <LTABLE "A long, theatrical slash. You catch it on your " F-WEP ", but the
+  <LTABLE (PURE) "The thief attacks, and you fall back desperately.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "A long, theatrical slash. You catch it on your " F-WEP ", but the
 thief twists his knife, and the " F-WEP " goes flying.">
-  <LTABLE "The thief neatly flips your " F-WEP " out of your hands, and it drops
+  <LTABLE (PURE) "The thief neatly flips your " F-WEP " out of your hands, and it drops
 to the floor.">
-  <LTABLE "You parry a low thrust, and your " F-WEP " slips out of your hand.">>
- <LTABLE
-  <LTABLE "The thief, a man of superior breeding, pauses for a moment to consider the propriety of finishing you off.">
-  <LTABLE "The thief amuses himself by searching your pockets.">
-  <LTABLE "The thief entertains himself by rifling your pack.">>
- <LTABLE
-  <LTABLE "The thief, forgetting his essentially genteel upbringing, cuts your
+  <LTABLE (PURE) "You parry a low thrust, and your " F-WEP " slips out of your hand.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The thief, a man of superior breeding, pauses for a moment to consider the propriety of finishing you off.">
+  <LTABLE (PURE) "The thief amuses himself by searching your pockets.">
+  <LTABLE (PURE) "The thief entertains himself by rifling your pack.">>
+ <LTABLE (PURE)
+  <LTABLE (PURE) "The thief, forgetting his essentially genteel upbringing, cuts your
 throat.">
-  <LTABLE "The thief, a pragmatist, dispatches you as a threat to his
+  <LTABLE (PURE) "The thief, a pragmatist, dispatches you as a threat to his
 livelihood.">>>>
 
 
@@ -3918,7 +3973,7 @@ valueless." CR>
 			      (ELSE <RFALSE>)>)>
 		 <SET X .N>>>
 
-<ROUTINE ROB (WHAT THIEF "OPTIONAL" (PROB <>) "AUX" N X (ROBBED? <>))
+<ROUTINE ROB (WHAT WHERE "OPTIONAL" (PROB <>) "AUX" N X (ROBBED? <>))
 	 <SET X <FIRST? .WHAT>>
 	 <REPEAT ()
 		 <COND (<NOT .X> <RETURN .ROBBED?>)>
@@ -3927,14 +3982,12 @@ valueless." CR>
 			     <NOT <FSET? .X ,SACREDBIT>>
 			     <G? <GETP .X ,P?TVALUE> 0>
 			     <OR <NOT .PROB> <PROB .PROB>>>
-			<MOVE .X .THIEF>
+			<MOVE .X .WHERE>
 			<FSET .X ,TOUCHBIT>
-			<COND (<EQUAL? .THIEF ,THIEF> <FSET .X ,INVISIBLE>)>
+			<COND (<EQUAL? .WHERE ,THIEF> <FSET .X ,INVISIBLE>)>
 			<SET ROBBED? T>)>
 		 <SET X .N>>>
 
-^/L
-
 ;"special-cased routines"
 
 <ROUTINE V-DIAGNOSE ("AUX" (MS <FIGHT-STRENGTH <>>)
@@ -3962,7 +4015,7 @@ valueless." CR>
 	       (<EQUAL? .RS 2> <TELL "be killed by a serious wound">)
 	       (<EQUAL? .RS 3> <TELL "survive one serious wound">)
 	       (<G? .RS 3>
-		<TELL "strong enough to take several wounds.">)>
+		<TELL "survive several wounds">)>
 	 <TELL "." CR>
 	 <COND (<NOT <0? ,DEATHS>>
 		<TELL "You have been killed ">
@@ -3991,7 +4044,8 @@ valueless." CR>
 	 ,SCORE>
 
 <ROUTINE JIGS-UP (DESC "OPTIONAL" (PLAYER? <>))
- 	 <COND (,DEAD
+ 	 <SETG WINNER ,ADVENTURER>
+	 <COND (,DEAD
 		<TELL "|
 It takes a talented person to be killed while already dead. YOU are such
 a talent. Unfortunately, it takes a talented person to deal with it.
@@ -4028,7 +4082,7 @@ disturbed.  The objects in the dungeon appear indistinct, bleached of
 color, even unreal." CR CR>
 			<SETG DEAD T>
 			<SETG TROLL-FLAG T>
-			<SETG GWIM-DISABLE T>
+			;<SETG GWIM-DISABLE T>
 			<SETG ALWAYS-LIT T>
 			<PUTP ,WINNER ,P?ACTION DEAD-FUNCTION>
 			<GOTO ,ENTRANCE-TO-HADES>)
@@ -4041,7 +4095,8 @@ up completely, but you can't have everything." CR CR>
 		 <FCLEAR ,TRAP-DOOR ,TOUCHBIT>
 		 <SETG P-CONT <>>
 		 <RANDOMIZE-OBJECTS>
-		 <KILL-INTERRUPTS>)>>>
+		 <KILL-INTERRUPTS>
+		 <RFATAL>)>>>
 
 <ROUTINE RANDOMIZE-OBJECTS ("AUX" (R <>) F N L)
 	 <COND (<IN? ,LAMP ,WINNER>
diff --git a/1dungeon.zil b/1dungeon.zil
index ea5dbcb..7486f21 100644
--- a/1dungeon.zil
+++ b/1dungeon.zil
@@ -291,8 +291,8 @@ sceptre is ornamented with colored enamel, and tapers to a sharp point.")
 	(FLAGS TAKEBIT CONTBIT BURNBIT)
 	(FDESC
 "On the table is an elongated brown sack, smelling of hot peppers.")
-	(CAPACITY 15)
-	(SIZE 3)
+	(CAPACITY 9)
+	(SIZE 9)
 	(ACTION SANDWICH-BAG-FCN)>
 
 <OBJECT TOOL-CHEST
@@ -370,7 +370,8 @@ sceptre is ornamented with colored enamel, and tapers to a sharp point.")
 	(SYNONYM GARLIC CLOVE)
 	(DESC "clove of garlic")
 	(FLAGS TAKEBIT FOODBIT)
-	(ACTION GARLIC-F)>
+	(ACTION GARLIC-F)
+	(SIZE 4)>
 
 <OBJECT TRIDENT
 	(IN ATLANTIS-ROOM)
@@ -428,7 +429,7 @@ sceptre is ornamented with colored enamel, and tapers to a sharp point.")
 	(SYNONYM DOOR)
 	(ADJECTIVE HUGE STONE)
 	(DESC "stone door")
-	(FLAGS DOORBIT NDESCBIT)
+	(FLAGS DOORBIT NDESCBIT OPENBIT)
 	(ACTION BARROW-DOOR-FCN)>
 
 <OBJECT BARROW
@@ -573,8 +574,7 @@ sceptre is ornamented with colored enamel, and tapers to a sharp point.")
 |
 ZORK is a game of adventure, danger, and low cunning. In it you
 will explore some of the most amazing territory ever seen by mortals.
-No computer should be without one!\"|
-")
+No computer should be without one!\"")
 	(SIZE 2)>
 
 <OBJECT LEAK
@@ -636,7 +636,7 @@ forward to was a dead-end job as a doctor. Now I have a promising
 future and make really big Zorkmids.\"|
 |
 GUE Tech can't promise these fantastic results to everyone. But when
-you earn your degree from GUE Tech, your future will be brighter.|" )>
+you earn your degree from GUE Tech, your future will be brighter." )>
 
 <OBJECT MIRROR-2
 	(IN MIRROR-ROOM-2)
@@ -946,7 +946,7 @@ southwest, is marked \"To Stone Barrow\".")>
 	(FLAGS READBIT TAKEBIT BURNBIT)
 	(SIZE 2)
 	(TEXT
-"	  !!!! 	FROBOZZ MAGIC BOAT COMPANY  !!!!|
+"  !!!!FROBOZZ MAGIC BOAT COMPANY!!!!|
 |
 Hello, Sailor!|
 |
@@ -963,8 +963,7 @@ milliseconds from date of purchase or until first used, whichever comes first.|
 |
 Warning:|
    This boat is made of thin plastic.|
-   Good Luck!|
-" )>
+   Good Luck!" )>
 
 <OBJECT THIEF
 	(IN ROUND-ROOM)
@@ -1020,18 +1019,19 @@ feet wide at the top. The lake created behind the dam has a volume
 of 1.7 billion cubic feet, an area of 12 million square feet, and a
 shore line of 36 thousand feet.|
 |
-We will now point out some of the more interesting features
-of FCD#3 as we conduct you on a guided tour of the facilities:|
-        1) You start your tour here in the Dam Lobby. You will notice
-on your right that...." )>
-
-;"  The construction of FCD#3 took 112 days from ground breaking to
+The construction of FCD#3 took 112 days from ground breaking to
 the dedication. It required a work force of 384 slaves, 34 slave
 drivers, 12 engineers, 2 turtle doves, and a partridge in a pear
 tree. The work was managed by a command team composed of 2345
-bureaucrats, 2347 secretaries (at least two of whom can type),
+bureaucrats, 2347 secretaries (at least two of whom could type),
 12,256 paper shufflers, 52,469 rubber stampers, 245,193 red tape
-processors, and nearly one million dead trees.|"
+processors, and nearly one million dead trees.|
+|
+We will now point out some of the more interesting features
+of FCD#3 as we conduct you on a guided tour of the facilities:|
+|
+        1) You start your tour here in the Dam Lobby. You will notice
+on your right that...." )>
 
 <OBJECT TROLL
 	(IN TROLL-ROOM)
@@ -1105,14 +1105,12 @@ excised them.")>
 	(FLAGS READBIT TAKEBIT)
 	(FDESC "Loosely attached to a wall is a small piece of paper.")
 	(TEXT
-"|
-Congratulations!|
+"Congratulations!|
 |
 You are the privileged owner of ZORK I: The Great Underground Empire,
 a self-contained and self-maintaining universe. If used and maintained
 in accordance with normal operating practices for small universes, ZORK
-will provide many months of trouble-free operation.|
-|")>
+will provide many months of trouble-free operation.")>
 
 <OBJECT CLIMBABLE-CLIFF
 	(IN LOCAL-GLOBALS)
@@ -1251,14 +1249,13 @@ have, as the mainspring seems sprung.")>
       (IN TO STONE-BARROW IF WON-FLAG)
       (ACTION WEST-HOUSE)
       (FLAGS RLANDBIT ONBIT SACREDBIT)
-      (GLOBAL WHITE-HOUSE BOARD)>
+      (GLOBAL WHITE-HOUSE BOARD FOREST)>
 
 <ROOM STONE-BARROW
       (IN ROOMS)
       (LDESC
 "You are standing in front of a massive barrow of stone. In the east face
-is a huge stone door which is open. You cannot see into the dark of the
-tomb.")
+is a huge stone door which is open. You cannot see into the dark of the tomb.")
       (DESC "Stone Barrow")
       (NE TO WEST-OF-HOUSE)
       (ACTION STONE-BARROW-FCN)
@@ -1278,7 +1275,7 @@ the trees.")
       (NORTH TO PATH)
       (SOUTH "The windows are all boarded.")
       (FLAGS RLANDBIT ONBIT SACREDBIT)
-      (GLOBAL BOARDED-WINDOW BOARD WHITE-HOUSE)>
+      (GLOBAL BOARDED-WINDOW BOARD WHITE-HOUSE FOREST)>
 
 <ROOM SOUTH-OF-HOUSE
       (IN ROOMS)
@@ -1293,7 +1290,7 @@ and all the windows are boarded.")
       (SOUTH TO FOREST-3)
       (NORTH "The windows are all boarded.")
       (FLAGS RLANDBIT ONBIT SACREDBIT)
-      (GLOBAL BOARDED-WINDOW BOARD WHITE-HOUSE)>
+      (GLOBAL BOARDED-WINDOW BOARD WHITE-HOUSE FOREST)>
 
 <ROOM EAST-OF-HOUSE
       (IN ROOMS)
@@ -1307,7 +1304,7 @@ and all the windows are boarded.")
       (IN TO KITCHEN IF KITCHEN-WINDOW IS OPEN)
       (ACTION EAST-HOUSE)
       (FLAGS RLANDBIT ONBIT SACREDBIT)
-      (GLOBAL WHITE-HOUSE KITCHEN-WINDOW)>
+      (GLOBAL WHITE-HOUSE KITCHEN-WINDOW FOREST)>
 
 <ROOM FOREST-1
       (IN ROOMS)
@@ -2466,7 +2463,7 @@ shaft is a metal framework to which a heavy iron chain is attached.")
 <ROOM SMELLY-ROOM	;"was SMELL"
       (IN ROOMS)
       (LDESC
-"This is a small non-descript room. However, from the direction
+"This is a small nondescript room. However, from the direction
 of a small descending staircase a foul odor can be detected. To the
 south is a narrow tunnel.")
       (DESC "Smelly Room")
@@ -2567,7 +2564,7 @@ passage. In the shaft can be seen a heavy iron chain.")
 
 <ROOM MINE-1	;"was MINE1"
       (IN ROOMS)
-      (LDESC "This is a non-descript part of a coal mine.")
+      (LDESC "This is a nondescript part of a coal mine.")
       (DESC "Coal Mine")
       (NORTH TO GAS-ROOM)
       (EAST TO MINE-1)
@@ -2576,7 +2573,7 @@ passage. In the shaft can be seen a heavy iron chain.")
 
 <ROOM MINE-2	;"was MINE2"
       (IN ROOMS)
-      (LDESC "This is a non-descript part of a coal mine.")
+      (LDESC "This is a nondescript part of a coal mine.")
       (DESC "Coal Mine")
       (NORTH TO MINE-2)
       (SOUTH TO MINE-1)
@@ -2585,7 +2582,7 @@ passage. In the shaft can be seen a heavy iron chain.")
 
 <ROOM MINE-3	;"was MINE3"
       (IN ROOMS)
-      (LDESC "This is a non-descript part of a coal mine.")
+      (LDESC "This is a nondescript part of a coal mine.")
       (DESC "Coal Mine")
       (SOUTH TO MINE-3)
       (SW TO MINE-4)
@@ -2594,7 +2591,7 @@ passage. In the shaft can be seen a heavy iron chain.")
 
 <ROOM MINE-4	;"was MINE4"
       (IN ROOMS)
-      (LDESC "This is a non-descript part of a coal mine.")
+      (LDESC "This is a nondescript part of a coal mine.")
       (DESC "Coal Mine")
       (NORTH TO MINE-3)
       (WEST TO MINE-4)
@@ -2621,17 +2618,17 @@ a small opening.")
 ;"RANDOM TABLES FOR WALK-AROUND"
 
 <GLOBAL HOUSE-AROUND
-  <LTABLE WEST-OF-HOUSE NORTH-OF-HOUSE EAST-OF-HOUSE SOUTH-OF-HOUSE
+  <LTABLE (PURE) WEST-OF-HOUSE NORTH-OF-HOUSE EAST-OF-HOUSE SOUTH-OF-HOUSE
 	  WEST-OF-HOUSE>>
 
 <GLOBAL FOREST-AROUND
-  <LTABLE FOREST-1 FOREST-2 FOREST-3 PATH CLEARING FOREST-1>>
+  <LTABLE (PURE) FOREST-1 FOREST-2 FOREST-3 PATH CLEARING FOREST-1>>
 
 <GLOBAL IN-HOUSE-AROUND
-  <LTABLE LIVING-ROOM KITCHEN ATTIC KITCHEN>>
+  <LTABLE (PURE) LIVING-ROOM KITCHEN ATTIC KITCHEN>>
 
 <GLOBAL ABOVE-GROUND
-  <LTABLE WEST-OF-HOUSE NORTH-OF-HOUSE EAST-OF-HOUSE SOUTH-OF-HOUSE
+  <LTABLE (PURE) WEST-OF-HOUSE NORTH-OF-HOUSE EAST-OF-HOUSE SOUTH-OF-HOUSE
 	  FOREST-1 FOREST-2 FOREST-3 PATH CLEARING GRATING-CLEARING
 	  CANYON-VIEW>>
 
diff --git a/gclock.zil b/gclock.zil
index 6fdf9f2..3bc1f0d 100644
--- a/gclock.zil
+++ b/gclock.zil
@@ -18,11 +18,6 @@
 
 <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>
@@ -52,8 +47,7 @@
 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
 	 <REPEAT ()
 		 <COND (<==? .C .E>
-			<COND (<G? <SETG MOVES <+ ,MOVES 1>> 999>
-			       <SETG MOVES 0>)>
+			<SETG MOVES <+ ,MOVES 1>>
 			<RETURN .FLG>)
 		       (<NOT <0? <GET .C ,C-ENABLED?>>>
 			<SET TICK <GET .C ,C-TICK>>
diff --git a/gglobals.zil b/gglobals.zil
index dd7fd27..0955cc5 100644
--- a/gglobals.zil
+++ b/gglobals.zil
@@ -64,52 +64,19 @@
 	 <SETG P-CONT <>>
 	 <SETG QUOTE-FLAG <>>
 	 <COND (<EQUAL? ,WINNER ,PLAYER>
-		<TELL "You can't see any">
+		<TELL "You can't see any ">
 		<NOT-HERE-PRINT .PRSO?>
 		<TELL " here!" CR>)
 	       (T
-		<TELL "The " D ,WINNER " seems confused. \"I don't see any">
+		<TELL "The " D ,WINNER " seems confused. \"I don't see any ">
 		<NOT-HERE-PRINT .PRSO?>
 		<TELL " here!\"" CR>)>
 	 <RTRUE>>
 
-<ROUTINE FIND-NOT-HERE (TBL PRSO? "AUX" M-F OBJ)
-	;"Here is where special-case code goes. <MOBY-FIND .TBL> returns
-	   number of matches. If 1, then P-MOBY-FOUND is it. One may treat
-	   the 0 and >1 cases alike or different. It doesn't matter. Always
-	   return RFALSE (not handled) if you have resolved the problem."
-	<SET M-F <MOBY-FIND .TBL>>
-	;<COND (,DEBUG
-	       <TELL "[Moby-found " N .M-F " objects" "]" CR>)>
-	<COND (<AND <G? .M-F 1>
-		    <SET OBJ <GETP <1 .TBL> ,P?GLOBAL>>>
-	       <SET M-F 1>
-	       <SETG P-MOBY-FOUND .OBJ>)>
-	<COND (<==? 1 .M-F>
-	       ;<COND (,DEBUG <TELL "[Namely: " D ,P-MOBY-FOUND "]" CR>)>
-	       <COND (.PRSO? <SETG PRSO ,P-MOBY-FOUND>)
-		     (T <SETG PRSI ,P-MOBY-FOUND>)>
-	       <RFALSE>)
-	      (<NOT .PRSO?>
-	       <TELL "You wouldn't find any">
-	       <NOT-HERE-PRINT .PRSO?>
-	       <TELL " there." CR>
-	       <RTRUE>)
-	      (T ,NOT-HERE-OBJECT)>>
-
-<ROUTINE GLOBAL-NOT-HERE-PRINT (OBJ)
-	 ;<COND (,P-MULT <SETG P-NOT-HERE <+ ,P-NOT-HERE 1>>)>
-	 <SETG P-CONT <>>
-	 <SETG QUOTE-FLAG <>>
-	 <TELL "You can't see any">
-	 <COND (<EQUAL? .OBJ ,PRSO> <PRSO-PRINT>)
-	       (T <PRSI-PRINT>)>
-	 <TELL " here." CR>>
-
 <ROUTINE NOT-HERE-PRINT (PRSO?)
  <COND (,P-OFLAG
-	<COND (,P-XADJ <TELL " "> <PRINTB ,P-XADJN>)>
-	<COND (,P-XNAM <TELL " "> <PRINTB ,P-XNAM>)>)
+	<COND (,P-XADJ <PRINTB ,P-XADJN>)>
+	<COND (,P-XNAM <PRINTB ,P-XNAM>)>)
        (.PRSO?
 	<BUFFER-PRINT <GET ,P-ITBL ,P-NC1> <GET ,P-ITBL ,P-NC1L> <>>)
        (T
@@ -153,7 +120,20 @@
 	(ACTION SAILOR-FCN)>
 
 <ROUTINE SAILOR-FCN ()
-	  <COND (<VERB? HELLO>
+	  <COND (<VERB? TELL>
+		 <SETG P-CONT <>>
+		 <SETG QUOTE-FLAG <>>
+		 <TELL "You can't talk to the sailor that way." CR>)
+		(<VERB? EXAMINE>
+		 %<COND (<==? ,ZORK-NUMBER 3>
+			 '<COND (<NOT <FSET? ,VIKING-SHIP ,INVISIBLE>>
+				 <TELL
+"He looks like a sailor." CR>
+				 <RTRUE>)>)
+			(ELSE T)>
+		 <TELL
+"There is no sailor to be seen." CR>)
+		(<VERB? HELLO>
 		 <SETG HS <+ ,HS 1>>
 		 %<COND (<==? ,ZORK-NUMBER 3>
 			 '<COND (<NOT <FSET? ,VIKING-SHIP ,INVISIBLE>>
@@ -169,16 +149,17 @@ off toward the west, singing a lively, but somewhat uncouth, sailor song." CR>
 		                 <COND (,SHIP-GONE
 			                <TELL "Nothing happens anymore." CR>)
 			               (T
-				        <TELL "Nothing happens yet." CR>)>)>)
+				        <TELL "Nothing happens yet." CR>)>)
+				(T <TELL "Nothing happens here." CR>)>)
 			(T
-			 '<NULL-F>)>
-		 <COND (<0? <MOD ,HS 20>>
-			<TELL "You seem to be repeating yourself." CR>)
-		       (<0? <MOD ,HS 10>>
-			<TELL
+			 '<COND (<0? <MOD ,HS 20>>
+				 <TELL
+"You seem to be repeating yourself." CR>)
+				(<0? <MOD ,HS 10>>
+				 <TELL
 "I think that phrase is getting a bit worn out." CR>)
-		       (T
-			<TELL "Nothing happens here." CR>)>)>>
+				(T
+				 <TELL "Nothing happens here." CR>)>)>)>>
 
 <OBJECT GROUND
 	(IN GLOBAL-OBJECTS)
@@ -258,6 +239,10 @@ you!" CR>)
 		       <JIGS-UP "If you insist.... Poof, you're dead!">)
 		      (T
 		       <TELL "Suicide is not the answer." CR>)>)
+	       (<VERB? THROW>
+		<COND (<==? ,PRSO ,ME>
+		       <TELL
+"Why don't you just walk like normal people?" CR>)>)
 	       (<VERB? TAKE>
 		<TELL "How romantic!" CR>)
 	       (<VERB? EXAMINE>
@@ -265,11 +250,19 @@ you!" CR>)
 			      '(<EQUAL? ,HERE <LOC ,MIRROR-1> <LOC ,MIRROR-2>>
 		                <TELL
 "Your image in the mirror looks tired." CR>))
+			     (<==? ,ZORK-NUMBER 3>
+			      '(,INVIS
+				<TELL
+"A good trick, as you are currently invisible." CR>))
 			     (T
 			      '(<NULL-F> <RTRUE>))>
 		      (T
-		       <TELL
-"That's difficult unless your eyes are prehensile." CR>)>)>>
+		       %<COND (<==? ,ZORK-NUMBER 3>
+			       '<TELL
+"What you can see looks pretty much as usual, sorry to say." CR>)
+			      (ELSE
+			       '<TELL
+"That's difficult unless your eyes are prehensile." CR>)>)>)>>
 
 <OBJECT ADVENTURER
 	(SYNONYM ADVENTURER)
@@ -280,9 +273,9 @@ you!" CR>)
 
 <OBJECT PATHOBJ
 	(IN GLOBAL-OBJECTS)
-	(SYNONYM PASSAGE CRAWLWAY TRAIL PATH)
+	(SYNONYM TRAIL PATH)
         (ADJECTIVE FOREST NARROW LONG WINDING)
-	(DESC "way")
+	(DESC "passage")
 	(FLAGS NDESCBIT)
 	(ACTION PATH-OBJECT)>
 
diff --git a/gmacros.zil b/gmacros.zil
index 17748f0..7873328 100644
--- a/gmacros.zil
+++ b/gmacros.zil
@@ -49,9 +49,6 @@
 				 <MAPRET <FORM PRINT .E>>)
 				(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>
 
-<ROUTINE PRINTA (O)
-	 <TELL "a " D .O>>
-
 <DEFMAC VERB? ("ARGS" ATMS)
 	<MULTIFROB PRSA .ATMS>>
 
@@ -64,8 +61,6 @@
 <DEFMAC ROOM? ("ARGS" ATMS)
 	<MULTIFROB HERE .ATMS>>
 
-<ZSTR-OFF>
-
 <DEFINE MULTIFROB (X ATMS "AUX" (OO (OR)) (O .OO) (L ()) ATM) 
 	<REPEAT ()
 		<COND (<EMPTY? .ATMS>
@@ -114,8 +109,6 @@
 				  (ELSE <FORM GVAL .ATM>)>>
 		      !.O)>>>
 
-<ZSTR-ON>
-
 <DEFMAC RFATAL ()
 	'<PROG () <PUSH 2> <RSTACK>>>
 
diff --git a/gmain.zil b/gmain.zil
index a80632b..965fe1d 100644
--- a/gmain.zil
+++ b/gmain.zil
@@ -2,6 +2,8 @@
 			    The ZORK Trilogy
 		       started on 7/28/83 by MARC"
 
+<CONSTANT SERIAL 0>
+
 <GLOBAL PLAYER <>>
 
 <GLOBAL P-WON <>>
@@ -29,15 +31,39 @@
 ;"GO now lives in SPECIAL.ZIL"    
 
 
-<ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP) 
-   <REPEAT ()
+<ROUTINE MAIN-LOOP ("AUX" TRASH)
+	 <REPEAT ()
+		 <SET TRASH <MAIN-LOOP-1>>>>
+
+<ROUTINE MAIN-LOOP-1 ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP O I) 
      <SET CNT 0>
      <SET OBJ <>>
      <SET PTBL T>
      <COND (<SETG P-WON <PARSER>>
 	    <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
+	    <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>
+	    <COND (<AND ,P-IT-OBJECT <ACCESSIBLE? ,P-IT-OBJECT>>
+		   <SET TMP <>>
+		   <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .ICNT>
+				  <RETURN>)
+				 (T
+				  <COND (<EQUAL? <GET ,P-PRSI .CNT> ,IT>
+					 <PUT ,P-PRSI .CNT ,P-IT-OBJECT>
+					 <SET TMP T>
+					 <RETURN>)>)>>
+		   <COND (<NOT .TMP>
+			  <SET CNT 0>
+			  <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .OCNT>
+				  <RETURN>)
+				 (T
+				  <COND (<EQUAL? <GET ,P-PRSO .CNT> ,IT>
+					 <PUT ,P-PRSO .CNT ,P-IT-OBJECT>
+					 <RETURN>)>)>>)>
+		   <SET CNT 0>)>
 	    <SET NUM
-		 <COND (<0? <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>> .OCNT)
+		 <COND (<0? .OCNT> .OCNT)
 		       (<G? .OCNT 1>
 			<SET TBL ,P-PRSO>
 			<COND (<0? .ICNT> <SET OBJ <>>)
@@ -50,7 +76,9 @@
 			.ICNT)
 		       (T 1)>>
 	    <COND (<AND <NOT .OBJ> <1? .ICNT>> <SET OBJ <GET ,P-PRSI 1>>)>
-	    <COND (<==? ,PRSA ,V?WALK> <SET V <PERFORM ,PRSA ,PRSO>>)
+	    <COND (<AND <==? ,PRSA ,V?WALK>
+			<NOT <ZERO? ,P-WALK-DIR>>>
+		   <SET V <PERFORM ,PRSA ,PRSO>>)
 		  (<0? .NUM>
 		   <COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
 			  <SET V <PERFORM ,PRSA>>
@@ -86,45 +114,37 @@
 				 (T
 				  <COND (.PTBL <SET OBJ1 <GET ,P-PRSO .CNT>>)
 					(T <SET OBJ1 <GET ,P-PRSI .CNT>>)>
-				  <SETG PRSO <COND (.PTBL .OBJ1) (T .OBJ)>>
-				  <SETG PRSI <COND (.PTBL .OBJ) (T .OBJ1)>>
-				  <COND (<OR <G? .NUM 1>
-					     <EQUAL? <GET <GET ,P-ITBL ,P-NC1>
-							  0>
-						     ,W?ALL>>
-					 <COND (<EQUAL? .OBJ1
-							,NOT-HERE-OBJECT>
-						<SETG P-NOT-HERE
-						      <+ ,P-NOT-HERE 1>>
-						<AGAIN>)
-					       (<AND <VERB? TAKE>
-						     ,PRSI
-						     <EQUAL? <GET <GET ,P-ITBL
-								       ,P-NC1>
-								  0>
-							     ,W?ALL>
-						     <NOT <IN? ,PRSO ,PRSI>>>
-						<AGAIN>)
-					       (<AND <EQUAL? ,P-GETFLAGS
-							     ,P-ALL>
-						     <VERB? TAKE>
-						     <OR <AND <NOT <EQUAL?
-							       <LOC .OBJ1>
-							       ,WINNER
-							       ,HERE>>
-							      <NOT <FSET?
-								  <LOC .OBJ1>
-								 ,SURFACEBIT>>>
-							 <NOT <OR <FSET? .OBJ1
-							              ,TAKEBIT>
-							          <FSET? .OBJ1
-							       ,TRYTAKEBIT>>>>>
-						<AGAIN>)
-					       (T
-						<COND (<EQUAL? .OBJ1 ,IT>
-						       <PRINTD ,P-IT-OBJECT>)
-						      (T <PRINTD .OBJ1>)>
-						<TELL ": ">)>)>
+				  <SET O <COND (.PTBL .OBJ1) (T .OBJ)>>
+				  <SET I <COND (.PTBL .OBJ) (T .OBJ1)>>
+
+;"multiple exceptions"
+<COND (<OR <G? .NUM 1>
+	   <EQUAL? <GET <GET ,P-ITBL ,P-NC1> 0> ,W?ALL>>
+       <SET V <LOC ,WINNER>>
+       <COND (<EQUAL? .O ,NOT-HERE-OBJECT>
+	      <SETG P-NOT-HERE <+ ,P-NOT-HERE 1>>
+	      <AGAIN>)
+	     (<AND <VERB? TAKE>
+		   .I
+		   <EQUAL? <GET <GET ,P-ITBL ,P-NC1> 0> ,W?ALL>
+		   <NOT <IN? .O .I>>>
+	      <AGAIN>)
+	     (<AND <EQUAL? ,P-GETFLAGS ,P-ALL>
+		   <VERB? TAKE>
+		   <OR <AND <NOT <EQUAL? <LOC .O> ,WINNER ,HERE .V>>
+			    <NOT <EQUAL? <LOC .O> .I>>
+			    <NOT <FSET? <LOC .O> ,SURFACEBIT>>>
+		       <NOT <OR <FSET? .O ,TAKEBIT>
+				<FSET? .O ,TRYTAKEBIT>>>>>
+	      <AGAIN>)
+	     (ELSE
+	      <COND (<EQUAL? .OBJ1 ,IT>
+		     <PRINTD ,P-IT-OBJECT>)
+		    (T <PRINTD .OBJ1>)>
+	      <TELL ": ">)>)>
+;"end multiple exceptions"
+				  <SETG PRSO .O>
+				  <SETG PRSI .I>
 				  <SET TMP T>
 				  <SET V <PERFORM ,PRSA ,PRSO ,PRSI>>
 				  <COND (<==? .V ,M-FATAL> <RETURN>)>)>>)>
@@ -132,7 +152,8 @@
 		   ;<COND (<==? <LOC ,WINNER> ,PRSO>
 			  <SETG PRSO <>>)>
 		   <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
-	    <COND (<VERB? AGAIN WALK SAVE RESTORE SCORE VERSION ;WAIT> T)
+	    ;<COND (<VERB? ;AGAIN ;"WALK -- why was this here?"
+			  SAVE RESTORE ;SCORE ;VERSION ;WAIT> T)
 		  (T
 		   <SETG L-PRSA ,PRSA>
 		   <SETG L-PRSO ,PRSO>
@@ -140,17 +161,16 @@
 	    <COND (<==? .V ,M-FATAL> <SETG P-CONT <>>)>)
 	   (T
 	    <SETG P-CONT <>>)>
+     %<COND (<==? ,ZORK-NUMBER 3>
+	     '<COND (<NOT ,CLEFT-QUEUED?>
+		     <ENABLE <QUEUE I-CLEFT <+ 70 <RANDOM 70>>>>
+		     <SETG CLEFT-QUEUED? T>)>)
+	    (ELSE '<NULL-F>)>
      <COND (,P-WON
 	    <COND (<VERB? TELL BRIEF SUPER-BRIEF VERBOSE SAVE VERSION
 			  QUIT RESTART SCORE SCRIPT UNSCRIPT RESTORE> T)
-		  (T <SET V <CLOCKER>>)>)>>>
+		  (T <SET V <CLOCKER>>)>)>>
  
-<GLOBAL L-PRSA <>>  
- 
-<GLOBAL L-PRSO <>>  
- 
-<GLOBAL L-PRSI <>>  
-
 <GLOBAL P-MULT <>>
 
 <GLOBAL P-NOT-HERE 0>
@@ -172,7 +192,7 @@
 	<SET OO ,PRSO>
 	<SET OI ,PRSI>
 	<COND (<AND <EQUAL? ,IT .I .O>
-		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
+		    <NOT <ACCESSIBLE? ,P-IT-OBJECT>>>
 	       <TELL "I don't see what you are referring to." CR>
 	       <RFATAL>)>
 	<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
@@ -180,8 +200,7 @@
 	<SETG PRSA .A>
 	<SETG PRSO .O>
 	<COND (<AND ,PRSO <NOT <EQUAL? ,PRSI ,IT>> <NOT <VERB? WALK>>>
-	       <SETG P-IT-OBJECT ,PRSO>
-	       <SETG P-IT-LOC ,HERE>)>
+	       <SETG P-IT-OBJECT ,PRSO>)>
 	<SETG PRSI .I>
 	<COND (<AND <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
 		    <SET V <NOT-HERE-OBJECT-F>>> .V)
@@ -225,7 +244,7 @@
 	<SET OO ,PRSO>
 	<SET OI ,PRSI>
 	<COND (<AND <EQUAL? ,IT .I .O>
-		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
+		    <NOT <ACCESSIBLE? ,P-IT-OBJECT>>>
 	       <TELL "I don't see what you are referring to." CR>
 	       <RFATAL>)>
 	<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
@@ -233,8 +252,7 @@
 	<SETG PRSA .A>
 	<SETG PRSO .O>
 	<COND (<AND ,PRSO <NOT <VERB? WALK>>>
-	       <SETG P-IT-OBJECT ,PRSO>
-	       <SETG P-IT-LOC ,HERE>)>
+	       <SETG P-IT-OBJECT ,PRSO>)>
 	<SETG PRSI .I>
 	<COND (<AND <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
 		    <SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>> .V)
diff --git a/gparser.zil b/gparser.zil
index 9e97911..65180d3 100644
--- a/gparser.zil
+++ b/gparser.zil
@@ -4,143 +4,141 @@
 
 ;"WHICH and TRAP retrofixes installed"
 
-"Parser global variable convention:  All parser globals will 
+"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 P-TABLE 0>
+<GLOBAL P-ONEOBJ 0>
+<GLOBAL P-SYNTAX 0>
+
+<GLOBAL P-CCTBL <TABLE 0 0 0 0>>
+;"pointers used by CLAUSE-COPY (source/destination beginning/end pointers)"
+<CONSTANT CC-SBPTR 0>
+<CONSTANT CC-SEPTR 1>
+<CONSTANT CC-DBPTR 2>
+<CONSTANT CC-DEPTR 3>
+
+<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 WINNER 0>
+
+<GLOBAL P-LEXV
+	<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
+<GLOBAL AGAIN-LEXV
+	<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
+<GLOBAL RESERVE-LEXV
+	<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
+<GLOBAL RESERVE-PTR <>>
+
+;"INBUF - Input buffer for READ"
+
+<GLOBAL P-INBUF
+	<ITABLE 120 (BYTE LENGTH) 0>
+	;<ITABLE BYTE 60>>
+<GLOBAL OOPS-INBUF
+	<ITABLE 120 (BYTE LENGTH) 0>
+	;<ITABLE BYTE 60>>
+<GLOBAL OOPS-TABLE <TABLE <> <> <> <>>>
+<CONSTANT O-PTR 0>	"word pointer to unknown token in P-LEXV"
+<CONSTANT O-START 1>	"word pointer to sentence start in P-LEXV"
+<CONSTANT O-LENGTH 2>	"byte length of unparsed tokens in P-LEXV"
+<CONSTANT O-END 3>	"byte pointer to first free byte in OOPS-INBUF"
+
+;"Parse-cont variable"
+
+<GLOBAL P-CONT <>>
 <GLOBAL P-IT-OBJECT <>>
-<GLOBAL P-IT-LOC <>>
+;<GLOBAL LAST-PSEUDO-LOC <>>
 
-;"Orphan flag" 
- 
-<GLOBAL P-OFLAG <>> 
- 
-<GLOBAL P-MERGED <>>
+;"Orphan flag"
 
-<GLOBAL P-ACLAUSE <>>    
- 
-<GLOBAL P-ANAM <>>  
- 
+<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>>  
- 
+
+<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-OVTBL <TABLE 0 #BYTE 0 #BYTE 0>>
+
+<GLOBAL P-NCN 0>
 
-<GLOBAL P-NCN 0>    
- 
-<CONSTANT P-VERB 0> 
- 
+<CONSTANT P-VERB 0>
 <CONSTANT P-VERBN 1>
- 
 <CONSTANT P-PREP1 2>
- 
-<CONSTANT P-PREP1N 3>    
- 
+<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> 
- 
+<CONSTANT P-PREP2N 5>
+<CONSTANT P-NC1 6>
+<CONSTANT P-NC1L 7>
+<CONSTANT P-NC2 8>
+<CONSTANT P-NC2L 9>
+
 <GLOBAL QUOTE-FLAG <>>
+<GLOBAL P-END-ON-PREP <>>
 
 " 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."   
+   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)) 
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WRD (VAL 0) (VERB <>) (OF-FLAG <>)
+		       OWINNER OMERGED LEN (DIR <>) (NW 0) (LW 0) (CNT -1))
 	<REPEAT ()
 		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
-		      (T <PUT ,P-ITBL .CNT 0>)>>
+		      (T
+		       <COND (<NOT ,P-OFLAG>
+			      <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>
+		       <PUT ,P-ITBL .CNT 0>)>>
+	<SET OWINNER ,WINNER>
+	<SET OMERGED ,P-MERGED>
 	<SETG P-ADVERB <>>
 	<SETG P-MERGED <>>
+	<SETG P-END-ON-PREP <>>
 	<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 <META-LOC ,PLAYER>>
+	       ;<COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
 		      <SETG HERE <LOC ,WINNER>>)>
 	       <SETG LIT <LIT? ,HERE>>)>
-	<COND (,P-CONT
+	<COND (,RESERVE-PTR
+	       <SET PTR ,RESERVE-PTR>
+	       <STUFF ,RESERVE-LEXV ,P-LEXV>
+	       <COND (<AND <NOT ,SUPER-BRIEF> <EQUAL? ,PLAYER ,WINNER>>
+		      <CRLF>)>
+	       <SETG RESERVE-PTR <>>
+	       <SETG P-CONT <>>)
+	      (,P-CONT
 	       <SET PTR ,P-CONT>
 	       <COND (<AND <NOT ,SUPER-BRIEF>
-			   <==? ,PLAYER ,WINNER>
+			   <EQUAL? ,PLAYER ,WINNER>
 			   <NOT <VERB? SAY>>>
 		      <CRLF>)>
 	       <SETG P-CONT <>>)
@@ -154,33 +152,124 @@
 	       <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 (<ZERO? ,P-LEN> <TELL "I beg your pardon?" CR> <RFALSE>)>
+	<COND (<EQUAL? <SET WRD <GET ,P-LEXV .PTR>> ,W?OOPS>
+	       <COND (<EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+			      ,W?PERIOD ,W?COMMA>
+		      <SET PTR <+ .PTR ,P-LEXELEN>>
+		      <SETG P-LEN <- ,P-LEN 1>>)>
+	       <COND (<NOT <G? ,P-LEN 1>>
+		      <TELL "I can't help your clumsiness." CR>
+		      <RFALSE>)
+		     (<GET ,OOPS-TABLE ,O-PTR>
+		      <COND (<AND <G? ,P-LEN 2>
+				  <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					  ,W?QUOTE>>
+			     <TELL
+"Sorry, you can't correct mistakes in quoted text." CR>
+			     <RFALSE>)
+			    (<G? ,P-LEN 2>
+			     <TELL
+"Warning: only the first word after OOPS is used." CR>)>
+		      <PUT ,AGAIN-LEXV <GET ,OOPS-TABLE ,O-PTR>
+			   <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>
+		      <SETG WINNER .OWINNER> ;"maybe fix oops vs. chars.?"
+		      <INBUF-ADD <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 6>>
+				 <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 7>>
+				 <+ <* <GET ,OOPS-TABLE ,O-PTR> ,P-LEXELEN> 3>>
+		      <STUFF ,AGAIN-LEXV ,P-LEXV>
+		      <SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+		      <SET PTR <GET ,OOPS-TABLE ,O-START>>
+		      <INBUF-STUFF ,OOPS-INBUF ,P-INBUF>)
+		     (T
+		      <PUT ,OOPS-TABLE ,O-END <>>
+		      <TELL "There was no word to replace!" CR>
+		      <RFALSE>)>)
+	      (T
+	       <COND (<NOT <EQUAL? .WRD ,W?AGAIN ,W?G>>
+		      <SETG P-NUMBER 0>)>
+	       <PUT ,OOPS-TABLE ,O-END <>>)>
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?AGAIN ,W?G>
+	       <COND (<ZERO? <GETB ,OOPS-INBUF 1>>
+		      <TELL "Beg pardon?" CR>
+		      <RFALSE>)
+		     (,P-OFLAG
+		      <TELL "It's difficult to repeat fragments." CR>
+		      <RFALSE>)
+		     (<NOT ,P-WON>
+		      <TELL "That would just repeat a mistake." CR>
+		      <RFALSE>)
+		     (<G? ,P-LEN 1>
+		      <COND (<OR <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					,W?PERIOD ,W?COMMA ,W?THEN>
+				 <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					,W?AND>>
+			     <SET PTR <+ .PTR <* 2 ,P-LEXELEN>>>
+			     <PUTB ,P-LEXV ,P-LEXWORDS
+				   <- <GETB ,P-LEXV ,P-LEXWORDS> 2>>)
+			    (T
+			     <TELL "I couldn't understand that sentence." CR>
+			     <RFALSE>)>)
+		     (T
+		      <SET PTR <+ .PTR ,P-LEXELEN>>
+		      <PUTB ,P-LEXV ,P-LEXWORDS
+			    <- <GETB ,P-LEXV ,P-LEXWORDS> 1>>)>
+	       <COND (<G? <GETB ,P-LEXV ,P-LEXWORDS> 0>
+		      <STUFF ,P-LEXV ,RESERVE-LEXV>
+		      <SETG RESERVE-PTR .PTR>)
+		     (T
+		      <SETG RESERVE-PTR <>>)>
+	       ;<SETG P-LEN <GETB ,AGAIN-LEXV ,P-LEXWORDS>>
+	       <SETG WINNER .OWINNER>
+	       <SETG P-MERGED .OMERGED>
+	       <INBUF-STUFF ,OOPS-INBUF ,P-INBUF>
+	       <STUFF ,AGAIN-LEXV ,P-LEXV>
+	       <SET CNT -1>
+	       <SET DIR ,AGAIN-DIR>
+	       <REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>)
+	      (T
+	       <STUFF ,P-LEXV ,AGAIN-LEXV>
+	       <INBUF-STUFF ,P-INBUF ,OOPS-INBUF>
+	       <PUT ,OOPS-TABLE ,O-START .PTR>
+	       <PUT ,OOPS-TABLE ,O-LENGTH <* 4 ,P-LEN>>
+	       <SET LEN
+		    <* 2 <+ .PTR <* ,P-LEXELEN <GETB ,P-LEXV ,P-LEXWORDS>>>>>
+	       <PUT ,OOPS-TABLE ,O-END <+ <GETB ,P-LEXV <- .LEN 1>>
+					  <GETB ,P-LEXV <- .LEN 2>>>>
+	       <SETG RESERVE-PTR <>>
+	       <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>
+		       <COND (<ZERO? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       <COND (<AND <EQUAL? .WRD ,W?TO>
 				   <EQUAL? .VERB ,ACT?TELL ;,ACT?ASK>>
 			      <SET WRD ,W?QUOTE>)
-			     (<AND <==? .WRD ,W?THEN>
+			     (<AND <EQUAL? .WRD ,W?THEN>
+				   <G? ,P-LEN 0>
 				   <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? .LW 0 ,W?PERIOD>
+				     <SET WRD ,W?THE>)
+				    (ELSE
+				     <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+				     <PUT ,P-ITBL ,P-VERBN 0>
+				     <SET WRD ,W?QUOTE>)>)>
+		       <COND (<EQUAL? .WRD ,W?THEN ,W?PERIOD ,W?QUOTE>
 			      <COND (<EQUAL? .WRD ,W?QUOTE>
 				     <COND (,QUOTE-FLAG
 					    <SETG QUOTE-FLAG <>>)
 					   (T <SETG QUOTE-FLAG T>)>)>
-			      <OR <0? ,P-LEN>
+			      <OR <ZERO? ,P-LEN>
 				  <SETG P-CONT <+ .PTR ,P-LEXELEN>>>
 			      <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
 			      <RETURN>)
@@ -189,18 +278,16 @@
 					     ,PS?DIRECTION
 					     ,P1?DIRECTION>>
 				   <EQUAL? .VERB <> ,ACT?WALK>
-				   <OR <==? .LEN 1>
-				       <AND <==? .LEN 2>
+				   <OR <EQUAL? .LEN 1>
+				       <AND <EQUAL? .LEN 2>
 					    <EQUAL? .VERB ,ACT?WALK>>
-				       <AND <EQUAL? <SET NW
-						     <GET ,P-LEXV
-							  <+ .PTR ,P-LEXELEN>>>
+				       <AND <EQUAL? .NW
 					            ,W?THEN
 					            ,W?PERIOD
 					            ,W?QUOTE>
 					    <NOT <L? .LEN 2>>>
 				       <AND ,QUOTE-FLAG
-					    <==? .LEN 2>
+					    <EQUAL? .LEN 2>
 					    <EQUAL? .NW ,W?QUOTE>>
 				       <AND <G? .LEN 2>
 					    <EQUAL? .NW ,W?COMMA ,W?AND>>>>
@@ -219,42 +306,50 @@
 			      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
 			      <PUT ,P-VTBL 0 .WRD>
 			      <PUTB ,P-VTBL 2 <GETB ,P-LEXV
-						    <SET NUM
+						    <SET CNT
 							 <+ <* .PTR 2> 2>>>>
-			      <PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .NUM 1>>>)
+			      <PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .CNT 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>>>
+				  <EQUAL? .WRD ,W?ALL ,W?ONE ;,W?BOTH>
+				  <WT? .WRD ,PS?ADJECTIVE>
+				  <WT? .WRD ,PS?OBJECT>>
+			      <COND (<AND <G? ,P-LEN 1>
+					  <EQUAL? .NW ,W?OF>
+					  <ZERO? .VAL>
+					  <NOT <EQUAL? .WRD
+						       ,W?ALL ,W?ONE ,W?A>>
+					  ;<NOT <EQUAL? .WRD ,W?BOTH>>>
+				     <SET OF-FLAG T>)
+				    (<AND <NOT <ZERO? .VAL>>
+				          <OR <ZERO? ,P-LEN>
+					      <EQUAL? .NW ,W?THEN ,W?PERIOD>>>
+				     <SETG P-END-ON-PREP T>
 				     <COND (<L? ,P-NCN 2>
 					    <PUT ,P-ITBL ,P-PREP1 .VAL>
 					    <PUT ,P-ITBL ,P-PREP1N .WRD>)>)
-				    (<==? ,P-NCN 2>
+				    (<EQUAL? ,P-NCN 2>
 				     <TELL
 "There were too many nouns in that sentence." CR>
 				     <RFALSE>)
 				    (T
 				     <SETG P-NCN <+ ,P-NCN 1>>
+				     <SETG P-ACT .VERB>
 				     <OR <SET PTR <CLAUSE .PTR .VAL .WRD>>
 					 <RFALSE>>
 				     <COND (<L? .PTR 0>
 					    <SETG QUOTE-FLAG <>>
 					    <RETURN>)>)>)
+			     (<EQUAL? .WRD ,W?OF>
+			      <COND (<OR <NOT .OF-FLAG>
+					 <EQUAL? .NW ,W?PERIOD ,W?THEN>>
+				     <CANT-USE .PTR>
+				     <RFALSE>)
+				    (T
+				     <SET OF-FLAG <>>)>)
 			     (<WT? .WRD ,PS?BUZZ-WORD>)
 			     (<AND <EQUAL? .VERB ,ACT?TELL>
-				   <WT? .WRD ,PS?VERB ,P1?VERB>>
+				   <WT? .WRD ,PS?VERB ,P1?VERB>
+				   <EQUAL? ,WINNER ,PLAYER>>
 			      <TELL
 "Please consult your manual for the correct way to talk to other people
 or creatures." CR>
@@ -266,43 +361,90 @@ or creatures." CR>
 		       <UNKNOWN-WORD .PTR>
 		       <RFALSE>)>
 		<SET LW .WRD>
-		<SET PTR <+ .PTR ,P-LEXELEN>>>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>)>
+	<PUT ,OOPS-TABLE ,O-PTR <>>
 	<COND (.DIR
 	       <SETG PRSA ,V?WALK>
 	       <SETG PRSO .DIR>
+	       <SETG P-OFLAG <>>
 	       <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)>>
-
+	       <SETG AGAIN-DIR .DIR>)
+	      (ELSE
+	       <COND (,P-OFLAG <ORPHAN-MERGE>)>
+	       <SETG P-WALK-DIR <>>
+	       <SETG AGAIN-DIR <>>
+	       <COND (<AND <SYNTAX-CHECK>
+			   <SNARF-OBJECTS>
+			   <MANY-CHECK>
+			   <TAKE-CHECK>>
+		      T)>)>>
 
+<GLOBAL P-ACT <>>
 <GLOBAL P-WALK-DIR <>>
+<GLOBAL AGAIN-DIR <>>
+
+;"For AGAIN purposes, put contents of one LEXV table into another."
+<ROUTINE STUFF (SRC DEST "OPTIONAL" (MAX 29) "AUX" (PTR ,P-LEXSTART) (CTR 1)
+						   BPTR)
+	 <PUTB .DEST 0 <GETB .SRC 0>>
+	 <PUTB .DEST 1 <GETB .SRC 1>>
+	 <REPEAT ()
+	  <PUT .DEST .PTR <GET .SRC .PTR>>
+	  <SET BPTR <+ <* .PTR 2> 2>>
+	  <PUTB .DEST .BPTR <GETB .SRC .BPTR>>
+	  <SET BPTR <+ <* .PTR 2> 3>>
+	  <PUTB .DEST .BPTR <GETB .SRC .BPTR>>
+	  <SET PTR <+ .PTR ,P-LEXELEN>>
+	  <COND (<IGRTR? CTR .MAX>
+		 <RETURN>)>>>
+
+;"Put contents of one INBUF into another"
+<ROUTINE INBUF-STUFF (SRC DEST "AUX" CNT)
+	 <SET CNT <- <GETB .SRC 0> 1>>
+	 <REPEAT ()
+		 <PUTB .DEST .CNT <GETB .SRC .CNT>>
+		 <COND (<DLESS? CNT 0> <RETURN>)>>>
+
+;"Put the word in the positions specified from P-INBUF to the end of
+OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
+<ROUTINE INBUF-ADD (LEN BEG SLOT "AUX" DBEG (CTR 0) TMP)
+	 <COND (<SET TMP <GET ,OOPS-TABLE ,O-END>>
+		<SET DBEG .TMP>)
+	       (T
+		<SET DBEG <+ <GETB ,AGAIN-LEXV
+				   <SET TMP <GET ,OOPS-TABLE ,O-LENGTH>>>
+			     <GETB ,AGAIN-LEXV <+ .TMP 1>>>>)>
+	 <PUT ,OOPS-TABLE ,O-END <+ .DBEG .LEN>>
+	 <REPEAT ()
+	  <PUTB ,OOPS-INBUF <+ .DBEG .CTR> <GETB ,P-INBUF <+ .BEG .CTR>>>
+	  <SET CTR <+ .CTR 1>>
+	  <COND (<EQUAL? .CTR .LEN> <RETURN>)>>
+	 <PUTB ,AGAIN-LEXV .SLOT .DBEG>
+	 <PUTB ,AGAIN-LEXV <- .SLOT 1> .LEN>>
 
 ;"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." 
+   for that part of speech to be returned."
 
-<ROUTINE WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFS ,P-P1OFF) TYP) 
+<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>>)>
+		      <COND (<NOT <EQUAL? .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)) 
+
+<ROUTINE CLAUSE (PTR VAL WRD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0))
 	<SET OFF <* <- ,P-NCN 1> 2>>
-	<COND (<NOT <==? .VAL 0>>
+	<COND (<NOT <EQUAL? .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>)>
+	<COND (<ZERO? ,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>>)>
@@ -312,11 +454,11 @@ or creatures." CR>
 		       <RETURN -1>)>
 		<COND (<OR <SET WRD <GET ,P-LEXV .PTR>>
 			   <SET WRD <NUMBER? .PTR>>>
-		       <COND (<0? ,P-LEN> <SET NW 0>)
+		       <COND (<ZERO? ,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>
+			     (<EQUAL? .WRD ,W?ALL ,W?ONE ;,W?BOTH>
+			      <COND (<EQUAL? .NW ,W?OF>
 				     <SETG P-LEN <- ,P-LEN 1>>
 				     <SET PTR <+ .PTR ,P-LEXELEN>>)>)
 			     (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
@@ -337,7 +479,7 @@ or creatures." CR>
 				    (<AND <WT? .WRD
 					       ,PS?ADJECTIVE
 					       ,P1?ADJECTIVE>
-					  <NOT <==? .NW 0>>
+					  <NOT <EQUAL? .NW 0>>
 					  <WT? .NW ,PS?OBJECT>>)
 				    (<AND <NOT .ANDFLG>
 					  <NOT <EQUAL? .NW ,W?BUT ,W?EXCEPT>>
@@ -365,7 +507,7 @@ or creatures." CR>
 		      (T <UNKNOWN-WORD .PTR> <RFALSE>)>
 		<SET LW .WRD>
 		<SET FIRST?? <>>
-		<SET PTR <+ .PTR ,P-LEXELEN>>>> 
+		<SET PTR <+ .PTR ,P-LEXELEN>>>>
 
 <ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0) (TIM <>))
 	 <SET CNT <GETB <REST ,P-LEXV <* .PTR 2>> 2>>
@@ -374,7 +516,7 @@ or creatures." CR>
 		 <COND (<L? <SET CNT <- .CNT 1>> 0> <RETURN>)
 		       (T
 			<SET CHR <GETB ,P-INBUF .BPTR>>
-			<COND (<==? .CHR 58>
+			<COND (<EQUAL? .CHR 58>
 			       <SET TIM .SUM>
 			       <SET SUM 0>)
 			      (<G? .SUM 10000> <RFALSE>)
@@ -392,44 +534,58 @@ or creatures." CR>
 	 ,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) 
+<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 ,P1?ADJECTIVE>
-	  <SET ADJ T>)>
-   <COND (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+   <COND (<OR <EQUAL? <WT? <SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
+			   ,PS?VERB ,P1?VERB>
+		      <GET ,P-OTBL ,P-VERB>>
+	      <NOT <ZERO? <WT? .WRD ,PS?ADJECTIVE>>>>
+	  <SET ADJ T>)
+	 (<AND <NOT <ZERO? <WT? .WRD ,PS?OBJECT ,P1?OBJECT>>>
+	       <EQUAL? ,P-NCN 0>>
+	  <PUT ,P-ITBL ,P-VERB 0>
+	  <PUT ,P-ITBL ,P-VERBN 0>
+	  <PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+	  <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>
+	  <SETG P-NCN 1>)>
+   <COND (<AND <NOT <ZERO? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
 	       <NOT .ADJ>
-	       <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+	       <NOT <EQUAL? .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>>
+	 (<EQUAL? ,P-NCN 2> <RFALSE>)
+	 (<EQUAL? <GET ,P-OTBL ,P-NC1> 1>
+	  <COND (<OR <EQUAL? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
 			  <GET ,P-OTBL ,P-PREP1>>
-		     <0? .TEMP>>
+		     <ZERO? .TEMP>>
 		 <COND (.ADJ
 			<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
-			<PUT ,P-OTBL ,P-NC1L <REST ,P-LEXV 6>>)
+			<COND (<ZERO? <GET ,P-ITBL ,P-NC1L>>
+			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+			<COND (<ZERO? ,P-NCN> <SETG P-NCN 1>)>)
 		       (T
-			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
-			<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>)
+			<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>>
+	 (<EQUAL? <GET ,P-OTBL ,P-NC2> 1>
+	  <COND (<OR <EQUAL? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
 			  <GET ,P-OTBL ,P-PREP2>>
-		     <0? .TEMP>>
+		     <ZERO? .TEMP>>
 		 <COND (.ADJ
 			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
-			<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+			<COND (<ZERO? <GET ,P-ITBL ,P-NC1L>>
+			       <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>>
+	  <COND (<AND <NOT <EQUAL? ,P-NCN 1>> <NOT .ADJ>>
 		 <SETG P-ACLAUSE <>>
 		 <RFALSE>)
 		(T
@@ -438,7 +594,7 @@ or creatures." CR>
 		 <SET END <GET ,P-ITBL ,P-NC1L>>
 		 <REPEAT ()
 			 <SET WRD <GET .BEG 0>>
-			 <COND (<==? .BEG .END>
+			 <COND (<EQUAL? .BEG .END>
 				<COND (.ADJ <ACLAUSE-WIN .ADJ> <RETURN>)
 				      (T <SETG P-ACLAUSE <>> <RFALSE>)>)
 			       (<AND <NOT .ADJ>
@@ -446,17 +602,26 @@ or creatures." CR>
 					       ,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>)>)>
+			       (<EQUAL? .WRD ,W?ONE>
+				<ACLAUSE-WIN .ADJ>
+				<RETURN>)
+			       (<BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+				<COND (<EQUAL? .WRD ,P-ANAM>
+				       <ACLAUSE-WIN .ADJ>)
+				      (T
+				       <NCLAUSE-WIN>)>
+				<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>)>>)>)>
+   <PUT ,P-VTBL 0 <GET ,P-OVTBL 0>>
+   <PUTB ,P-VTBL 2 <GETB ,P-OVTBL 2>>
+   <PUTB ,P-VTBL 3 <GETB ,P-OVTBL 3>>
+   <PUT ,P-OTBL ,P-VERBN ,P-VTBL>
+   <PUTB ,P-VTBL 2 0>
    <REPEAT ()
 	   <COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN>
 		  <SETG P-MERGED T>
@@ -466,16 +631,29 @@ or creatures." CR>
 
 ;"New ACLAUSE-WIN for TRAP retrofix 6/21/84"
 
-<ROUTINE ACLAUSE-WIN (ADJ) 
+<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>>
+	<PUT ,P-CCTBL ,CC-SBPTR ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-SEPTR <+ ,P-ACLAUSE 1>>
+	<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
+	<CLAUSE-COPY ,P-OTBL ,P-OTBL .ADJ>
+	<AND <NOT <EQUAL? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+	<SETG P-ACLAUSE <>>
+	<RTRUE>>
+
+<ROUTINE NCLAUSE-WIN ()
+        <PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
+	<PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
+	<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
+	<CLAUSE-COPY ,P-ITBL ,P-OTBL>
+	<AND <NOT <EQUAL? <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"   
+   PTR points to the unknown word in P-LEXV"
 
 <ROUTINE WORD-PRINT (CNT BUF)
 	 <REPEAT ()
@@ -484,7 +662,8 @@ or creatures." CR>
 			<PRINTC <GETB ,P-INBUF .BUF>>
 			<SET BUF <+ .BUF 1>>)>>>
 
-<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF) 
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF)
+	<PUT ,OOPS-TABLE ,O-PTR .PTR>
 	<COND (<VERB? SAY>
 	       <TELL "Nothing happens." CR>
 	       <RFALSE>)>
@@ -495,7 +674,7 @@ or creatures." CR>
 	<SETG QUOTE-FLAG <>>
 	<SETG P-OFLAG <>>>
 
-<ROUTINE CANT-USE (PTR "AUX" BUF) 
+<ROUTINE CANT-USE (PTR "AUX" BUF)
 	<COND (<VERB? SAY>
 	       <TELL "Nothing happens." CR>
 	       <RFALSE>)>
@@ -509,33 +688,25 @@ or creatures." CR>
 ;" 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>    
- 
+   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-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>    
-
+<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>>>
+		       	    (DRIVE1 <>) (DRIVE2 <>) PREP VERB TMP)
+	<COND (<ZERO? <SET VERB <GET ,P-ITBL ,P-VERB>>>
 	       <TELL "There was no verb in that sentence!" CR>
 	       <RFALSE>)>
 	<SET SYN <GET ,VERBS <- 255 .VERB>>>
@@ -545,14 +716,14 @@ or creatures." CR>
 		<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>>>>
+			    <ZERO? ,P-NCN>
+			    <OR <ZERO? <SET PREP <GET ,P-ITBL ,P-PREP1>>>
+				<EQUAL? .PREP <GETB .SYN ,P-SPREP1>>>>
 		       <SET DRIVE1 .SYN>)
-		      (<==? <GETB .SYN ,P-SPREP1> <GET ,P-ITBL ,P-PREP1>>
-		       <COND (<AND <==? .NUM 2> <==? ,P-NCN 1>>
+		      (<EQUAL? <GETB .SYN ,P-SPREP1> <GET ,P-ITBL ,P-PREP1>>
+		       <COND (<AND <EQUAL? .NUM 2> <EQUAL? ,P-NCN 1>>
 			      <SET DRIVE2 .SYN>)
-			     (<==? <GETB .SYN ,P-SPREP2>
+			     (<EQUAL? <GETB .SYN ,P-SPREP2>
 				   <GET ,P-ITBL ,P-PREP2>>
 			      <SYNTAX-FOUND .SYN>
 			      <RTRUE>)>)>
@@ -582,63 +753,94 @@ or creatures." CR>
 	      (<EQUAL? .VERB ,ACT?FIND>
 	       <TELL "That question can't be answered." CR>
 	       <RFALSE>)
-	      (<NOT <==? ,WINNER ,PLAYER>>
+	      (<NOT <EQUAL? ,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>>
+	       <COND (<EQUAL? .TMP 0> <TELL "tell">)
+		     (<ZERO? <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>)>
+		      <TELL " ">
+		      <THING-PRINT T T>)>
 	       <SETG P-OFLAG T>
 	       <PREP-PRINT <COND (.DRIVE1 <GETB .DRIVE1 ,P-SPREP1>)
 				 (T <GETB .DRIVE2 ,P-SPREP2>)>>
 	       <TELL "?" CR>
-	       <RFALSE>)>> 
+	       <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>
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1))
+	<COND (<NOT ,P-MERGED>
+	       <PUT ,P-OCLAUSE ,P-MATCHLEN 0>)>
+	<PUT ,P-OVTBL 0 <GET ,P-VTBL 0>>
+	<PUTB ,P-OVTBL 2 <GETB ,P-VTBL 2>>
+	<PUTB ,P-OVTBL 3 <GETB ,P-VTBL 3>>
 	<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 (<EQUAL? ,P-NCN 2>
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC2L>
+	       <PUT ,P-CCTBL ,CC-DBPTR ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-DEPTR ,P-NC2L>
+	       <CLAUSE-COPY ,P-ITBL ,P-OTBL>)>
+	<COND (<NOT <L? ,P-NCN 1>>
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
+	       <PUT ,P-CCTBL ,CC-DBPTR ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-DEPTR ,P-NC1L>
+	       <CLAUSE-COPY ,P-ITBL ,P-OTBL>)>
 	<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 <>))
+	       <PUT ,P-OTBL ,P-NC2 1>)>>
+
+<ROUTINE THING-PRINT (PRSO? "OPTIONAL" (THE? <>) "AUX" BEG END)
+	 <COND (.PRSO?
+		<SET BEG <GET ,P-ITBL ,P-NC1>>
+		<SET END <GET ,P-ITBL ,P-NC1L>>)
+	       (ELSE
+		<SET BEG <GET ,P-ITBL ,P-NC2>>
+		<SET END <GET ,P-ITBL ,P-NC2L>>)>
+	 <BUFFER-PRINT .BEG .END .THE?>>
+
+<ROUTINE BUFFER-PRINT (BEG END CP
+		       "AUX" (NOSP T) WRD (FIRST?? T) (PN <>) (Q? <>))
 	 <REPEAT ()
-		<COND (<==? .BEG .END> <RETURN>)
+		<COND (<EQUAL? .BEG .END> <RETURN>)
 		      (T
-		       <COND (.NOSP <SET NOSP <>>)
-			     (T <TELL " ">)>
-		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?PERIOD>
+		       <SET WRD <GET .BEG 0>>
+		       <COND ;(<EQUAL? .WRD ,W?$BUZZ> T)
+			     (<EQUAL? .WRD ,W?COMMA>
+			      <TELL ", ">)
+			     (.NOSP <SET NOSP <>>)
+			     (ELSE <TELL " ">)>
+		       <COND (<EQUAL? .WRD ,W?PERIOD ,W?COMMA>
 			      <SET NOSP T>)
+			     (<EQUAL? .WRD ,W?ME>
+			      <PRINTD ,ME>
+			      <SET PN T>)
+			     (<EQUAL? .WRD ,W?INTNUM>
+			      <PRINTN ,P-NUMBER>
+			      <SET PN 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>>
+				    (<AND <EQUAL? .WRD ,W?IT>
+					  <ACCESSIBLE? ,P-IT-OBJECT>>
 				     <PRINTD ,P-IT-OBJECT>)
 				    (T
 				     <WORD-PRINT <GETB .BEG 2>
@@ -646,98 +848,101 @@ or creatures." CR>
 			      <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>>
+<ROUTINE PREP-PRINT (PREP "AUX" WRD)
+	<COND (<NOT <ZERO? .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
+	       <COND ;(<EQUAL? .PREP ,PR?THROUGH>
+		      <TELL "through">)
+		     (T
+		      <SET WRD <PREP-FIND .PREP>>
+		      <PRINTB .WRD>)>)>>
+
+<ROUTINE CLAUSE-COPY (SRC DEST "OPTIONAL" (INSRT <>) "AUX" BEG END)
+	<SET BEG <GET .SRC <GET ,P-CCTBL ,CC-SBPTR>>>
+	<SET END <GET .SRC <GET ,P-CCTBL ,CC-SEPTR>>>
+	<PUT .DEST
+	     <GET ,P-CCTBL ,CC-DBPTR>
 	     <REST ,P-OCLAUSE
 		   <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN> 2>>>
 	<REPEAT ()
-		<COND (<==? .BEG .END>
-		       <PUT ,P-OTBL
-			    .EPTR
+		<COND (<EQUAL? .BEG .END>
+		       <PUT .DEST
+			    <GET ,P-CCTBL ,CC-DEPTR>
 			    <REST ,P-OCLAUSE
 				  <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
 				     2>>>
 		       <RETURN>)
 		      (T
-		       <COND (<AND .INSRT <==? ,P-ANAM <GET .BEG 0>>>
+		       <COND (<AND .INSRT <EQUAL? ,P-ANAM <GET .BEG 0>>>
 			      <CLAUSE-ADD .INSRT>)>
 		       <CLAUSE-ADD <GET .BEG 0>>)>
-		<SET BEG <REST .BEG ,P-WORDLEN>>>>  
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
 
 
-<ROUTINE CLAUSE-ADD (WRD "AUX" PTR) 
+<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) 
+	<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) 
+		      (<EQUAL? <GET ,PREPOSITIONS .CNT> .PREP>
+		       <RETURN <GET ,PREPOSITIONS <- .CNT 1>>>)>>>
+
+<ROUTINE SYNTAX-FOUND (SYN)
 	<SETG P-SYNTAX .SYN>
-	<SETG PRSA <GETB .SYN ,P-SACTION>>>   
- 
+	<SETG PRSA <GETB .SYN ,P-SACTION>>>
+
 <GLOBAL P-GWIMBIT 0>
- 
-<ROUTINE GWIM (GBIT LBIT PREP "AUX" OBJ) 
-	<COND (<==? .GBIT ,RMUNGBIT>
+
+<ROUTINE GWIM (GBIT LBIT PREP "AUX" OBJ)
+	<COND (<EQUAL? .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>)>
+	       <COND (<EQUAL? <GET ,P-MERGE ,P-MATCHLEN> 1>
+		      <SET OBJ <GET ,P-MERGE 1>>
 		      <TELL "(">
-		      <COND (<NOT <0? .PREP>>
+		      <COND (<AND <NOT <ZERO? .PREP>>
+				  <NOT ,P-END-ON-PREP>>
 			     <PRINTB <SET PREP <PREP-FIND .PREP>>>
-			     <COND (<==? .PREP ,W?OUT>
+			     <COND (<EQUAL? .PREP ,W?OUT>
 				    <TELL " of">)>
-			     <COND (<==? .OBJ ,HANDS>
-				    <TELL " your hands)" CR>)
+			     <TELL " ">
+			     <COND (<EQUAL? .OBJ ,HANDS>
+				    <TELL "your hands">)
 				   (T
-				    <TELL " the ">)>)>
-		      <COND (<NOT <==? .OBJ ,HANDS>>
+				    <TELL "the " D .OBJ>)>
+			     <TELL ")" CR>)
+			    (ELSE
 			     <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>>  
+	      (T <SETG P-GWIMBIT 0> <RFALSE>)>>
+
+<ROUTINE SNARF-OBJECTS ("AUX" OPTR IPTR L)
+	 <PUT ,P-BUTS ,P-MATCHLEN 0>
+	 <COND (<NOT <EQUAL? <SET IPTR <GET ,P-ITBL ,P-NC2>> 0>>
+		<SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC2>>
+		<OR <SNARFEM .IPTR <GET ,P-ITBL ,P-NC2L> ,P-PRSI> <RFALSE>>)>
+	 <COND (<NOT <EQUAL? <SET OPTR <GET ,P-ITBL ,P-NC1>> 0>>
+		<SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC1>>
+		<OR <SNARFEM .OPTR <GET ,P-ITBL ,P-NC1L> ,P-PRSO> <RFALSE>>)>
+	 <COND (<NOT <ZERO? <GET ,P-BUTS ,P-MATCHLEN>>>
+		<SET L <GET ,P-PRSO ,P-MATCHLEN>>
+		<COND (.OPTR <SETG P-PRSO <BUT-MERGE ,P-PRSO>>)>
+		<COND (<AND .IPTR
+			    <OR <NOT .OPTR>
+				<EQUAL? .L <GET ,P-PRSO ,P-MATCHLEN>>>>
+		       <SETG P-PRSI <BUT-MERGE ,P-PRSI>>)>)>
+	 <RTRUE>>
 
-<ROUTINE BUT-MERGE (TBL "AUX" LEN BUTLEN (CNT 1) (MATCHES 0) OBJ NTBL) 
+<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 ()
@@ -750,56 +955,45 @@ or creatures." CR>
 	<PUT ,P-MERGE ,P-MATCHLEN .MATCHES>
 	<SET NTBL ,P-MERGE>
 	<SETG P-MERGE .TBL>
-	.NTBL>    
- 
-<GLOBAL P-NAM <>>   
- 
-<GLOBAL P-ADJ <>>   
- 
-<GLOBAL P-ADVERB <>>
+	.NTBL>
 
-<GLOBAL P-ADJN <>>  
- 
-<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-NAM <>>
+<GLOBAL P-ADJ <>>
+<GLOBAL P-ADVERB <>>
+<GLOBAL P-ADJN <>>
+<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 100>>
+<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>
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WRD NW (WAS-ALL <>))
    <SETG P-AND <>>
-   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <COND (<EQUAL? ,P-GETFLAGS ,P-ALL>
+	  <SET WAS-ALL T>)>
+   <SETG P-GETFLAGS 0>
    <PUT .TBL ,P-MATCHLEN 0>
    <SET WRD <GET .PTR 0>>
    <REPEAT ()
-	   <COND (<==? .PTR .EPTR> <RETURN <GET-OBJECT <OR .BUT .TBL>>>)
+	   <COND (<EQUAL? .PTR .EPTR>
+		  <SET WV <GET-OBJECT <OR .BUT .TBL>>>
+		  <COND (.WAS-ALL <SETG P-GETFLAGS ,P-ALL>)>
+		  <RETURN .WV>)
 		 (T
-		  <SET NW <GET .PTR ,P-LEXELEN>>
-		  <COND (<==? .WRD ,W?ALL>
+		  <COND (<==? .EPTR <REST .PTR ,P-WORDLEN>>
+			 <SET NW 0>)
+			(T <SET NW <GET .PTR ,P-LEXELEN>>)>
+		  <COND (<EQUAL? .WRD ,W?ALL ;,W?BOTH>
 			 <SETG P-GETFLAGS ,P-ALL>
-			 <COND (<==? .NW ,W?OF>
+			 <COND (<EQUAL? .NW ,W?OF>
 				<SET PTR <REST .PTR ,P-WORDLEN>>)>)
 			(<EQUAL? .WRD ,W?BUT ,W?EXCEPT>
 			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
@@ -808,12 +1002,12 @@ or creatures." CR>
 			(<EQUAL? .WRD ,W?A ,W?ONE>
 			 <COND (<NOT ,P-ADJ>
 				<SETG P-GETFLAGS ,P-ONE>
-				<COND (<==? .NW ,W?OF>
+				<COND (<EQUAL? .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 <ZERO? .NW> <RTRUE>>)>)
 			(<AND <EQUAL? .WRD ,W?AND ,W?COMMA>
 			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
 			 <SETG P-AND T>
@@ -821,8 +1015,8 @@ or creatures." CR>
 			 T)
 			(<WT? .WRD ,PS?BUZZ-WORD>)
 			(<EQUAL? .WRD ,W?AND ,W?COMMA>)
-			(<==? .WRD ,W?OF>
-			 <COND (<0? ,P-GETFLAGS>
+			(<EQUAL? .WRD ,W?OF>
+			 <COND (<ZERO? ,P-GETFLAGS>
 				<SETG P-GETFLAGS ,P-INHIBIT>)>)
 			(<AND <SET WV <WT? .WRD ,PS?ADJECTIVE ,P1?ADJECTIVE>>
 			      <NOT ,P-ADJ>>
@@ -831,42 +1025,47 @@ or creatures." CR>
 			(<WT? .WRD ,PS?OBJECT ,P1?OBJECT>
 			 <SETG P-NAM .WRD>
 			 <SETG P-ONEOBJ .WRD>)>)>
-	   <COND (<NOT <==? .PTR .EPTR>>
+	   <COND (<NOT <EQUAL? .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>  
-
+		  <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-ADJN ,PS?OBJECT ,P1?OBJECT>>
-		<SETG P-NAM ,P-ADJN>
-		<SETG P-ADJ <>>)>
+	 <COND (<AND <NOT ,P-NAM> ,P-ADJ>
+		<COND (<WT? ,P-ADJN ,PS?OBJECT ,P1?OBJECT>
+		       <SETG P-NAM ,P-ADJN>
+		       <SETG P-ADJ <>>)
+		      %<COND (<==? ,ZORK-NUMBER 3>
+			      '(<SET BITS
+				     <WT? ,P-ADJN
+					  ,PS?DIRECTION ,P1?DIRECTION>>
+				<SETG P-ADJ <>>
+				<PUT .TBL ,P-MATCHLEN 1>
+				<PUT .TBL 1 ,INTDIR>
+				<SETG P-DIRECTION .BITS>
+				<RTRUE>))
+			     (ELSE '(<NULL-F> T))>>)>
 	 <COND (<AND <NOT ,P-NAM>
 		     <NOT ,P-ADJ>
-		     <NOT <==? ,P-GETFLAGS ,P-ALL>>
-		     <0? ,P-GWIMBIT>>
+		     <NOT <EQUAL? ,P-GETFLAGS ,P-ALL>>
+		     <ZERO? ,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>>
+	 <COND (<OR <NOT <EQUAL? ,P-GETFLAGS ,P-ALL>> <ZERO? ,P-SLOCBITS>>
 		<SETG P-SLOCBITS -1>)>
 	 <SETG P-TABLE .TBL>
 	 <PROG ()
@@ -880,16 +1079,16 @@ or creatures." CR>
 	       <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>>
+			   <NOT <ZERO? .LEN>>>
+		      <COND (<NOT <EQUAL? .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>
+			  <AND <ZERO? .LEN> <NOT <EQUAL? ,P-SLOCBITS -1>>>>
+		      <COND (<EQUAL? ,P-SLOCBITS -1>
 			     <SETG P-SLOCBITS .XBITS>
 			     <SET OLEN .LEN>
 			     <PUT .TBL
@@ -897,14 +1096,14 @@ or creatures." CR>
 				  <- <GET .TBL ,P-MATCHLEN> .LEN>>
 			     <AGAIN>)
 			    (T
-			     <COND (<0? .LEN> <SET LEN .OLEN>)>
-			     <COND (<NOT <==? ,WINNER ,PLAYER>>
+			     <COND (<ZERO? .LEN> <SET LEN .OLEN>)>
+			     <COND (<NOT <EQUAL? ,WINNER ,PLAYER>>
 				    <CANT-ORPHAN>
 				    <RFALSE>)
 				   (<AND .VRB ,P-NAM>
 				    <WHICH-PRINT .TLEN .LEN .TBL>
 				    <SETG P-ACLAUSE
-					  <COND (<==? .TBL ,P-PRSO> ,P-NC1)
+					  <COND (<EQUAL? .TBL ,P-PRSO> ,P-NC1)
 						(T ,P-NC2)>>
 				    <SETG P-AADJ ,P-ADJ>
 				    <SETG P-ANAM ,P-NAM>
@@ -915,10 +1114,12 @@ or creatures." CR>
 "There seems to be a noun missing in that sentence!" CR>)>
 			     <SETG P-NAM <>>
 			     <SETG P-ADJ <>>
-			     <RFALSE>)>)
-		     (<AND <0? .LEN> .GCHECK>
+			     <RFALSE>)>)>
+	       <COND (<AND <ZERO? .LEN> .GCHECK>
 		      <COND (.VRB
-			     <COND (,LIT
+			     ;"next added 1/2/85 by JW"
+			     <SETG P-SLOCBITS .XBITS>
+			     <COND (<OR ,LIT <VERB? TELL ;WHERE ;WHAT ;WHO>>
 				    ;"Changed 6/10/83 - MARC"
 				    <OBJ-FOUND ,NOT-HERE-OBJECT .TBL>
 				    <SETG P-XNAM ,P-NAM>
@@ -932,52 +1133,32 @@ or creatures." CR>
 		      <SETG P-NAM <>>
 		      <SETG P-ADJ <>>
 		      <RFALSE>)
-		     (<0? .LEN> <SET GCHECK T> <AGAIN>)>
+		     (<ZERO? .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 <>>
 <GLOBAL P-XADJN <>>
 
 <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 "Which ">
+         <COND (<OR ,P-OFLAG ,P-MERGED ,P-AND>
+		<PRINTB <COND (,P-NAM ,P-NAM)
+			      (,P-ADJ ,P-ADJN)
+			      (ELSE ,W?ONE)>>)
+	       (ELSE
+		<THING-PRINT <EQUAL? .TBL ,P-PRSO>>)>
 	 <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 ",">)>
+		 <COND (<EQUAL? .LEN 2>
+		        <COND (<NOT <EQUAL? .RLEN 2>> <TELL ",">)>
 		        <TELL " or ">)
 		       (<G? .LEN 2> <TELL ", ">)>
 		 <COND (<L? <SET LEN <- .LEN 1>> 1>
@@ -985,7 +1166,7 @@ or creatures." CR>
 		        <RETURN>)>>>
 
 
-<ROUTINE GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS FOO) 
+<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>>
@@ -998,7 +1179,7 @@ or creatures." CR>
 	       <SET RMGL <- </ <PTSIZE .RMG> 4> 1>>
 	       <SET CNT 0>
 	       <REPEAT ()
-		       <COND (<==? ,P-NAM <GET .RMG <* .CNT 2>>>
+		       <COND (<EQUAL? ,P-NAM <GET .RMG <* .CNT 2>>>
 			      <PUTP ,PSEUDO-OBJECT
 				    ,P?ACTION
 				    <GET .RMG <+ <* .CNT 2> 1>>>
@@ -1009,16 +1190,16 @@ or creatures." CR>
 			      <OBJ-FOUND ,PSEUDO-OBJECT .TBL>
 			      <RETURN>)
 		             (<IGRTR? CNT .RMGL> <RETURN>)>>)>
-	<COND (<==? <GET .TBL ,P-MATCHLEN> .LEN>
+	<COND (<EQUAL? <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>>
+	       <COND (<AND <ZERO? <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) 
+
+<ROUTINE DO-SL (OBJ BIT1 BIT2 "AUX" BTS)
 	<COND (<BTST ,P-SLOCBITS <+ .BIT1 .BIT2>>
 	       <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCALL>)
 	      (T
@@ -1026,22 +1207,20 @@ or creatures." CR>
 		      <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) 
+		     (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>>
+		       <COND (<AND <NOT <EQUAL? .LVL ,P-SRCBOT>>
 				   <GETPT .OBJ ,P?SYNONYM>
 				   <THIS-IT? .OBJ .TBL>>
 			      <OBJ-FOUND .OBJ .TBL>)>
-		       <COND (<AND <OR <NOT <==? .LVL ,P-SRCTOP>>
+		       <COND (<AND <OR <NOT <EQUAL? .LVL ,P-SRCTOP>>
 				       <FSET? .OBJ ,SEARCHBIT>
 				       <FSET? .OBJ ,SURFACEBIT>>
 				   <SET NOBJ <FIRST? .OBJ>>
@@ -1055,18 +1234,18 @@ or creatures." CR>
 						      (<FSET? .OBJ ,SEARCHBIT>
 						       ,P-SRCALL)
 						      (T ,P-SRCTOP)>>>)>
-		       <COND (<SET OBJ <NEXT? .OBJ>>) (T <RETURN>)>>)>> 
- 
-<ROUTINE OBJ-FOUND (OBJ TBL "AUX" PTR) 
+		       <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 () 
+	<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>>>> 
+	     <ITAKE-CHECK ,P-PRSI <GETB ,P-SYNTAX ,P-SLOC2>>>>
 
-<ROUTINE ITAKE-CHECK (TBL IBITS "AUX" PTR OBJ TAKEN) 
+<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>>
@@ -1076,19 +1255,28 @@ or creatures." CR>
 			<COND (<L? <SET PTR <- .PTR 1>> 0> <RETURN>)
 			      (T
 			       <SET OBJ <GET .TBL <+ .PTR 1>>>
-			       <COND (<==? .OBJ ,IT> <SET OBJ ,P-IT-OBJECT>)>
+			       <COND (<EQUAL? .OBJ ,IT>
+				      <COND (<NOT <ACCESSIBLE? ,P-IT-OBJECT>>
+					     <TELL
+"I don't see what you're referring to." CR>
+					     <RFALSE>)
+					    (T
+					     <SET OBJ ,P-IT-OBJECT>)>)>
 			       <COND (<AND <NOT <HELD? .OBJ>>
-					   <NOT <==? .OBJ ,HANDS>>>
+					   <NOT <EQUAL? .OBJ ,HANDS ,ME>>>
 				      <SETG PRSO .OBJ>
 				      <COND (<FSET? .OBJ ,TRYTAKEBIT>
 					     <SET TAKEN T>)
-					    (<NOT <==? ,WINNER ,ADVENTURER>>
+					    (<NOT <EQUAL? ,WINNER ,ADVENTURER>>
 					     <SET TAKEN <>>)
 					    (<AND <BTST .IBITS ,STAKE>
-						  <==? <ITAKE <>> T>>
+						  <EQUAL? <ITAKE <>> T>>
 					     <SET TAKEN <>>)
 					    (T <SET TAKEN T>)>
-				      <COND (<AND .TAKEN <BTST .IBITS ,SHAVE>>
+				      <COND (<AND .TAKEN
+						  <BTST .IBITS ,SHAVE>
+						  <EQUAL? ,WINNER
+							  ,ADVENTURER>>
 					     <COND (<EQUAL? .OBJ
 							    ,NOT-HERE-OBJECT>
 						    <TELL
@@ -1099,11 +1287,11 @@ or creatures." CR>
 					     <TELL "." CR>
 					     <RFALSE>)
 					    (<AND <NOT .TAKEN>
-						  <==? ,WINNER ,ADVENTURER>>
+						  <EQUAL? ,WINNER ,ADVENTURER>>
 					     <TELL "(Taken)" CR>)>)>)>>)
-	       (T)>>  
- 
-<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP) 
+	       (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>)
@@ -1112,34 +1300,37 @@ or creatures." CR>
 	       <SET LOSS 2>)>
 	<COND (.LOSS
 	       <TELL "You can't use multiple ">
-	       <COND (<==? .LOSS 2> <TELL "in">)>
+	       <COND (<EQUAL? .LOSS 2> <TELL "in">)>
 	       <TELL "direct objects with \"">
 	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
-	       <COND (<0? .TMP> <TELL "tell">)
+	       <COND (<ZERO? .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)) 
+	      (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>)>>>    
+		<COND (<EQUAL? .ITM <GET .TBL .CNT>>
+		       <RETURN <REST .TBL <* .CNT 2>>>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>
 
-<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0)) 
+<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0))
 	<REPEAT ()
-		<COND (<==? .ITM <GETB .TBL .CNT>> <RTRUE>)
-		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>  
- 
+		<COND (<EQUAL? .ITM <GETB .TBL .CNT>>
+		       <RTRUE>)
+		      (<IGRTR? CNT .SIZE>
+		       <RFALSE>)>>>
+
 <GLOBAL ALWAYS-LIT <>>
 
-<ROUTINE LIT? (RM "OPTIONAL" (RMBIT T) "AUX" OHERE (LIT <>)) 
+<ROUTINE LIT? (RM "OPTIONAL" (RMBIT T) "AUX" OHERE (LIT <>))
 	<COND (<AND ,ALWAYS-LIT <EQUAL? ,WINNER ,PLAYER>>
 	       <RTRUE>)>
 	<SETG P-GWIMBIT ,ONBIT>
@@ -1152,7 +1343,7 @@ or creatures." CR>
 	       <PUT ,P-MERGE ,P-MATCHLEN 0>
 	       <SETG P-TABLE ,P-MERGE>
 	       <SETG P-SLOCBITS -1>
-	       <COND (<==? .OHERE .RM>
+	       <COND (<EQUAL? .OHERE .RM>
 		      <DO-SL ,WINNER 1 1>
 		      <COND (<AND <NOT <EQUAL? ,WINNER ,PLAYER>>
 				  <IN? ,PLAYER .RM>>
@@ -1161,23 +1352,9 @@ or creatures." CR>
 	       <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) 
+	.LIT>
+
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS)
  <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
        (<AND ,P-NAM
 	     <NOT <ZMEMQ ,P-NAM
@@ -1188,6 +1365,43 @@ or creatures." CR>
 	     <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>>>
+       (<AND <NOT <ZERO? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
 	<RFALSE>)>
- <RTRUE>>
\ No newline at end of file
+ <RTRUE>>
+
+<ROUTINE ACCESSIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player TOUCH object?"
+	 ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<FSET? .OBJ ,INVISIBLE>
+		<RFALSE>)
+	       ;(<EQUAL? .OBJ ,PSEUDO-OBJECT>
+		<COND (<EQUAL? ,LAST-PSEUDO-LOC ,HERE>
+		       <RTRUE>)
+		      (T
+		       <RFALSE>)>)
+	       (<NOT .L>
+		<RFALSE>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS>
+		<RTRUE>)
+	       (<AND <EQUAL? .L ,LOCAL-GLOBALS>
+		     <GLOBAL-IN? .OBJ ,HERE>>
+		<RTRUE>)
+	       (<NOT <EQUAL? <META-LOC .OBJ> ,HERE <LOC ,WINNER>>>
+		<RFALSE>)
+	       (<EQUAL? .L ,WINNER ,HERE <LOC ,WINNER>>
+		<RTRUE>)
+	       (<AND <FSET? .L ,OPENBIT>
+		     <ACCESSIBLE? .L>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE META-LOC (OBJ)
+	 <REPEAT ()
+		 <COND (<NOT .OBJ>
+			<RFALSE>)
+		       (<IN? .OBJ ,GLOBAL-OBJECTS>
+			<RETURN ,GLOBAL-OBJECTS>)>
+		 <COND (<IN? .OBJ ,ROOMS>
+			<RETURN .OBJ>)
+		       (T
+			<SET OBJ <LOC .OBJ>>)>>>
diff --git a/gsyntax.zil b/gsyntax.zil
index 6d5cb66..d5681ab 100644
--- a/gsyntax.zil
+++ b/gsyntax.zil
@@ -6,10 +6,16 @@
 
 "Buzzwords, Prepositions and Directions"
 
-<BUZZ A AN THE IS AND OF THEN ALL ONE BUT EXCEPT \. \, \" YES NO Y HERE
-      FEEBLE FUMBLE FEAR FILCH FREEZE FALL FRY FLUORESCE
-      FERMENT FIERCE FLOAT FIREPROOF FENCE FUDGE FANTASIZE
-      FROTZ OZMOO>
+<BUZZ AGAIN G OOPS>
+
+<BUZZ A AN THE IS AND OF THEN ALL ONE BUT EXCEPT \. \, \" YES NO Y HERE>
+
+<COND (<==? ,ZORK-NUMBER 2>
+       <BUZZ FEEBLE FUMBLE FEAR FILCH FREEZE FALL FRY FLUORESCE
+	     FERMENT FIERCE FLOAT FIREPROOF FENCE FUDGE FANTASIZE
+	     FROTZ OZMOO>)
+      (<==? ,ZORK-NUMBER 3>
+       <BUZZ FROTZ OZMOO>)>
 
 <SYNONYM WITH USING THROUGH THRU>
 <SYNONYM IN INSIDE INTO>
@@ -62,7 +68,13 @@
 
 <SYNTAX $VERIFY = V-VERIFY>
 
-;<SYNTAX DEBUG = V-DEBUG>
+<SYNTAX \#RANDOM OBJECT = V-RANDOM>
+
+<SYNTAX \#COMMAND = V-COMMAND-FILE>
+
+<SYNTAX \#RECORD = V-RECORD>
+
+<SYNTAX \#UNRECORD = V-UNRECORD>
 
 ^L
 
@@ -71,15 +83,16 @@
 <SYNTAX ACTIVATE OBJECT (FIND LIGHTBIT)
 	(HELD CARRIED ON-GROUND IN-ROOM) = V-LAMP-ON>
 
-<SYNTAX AGAIN = V-AGAIN>
-<SYNONYM AGAIN G>
-
 <SYNTAX ANSWER = V-ANSWER>
 <SYNTAX ANSWER OBJECT = V-REPLY>
 <SYNONYM ANSWER REPLY>
 
 <SYNTAX APPLY OBJECT TO OBJECT = V-PUT PRE-PUT>
 
+<COND (<==? ,ZORK-NUMBER 2>
+       <SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM)
+	       = V-ATTACK>)>
+
 <SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM)
 	WITH OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE) = V-ATTACK>
 <SYNONYM ATTACK FIGHT HURT INJURE HIT>
@@ -114,9 +127,9 @@
 <SYNTAX CHOMP = V-CHOMP>
 <SYNONYM CHOMP LOSE BARF>
 
-<SYNTAX CLIMB UP = V-CLIMB-UP>
+<SYNTAX CLIMB UP OBJECT (FIND RMUNGBIT) = V-CLIMB-UP>
 <SYNTAX CLIMB UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
-<SYNTAX CLIMB DOWN = V-CLIMB-DOWN>
+<SYNTAX CLIMB DOWN OBJECT (FIND RMUNGBIT) = V-CLIMB-DOWN>
 <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 VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
@@ -149,6 +162,7 @@
 <SYNTAX DESTROY IN OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-OPEN>
 <SYNONYM DESTROY DAMAGE BREAK BLOCK SMASH>
 
+<SYNTAX DIG IN OBJECT (ON-GROUND IN-ROOM) = V-DIG>
 <SYNTAX DIG IN OBJECT (ON-GROUND IN-ROOM)
 	WITH OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE) = V-DIG>
 <SYNTAX DIG OBJECT (ON-GROUND IN-ROOM)
@@ -168,7 +182,6 @@
 <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 TAKE)
 	= V-EAT>
@@ -217,11 +230,9 @@
 	TO OBJECT (FIND ACTORBIT) (ON-GROUND) = V-GIVE PRE-GIVE>
 <SYNTAX GIVE OBJECT (FIND ACTORBIT) (ON-GROUND)
 	OBJECT (MANY HELD HAVE)	= V-SGIVE PRE-SGIVE>
-<SYNTAX HAND OBJECT (MANY HELD HAVE)
-	TO OBJECT (FIND ACTORBIT) (ON-GROUND) = V-GIVE PRE-GIVE>
-<SYNTAX HAND OBJECT (FIND ACTORBIT) (ON-GROUND)
-	OBJECT (MANY HELD HAVE)	= V-SGIVE PRE-SGIVE>
 <SYNONYM GIVE DONATE OFFER FEED>
+<COND (<N==? ,ZORK-NUMBER 3>
+       <SYNONYM GIVE HAND>)>
 
 <SYNTAX HATCH OBJECT = V-HATCH>
 
@@ -235,9 +246,6 @@
 <SYNTAX INFLAT OBJECT WITH
 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED) = V-INFLATE>
 
-<SYNTAX IS OBJECT IN OBJECT = V-IS-IN>
-<SYNTAX IS OBJECT ON OBJECT = V-IS-IN>
-
 <SYNTAX JUMP = V-LEAP>
 <SYNTAX JUMP OVER OBJECT = V-LEAP>
 <SYNTAX JUMP ACROSS OBJECT = V-LEAP>
@@ -249,6 +257,10 @@
 <SYNTAX KICK OBJECT = V-KICK>
 <SYNONYM KICK TAUNT>
 
+<COND (<==? ,ZORK-NUMBER 2>
+       <SYNTAX KILL OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM)
+	       = V-ATTACK>)>
+
 <SYNTAX KILL OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM)
 	WITH OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE) = V-ATTACK>
 <SYNONYM KILL MURDER SLAY DISPATCH>
@@ -309,6 +321,8 @@
 <SYNONYM MELT LIQUIFY>
 
 <SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO>
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO>
 <SYNTAX MOVE OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
 <SYNTAX MOVE OBJECT WITH OBJECT (FIND TOOLBIT) = V-TURN PRE-TURN>
 <SYNTAX ROLL UP OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
@@ -418,7 +432,6 @@
 <SYNTAX SKIP = V-SKIP>
 <SYNONYM SKIP HOP>
 
-;<SYNTAX SLIDE OBJECT = V-PUSH>
 <SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
 <SYNTAX SLIDE OBJECT (IN-ROOM ON-GROUND) OBJECT = V-PUSH-TO>
 <SYNTAX SLIDE OBJECT (IN-ROOM ON-GROUND) TO OBJECT = V-PUSH-TO>
@@ -445,6 +458,7 @@
 
 <SYNTAX SWIM = V-SWIM>
 <SYNTAX SWIM IN OBJECT = V-SWIM>
+<SYNTAX SWIM ACROSS OBJECT = V-SWIM>
 <SYNONYM SWIM BATHE WADE>
 
 <SYNTAX SWING OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE) = V-SWING>
@@ -454,7 +468,7 @@
 
 <SYNTAX TAKE OBJECT (FIND TAKEBIT) (ON-GROUND IN-ROOM 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 OUT OBJECT (FIND RMUNGBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
 <SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
 <SYNTAX TAKE UP OBJECT (FIND RMUNGBIT) = V-STAND>
 <SYNTAX TAKE OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
@@ -466,6 +480,7 @@
 <SYNONYM TAKE GET HOLD CARRY REMOVE GRAB CATCH>
 
 <SYNTAX TELL OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL>
+<SYNTAX TELL OBJECT (FIND ACTORBIT) (IN-ROOM) ABOUT OBJECT = V-TELL>
 <SYNONYM TELL ASK>
 
 <SYNTAX THROW OBJECT (HELD CARRIED HAVE)
@@ -488,8 +503,7 @@
 <SYNONYM TREASURE TEMPLE>
 
 <SYNTAX TURN OBJECT (FIND TURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
-	WITH OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
-	= V-TURN PRE-TURN>
+	WITH OBJECT (FIND RMUNGBIT) = V-TURN PRE-TURN>
 <SYNTAX TURN ON	OBJECT (FIND LIGHTBIT)
 	(HELD CARRIED ON-GROUND IN-ROOM) = V-LAMP-ON>
 <SYNTAX TURN ON OBJECT WITH OBJECT (HAVE) = V-LAMP-ON>
@@ -497,7 +511,6 @@
 	(HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE) = V-LAMP-OFF>
 <SYNTAX TURN OBJECT (FIND TURNBIT) TO OBJECT = V-TURN PRE-TURN>
 <SYNTAX TURN OBJECT (FIND TURNBIT) FOR OBJECT = V-TURN PRE-TURN>
-;<SYNTAX TURN OBJECT (FIND TURNBIT) = V-TURN PRE-TURN>
 <SYNONYM TURN SET FLIP SHUT>
 
 <SYNTAX UNLOCK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT
@@ -515,6 +528,7 @@
 <SYNTAX WAKE UP OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-ALARM>
 <SYNONYM WAKE AWAKE SURPRISE STARTLE>
 
+<SYNTAX WALK = V-WALK-AROUND>
 <SYNTAX WALK OBJECT = V-WALK>
 <SYNTAX WALK AWAY OBJECT = V-WALK>
 <SYNTAX WALK IN OBJECT = V-THROUGH>
@@ -529,6 +543,7 @@
 
 <SYNTAX WAVE OBJECT (HELD CARRIED TAKE HAVE) = V-WAVE>
 <SYNTAX WAVE OBJECT (HELD CARRIED TAKE HAVE) AT OBJECT = V-WAVE>
+<SYNTAX WAVE AT OBJECT = V-WAVE>
 <SYNONYM WAVE BRANDISH>
 
 <SYNTAX WEAR OBJECT = V-WEAR>
diff --git a/gverbs.zil b/gverbs.zil
index 2244f94..309103a 100644
--- a/gverbs.zil
+++ b/gverbs.zil
@@ -1,4 +1,4 @@
-			"Generic VERBS file for
+ 			"Generic VERBS file for
 			    The ZORK Trilogy
 		       started on 7/25/83 by SEM"
 
@@ -22,7 +22,7 @@
 
 <ROUTINE V-SUPER-BRIEF ()
 	 <SETG SUPER-BRIEF T>
-	 <TELL "Super-brief descriptions." CR>>
+	 <TELL "Superbrief descriptions." CR>>
 
 ;"V-DIAGNOSE is in ACTIONS.ZIL"
 
@@ -30,13 +30,33 @@
 	 <COND (<FIRST? ,WINNER> <PRINT-CONT ,WINNER>)
 	       (T <TELL "You are empty-handed." CR>)>>
 
-<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)
+<ROUTINE FINISH ("AUX" WRD)
 	 <V-SCORE>
-	 <COND (<OR <AND .ASK?
-			 <TELL 
+	 <REPEAT ()
+		 <CRLF>
+		 <TELL
+"Would you like to restart the game from the beginning, restore a saved
+game position, or end this session of the game?|
+(Type RESTART, RESTORE, or QUIT):|
+>">
+		 <READ ,P-INBUF ,P-LEXV>
+		 <SET WRD <GET ,P-LEXV 1>>
+		 <COND (<EQUAL? .WRD ,W?RESTART>
+			<RESTART>
+			<TELL "Failed." CR>)
+		       (<EQUAL? .WRD ,W?RESTORE>
+			<COND (<RESTORE>
+			       <TELL "Ok." CR>)
+			      (T
+			       <TELL "Failed." CR>)>)
+		       (<EQUAL? .WRD ,W?QUIT ,W?Q>
+			<QUIT>)>>>
+
+<ROUTINE V-QUIT ("AUX" SCOR)
+	 <V-SCORE>
+	 <TELL 
 "Do you wish to leave the game? (Y is affirmative): ">
-			 <YES?>>
-		    <NOT .ASK?>>
+	 <COND (<YES?>
 		<QUIT>)
 	       (ELSE <TELL "Ok." CR>)>>
 
@@ -78,19 +98,19 @@
 <ROUTINE V-VERSION ("AUX" (CNT 17))
 	%<COND (<==? ,ZORK-NUMBER 1>
 		'<TELL "ZORK I: The Great Underground Empire|
-Copyright (c) 1981, 1982, 1983 Infocom, Inc. ">)
+Infocom interactive fiction - a fantasy story|
+Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986">)
 	       (<==? ,ZORK-NUMBER 2>
 		'<TELL "ZORK II: The Wizard of Frobozz|
-***RENOVATED VERSION***|
-Copyright (c) 1981, 1982, 1983 Infocom, Inc. ">)
-	       (T
+Infocom interactive fiction - a fantasy story|
+Copyright (c) 1981, 1982, 1983, 1986">)
+	       (<==? ,ZORK-NUMBER 3>
 		'<TELL "ZORK III: The Dungeon Master|
-Copyright (c) 1982, 1983 Infocom, Inc. ">)>
-	<TELL "All rights reserved." CR>
-	<COND (<NOT <==? <BAND <GETB 0 1> 8> 0>>
-	       <TELL "Licensed to Tandy Corporation." CR>)>
+Infocom interactive fiction - a fantasy story|
+Copyright 1982, 1983, 1984, 1986">)>
+	<TELL " Infocom, Inc. All rights reserved." CR>
 	<TELL "ZORK is a registered trademark of Infocom, Inc.|
-Revision ">
+Release ">
 	<PRINTN <BAND <GET 0 1> *3777*>>
 	<TELL " / Serial number ">
 	<REPEAT ()
@@ -107,6 +127,25 @@ Revision ">
 	       (T
 		<TELL CR "** Disk Failure **" CR>)>>
 
+<ROUTINE V-COMMAND-FILE ()
+	 <DIRIN 1>
+	 <RTRUE>>
+
+<ROUTINE V-RANDOM ()
+	 <COND (<NOT <EQUAL? ,PRSO ,INTNUM>>
+		<TELL "Illegal call to #RND." CR>)
+	       (T
+		<RANDOM <- 0 ,P-NUMBER>>
+		<RTRUE>)>>
+
+<ROUTINE V-RECORD ()
+	 <DIROUT 4>
+	 <RTRUE>>
+
+<ROUTINE V-UNRECORD ()
+	 <DIROUT -4>
+	 <RTRUE>>
+
 ^L
 
 "Real Verb Functions"
@@ -114,25 +153,6 @@ Revision ">
 <ROUTINE V-ADVENT ()
 	 <TELL "A hollow voice says \"Fool.\"" CR>>
 
-<ROUTINE V-AGAIN ("AUX" (OBJ <>))
-	 <COND (<EQUAL? ,L-PRSA ,V?WALK>
-		<PERFORM ,L-PRSA ,L-PRSO>)
-	       (T
-		<COND (,L-PRSO
-		       <COND (<OR <NOT <LOC ,L-PRSO>>
-				  <FSET? ,L-PRSO ,INVISIBLE>>
-			      <SET OBJ ,L-PRSO>)>)>
-		<COND (,L-PRSI
-		       <COND (<OR <NOT <LOC ,L-PRSI>>
-				  <FSET? ,L-PRSI ,INVISIBLE>>
-			      <SET OBJ ,L-PRSI>)>)>
-		<COND (<AND .OBJ 
-			    <NOT <EQUAL? .OBJ ,PSEUDO-OBJECT ,ROOMS>>>
-		       <TELL "You can't see the " D .OBJ " anymore." CR>
-		       <RFATAL>)
-		      (T
-		       <PERFORM ,L-PRSA ,L-PRSO ,L-PRSI>)>)>>
-
 <ROUTINE V-ALARM ()
 	 <COND (<FSET? ,PRSO ,ACTORBIT>
 		<COND %<COND (<==? ,ZORK-NUMBER 1>
@@ -181,7 +201,7 @@ Revision ">
 <ROUTINE PRE-BOARD ("AUX" AV)
 	 <SET AV <LOC ,WINNER>>
 	 <COND %<COND (<==? ,ZORK-NUMBER 3>
-		       '(<EQUAL? ,PRSO ,WATER-CHANNEL>
+		       '(<EQUAL? ,PRSO ,WATER-CHANNEL ,TM-SEAT ,LAKE>
 		         <RFALSE>))
 		      (T
 		       '(<NULL-F> <RTRUE>))>
@@ -193,6 +213,9 @@ Revision ">
 		       <TELL "You are already in the " D .AV "!" CR>)
 		      (T
 		       <RFALSE>)>)
+	       (<EQUAL? ,PRSO ,WATER ,GLOBAL-WATER>
+		<PERFORM ,V?SWIM ,PRSO>
+		<RTRUE>)
 	       (T
 		<TELL
 "You have a theory on how to board a " D ,PRSO ", perhaps?" CR>)>
@@ -214,8 +237,13 @@ Revision ">
 	 <TELL
 "Bug? Not in a flawless program like this! (Cough, cough)." CR>>
 
+<ROUTINE TELL-NO-PRSI ()
+	 <TELL "You didn't say with what!" CR>>
+
 <ROUTINE PRE-BURN ()
-	 <COND (<FLAMING? ,PRSI>
+	 <COND (<NOT ,PRSI>
+		<TELL-NO-PRSI>)
+	       (<FLAMING? ,PRSI>
 	        <RFALSE>)
 	       (T
 	        <TELL "With a " D ,PRSI "??!?" CR>)>>
@@ -251,17 +279,26 @@ Revision ">
 <ROUTINE V-CLIMB-DOWN () <V-CLIMB-UP ,P?DOWN ,PRSO>>
 
 <ROUTINE V-CLIMB-FOO ()
-	 <V-CLIMB-UP ,P?UP ,PRSO>>
+	 %<COND (<==? ,ZORK-NUMBER 3>
+		 '<V-CLIMB-UP <COND (<EQUAL? ,PRSO ,ROPE ,GLOBAL-ROPE>
+				     ,P?DOWN)
+				    (T ,P?UP)>
+			      T>)
+		(ELSE
+		 '<V-CLIMB-UP ,P?UP ,PRSO>)>>
 
 <ROUTINE V-CLIMB-ON ()
 	 <COND (<FSET? ,PRSO ,VEHBIT>
-		<PERFORM ,V?BOARD ,PRSO>
+		%<COND (<==? ,ZORK-NUMBER 3>
+			'<V-CLIMB-UP ,P?UP T>)
+		       (ELSE
+			'<PERFORM ,V?BOARD ,PRSO>)>
 		<RTRUE>)
 	       (T
 		<TELL "You can't climb onto the " D ,PRSO "." CR>)>>
 
 <ROUTINE V-CLIMB-UP ("OPTIONAL" (DIR ,P?UP) (OBJ <>) "AUX" X TX)
-	 <COND (<AND <NOT .OBJ> ,PRSO>
+	 <COND (<AND .OBJ <NOT <EQUAL? ,PRSO ,ROOMS>>>
 		<SET OBJ ,PRSO>)>
 	 <COND (<SET TX <GETPT ,HERE .DIR>>
 		<COND (.OBJ
@@ -280,12 +317,19 @@ Revision ">
 			      <RTRUE>)>)>
 		<DO-WALK .DIR>
 		<RTRUE>)
-	       (<NOT .OBJ>
-		<TELL "You can't go that way." CR>)
 	       (<AND .OBJ
 		     <ZMEMQ ,W?WALL
 			    <SET X <GETPT ,PRSO ,P?SYNONYM>> <PTSIZE .X>>>
 		<TELL "Climbing the walls is to no avail." CR>)
+	       (%<COND (<==? ,ZORK-NUMBER 1>
+			'<AND <NOT <EQUAL? ,HERE ,PATH>>
+			      <EQUAL? .OBJ <> ,TREE>
+			      <GLOBAL-IN? ,TREE ,HERE>>)
+		       (ELSE '<NULL-F>)>
+		<TELL "There are no climbable trees here." CR>
+		<RTRUE>)
+	       (<EQUAL? .OBJ <> ,ROOMS>
+		<TELL "You can't go that way." CR>)
 	       (T
 	        <TELL "You can't do that!" CR>)>>
 
@@ -361,15 +405,22 @@ Revision ">
 <ROUTINE V-DIG ()
 	 <COND (<NOT ,PRSI>
 		<SETG PRSI ,HANDS>)>
-	 <COND (<EQUAL? ,PRSI ,SHOVEL>
-		<TELL "There's no reason to be digging here." CR>)
-	       (<FSET? ,PRSI ,TOOLBIT>
+	 %<COND (<==? ,ZORK-NUMBER 1>
+		 '<COND (<EQUAL? ,PRSI ,SHOVEL>
+			 <TELL "There's no reason to be digging here." CR>
+			 <RTRUE>)>)
+		(ELSE T)>
+	 <COND (<FSET? ,PRSI ,TOOLBIT>
 		<TELL "Digging with the " D ,PRSI " is slow and tedious." CR>)
 	       (T
 		<TELL "Digging with a " D ,PRSI " is silly." CR>)>>
 
 <ROUTINE V-DISEMBARK ()
-	 <COND (<NOT <EQUAL? <LOC ,WINNER> ,PRSO>>
+	 <COND (<AND <EQUAL? ,PRSO ,ROOMS>
+		     <FSET? <LOC ,WINNER> ,VEHBIT>>
+		<PERFORM ,V?DISEMBARK <LOC ,WINNER>>
+		<RTRUE>)
+	       (<NOT <EQUAL? <LOC ,WINNER> ,PRSO>>
 		<TELL "You're not in that!" CR>
 		<RFATAL>)
 	       (<FSET? ,HERE ,RLANDBIT>
@@ -444,13 +495,15 @@ Revision ">
 		<SET DRINK? T>
 		<SET NOBJ <LOC ,PRSO>>
 		<COND (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
-			   <IN? ,PRSO ,LOCAL-GLOBALS>
+			   <GLOBAL-IN? ,GLOBAL-WATER ,HERE>
 			   <EQUAL? ,PRSO ,PSEUDO-OBJECT>>
 		       <HIT-SPOT>)
-		      (<NOT .NOBJ>
+		      (<OR <NOT .NOBJ>
+			   <NOT <ACCESSIBLE? .NOBJ>>>
 		       <TELL
-"You don't have any to drink." CR>)
-		      (<NOT <IN? .NOBJ ,WINNER>>
+"There isn't any water here." CR>)
+		      (<AND <ACCESSIBLE? .NOBJ>
+			    <NOT <IN? .NOBJ ,WINNER>>>
 		       <TELL
 "You have to be holding the " D .NOBJ " first." CR>)
 		      (<NOT <FSET? .NOBJ ,OPENBIT>>
@@ -463,10 +516,12 @@ Revision ">
 "I don't think that the " D ,PRSO " would agree with you." CR>)>>
 
 <ROUTINE HIT-SPOT ()
+	 <COND (<AND <EQUAL? ,PRSO ,WATER>
+		     <NOT <GLOBAL-IN? ,GLOBAL-WATER ,HERE>>>
+		<REMOVE-CAREFULLY ,PRSO>)>
 	 <TELL
 "Thank you very much. I was rather thirsty (from all this talking,
-probably)." CR>
-         <REMOVE-CAREFULLY ,PRSO>>
+probably)." CR>>
 
 <ROUTINE V-ECHO ("AUX" LST MAX (ECH 0) CNT) 
 	 #DECL ((LST) <PRIMTYPE VECTOR> (MAX CNT ECH) FIX)
@@ -536,7 +591,7 @@ probably)." CR>
 				   <IN? ,COLLAR ,CERBERUS>>
 			      <SETG SPELL-VICTIM ,CERBERUS>)>
 		       <TELL
-"The " D ,PRSO " floats serenely in mid-air." CR>)
+"The " D ,PRSO " floats serenely in midair." CR>)
 		      (<AND <EQUAL? ,SPELL-USED ,W?FRY>
 			    <FSET? ,PRSO ,TAKEBIT>>
 		       <SETG SPELL-HANDLED? T>
@@ -554,8 +609,7 @@ probably)." CR>
 
 <ROUTINE REMOVE-CAREFULLY (OBJ "AUX" OLIT)
 	 <COND (<EQUAL? .OBJ ,P-IT-OBJECT>
-		<SETG P-IT-OBJECT <>>
-		<SETG P-IT-LOC <>>)>
+		<SETG P-IT-OBJECT <>>)>
 	 <SET OLIT ,LIT>
 	 <REMOVE .OBJ>
 	 <SETG LIT <LIT? ,HERE>>
@@ -576,20 +630,34 @@ probably)." CR>
 		<TELL "There's nothing special about the " D ,PRSO "." CR>)>>
 
 <ROUTINE V-EXIT ()
-	 <DO-WALK ,P?OUT>>
+	 <COND (<AND <EQUAL? ,PRSO <> ,ROOMS>
+		     <FSET? <LOC ,WINNER> ,VEHBIT>>
+		<PERFORM ,V?DISEMBARK <LOC ,WINNER>>
+		<RTRUE>)
+	       (<AND ,PRSO <IN? ,WINNER ,PRSO>>
+		<PERFORM ,V?DISEMBARK ,PRSO>
+		<RTRUE>)
+	       (ELSE
+		<DO-WALK ,P?OUT>)>>
 
 <ROUTINE V-EXORCISE ()
 	 <TELL "What a bizarre concept!" CR>>
 
 <ROUTINE PRE-FILL ("AUX" TX)
-	 <COND (<AND <NOT ,PRSI> <SET TX <GETPT ,HERE ,P?GLOBAL>>>
-		<COND (<ZMEMQB ,GLOBAL-WATER .TX <- <PTSIZE .TX> 1>>
-		       <SETG PRSI ,GLOBAL-WATER>
-		       <RFALSE>)
+	 <COND (<NOT ,PRSI>
+		<SET TX <GETPT ,HERE ,P?GLOBAL>>
+		<COND (<AND .TX <ZMEMQB ,GLOBAL-WATER .TX <- <PTSIZE .TX> 1>>>
+		       <PERFORM ,V?FILL ,PRSO ,GLOBAL-WATER>
+		       <RTRUE>)
+		      (<IN? ,WATER <LOC ,WINNER>>
+		       <PERFORM ,V?FILL ,PRSO ,WATER>
+		       <RTRUE>)
 		      (T
 		       <TELL "There is nothing to fill it with." CR>
 		       <RTRUE>)>)>
-	 <COND (<NOT <EQUAL? ,PRSI ,GLOBAL-WATER>>
+	 <COND (<EQUAL? ,PRSI ,WATER>
+		<RFALSE>)
+	       (<NOT <EQUAL? ,PRSI ,GLOBAL-WATER>>
 		<PERFORM ,V?PUT ,PRSI ,PRSO>
 		<RTRUE>)>>
 
@@ -689,17 +757,6 @@ D ,PRSO "." CR>)>)
 <ROUTINE V-INFLATE ()
 	 <TELL "How can you inflate that?" CR>>
 
-<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-KICK () <HACK-HACK "Kicking the ">>
 
 <ROUTINE V-KISS ()
@@ -737,6 +794,9 @@ D ,PRSO "." CR>)>)
 			      <SETG LIT <LIT? ,HERE>>
 			      <CRLF>
 			      <V-LOOK>)>)>)
+	       (<FSET? ,PRSO ,BURNBIT>
+		<TELL
+"If you wish to burn the " D ,PRSO ", you should say so." CR>)
 	       (T
 		<TELL "You can't turn that on." CR>)>
 	 <RTRUE>>
@@ -817,6 +877,11 @@ killing yourself." CR CR>
 		       <COND (<AND <FIRST? ,PRSO>
 				   <PRINT-CONT ,PRSO>>
 			      <RTRUE>)
+			     %<COND (<==? ,ZORK-NUMBER 3>
+				     '(<FSET? ,PRSO ,SURFACEBIT>
+				       <TELL
+"There is nothing on the " D ,PRSO "." CR>))
+				    (ELSE '(<NULL-F> <RTRUE>))>
 			     (T
 			      <TELL "The " D ,PRSO " is empty." CR>)>)
 		      (T
@@ -937,13 +1002,21 @@ by knocking down the wall on the east of the room." CR>
 			       (T
 				<TELL "You're not in anything!" CR>)>))
 		      (T '(<NULL-F> T))>
+	       (<FSET? <LOC ,WINNER> ,VEHBIT>
+		<PERFORM ,V?THROW ,PRSO>
+		<RTRUE>)
 	       (T
 		<TELL "Huh?" CR>)>>
 
 <ROUTINE V-PICK () <TELL "You can't pick that." CR>>
 
 <ROUTINE V-PLAY ()
-    <TELL "That's silly!" CR>>
+    <COND (<FSET? ,PRSO ,ACTORBIT>
+	   <TELL
+"You become so engrossed in the role of the " D ,PRSO " that
+you kill yourself, just as he might have done!" CR>
+	   <JIGS-UP "">)
+	  (ELSE <TELL "That's silly!" CR>)>>
 
 <ROUTINE V-PLUG ()
 	 <TELL "This has no effect." CR>>
@@ -953,6 +1026,10 @@ by knocking down the wall on the east of the room." CR>
 		<REMOVE-CAREFULLY ,PRSO>
 	        <COND (<FLAMING? ,PRSI>
 		       <TELL "The " D ,PRSI " is extinguished." CR>
+		       %<COND (<==? ,ZORK-NUMBER 2>
+			       '<COND (<EQUAL? ,PRSI ,BINF-FLAG>
+				       <SETG BINF-FLAG <>>)>)
+			      (ELSE '<NULL-F>)>
 		       <FCLEAR ,PRSI ,ONBIT>
 		       <FCLEAR ,PRSI ,FLAMEBIT>)
 	              (T
@@ -1099,8 +1176,7 @@ by knocking down the wall on the east of the room." CR>
 		         <SETG P-CONT <>>
 		         <COND (<EQUAL? ,HERE ,MSTAIRS>
 		                <CRLF>
-		                <GOTO ,FRONT-DOOR>
-				<RTRUE>)
+		                <GOTO ,FRONT-DOOR>)
 		               (T
 		                <TELL "Nothing happens." CR>)>
 		                <RTRUE>)>)
@@ -1108,14 +1184,14 @@ by knocking down the wall on the east of the room." CR>
 		 '<COND (<NOT ,P-CONT>
 			 <TELL "Say what?" CR>
 			 <RTRUE>)>)>
+	 <SETG QUOTE-FLAG <>>
 	 <COND (<SET V <FIND-IN ,HERE ,ACTORBIT>>
 		<TELL "You must address the " D .V " directly." CR>
 		<SETG P-CONT <>>)
 	       (<NOT <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?HELLO>>
-		<SETG P-CONT <>>
+	        <SETG P-CONT <>>
 		<TELL
 "Talking to yourself is a sign of impending mental collapse." CR>)>
-	 <SETG QUOTE-FLAG <>>
 	 <RTRUE>>
 
 <ROUTINE V-SEARCH ()
@@ -1143,8 +1219,11 @@ by knocking down the wall on the east of the room." CR>
 		<COND (<FSET? ,PRSO ,OPENBIT>
 		       <COND (<FIRST? ,PRSO>
 			      <SHAKE-LOOP>
-			      <TELL "The contents of the " D, PRSO " spills ">
-	                      <COND (<NOT <FSET? ,HERE ,RLANDBIT>>
+			      <TELL "The contents of the " D, PRSO " spill ">
+	                      <COND (%<COND (<==? ,ZORK-NUMBER 3>
+					     '<FSET? ,HERE ,NONLANDBIT>)
+					    (ELSE
+					     '<NOT <FSET? ,HERE ,RLANDBIT>>)>
 		                     <TELL "out and disappears">)
 	                            (T
 		                     <TELL "to the ground">)>
@@ -1247,7 +1326,7 @@ D ,PRSO " with a weapon." CR>)
 			   <==? ,ZORK-NUMBER 2>>
 		       '(<GLOBAL-IN? ,GLOBAL-WATER ,HERE>
 		         <TELL "Swimming isn't usually allowed in the ">
-		         <COND (,PRSO
+		         <COND (<NOT <EQUAL? ,PRSO ,WATER ,GLOBAL-WATER>>
 	                        <TELL D ,PRSO ".">)
 		               (T
 		                <TELL "dungeon.">)>
@@ -1285,8 +1364,14 @@ D ,PRSO " with a weapon." CR>)
 	       (,PRSI
 		<COND (<EQUAL? ,PRSI ,GROUND>
 		       <SETG PRSI <>>
-		       <RFALSE>)
-		      (<NOT <EQUAL? ,PRSI <LOC ,PRSO>>>
+		       <RFALSE>)>
+		%<COND (<==? ,ZORK-NUMBER 2>
+			'<COND (<EQUAL? ,PRSO ,DOOR-KEEPER>
+				<SETG PRSI <>>
+				<RFALSE>)>)
+		       (ELSE
+			'<NULL-F>)>
+		<COND (<NOT <EQUAL? ,PRSI <LOC ,PRSO>>>
 		       <TELL "The " D ,PRSO " isn't in the " D ,PRSI "." CR>)
 		      (T
 		       <SETG PRSI <>>
@@ -1308,7 +1393,7 @@ D ,PRSO " with a weapon." CR>)
 		       <SETG HERE <LOC ,WINNER>>)
 		      (T
 		       <TELL "The " D ,PRSO
-" pauses for a moment, perhaps thinking that you should re-read
+" pauses for a moment, perhaps thinking that you should reread
 the manual." CR>)>)
 	       (T
 		<TELL "You can't talk to the " D ,PRSO "!" CR>
@@ -1318,52 +1403,40 @@ the manual." CR>)>)
 
 <ROUTINE V-THROUGH ("OPTIONAL" (OBJ <>) "AUX" M)
 	#DECL ((OBJ) <OR OBJECT FALSE> (M) <PRIMTYPE VECTOR>)
-	<COND (<FSET? ,PRSO ,DOORBIT>
-	       <DO-WALK <OTHER-SIDE ,PRSO>>
+	<COND (<AND <FSET? ,PRSO ,DOORBIT>
+		    <SET M <OTHER-SIDE ,PRSO>>>
+	       <DO-WALK .M>
 	       <RTRUE>)
 	      (<AND <NOT .OBJ> <FSET? ,PRSO ,VEHBIT>>
 	       <PERFORM ,V?BOARD ,PRSO>
 	       <RTRUE>)
-	      (<AND <NOT .OBJ> <NOT <FSET? ,PRSO ,TAKEBIT>>>
-	       <COND %<COND (<==? ,ZORK-NUMBER 2>
-		             '(<AND ,SCOL-ROOM
-			            <OR .OBJ <EQUAL? ,PRSO ,CURTAIN>>>
-	                       <SCOL-GO .OBJ>
-	                       <RTRUE>))
-			    (T
-			     '(<NULL-F> <RTRUE>))>
-		     %<COND (<==? ,ZORK-NUMBER 2>
-			    '(<AND <EQUAL? ,HERE ,DEPOSITORY>
-	                           <EQUAL? ,PRSO ,SNWL>
-	       			   ,SCOL-ROOM>
-	       		      <SCOL-GO .OBJ>
-	            	      <RTRUE>))
-			    (T
-			     '(<NULL-F> <RTRUE>))>
-		     %<COND (<==? ,ZORK-NUMBER 2>
-			     '(<AND <EQUAL? ,HERE ,SCOL-ACTIVE>
-		                    <EQUAL? ,PRSO 
-					     <GET <SET M <GET-WALL ,HERE>> 1>>>
-	                       <SETG SCOL-ROOM <GET .M 2>>
-	                       <SETG PRSO <GETP ,PRSO ,P?SIZE>>
-	                       <COND (.OBJ <SCOL-OBJ .OBJ 0 ,DEPOSITORY>)
-		                     (T
-		                      <SCOL-THROUGH 0 ,DEPOSITORY>)>
-	                       <RTRUE>))
-			    (T
-			     '(<NULL-F> <RTRUE>))>
-		     %<COND (<==? ,ZORK-NUMBER 2>
-			     '(<EQUAL? ,PRSO ,CURTAIN>
-	                       <TELL
+	      (<OR .OBJ <NOT <FSET? ,PRSO ,TAKEBIT>>>
+	       %<COND (<==? ,ZORK-NUMBER 2>
+		       '<COND (<AND ,SCOL-ROOM
+				   <OR .OBJ <EQUAL? ,PRSO ,CURTAIN>>>
+			      <SCOL-GO .OBJ>
+			      <RTRUE>)
+			     (<AND <EQUAL? ,HERE ,DEPOSITORY>
+				   <EQUAL? ,PRSO ,SNWL>
+				   ,SCOL-ROOM>
+			      <SCOL-GO .OBJ>
+			      <RTRUE>)
+			     (<AND <EQUAL? ,HERE ,SCOL-ACTIVE>
+				   <EQUAL? ,PRSO 
+					   <GET <SET M <GET-WALL ,HERE>> 1>>>
+			      <SETG SCOL-ROOM <GET .M 2>>
+			      <SETG PRSO <GETP ,PRSO ,P?SIZE>>
+			      <COND (.OBJ <SCOL-OBJ .OBJ 0 ,DEPOSITORY>)
+				    (T
+				     <SCOL-THROUGH 0 ,DEPOSITORY>)>
+			      <RTRUE>)
+			     (<EQUAL? ,PRSO ,CURTAIN>
+			      <TELL
 "You can't go more than part way through the curtain." CR>
-	                             <RTRUE>))
-			    (T
-			     '(<NULL-F> <RTRUE>))>
-		     (T
-		      <TELL
-"You hit your head against the " D ,PRSO " as you attempt this feat." CR>)>)
-	      (.OBJ
-	       <TELL "You can't do that!" CR>)
+			      <RTRUE>)>)
+		      (ELSE '<NULL-F>)>
+	       <TELL
+"You hit your head against the " D ,PRSO " as you attempt this feat." CR>)
 	      (<IN? ,PRSO ,WINNER>
 	       <TELL "That would involve quite a contortion!" CR>)
 	      (T
@@ -1374,15 +1447,17 @@ the manual." CR>)>)
 		<COND (<EQUAL? ,PRSI ,ME>
 		       <TELL
 "A terrific throw! The " D ,PRSO>
+		       <SETG WINNER ,PLAYER>
 		       <JIGS-UP " hits you squarely in the head. Normally,
 this wouldn't do much damage, but by incredible mischance, you fall over
 backwards trying to duck, and break your neck, justice being swift and
 merciful in the Great Underground Empire.">)
-		      (<FSET? ,PRSI ,ACTORBIT>
+		      (<AND ,PRSI <FSET? ,PRSI ,ACTORBIT>>
 		       <TELL
 "The " D ,PRSI " ducks as the " D ,PRSO " flies by and crashes to the ground."
 CR>)
-		      (T <TELL "Thrown." CR>)>)>>
+		      (T <TELL "Thrown." CR>)>)
+	       (ELSE <TELL "Huh?" CR>)>>
 
 <ROUTINE V-THROW-OFF ()
 	 <TELL "You can't throw anything off of that!" CR>>
@@ -1411,7 +1486,20 @@ CR>)
 		<TELL "Nothing happens." CR>)>>
 
 <ROUTINE PRE-TURN ()
-	 <COND (<NOT <FSET? ,PRSO ,TURNBIT>>
+	 %<COND (<==? ,ZORK-NUMBER 3>
+		 '<COND (<AND <EQUAL? ,PRSI <> ,ROOMS>
+			      <EQUAL? ,PRSO ,DIAL ,TM-DIAL ,T-BAR>>
+			 <TELL
+"You should turn the " D ,PRSO " to something." CR>
+			 <RTRUE>)>)
+		(ELSE T)>
+	 <COND (%<COND (<==? ,ZORK-NUMBER 1>
+			'<AND <EQUAL? ,PRSI <> ,ROOMS>
+			      <NOT <EQUAL? ,PRSO ,BOOK>>>)
+		       (ELSE
+			'<EQUAL? ,PRSI <> ,ROOMS>)>
+		<TELL "Your bare hands don't appear to be enough." CR>)
+	       (<NOT <FSET? ,PRSO ,TURNBIT>>
 		<TELL "You can't turn that!" CR>)>>
 
 <ROUTINE V-TURN ()
@@ -1471,6 +1559,7 @@ CR>)
 			      <RFATAL>)>)>)
 	       (<AND <NOT ,LIT>
 		     <PROB 80>
+		     <EQUAL? ,WINNER ,ADVENTURER>
 		     <NOT <FSET? ,HERE ,NONLANDBIT>>>
 		<COND (,SPRAYED?
 		       <TELL
@@ -1495,8 +1584,9 @@ direction." CR>
 	 <TELL "Use compass directions for movement." CR>>
 
 <ROUTINE V-WALK-TO ()
-	 <COND (<OR <IN? ,PRSO ,HERE>
-		    <GLOBAL-IN? ,PRSO ,HERE>>
+	 <COND (<AND ,PRSO
+		     <OR <IN? ,PRSO ,HERE>
+			 <GLOBAL-IN? ,PRSO ,HERE>>>
 		<TELL "It's here!" CR>)
 	       (T
 		<TELL "You should supply a direction!" CR>)>>
@@ -1556,7 +1646,7 @@ direction." CR>
 detect a dim light from the east." CR>)>)
 		       (T
 			'<NULL-F>)>
-		<RETURN <>>)>
+		<RFALSE>)>
 	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
 		<FSET ,HERE ,TOUCHBIT>
 		<SET V? T>)>
@@ -1571,7 +1661,10 @@ detect a dim light from the east." CR>)>)
 		<COND (<FSET? <SET AV <LOC ,WINNER>> ,VEHBIT>
 		       <TELL ", in the " D .AV>)>
 		<CRLF>)>
-	 <COND (<OR .LOOK? <NOT ,SUPER-BRIEF>>
+	 <COND (%<COND (<==? ,ZORK-NUMBER 2>
+			'<OR .LOOK? <NOT ,SUPER-BRIEF> <EQUAL? ,HERE ,ZORK3>>)
+		       (ELSE
+			'<OR .LOOK? <NOT ,SUPER-BRIEF>>)>
 		<SET AV <LOC ,WINNER>>
 		;<COND (<FSET? .AV ,VEHBIT>
 		       <TELL "(You are in the " D .AV ".)" CR>)>
@@ -1617,7 +1710,8 @@ long description (fdesc or ldesc), otherwise will print short."
 		<TELL "A " D .OBJ>
 		<COND (<FSET? .OBJ ,ONBIT>
 		       <TELL " (providing light)">)
-		      (<FSET? .OBJ ,WEARBIT>
+		      (<AND <FSET? .OBJ ,WEARBIT>
+			    <IN? .OBJ ,WINNER>>
 		       <TELL " (being worn)">)>)>
 	 %<COND (<==? ,ZORK-NUMBER 2>
 		 '<COND (<AND <EQUAL? .OBJ ,SPELL-VICTIM>
@@ -1665,8 +1759,19 @@ long description (fdesc or ldesc), otherwise will print short."
 		<SET INV? T>)
 	       (ELSE
 		<REPEAT ()
-			<COND (<NOT .Y>
-			       <RETURN>)
+			<COND %<COND (<==? ,ZORK-NUMBER 2>
+				      '(<NOT .Y>
+					<COND (<AND <0? .LEVEL>
+						    <==? ,SPELL? ,S-FANTASIZE>
+						    <PROB 20>>
+					       <TELL "There is a "
+						     <PICK-ONE ,FANTASIES>
+						     " here." CR>
+					       <SET 1ST? <>>)>
+					<RETURN>))
+				     (ELSE
+				      '(<NOT .Y>
+					<RETURN>))>
 			      (<EQUAL? .Y .AV> <SET PV? T>)
 			      (<EQUAL? .Y ,WINNER>)
 			      (<AND <NOT <FSET? .Y ,INVISIBLE>>
@@ -1705,7 +1810,8 @@ long description (fdesc or ldesc), otherwise will print short."
 			       <DESCRIBE-OBJECT .Y .V? .LEVEL>)
 			      (<AND <FIRST? .Y> <SEE-INSIDE? .Y>>
 			       <SET LEVEL <+ .LEVEL 1>> ;"not in Zork III"
-			       <PRINT-CONT .Y .V? .LEVEL>)>)>
+			       <PRINT-CONT .Y .V? .LEVEL>
+			       <SET LEVEL <- .LEVEL 1>> ;"not in Zork III")>)>
 		 <SET Y <NEXT? .Y>>>
 	 <COND (<AND .1ST? .SHIT> <RFALSE>) (T <RTRUE>)>>
 
@@ -1763,10 +1869,6 @@ for the final secret.\"" CR>)>)
 		<SCORE-UPD .TEMP>
 		<PUTP .OBJ ,P?VALUE 0>)>>
 
-<ROUTINE FINISH ()
-	 <V-SCORE>
-	 <QUIT>>
-
 <ROUTINE YES? ()
 	 <PRINTI ">">
 	 <READ ,P-INBUF ,P-LEXV>
@@ -1844,6 +1946,7 @@ for the final secret.\"" CR>)>)
 		<RFALSE>)
 	       (T
 		<MOVE ,PRSO ,WINNER>
+		<FCLEAR ,PRSO ,NDESCBIT>
 		<FSET ,PRSO ,TOUCHBIT>
 		%<COND (<==? ,ZORK-NUMBER 2>
 			'<COND (<EQUAL? ,SPELL? ,S-FILCH>
@@ -1910,7 +2013,8 @@ for the final secret.\"" CR>)>)
 <CONSTANT DEXITSTR 1>
 
 <GLOBAL INDENTS
-	<TABLE ""
+	<TABLE (PURE)
+	       ""
 	       "  "
 	       "    "
 	       "      "
@@ -1940,8 +2044,9 @@ for the final secret.\"" CR>)>)
 
 <ROUTINE GOTO (RM "OPTIONAL" (V? T)
 	       "AUX" (LB <FSET? .RM ,RLANDBIT>) (WLOC <LOC ,WINNER>)
-	             (AV <>) OLIT)
+	             (AV <>) OLIT OHERE)
 	 <SET OLIT ,LIT>
+	 <SET OHERE ,HERE>
 	 <COND (<FSET? .WLOC ,VEHBIT>
 		<SET AV <GETP .WLOC ,P?VTYPE>>)>
 	 <COND (<AND <NOT .LB>
@@ -1967,8 +2072,20 @@ for the final secret.\"" CR>)>)
 			    <NOT <FSET? ,HERE ,RLANDBIT>>
 			    <NOT ,DEAD>
 			    <FSET? .WLOC ,VEHBIT>>
-		       <TELL
-"The " D .WLOC " comes to a rest on the shore." CR CR>)>
+		       %<COND (<==? ,ZORK-NUMBER 1>
+			       '<TELL
+"The " D .WLOC " comes to a rest on the shore." CR CR>)
+			      (<==? ,ZORK-NUMBER 2>
+			       '<COND (<EQUAL? .WLOC ,BALLOON>
+				       <TELL
+"The balloon lands." CR>)
+				      (<FSET? .WLOC ,VEHBIT>
+				       <TELL
+"The " D .WLOC " comes to a stop." CR CR>)>)
+			      (<==? ,ZORK-NUMBER 3>
+			       '<COND (<FSET? .WLOC ,VEHBIT>
+				       <TELL
+"The " D .WLOC " comes to a stop." CR CR>)>)>)>
 		<COND (.AV
 		       <MOVE .WLOC .RM>)
 		      (T
@@ -2004,18 +2121,21 @@ stumbled into an authentic grue lair!">))
 		<APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER>
 		<SCORE-OBJ .RM>
 		<COND (<NOT <EQUAL? ,HERE .RM>> <RTRUE>)
-		      (<NOT <EQUAL? ,ADVENTURER ,WINNER>>
+		      (<AND <NOT <EQUAL? ,ADVENTURER ,WINNER>>
+			    <IN? ,ADVENTURER .OHERE>>
 		       <TELL "The " D ,WINNER " leaves the room." CR>)
-		      (.V? <V-FIRST-LOOK>)>
+		      %<COND (<==? ,ZORK-NUMBER 1>
+			      '(<AND <EQUAL? ,HERE .OHERE>
+				      ;"no double description"
+				     <EQUAL? ,HERE ,ENTRANCE-TO-HADES>>
+				<RTRUE>))
+			     (ELSE
+			      '(<NULL-F> <RTRUE>))>
+		      (<AND .V?
+			    <EQUAL? ,WINNER ,ADVENTURER>>
+		       <V-FIRST-LOOK>)>
 		<RTRUE>)>>
 
-;"0 -> no next, 1 -> success, 2 -> failed move"
-
-<ROUTINE GO-NEXT (TBL "AUX" VAL)
-	 <COND (<SET VAL <LKP ,HERE .TBL>>
-		<COND (<NOT <GOTO .VAL>> 2)
-		      (T 1)>)>>
-
 <ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
 	 <REPEAT ()
 		 <COND (<G? <SET CNT <+ .CNT 1>> .LEN>
@@ -2029,11 +2149,6 @@ stumbled into an authentic grue lair!">))
 	 <SETG P-WALK-DIR .DIR>
 	 <PERFORM ,V?WALK .DIR>>
 
-<ROUTINE WORD-TYPE (OBJ WORD "AUX" SYNS)
-	 <ZMEMQ .WORD
-		<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
-		<- </ <PTSIZE .SYNS> 2> 1>>>
-
 <ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" TX)
 	 <COND (<SET TX <GETPT .OBJ2 ,P?GLOBAL>>
 		<ZMEMQB .OBJ1 .TX <- <PTSIZE .TX> 1>>)>> 
@@ -2049,11 +2164,6 @@ stumbled into an authentic grue lair!">))
 		       (<NOT <SET W <NEXT? .W>>>
 			<RETURN <>>)>>>
 
-
-<ROUTINE IN-HERE? (OBJ)
-	 <OR <IN? .OBJ ,HERE>
-	     <GLOBAL-IN? .OBJ ,HERE>>>
-
 <ROUTINE HELD? (CAN)
 	 <REPEAT ()
 		 <SET CAN <LOC .CAN>>
@@ -2071,15 +2181,19 @@ stumbled into an authentic grue lair!">))
 			       <RETURN .P>)>)>>>
 
 <ROUTINE MUNG-ROOM (RM STR)
+	 %<COND (<==? ,ZORK-NUMBER 2>
+		 '<COND (<EQUAL? .RM ,INSIDE-BARROW>
+			 <RFALSE>)>)
+		(ELSE T)>
 	 <FSET .RM ,RMUNGBIT>
 	 <PUTP .RM ,P?LDESC .STR>>
 
 <ROUTINE THIS-IS-IT (OBJ)
-	 <SETG P-IT-OBJECT .OBJ>
-	 <SETG P-IT-LOC ,HERE>>
+	 <SETG P-IT-OBJECT .OBJ>>
 
-<GLOBAL SWIMYUKS
-	<LTABLE 0 "You can't swim in the dungeon.">>
+<COND (<N==? ,ZORK-NUMBER 3>
+       <GLOBAL SWIMYUKS
+	       <LTABLE 0 "You can't swim in the dungeon.">>)>
 
 <GLOBAL HELLOS
 	<LTABLE 0 "Hello."
diff --git a/parser.cmp b/parser.cmp
new file mode 100644
index 0000000..055bb67
--- /dev/null
+++ b/parser.cmp
@@ -0,0 +1,2111 @@
+
+;COMPARISON OF SS:<ZORK1>GPARSER.ZIL.37 AND SS:<Z6>PARSER.ZIL.273
+;OPTIONS ARE    /3
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 1-1 (0)
+			"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 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 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
+;"INBUF - Input buffer for READ"   
+ 
+<GLOBAL P-INBUF
+	<ITABLE 120 (BYTE LENGTH) 0>
+	;<ITABLE BYTE 60>>
+;"Parse-cont variable"  
+ 
+<GLOBAL P-CONT <>>  
+ 
+<GLOBAL P-IT-OBJECT <>>
+;"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 <>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 1-1 (0)
+"PARSER for
+				MAGE
+	 (c) Copyright 1985 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 P-AND <>>
+<GLOBAL PRSA <>>
+<GLOBAL PRSI <>>
+<GLOBAL PRSO <>>
+<GLOBAL P-TABLE 0>
+<GLOBAL P-ONEOBJ 0>
+<GLOBAL P-SYNTAX 0>
+<GLOBAL P-CCTBL <TABLE 0 0 0 0>>
+;"pointers used by CLAUSE-COPY (source/destination beginning/end pointers)"
+<CONSTANT CC-SBPTR 0>
+<CONSTANT CC-SEPTR 1>
+<CONSTANT CC-DBPTR 2>
+<CONSTANT CC-DEPTR 3>
+<GLOBAL P-LEN 0>
+<GLOBAL WINNER 0>
+<GLOBAL P-LEXV
+	<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
+<GLOBAL AGAIN-LEXV
+	<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
+<GLOBAL RESERVE-LEXV
+	<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
+<GLOBAL RESERVE-PTR <>>
+<GLOBAL P-INBUF
+	<ITABLE 120 (BYTE LENGTH) 0>
+	;<ITABLE BYTE 60>> ;"INBUF - Input buffer for READ"
+<GLOBAL OOPS-INBUF
+	<ITABLE 120 (BYTE LENGTH) 0>
+	;<ITABLE BYTE 60>>
+<GLOBAL OOPS-TABLE <TABLE <> <> <> <>>>
+<CONSTANT O-PTR 0>	"word pointer to unknown token in P-LEXV"
+<CONSTANT O-START 1>	"word pointer to sentence start in P-LEXV"
+<CONSTANT O-LENGTH 2>	"byte length of unparsed tokens in P-LEXV"
+<CONSTANT O-END 3>	"byte pointer to first free byte in OOPS-INBUF"
+<GLOBAL P-CONT <>> ;"Parse-cont variable"
+<GLOBAL P-IT-OBJECT <>>
+<GLOBAL LAST-PSEUDO-LOC <>>
+<GLOBAL P-OFLAG <>> ;"Orphan flag"
+<GLOBAL P-MERGED <>>
+<GLOBAL P-ACLAUSE <>>
+<GLOBAL P-ANAM <>>
+<GLOBAL P-AADJ <>>
+<GLOBAL P-PNAM <>>
+<GLOBAL P-PADJN <>>
+;"Parser variables and temporaries"
+<CONSTANT P-LEXWORDS 1> ;"Byte offset to # of entries in LEXV"
+<CONSTANT P-LEXSTART 1> ;"Word offset to start of LEXV entries"
+<CONSTANT P-LEXELEN 2> ;"Number of words per LEXV entry"
+<CONSTANT P-WORDLEN 4>
+<CONSTANT P-PSOFF 4> ;"Offset to parts of speech byte"
+<CONSTANT P-P1OFF 5> ;"Offset to first part of speech"
+<CONSTANT P-P1BITS 3> ;"First part of speech bit mask in PSOFF byte"
+<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 #BYTE 0 #BYTE 0>>
+<GLOBAL P-OVTBL
+	<TABLE 0 #BYTE 0 #BYTE 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 P-INPUT-WORDS <>>
+<GLOBAL P-END-ON-PREP <>>
+" 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 <>) (OF-FLAG <>)
+		       OWINNER OMERGED LEN (DIR <>) (NW 0) (LW 0) (CNT -1))
+	<REPEAT ()
+		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
+		      (T
+		       <COND (<NOT ,P-OFLAG>
+			      <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>
+		       <PUT ,P-ITBL .CNT 0>)>>
+	<SET OWINNER ,WINNER>
+	<SET OMERGED ,P-MERGED>
+	<SETG P-ADVERB <>>
+	<SETG P-MERGED <>>
+	<SETG P-END-ON-PREP <>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-14 (2751)
+	       <SETG HERE <META-LOC ,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>
+			   <EQUAL? ,PLAYER ,WINNER>
+			   <NOT <VERB? SAY>>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-20 (3570)
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <SETG LIT <LIT? ,HERE>>)>
+	<COND (,RESERVE-PTR
+	       <SET PTR ,RESERVE-PTR>
+	       <STUFF ,RESERVE-LEXV ,P-LEXV>
+	       <COND (<AND ,VERBOSITY <EQUAL? ,PLAYER ,WINNER>>
+		      <CRLF>)>
+	       <SETG RESERVE-PTR <>>
+	       <SETG P-CONT <>>)
+	      (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <COND (<AND ,VERBOSITY <EQUAL? ,PLAYER ,WINNER>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-31 (3297)
+	       <COND (<NOT ,SUPER-BRIEF> <CRLF>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-41 (4262)
+	       <COND (,VERBOSITY <CRLF>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-35 (3438)
+	<COND (<ZERO? ,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 ()
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-45 (4395)
+	<COND (<ZERO? ,P-LEN>
+	       <BEG-PARDON>
+	       <RFALSE>)>
+	<COND (<EQUAL? <SET WRD <GET ,P-LEXV .PTR>> ,W?OOPS>
+	       <COND (<EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+			      ,W?PERIOD ,W?COMMA>
+		      <SET PTR <+ .PTR ,P-LEXELEN>>
+		      <SETG P-LEN <- ,P-LEN 1>>)>
+	       <COND (<NOT <G? ,P-LEN 1>>
+		      <TELL "I can't help your clumsiness." CR>
+		      <RFALSE>)
+		     (<GET ,OOPS-TABLE ,O-PTR>
+		      <COND (<AND <G? ,P-LEN 2>
+				  <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					  ,W?QUOTE>>
+			     <TELL
+"Sorry, you can't correct mistakes in quoted text." CR>
+			     <RFALSE>)
+			    (<G? ,P-LEN 2>
+			     <TELL
+"Warning: only the first word after OOPS is used." CR>)>
+		      <PUT ,AGAIN-LEXV <GET ,OOPS-TABLE ,O-PTR>
+			   <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>
+		      <SETG WINNER .OWINNER> ;"maybe fix oops vs. chars.?"
+		      <INBUF-ADD <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 6>>
+				 <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 7>>
+				 <+ <* <GET ,OOPS-TABLE ,O-PTR> ,P-LEXELEN> 3>>
+		      <STUFF ,AGAIN-LEXV ,P-LEXV>
+		      <SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+		      <SET PTR <GET ,OOPS-TABLE ,O-START>>
+		      <INBUF-STUFF ,OOPS-INBUF ,P-INBUF>)
+		     (T
+		      <PUT ,OOPS-TABLE ,O-END <>>
+		      <TELL "There was no word to replace!" CR>
+		      <RFALSE>)>)
+	      (T
+	       <COND (<NOT <EQUAL? .WRD ,W?AGAIN ,W?G>>
+		      <SETG P-QWORD <>>
+		      <SETG P-NUMBER 0>)>
+	       <PUT ,OOPS-TABLE ,O-END <>>)>
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?AGAIN ,W?G>
+	       <COND (<ZERO? <GETB ,OOPS-INBUF 1>>
+		      <BEG-PARDON>
+		      <RFALSE>)
+		     (,P-OFLAG
+		      <TELL "It's difficult to repeat fragments." CR>
+		      <RFALSE>)
+		     (<NOT ,P-WON>
+		      <TELL "That would just repeat a mistake." CR>
+		      <RFALSE>)
+		     (<G? ,P-LEN 1>
+		      <COND (<OR <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					,W?PERIOD ,W?COMMA ,W?THEN>
+				 <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					,W?AND>>
+			     <SET PTR <+ .PTR <* 2 ,P-LEXELEN>>>
+			     <PUTB ,P-LEXV ,P-LEXWORDS
+				   <- <GETB ,P-LEXV ,P-LEXWORDS> 2>>)
+			    (T
+			     <TELL "I couldn't understand that sentence." CR>
+			     <RFALSE>)>)
+		     (T
+		      <SET PTR <+ .PTR ,P-LEXELEN>>
+		      <PUTB ,P-LEXV ,P-LEXWORDS
+			    <- <GETB ,P-LEXV ,P-LEXWORDS> 1>>)>
+	       <COND (<G? <GETB ,P-LEXV ,P-LEXWORDS> 0>
+		      <STUFF ,P-LEXV ,RESERVE-LEXV>
+		      <SETG RESERVE-PTR .PTR>)
+		     (T
+		      <SETG RESERVE-PTR <>>)>
+	       ;<SETG P-LEN <GETB ,AGAIN-LEXV ,P-LEXWORDS>>
+	       <SETG WINNER .OWINNER>
+	       <SETG P-MERGED .OMERGED>
+	       <INBUF-STUFF ,OOPS-INBUF ,P-INBUF>
+	       <STUFF ,AGAIN-LEXV ,P-LEXV>
+	       <SET CNT -1>
+	       <SET DIR ,AGAIN-DIR>
+	       <REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>)
+	      (T
+	       <STUFF ,P-LEXV ,AGAIN-LEXV>
+	       <INBUF-STUFF ,P-INBUF ,OOPS-INBUF>
+	       <PUT ,OOPS-TABLE ,O-START .PTR>
+	       <PUT ,OOPS-TABLE ,O-LENGTH <* 4 ,P-LEN>>
+	       <SET LEN
+		    <* 2 <+ .PTR <* ,P-LEXELEN <GETB ,P-LEXV ,P-LEXWORDS>>>>>
+	       <PUT ,OOPS-TABLE ,O-END <+ <GETB ,P-LEXV <- .LEN 1>>
+					  <GETB ,P-LEXV <- .LEN 2>>>>
+	       <SETG RESERVE-PTR <>>
+	       <SET LEN ,P-LEN>
+	       ;<SETG P-DIR <>>
+	       <SETG P-NCN 0>
+	       <SETG P-GETFLAGS 0>
+	       <REPEAT ()
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-44 (3687)
+		      (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<AND <EQUAL? .WRD ,W?TO>
+				   <EQUAL? .VERB ,ACT?TELL ;,ACT?ASK>>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <EQUAL? .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
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-143 (7882)
+		      (<SET WRD <KNOWN-WORD? .PTR .VERB>>
+		       <COND (<ZERO? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       <COND (<AND <EQUAL? .WRD ,W?TO>
+				   <EQUAL? .VERB ,ACT?TELL ,ACT?ASK>
+				   ;"next clause added 8/20/84 by JW to
+				     enable TELL MY NAME TO BEAST"
+				   <NOT <ZERO?
+					 <WT? .NW ,PS?VERB ,P1?VERB>>>>
+			      <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <EQUAL? .WRD ,W?THEN>
+				   <G? ,P-LEN 0>
+				   <NOT .VERB>
+				   <NOT ,QUOTE-FLAG>>
+			      <COND (<EQUAL? .LW 0 ,W?PERIOD>
+				     <SET WRD ,W?THE>)
+				    (ELSE
+				     <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+				     <PUT ,P-ITBL ,P-VERBN 0>
+				     <SET WRD ,W?QUOTE>)>)>
+		       <COND (<EQUAL? .WRD ,W?THEN ,W?PERIOD ,W?QUOTE>
+			      <COND (<EQUAL? .WRD ,W?QUOTE>
+				     <COND ;"Following clause added for
+					     WRITE 'FOO' ON CUBE"
+				           (<AND <EQUAL? <GET ,P-LEXV .PTR>
+							 ,W?QUOTE>
+						 <OR <NOT <EQUAL?
+							    .VERB
+							    ,ACT?TELL
+							    ,ACT?SAY>>
+						     <NOT <EQUAL? ,WINNER
+								  ,PLAYER>>>>
+					    <COND (<QUOTED-PHRASE .PTR .VERB>
+						   <SET PTR
+							<+ .PTR ,P-LEXELEN>>
+						   <AGAIN>)
+						  (ELSE
+						   <RFALSE>)>)
+					   (,QUOTE-FLAG
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-65 (4450)
+			     (<AND <SET VAL
+					<WT? .WRD
+					     ,PS?DIRECTION
+					     ,P1?DIRECTION>>
+				   <EQUAL? .VERB <> ,ACT?WALK>
+				   <OR <EQUAL? .LEN 1>
+				       <AND <EQUAL? .LEN 2>
+					    <EQUAL? .VERB ,ACT?WALK>>
+				       <AND <EQUAL? <SET NW
+						     <GET ,P-LEXV
+							  <+ .PTR ,P-LEXELEN>>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-189 (9388)
+			     (<AND <NOT <ZERO?
+					 <SET VAL
+					      <WT? .WRD
+						   ,PS?DIRECTION
+						   ,P1?DIRECTION>>>>
+				   <EQUAL? .VERB <> ,ACT?WALK ;,ACT?FLY>
+				   <OR <EQUAL? .LEN 1>
+				       <AND <EQUAL? .LEN 2>
+					    <EQUAL? .VERB ,ACT?WALK ;,ACT?FLY>>
+				       <AND <EQUAL? .NW
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-87 (5106)
+				     <PUT ,P-LEXV
+					  <+ .PTR ,P-LEXELEN>
+					  ,W?THEN>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-210 (10028)
+				     <CHANGE-LEXV <+ .PTR ,P-LEXELEN>
+						  ,W?THEN>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-93 (5264)
+			     (<AND <SET VAL <WT? .WRD ,PS?VERB ,P1?VERB>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-215 (10179)
+			     (<AND <NOT <ZERO?
+					  <SET VAL <WT? .WRD
+							,PS?VERB ,P1?VERB>>>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-100 (5514)
+						    <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>
+					  <EQUAL? <GET ,P-LEXV
+						    <+ .PTR ,P-LEXELEN>>
+					       ,W?OF>
+					  <ZERO? .VAL>
+					  <NOT
+					   <EQUAL? .WRD ,W?ALL ,W?ONE ,W?A>>>)
+				    (<AND <NOT <ZERO? .VAL>>
+				          <OR <ZERO? ,P-LEN>
+					      <EQUAL? <GET ,P-LEXV <+ .PTR 2>>
+						      ,W?THEN ,W?PERIOD>>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-224 (10459)
+						    <SET CNT
+							 <+ <* .PTR 2> 2>>>>
+			      <PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .CNT 1>>>)
+			     (<OR <NOT <ZERO?
+				  <SET VAL <WT? .WRD ,PS?PREPOSITION 0>>>>
+				  <AND <OR <EQUAL? .WRD ,W?ALL ,W?ONE ,W?BOTH>
+					   <NOT <ZERO? <WT? .WRD ,PS?ADJECTIVE>>>
+					   <NOT <ZERO? <WT? .WRD ,PS?OBJECT>>>>
+				       <SET VAL 0>>>
+			      <COND (<AND <G? ,P-LEN 1>
+					  <EQUAL? .NW ,W?OF>
+					  <ZERO? .VAL>
+					  <NOT <EQUAL? .WRD
+						       ,W?ALL ,W?ONE ,W?A>>
+					  <NOT <EQUAL? .WRD
+						       ,W?BOTH>>>
+				     <SET OF-FLAG T>)
+				    (<AND <NOT <ZERO? .VAL>>
+				          <OR <ZERO? ,P-LEN>
+					      <EQUAL? .NW ,W?THEN ,W?PERIOD>>>
+				     <SETG P-END-ON-PREP T>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-128 (6429)
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-254 (11451)
+				     <SETG P-ACT .VERB>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-133 (6578)
+			     (<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>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-260 (11629)
+			     (<EQUAL? .WRD ,W?OF>
+			      <COND (<OR <NOT .OF-FLAG>
+					 <EQUAL? .NW ,W?PERIOD ,W?THEN>>
+				     <CANT-USE .PTR>
+				     <RFALSE>)
+				    (T
+				     <SET OF-FLAG <>>)>)
+			     (<NOT <ZERO? <WT? .WRD ,PS?BUZZ-WORD>>>)
+			     (<AND <EQUAL? .VERB ,ACT?TELL>
+				   <NOT <ZERO? <WT? .WRD ,PS?VERB ,P1?VERB>>>
+				   ;"Next expr added to fix FORD, TELL ME WHY"
+				   ;"NOT taken out of said expr to fix fix"
+				   <EQUAL? ,WINNER ,PLAYER>>
+			      <TELL
+"Please consult your manual for the correct way to talk to characters." CR>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-147 (6961)
+		<SET PTR <+ .PTR ,P-LEXELEN>>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-283 (12351)
+		<SET PTR <+ .PTR ,P-LEXELEN>>>)>
+	<PUT ,OOPS-TABLE ,O-PTR <>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 3-151 (7064)
+	       <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) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-288 (12486)
+	       <SETG P-OFLAG <>>
+	       <SETG P-WALK-DIR .DIR>
+	       <SETG AGAIN-DIR .DIR>)
+	      (ELSE
+	       <COND (,P-OFLAG <ORPHAN-MERGE>)>
+	       <SETG P-WALK-DIR <>>
+	       <SETG AGAIN-DIR <>>
+	       <COND (<AND <SYNTAX-CHECK>
+			   <SNARF-OBJECTS>
+			   <MANY-CHECK>
+			   <TAKE-CHECK>>
+		      T)>)>>
+<ROUTINE BEG-PARDON () <TELL "I beg your pardon?" CR>>
+<GLOBAL P-ACT <>>
+<ROUTINE KNOWN-WORD? (PTR "OPTIONAL" (VERB <>) "AUX" (WRD <>))
+	 <OR <SET WRD <GET ,P-LEXV .PTR>>
+	     <SET WRD <QUOTED-WORD? .PTR .VERB>>
+	     <SET WRD <NUMBER? .PTR>>>
+	 .WRD>
+<ROUTINE CHANGE-LEXV (PTR WRD)
+	 <PUT ,P-LEXV .PTR .WRD>
+	 <PUT ,AGAIN-LEXV .PTR .WRD>>
+<GLOBAL P-WALK-DIR <>>
+<GLOBAL AGAIN-DIR <>>
+;"For AGAIN purposes, put contents of one LEXV table into another."
+<ROUTINE STUFF (SRC DEST "OPTIONAL" (MAX 29) "AUX" (PTR ,P-LEXSTART) (CTR 1)
+						   BPTR)
+	 <PUTB .DEST 0 <GETB .SRC 0>>
+	 <PUTB .DEST 1 <GETB .SRC 1>>
+	 <REPEAT ()
+	  <PUT .DEST .PTR <GET .SRC .PTR>>
+	  <SET BPTR <+ <* .PTR 2> 2>>
+	  <PUTB .DEST .BPTR <GETB .SRC .BPTR>>
+	  <SET BPTR <+ <* .PTR 2> 3>>
+	  <PUTB .DEST .BPTR <GETB .SRC .BPTR>>
+	  <SET PTR <+ .PTR ,P-LEXELEN>>
+	  <COND (<IGRTR? CTR .MAX>
+		 <RETURN>)>>>
+;"Put contents of one INBUF into another"
+<ROUTINE INBUF-STUFF (SRC DEST "AUX" CNT)
+	 <SET CNT <- <GETB .SRC 0> 1>>
+	 <REPEAT ()
+		 <PUTB .DEST .CNT <GETB .SRC .CNT>>
+		 <COND (<DLESS? CNT 0> <RETURN>)>>>
+;"Put the word in the positions specified from P-INBUF to the end of
+OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
+<ROUTINE INBUF-ADD (LEN BEG SLOT "AUX" DBEG (CTR 0) TMP)
+	 <COND (<SET TMP <GET ,OOPS-TABLE ,O-END>>
+		<SET DBEG .TMP>)
+	       (T
+		<SET DBEG <+ <GETB ,AGAIN-LEXV
+				   <SET TMP <GET ,OOPS-TABLE ,O-LENGTH>>>
+			     <GETB ,AGAIN-LEXV <+ .TMP 1>>>>)>
+	 <PUT ,OOPS-TABLE ,O-END <+ .DBEG .LEN>>
+	 <REPEAT ()
+	  <PUTB ,OOPS-INBUF <+ .DBEG .CTR> <GETB ,P-INBUF <+ .BEG .CTR>>>
+	  <SET CTR <+ .CTR 1>>
+	  <COND (<EQUAL? .CTR .LEN> <RETURN>)>>
+	 <PUTB ,AGAIN-LEXV .SLOT .DBEG>
+	 <PUTB ,AGAIN-LEXV <- .SLOT 1> .LEN>>
+;"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)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-11 (7937)
+ 
+<ROUTINE CLAUSE (PTR VAL WRD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0)) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-370 (15234)
+<ROUTINE CLAUSE (PTR VAL WRD "AUX" OFF NUM (ANDFLG <>) (1ST? T) NW (LW 0))
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-21 (8388)
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?THE ,W?A ,W?AN>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-379 (15678)
+	<COND (<OR <EQUAL? <GET ,P-LEXV .PTR> ,W?THE ,W?A ,W?AN>
+		   <EQUAL? <GET ,P-LEXV .PTR> ,W?$BUZZ>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-27 (8642)
+		<COND (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<ZERO? ,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:<Z6>PARSER.ZIL.273, 2-386 (15980)
+		<COND (<SET WRD <KNOWN-WORD? .PTR>>
+		       <COND (<ZERO? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       <COND (<AND <EQUAL? .WRD ,W?QUOTE>
+				   <NOT <EQUAL? ,P-ACT ,ACT?TELL ,ACT?SAY>>>
+			      <COND (<QUOTED-PHRASE .PTR ,P-ACT>
+				     <SET PTR <+ .PTR ,P-LEXELEN>>
+				     <AGAIN>)
+				    (ELSE <RFALSE>)>)
+			     (<EQUAL? .WRD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WRD ,W?ALL ,W?ONE ,W?BOTH>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-37 (9081)
+				  <AND <WT? .WRD ,PS?PREPOSITION>
+				       <GET ,P-ITBL ,P-VERB>
+				          ;"ADDED 4/27 FOR TURTLE,UP"
+				       <NOT .FIRST??>>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-401 (16609)
+				  <AND <NOT <ZERO? <WT? .WRD ,PS?PREPOSITION>>>
+				       <GET ,P-ITBL ,P-VERB>
+				          ;"ADDED 4/27 FOR TURTLE,UP"
+				       <NOT .1ST?>>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-46 (9379)
+			     (<WT? .WRD ,PS?OBJECT>
+			      <COND (<AND <G? ,P-LEN 0>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-410 (16918)
+			     ;"This next clause was 2 clauses further down"
+			     ;"This attempts to fix EDDIE, TURN ON COMPUTER"
+			     (<AND .ANDFLG
+				   <EQUAL? <GET ,P-ITBL ,P-VERB> 0>>
+			      <SET PTR <- .PTR 4>>
+			      <CHANGE-LEXV <+ .PTR 2> ,W?THEN>
+			      <SETG P-LEN <+ ,P-LEN 2>>)
+			     (<NOT <ZERO? <WT? .WRD ,PS?OBJECT>>>
+			      <COND ;"First clause added 1/10/84 to fix
+				      'verb AT synonym OF synonym' bug"
+			            (<AND <G? ,P-LEN 0>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-51 (9530)
+				    (<AND <WT? .WRD
+					       ,PS?ADJECTIVE
+					       ,P1?ADJECTIVE>
+					  <NOT <EQUAL? .NW 0>>
+					  <WT? .NW ,PS?OBJECT>>)
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-424 (17469)
+				    ;"next clause makes 'give troll red book'
+				      have only one noun clause. careful!"
+				    (<AND <NOT <ZERO? <WT? .WRD
+							   ,PS?ADJECTIVE
+							   ,P1?ADJECTIVE>>>
+					  <NOT <EQUAL? .NW 0>>
+					  <OR <WT? .NW ,PS?OBJECT>
+					      <WT? .NW ,PS?ADJECTIVE>>>)
+				    (<AND <EQUAL? .WRD ,W?FORBURN>
+					  <EQUAL? .NW ,W?THE ,W?WILY>>
+				     T)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-64 (9926)
+			     (<AND <OR ,P-MERGED
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-443 (18105)
+			     ;"next clause replaced by following on from games
+			       with characters"
+			     ;(<AND <OR ,P-MERGED
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-69 (10105)
+			     (<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:<Z6>PARSER.ZIL.273, 2-450 (18372)
+			     (<OR <NOT <ZERO? <WT? .WRD ,PS?ADJECTIVE>>>
+				  <NOT <ZERO? <WT? .WRD ,PS?BUZZ-WORD>>>>)
+			     (<NOT <ZERO? <WT? .WRD ,PS?PREPOSITION>>> T)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-81 (10470)
+		<SET FIRST?? <>>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>> 
+<ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0) (TIM <>))
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-458 (18647)
+		<SET 1ST? <>>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>>
+<ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0))
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-91 (10797)
+			<COND (<EQUAL? .CHR 58>
+			       <SET TIM .SUM>
+			       <SET SUM 0>)
+			      (<G? .SUM 10000> <RFALSE>)
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-468 (18961)
+			<COND (<G? .SUM 10000> <RFALSE>)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-99 (11059)
+	 <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>>>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-473 (19145)
+	 <CHANGE-LEXV .PTR ,W?INTNUM>
+	 <COND (<G? .SUM 10000>
+		<RFALSE>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 4-110 (11319)
+<COND (<EQUAL? ,ZORK-NUMBER 3>
+       <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 ,P1?ADJECTIVE>
+	  <SET ADJ T>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 2-481 (19280)
+<GLOBAL P-QWORD <>>
+<ROUTINE QUOTED-PHRASE (PTR VERB "AUX" LEN (1ST? T) WRD BPTR)
+	 <CHANGE-LEXV .PTR ,W?$BUZZ>
+	 <SET LEN <- ,P-LEN 1>>
+	 <SET PTR <+ .PTR ,P-LEXELEN>>
+	 <SET BPTR <REST ,P-LEXV <* .PTR 2>>>
+	 <REPEAT ()
+		 <COND (<L? .LEN 0>
+			<TELL "You forgot a second quote." CR>
+			<RFALSE>)
+		       (<EQUAL? <SET WRD <GET ,P-LEXV .PTR>> ,W?QUOTE>
+			<CHANGE-LEXV .PTR ,W?$BUZZ>
+			<RTRUE>)
+		       (.1ST?
+			<COND (<AND .WRD <EQUAL? .VERB ,ACT?SAY ,ACT?ANSWER>>
+			       T)
+			      (<QUOTED-WORD? .PTR .VERB>
+			       <SET 1ST? <>>)
+			      (ELSE
+			       <TELL "There isn't anything here with \"">
+			       <WORD-PRINT <GETB .BPTR 2> <GETB .BPTR 3>>
+			       <TELL "\" written on it." CR>
+			       <RFALSE>)>)
+		       (ELSE ;"was <NOT .WRD>"
+			<CHANGE-LEXV .PTR ,W?$BUZZ>)
+		       ;(ELSE <RETURN>)>
+		 <SET PTR <+ .PTR ,P-LEXELEN>>
+		 <SET LEN <- .LEN 1>>>>
+<ROUTINE QUOTED-WORD? (PTR "OPTIONAL" (VERB <>) "AUX" QPTR WRD)
+	 <COND (<AND <EQUAL? .VERB ,ACT?WRITE>
+		     <NOT ,P-QWORD>>
+		<SETG P-QWORD .PTR>
+		<SET WRD ,W?QWORD>)
+	       (<NOT <SET WRD <KNOWN-NAME? .PTR>>>
+		<RFALSE>)>
+	 <CHANGE-LEXV .PTR .WRD>
+	 .WRD>
+<ROUTINE KNOWN-NAME? (PTR "AUX" WRD QPTR)
+	 <SET QPTR ,P-QBUF>
+	 <REPEAT ()
+		 <COND (<ZERO? <SET WRD <GET .QPTR 0>>>
+			<RFALSE>)>
+		 <COND (<MATCH? .PTR .QPTR> <RETURN>)>
+		 <SET QPTR <REST .QPTR 10>>>
+	 .WRD>
+<ROUTINE MATCH? (PTR QPTR "AUX" CNT BPTR QCNT)
+	 <SET PTR <REST ,P-LEXV <* .PTR 2>>>
+	 <SET CNT <GETB .PTR 2>>
+	 <COND (<G? .CNT 6> <SET CNT 6>)>
+	 <SET BPTR <GETB .PTR 3>>
+	 <SET QCNT <GET .QPTR 1>>
+	 <SET QPTR <REST .QPTR 4>>
+	 <REPEAT ()
+		 <COND (<ZERO? .CNT>
+			<COND (<G? .QCNT 0> <RFALSE>)
+			      (ELSE <RTRUE>)>)
+		       (<NOT <EQUAL? <GETB ,P-INBUF .BPTR>
+				     <GETB .QPTR 0>>>
+			<RFALSE>)
+		       (<DLESS? QCNT 0> <RFALSE>)>
+		 <SET CNT <- .CNT 1>>
+		 <SET QPTR <REST .QPTR>>
+		 <SET BPTR <+ .BPTR 1>>>
+	 <RTRUE>>
+<ROUTINE QCOPY (WRD PTR QPTR "AUX" CNT BPTR (QCNT 6))
+	 <SET CNT <GETB <REST ,P-LEXV <* .PTR 2>> 2>>
+	 <COND (<G? .CNT 6> <SET CNT 6>)>
+	 <SET BPTR <GETB <REST ,P-LEXV <* .PTR 2>> 3>>
+	 <PUT .QPTR 0 .WRD>
+	 <PUT .QPTR 1 .CNT>
+	 <SET QPTR <REST .QPTR 4>>
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0>
+			<PUTB .QPTR 0 <>>)
+		       (ELSE
+			<PUTB .QPTR 0 <GETB ,P-INBUF .BPTR>>
+			<SET BPTR <+ .BPTR 1>>
+			<SET QPTR <REST .QPTR>>)>
+		 <SET QCNT <- .QCNT 1>>
+		 <COND (<ZERO? .QCNT> <RTRUE>)>>>
+<GLOBAL
+ P-QBUF
+ <TABLE <VOC "AZ" ADJ> 2 #BYTE !\x #BYTE !\1 0 0
+	<VOC "BZ" ADJ> 2 #BYTE !\x #BYTE !\2 0 0
+	<VOC "CZ" ADJ> 2 #BYTE !\x #BYTE !\3 0 0
+	<VOC "DZ" ADJ> 2 #BYTE !\x #BYTE !\4 0 0
+	<VOC "EZ" ADJ> 2 #BYTE !\x #BYTE !\5 0 0
+	<VOC "FZ" ADJ> 2 #BYTE !\x #BYTE !\6 0 0
+	<VOC "GZ" ADJ> 2 #BYTE !\x #BYTE !\7 0 0
+	<VOC "HZ" ADJ> 2 #BYTE !\x #BYTE !\8 0 0
+	<VOC "IZ" ADJ> 2 #BYTE !\x #BYTE !\9 0 0
+	<VOC "JZ" ADJ> 3 #BYTE !\x #BYTE !\1 #BYTE !\0 #BYTE 0 0
+	<VOC "KZ" ADJ> 3 #BYTE !\x #BYTE !\1 #BYTE !\1 #BYTE 0 0
+	<VOC "KQ" ADJ> 3 #BYTE !\x #BYTE !\1 #BYTE !\2 #BYTE 0 0 ;"TIME-CUBE"
+	0 0 0 0 0 ;"EARTH"
+	0 0 0 0 0 ;"WATER"
+	0 0 0 0 0 ;"AIR"
+	0 0 0 0 0 ;"FIRE"
+	0 0 0 0 0 ;"DARK"
+	0 0 0 0 0 ;"MIND"
+	0 0 0 0 0 ;"LIGHT"
+	0 0 0 0 0 ;"LIFE"
+	0 0 0 0 0 ;"DEATH"
+	0 0 0 0 0 ;"CHANGE"
+	0 0 0 0 0 ;"MAGIC"
+	0 0 0 0 0 ;"CONNECTIVITY"
+	0 >>
+<GLOBAL P-QNEXT <>>
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD)
+   <SETG P-OFLAG <>>
+   <COND (<OR <EQUAL? <WT? <SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
+			   ,PS?VERB ,P1?VERB>
+		      <GET ,P-OTBL ,P-VERB>>
+	      <NOT <ZERO? <WT? .WRD ,PS?ADJECTIVE>>>>
+	  <SET ADJ T>)
+	 (<AND <NOT <ZERO? <WT? .WRD ,PS?OBJECT ,P1?OBJECT>>>
+	       <EQUAL? ,P-NCN 0>>
+	  <PUT ,P-ITBL ,P-VERB 0>
+	  <PUT ,P-ITBL ,P-VERBN 0>
+	  <PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+	  <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>
+	  <SETG P-NCN 1>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 5-19 (12012)
+			<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>>)>)
+**** FILE SS:<Z6>PARSER.ZIL.273, 3-28 (23566)
+			<COND (<ZERO? <GET ,P-ITBL ,P-NC1L>>
+			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+			<COND (<ZERO? ,P-NCN> <SETG P-NCN 1>)>)
+		       (T
+			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>)>
+		 <PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 5-30 (12388)
+			<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 3-41 (24035)
+			<COND (<ZERO? <GET ,P-ITBL ,P-NC1L>>
+			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 5-35 (12565)
+	 (<NOT <ZERO? ,P-ACLAUSE>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 3-47 (24262)
+	 (,P-ACLAUSE
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 5-50 (13054)
+					       ,PS?ADJECTIVE>
+					 <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				<SET ADJ .WRD>)
+			       (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+				    <EQUAL? .WRD ,W?ONE>>
+				<COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>>
+				       <RFALSE>)
+				      (T <ACLAUSE-WIN .ADJ> <RETURN>)>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 3-62 (24737)
+					       ,PS?ADJECTIVE> ;"same as WT?"
+					 <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				<SET ADJ .WRD>)
+			       (<EQUAL? .WRD ,W?ONE>
+				<ACLAUSE-WIN .ADJ>
+				<RETURN>)
+			       (<BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+				<COND (<EQUAL? .WRD ,P-ANAM>
+				       <ACLAUSE-WIN .ADJ>)
+				      (T
+				       <NCLAUSE-WIN>)>
+				<RETURN>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 5-64 (13526)
+**** FILE SS:<Z6>PARSER.ZIL.273, 3-80 (25270)
+   <PUT ,P-VTBL 0 <GET ,P-OVTBL 0>>
+   <PUTB ,P-VTBL 2 <GETB ,P-OVTBL 2>>
+   <PUTB ,P-VTBL 3 <GETB ,P-OVTBL 3>>
+   <PUT ,P-OTBL ,P-VERBN ,P-VTBL>
+   <PUTB ,P-VTBL 2 0>
+   ;<AND <NOT <EQUAL? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 5-71 (13684)
+;"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>
+**** FILE SS:<Z6>PARSER.ZIL.273, 3-93 (25665)
+<ROUTINE ACLAUSE-WIN (ADJ)
+	<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>
+	<PUT ,P-CCTBL ,CC-SBPTR ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-SEPTR <+ ,P-ACLAUSE 1>>
+	<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
+	<CLAUSE-COPY ,P-OTBL ,P-OTBL .ADJ>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 5-81 (13977)
+;"Print undefined word in input.
+   PTR points to the unknown word in P-LEXV"   
+**** FILE SS:<Z6>PARSER.ZIL.273, 3-104 (26036)
+<ROUTINE NCLAUSE-WIN ()
+        <PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
+	<PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
+	<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
+	<CLAUSE-COPY ,P-ITBL ,P-OTBL>
+	<AND <NOT <EQUAL? <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"
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 6-9 (14225)
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF) 
+	<COND (<VERB? SAY>
+	       <TELL "Nothing happens." CR>
+	       <RFALSE>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 4-9 (26592)
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF)
+	<PUT ,OOPS-TABLE ,O-PTR .PTR>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 6-16 (14476)
+	<TELL "\"." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+<ROUTINE CANT-USE (PTR "AUX" BUF) 
+	<COND (<VERB? SAY>
+	       <TELL "Nothing happens." CR>
+	       <RFALSE>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 4-14 (26795)
+	<TELL ".\"" CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+<ROUTINE CANT-USE (PTR "AUX" BUF)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 6-32 (14950)
+   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) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 4-27 (27189)
+   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)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 7-22 (16227)
+				   <GET ,P-ITBL ,P-PREP2>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 5-22 (28407)
+				      <GET ,P-ITBL ,P-PREP2>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 7-28 (16396)
+			      <TELL
+"That sentence isn't one I recognize." CR>
+**** FILE SS:<Z6>PARSER.ZIL.273, 5-28 (28579)
+			      <TELL ,NOT-RECOGNIZED CR>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 7-48 (17021)
+	      (<EQUAL? .VERB ,ACT?FIND>
+	       <TELL "That question can't be answered." CR>
+	       <RFALSE>)
+	      (<NOT <EQUAL? ,WINNER ,PLAYER>>
+	       <CANT-ORPHAN>)
+**** FILE SS:<Z6>PARSER.ZIL.273, 5-47 (29180)
+	      (<EQUAL? .VERB ,ACT?FIND ;,ACT?WHAT>
+	       <TELL "I can't answer that question." CR>
+	       <RFALSE>)
+	      (<NOT <EQUAL? ,WINNER ,PLAYER>>
+	       <TELL ,CANT-ORPHAN CR>
+	       <RFALSE>)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 7-57 (17318)
+	       <COND (<EQUAL? .TMP 0> <TELL "tell">)
+**** FILE SS:<Z6>PARSER.ZIL.273, 5-57 (29512)
+	       <COND (<EQUAL? .TMP 0>
+		      <TELL "tell">)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 7-64 (17546)
+		      <CLAUSE-PRINT ,P-NC1 ,P-NC1L>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 5-65 (29749)
+		      <TELL " ">
+		      <THING-PRINT T T>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 7-69 (17735)
+	       <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>
+**** FILE SS:<Z6>PARSER.ZIL.273, 5-71 (29946)
+	       <RFALSE>)>>
+<GLOBAL NOT-RECOGNIZED "That sentence isn't one I recognize.">
+<GLOBAL CANT-ORPHAN "I don't understand. What are you referring to?">
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1))
+	<COND (<NOT ,P-MERGED>
+	       <PUT ,P-OCLAUSE ,P-MATCHLEN 0>)>
+	<PUT ,P-OVTBL 0 <GET ,P-VTBL 0>>
+	<PUTB ,P-OVTBL 2 <GETB ,P-VTBL 2>>
+	<PUTB ,P-OVTBL 3 <GETB ,P-VTBL 3>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 8-8 (18077)
+	<COND (<EQUAL? ,P-NCN 2> <CLAUSE-COPY ,P-NC2 ,P-NC2L>)>
+	<COND (<NOT <L? ,P-NCN 1>> <CLAUSE-COPY ,P-NC1 ,P-NC1L>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 6-11 (30435)
+	<COND (<EQUAL? ,P-NCN 2>
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC2L>
+	       <PUT ,P-CCTBL ,CC-DBPTR ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-DEPTR ,P-NC2L>
+	       <CLAUSE-COPY ,P-ITBL ,P-OTBL>)>
+	<COND (<NOT <L? ,P-NCN 1>>
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
+	       <PUT ,P-CCTBL ,CC-DBPTR ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-DEPTR ,P-NC1L>
+	       <CLAUSE-COPY ,P-ITBL ,P-OTBL>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 8-15 (18360)
+	       <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 <>))
+**** FILE SS:<Z6>PARSER.ZIL.273, 6-28 (31070)
+	       <PUT ,P-OTBL ,P-NC2 1>)>>
+<ROUTINE ORPHAN-VERB (WRD ACT)
+	 <PUT ,P-VTBL 0 .WRD>
+	 <PUT ,P-OTBL ,P-VERB .ACT>
+	 <PUT ,P-OTBL ,P-VERBN ,P-VTBL>
+	 <PUT ,P-OTBL ,P-PREP1 0>
+	 <PUT ,P-OTBL ,P-PREP1N 0>
+	 <PUT ,P-OTBL ,P-PREP2 0>
+	 <PUT ,P-OTBL 5 0>
+	 <PUT ,P-OTBL ,P-NC1 1>
+	 <PUT ,P-OTBL ,P-NC1L 0>
+	 <PUT ,P-OTBL ,P-NC2 0>
+	 <PUT ,P-OTBL ,P-NC2L 0>
+	 <SETG P-OFLAG T>>
+<ROUTINE THING-PRINT (PRSO? "OPTIONAL" (THE? <>) "AUX" BEG END)
+	 <COND (.PRSO?
+		<SET BEG <GET ,P-ITBL ,P-NC1>>
+		<SET END <GET ,P-ITBL ,P-NC1L>>)
+	       (ELSE
+		<SET BEG <GET ,P-ITBL ,P-NC2>>
+		<SET END <GET ,P-ITBL ,P-NC2L>>)>
+	 <BUFFER-PRINT .BEG .END .THE?>>
+<ROUTINE BUFFER-PRINT (BEG END CP "AUX" (NOSP T) WRD (1ST? T) (PN <>) (Q? <>))
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 8-24 (18667)
+		       <COND (.NOSP <SET NOSP <>>)
+			     (T <TELL " ">)>
+		       <COND (<EQUAL? <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>)
+**** FILE SS:<Z6>PARSER.ZIL.273, 6-57 (31882)
+		       <SET WRD <GET .BEG 0>>
+		       <COND (<EQUAL? .WRD ,W?$BUZZ> T)
+			     (<EQUAL? .WRD ,W?COMMA>
+			      <TELL ", ">)
+			     (.NOSP <SET NOSP <>>)
+			     (ELSE <TELL " ">)>
+		       <COND (<EQUAL? .WRD ,W?PERIOD ,W?$BUZZ ,W?COMMA>
+			      <SET NOSP T>)
+			     (<EQUAL? .WRD ,W?ME>
+			      <PRINTD ,ME>
+			      <SET PN T>)
+			     (<EQUAL? .WRD ,W?INTNUM>
+			      <PRINTN ,P-NUMBER>
+			      <SET PN T>)
+			     (<NAME? .WRD>
+			      <CAPITALIZE .BEG>
+			      <SET PN T>)
+			     (T
+			      <COND (<AND .1ST? <NOT .PN> .CP>
+				     <TELL "the ">)>
+			      <COND (<OR ,P-OFLAG ,P-MERGED>
+				     <COND (<SET Q? <ZMEMQ .WRD ,CUBE-LIST 47>>
+					    <CUBE-NAME <GET <BACK .Q? 2> 0>>)
+					   (ELSE <PRINTB .WRD>)>)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 8-36 (19069)
+				     <WORD-PRINT <GETB .BEG 2>
+						 <GETB .BEG 3>>)>
+			      <SET FIRST?? <>>)>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
+<ROUTINE PREP-PRINT (PREP "AUX" WRD) 
+	<COND (<NOT <ZERO? .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
+**** FILE SS:<Z6>PARSER.ZIL.273, 6-85 (32756)
+				     <COND (<SET Q? <CUBE-NAME? .WRD>>
+					    <PRINTI "\"">)>
+				     <WORD-PRINT <GETB .BEG 2>
+						 <GETB .BEG 3>>
+				     <COND (.Q? <PRINTI "\"">)>)>
+			      <SET 1ST? <>>)>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
+<ROUTINE CUBE-NAME? (WRD "AUX" QWRD QPTR)
+	 <COND (<EQUAL? .WRD ,W?QWORD> <RTRUE>)>
+	 <SET QPTR ,P-QBUF>
+	 <REPEAT ()
+		 <COND (<ZERO? <SET QWRD <GET .QPTR 0>>>
+			<RFALSE>)
+		       (<EQUAL? .QWRD .WRD>
+			<RTRUE>)>
+		 <SET QPTR <REST .QPTR 10>>>>
+<ROUTINE NAME? (WRD)
+	 <COND (<OR <EQUAL? .WRD ,W?BELBOZ ,W?ARDIS ,W?ORKAN>
+		    <EQUAL? .WRD ,W?GZORNENPLATZ ,W?SNEFFLE ,W?HOOBLY>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+<ROUTINE CAPITALIZE (PTR)
+	 <COND (<OR ,P-OFLAG ,P-MERGED>
+		<PRINTB <GET .PTR 0>>)
+	       (T
+		<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 <ZERO? .PREP>>
+	       <TELL " ">
+	       <COND (<EQUAL? .PREP ,PR?THROUGH>
+		      <TELL "through">)
+		     (T
+		      <SET WRD <PREP-FIND .PREP>>
+		      <PRINTB .WRD>)>)>>
+<ROUTINE CLAUSE-COPY (SRC DEST "OPTIONAL" (INSRT <>) "AUX" BEG END)
+	<SET BEG <GET .SRC <GET ,P-CCTBL ,CC-SBPTR>>>
+	<SET END <GET .SRC <GET ,P-CCTBL ,CC-SEPTR>>>
+	<PUT .DEST
+	     <GET ,P-CCTBL ,CC-DBPTR>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 8-56 (19648)
+		       <PUT ,P-OTBL
+			    .EPTR
+			    <REST ,P-OCLAUSE
+				  <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
+**** FILE SS:<Z6>PARSER.ZIL.273, 6-135 (34208)
+		       <PUT .DEST
+			    <GET ,P-CCTBL ,CC-DEPTR>
+			    <REST ,P-OCLAUSE
+				  <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN>
+					,P-LEXELEN>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 8-66 (19941)
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>  
+<ROUTINE CLAUSE-ADD (WRD "AUX" PTR) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 6-146 (34524)
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
+<ROUTINE CLAUSE-ADD (WRD "AUX" PTR)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 9-6 (20132)
+	<PUT ,P-OCLAUSE ,P-MATCHLEN .PTR>>   
+ 
+<ROUTINE PREP-FIND (PREP "AUX" (CNT 0) SIZE) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 7-6 (34712)
+	<PUT ,P-OCLAUSE ,P-MATCHLEN .PTR>>
+<ROUTINE PREP-FIND (PREP "AUX" (CNT 0) SIZE)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 9-13 (20365)
+		       <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 (<EQUAL? .GBIT ,RMUNGBIT>
+**** FILE SS:<Z6>PARSER.ZIL.273, 7-13 (34940)
+		       <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 (<EQUAL? .GBIT ,RLANDBIT>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 9-30 (20848)
+		      <COND (<EQUAL? <SET OBJ <GET ,P-MERGE 1>> ,ME>
+			     <RFALSE>)>
+		      <TELL "(">
+		      <COND (<NOT <ZERO? .PREP>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 7-30 (35413)
+		      <SET OBJ <GET ,P-MERGE 1>>
+		      <TELL "(">
+		      <COND (<AND <NOT <ZERO? .PREP>>
+				  <NOT ,P-END-ON-PREP>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 9-37 (21089)
+			     <COND (<EQUAL? .OBJ ,HANDS>
+				    <TELL " your hands)" CR>)
+				   (T
+				    <TELL " the ">)>)>
+		      <COND (<NOT <EQUAL? .OBJ ,HANDS>>
+			     <TELL D .OBJ ")" CR>)>
+		      .OBJ)>)
+	      (T <SETG P-GWIMBIT 0> <RFALSE>)>>   
+ 
+<ROUTINE SNARF-OBJECTS ("AUX" PTR) 
+	<COND (<NOT <EQUAL? <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 <ZERO? <GET ,P-BUTS ,P-MATCHLEN>>
+		   <SETG P-PRSO <BUT-MERGE ,P-PRSO>>>)>
+	<COND (<NOT <EQUAL? <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 <ZERO? <GET ,P-BUTS ,P-MATCHLEN>>>
+		      <COND (<EQUAL? <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) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 7-37 (35648)
+			     <TELL " ">
+			     <COND (<EQUAL? .OBJ ,HANDS>
+				    <TELL D .OBJ>)
+				   (ELSE
+				    <TELL THE .OBJ>)>
+			     <TELL ")" CR>)
+			    (ELSE
+			     <TELL D .OBJ ")" CR>)>
+		      .OBJ)>)
+	      (T <SETG P-GWIMBIT 0> <RFALSE>)>>
+<ROUTINE SNARF-OBJECTS ("AUX" OPTR IPTR L)
+	 <PUT ,P-BUTS ,P-MATCHLEN 0>
+	 <COND (<NOT <EQUAL? <SET IPTR <GET ,P-ITBL ,P-NC2>> 0>>
+		<SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC2>>
+		<OR <SNARFEM .IPTR <GET ,P-ITBL ,P-NC2L> ,P-PRSI> <RFALSE>>)>
+	 <COND (<NOT <EQUAL? <SET OPTR <GET ,P-ITBL ,P-NC1>> 0>>
+		<SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC1>>
+		<OR <SNARFEM .OPTR <GET ,P-ITBL ,P-NC1L> ,P-PRSO> <RFALSE>>)>
+	 <COND (<NOT <ZERO? <GET ,P-BUTS ,P-MATCHLEN>>>
+		<SET L <GET ,P-PRSO ,P-MATCHLEN>>
+		<COND (.OPTR <SETG P-PRSO <BUT-MERGE ,P-PRSO>>)>
+		<COND (<AND .IPTR
+			    <OR <NOT .OPTR>
+				<EQUAL? .L <GET ,P-PRSO ,P-MATCHLEN>>>>
+		       <SETG P-PRSI <BUT-MERGE ,P-PRSI>>)>)>
+	 <RTRUE>>
+%<DEBUG-CODE
+  <ROUTINE TELL-LIST (TBL NUM "AUX" (CNT 1))
+	   <COND (<ZERO? .NUM> <TELL "<>">)
+		 (ELSE
+		  <REPEAT ()
+			  <PRINTD <GET .TBL .CNT>>
+			  <SET CNT <+ .CNT 1>>
+			  <COND (<G? .CNT .NUM> <RETURN>)>
+			  <PRINTI ", ">>)>>>
+<ROUTINE BUT-MERGE (TBL "AUX" LEN BUTLEN (CNT 1) (MATCHES 0) OBJ NTBL)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 10-15 (22488)
+	.NTBL>    
+ 
+<GLOBAL P-NAM <>>   
+ 
+<GLOBAL P-ADJ <>>   
+ 
+<GLOBAL P-ADVERB <>>
+<GLOBAL P-ADJN <>>  
+ 
+<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 100>>
+ 
+<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>
+**** FILE SS:<Z6>PARSER.ZIL.273, 8-15 (37304)
+	.NTBL>
+<GLOBAL P-NAM <>>
+<GLOBAL P-ADJ <>>
+<GLOBAL P-ADVERB <>>
+<GLOBAL P-ADJN <>>
+<GLOBAL P-PRSO <ITABLE 80 <>>>
+<GLOBAL P-PRSI <ITABLE 80 <>>>
+<GLOBAL P-BUTS <ITABLE 80 <>>>
+<GLOBAL P-MERGE <ITABLE 80 <>>>
+<GLOBAL P-OCLAUSE <ITABLE 80 <>>>
+<GLOBAL P-MATCHLEN 0>
+<GLOBAL P-GETFLAGS 0>
+<CONSTANT P-ALL 1>
+<CONSTANT P-ONE 2>
+<CONSTANT P-INHIBIT 4>
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WRD NW (WAS-ALL <>))
+   <SETG P-AND <>>
+   <COND (<EQUAL? ,P-GETFLAGS ,P-ALL>
+	  <SET WAS-ALL T>)>
+   <SETG P-GETFLAGS 0>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 11-16 (23268)
+	   <COND (<EQUAL? .PTR .EPTR> <RETURN <GET-OBJECT <OR .BUT .TBL>>>)
+		 (T
+		  <SET NW <GET .PTR ,P-LEXELEN>>
+		  <COND (<EQUAL? .WRD ,W?ALL>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-11 (37951)
+	   <COND (<EQUAL? .PTR .EPTR>
+		  <SET WV <GET-OBJECT <OR .BUT .TBL>>>
+		  <COND (.WAS-ALL <SETG P-GETFLAGS ,P-ALL>)>
+		  <RETURN .WV>)
+		 (T
+		  <COND (<==? .EPTR <REST .PTR ,P-WORDLEN>>
+			 <SET NW 0>)
+			(T <SET NW <GET .PTR ,P-LEXELEN>>)>
+		  <COND (<EQUAL? .WRD ,W?ALL ,W?BOTH>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 11-41 (24102)
+			(<WT? .WRD ,PS?BUZZ-WORD>)
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-41 (38932)
+			(<NOT <ZERO? <WT? .WRD ,PS?BUZZ-WORD>>>)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 11-46 (24263)
+			(<AND <SET WV <WT? .WRD ,PS?ADJECTIVE ,P1?ADJECTIVE>>
+			      <NOT ,P-ADJ>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-46 (39107)
+			(<AND <NOT <ZERO?
+				     <SET WV
+					  <WT? .WRD
+					       ,PS?ADJECTIVE ,P1?ADJECTIVE>>>>
+			      <NOT ,P-ADJ>>
+			 ;"make 'learn <spell>' work (pdl 5/7/85)"
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 11-55 (24559)
+		  <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)
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-59 (39495)
+		  <SET WRD .NW>)>>>
+<CONSTANT SH 128>
+<CONSTANT SC 64>
+<CONSTANT SIR 32>
+<CONSTANT SOG 16>
+<CONSTANT STAKE 8>
+<CONSTANT SMANY 4>
+<CONSTANT SHAVE 2>
+<GLOBAL NOUN-MISSING "There seems to be a noun missing in that sentence.">
+<ROUTINE GET-OBJECT (TBL "OPTIONAL" (VRB T)
+		        "AUX" GEN BITS LEN XBITS TLEN (GCHECK <>) (OLEN 0) OBJ)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-8 (24990)
+	 <COND (<AND <NOT ,P-NAM> ,P-ADJ>
+		<COND (<WT? ,P-ADJN ,PS?OBJECT ,P1?OBJECT>
+		       <SETG P-NAM ,P-ADJN>
+		       <SETG P-ADJ <>>)
+		      %<COND (<EQUAL? ,ZORK-NUMBER 3>
+			      '(<SET BITS
+				     <WT? ,P-ADJN
+					  ,PS?DIRECTION ,P1?DIRECTION>>
+				<SETG P-ADJ <>>
+				<PUT .TBL ,P-MATCHLEN 1>
+				<PUT .TBL 1 ,INTDIR>
+				<SETG P-DIRECTION .BITS>
+				<RTRUE>))>>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-82 (39973)
+	 <COND (<AND <NOT ,P-NAM>
+		     ,P-ADJ
+		     <NOT <ZERO? <WT? ,P-ADJN ,PS?OBJECT ,P1?OBJECT>>>>
+		<SETG P-NAM ,P-ADJN>
+		<SETG P-ADJ <>>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-26 (25514)
+		       <TELL
+"There seems to be a noun missing in that sentence!" CR>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-92 (40254)
+		       <TELL ,NOUN-MISSING CR>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-38 (25880)
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-103 (40580)
+			     <COND (<AND <FSET? <LOC ,PLAYER> ,VEHBIT>
+					 <NOT <FSET? <LOC ,PLAYER> ,OPENBIT>>>
+				    <DO-SL <LOC ,PLAYER> ,SOG ,SIR>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-41 (26003)
+	       <COND (<BTST ,P-GETFLAGS ,P-ALL>)
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-109 (40842)
+	       <COND (<BTST ,P-GETFLAGS ,P-ALL> ;<AND * <NOT <EQUAL? .LEN 0>>>)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-46 (26198)
+			     <TELL "(How about the ">
+			     <PRINTD <GET .TBL 1>>
+			     <TELL "?)" CR>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-114 (41068)
+			     <TELL "(How about " THE <GET .TBL 1> "?)" CR>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-61 (26658)
+			     <COND (<NOT <EQUAL? ,WINNER ,PLAYER>>
+				    <CANT-ORPHAN>
+				    <RFALSE>)
+				   (<AND .VRB ,P-NAM>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-127 (41494)
+			     <COND (<AND <G? .LEN 1>
+					 <GENERIC-OBJECT?>
+					 <GETP <GET .TBL .LEN> ,P?GENERIC>>
+				    %<DEBUG-CODE
+					     <COND (,ZDEBUG
+						    <TELL
+"[GenIn: " D <GET .TBL .LEN> "]" CR>)>>
+				    <COND (<SET GEN
+						<APPLY
+						 <GETP <GET .TBL .LEN>
+						       ,P?GENERIC>
+						 .TBL
+						 .LEN>>
+					   %<DEBUG-CODE
+					     <COND (,ZDEBUG
+						    <TELL
+"[GenOut: " D .GEN "]" CR>)>>
+					   <PUT .TBL
+						,P-MATCHLEN
+						<SET LEN <+ .TLEN 1>>>
+					   <PUT .TBL .LEN .GEN>
+					   <SETG P-XNAM ,P-NAM>
+					   <SETG P-XADJ ,P-ADJ>
+					   <SETG P-XADJN ,P-ADJN>
+					   <SETG P-NAM <>>
+					   <SETG P-ADJ <>>
+					   <RTRUE>)
+					  (ELSE
+					   <TELL
+,MORE-SPECIFIC " about which one you mean." CR>
+					   <SETG P-NAM <>>
+					   <SETG P-ADJ <>>
+					   <RFALSE>)>)
+			      	   (<AND .VRB ;".VRB added 8/14/84 by JW"
+					 <NOT <EQUAL? ,WINNER ,PLAYER>>>
+				    <TELL ,CANT-ORPHAN CR>
+				    <SETG P-NAM <>>
+				    <SETG P-ADJ <>>
+				    <RFALSE>)
+				   (<AND .VRB
+					 <OR ,P-NAM ,P-ADJ>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-74 (27028)
+				    <TELL
+"There seems to be a noun missing in that sentence!" CR>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-177 (42819)
+				    <TELL ,NOUN-MISSING CR>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-81 (27239)
+			     ;"next added 1/2/85 by JW"
+			     <SETG P-SLOCBITS .XBITS>
+			     <COND (,LIT
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-183 (42990)
+			     <SETG P-SLOCBITS .XBITS>
+			     <COND (<OR ,LIT <VERB? TELL WHERE WHAT WHO>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-91 (27550)
+				    <SETG P-ADJN <>>
+				    <RTRUE>)
+				   (T <TELL "It's too dark to see!" CR>)>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-192 (43298)
+				    <RTRUE>)
+				   (T
+				    <TELL ,TOO-DARK>)>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-103 (27864)
+;<ROUTINE MOBY-FIND (TBL "AUX" FOO LEN)
+	 <SETG P-SLOCBITS -1>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-204 (43578)
+<ROUTINE MOBY-FIND (TBL "AUX" FOO LEN GEN)
+	 <SETG P-MOBY-FLAG T>
+	 <SETG P-SLOCBITS -1>
+	 <SETG P-TABLE .TBL>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-114 (28161)
+	 <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>>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-217 (43925)
+	 <DO-SL ,LOCAL-GLOBALS 1 1>
+	 <SEARCH-LIST ,ROOMS .TBL ,P-SRCTOP>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 1>
+		<SETG P-MOBY-FOUND <GET .TBL 1>>)
+	       (<AND <GENERIC-OBJECT?>
+		     <GETP <GET .TBL .LEN> ,P?GENERIC>>
+		%<DEBUG-CODE
+		  <COND (,ZDEBUG
+			 <TELL
+			  "[GenIn: " D <GET .TBL .LEN> "]" CR>)>>
+		<COND (<SET GEN
+			    <APPLY
+			     <GETP <GET .TBL .LEN>
+				   ,P?GENERIC>
+			     .TBL
+			     .LEN>>
+		       <SET LEN 1>
+		       <SETG P-MOBY-FOUND .GEN>
+		       %<DEBUG-CODE
+			 <COND (,ZDEBUG
+				<TELL
+				 "[GenOut: " D .GEN "]" CR>)>>)>)>
+	 <SETG P-MOBY-FLAG <>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-124 (28466)
+;<GLOBAL P-MOBY-FOUND <>>   
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-244 (44594)
+<GLOBAL P-MOBY-FOUND <>>
+<GLOBAL P-MOBY-FLAG <>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-131 (28630)
+	 <TELL "Which">
+         <COND (<OR ,P-OFLAG ,P-MERGED ,P-AND> <TELL " "> <PRINTB ,P-NAM>)
+	       (<EQUAL? .TBL ,P-PRSO>
+		<CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
+	       (T <CLAUSE-PRINT ,P-NC2 ,P-NC2L <>>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-252 (44779)
+	 <TELL "Which ">
+         <COND (<OR ,P-OFLAG
+		    ,P-MERGED
+		    ,P-AND>
+		<PRINTB <COND (,P-NAM ,P-NAM)
+			      (,P-ADJ ,P-ADJN)
+			      (ELSE ,W?ONE)>>)
+	       (ELSE
+		<THING-PRINT <EQUAL? .TBL ,P-PRSO>>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 12-140 (28939)
+		 <TELL "the " D .OBJ>
+		 <COND (<EQUAL? .LEN 2>
+		        <COND (<NOT <EQUAL? .RLEN 2>> <TELL ",">)>
+		        <TELL " or ">)
+		       (<G? .LEN 2> <TELL ", ">)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 9-265 (45102)
+		 <TELL THE .OBJ>
+		 <COND (<EQUAL? .LEN 2>
+		        <COND (<NOT <EQUAL? .RLEN 2>>
+			       <TELL ",">)>
+		        <TELL " or ">)
+		       (<G? .LEN 2>
+			<TELL ", ">)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 13-2 (29201)
+<ROUTINE GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS FOO) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 10-2 (45374)
+<ROUTINE GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS FOO)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 13-11 (29580)
+	<COND (<SET RMG <GETPT ,HERE ,P?PSEUDO>>
+	       <SET RMGL <- </ <PTSIZE .RMG> 4> 1>>
+	       <SET CNT 0>
+	       <REPEAT ()
+		       <COND (<EQUAL? ,P-NAM <GET .RMG <* .CNT 2>>>
+			      <PUTP ,PSEUDO-OBJECT
+				    ,P?ACTION
+				    <GET .RMG <+ <* .CNT 2> 1>>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 10-11 (45752)
+	<COND (<SET RMG <GETP ,HERE ,P?THINGS>>
+	       <SET RMGL <GET .RMG 0>>
+	       <SET CNT 0>
+	       <REPEAT ()
+		       <COND (<AND <EQUAL? ,P-NAM <GET .RMG <+ .CNT 1>>>
+				   <OR <NOT ,P-ADJ>
+				       <EQUAL? ,P-ADJN
+					       <GET .RMG <+ .CNT 2>>>>>
+			      <SETG P-PNAM ,P-NAM>
+			      <COND (,P-ADJ <SETG P-PADJN ,P-ADJN>)
+				    (ELSE <SETG P-PADJN <>>)>
+			      <SETG LAST-PSEUDO-LOC ,HERE>
+			      <PUTP ,PSEUDO-OBJECT
+				    ,P?ACTION
+				    <GET .RMG <+ .CNT 3>>>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 13-24 (30041)
+			      <RETURN>)
+		             (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 10-31 (46442)
+			      <RETURN>)>
+		       <SET CNT <+ .CNT 3>>
+		       <COND (<NOT <L? .CNT .RMGL>> <RETURN>)>>)>
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 13-31 (30287)
+	       <COND (<AND <ZERO? <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:<Z6>PARSER.ZIL.273, 10-39 (46723)
+	       ;<COND (<AND <ZERO? <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:<ZORK1>GPARSER.ZIL.37, 13-43 (30751)
+		     (T <RTRUE>)>)>>  
+ 
+<CONSTANT P-SRCBOT 2>    
+ 
+<CONSTANT P-SRCTOP 0>    
+ 
+<CONSTANT P-SRCALL 1>    
+ 
+<ROUTINE SEARCH-LIST (OBJ TBL LVL "AUX" FLS NOBJ) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 10-51 (47186)
+		     (T <RTRUE>)>)>>
+<CONSTANT P-SRCBOT 2>
+<CONSTANT P-SRCTOP 0>
+<CONSTANT P-SRCALL 1>
+<ROUTINE SEARCH-LIST (OBJ TBL LVL "AUX" FLS NOBJ)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 13-61 (31253)
+				   <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 (<EQUAL? .OBJ ,IT> <SET OBJ ,P-IT-OBJECT>)>
+			       <COND (<AND <NOT <HELD? .OBJ>>
+					   <NOT <EQUAL? .OBJ ,HANDS>>>
+				      <SETG PRSO .OBJ>
+				      <COND (<FSET? .OBJ ,TRYTAKEBIT>
+					     <SET TAKEN T>)
+					    (<NOT <EQUAL? ,WINNER ,ADVENTURER>>
+					     <SET TAKEN <>>)
+					    (<AND <BTST .IBITS ,STAKE>
+						  <EQUAL? <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>
+						  <EQUAL? ,WINNER ,ADVENTURER>>
+					     <TELL "(Taken)" CR>)>)>)>>)
+	       (T)>>  
+ 
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 10-69 (47669)
+				   <SET NOBJ <FIRST? .OBJ>>>
+			      <COND (<OR ,P-MOBY-FLAG
+					 <FSET? .OBJ ,OPENBIT>
+					 <FSET? .OBJ ,TRANSBIT>>
+				     <SET FLS
+					  <SEARCH-LIST
+					   .OBJ
+					   .TBL
+					   <COND (<OR ,P-MOBY-FLAG
+						      <FSET? .OBJ ,SURFACEBIT>
+						      <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) ;"changed by MARC 11/83"
+   <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 (<EQUAL? .OBJ ,IT>
+			  <COND (<NOT <ACCESSIBLE? ,P-IT-OBJECT>>
+				 <TELL ,REFERRING CR>
+				 <RFALSE>)
+				(T
+				 <SET OBJ ,P-IT-OBJECT>)>)>
+		   <COND (<OR <HELD? .OBJ>
+			      <EQUAL? .OBJ ,ME>>
+			  T)
+			 (T
+			  <SETG PRSO .OBJ>
+			  <COND (<FSET? .OBJ ,TRYTAKEBIT>
+				 <SET TAKEN T>)
+				(<OR <NOT <EQUAL? ,WINNER ,PLAYER>>
+				     <AND <EQUAL? ,PRSO ,INTNUM>
+					  <HELD? ,ZORKMID>>>
+				 <SET TAKEN <>>)
+				(<AND <BTST .IBITS ,STAKE>
+				      <EQUAL? <ITAKE <>> T>>
+				 <SET TAKEN <>>)
+				(T
+				 <SET TAKEN T>)>
+			  <COND (<AND .TAKEN <BTST .IBITS ,SHAVE>>
+				 <COND (<L? 1 <GET .TBL ,P-MATCHLEN>>
+				        <TELL
+,YOU-ARENT "holding all those things!" CR>
+					<RFALSE>)
+				       (<EQUAL? .OBJ ,NOT-HERE-OBJECT>
+					<TELL ,YOU-CANT-SEE "that here!" CR>
+					<RFALSE>)
+				       (<EQUAL? ,WINNER ,PLAYER>
+					<TELL ,YOU-ARENT>)
+				       (T
+					<TELL "It doesn't look like ">
+					<TELL THE ,WINNER " is ">)>
+				 <TELL "holding ">
+				 <COND (<EQUAL? .OBJ ,PSEUDO-OBJECT>
+					<TELL "that">)
+				       (ELSE
+					<TELL THE .OBJ>)>
+				 <THIS-IS-IT .OBJ>
+				 <TELL ,PERIOD>
+				 <RFALSE>)
+				(<AND <NOT .TAKEN>
+				      <EQUAL? ,WINNER ,PLAYER>
+				      <NOT <EQUAL? ,PRSO ,INTNUM>>>
+				 <TELL
+"(Taking " THE .OBJ " first)" CR>)>)>)>>)
+	       (T)>>
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 14-50 (33507)
+	       <TELL "You can't use multiple ">
+	       <COND (<EQUAL? .LOSS 2> <TELL "in">)>
+	       <TELL "direct objects with \"">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<ZERO? .TMP> <TELL "tell">)
+**** FILE SS:<Z6>PARSER.ZIL.273, 10-160 (50337)
+	       <TELL ,YOU-CANT "use multiple ">
+	       <COND (<EQUAL? .LOSS 2>
+		      <TELL "in">)>
+	       <TELL "direct objects with \"">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<ZERO? .TMP>
+		      <TELL "tell">)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 14-61 (33895)
+	      (T)>>  
+ 
+<ROUTINE ZMEMQ (ITM TBL "OPTIONAL" (SIZE -1) "AUX" (CNT 1)) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 10-173 (50743)
+	      (T)>>
+<ROUTINE ZMEMQ (ITM TBL "OPTIONAL" (SIZE -1) "AUX" (CNT 1))
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 14-68 (34101)
+		<COND (<EQUAL? .ITM <GET .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>    
+<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0)) 
+	<REPEAT ()
+		<COND (<EQUAL? .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>)>
+**** FILE SS:<Z6>PARSER.ZIL.273, 10-180 (50945)
+		<COND (<EQUAL? .ITM <GET .TBL .CNT>>
+		       <RETURN <REST .TBL <* .CNT 2>>>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>
+<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0))
+	<REPEAT ()
+		<COND (<EQUAL? .ITM <GETB .TBL .CNT>>
+		       <RTRUE>)
+		      (<IGRTR? CNT .SIZE>
+		       <RFALSE>)>>>
+<ROUTINE LIT? (RM "OPTIONAL" (RMBIT T) "AUX" OHERE (LIT <>))
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 15-17 (34628)
+	       <SET LIT T>)
+**** FILE SS:<Z6>PARSER.ZIL.273, 11-15 (51420)
+	       <SET LIT ,HERE>)
+	      (<AND <FSET? ,WINNER ,ONBIT>
+		    <HELD? ,WINNER .RM>>
+	       <SET LIT ,WINNER>)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 15-27 (34938)
+	       <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
+		    <EQUAL? <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
+		    <EQUAL? <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) 
+**** FILE SS:<Z6>PARSER.ZIL.273, 11-28 (51827)
+	       <COND (<AND <FSET? <LOC ,WINNER> ,VEHBIT>
+			   <NOT <FSET? <LOC ,WINNER> ,OPENBIT>>>
+		      <DO-SL <LOC ,WINNER> 1 1>)>
+	       <DO-SL .RM 1 1>
+	       <COND (<G? <GET ,P-TABLE ,P-MATCHLEN> 0>
+		      <SET LIT <GET ,P-TABLE 1>>)>)>
+	<COND (<AND <NOT .LIT>
+		    <EQUAL? ,CHANGED? ,GRUE>>
+	       <SET LIT ,GRUE>)>
+	<SETG HERE .OHERE>
+	<SETG P-GWIMBIT 0>
+	.LIT>
+;"former CRUFTY.ZIL routine"
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS)
+***************
+
+**** FILE SS:<ZORK1>GPARSER.ZIL.37, 15-62 (35997)
+<ROUTINE ACCESSIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player TOUCH object?"
+	 ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<FSET? .OBJ ,INVISIBLE>
+		<RFALSE>)
+	       ;(<EQUAL? .OBJ ,PSEUDO-OBJECT>
+		<COND (<EQUAL? ,LAST-PSEUDO-LOC ,HERE>
+		       <RTRUE>)
+		      (T
+		       <RFALSE>)>)
+	       (<NOT .L>
+		<RFALSE>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS>
+		<RTRUE>)
+	       (<AND <EQUAL? .L ,LOCAL-GLOBALS>
+		     <GLOBAL-IN? .OBJ ,HERE>>
+		<RTRUE>)
+	       (<NOT <EQUAL? <META-LOC .OBJ> ,HERE <LOC ,WINNER>>>
+		<RFALSE>)
+	       (<EQUAL? .L ,WINNER ,HERE <LOC ,WINNER>>
+		<RTRUE>)
+	       (<AND <FSET? .L ,OPENBIT>
+		     <ACCESSIBLE? .L>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+<ROUTINE META-LOC (OBJ)
+	 <REPEAT ()
+		 <COND (<NOT .OBJ>
+			<RFALSE>)
+		       (<IN? .OBJ ,GLOBAL-OBJECTS>
+			<RETURN ,GLOBAL-OBJECTS>)>
+		 <COND (<IN? .OBJ ,ROOMS>
+			<RETURN .OBJ>)
+		       (T
+			<SET OBJ <LOC .OBJ>>)>>>
+**** FILE SS:<Z6>PARSER.ZIL.273, 11-58 (52699)
+<ROUTINE END-QUOTE ()
+	 <SETG QUOTE-FLAG <>>
+	 <SETG P-CONT <>>
+	 <RFATAL>>
+<ROUTINE GENERIC-OBJECT? ()
+	 <COND (<EQUAL? ,P-NAM ,W?CUBE ,W?CUBES>
+		<COND (<OR <NOT ,P-ADJ>
+			   <EQUAL? ,P-ADJN ,W?SMALL ,W?WHITE ,W?FEATURELESS>>
+		       <RTRUE>)>)
+	       (<EQUAL? ,P-NAM ,W?ROCK ,W?ROCKS ,W?BOULDER>
+		<COND (<OR <NOT ,P-ADJ>
+			   <EQUAL? ,P-ADJN ,W?FLAT>>
+		       <RTRUE>)>)
+	       (<EQUAL? ,P-NAM ,W?RUNE>
+		<COND (<OR <NOT ,P-ADJ>
+			   <EQUAL? ,P-ADJN ,W?SILVER ,W?LEAD>>
+		       <RTRUE>)>)
+	       (<AND <NOT ,P-ADJ>
+		     <OR <EQUAL? ,P-NAM ,W?FISH ,W?WALL ,W?CARPET>
+			 <EQUAL? ,P-NAM ,W?RUG ,W?HOLE>
+			 <EQUAL? ,P-NAM ,W?PILE ,W?PILES>>>
+		<RTRUE>)>>
+***************
diff --git a/zork1.chart b/zork1.chart
new file mode 100644
index 0000000..92b563a
--- /dev/null
+++ b/zork1.chart
@@ -0,0 +1,2 @@
+-date-  -rel-	-size-	-pre-	-obj-	-glo-	-voc-
+ 4/29     119	86838	19284	250	155	684
diff --git a/zork1.errors b/zork1.errors
new file mode 100644
index 0000000..a4be01f
--- /dev/null
+++ b/zork1.errors
@@ -0,0 +1,35 @@
+Assembling ZORK1.ZAP.25 on Friday, April 29, 1988 12:12:19
+Release: 119
+
+    64	Inserting ZORK1FREQ.XZAP.3	   (624 bytes)
+   688	Inserting ZORK1DAT.ZAP.22	 (18596 bytes)
+ 19284	Inserting ZORK1PUR.ZAP.9	  (1214 bytes)
+ 20498	Inserting GMACROS.ZAP.25	   (119 bytes)
+ 20617	Inserting 1DUNGEON.ZAP.24	   (232 bytes)
+ 20849	Inserting GGLOBALS.ZAP.23	  (1160 bytes)
+ 22009	Inserting GCLOCK.ZAP.23	   (175 bytes)
+ 22184	Inserting GMAIN.ZAP.23	   (891 bytes)
+ 23075	Inserting GPARSER.ZAP.21	  (6585 bytes)
+ 29660	Inserting GVERBS.ZAP.22	 (10530 bytes)
+ 40190	Inserting 1ACTIONS.ZAP.21	 (29982 bytes)
+ 70172	Inserting ZORK1STR.ZAP.21	 (16666 bytes)
+
+Symbols unused:
+UNTIE-FROM
+BREATHE
+CYCLOPS-MELEE
+TROLL-MELEE
+P-DIRECTION
+DEF2A
+DEF3C
+THIEF-MELEE
+
+250 objects.
+155 globals.
+684 word vocabulary.
+
+ 86838 bytes (85K).
+ 19284 bytes of preload.
+ 11282 bytes of impure.
+
+Outputting symbol tables
diff --git a/zork1.record b/zork1.record
new file mode 100644
index 0000000..849c7c0
--- /dev/null
+++ b/zork1.record
@@ -0,0 +1,632 @@
+
+Combined ZIL Compiler Ver 2.0 (MIM)
+-----------------------------------
+
+Incremental compilation disabled, because top-level ZIL file changed.
+
+Input file: SS:<ZORK1>ZORK1.ZIL.29
+[ZIP instructions]
+
+Loading SS:<ZORK1>GMACROS.ZIL.8 and compiling it.
+Compiling routine: ZPROB
+Compiling routine: RANDOM-ELEMENT
+Compiling routine: PICK-ONE
+Abstracting SS:<ZORK1>GMACROS.
+Loading SS:<ZORK1>GSYNTAX.ZIL.153 and compiling it.
+Loading SS:<ZORK1>1DUNGEON.ZIL.122 and compiling it.
+Compiling routine: TREASURE-INSIDE
+Compiling routine: GRATING-EXIT
+Compiling routine: CANYON-VIEW-F
+Compiling routine: GO
+Abstracting SS:<ZORK1>1DUNGEON.
+Loading SS:<ZORK1>GGLOBALS.ZIL.64 and compiling it.
+Compiling routine: NOT-HERE-OBJECT-F
+Compiling routine: NOT-HERE-PRINT
+Compiling routine: NULL-F
+Compiling routine: STAIRS-F
+Compiling routine: SAILOR-FCN
+Compiling routine: GROUND-FUNCTION
+Compiling routine: GRUE-FUNCTION
+Compiling routine: CRETIN-FCN
+Compiling routine: PATH-OBJECT
+Compiling routine: ZORKMID-FUNCTION
+Abstracting SS:<ZORK1>GGLOBALS.
+Loading SS:<ZORK1>GCLOCK.ZIL.6 and compiling it.
+Compiling routine: QUEUE
+Compiling routine: INT
+Compiling routine: CLOCKER
+Abstracting SS:<ZORK1>GCLOCK.
+Loading SS:<ZORK1>GMAIN.ZIL.42 and compiling it.
+Compiling routine: MAIN-LOOP
+Compiling routine: MAIN-LOOP-1
+Compiling routine: PERFORM
+Abstracting SS:<ZORK1>GMAIN.
+Loading SS:<ZORK1>GPARSER.ZIL.45 and compiling it.
+Compiling routine: PARSER
+Compiling routine: STUFF
+Compiling routine: INBUF-STUFF
+Compiling routine: INBUF-ADD
+Compiling routine: WT?
+Compiling routine: CLAUSE
+Compiling routine: NUMBER?
+Compiling routine: ORPHAN-MERGE
+Compiling routine: ACLAUSE-WIN
+Compiling routine: NCLAUSE-WIN
+Compiling routine: WORD-PRINT
+Compiling routine: UNKNOWN-WORD
+Compiling routine: CANT-USE
+Compiling routine: SYNTAX-CHECK
+Compiling routine: CANT-ORPHAN
+Compiling routine: ORPHAN
+Compiling routine: THING-PRINT
+Compiling routine: BUFFER-PRINT
+Compiling routine: PREP-PRINT
+Compiling routine: CLAUSE-COPY
+Compiling routine: CLAUSE-ADD
+Compiling routine: PREP-FIND
+Compiling routine: SYNTAX-FOUND
+Compiling routine: GWIM
+Compiling routine: SNARF-OBJECTS
+Compiling routine: BUT-MERGE
+Compiling routine: SNARFEM
+Compiling routine: GET-OBJECT
+Compiling routine: WHICH-PRINT
+Compiling routine: GLOBAL-CHECK
+Compiling routine: DO-SL
+Compiling routine: SEARCH-LIST
+Compiling routine: OBJ-FOUND
+Compiling routine: TAKE-CHECK
+Compiling routine: ITAKE-CHECK
+Compiling routine: MANY-CHECK
+Compiling routine: ZMEMQ
+Compiling routine: ZMEMQB
+Compiling routine: LIT?
+Compiling routine: THIS-IT?
+Compiling routine: ACCESSIBLE?
+Compiling routine: META-LOC
+Abstracting SS:<ZORK1>GPARSER.
+Loading SS:<ZORK1>GVERBS.ZIL.429 and compiling it.
+Compiling routine: V-VERBOSE
+Compiling routine: V-BRIEF
+Compiling routine: V-SUPER-BRIEF
+Compiling routine: V-INVENTORY
+Compiling routine: FINISH
+Compiling routine: V-QUIT
+Compiling routine: V-RESTART
+Compiling routine: V-RESTORE
+Compiling routine: V-SAVE
+Compiling routine: V-SCRIPT
+Compiling routine: V-UNSCRIPT
+Compiling routine: V-VERSION
+Compiling routine: V-VERIFY
+Compiling routine: V-COMMAND-FILE
+Compiling routine: V-RANDOM
+Compiling routine: V-RECORD
+Compiling routine: V-UNRECORD
+Compiling routine: V-ADVENT
+Compiling routine: V-ALARM
+Compiling routine: V-ANSWER
+Compiling routine: V-ATTACK
+Compiling routine: V-BACK
+Compiling routine: V-BLAST
+Compiling routine: PRE-BOARD
+Compiling routine: V-BOARD
+Compiling routine: V-BREATHE
+Compiling routine: V-BRUSH
+Compiling routine: V-BUG
+Compiling routine: TELL-NO-PRSI
+Compiling routine: PRE-BURN
+Compiling routine: V-BURN
+Compiling routine: V-CHOMP
+Compiling routine: V-CLIMB-DOWN
+Compiling routine: V-CLIMB-FOO
+Compiling routine: V-CLIMB-ON
+Compiling routine: V-CLIMB-UP
+Compiling routine: V-CLOSE
+Compiling routine: V-COMMAND
+Compiling routine: V-COUNT
+Compiling routine: V-CROSS
+Compiling routine: V-CURSES
+Compiling routine: V-CUT
+Compiling routine: V-DEFLATE
+Compiling routine: V-DIG
+Compiling routine: V-DISEMBARK
+Compiling routine: V-DISENCHANT
+Compiling routine: V-DRINK
+Compiling routine: V-DRINK-FROM
+Compiling routine: PRE-DROP
+Compiling routine: V-DROP
+Compiling routine: V-EAT
+Compiling routine: HIT-SPOT
+Compiling routine: V-ECHO
+Compiling routine: V-ENCHANT
+Compiling routine: REMOVE-CAREFULLY
+Compiling routine: V-ENTER
+Compiling routine: V-EXAMINE
+Compiling routine: V-EXIT
+Compiling routine: V-EXORCISE
+Compiling routine: PRE-FILL
+Compiling routine: V-FILL
+Compiling routine: V-FIND
+Compiling routine: V-FOLLOW
+Compiling routine: V-FROBOZZ
+Compiling routine: PRE-GIVE
+Compiling routine: V-GIVE
+Compiling routine: V-HATCH
+Compiling routine: V-HELLO
+Compiling routine: V-INCANT
+Compiling routine: V-INFLATE
+Compiling routine: V-KICK
+Compiling routine: V-KISS
+Compiling routine: V-KNOCK
+Compiling routine: V-LAMP-OFF
+Compiling routine: V-LAMP-ON
+Compiling routine: V-LAUNCH
+Compiling routine: V-LEAN-ON
+Compiling routine: V-LEAP
+Compiling routine: V-LEAVE
+Compiling routine: V-LISTEN
+Compiling routine: V-LOCK
+Compiling routine: V-LOOK
+Compiling routine: V-LOOK-BEHIND
+Compiling routine: V-LOOK-INSIDE
+Compiling routine: V-LOOK-ON
+Compiling routine: V-LOOK-UNDER
+Compiling routine: V-LOWER
+Compiling routine: V-MAKE
+Compiling routine: V-MELT
+Compiling routine: PRE-MOVE
+Compiling routine: V-MOVE
+Compiling routine: V-MUMBLE
+Compiling routine: PRE-MUNG
+Compiling routine: V-MUNG
+Compiling routine: V-ODYSSEUS
+Compiling routine: V-OIL
+Compiling routine: V-OPEN
+Compiling routine: V-OVERBOARD
+Compiling routine: V-PICK
+Compiling routine: V-PLAY
+Compiling routine: V-PLUG
+Compiling routine: V-POUR-ON
+Compiling routine: V-PRAY
+Compiling routine: V-PUMP
+Compiling routine: V-PUSH
+Compiling routine: V-PUSH-TO
+Compiling routine: PRE-PUT
+Compiling routine: V-PUT
+Compiling routine: V-PUT-BEHIND
+Compiling routine: V-PUT-ON
+Compiling routine: V-PUT-UNDER
+Compiling routine: V-RAISE
+Compiling routine: V-RAPE
+Compiling routine: PRE-READ
+Compiling routine: V-READ
+Compiling routine: V-READ-PAGE
+Compiling routine: V-REPENT
+Compiling routine: V-REPLY
+Compiling routine: V-RING
+Compiling routine: V-RUB
+Compiling routine: V-SAY
+Compiling routine: V-SEARCH
+Compiling routine: V-SEND
+Compiling routine: PRE-SGIVE
+Compiling routine: V-SGIVE
+Compiling routine: V-SHAKE
+Compiling routine: SHAKE-LOOP
+Compiling routine: V-SKIP
+Compiling routine: V-SMELL
+Compiling routine: V-SPIN
+Compiling routine: V-SPRAY
+Compiling routine: V-SQUEEZE
+Compiling routine: V-SSPRAY
+Compiling routine: V-STAB
+Compiling routine: V-STAND
+Compiling routine: V-STAY
+Compiling routine: V-STRIKE
+Compiling routine: V-SWIM
+Compiling routine: V-SWING
+Compiling routine: PRE-TAKE
+Compiling routine: V-TAKE
+Compiling routine: V-TELL
+Compiling routine: V-THROUGH
+Compiling routine: V-THROW
+Compiling routine: V-THROW-OFF
+Compiling routine: V-TIE
+Compiling routine: V-TIE-UP
+Compiling routine: V-TREASURE
+Compiling routine: PRE-TURN
+Compiling routine: V-TURN
+Compiling routine: V-UNLOCK
+Compiling routine: V-UNTIE
+Compiling routine: V-WAIT
+Compiling routine: V-WALK
+Compiling routine: V-WALK-AROUND
+Compiling routine: V-WALK-TO
+Compiling routine: V-WAVE
+Compiling routine: V-WEAR
+Compiling routine: V-WIN
+Compiling routine: V-WIND
+Compiling routine: V-WISH
+Compiling routine: V-YELL
+Compiling routine: V-ZORK
+Compiling routine: V-FIRST-LOOK
+Compiling routine: DESCRIBE-ROOM
+Compiling routine: DESCRIBE-OBJECTS
+Compiling routine: DESCRIBE-OBJECT
+Compiling routine: PRINT-CONTENTS
+Compiling routine: PRINT-CONT
+Compiling routine: FIRSTER
+Compiling routine: SEE-INSIDE?
+Compiling routine: SCORE-UPD
+Compiling routine: SCORE-OBJ
+Compiling routine: YES?
+Compiling routine: ITAKE
+Compiling routine: IDROP
+Compiling routine: CCOUNT
+Compiling routine: WEIGHT
+Compiling routine: HACK-HACK
+Compiling routine: NO-GO-TELL
+Compiling routine: GOTO
+Compiling routine: LKP
+Compiling routine: DO-WALK
+Compiling routine: GLOBAL-IN?
+Compiling routine: FIND-IN
+Compiling routine: HELD?
+Compiling routine: OTHER-SIDE
+Compiling routine: MUNG-ROOM
+Compiling routine: THIS-IS-IT
+Abstracting SS:<ZORK1>GVERBS.
+Loading SS:<ZORK1>1ACTIONS.ZIL.257 and compiling it.
+Compiling routine: WEST-HOUSE
+Compiling routine: EAST-HOUSE
+Compiling routine: OPEN-CLOSE
+Compiling routine: BOARD-F
+Compiling routine: TEETH-F
+Compiling routine: GRANITE-WALL-F
+Compiling routine: SONGBIRD-F
+Compiling routine: WHITE-HOUSE-F
+Compiling routine: GO-NEXT
+Compiling routine: FOREST-F
+Compiling routine: MOUNTAIN-RANGE-F
+Compiling routine: WATER-F
+Compiling routine: KITCHEN-WINDOW-F
+Compiling routine: GHOSTS-F
+Compiling routine: BASKET-F
+Compiling routine: BAT-F
+Compiling routine: FLY-ME
+Compiling routine: FWEEP
+Compiling routine: BELL-F
+Compiling routine: HOT-BELL-F
+Compiling routine: BOARDED-WINDOW-FCN
+Compiling routine: NAILS-PSEUDO
+Compiling routine: CRACK-FCN
+Compiling routine: KITCHEN-FCN
+Compiling routine: STONE-BARROW-FCN
+Compiling routine: BARROW-DOOR-FCN
+Compiling routine: BARROW-FCN
+Compiling routine: TROPHY-CASE-FCN
+Compiling routine: LIVING-ROOM-FCN
+Compiling routine: TOUCH-ALL
+Compiling routine: OTVAL-FROB
+Compiling routine: TRAP-DOOR-FCN
+Compiling routine: CELLAR-FCN
+Compiling routine: CHIMNEY-F
+Compiling routine: UP-CHIMNEY-FUNCTION
+Compiling routine: TRAP-DOOR-EXIT
+Compiling routine: RUG-FCN
+Compiling routine: AXE-F
+Compiling routine: STILETTO-FUNCTION
+Compiling routine: WEAPON-FUNCTION
+Compiling routine: TROLL-FCN
+Compiling routine: LEAVES-APPEAR
+Compiling routine: LEAF-PILE
+Compiling routine: CLEARING-FCN
+Compiling routine: MAZE-11-FCN
+Compiling routine: GRATE-FUNCTION
+Compiling routine: MAZE-DIODES
+Compiling routine: RUSTY-KNIFE-FCN
+Compiling routine: KNIFE-F
+Compiling routine: SKELETON
+Compiling routine: TORCH-OBJECT
+Compiling routine: MIRROR-ROOM
+Compiling routine: MIRROR-MIRROR
+Compiling routine: TORCH-ROOM-FCN
+Compiling routine: DOME-ROOM-FCN
+Compiling routine: LLD-ROOM
+Compiling routine: I-XB
+Compiling routine: I-XC
+Compiling routine: I-XBH
+Compiling routine: DAM-ROOM-FCN
+Compiling routine: BOLT-F
+Compiling routine: BUBBLE-F
+Compiling routine: INTEGRAL-PART
+Compiling routine: I-RFILL
+Compiling routine: I-REMPTY
+Compiling routine: BUTTON-F
+Compiling routine: TOOL-CHEST-FCN
+Compiling routine: I-MAINT-ROOM
+Compiling routine: LEAK-FUNCTION
+Compiling routine: FIX-MAINT-LEAK
+Compiling routine: PUTTY-FCN
+Compiling routine: TUBE-FUNCTION
+Compiling routine: DAM-FUNCTION
+Compiling routine: WITH-TELL
+Compiling routine: RESERVOIR-SOUTH-FCN
+Compiling routine: RESERVOIR-FCN
+Compiling routine: RESERVOIR-NORTH-FCN
+Compiling routine: BOTTLE-FUNCTION
+Compiling routine: CYCLOPS-FCN
+Compiling routine: I-CYCLOPS
+Compiling routine: CYCLOPS-ROOM-FCN
+Compiling routine: LOUD-ROOM-FCN
+Compiling routine: DEEP-CANYON-F
+Compiling routine: THIEF-VS-ADVENTURER
+Compiling routine: STOLE-LIGHT?
+Compiling routine: HACK-TREASURES
+Compiling routine: DEPOSIT-BOOTY
+Compiling routine: ROB-MAZE
+Compiling routine: ROBBER-FUNCTION
+Compiling routine: LARGE-BAG-F
+Compiling routine: MOVE-ALL
+Compiling routine: CHALICE-FCN
+Compiling routine: TREASURE-ROOM-FCN
+Compiling routine: THIEF-IN-TREASURE
+Compiling routine: FRONT-DOOR-FCN
+Compiling routine: BODY-FUNCTION
+Compiling routine: BLACK-BOOK
+Compiling routine: PAINTING-FCN
+Compiling routine: LANTERN
+Compiling routine: MAILBOX-F
+Compiling routine: MATCH-FUNCTION
+Compiling routine: I-MATCH
+Compiling routine: I-LANTERN
+Compiling routine: I-CANDLES
+Compiling routine: LIGHT-INT
+Compiling routine: MIN
+Compiling routine: CANDLES-FCN
+Compiling routine: CAVE2-ROOM
+Compiling routine: SWORD-FCN
+Compiling routine: BOOM-ROOM
+Compiling routine: BAT-D
+Compiling routine: BATS-ROOM
+Compiling routine: MACHINE-ROOM-FCN
+Compiling routine: MACHINE-F
+Compiling routine: MSWITCH-FUNCTION
+Compiling routine: GUNK-FUNCTION
+Compiling routine: NO-OBJS
+Compiling routine: SOUTH-TEMPLE-FCN
+Compiling routine: WHITE-CLIFFS-FUNCTION
+Compiling routine: SCEPTRE-FUNCTION
+Compiling routine: FALLS-ROOM
+Compiling routine: RAINBOW-FCN
+Compiling routine: DBOAT-FUNCTION
+Compiling routine: FIX-BOAT
+Compiling routine: RIVER-FUNCTION
+Compiling routine: I-RIVER
+Compiling routine: RBOAT-FUNCTION
+Compiling routine: BREATHE
+Compiling routine: IBOAT-FUNCTION
+Compiling routine: RIVR4-ROOM
+Compiling routine: SAND-FUNCTION
+Compiling routine: TREE-ROOM
+Compiling routine: EGG-OBJECT
+Compiling routine: BAD-EGG
+Compiling routine: CANARY-OBJECT
+Compiling routine: FOREST-ROOM?
+Compiling routine: I-FOREST-ROOM
+Compiling routine: FOREST-ROOM
+Compiling routine: WCLIF-OBJECT
+Compiling routine: CLIFF-OBJECT
+Compiling routine: ROPE-FUNCTION
+Compiling routine: UNTIE-FROM
+Compiling routine: SLIDE-FUNCTION
+Compiling routine: SLIDER
+Compiling routine: SANDWICH-BAG-FCN
+Compiling routine: DEAD-FUNCTION
+Compiling routine: LAKE-PSEUDO
+Compiling routine: STREAM-PSEUDO
+Compiling routine: CHASM-PSEUDO
+Compiling routine: DOME-PSEUDO
+Compiling routine: GATE-PSEUDO
+Compiling routine: DOOR-PSEUDO
+Compiling routine: PAINT-PSEUDO
+Compiling routine: GAS-PSEUDO
+Compiling routine: DO-FIGHT
+Compiling routine: REMARK
+Compiling routine: FIGHT-STRENGTH
+Compiling routine: VILLAIN-STRENGTH
+Compiling routine: FIND-WEAPON
+Compiling routine: VILLAIN-BLOW
+Compiling routine: HERO-BLOW
+Compiling routine: WINNER-RESULT
+Compiling routine: VILLAIN-RESULT
+Compiling routine: WINNING?
+Compiling routine: I-CURE
+Compiling routine: I-FIGHT
+Compiling routine: AWAKEN
+Compiling routine: I-SWORD
+Compiling routine: INFESTED?
+Compiling routine: I-THIEF
+Compiling routine: DROP-JUNK
+Compiling routine: RECOVER-STILETTO
+Compiling routine: STEAL-JUNK
+Compiling routine: ROB
+Compiling routine: V-DIAGNOSE
+Compiling routine: V-SCORE
+Compiling routine: JIGS-UP
+ ** Note: Atomic argument to routine assumed constant - DEAD-FUNCTION
+
+Compiling routine: RANDOMIZE-OBJECTS
+Compiling routine: KILL-INTERRUPTS
+Compiling routine: BAG-OF-COINS-F
+Compiling routine: TRUNK-F
+Compiling routine: STUPID-CONTAINER
+Compiling routine: DUMB-CONTAINER
+Compiling routine: GARLIC-F
+Compiling routine: CHAIN-PSEUDO
+Compiling routine: TROLL-ROOM-F
+Abstracting SS:<ZORK1>1ACTIONS.
+ ** Note: OBJECT has no properties: GLOBAL-OBJECTS
+Vocabulary: 684
+
+Prepositions: 18
+
+ABOUT	AROUND	AWAY	DOWN	FROM	OFF	OUT	TO	UP
+ACROSS	AT	BEHIND	FOR	IN	ON	OVER	UNDER	WITH
+
+Real globals: 148
+
+ABOVE-GROUND	     HS			  P-OFLAG
+AGAIN-DIR	     IN-HOUSE-AROUND	  P-ONEOBJ
+AGAIN-LEXV	     INDENTS		  P-OTBL
+ALWAYS-LIT	     JUMPLOSS		  P-OVTBL
+BASE-SCORE	     KITCHEN-WINDOW-FLAG  P-PRSI
+BAT-DROPS	     LAMP-TABLE		  P-PRSO
+BDIGS		     LIGHT-SHAFT	  P-SLOCBITS
+BEACH-DIG	     LIT		  P-SYNTAX
+BUOY-FLAG	     LLD-FLAG		  P-TABLE
+C-DEMONS	     LOAD-ALLOWED	  P-VTBL
+C-INTS		     LOAD-MAX		  P-WALK-DIR
+C-TABLE		     LOUD-FLAG		  P-WON
+CAGE-TOP	     LOUD-RUNS		  P-XADJ
+CANDLE-TABLE	     LOW-TIDE		  P-XADJN
+CLOCK-WAIT	     LUCKY		  P-XNAM
+COFFIN-CURE	     MAGIC-FLAG		  PLAYER
+CYCLOMAD	     MATCH-COUNT	  PRSA
+CYCLOPS-FLAG	     MIRROR-MUNG	  PRSI
+CYCLOPS-MELEE	     OOPS-INBUF		  PRSO
+CYCLOWRATH	     OOPS-TABLE		  QUOTE-FLAG
+DEAD		     P-AADJ		  RAINBOW-FLAG
+DEATHS		     P-ACLAUSE		  RESERVE-LEXV
+DEF1		     P-ACT		  RESERVE-PTR
+DEF1-RES	     P-ADJ		  RIVER-LAUNCH
+DEF2-RES	     P-ADJN		  RIVER-NEXT
+DEF2A		     P-ADVERB		  RIVER-SPEEDS
+DEF2B		     P-ANAM		  ROBBER-C-DESC
+DEF3-RES	     P-AND		  ROBBER-U-DESC
+DEF3A		     P-BUTS		  RUG-MOVED
+DEF3B		     P-CCTBL		  SCORE-MAX
+DEF3C		     P-CONT		  SING-SONG
+DEFLATE		     P-DIR		  SPRAYED?
+DESC-OBJECT	     P-DIRECTION	  SUPER-BRIEF
+DOME-FLAG	     P-END-ON-PREP	  SWIMYUKS
+DROWNINGS	     P-GETFLAGS		  THIEF-ENGROSSED
+DUMMY		     P-GWIMBIT		  THIEF-HERE
+EGG-SOLVE	     P-INBUF		  THIEF-MELEE
+EMPTY-HANDED	     P-IT-OBJECT	  TROLL-FLAG
+FALSE-FLAG	     P-ITBL		  TROLL-MELEE
+FOREST-AROUND	     P-LEN		  VERBOSE
+FUMBLE-NUMBER	     P-LEXV		  VILLAINS
+FUMBLE-PROB	     P-MATCHLEN		  WATER-LEVEL
+GATE-FLAG	     P-MERGE		  WHEEEEE
+GATES-OPEN	     P-MERGED		  WINNER
+GRATE-REVEALED	     P-MULT		  WON-FLAG
+GRUNLOCK	     P-NAM		  XB
+HELLOS		     P-NCN		  XC
+HERO-MELEE	     P-NOT-HERE		  YUKS
+HO-HUM		     P-NUMBER
+HOUSE-AROUND	     P-OCLAUSE
+
+Objects: 250
+
+ADVENTURER	     GLOBAL-OBJECTS	  POT-OF-GOLD
+ADVERTISEMENT	     GLOBAL-WATER	  PRAYER
+ALTAR		     GRANITE-WALL	  PSEUDO-OBJECT
+ARAGAIN-FALLS	     GRATE		  PUMP
+ATLANTIS-ROOM	     GRATING-CLEARING	  PUNCTURED-BOAT
+ATTIC		     GRATING-ROOM	  PUTTY
+ATTIC-TABLE	     GROUND		  RAILING
+AXE		     GRUE		  RAINBOW
+BAG-OF-COINS	     GUIDE		  RAISED-BASKET
+BAR		     GUNK		  RED-BUTTON
+BARROW		     HANDS		  RESERVOIR
+BARROW-DOOR	     HOT-BELL		  RESERVOIR-NORTH
+BAT		     IN-STREAM		  RESERVOIR-SOUTH
+BAT-ROOM	     INFLATABLE-BOAT	  RIVER
+BAUBLE		     INFLATED-BOAT	  RIVER-1
+BELL		     INTNUM		  RIVER-2
+BLESSINGS	     IT			  RIVER-3
+BLUE-BUTTON	     JADE		  RIVER-4
+BOARD		     KEYS		  RIVER-5
+BOARDED-WINDOW	     KITCHEN		  ROOMS
+BOAT-LABEL	     KITCHEN-TABLE	  ROPE
+BODIES		     KITCHEN-WINDOW	  ROUND-ROOM
+BOLT		     KNIFE		  RUG
+BONES		     LADDER		  RUSTY-KNIFE
+BOOK		     LADDER-BOTTOM	  SAILOR
+BOTTLE		     LADDER-TOP		  SAND
+BRACELET	     LAMP		  SANDWICH-BAG
+BROKEN-CANARY	     LAND-OF-LIVING-DEAD  SANDY-BEACH
+BROKEN-EGG	     LARGE-BAG		  SANDY-CAVE
+BROKEN-LAMP	     LEAK		  SCARAB
+BROWN-BUTTON	     LEAVES		  SCEPTRE
+BUBBLE		     LIVING-ROOM	  SCREWDRIVER
+BUOY		     LOCAL-GLOBALS	  SHAFT-ROOM
+BURNED-OUT-LANTERN   LOUD-ROOM		  SHORE
+CANARY		     LOWER-SHAFT	  SHOVEL
+CANDLES		     LOWERED-BASKET	  SKULL
+CANYON-BOTTOM	     LUNCH		  SLIDE
+CANYON-VIEW	     LUNGS		  SLIDE-ROOM
+CELLAR		     MACHINE		  SMALL-CAVE
+CHALICE		     MACHINE-ROOM	  SMELLY-ROOM
+CHASM-ROOM	     MACHINE-SWITCH	  SONGBIRD
+CHIMNEY		     MAILBOX		  SOUTH-OF-HOUSE
+CLEARING	     MAINTENANCE-ROOM	  SOUTH-TEMPLE
+CLIFF-MIDDLE	     MAP		  SQUEEKY-ROOM
+CLIMBABLE-CLIFF	     MATCH		  STAIRS
+COAL		     MAZE-1		  STILETTO
+COFFIN		     MAZE-10		  STONE-BARROW
+COLD-PASSAGE	     MAZE-11		  STRANGE-PASSAGE
+CONTROL-PANEL	     MAZE-12		  STREAM-VIEW
+CRACK		     MAZE-13		  STUDIO
+CYCLOPS		     MAZE-14		  SWORD
+CYCLOPS-ROOM	     MAZE-15		  TEETH
+DAM		     MAZE-2		  THIEF
+DAM-BASE	     MAZE-3		  TIMBER-ROOM
+DAM-LOBBY	     MAZE-4		  TIMBERS
+DAM-ROOM	     MAZE-5		  TINY-CAVE
+DAMP-CAVE	     MAZE-6		  TOOL-CHEST
+DEAD-END-1	     MAZE-7		  TORCH
+DEAD-END-2	     MAZE-8		  TORCH-ROOM
+DEAD-END-3	     MAZE-9		  TRAP-DOOR
+DEAD-END-4	     ME			  TREASURE-ROOM
+DEAD-END-5	     MINE-1		  TREE
+DEEP-CANYON	     MINE-2		  TRIDENT
+DIAMOND		     MINE-3		  TROLL
+DOME-ROOM	     MINE-4		  TROLL-ROOM
+EAST-OF-CHASM	     MINE-ENTRANCE	  TROPHY-CASE
+EAST-OF-HOUSE	     MIRROR-1		  TRUNK
+EGG		     MIRROR-2		  TUBE
+EGYPT-ROOM	     MIRROR-ROOM-1	  TWISTING-PASSAGE
+EMERALD		     MIRROR-ROOM-2	  UP-A-TREE
+END-OF-RAINBOW	     MOUNTAIN-RANGE	  WALL
+ENGRAVINGS	     MOUNTAINS		  WATER
+ENGRAVINGS-CAVE	     NARROW-PASSAGE	  WEST-OF-HOUSE
+ENTRANCE-TO-HADES    NEST		  WHITE-CLIFF
+EW-PASSAGE	     NORTH-OF-HOUSE	  WHITE-CLIFFS-NORTH
+FOREST		     NORTH-TEMPLE	  WHITE-CLIFFS-SOUTH
+FOREST-1	     NOT-HERE-OBJECT	  WHITE-HOUSE
+FOREST-2	     NS-PASSAGE		  WINDING-PASSAGE
+FOREST-3	     ON-RAINBOW		  WOODEN-DOOR
+FRONT-DOOR	     OWNERS-MANUAL	  WRENCH
+GALLERY		     PAINTING		  YELLOW-BUTTON
+GARLIC		     PATH		  ZORKMID
+GAS-ROOM	     PATHOBJ
+GHOSTS		     PEDESTAL
+
+Properties: 30
+
+P?ACTION     P?DESCFCN	  P?IN	       P?NW	    P?SOUTH	 P?TVALUE
+P?ADJECTIVE  P?DOWN	  P?LAND       P?OUT	    P?STRENGTH	 P?UP
+P?ADVFCN     P?EAST	  P?LDESC      P?PSEUDO	    P?SW	 P?VALUE
+P?CAPACITY   P?FDESC	  P?NE	       P?SE	    P?SYNONYM	 P?VTYPE
+P?CONTFCN    P?GLOBAL	  P?NORTH      P?SIZE	    P?TEXT	 P?WEST
+
+Flags: 32
+
+ACTORBIT    FIGHTBIT	NDESCBIT    RMUNGBIT	TOOLBIT	    WEAPONBIT
+BURNBIT	    FLAMEBIT	NONLANDBIT  SACREDBIT	TOUCHBIT    WEARBIT
+CLIMBBIT    FOODBIT	ONBIT	    SEARCHBIT	TRANSBIT
+CONTBIT	    INVISIBLE	OPENBIT	    STAGGERED	TRYTAKEBIT
+DOORBIT	    LIGHTBIT	READBIT	    SURFACEBIT	TURNBIT
+DRINKBIT    MAZEBIT	RLANDBIT    TAKEBIT	VEHBIT
diff --git a/zork1.serial b/zork1.serial
new file mode 100644
index 0000000..d00491f
--- /dev/null
+++ b/zork1.serial
@@ -0,0 +1 @@
+1
diff --git a/zork1.zil b/zork1.zil
index 651f1de..6d0a7f2 100644
--- a/zork1.zil
+++ b/zork1.zil
@@ -2,55 +2,32 @@
 	        Zork I: The Great Underground Empire
 	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved."
 
-<SETG ZORK-NUMBER 1>
-
-<GC 0 T 5>
+<VERSION ZIP>
 
-<BLOAT 70000 0 0 2700 0 0 0 0 0 256>
+<SETG ZORK-NUMBER 1>
 
 <SET REDEFINE T>
 
-<GLOBAL BIGFIX 10000>
-
 <OR <GASSIGNED? ZILCH>
     <SETG WBREAKS <STRING !\" !,WBREAKS>>>
 
-<DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
-	<INSERT-FILE .STR .FLOAD?>>
-
 <PRINC "Renovated ZORK I: The Great Underground Empire
 ">
 
-<OR <GASSIGNED? INSERT-CRUFTY>
-    <DEFINE INSERT-CRUFTY (STR) <INSERT-FILE .STR T>>>
-
-<COND (<GASSIGNED? PREDGEN>
-       <ID 0>)>
+<FREQUENT-WORDS?>
 
-<IFILE "GMACROS" T>
-
-<IFILE "GSYNTAX" T>
-<IFILE "1DUNGEON" T>
-<IFILE "GGLOBALS" T>
+<INSERT-FILE "GMACROS" T>
+<INSERT-FILE "GSYNTAX" T>
+<INSERT-FILE "1DUNGEON" T>
+<INSERT-FILE "GGLOBALS" T>
 
 <PROPDEF SIZE 5>
 <PROPDEF CAPACITY 0>
 <PROPDEF VALUE 0>
 <PROPDEF TVALUE 0>
 
-<IFILE "GCLOCK" T>
-<IFILE "GMAIN" T>
-<IFILE "GPARSER" T>
-<IFILE "GVERBS" T>
-<IFILE "1ACTIONS" T>
-
-<GC 0 T>
-
-<DEFINE CNT (STR OBL)
-	<PRINC .STR>
-	<PRIN1 <MAPF ,+ ,LENGTH .OBL>>
-	<CRLF>>
-
-<COND (<NOT <GASSIGNED? PREDGEN>>
-       <GC-MON T>)>
-
+<INSERT-FILE "GCLOCK" T>
+<INSERT-FILE "GMAIN" T>
+<INSERT-FILE "GPARSER" T>
+<INSERT-FILE "GVERBS" T>
+<INSERT-FILE "1ACTIONS" T>
diff --git a/zork1.zip b/zork1.zip
index 2de2d9962332ab5a69eeff64dd3e52115da3cd48..e447402828441d44375b2b067befcd0ef02b37b7 100644
GIT binary patch
delta 52815
zcmZ_030zax@;E;CW<xX@7Fk1xQ4kXY35&9m3nc6WSp*d;$f9B^Xtge_4X$l1u2E63
zcwOQGt%Ydo*7pSKUbQM(m#PI7YiVmO#kzFyKj$X+`rh~V&*wwtEOX|}nKNf*&Jt>B
z1)uK}$any=({i(}hHvCOpqqv}gDyN=6B-;rJ>FAyG|@b2u%cP_7HvwK1Nc#`NGk#u
zc88?@^U1<w`Wjn4{T(|j5BQy=2JZz5AT1Xl;HJGM6R{(Q&GYY<wwEgrsXn&XcnxzT
zDgPH~hixS<Ut-&D(tZNdem^%q8TA^J+A6s3{U99fsN4zg5r>}kthY`zXP8@Wdgw!B
z`>tvl5}KxrC#A+A!<^GjlT^T6m7OWfAZ69(DwdQ36;KQgX{)%j7|X8&b4mE<JItI-
zmjh&u#nfV3scLQ7=8RsMP~pa~mm`M`cV0cn$9$e1Vgd~V{T|Ue2@G{k5(ABGhE{>t
zlS`Dli-&VnkKPl<0q{XH6~v<v$suMYh)Zc5B5(doJexGLeh1<e06O^50OBoN^Is#x
zM**@JBY^lD8n6rh8u1f=WGDgX??`Y=Ll^Go@5^BaLjO>J7Qm_OpUjo?HTEwP5{4#2
z|9276F<YSjN{*pa=)Z+a421rlkzV=O>I#L;PhjFH*L)ica3S3<7z_i3amdws2I!Fv
z#QXvSUZ-dpG^RT+;9XjWeFQ8Xu!3vGg8@4@?0gt-fGbIZ0pD<ZjDi7AAXp9y;JAbj
zLLGlSfJEXzgjWfYq1+HF+9V9=1He}@g`*P&k~he}ZXxn~j?Q(Eus~Cw`OO59&!~7J
zKaiYs&><gtL2{KQiSge^e&X8Kfm0u>hZt$IlZryr_6~3|a)j!^X#$tn3Qp6w?x!7a
zGI0!j4o+*hDi?6t1(-@Z0ZyNjo-`TYbc!VUqWqn1K%x$gya1=4IF43<Gm26t-wfdF
z{M#3jY5<Y5lJGY)6r6{XX6-+Na~#JRJaEqAD29WxNrF`|C&AgwAs+?j-GmM{bpDbn
z5$8I$<22DfV#yPTuLe2?TudUaP693-giwqtxCC*e=YvZkmpF3IWgJRR{s6$`U9K}s
zY~orqoO0Psro$Qfxg3RR9ZbQhHXJGpT?sBPIGkDCu1?4YY3LdNx@tfLaE;<9Ujo;B
zlLNs{0M}}+C=XogIWgP?*MD*CpO?8_<Px8N>vx3E%?se#jS2ZYfPrMpF!Tuw3?mZW
zfhD6jf^T;YEJ7TIn-5{2iEA|u2Cn8P7r;QY2SxHdaAV-tU~*gtX=`BMBS1?x=4)`{
zR>jcO;O53*PXsp=H=tYK76;Wu@E&BjWpTZJ3T|^a917glf>aJq0Nl2bUXNnpAcr%$
z%k2s`u=a1=zUNBDg4-W}sh)p>dw-mNokP18+y{dM`Gs}v;rI<PDd0YV!_EZvH%K45
z0NfXoaU8-#9j9p4Ywk^eOGt+$IKj9Co))@a=2~Tgdk5(wW-WN&c(Cg1CJ!$PQR^0g
zM=XakXuU@{a%O^|EO;#Bc%;2NSgwu_9{Wi9IslJ0?A1Yr2~POPoX0PmJeGs!09aKd
z7r+!xIl=i7z%z`a(*vGa;7|m6N)CHY=Lj}|XAR;28cWYDT=SdY`7hw>04E1L&v8Y;
z;Q5HmqQ(b2|Kgh62QPPQMx{Llui+d{D|lr9*2TnwS0SPJCV<xza0S`~L%ddys`fbW
z+QuO(!0U4^p#-l}Wc2e98SNlyjO<;nCtSjm9PQ0VM&vAjw+n~86ug7DK0XF-+Y%6b
z<ekq|Z3OQbT(be-y@+&=AMeeStDGJHzk7d*boei@<SQC$h8_g(PEH>3x1`tw!3C*|
ztQT)sCXM6>hL}K_$x-|Qq~i%j%)da2mIT|60qG*nBKd)IJy&ubq*g8w3)1tP>OBK#
z2RFeB`beKcOA-7E=X_ADTI3f2e6)l`Tn|1e9G#tqe2R#G(aQVGr*+tc8caURaWTN>
zFx#gY_=&I#>&|j@-jO~wjdcT`9^?mN-T_%3aHausGH;HL32(>(?P8E+aswIxGBg6*
zM~0519olESFIxgsyL>RV+6pV=kOm&IFA>8bMgua_b>xW7#JUc`n)Ncso`X&Y=h1wN
zIq3y~ubN2jIhMp@XZ(Gb$mhEEJmWi`w7Q8Ut3W7+F__o}t8^NG{l15|<{yCX4G<w^
zta<@7(Eb4OzL<daT9EsjNJ{fP$Rm+7;9%s)ON)Gt6UgUqeQW?ZIvMns{XzZ-H$-!h
z{5T@ZD-pSk!<jcs-otga3kFFzf>&WsFgKplFi6MY%=u|h7O85#0)t98oG2JH8%(G&
zX{9h|35WC{4B9~ybppVkL%^4VZf^RZyBKhQMg@bO0$<nfW-%x@_G17Pex#3Sm>5ax
za5@_u6-j_gvHeR>jD}n}iXRl^9A~#du^43zF+YI9LOgHUNKhQ6$@&|r->0|){36Ik
z?EA!|XoN7>k!z-#KG+r<{P_Cd5aMumyat0)IbKaLm{VBIBp5u0)*&5-uLdt5>U{((
zgSXLvwT+(Lv8Pg&C%&ueqs=M;o{KWIdAG&aS@x@RfxENYuddFjRVJMP_0GxFOYWR`
zUhiAw!*i3U*31RI<VIp!sb5W*^r(BRYUNIX<&p<2E+hBoNA4c!_DDPL^RlT_I0JOm
zjfTz{sjKw<+N{rkpL?N@8n*L%xHS>t9>iUjEW~z!$z6rK8jCD>{`2>DPu0Hlm1>O}
z2o&b>o<!3?uZrWA;6#yRB?zL=1oVyAG`?-OWkzgDib-?y-$CH02ElL;s5W~6&nYxT
zS5xMrf6MvJ-ErF2`j*BFt{w?=dF@t<H6=;+G{vMXT&vko8w9R_tU(R^hvWPRoCkR*
z`Fuaa4vVk9tH0`l9>FT0lXA9Nx??{wn1;niL_gR3{F7?=2;e#QR7|NZ@%>bG-e;lo
zzNcQb@(S>s{r!}M{0HmYd2Y$7)#v>Rnt_*mW6-Y4tE};L@q6O8X=hB4SkYvuHird#
z;Dd4w9WSmfk<ue~XSmVY@eP7zJEP8qzx1*Z(#fO8bzrQ%3aA&GOx^JZ68MI_(Qjy#
zUdU^YLI$gc4c~2XcXLZs?VRQ}@h(n}(0DAl?ogp@pwI2-W%IqN-3Dp{Ca8Aq)la+|
zg@XLM#6Qt<{F#Qi)|9oe7g9`F7r*|6$Y9w`T)D$B%;9@Yj>su>-ej4PI52)`)|La`
zA-jQl`UTXQ)+2fURMtuOvtD-4=X~_G_f;#O3hsb_n@C}Xwox!6Dl-wZZ@w;R#_0%L
z_9M!vf0?+UtUm8I)M%eH_akrJ8ndB!Etl2i98!a${x=mWOz?w@8v)Wy+ThfMT4S{2
zZ{P(#C~Ir7%!vCiZjE+aEC^go!i-pWFW~fki!{KyPGza}6W&D$Iz=dP9=?!$=r%~T
zW~tzNoco#M3+`Lu)|JY3`8<+VkNjwfcD_`#d|uhqaE8KaM}z+@i?1nWUAOdUEjla!
z?dUhu;HiK7eKXLU<VX2zb>BebPJ2ac>I{yMDIwSdd|BwISh$Tk7qKp4g*LxS@_i6^
z0<Z7=@!vLd#_nc)Do5_laog)ssj>(NcS5I}@&_4?pmN%2DR@V0`l#N$X%+$6*A@#_
z-H&svj*j!Lj>cGMD9|qA%U!-QX^_hDI%(_RazCrq8FI|Z&Jsv&dw9uYjW;DuN$j6x
zUegoEsslD)JV}`K-6-4YvB7;*ud46{?M<zCW(kh^w|4Xwn%}yCR&;f?1&8;bj~R-C
zwX^GUknsAs%R$wqB2JP{ON+?L`^0^`c4n(;^(TVn`*GsxcN5C1-vxo>nx|>0@c!^i
zrv$zM^UuD6drk5+V#87G?74a&>J|j2Wds2PZaS>mbXbXdOQqExC_zkV?D~{K^e77K
zn${ayELLV`Oh)1oZ3#x$gnyr4?|RRboUplUgS6he-YbL@@SQVX>ml~Q_r9#j<g;2^
zc&wLwSpc%{5}>MEN|?6^qSeR6{U%39e(ma*8Tw~Yh1z^K&GR<kO*CsB-S(Ri>6P@J
z)>tF?3j{OP`sL6MA_LDanW2x@M@eo2{o1<S7OTEXCyAD8=TDP7Cpui42E4)x={=7v
zreJ-FcJ{wPAbJw11f^o>af>zDIdOK}ACewiLS%SkY4}d_DVOry_^Oo}w1k4WqYRtj
z#iY=4mKjkI$&0iT?@7KvWnNYy7bK3@)S>tNAa?CipM2>h?+-jL&FOg?U>5n(W}5U&
z1_k`-d&_hLFIZ<9tu-FX`ty$$ASi6}UqinalYHOOt$Un&P3Nu)L7JZ94axjB&OWxt
z-j1o8t=jRrKv<d_Wa<Dxe$L>?@hQ+#=Vy(4CvkS7Sv&h#*8ROWKv$xp!4KYO3juCj
z_w^c}S{4D+<{L92uB3)(v(IRL>>4&J80gWa2ha0oB;L>+)O>d!VB-k1K%BLcZG5oC
z$3eQ;U7}k3L{I>{-0MZ>aEYXpBx<!vYt@qO#fw0|*`@b#A};HF=erM7?Tpt8iMetP
ze4|Z6w9b3}tVwIlqw^`y=H;R0C3xn1l;E865%BbeKqZbd{0|eeC30tcArUsM+I}Ly
zyc=lQQZlKtA}47xp93u_sj<8}Ytp(DuZG##UMtRMC!fSA;N_*LJU96TCmOWxZ`1s_
zQ3*0|2wv@%LphC-%&65lc$I&5Vn$RFx`cO<vOYYvEO7H}H6BQi4H&n+mdX@9O6gXU
z*Q+JQcNrOQy`rnS#4S@>bp%a^YQ=Nn_GAxAz-JUXsYrn~$5Yeu0|>;eVVr#T39P9L
zV=klg4t%HDd^%w5cetp!!rF%LZCW6!{>YoyNa-c74?Hfd<I>v9Mm_Tznk+K4r%e{w
zgqW29BUc8vO>jw2?f9^FdhG_!mz6z=sr8ZG?lpK5Z3fS#={Q%nEWymAtlPW0QSOF8
zdo$2M`aajrTK*5GK34jPXBBbkLf`z16!%5J{zm1UvKh=GW>%Hy$l*f=iLWqkz)8Mf
z#Ff*X@H}F4R31uhdYj~rAQ%w1{yyhNgeq2!-rQNKorAM0ec~3VTKyiGRx~EWr~oZ|
zZ{w2Si0#@c7tM1EGSpR^KWzn?<)c2MrEj~B9<g?lwrpPS2>BBo^<zwqS&b)xnL(00
zxGq7YH<UFLiae_Y$)noZE!K$b(L<4s_a|r$e2$EuV<Dly2mR6d1%6W2ow_jUVd@9W
zMeTe>vl<PHtY=11(dibn<l7Cd+IOdC-Mn!<2>JvrJE4R=z$eCm3ccKEjnOjK(nQ+n
zgR5?vwr|@Su=Xs_B`Z3`!MK#)$^)TGbd+c0>#)w-W8*U4X)=s|*4Wl8_Bv-q)WfJ>
zwDW@{f7&%^vdrYuDs>?yN)%J5^qZcecu}Gp;@G@oM$9JU{_TlbE0*sJ+=F2>iDZ-*
zlh97$I%nyp-fw%D7P>DSvA(ZrYmeWZ=F+G=CXA8GyU0pg8hJ+Z{29>F>#bv~QM#C_
zi1XU)ajIo3dMyxzwhj3rY}628WP5)06-#&GpAnK2RZ4`Wr}ZE9^+Q>#PdPEK=;D+4
z((4%fS>3Iw9Y=_DwFP}6FzS<yl~#H1xTvorG(#u7c4za9h?6Npw0TjQlc#`R?5_HN
z_`+^OCFvt(oTR}#$Yr33jIQeLisdzUDx%ulMh3=vw>Ca=hb1`8pjEb^AUzA)v^wXV
zCBkOCEX^l#V5VxtRS=|ZGWrXjdcBUrjPKCDrp;nCPk#rVa9K+JreQN;K2I@8o^!%-
zv~g~DZ_5eac3HdBs#^6K?jY8p(#L2~KL=~hoJHTi)S&$Cgzqh%r>f<DfzYOPh5U(|
zIxVINvRb9g>XYEP&7(qFx>z8*&rCD5+T>hx;bg7V;2paoVy<?WADXkAAyh!EXIuT|
zcZnN(n|yhsaxPJ2>Cp?L(0}_FrUnL$qPnJ!8fKCg3vZq3Ht3@UL_Efz>yKSKgTTQy
z$-w6iDep1JYs%hT==ag;`IGTWI!OD0K(+ihGVBy^?eOcqa+#Y?-m8_pBh<FCY00Jg
z*L>->no5=>Yu|dPTD2HNPKFY{s?91-yGmBb2KboV{3@_7)ygl>M$tuWD0G8DJ8wDA
z#ruCAWi|XvrV7`LnR0P4Mcl<``iDQ%Kn=&e3}*mk^*&48N4asHmG5(H$iX6)M$h1c
zFv*I*+5t-9Lf*Kp*i_`~tsH;yIL=d3+*xhOPm;AkTu420f*O=g`+s!weI(2C(M7Wj
zo_QWR)%GW4S2Hji;|Kef0QwN+jL7}bsajL{I?ajWfo!xA&9A`8RWG-xgpaRunrh`(
zdj#u|fJWAu6cX2i^Z!fW?u*=VCn})ylso0@u=w0meeeS~h@M0w2T-bM<y|=iJg1FI
ztZ`=(rzAyc-?D0Ynury7)xbBHG!W#OE(K5lJ$`4~E!~leBA4k`CeGGQPm+9!3c4aA
zFr(VWjc=%|iL7)1G5CpXW%=hYs+omW@+a-|za>8qL%4B>YP0`;=u2A(eV$BN(*OL1
z8Ig%`^T9#Z!~9<#M4V97UE+m4^5kZqyyv7}a7vxFz+Lh$6*~q4MVs~V9rM8aDx|n+
zn<?+>URynsZVE1T>Xn65NxJ5b-U!Oz)jKTK#N%<rD7IsS%MZo9l5-)^_4{?E3J;lT
z^@#s4?whPyR)B&*xhR$16=-RhGt35*%2)<tU)3@+Lc~eRf_;`s8{9*BgHXQAA0r&Y
z;m+=OT|}SwhmoDVx=iA7IR-qBMhB#UcI?M~jE|kfD4z{dlfq3&xEDAnmAKO|UO8ux
zS-sx&_|)yZwxXQ`R77gD-7TTWB^dmb?cGz>o!qIv8b3WTSNq16tj%?sRGX&^1p)BW
zuTN@;pZ1B~%A_%gkt4K)k(z&f5x8wWh+LLODdBznS3w}@+9)<1Ox(Cu`<AI&Wy#hH
zC*jV*wvF(W$JSo*kxS(xYcHwR&G4JbfN*>YwZBwUc)du}pygb>f7K5^KkQL0YXkvv
zV^Bl7r^m0mEy2mFB~OS2<^<#uBCYpCn})u}#chfqp#`1qkFqaRyWRqRQa;nB>Gxe~
zaNK7m?XX2v@4t6pDb7IePCHQciT7AybN{o^h^fsd(Yre2qbAj+2x6lhoN=MKFP^xm
zjJ4}%g>-=THq|OTEat+}P@mOq{@R&ks+IA?43zjEe%76ICAnYH`J`{P!(3LK`fcL}
zx4=X@`JcA<&XHC6ye-}4R;ev|Um(Oqx_XGisHum`tkIrPbI?G1iP|%gQ=I{-x>6+!
z243mB#8VA^R;DPnEb)6y{YMz31(<)d%@+^1^|#Pbxh2ll+`b!xGO-UuCiB@z1`-ys
zyGT3lP1PooEu2recBj^=Ul4yT=7x4W?|<iNz9-JrJ3F}v!}%I)n=cG-U$mVFj&jom
z=p_$H?7n$CXPw3wjDeF{1clxh0d<qp2j;i9OLzhiL?S%Njn30<-m2xF5#4gmG-c?>
zp6$G&Pova#V54f65$NEat|{Gdy9|mLh<#r>Yzpv+@3XrWZC<eE^r`>2lFZspi!c8j
z;!Lz<PyB?<rNoN>e`I<<pYY3<r_6}{5#@Kf#kTHLoAH2%3o<9m%swMjD@>>#CCQ<l
zVYv6z1{?x<QWEY-Qkqh9iBfGTFNhp(98iKNVB=LZ1O5t-t!+V5wI%UJ!jF-kXs3_Y
zJikYVzHEQMwu8Vg@5%c&CB)rB)O2kgBe|j+iicjt?2qz;b?1RM__SdiF6ijm_?xjF
z+VZ=a3+GKk5rZGxr7ZGIs#gX_IcSUj%IfL7kM_gAtgS+~`I<GNIT5|N<`c4e;6@=(
zeaJ)EnL+OSAaYXM5?PSXe3j*tAnJc363HXgh7{lxJEHPhtcDyzI>tP2{Z-Y`{@tA*
z;010yqsC1(p2Vm=G~&rY=oEB{GEbiY?%T9e$gvWSgn^gKtdSd%WRc6Xg>iVgayksp
zfV$%|6T@SsFn6@GUXm5ZPd*m`vZePeGa}#7hid0ssQPUG{e8%<5=zl1<6g;is@*Ha
zu?@s6NpE}SdFfO;OkOs(M9Wr_)~gc=w8ige9y|wuG215}l-m9G!n@-%NzJiQv4^zT
zZkk^o1D|N#f9>!dqS`MVuN)$coYJ-=IQ6zRXQAXQI2K*a+dE!w5Bfxfr<G)56M2jg
z7&K^*8*$!n{3P%LLHVY_epAi_^jsEn$9)mGCGwNFFE#7e1#Vs*@Zm%>4Yl6ri)zX|
zHq^2{>qTfre--$kZw!4yCrJ1D^^jmjoG`kt_WeVgigWrkLblvvscOY`yD4w>_B<r$
zwrvJe1GV#Hn){!jd{m~*xZid0oDz7^BAu5%`Wrla8Y)oTkI_~aCUjR%ePtD^V>b=+
z$tNdFmwLAw_VX25@nD-EIJ#V$(<JEzYRBd7XiJ=HoOi6hwsa(_i6L^XvOL4Fy2NLW
zbdG8jMwhb40MXQl%VorynYbPDRiH@}8LYpcof9Pa7_HUX+kV~2%MuR9>CuMIG-t5~
zwgiDJaQBD9anB@lE`P13if`L^`VNqWs#d;*B7BjFv!+^hO3<CMC#s2YA=`se$$=mk
z9Jsq%4FkBd!d<`<b$ec_|7b>hN#qf&X$EdEl^7Y&gARA<tx;|I{3N6HT}{@l2j2pJ
zLV?Yh%plH0Tj(G;LiR(oJPdrtfU+#L(=sFBo8%)}qX_8#F=0H(gHp25eIjkt&cchL
z8C~ba)-<q%UbvkJ?x|n}W3o-FDY42EqmQVjr~`3(Q-ZZ6xsq$>4)IK@l%IQJzXi8>
z#C?9?F5phJKCp#?!jk;gHjx0O>Jo-vsS8s-kh}z5`Ged(mutIYv?+5^rbkcEj`r1@
z`wG=3ecqw)d3ZcZyVI&wO0u#B?bM&fbrfY<8@({84@#<Pndb5(qLH?ZRNWs+qL!R@
zd!^N*&TF3Zkb{Tp3V6@!Y1<NSoi<mh+I|65NbETmkLAYu{5YZ(_kKyGQOn=I1-z0#
z{g?+!f|Fge`Hv+#kUWmeK#oEN?Yyh^9VDB_j9C7&YDb!Vdz0_@Lnt}y<U5V@oJ)3+
z?>gYAuyo8!0=UCr#3Y32(o-k&=x~(~uy2(Abc%{H|2p{Re}0=s`OU?@$NP%>WwZ$|
zDb_9C^Y+%GI4Icoc)jzQ3+!Pu46sL7$1dXz{dd1f>b5p+-?eq`x)mh7cI)o9xB0F4
zhTyIL>cgn*jkr|=_yop672Zio@amxvz96-DC^!JNrOPpeFC^0Oo&sSx{^2$O-&d?R
z!95JF@%;kcgIY)`3*Zz%;+`Y$R6nVH9}a4{dYC#`9i>iGk5{i(Z&B|KqyilST>^&(
zh6RoeoDeuUaAV-%z%PUNLE<1;P*6~KP)bmCP)Sft(7K@dpaVfIK^;LaG%gyc#!nNd
z8L81}Mrp=srfS~Nn3ibPYrfW8*K}yQG{0&7)C#oyweH#gEu&4<=4cDGv$XGO-_vf;
z?$KJcN3_SaSG5m<-Gc*yG298x2`&sS3!WA{J9t&_#^7xsypVn&J|VFoNg)LxQ$ps2
zEDEU!Sr<|tvMc0ZNNdR1khYLpA)O(QLSBYSLI;Hghem}annE)|M~6-dtqPqR+7P-g
z^o!8*q2Gjl7y2;td6;vUDl9rIFYL9jNnvxs7KE({s|&jo)*1GQLOIDm1E~nP&s!7?
ze}fbr<9(^^GoMHOi75??rSJ}lgQNoUcz6B_z*4B-DoitB3iTJbzze|F8+Zb|5GGT2
z9SDmdlqT0#OCgMgKL{LX>lWbk-cFz|qPind1$IW@AnI4r3w%hu<lu7ZcMc|TeF6AU
ze{*?13Mt~pk1{>w5;b;`c;U)@KJ4v6KsqI#I3CyLF$B^tkjUfHYBFR3ZDZFwdykJ-
zJQ8>YZ(t39dDJs5pNAxDc^fI1L7K>XG{@9J6UAK<LK5PVPm-OpBnmIaxx9S@Tn_88
z6U1z>OQ!`&Iq6`Y<Fgkc_6H7#>4Z;kitzH$4*%jH3d;i#-a(;w<5L<Kf)n6@P=kGY
zBa|X3C%o`1>K%Ik%}pl2RJ$;y;_W*3(b)iAH`^2adQn%|OL`$V;T_rEzMhZI`eKbQ
z&bPAw3-Brzps;s_X~22Yz&LVOMj%In=#ZVdyqBY59=3IpKJE@g&fHLM0uiMba>xVt
zc1e2MdH10Iw5#Y}9D*kgl}AR#?`GGIG>RPi;hPhpyH2>9M#*vdGQr;egx>CllY~uF
z_Nx9krJT+Uv==}bkpw4ajwq2gSEYe)n!>jj_%Tv1@hXudXk<<%)pRehQ(4?g#Q~-E
zNCtA4jwKw#^@A#L3>I;B${fUHa?HL=j=?}qc({-V^Ri=_1vLD|!CsQ)-cgLkgb9h_
zWdwx_#?}jmMZ>IKY<{n<y1h#DPQD+<J3s`_KAt$c$ltU#ezUiyDZSJfQbGi$;n@`2
z1SWeUn<VgY2k8eXx8&OsFcD>dI{z5n=g1%=;v$`w+vm2NL-m0cWp77)xe`x!Jcg(p
zY3yTf>|-l%fJ#ze!mIvDA!m62CKFVmkDNk;!X&N<!vEDv8wr3adw0E%JTI_)JcxpV
zRC6qd{=){jVQL_#7h^S-Afq-=cKOZht?R?1o^lftgG-Z4P>j7MrdOhgy{Ieu^$MT<
zjT>hk*HI5dQ)p)KlS`3%HGmw>_K|X8kO8teZ8!Bm6s`lJr=#rpItq;_m*>z(xjpe(
z@37}_mKk6!8l(R<(KN1W&Qy~oOYKGplkPUbkfm&Q3wBAF$ioWmlSxX*SXK4{Rd2tJ
zy@_ePqo31TA|@p^=YeYOgX&(51wObO2;@FOq6wU_?QK1~w+ajFS~s${h=*fDE+k76
z$ehcTO5({fCeCgdqHvJrOmz!{V8K9Ctl-{BCl^oT<I+oPd~ae6r;Sq0vn;}cFE(<f
z(T#X{J~nmZQvs6b_U&aaxwlmb>Sgx;B#8F$B?r-2*arI?ry94bIF&YH@b>_Z$EdfY
zd;CaxX$>P&Mh5SORfPML-kJg%E{<PBiiqv>w+-YmylZRJ?S@MH^1lpn??U0(P2~z=
zT;MFM;HV+&l?A>G;XaW(PTh#w5tmCKDd(fsaS7~SOH!`5!bgzC&d3Npw)&fc6xVnm
zWZ*D3t?jk0Z*z^2kj&wgOGj^p0~~_=^g1yT5)6J7BG|NCfzxRV6*%i`!k7VRc_XRx
zUYbjL2cajd;zu9xDB^h}f61~)N#y*<O_5(jo?4n1`E}$EQM{<PqSi&NiP{;pC*CRQ
zdqbc;FY0NuKDvPUk@+&ZIeKgK=h4TbpTva3<ite8#Kt5fSHyf7>liDI4T+r?8xh-L
zO86>qNbJej?l?u<usC&Gl>TH~V%#q}xh_^$sEd#9(aqE~>aH?DObAnK*u%_W<})A1
zPh`GI8pT{>ZpJ6XkBdJae<}Xk_`3;ALRS2b25~}uqI*JNLUF=EePT*j!iI!z61OG?
zB<@PQ9QASHb$x&R5Ph8fyHrp8Vf}r*@u5Lx7;K0)WF$u$vJJ}&s|_C~Ns|;w!;`d0
z=}BQpuP2$3-cQ<_^i6U@;ycN=lD|*>E5$J-DkUx@HR@o>uPKEof2X>p4ow}N8kQQL
znu@``(oLUXlbh{3x{Sc+`>O|e1tv87vnDR&zcERj?p+%OlWN#OUP^oDZ2=ONCg7u;
z6g1D|lhlqqO)@!$e+Q2u{)S&tI^c1H5q^zrgzkt^_$}dW=m~!SPZGX{-y`0Gr?Fk|
zETI;j$Hc)4-8%Rq)f4_qI1PWLcEjH(KJbzkI9ws3KXz?3S1{YaO~2N{{}tTI5IhFA
zhnKUNc5r*TX$o@_!5&v;Ik>&J(8ZV@fV&^!`~n^p1gKFxKl(X50#Elg4~Hk<>3O7_
zSp%L?4Rg^PA$U%}(!*u^m*9DAt%c;S)viO}rN!n?fIM*^InwVR;5GSBj^aCfs)xB}
z;5Fyhd}cj(%{_cmu?4(7J9UD&5e{B>BIfWbcs=K+c}vz>n9JaeJURRZ-Vqzc%oPG8
z%vtcBRu_u2y_dG?nGNP2qr8Xg0qHrenY8VQm}vs3jV0-|-4?|{%zbQO?wOU*-acP~
z^k%&h8~Yf33{?C9KB*75T>9k-rpY`pTEi>=ng2F{;vNEv9uZ~!_xza8L8iRdpX5Tf
z378%Pmtqy)BY13Kz5`h#c5@X?>}|gm>RWSL^rVs{AbW66p!fk~U7NTDU3F^G{L!8=
zW;4ioT5}Y45p<U+Zi4JZhlM!;<ZKL4eACxjTB!NHxzC7Deeo86S&iU)isCQ<ZHi{_
z9fM;0&HPb}hWg2TA;#OG3FJ4nT9}{Azs7h|KbXa_3f(;zbQoE^grJiQL!sPMhMgej
zRGa{EeMt)OK9K{bJDGPt5xPyP_z*#do_XI~8LKhjW3e@-+n5WWFyG5Y$tcYCFA#k5
zgC507P;C0zkNFW4bq$@Q5Km|bz-J)@^xP9LHK6$Wp1<N37@WsV&ft8cyb}f^`^>*#
z@adC8UxuK%dAx8Na+yOJa(Ux2l<$zsIP9JHrt?~hMe!Su$5V<!;Fos%26GGi@;AM%
z=mNijZI75m2p;rc3%`@rnam~xXU#~|54C~$4E);8=abyE`xXMOHzYB~37E_*L~!K>
za|Zmr-ECoh0sl3-35vhDPRVQpatw<(jX%DTV77w)=5vHa|3?=DOfC37y27D8`dN>f
z=Kttt(uIG|6${f~z7jXgVF3&iU$iiFW`Ry)`UaGfzbjBI2j%OxzTI|-QqH`SyRC&%
z&TZ&qPJ?RNaf{+HsCJ%d!;z?VHyq-3gKF=63$qwh`)~J0`l`==xUM(~szZlgM^02{
zIVlal-kF2TLEUG4C-$vQ-C;qd)v3oV%t26}Js(aA&mHh%&SoI&dPK5#g2PmU8t>_t
zCkRksKSI!OfYjYaVYNb_|Cu($1_YfAir*nH5C^mZ0`a~YQ36+=+|2x7&SW&Y8XzzG
zSZYaNZ3~e@Al?=;EfDyq`HbRY2<)lf!kj>G+T!pG!PkC@GZ2*Ag0l%4Vp#q*cQ6W{
zPe4nQ;3ptQpGZV|5)sdXmQ2P*vpn9_p%sFcAjVU3bi6lec|p8_I%a-5KF+i;v~9;1
zidG11+a<u3p+xaNg)r0*%!L`axd|I}atSjR!m>}kPYUsdnt*&xc47IuE&LxL>;zIr
zlrz}l3kb7mU)T*SJPRZ6Mhkfxu?};8!-$P*EsCFkyr@7b=7<CrpGz<@|31MC$00Fa
zL4^5;5?5(t(!nmK);uM_+XpjKkKdU1*<X>BU0sM6IcFQ0hR8V$&zTqItqI<euORa6
zBmEV>LX-f-@*K?P5`uKU0P`BhC4<ihm{q`#X*&bV^>z#M5||rX8x;6-A8($JR{XS|
z3kaBr%lr-`5>7rbM<tF7ejD_LkI9JjhP}k1koQp>z%^yU+!dnmdIL`L=Lk@XcbRu2
zDl)r3k2=#rb?U$Q;S9n5=7+DCFF;Rp?J5}FM~2K`FgIE7C8+@~2$)a6umPoa4-A_d
zI+?Et=u$j_q@>%YnPX;G{YYw=IbEMaePL$xuBzvdYQ9I<N!|3dKL<JqSE+SK;y$Eh
z*DINIkd|-BXU>?v)5lUjn`H(~(#J5W48`*lMomRW(1QTG+6bdA;b@OR_As291CWg<
z4$mRG0x^3ad+tRphqn;?zaYB-N8MpwVF)&#GK3UxwlJ4W^FhcZs?&;KKVc*<Y@Htg
z29)?=$V+MTB)Pn+`HG()FaIvFDtSa_4?-T9o7<3gcB`Hgp1tkJ{M$Sx$s6BJjP}15
zxa~eQ+P|}nr9K($|IEVNh0&2sq@U4|%@$@Qj9!HUu7}YZ_MA~%gwd#6NM!V;TNdUK
zjDCO(t|NF(Y|7{^w4sM!^rNo{W21YvrZP_<e-!ff2as16E!5Hcob8bl_dd?gzn9AV
zFc|U+_FJ$;KH>8P6cCm89mW~H4#f83GErlHH@hV(OkGfT`3mW_u&tR4q3|jq-a&wz
zJ%{nQl$dT9pMtV|2;<XEBqPfBQM<3>Dj%P{ky!Wf*=-fLK*r~7yoLiCpVu&#*@58H
z3H0jtO!6AD1;K+_<^vdix^;|VH;l)dCzL8Vf3K#@2a;WVb_01BhqNXnVdn>70=hkt
z%fZ}J^TXtkrZy<LgPC7}JafRRV#jMleGrT!!1cDCX@+9=-ItlQ2pX3t8VLA+)VUu%
z#8{wMzt-a73B`unV&)Wr?pnn@C{D)pcm;}6k@OP;yG|%JA;1~M+$e6@6yse#V>LlB
z5#tId-ibJy5wz-=a|rHO6dh39(9o$^1;xZx?}Xz0Kl%|a@Z|&P{xB9|yL0<3sM5uk
z8s;jNBKSF<r7jn@9r0AW2gNs#^gA%o@x&OG+B32LX(I87{jU&vGtuj$A5w{(=-)&n
zGLb0J8JHNjRgX?{VxUFeLM@$WIO(V8fr$o;91x_Q^kY6EAXaf5CQkdLjQPksE>$z+
z5lq~R>c1Vq?Hh#Ffw~h+BTT%xX9Dvsl=yG9Fdv#fP4ymf4KpauPY`^kWi}wdPXB}w
zWrIa=3js3r)chz_<MSSrL?ZbYP?CoW@c;qe6OjMSBMil&(!5QzP_hDt^Cg1wOBfbG
zrx?2?mn{g$kvahvQPqBe(n~1!^HAD`s#XuB*E{tXWR%{-uwoUEix0#sBl><B%Cf&v
zwovoR8gPlffU<_uTpg}${_j9;>IvrFJ#!S6!BBRfE#2X70+wL-Q+D8?h0FcuiOiIt
z|75P1pQXh*T!QjVxc(2CW7Cz?JoA+F5ru!iBoc0|fJrOv1uDLU$+&<#{&cU1z30e$
z3>D?y`{NR*n9|Vc@R)$#2$)*uNebV%yo!M7mn6(@P%-;QPsJBdfi|D{7gWqWq-R>p
zf20pXkN8G@#}($Gd3c7GDa2=M74be_Le&LSn4h7F2xS9Q5urRqaGZ>>3LnQ3fREe>
zAP#Z~OgEspI0@77MKV&Ez7v}-g6TWI7ZA{Z6Zr(D@9oqp{)Fi$T4pbT9Tw($1eP`h
zqO|SYTs?q7c<vmjyuRPU>^EP@P?%Q292_(MCz#WQO#A_JiS*YZIJsHz4a_aTx<~L1
zu`55ryXgNXnlHXvdn^+<Gj%sh5a5-D4nBZ9xP(v$`5=ee@Cd3g#m8TMc;k-)yzxPJ
zFV27JS#VocV%om*L$6&Mch&8xXRooh*bepq`y>09eX?xs?rO8M+1u=I4mPJPn+&D3
zGr&+g4+hjO!7Y@lc`P`Zi$Gwmz?>uaVP|{sPmMPy<R^DwKp|s(Sf<82{vHr2F^91d
z?8JNkmdFsk4Fe{?QT*{m0*qd_YyG0#w0W>{DPEp#s{`1+4X6(p;B9O{s0ZHer9f@l
z47_cVFs}vP)+C^|W@7yrp!O^SVfxN=Yx?2zW9etpFWV?=6$7=w4|vOUK-KDix4sgn
zdKB3DRRGIA!dA;|b)+o)VR}#cpBelN377;M9k8qIcs;Zhc<Y*hGEcW5Zkq<Yj3F7C
zjBtBC(ALp5y!~0f3ES+(at0`N1MoAFGqN%YGw@d!r2Fmrkl}2^h(k<*eFQOPWX#K0
zn6cDO3$N4(CR=C1P7eXK2_LU;oYw$vlbp*7GS+5n&e)OhamIdI-MTD0&M!b`oX)tI
zelx=(Lzgi*V_C)*8P~DRL;U+4>we033{)KjRK^R05}@!mP}J5!lmY&PE7LKvKT7Ct
ztieY-nI?}+DJJpR($=Y%_0LoSuPy>$w*+__@SJMv7g!pa8I3qGNGKIy7Q*a|o{YaU
zg_+Ko^31@@#LUdh(I{>q{$Y1DzXP=#pFCy0o>`SSGjk45>sqi4PHDXt{td=Id`*(M
zB6Ce9UaL{doe|+G7DnP<8aCUOxihmNb1(4f$KkZxMGP6%Ou{B#WFF5vjp<qV_dd3|
zhj0tFxRQB2^Hyd%%14cNIw;)wM!fqwh52B-D->hPN14B8;+X3X<KGE<Pto6qy>83J
zLu8{g^PS9PnVT}LnddU^8-+$UBThhlJ5al=s10vp`WN6EM;IfGvBr2TCCt1;5?RJv
zR5>M3Tlo0r0X*Yt#)-yqlw>vLgHckK5XNKM8OFDa^NjCet^oh0V$JsmXJbu`$+*h6
z*0=%3XvCr#{M(9zb{ZRudqJ=v3MT-6AGK{F@V0!4Bf(D0D{-~_8*vUBPZ}>E{^$7j
z4gTS4E#n>IUE>2x|AwlC_u<BF<L^d;vA|eiTxi^Ev>LxLb{Suw8DTYFeQzp-5)8PF
znQxfN19k1b>BY058CdfTN1wilb=R%@!2y1KEf+0E+I=(M_JL+ApYdA@K~;Cw>yI=e
z4LqUOG37}*wm{cDVCm;uS!jZGp7O6nJMf3&9kl=y$t@m$IWDo_Rk29<*PE&UXeZF^
zG~6@gUlj6lH_*^gx0-_74SbTIAvc_q;1OePI4OCT2e~RzG97V-atR)YCCGW^+YcaB
z!aLm_7sZ1k;si>(X1IFfnrUk!?Q!vU@h6L_T&Q_jj@Am9LdFY@jbZAK<?VA(=Q#4z
zk*}K%8~d6HjwP$9iW+?4Nkxfi5J!M`0TizpIU2`3)G<K#bxV6tKo1T3AbkB2>ter#
zHC8Yv%s~ai25AoUojCZvQQVf?x1eRj54-9-JMs9gBv#w9OWVX!ZN~XR+BjbX?ZZMh
z5{!e!`3|(vZGNBslyD83fhqSh-^@}(lusXLV`m?-;%@*!F;5s7T1dq$eP(6KqjL5M
zD7TrmqTwmUspqgzuUogVV58Y#l+Waij=;kBeSJ$_56U~>jn-Q`rmPKrgLZGy+SiJ5
z#;n)xbDmkYH={cAYF<te)oz8>+VZf0nN0n^Qro?U*M=5A6C<fhZjZy)rw5txAl*Lx
z;NgD#&U^g;IezD~Z5q-B*)Xpd^)X!@XO7O!rpt}yRoTNG%BRof7&jl!)<%}cBTZM1
zW)Y!TUSQnkY))$7-;KbFll6M0T!T|`W%5CTTu7-yA;^(&-b}_a!mQ2lnozEGo5<E*
zNUirtCF-`#9S-hu@rvm0r{ixclzYvYo=-?DC}s*=b^BbF&!Oc*;|fZpUK%=((Ph>q
zU!ohbn|FW4low^}bJ}0!o{cZe*!{@2&fJADv-!OoosbM&S7bhy<2kfEE@xlgV!s9h
z%YQBsBwO9|r!CyzooAK`DY4gNG!A6Y{c?wqL66K;YlBoGiq}!cqv%GSfK0vZlN+?3
zH!~=kU(Dwf<Yf!9S^8vNp|B8(%#FE&H328Z0np6OKK<}$b`1y~9>p4<un}EM(S~)-
zjeH|nuyEf<Q9PD++w71xsQ+0kLbV=C)x3NG{Z<e1FvsQfHL0Cvv$Gctu8fjXl@)TD
zt*ef04~qC#9kzZV#);=sZIw}cU?4v3Nk?N8zfSCkW+GqA$13__WyPzi3asJ-ODC&&
zbPa?g&{Tn1Siw@sVgb~E&=^GtxEjv{ipmx{fLa)3tf2C+kisE|c@!&1Me|@Fh)j8n
zkqtZ7t{PrjULdNWrm{RRW)<N9Ev`ovGTVc&LL@GL8Y+uT$gw)|JpEq-!JJ_z@FO);
zwE0fnpcpUlb`TGP1RkXq52LuT@Sq@JJG_l6v3NW0gmt;an)S;bPi8xHqSN%I6@vKP
z%DIu|J#uEdId1eo(`mGa$E_}diVhahr4#vgqx>1J1NfA6ID<p)gX2Qs^kE%NtNUU`
zpzbRm>3#x|?$-yqzJx0mj5w*SD<Q%iingy2F@29Et=nGnaw4i#0o(8De_<q*_w5&#
z%q*rRGv%hD((QerwE@;hM3*pC4E@d`NCn5Zp{aeHPNnu0$H|yJ@ktGJHNbD^W36S?
z1%1`^{cwufl|*#)B1S~VzQC^w+t<J-ymoHi0zy)lhHH$7Jpxr?m;~6_Ev@UyX=-{a
zf_@G_K%a1-fIv}S$5zxEe^H}IWLHl+Pz%b{!UDCZzIAFmk1p%gn?iGazSI=2SJQP2
z4*{=ET~4VBXtv-yQy+f@C-;Q9u0UPSYn^(mpgyfVF5nQK<-=?>U7+UGk6MFV9tBcT
z_8+DxlFzH$L-p3Bu)GVSc&|_+S^6eJ)qJy^M*X;m-(jQBl-lS_VChR(cYYMzi=I)r
zyO+>0b-6%YAXL|j8u`%Qyr94pFOAUa;78D}&o}I<w95JYprdg(e(l0k&C4#eaE)3t
zR;&Q=SP;8nafKYeqR5x09M}bU=m9RN*NjAY+#M;w?_x;;yXCf;+S0Dl^iRnJc3@KR
z$TbN^#9N5VsDUUp;+mR@U<amQagvECpYi1pu3|7!L63rBNCoc`+tD}Khz(3Q(rJpl
z|7m4zRxXvnW{k4-oiwbPzs~E2?6NDCBh8h$6y3U#PWYG-VG1g9QU4Y}_^$B1$(X0s
zXC!1$SFLta^?p)zahuA6cxYoNS`8CaA56%gr@v~s62dQ)SY2FS`<q`Z9j2%qpIqu3
z<>}>EM7?%1M>)h(b%?aZCX=l$OJAFov1F!eW-Q3n*Gl9wYKI7e@Tam_Yn^u#QSJr9
z{BVI{Fa3LocQi)#2lX1^Xk;@NcPCXCU5RZO5y|u?ERDvg%*B=8uGA!n`=b>@F-GSC
z8M`r*qA(l2tP<royrVXh2Uda98#1f0Ybvm7wErMIh9k|bi|7bC_T>rjatt#N2_-~C
zLdxLxEWCYX!Dy9qX$E@zV6w@OUG=Tiu}{R*2(Ki$V79WsTORlzIMo<V#>&nfXLV6~
z%llML^`yJ<45dOkv&3c`P!1FrdxzIrZIk+)i?2%14up)(rT7%GkDD?Y?$%)fnYZ?x
zoHNS5ti&X*n4)}E>MwYvoU25aaikgB+Oa7cHffrG4?Bn;a#KLPg)^aBh#=KtMRs}E
zrF7od@8wH8mPTz}7+XoyxRF!iU%AH7M3~`~%P>SjNsi!WK!>Rg-$s!hMqo%W6P*S^
zhdc+|>Ed+c;kzG%FcYT%n_w`7y*gxwy+LdN@nYPwKr(7<4RwX+AWNsW2We-M#KQ4x
zMlu@V8gR6W!Vxtz#V3>DUrs%5q{A=OfCfvF@0cnQGN7F0m#_<pTFre?fTTY8VhuQT
z)Xs;?_(cKNqO}^)QL8VNV8ifBne2koq;E893n(_@B=!?Qgqu-ACAIr$X44WLI>YM1
z)>=M1g*?WA`jv5@4GjP353SXXHcEzg2NOMxU2qO-l3Q0ghF`jn;6PWjE^-Xt8xb;5
z-G^sSrjt>0Y|n+{JBYAA%5~hqb)zFb_ZiEdrRJk+pAY1VGIZ1#fVOEi-LERQAI_u!
z)w&-iSCZi&=U0({X*TTuNMQoeS@(qcYwbgkcQh=J!KJD(RlNq)Y#j2JFf)(kWuqVn
zX885fVgahcDwcPb%{Yskl0oH*U8#5r4fBu<n(#vW^BatX9*-+U*#+gvZF5|5FpMh<
zD$Xg(8Dt_pu6dnBoyNxnw~XS^6ic<lQ!o$5h>HhJM4#$S;_@1GK_BrdP>1zVukX{i
zp4gk2#jJpI8@?;~PD*=Fh>U_}bpPtUG)jxA`RjXb02n1e+|M}gV6e*z3;sZ(Ios;o
z9B|z{bX>5BYuX+Z{2NkWSDk8)(;fkF7>L)SzY57j{Fe5(u(dWA{?rZ^BE$noA?Kca
zFl<NV&BDLC`0rUTK^6~9;maJ{88p&-7>y51a`6|6Rg@6!Hqt_S0S^mI_L5va&G!@V
z;x06ieE@z4xjdkFRTPi3!56_ii0f(kAIE46<q28gX*FM118&Ap>>^qy$`#^NN8{2F
z0e>c+vMryPe1T{tEr6;@WV3OZ2-XRT1yr1*>uzH-kDtdwo*Qu=-DGYU7j3fOku%VI
zmi{)B<_mBg3+P+{5^6*p;{*)+b?6O})>}S&`7%_<7Z7!uiK~^M+Du+GBwq}_9^q%K
z#FAVflE4J6+R;eK@gMk(fHZIoqaxbYFpo9y7Q~Q6?C_68?9jT17ZHMfMJz<cdr5Mr
zh}o?x9TH~3<MkOfw!X)5qKe;;`R6&{G~GAOM?HeutZ3}IjQ`Vh9`b#V!{wCyH8cpL
zT34EoW}3YRSVvTcC+FNf>u{bRI}l`ehZRm~UE~lI9P^|DAz|(Y>42<P;z;cBaD+xm
zEX0wdvt!fQRVg-pYz)eg&MdBbqN-C_;S(-n!Z-=ixugzL9eHTP300dF$jzWL&^(Am
z_$CT<{qH6Yk&HF2%f1xs`uso2(kpcQUnHD;APnNE4G*=myQ-4MXZVq6YN0?ZF#k4Q
zA-aIQQM&VH>1%^b%LO0m&Vz$3TH(}_`@%(OL=%Zor-%qiq@x^+_<X+D0nQPgL}YlU
zx%mp>>Z<_@?z5I+VqS5DW82(ZvRB5?H8)pC5+XG36p9G7;XEr$<;d|&phGLtV#NOg
zghyJCW}Hvc#^E#+({O^Nb*%8djSSY4y(^3VRIZmAYZ-+EYoIR)emm;y7?=>@j65(7
zci<@MZ4~+cq4@19#*m`vzew6CIdFX;r9Q|q8oEuaw0b>bq0X>EgIEg9h{k7yXOIpb
zryr>ZjC>Fk^99+g@GG1kE76HEg2@VJW{LQa1adTKBBIu%YFx#9KA#oDol^_=CLBT@
zpByuAgP1Sk*S!3!b)_f)V_G{Q9~*`0xUY&uBVLt?+T(&RfpIQzp$44nxg-ccXOJ})
zjS6uD$UbGbTZ=^ks*gcDmTIaT&aHC{6ka|;6GSEe9W|M*x*U+^;-gwja9?z9j>Jo$
zJ;SjfktYi$P#!q0CY<3M5aJgl!Z!azSB3V>AO1hs+_3^$tJbPY8aj`{I=bd%H+L$6
zhq~BlC{P%$nqN#%1fkBL4)bPm5PMezKSZl(btf?&x(-y!##OeKc%Fi7Qi~L!|9@@d
z!Uw#ibExQXeY`T16Fj}9VA$15!^{?WnDBR%tiu?4toKH~wAXua(O%d~e0SLZ6k2O~
z9r-33M_!4A_avT2-DEBKs8}Labe8ypVi6>(iP!YR9O@(LZ(qn@cytwN&Fg9*#iyyc
ztYAJXoX5p{oR8F*^NO8KSrm;8P(AxX+=cd_Fr0v<T*?7A*b7)eSC)Y1m?aSO%|a91
zt_&OFi2rnj<+qXT0@YDhLGeio0UTt7U0FiDW0p|ZH%o|nmVct+uDqiz%7!Y$lN5(1
zV>l+prIrLbMl(ZF$QcF~R5zpl#KWvme>9w`(2@9KKC8=eZ@GUp|4*;E)hgp~st?;I
z)k^MeYQR6sVD3NBBQ*G7UvxV}&sgEPPLsUdJ#-0*M7#<&<7WupxWVOk3JUE4=rqM0
zX$JG?iNj3n*rbkK6Xak-_3fxbMb1JRck57*vrv68fj<=E^|??vA9cBLI7T)vyGg)7
zG|z!(ULX9TNs8A8xg}Z`Z=r6JYP(`$HA(R>nB}Tj>JphOTo`DWYE8q1R1-_LWZ}y_
zEW#yNJKTY4;&bK?zgX%#u5%u)Za&7FcvgnVJ{Zk}ZX{OqAo(>1`Ji5Ke+cm0q!rIh
z1g$Ft=*+B(%W9xM%Rh}L8W>KZWLg&qxb2gekD5|wLbUh;sheEIBFtuDPIo@-!O`Vh
zHVzF5D@tbZfMKzKU8QHop4x>60)7PRaaQjp`4ri-JD~>k$-+>AtQF)6EfU!o)VzF?
zTXq<Bkx2;((^2#;x=BcQ=03PZ1!E47N5*_3Y8^s>5hYfMQ)1gJp`V+8Q$wN}v~7jP
z9Nz!CvWewgL<0!LBOn<&3c_<1%#jqn?L|{p^YR$S3Zaa#5}k(uR7ay}0#G>rDE!6=
za=NK^Q5$!0do`XP&1<RLg$oI&xF@7VB~~0HqE;8-Y7~_>mcN=RhVn?P8>${hseS2=
zU9;rSK6J!}S;Qk%8^z<G5=+pz=!~-{ey1sb<#n^JmF*@J36Hmn*SeCIa9VF&_#ujk
z;fvC({N-L#+EKwpDEbC$FziSpzZW94W_uLJZPdvTDobC@DiZplc93=VGYwJLaSQ4W
zhP+rKz#2Ss#Tp7KNKGZ#;6tkkkIHx~bsFV#rlNwSTUqKX7C|u&7*ZA$)dam>o+uf9
zDk-^be5io!7=jAhRT0rbPoze|9~9&)5UvxfLxHzrS}stFW~paUjUw)+M>Z0#zQv}g
zfJa1naUTk|Tphc3xDY9HVif%v>g>a#sPuRy$ZHQ8u>pi^pTtI?crn!|MAagm)E2-A
zjTG&G&MLw^2P<vy+8s{$;2OF+5<X4*Kg5U#)O^nl(=NUo7sjWE7=AsW{!KO=iQtI?
z3HmnKh?v#t*Z-gGSqGTiL>wvxW~KH3?Ur~d_5VVKjAkxkAz>IW_D0V!5)@%1$S$rD
zFUFxNxgbVPW5j)dO;1y&3)O2yHQ@4}*yglaEmFTu<n!<E2zP3cL(Sh;i50L<POoIu
z0$-dbVbWrLE2}PM)9(-(YpaPiex+8g6{q8%9r3`7iv*9cIKuQPI1!!fxQS?utOD9Y
z)yJQnSy7a7y%^89?Hel2C6W1JeUr``eQ`IwkYYs`Y>fOjv9R83!o~EF{o4J){Uj3n
zUwpRY$Z8$Y89=q*CoQI`PbMv<-(>lZ89sIYd-I!<hM44NdR8a!sq-u!K4@KubgLI~
zpg`>_P&@E#t<g3%BAJ?(RV-hx<~zJ{6U{9BGpp`uSB}Jp2;Cr6kt~+tenlXbI;hLi
z)g#pC4Mw75&>PgiAeO%K-{Uj=_W<!944`<Lk(YQ@R2|FGJ;(){U|`Cp7q)wczj+KF
zwQ1GriRtR3wKiPwT4?&m$t|AJyrPjz4C&uTk%FzL2?WT9{i7Dp=-MK}#nl#eRWdtP
z&rZF~s!{FLH86lp$HZE6TMy$B>UW`Z2Nv@xPCqnZO7PG`wFiYRF}qKZWp|o}Tj|<r
zG!=akXj+d3AKiT1^?mCt<e!!P*N3cJwa7PHBEabP-VPqw|M9DM0<wbF<DQO%GwrJI
zH_h))8ER6)?9l?Ut3;cJw&vbA{Ed_|{^fzd!HCz49d$_Fs3wjK4^)U;o)Hxg`3d-O
zUyuna23psvBkcpj{m4%;)V?B8#exn`W24`U(vb@MQ4Jh?WkqM=PIQtl3`%Ps79K|}
z#HvZYv^|5ScakrUvDKK36~0ap>v7j&XPcyW=IV+-6E?*A*R2$FwDFZiucYO?T-=1B
zBf<LxTSAT@B$`I_S>dbjZXZnonour>H;)JZIaA0rimWw>rcWl(4h(LUTL}%~wHSW<
zlwMaj-b${*Oaao+8$7(q8Lu0krhFRtIxmzQwW;}a?LnDixHE%RJh>6M9zCos;HUD%
zc(H(rIha{998Wz^h@RL-HeN|$G=d((cI|+>CJbf1M-EC5Zvw+VmSN?`%QgKv$)O;Z
zv^k2vBeBgG))ygG+&HWI@zRURvOn=I;bo@XWf1e8fDt7bc@kh`Kw;+t@!EuxW@Hta
zk51JLn@>)<dV?%E=lj1hqW>g{=!C%vFAL|1_<FO)>nf)-asV+Cs}K6|d2v5sXqEc9
z!W4KCmuRbaoQs+#QA;S6K9@?lBy({`EaxEA3ukc}Qp}^q5~HyOH36GkC?83slKe=_
z6G$PfTuAr>JvLWMc<2Eealc~!q*9_5R(&g*a^|5@=i}BG6&p<L%7|z+4jSi`P5(BV
zlHe4!*t8x!VMJcKy>47<1)f0lderR{&C#P<7&@kvp*894s>~>g?3mFbM%<-%c!=HF
z$diDMBpT>75@=1O`|5}i5M^v>LR*XhkI6vAB-X_ksG*6C)OHl|%b!8)L5T;#K4-(M
z%N4pe@?{&MV%O`j6iBJ$X+#>OEOw7P6lumwMe#riulVxvWsimx`4uQ0<p*ZZL1fsr
z2Jl2Gt!NEi0rHuM?EF}Fj1@@eOq@V_+|ooiVs%+tVH$@2ee+@f9vzqXPmuHbd8I-K
zUo>n*=Cq6j{kuv+$Ll;iyeo!aIlaI5Mx>cPv(Pa^-shRhBRpHcP)k$vxx3ttPr4ew
zFI?urFJ0<<zjUzk{eTTFL$Yd}nEth}-X$@7qkHGfU9PRqEaV6u4~x<NQhICV0jpDa
zWTbM374_~dQgo=`^E9jTDqIIOFUv@!t!`}VB1*5;`^JqrT=O#H760ZNZ}>T<PeWlI
zKissBG=p~ErHN*jX?|3?IbzxnIyK8YVOk0u#WOcd8%)60(=@&-GG;2)Q25VnJUyc-
zsA+=(9raa0s@&*b(ozyS;e`3`X}&>&2l^#84P4M~kDH(F6Mor{W;ek>ixs%0{L;wD
zg2i51`jPffk-N%qLd6dAxXNLCy`e*Ae!tSU?>P;!h+D^+mp$gsDx*VsOjHxD(Snm#
z_c>kCr+dlemlCPr2b}Mxf3RL32Fv05qkuLBelzjOcihWAo6L_ZJpv%LKn6*p3PcbO
z@EW;JFR+5&gcM~g-12hFNI@~R2Q7M8V1B=9C{<u?stV}CUC1|KLvu%!+*E+(ovlB~
z)QifkE+gln0~>y$^t4V`ZD}aj2WtL%g7aQe@R|Z|h=*KSuP?7(bJNN<jL&iRq{b<W
zMy&S37KmHFZ@nI`lso@PgOnpT>J0*{2EUTbL1(;Bx7y<tbfHazedPAUTs=M3eGO&1
za04c_!27N80?BP|Am*#n{aiaugO1eEt+fS*g{kBk-Go=(Yi78OD6sNpDS!4lxZZ-*
zWV-QrLFCLT>i=WxP2iiV(*E&tZf?>xO-f4lbW4|{X}Zut5gN7x+O$pgq@_XI(ltQY
zil7!j8b(k=WV9Cu0(Jtnj05TmX=g;3k<<|cK^Ch6h~ry^5s?`gR7TNR_<he!LFfIy
zzu)IyrOmzf<lb}7dCs$bpXYp{+2{DIJNw9z9!Ir9jO}r3+(u$D-D<}#gtCXry9fA^
z{0UJp5?L3W^jxg=TtD&jA}l}kGC5@Jjj>pJ!+hSb&Fvns-;w<_gTNk*cF<&Xs7bTa
z(R19{<5)Q|&ZKh?|DaP@yE21hUC?Kap^CI+b+1U#qS$-59n#dxhUq{*3%9@W8c`hj
z$@c{L@<cWVSd9Z?-!Kfe8X9+u3_=P{vqw7ED6vmb;wOxaI0A7P0lcg>)L6s`(q?g@
z@O>$gtVVx4+)1+|?HFQ*534BbYu9WK=PK>vC9vQx4sDh2P_Cy|F`EYb$bocy4_U(A
zg7dD;Gjj)p-z-mwsK|ri?&1DwbBL^PM4ms@`ZM95%j3Jvs+*q;xjC|M?nrFKl!c6)
zeFWr$aRo(>qQBC|G+3JeWnfLx%E4FefnC@~22fZ}Kzn0Htd7V}yu58;jKpBkl$aja
zMKW|Q>6KS~pgYi#L;lZd2SZ%^-RcOQU*-t*hKAbZU<1LPSwmouEPgmkShPYt#u3?s
zCU({Y@8A%&u1E}YB+T|7{B}hg=hz~Aykau%xDJw!e54}Akx)9K&U8mQdNJXc&v_tR
z(t_y{o_Iu;AWmt}cJukd$KL_rdRr`&N~5PGJIUb!X$eD*s3Uvh|Lo<p?do}`Igy@;
zN;L*XD#BNfXp0;Jk%h%xOvgZIc!|l@9J1opAjqpwiLi6;x;X=4;5@7<N`Fyq&MdhH
z`>^)LHF`s{b2pc}q`NVpy+XsIv1x44G@maz26l|;tno)Y%khV;gB-8}d~7BT;h9HM
zyL(iii8}rHDL2SC5tky#X$fl4I@_>j*#h|qHU$D<WX6mFaR~yz5s|JgJpRcb3#c|b
zh)KLRC=6}N{)*xE4TMgz{hG-H$T;?6b%g(@J3?#oP}gi{wxj3cmmS1OdWOAY{?ss7
zh>=lz1|QcZGTH1LU(Jvr+~hRf%?hIU?8AOx?qi8nY@m-EusR}$OUcof9TJOU+Brs2
zGDcDsv*QjH<&4vC21#HS<o}ML9I6MTAua8#8uc2IA0P!U89o1rQ_>^+=CO&B#rD+X
z;Y?7VG^?an#N|OsW8CQ`>09<faV!tp?mq?wKI_MTpz6v=kcuxT{u+%Yl3DD-Y{J7u
zE;ze%-KRU3@}qnk_VuQ_e;i0xR>_kFi3n`*vkCM%nH+)+0~Z3_S*YAevbb5lf}SlB
zEjQH6%^JdDFdD{bWLK!J5vUlp{(-;Bi@>Z@JD6wkJ@)4{ae&4i$6CQy%)Cv6(3N3%
zBD(-bB>x*tcpPUy$s(i3!8Ed)hU2C}&dTWSUNQ?BJIwe$_OUQ4R3deLEwpt!?i6E?
z(;YIAsC0)(ssH#eIe?`dK1aIHm`heJyEN!E_a63{du2Yhf+Bhup@6)*?vLmH<33@+
zYb(bEI4F7^@C)JU%2bQ=j?LPM;4z>^_JJ|iP{c)}aIjMV33<(QTIm2^YFt1sLF_ns
zN-$(*@uTXT$hYoMiBS2tfsPd(f4p2$F~=di_jqcGI6~ImgbR#MZeDD{@`NDD5E;53
zbk-|`u8LJSTvd>t^?p_{c~wdpoem&XvvSJq+BXbKQh@9yZ-(x(<V9(uPLYtd6#~4L
z;1PbdDmxzD+kCwKC}|rP7F^OxcKw=+j499AaYXpXs+ev^B#>Dv5}xTg)TFdow-v%f
z>rz#0FmWeDCfAR(l(^dJ2s<?pxHi0~df~RhGDnza7F;NdQp8?Cm{;uLo_*DO#52o`
zW|1p8Bc|x{0t!y}ycm!)V`G!_c2+yc8uwa;dzFg!vf)f=w<GK)_YlAca1Z~zkBERi
zEIxIMH}n)qTXr#zX8zFF1jXMmz&9r<?bWH#vA&k|C;IO{<+PVA{@90bLZ|DPpGT+u
zTOxzPAa$~%H@B?^4lq{RihPiH(<K{?Uu+X@uZ~Q0d<S{nf>CyeeE~~TyqoWmF72r0
zb{alo+CWj9ko`neh(6(A_}HHM4OD-#N-Au6Vj4&{5)_OE@ZXBR#Wljn**{~~pGfSs
z&SBQ3ZzR!r5EdTP07kCy<;De!TZ?iPi|1hoh?aZLx9uxS37WYmy}h~s)>TwAx$(G=
z8uDlFz3ajKC;B0vNF_SWAc5g?TJ|L!hc+fc0!PM`WjXM~&-OU5NX9KK1qP4l^CDu1
znD5=hP&@C~iT-;>?3N%!U7ii8RjAqRmvL-3<>E@6%0&8DT$NiyGK=j0@YhfX*t3I5
zAR&_&&jww2286HHL`IEc^gKW+g2o&2MQt4e$4Eb+J2k`+`k;4g4Jr$Z+Lut(9R;;-
zes@MULo^XHR6R&L=r^LOmt|<3WcRU2_qwt?y%k=+y65*6imQca$IUSs7<<BKh<$}x
z0!4aBlF9jRoHnZ}$YR~QDl*@rCT$~QG6Loc@H~U{Db>`=>sN-_4)Kfi7mUJKmqu$$
z^vzt698&Jm?JA>WiQG(TrDif8l&PFY74LE*i6-5<LY-@Z1>?WaFaKSwn7mP{-gnwt
ziUWrPgKx1q6eR;=w;DS7yn7t9Wj7_CTB+pYY8nEAb66aD;hZb7+u`MIEVjIhF)Ez|
zPS11;QDgY=o?=@sx77fv=m;JFQTl(=OPHo<?){?k<sNFKvGp(GEuaCa-naXr*56{Y
z0;>MJ>O$Y(z?eVPPg1XGf4#eW{keX>>=wswEgQek!-H&sK@zVgLn4aHH-Qv-`J!~F
z4J|IiqQ>pbC1esGWkb1bae{!vyJgIkeAscvkii3ELoU*NTt)7iNdFXG89c(2OB8Pc
zmQ!4WOmBc<J0P1SY+fs$?l=r!j40`#;kHA=ZD#M>3+|Hfrg71NixWjdfzfbTZ&+Dx
z3`QVnUW75XNpeC1ZRGsg@MOn^(ve8;{0-2WSjPuDM#PST1lE>}B$hu^C&+%5+THsH
zbMN90ykierJ!6bDbkN64gMQuO9#NvG9gFd8d6fQqkxzcT&{D6ougA+X+IAb+@@02E
z-0T64c00)s?|)D89+_dbqQyNeq&N72wKsCu+B^2FwKw(@z9%Y|-LOJ}KlZ;Iy;ydr
zExgu_NyYkDg?=~p0xLVJia<a4upe+hyMOkHHt-5;2WH2Nj4O}sg{QbY+Cf%G2v^-Z
zhCBirqq<klkly9@lsJjUE3P}NE1T7!#Oj%;nUf>3P<9inNL;Z(k6MYpLrVbbbKtIJ
z(6R<X^U4eH-fXfo6Hgi!aR+07D^+}$xWw*YtLi71VQa4(vcIraSo>sjIP0D`NaD-F
zmYp%HPI&Ff_&KxejPG|!AJd-%)dZ<;Z7cNj`mDVQpBL{NRPEpdeW>kuGSM#snYd8>
z;m1o+`jdX9)PGOyfIb2(v(_P`tV@gXt5Kj9)UUhI$_#FZKIK}Wd0kvedCu;4FfUAt
z$S)lTlXZcqZtF)}awM(7s!D*i@!!Jkb?PyYl}l^#8RpZ(4Jq@5kJe2AOQ~Tpk;_bL
zwx@EZMULGs4$7Dh)N+Zu9LfQdluY+bQPUU*U2$%ZF{0`L+05t+Sy+`kt0P6r*tPKB
z`Zyh!#uH!`qyX$;B_u{5j6%I_rD0_geFgXSN<h)Beqq;o9jwR}Z{T*jJ&nMz!R2XN
zdNKfDr^C%B^&;cMIE!>KAPMhS&?L9MdB-~trc}#Md-0-RH|A0*ftV`3-hC4uR;x+|
zo%oIzVo)t%0qIXMe$W&ah$<YUQsDNI>LT_mzhT`yI*n-&va7pb?#(Eg$fzH$HYz4*
zUIvl>z{0%zrHL1TEypZI8y9ux8mCJf21Bcqtr`r>N({^)bZKPV+UOpP^(nt)1KZ6z
zb_LCw|2;{YeS7wHJslSlJtC4OZ2GOn@XkBnKYp%s-=Yvce#!u0A$@vcA~XG?<Mbaf
zJ%Z7}Sf=RRSMvTQ%y~MtP_)V46@~0TnmxDXwD;ap9SGe*f3SLF*Erz+z=fb8mH<j_
z+deobc8~R$K&7k4yd8NuCeQ&W=h#IrJA_Z3PVesh64Y-|_L76*?O;_j_mYqNi&R|E
z%*1EwfHfI4S_a14tOS5vTJdK#mRN5rJZ5!}8oyH@4)SNws6H?drZd~w=wqzO3{U=h
zSv?MbNcXG!)6EI44bk1>_&X2mDAY96VKr%rhv&nH!kzpn157|Orv!_<=aZd?w&DjO
z#fBB%3_ve;5+Cy5bnqa{=O-q+heBe7{zZH#FJC?;DRf_qCgv$)SDT;U$VHMCn{TLX
z<EC|Y#Db_XKo5y)A!teEilPqgW0dUmVK*3e`-i6o8F4)|N?fCsnyU_J0gYb8n}+Z5
zmuO-hxZOGEO4{dOpj*g>ZLu(<dcTBHynwxFua_E=qsc{aROqsN2WltjlCL%IYoeJN
z;f-gMiGCRczM7WRxQh(0!t&sr&7^u}z&H2y2%kQq0kPbDCbgRr*}skHZ8q^E!pZ+>
zZw|S8u~D7b@y?}zAiqP2(|lBGsfSKwSh3(aCX&ba*rTA%GB-3>oNSh51ue}g{xh>y
zXTmkZ&Y8PP+TTk}X>pB7>MH42nP0MPJu+`x8^=yP#n9NqLyrDksi*t(M9OBx|Kph`
z%H8Kc!Vjw)SR<}i`zUAT;Gq^5PPuSyV{%aWLx3Hy$r1jsQ5{!~gsDURM1gl-lfZyx
zhQw&nj*$Co1T7beo=wzLtl~ido>|1kvVc;mfT@79oD^79ylaN1?ythyXA=xpre!x2
zW6r#|&Ak;OO6zCHp`Y9qSB2Bh#wt9HkDxIF=MUG6aO+vkG*R*Uy`MdhbBqo*s{KnD
zQU+_2C4pdY#yaQKsdMkZ66MXSHkWHUnE%QlRBW0C9T_9z^F)|NW>^pYBtn8{Z5Ciz
zz~yt%o>`q<m=~|NE6G<eDoBsIIbM=1J#Um3`J^pcOS>Hu;v4@1u(#q%9At??rSP9~
z)T)vemZ>BbRhoUD>g689A!19sd^46Qf5bxzJ$!`u<sM<|bEe2ypX`CNn?06A3Zz*y
zdPHB^BrJR`E##*&mNirO#dGQ1^&Uw()cGyGebnok43B@cm%KIm_F^V4vvc2ce+EC_
zCi1}2O%f~w@238JP|3n-{zn@GB&?KFJ84fjuEbZA0|b5gsDB<L^)L5GJ<>l|rLi_#
zw9gsk{s1?m9~n_W(-&=vJrr&c1Nv#-Y?D>2l9B`R7m~t-qnoAn9w26pTLWT`0pf<R
z3IJr#2#5CfP%<A02YV?0HiCbTd4h&L0q6Dvkg}~3cB249JUr4NkIZzy!ymoe%m)-B
zY`uwCn)x1=@bAs>)n!>Mxbx}DJQ5Uw@Tq1GPpU@JOPdfK!QnBbl<emDqx(1AeP!sE
zd_bnF(aHz7=6K{4R$lU6H6MaT#A@Y3zVt{hj%1YH5;p%lcD(fi9#2Me6?dy+h75bi
z8GoPHm2DDs)1*yz6GWzFrpJVlpC?51FfU%dtnuH*MecqJP4l5rSMkzKLd5gc(Wx|b
zMJNp&`gtgAG<#N=m8+;CIzV9();wRDS%yNASKU;}=yMdC563>kn3v|3Mhs!o5T-V;
zA5W)n_jz@#BlN6?`tI{KzXU*x4?+MEqD1@?%#Pq_ash$~4GoB)^5`D20^UrRo?RaL
zjW_6ps*_Nr-q&Bg)88`tNnyzg@lnhrypuCKo0g${a1YnYndUvpJuB>aA*IRDQ|1U^
zx*5}d{R$d74EB53|D+F@OG|ux#x2>M4&veke{atDB@;o4-wA}zAdp}X+(X9hp^|s@
zb3$T|x_eS7_9H9WD%nI7tj7p)Nr+@O#~r;^O~<eUQH;X{R)>J*?1h`F{PM^z@kRz;
zqx&3eTy}{(Uz{GK>HFD7x$GK*5(kmUwBRkIeA%VEMbWY8uO~CZjbSb*{u7S$#MJlj
zS+ZGK0V*s}OEoW(dL-pYF&fDzFO>2KR7)y4sPw&ihtO&q9?3@@=?7-1?96{$q0!cA
z8qE5FFMW=NS22TGLVA1;Vrut1U9wf4SzV)yvC~uMdQ5mkFjRVGHGoIXLDy&2EG{9Y
zXeg^p{bfdAKB-oX`s~>}Acm)+=A_IXSB(xR$VxUOJp&v{@i$?Cf%`Fby;snT6LUeV
z82f#oZmIV<DdVrtP9z7KRRI>WN;d>J3LXk8-C6}=6pFX#RDSHuM9Ns`Cb$j+&z7iJ
z`LzHZkwf^$elUG+dnCRN30G{EWWKXsvRfiK`VIUH1VK0uYBTMb@!kEn@NyN$&E&!a
z`PRfS(N}lUV2*|FvUbw_JB6uR^ChePI3RRwT~PZ?aM1wDeRv02z{HAtG1orvjy}%}
zKdO}mm$QjBV{j1!e~l}p!AFqfr!(P-^)*Qu4Q6<Y(H2KQsK~XO(j-jX79Hb^H<=w@
zn9RK!DiEg;)BCm`V`5)eyv^Fp>@XOwDsHjaIiq%fPp(?RAF^eqD(Z)!SwPbk39rdC
zAdkLx7Opv!?OyYm|6k1$JJFxo84nEvZb8D!cGWvw+u=iVtCt8N?(~VyrWtbv_{p|K
z*h+(j*C}S|wTcP)3yH^0AStjCoic0psYm!|u|XKK4b4uIu*j|Jjx9aXf_~e@l*EQ5
z<r@C!`ZJZ%57FRR)5y3g`wDVk$gQe1xy<<U%=v$yafeyusvHRX84xH*nHrQK@D2p-
ziY1ClSkJza;e`frx{CR2z06p@L^KcVXf9+=oG}+BYW{O=v}uq$)nMX3FC30b4X=;3
zSz(v17axhZX_b9E%f6gKN`;*5Su>?qxLxISO=EHIoOo-Q{IN*}Ymsl6r6}tTVj<3K
z?PF$DZIk?)U{OVaHs<B08W-4I{GQtosmQ(kM%cYQvfG)6yij-_NXhi)jf=Jwic1~J
zfJVjQ=-`dzsMQKb4t)A}^Z7$tRi<aoAIGhcUwc0+2e&fY2M+f|FOlGhlu!(NJ$$%1
z(yrR#{58a<y^tPb6j-X~j5-YaD!HDr?_js)GL7>_hE$voA^62a8OS0fIZ4QUF{|4-
z%ZFEq(}MNt6Cy=cWOh!k$>MsI&WNmD2NK$pOu)pM9kSzQ$Kg_hpu`iwXyW0HA*0dE
z$*PsyVcaI7Np!yBZ6qhMdI3vD&Kc+Ts~l58O0X8>YmbE7^w8VQwD+Wk_6nc8n2^di
zu-}=n!~w`-?=5rh#=pX0;WVhD$s(y4%&=ET*b%8W>7a?~HueyUd}HuOUOvs9Ux+N%
z(ed6$4)ts#ABP;?DAeyrlRGwcKs-1-y{*D?JJc=Xj9u-PKKNLZ=7ky$k%|1X#zlrZ
z(2FF0GCLz`nJx4u=1~(J-Vu&J{lqDTp3lr9i_FfvTG`=^)p+*%13x~S`M3@vYI0S$
z@?uONdzb9P$YnTqEGmM2P*O7ak^zBy5Cm(5iCZfecBW~>12!bO>?-99I-;t${LQm*
zo_AS`DIJ~}!m^!uty3Gfsm82|1%XxMCHQ^+@r*>Ln&6t4B7a4Si^5xgi#nGHf87}u
zkWcpKo1N2yF}o51kQUr-b_@%7yG(V?g)2SJoc@u=ge>}d$f@s@&rn9Di{PV4i&bT4
z_%~uMrfZNxomWHkn&!RZw2WqElRD2cB7HCpcH}_FqVGda{hfXBlyGX7CiNNella~L
z^k|zMrx1xgC4{~dQ{Zee!NOd03d=zsvk{T7;*J|dzRZj5cJ@$uL0+791}<q}smezZ
z?IAK|jqT3|v1Ua!nS@Kw!bp#><fTM~O^i0PHarn_yp&<pW2e`VG^XN%8|sk9DGCMf
zYM#=waB`Dpmsvj?1iauYuvfElscGovs>XGNo^Hg#vdh;h^UA@O@Lgw<5Yihn&e?ei
zjYyTJ*HvciRf|D*c-DSs>>@h;6<b$_75)-NuW&#i%r4CC)sJ_!E%8$@$hJM)HkoMR
zs|#qfHp4mF9n1VHET_NeG1&Dp@Eeo7R5;KZKG~TK?>plfsDCDIvOuHLgYs(a%n59E
zW?`tzso&|(5zVq;-L59l_2uv9KYLR-B*7>DVoUx1B7V%2RUk+zH#-iBv?FqiB*>D3
zCitL@D<m;77n<m@yocNI-WVr;`}_})wOWihijQ~?8TM$tY+$TML-`^S=o0dGS9a4G
zn=P8=hYXmvc1IfxQ-J~L60R+->lzIIEH25v$)oe8Wm8w6ZKd(?3?l7s`^DIG_0N;d
zp~qHGe%F+14H{`d_U(jUtbS7*%-X^^=^EK*_glR)`FA8K)L6bzUQm3oy)Lrw&n)Dq
z@e+0$Az)8T#tdTuOeb;WV0cne{dysz8?A}0lXzUkOrrP4gt9#uG+gM~lR)PQ?mZj2
zH+#4%@>{_T1N?FBhn!HvIs!7_W*AdbYnMz?dr*GQ3$QG%k_L9H)V0yjjttBNz64qJ
z`;M)KCTv3>Nxei;v#gLlXqjibX;`V&%q@ePE)dC#BYp?CnaVH)O&G`s$nRq&i{n^v
z<jA<%?;Rk4*>bWXm4pJvHIa~mg74*s*4pnm!nDUPk$VfD=rO;#!oBU`3ieB?IfbZR
z?tz{@GHy2Z))p1bO?R*2RTo-EqB7mtx0tvDJE=CSO3Ozy6_*`bUfJ>%BQ^UXoSHAc
zB|OllD@?*7bUvM3hc_A)htIOXTtX&9-(FnENKW?<E?iLDk|=Hk<FXbZ`X;K*OOA#%
z!R`*p3{^(h-M1JGO!8Y2AN~g464d>fVW=1Y_uRw}${RUD%w$(TV@`AWQ)rLyM8B^4
ztgff06gNMHo9~QeitffXbq$x7wQO%&g1xZi1{F1Ouu9b0*nAl+3w9=X`TY8i$b$PU
z{?`Afw!vPX6nObb3tarmG5ccIkc`4pfA05eJ|-&9E&54L7&#=P?VOOhR}<iz_aJe3
zHVdVDm#S_BFdlY`C^ysno7vKTZ*RQZX(u+%W>SH{`f6`!kTcbUqhcHtA`t-e6;=25
z)NLRz_Tk$;d=RC%lT)#|7T)=##yLPN*yXZt*<f2HUU9HcBR6Lu$SJNe=dvd7G$?A#
z%#l5Ifsz=a18u7ecVe?`&ccg-Mu-&lsVsGyPnW79vquv3L8XvLuCn0N5JhTyNb0t$
z_HDtQIl65^<ts+{HkFAT?|FVe5MFt}WTspVzFV4|s#2te1gFL;wRFGMOeGD9ZQOrc
zVBd0oJbIZYxSwiX@HQd%SE=3jzW*7UNP;Z2yXJp98C5{UFSjYRgxy<OEt&&K#1y=Z
z!@I#phLM<J4c#W%5{x2et}XF6AOyC($5{D;O<dAQ;*)o`u@yXXEj?^@q%PN`_AK@C
z$*qC)!t1|E%G$=^P4QL7w$vubxy&5tq704b>ZD8HK5dR37x-~Swz-<s_*g6a`&U}H
zty1?*40iNiO(jl|4GV4i%HvGBZ6tKtsQDqj?a)@SP2&=W@czDu_?l#Y65S?f_vgqN
zXy6d~^k9=PcmFibnI-h@k7DII-q=4WS?gnkLk0i@(gahc&_2EcQ;KphK99iGQ`3V&
z=&Q5j@c~MKvg#yyq4Cuyy)&_GWX6M$ut3?(;RAx%ovXi`fpV&Ft-_#j&u7ciAiVUd
zHXZHQXf-|fklFd5)$5NZ9Kr3yTY$QJko$I%M-cw<YB?{Mg5!m$uNkHB!7WDygjKI4
zNIk-*__X`AIFrcGIg27b-~eVHYtlS<QZ!v{EQf!NvtZ9iz4X$ui}QTSEA<+qEj>Hd
zAX$<$%;1Jc@Jh`C!oOcji0~MO2UPFcJ4hP8m$Dst)+2H(OnP01v<#RvmFC{2(vgTv
z_tWuBOe3jUU{+nUDGi|R%=$}u8kv_Y@AH~f9wx$cdC6o<Qdwp5$yYFCPm>C>BOZ=5
z)kO#HQlm7`(Jw{W88c!wiU+RGCOiA;jTj}-ST>kw84Mb4sARtI>FbJ_%=9rk=T@>7
z2)Oas{B)E-kv5OPRSP?z<ob+lb485ww$_p8ip%i?dkf+H9>KLQF^rl2l{!P9*)OSr
zFNPgZ;2+qXUOU<Wk!i=9svTp<ED~Nl5cni*ZJWp|>Mt=BzQS=)H0Fh$|5s&VSi#OA
zv#PgXr(jl97wp__RvAn?KgJj}kr}$HJ;J~KYf5+TbwI=;-#0s55KGrh2;?wz@H)a|
zPyOa)%c#Io{19>w#@|-wgPl$1@MreIc_;D5S{!NeDqekHdmD93;^}-HzjyXtiy>78
z*<@%guD`?}ncR)yGnGVYp&gdIPFY$<rLmz-x^ALLb8#Mt4(#r@qvwiK7oDH~ZlQzd
z;)bUH+19?V7@lGOCgFvb!6cv2pOmhZK4*^+?eUb-Iqh}u%RSvJFTa%UU>dA;eVa<z
z2Hv;6Et9!`u+Xaq_<Y;-JR1H3D~Z4aNLz!sR{`53sr@1KVEv^G67q7pYU4aq_w}1%
zF>vFD36_I-r2*ziI*TT$qHuTu&DnzRaiMZ3{BgsI#+rqs<U*sH<Yt`*2w7g4-C*iG
zUyv!K`3+Mh6B{p?l+|FBglHYaz$0XL#4|y7_h8z>JSH;Xd740;Hak1X&pf@?p`8KP
zRhnK+e3@q|HSNRW0b_Drs~kHeA6mz5W>-K?z$a0tq)YawxVJ?I0e5yc$G^RVqgfm>
zRba53-7Uc}kjfHv3{6v*>rDuy3lTnIusG+GsgHRkTpAFb_eRnIVV_qmVbb8F7Xl}8
zZI%iByX8&fCs1XM5H^t4Ev`?jOPM*`CtEu|D>|aF$JkM+(QTRgR2S{chz_y~OheOL
z)MwsXf+SDZqtC=n^cU>dt&^7Inxtl$S7M4frhkQYWN142SJQCc!=u|km#@v)Tt=z9
z(ohdgKEQ!t^Rc~`i!US?IQc%ULqw5zmJ7oJ^Nhy$YWv!pt&K0jeq2P-WKQml^pM(1
zb_bng^YD8mTdECZQ8DLnEjQ^xvZ0CMxzH7k;Oi>}C(%yf)xjC6p0P^RSnz=&lStF+
zgntaa%6FUKMB4xB$)V0^t32H%oxP_)_fF3oow`T3{p(C@90HquDf!myu#>Npl`uxo
zgdsv!y+X2I5vKoUBZrpn{YICsRw>kB42!Tl!;eJ}wdq;Nss%8C`c><2|G@#zOFpx+
z7VGRClc!rqf8$rM8i$DzX%YB-)5HGngE7iXo=P9OVv?)FOrDoa%9n&6-dK=?HnV>6
zjE9li$DRSVjOQhkQ&8!Ib%(0sD#`vzAR=C3>ijIG51{L>kPy3$HTde#v(f}tiKkdt
z`=*5!3n$*3LK6i3@E^v_Kkp^E{HvB-0RGDx?E9vJ`ml`ZnH}+0@{(u1>t~8p5>K(q
zqAVtg_l2M%nGyeL2@Ul3fxTzT3xEkKiv{ZujS2@py%H)seng!Dqu7>Dn&#D&sabZ;
zD2am}5p!;lFnLoaynAFy05oKFLJ0b8QtVt_F;}M8BT>9Bk$pC|F!-|oWdbazxvSyj
zFZ}KJyr+Ki%RON7syzz^6o){6DGWP4)sUUHY&a(_)=-}U6!~P5k=&!FWj8Fl7z2M_
z*#BEgwLZZO>BkH+$Tro{RptTSZqH6KNw1LnkXFmhW;@B?BdUkn=+u?`%chLv+hQD)
z1fx6Xl-MH$>kUP37^q&D`Mc?KkFfT4@pkcUNo~vd0lVv=iguG_7ir;#;=?=AsipaR
zS777zCP{Gym_>*d)QVBAg{vtm;}{f8cX}1cU?SY?oCiX=LLT)jA#)YE!dJgb?>0sq
zpS`!i?wrm$IqcRIl9!}zypc-leYGFykAe*<m(UTEZ)<((Uez`Tj<g~xHqA>eegJ`$
zYgU+tX2*vMy?k!|bMpv%w_w}X`>m?5iZWH$K=a|Y@T_*Ax$qey7LGz*4tJ%(D^bn|
zj39JUJ|vmhF~cODp*X`%FkTCBsGsPVN2JFs8b2Bd(jg+d=@CYJUkc~mic*hj-`5p5
z*Op+AJZEU)zqhl!7j5h{vjuuIvU}uz;5<>v4g;t#N3OUfty_W;I=cxo@wYCSxg_L|
zBViRQMs^$(i_x_{1@fmu;?hP!lcndJ8Gfn}Z<m>!+Hn%X06PmXO=x07nc1-cwAOlx
z(OL`hU5*}&j2+ju8YVN!nk>0{ml1R8Q^G4pCx<xeENJDolpGs`n@2TS&IpK+-$RV#
z&o5~xT?iW_^F&f@o2>E@_L77Su?kWoxJ9?Y(U`rVN0{PMLzkQFOOn7s5gzx&%ESi;
z2s?e_;bJ=DE5>?k!g`DydPtImzbl6(6p1w0?8pd8Z`@jovTrDFbFKCycdgx=^K|-(
z29rg|Nf|R9PD4&N*cy^x0Da$XCDLZHm<5%XHnNEfcoKwfhANtyr)ol)^_td6`VWY<
z;UdK5$N8!vA3rqp5!^;H4_0$fib&psfm}C{T)$ElYFk8%ax*Dx9&9j4EhMktoIWM<
z0&!}sH8gg!)+C<~*bv@W=zDu^(;R<z-&O4?CgmP*nEzN!f&K^M9g2o>l2Ym#?2J^3
z!pV)~9<ZC3Mj;m}L8}f%uO!gIR!nW3F>j&tTt8D1JqiC95ZZq~8S-oQ?`OkX2cG~t
z>v|Bw74S~2<SqQ2`_5EpH_kN)o_9>K|I5qyN9Pr<@UM3!s*TcS4%@hbc-h^YYZsXv
z8|VAA^Ri>f!OpBjNH6jquRN9#?tG*ib6TQ1?0_(aGyZdY5)K@Tk7TYg*cE2xrq7~%
z=AL&+rAIAXJ(d*gY%D`X!;!>HccU=oxJIUSEyO|*CLY(#az++!JOP5tN`wNO9B}+$
zIB!~Y4GsdgFe~aO{ijV%UoTdF2<VHN1i#D8q@;Kvws_p%m(@r2_p$qUjweMsXVQJ<
z-gjxg*%3nappk1cTW=x4rQ;>t<Cy!n_)WrR-!7)~1<d}WK<i4gVr4SG20@cMzMdja
zrBl<S$J)e}@ZaJIWF&ZbJD5iwV<Yp0`)ma6)zcUvG6WwZ`7NGAo@Y-wOtLqsf;R>O
zO~+nDXLb-x!i!D=KYwC(@hl>}*>;FIhWO@~Nyg45DtW5CPWohIO^LlNl(FWCrouT*
zk{n;xCuMYchx)6o0L!i>ny}MwMWJioR~D?!Z3>PB_N>raBVC1DdhJP)RyT)Cl77)J
zY)VnD>HIXZ|DSA(=zcXUSN@}#3x<^-?LBj|j6&*(XwGp-n0{hn6ufk6$>RTfC3vue
zjVJ7B&b8(x4i&V6CV0D&`893l^eW>5grVo9W2@l$cjKAP?_4MFCzHCJm9Q9Q=EKGc
zbU1rrl-v)+Uoo8<3`lMEbee%rJo{5r;(?icq+}xLV{xMENBb}!vwwP-@u!|o$RV^U
z+SZ2(a$Ea6YSVvyrxtUvbehQe4y5}jpY}sLo4;&~b;U}#nNjgFM_US<J=Fm_KrkNl
zHP1ZZ?8y|kmA*MSj`j&D?{%cmY5Ry){tv^y>0|kJ-E@BC13Pj(82)n^q_$=@B6qX;
zgahx@qP6T)Rd*k_>3wV^)Qiyot%Mx@Q7;Tk7qzZ{x3z}$;&ymxcm*KUNjZ9cFPRoH
zR8}i(snSJ9I|Y4o+Zm=iF0bvp(C76mF7^~Z=t;ORK#~H?5!QzH$fPNg!II{bJ4U?z
zlZ}R$j`HF0(>d%*D}8yPT|39{wXq{LYM~Om0thMT+5r3}7U^Rd9rZVuMOTLWCB3He
zd=U+?n88EZv$K|@RJX|&Lx#7%UIDfSor-LL^0E$Gaq8(uv_DG!gYZq5Jc~`9;zCaX
zejoEB_(U(QCtvu(>E!NwREzs*wKw7+_W!K*w(0JFBht*F2GooPt*Z*}mQ>cT3Qr0Y
zWU@@RRMtpYDLBg{fb)#+0<Go6QQ@2H=(jlPLy@V%#KJ6g`~;4-;Mh9X+Ajuf#*jnZ
zIG(m<+IsOg25x{Sxsub?81Zlq4u8%~86%dY02tb~tc#A_YFxsARPZQUadDc^u3StN
zCxg7aE_p|5b_#(D(3rHhe4|92n0p8G5@9|9*z=6P;n^{M0u!xr8_z{BO<wr!{i#!m
zzxE_79U#d;@9QrRpJhjCR24u@Y%cg^MmZTLtrO=4%bRcZYgwM+B2U6QM-B`K%g(6N
zM?;RDPQ*uTKF`yVFb^|=C|M)AXc7o{MD}f;Nzo@9K2x4Ojt_`&EjwSpr2##~0V5wW
zGYH$wCp?4hDxXFWhPniKA4kCKo}Aq$Y(2YL)fb@X1Kwr5j&b8N@;)KyT;bF{lzCxi
z#AjH5N$E6+c4A)}<`7^M6~J^OY3tj1`f!W{rb)QDhjVR1zj}oJbEUS^{mq=p>V+W(
zu^8;-x7wpKq7MsR{^5?I!r>f$h|Z;0-}X%PaE`hx!=7chLvCcd^(@Z!CZH>elM&~p
zuB~D}aO-wq$_HtI(l1|u_?a|Yn14Q-TbwMc`ap|?_tyCa4UE|TYv=x7Usv}9KrD(+
zK`m@1ie`-_fXosOe-LlSC<ONf^w{Xz(3Hw(z;5Iie}`;9U?N6;diprgoy+g$ByS^|
z>f6STnPYbrHj;y}iR@J~x1d-VPlFdAx+d9l_ah;5xUEVbG!;WPRKfL?a*|Rm;DC6o
z=f~S3VA24|pwNO7+%8``CZy2b7W4Q%rmC_4iU+mL;JqSMp?$2n=2l^3xH#6)Pi{dZ
zlfPh&UDv>znXi#0XSr4irVqzOz1WB-AIPQX#cvVf!{p5yiS2y6Pw4tkGX@c^kj6e#
z{s{TD??`Z;(EH)sf<Dgg>Lcep4%ho;N1yA2xwnt}KD1BFV<aW)1AN^`7RLw1`PQu+
zHEJ07;B0WSVE#y}bo5m_#36w<KqoB!C<BV!FFs1b@1c((Iat+~K8lk%r%oX+3O{@l
z*F7#frR^I0Kc{Tp=VgZOgA4g)234GgT9q~C!3vZsG`(ABQh!(dRJojYlDxRn<l#UE
zkbtm@qkW4{7<V*9x1Z0*uS!`q*lbGBX-)iIqcwG`!I=c!2#5YN#v3Www&tA8Q9%%_
zO0p=wDR{NvhUCNRP(mwBg8L8YQDqn>pU_8i-x3psB>3A9U7yN4AYAxE-c;~C^4sih
zRf=yzM#e2JPyu3UBhT(pF&M%_aF*wt&zG}=5Q!|yBweXyn2Akf4Kn(^?#mQPE);i{
zAxqgq-Us?>5V=vMlTgN)VHRAQ?mpp>eBce;9e&$BUG)Bd0RuCBe_&y+QK`f8v`^j_
z;1gG8IGnV7qLUV?UBgeCVqN?D$mU@yzQ~*KKFugsFR^2S$6l;Xxqn|O&Xu?ffZ$_Z
zF2_B>T7R)B7LinQZzCLLKg%qMR@k1Ai1rNhFev7?E@~v0Iw9;*ZMU;&xy4~K$@*+2
zkRbjA_(pHz6H6VZa%nNqpTkLWg<yVBWmC(XOA)Q+-mm8l@Wtx()})*&`87$$T;KRD
zsex=9`Q`}Vlt*T40L#87PC2+E#ID0yCk#Uh{)E|a(Q4uQOXXwwR2UHj<6)iO<4eMW
zACKz}a4bkSEbEF@FKO<_kOJ^FG~}jV_Z=(suj#K)oQl18Hk^+ssndUq)+I7;WEXO7
zg1)f1nL?Ar;16kXgGstTZOJw9LH^S<Cb$!kn*aeK4&Xxriv70hdR2OD6OEf71YQow
za3*GneiU$U7R<_qA(RHJw>I#0Eu?MDX}vV>^+<6<bb|SEtjbwGY<4atFPeLglPyC(
ze@<9*`T1l35B#2IrUSkBZ`=vD$}(MbV}V^29KkQ$77{)w=HNn~|4CXmd@GUSiWGer
zJtX^Orm&55%6p<~2Nb{T_$FQ3xv1a+NL_$jfYiaTj(&k2G&^J3&<+M_uDX^i3;Z0d
zHLQU4Pg)VQV(}rgaP^~c`9Mh8y=L;BFm=%YKL`j7|0X-hGN;6`fpvaO$oXSby)$tv
zS!YK6Z}+SQQn0N7zb_Aj9&0hhJQi~jnG{!M{!k{#F%(})+Q(dSs_z5m0$n;^tGhOC
zIwA%dT=0zF*d)mvZq-#nCI^Sc1c!z(BXoIy@XJ4Hx@VbD9^Icrh1Ypp9vbtgmmeRi
z&!dq$ptmbRV-#pVnx<;=%14v7Otc<V&&BBOasaa!7tGc#fOY5VuWg`o79}UVXVybE
zy>^s(Im>5Cgm~T^U}y}ue%Oe}L&M-i9j|0hy5~h55FYw88-8|w2PB1C%1vxE|DzKJ
zM1`@}%AxcE9SLRy<59svbcd;z&+Oq4NTNQ}f3xlfObtK1k8{Cl$^FLI8T5W*_5H?=
z?|&SzNAbs_kQA5Euu>p8k@z4){`bsywd9OAp?)76O;Y#z@Vbd(X@p!IEj;qyxiP&f
zF>ZC<sG&SI;QgpA!9oOM)uF=C|4!=e4PAt{oex=cCmT+;l7Yalrhtfp)nVR3gvdnh
zHR|A_2jE2}RcO^b;Lm~;Gh`;Uf1pp1ULlRrw-Z2yEK2U>v-Fq91U`njp`*f);%{#@
ziA^r62OIvIH4(8FY9h=XN#hWj*)TG3qBDln{N!B-9`u-(&nWmnPa_)IhbL4t@9Xoz
z=ZGP@H|Mnj!rw-cA96;_0VaTz$dA=LyrU3l=cJ^?G8d2W)Azl1OROu0-9EtPjcE(a
z-^iSeOwNu6NB7~0B5%6q(Zs`qWmnWPmMDlk=ohZU#5tR4fpM#5HkG(pfH+~|G77ya
z9KTYYhp{h1NK35<Ed**8j?+16-1<0f{RulzhzE+Wv+N*Ld}wHxQ1mA)GN=e5Li2MQ
ztgx5LVrkA}d`q5ohNJz2p4OwDaUmPEO~mRQ`y4f>ujCZShNfy-tQHM(C6Eb0R~A0i
z6j*hhKGl>N+>)8oKDgkywwPrn^pa39hD(>J0n4rWTY3!Yt-?_v<}z(NCjufFkfRVt
z4izyEgbou;vb($vetbIL#{113Z8Wtzt*<wj;x0*^tD=!lFaB_0XjhQoTKUFQ8Y3nm
z2ionBl*0I{Io%KjqtPu{N@1Su4pU{}g{b8(+UFp*m6;u#_rN16*c>zeM4&S=1j#);
zoO$63F65e(;f0!j`Uke_qiqJ-FeWKHgAWt6ieY5h1lqnaj0Eit_Z6R*IIO1y+6J3(
zNwd7NTZ5QOs68u#=>BcEf+$AFJd%k)4EMEehPsf;AB?_%SdFv|r7@!2VOj)*Cocml
z(rs+w>PG?d#lyzK1yEBGed;yzaPi}Lx~PvU46TF@W&kCUtyrIWI6^x)pi7FsF5~>X
zqtbP@CO)`PXrtwNjlV~TB)pKHq{v;@FF$(^ju_l8`aMBKj<b-+Ya^WXlIT3?eD!xM
za+*zMq3KV6Jw0cIgMW@FD4lc`*xu|T!Dm_8TyDO`wy#nOa$v{62Q=YJHt{?nIxH-t
z!1*7MMGzSXZwd0x5|CO}-`)$)ARB0BJsg1#6Oa6?F#WSNc~j4pG1taa65>01pyw<_
z-la*$vTXhyvia-*F93clBNFNIO}h1X2iA78AiMTJcMtcrasv#Avwq0!EW*!LZh))$
zdy{9D4+ztVKPSqclY<N$@yVvUm;5V_nsfs_$Ca)0pt2PkdE8r#=X#2i1!RALvViU{
zK;X^oT)5d}R*ietta<{Tz13umVn={COszFkK!kADjPvZm@2^dlJ~3am;|W3bd8&Lh
z-M^Ye!`}OwkoUP>wVL_J-z!(HhJyRlZ+8AlSo}HM3BtC|XX+H@a2R`Y>;M9JR$qb_
z9e~WJnBjz7k_dGd(PW-4!VnJ#lIzLYtRvcVQe{>}Vn2q*Y^DGyD_G%K{U!P)nxs#_
zv#NSR{5VdSeI45@*oC#%6K4MCeC<MlEp9Vi-GH<WwkHEZM@U1oy5+SU^XJv2YZ%}C
z(L2kUk1*$~aOHY@RRPJqEDkxVC;**{tTOlh34$0qRN%F?qPC3LaSjj~rblaX;VR+-
zsxC>g3{3?emn&IrH<FOs{F;Y9N?P$nOc0BJ`;R)mi0yW2i%bKGgHUN6DYU@(8kNzZ
zo(w52>C`TRb2Ua+zOivfQ;PJ^vQuq=9pABhFSV{=BfnUk5%pYtx}m9Y!z`MUtS!!m
zTQ=K0-o<ZU_QAG7%q-l}+Sju_f(G!LiK3sVYo}kUIUqtVtKnF@;}zsL;ws7?f;Gor
zm{oAd8UBTKeu;QMRF`((-9@=Mw3Tu)i4S6%t_M7-3;Z@LA>N001Vc(C#^KX!i`gNp
zxS=sP%g7`C4j^!=`pw+gkSXTLwsnB%%`NjbI1K+de*rby@D1Uu8;RXj_BNKaQun|1
z!pw23rhu53EolQ21^N*AM)4nGMy&V?m-)FfnB%NS@+(&EqK_?-b0oV!H4?kN?VO5W
zlNWIzt&^fvL|)N82irdZX+qg3zpg>~1fl*fjnn7O7H8G-0}<bQH&6&>XBnUlNOooO
zx(zQKM^@`j_xwTE-}3<i+Gljvd)@<L<GAkI9^uYkYQye57IC`*Q30B+7MlJVo94`9
zRglbt(TZ7Xz++7!r95Xe_$y$^ZvNS;J12bg*D&GNe~r=>hyg&n!ev;a6{}c=&}fkt
zd=jbIq`QpPaa`|WVa%7YbWq6nGCra}q}9tL`<(bSNEvhQFNB6KQxkdzB0XX1hUzXF
zf1_24B&2&Q|IHqgXRq*!FO#eHlKp!bdm0D!v<~TJlG*Q9R@}X-TcaurUK7A5VH-p1
zRY;ujH386G0lL)7B!TK{agxAEe6(1xm34LvQLG6#u(Ys32)|iNZwehZV`r95y2+B0
zK{@2C*_m7ka#@&$Rm+m#+3HMT_`HSU2@#){XBy4>8ZtYcCMMZ}r-frTCj^^x3rNWF
zn+ME}1%l*nY0d>VM`o<f0}ylQmyVu=mns}L#dS46ofgF4L=U03xQj#!V$)yHeF`%O
zO2q1a-uE?&>@F*te22S|ui<xx?PACUbU8t^OTfXO|66=UZ@}Dv;05-gHY$eIu=5N{
zL`eN0W^=iVaS+hmDO5Unm-%@w{>`iwyJdB7PNXWf(Q&daI>RC6>GcW|Z>1!#?Bt}n
zwlfveId}f%GFHf>)FC<!3R1C2=cBjuS#+u<9aTh&&Xl`YR)5^dA|D>Nu@9Mu{&(K$
zT$`0`g6pD?VR&v?rirI9v9hWK6)4~lx-|qLEWni5a@b0Q1tfd9NFWPDz{2z3V^uWU
z<05x)$J;{HSJy&a2riE1eZqsR%3d!NeO(({r}^U$xX4ZE5I`BME%c{KrZTSnr|`zt
zQ__DrnwVk}CNwDpcVB2?GmHskyhy}Z$9@wdcNVem7Vx;?!t`&FLV8<R`zIqzewMiS
z8+De5KVk$5Jc@ETNOB!R&ZK4QDR;ZpByHUVk-d)0HuvV65O^Q_W=i*R8f**^jNoX;
zk;5~TZDa;pvJGTrOe^y&KRHTiX6Jg+nq=%HjVwX(US+9vZ_rco4AwW{yM0em%hF)H
ztiDtwcBF;b#tKXU&%REJWKc=W+_LeA`bVb)T*^01{6JC*91e1Pg+;gJDimaZ9NDnY
zv-|=&tuP8t-A?Xy=FP)fw0f2|g&4;U@RMx&fFw9XH&*6$0dbO@XBz?HU_BE+O?Vfd
z*n()02Z*cnX9}S<6SKou?OA>XZ);`g92?M^0XbKXLRJ$?SQ<IYD8%q4Cuz@^ohfW=
zmtbs>9*|TrBEk3zhQG&#ls}XN;s=yxWZaq>hhYD^w)-$({!G(2R6&zOt>s?IrP=uy
zf;tYE=3-v2wA`+#t*xya@%sJp&P@$wRUoD}p3TZidwU(k-Ui!(DcQ^qjGn*<^WjfG
zpu&fll}Xvb#;nNWfc!KJsLmHe1MGLHO}O*-uxRH4y6ivTa;AFxS^Qa-SkK~Aog0Ld
zZ<9FZGlJ#YM747)F#PuP5^e=Ew@Jo?3a!Z>uok+%jp=6Xn`#Gwp5s4?jm{vl*XI$Y
zZHpNn{MtMil;)W$xWQI=YX~b0XLd?ZdBvP>h!HtMHEBlRw<FIMEs3cghGXL6a?9MT
zcaI^J?*ufzO(e>T;>k>Vm(4~T#<*ZgjB!3}U_`L5c~$4z2WKpJj+FBQRiTKEra*PK
zXg?_O8FM=-$}Wla))5#f?c^%z2#~Xio`9=v>~^EfCdy7C+tyvE)CzUqX}go=BQTkP
zjVZeV8ct8rAavhh&}c6jimJ1*aoFZE8OLH+DLlJ6AtRbPf%nnze=#obS4`k;0^T5N
z3dy8pKEzm~5x+`dQB#;NThgcqf5~pumCH$5(5aYV=X8oUiT0<V&}dD|jxg+AXyAiw
zkPJ|6VIs162O)Pf6Ico`@g!XG7X{!NA58KfDjS-<(q9M4>`bp5kV{x_R*K;42$rQ*
zXucC3>C|?!aZiggnq*fbF%1?}ym6)r&)$h0UHuE#>OXKNV#+xFPuU%d>m=&AOZ=eQ
z^oMZA7-v1r`oX$ep=+BQ70s<6-{oh%!q7!v6XxDKepb=*eRPb-DVWf*nxNgmyhIN~
zDI(;4Z%l-v4KTx$)TYFe+(Nd-v?4=-hR42wc-;4?oHJH9@IAndj|nHg&+N9q!+T(9
zBPXrI9tl>SoAH-wUIb0Tg+OL}I+C$AT`EI;L>pYfD0JzO4Q)de+8J*jK=H8|M?deD
z5L6bEZMr)s^Lq~bzfr4~N5RiOE~QeLSw@QX!J++?Sw@TYp|<+<*U<jz5%@4D8B6MF
zrR1?tLh?AmA>qBcN7(*D!d#cp%=J}zbf;%YxI(3bQ|gd)4lFc;&O7@hNacltvRC}X
zkw>sa#Y`S3E>wV&@cSj=qTNF|xZAN1xo=aiVu^A6*9-P@%rv-pP}~|!jy~c>JYUu$
z<o+W$)^&@@l!0&pxkdtJ1rYN{qHBZ%iHZ2avVX)zy+Guf$TV{RS2If{DOAdMR%&VK
z8sX)Cq|s%<sehz(>w{RW<73L;fZAYO;vqT4=_B#m;Ch$zNQpU^x>lHj16@na!JMnZ
z94t9*4h}*gSV*jTb1+}a2f*(gKxWMzPs(a%%V%#Qh2~(Xqc(sGn0f!w!?m-+aV5hX
zEGsVUL7HjO5-B!KS{t3xqrg^M-jFMbwAO5F7AJG{?^7^aZp84jD*?elpaJCzN$T#(
zMxxvr&>WyVyR<QYViYixjv0T0Ft+y4hoQ4#!RK-}l6M+zmb+xl({-(yguKp_78n22
zJRQ94ua_f_yZtgUhs$~>0$Z*T=}aj`UrMtArMMk8GEN-JAnFNnHakWW*S>{BQGtV-
zr}}Y897+ex-dvf>c4cC{=TO-0_)Hmj0&)j`D!d)@ZCyzp{zb|P?sYgDt$qCv@WRS}
zW#5|#u!vbw%!HJ$MFBj_#9RMjGjZ)-6TA2P$IzoN92@#MZ0Kt+^avQsWSam%y*B}D
zKZGfmfHGc2mZL!VCX$75ud0=CGIXU`JQFL9w*%uHTE>Tz^6^V}j5^C0A2B?saL9u1
zrx{{DIG|52-U9mc5u_hp-PsdB*oT=Yi_2V&Pp(NA^}b=~Sp4UYBB_Z1609Zv7nt(-
z%5R0g{Cg#5(h1JH8JufG5bhRs_XIGvB1|o@9lE2ONlD38${s`U(Sa0MOAUzUKOS`;
zYxa{&eR*=ts69mfbGbHR?RA>4#J5VCC7kQ$OB*FTs-#PuQWdGUN&`@gK-yR8(VdWC
zA#S?+$=10vq3+4Ms7ZVGjT)5rzOs{N74Y|4rQF$SsmMR1SPMsYuo|*=x8QW?=xIuD
zCq#D$h^I`7|3NPP8!hor81b&{TR)@|O5nC1Lqo4BIN8-q@~e??>sF|6zZ2jDfX|?0
z{c;r#g86(VA9nQHhgH0^Pm07gY-Avv@p+Y$&HlO-gmvH&D)H0#@~aBTfh%qd?m_o)
zN_E|R6fp<f4daJ>`M}tY34PQ|Z4Wk6)gL^P_YhdbPCO`No4B~Z270jJd;`+aF99t7
z(a5-k<5^tBjC-s^qfKOju8)?nJ0b>%6R2C%%;KQ5uN0r9mB^@vk7IE&1u+MXj9Z`G
zO{J&>?ytNLuI1rxdL#?|AxwIFH>JmW(&*b(8g%q)E0xXoGP{o=NW<>^GzPgC{XBse
z{0k-fk>)%4^ZyMmx@uT_(L=DG3*3$g_~e>d#swhQ=yCs(qtjJ82pJ7rA!>!#mD?(z
zSvlXHx)%-n`hL{W%oz)z;b9P91^FW+VSXf^tKa=g2`$S8w=OJ|1|VY|yM}DKd*a6c
zrAXYgx+j2JK{<(^2;E6Mb@PlI-M{5&23_F3&eQnVQpgmCHz>!Lo32UpMMoQM+8vTD
zHx^*Z-5M#4$&8vMk=VVhb&D_Sqk&8~FWJ(8TKJ5|c^>tFbD3@!no#Mn1lcE#x|d4n
ztx$Gtf2iM>2Uy6{>0T_O9W}@zdW|0O<WzZ8*HS|lsQAST`mw9r$e6N;cfTcG@=J{B
zUTI;pA$&-`S85{3vY`ADA{{-(dGgCGpZNh<g)p^eKFYZ^xv|gX{LB{qSwpVf6*I-K
zvg5{FY@J14sJcWR#@^w`0u!^Bwmyn)$k$59QTI>)E$vpAQOM@zJTlE%FKeT5I;|Zh
ztKIo;>CYy}D}jB>&u%r=-$>2m^Wtx$Oorwe)Uil!Q~z3jfevdgwhyNyDZbJ(&DfCq
zg6)bDWn4QR(=+qxh_aI+@j;o5<iwuPHEWobgVjssz(DIvDV!4(Ezy}x?#+SJ(hdEG
zAT<Xu<B=Ipe}`WiGNB3Gr!Hjg6o&Ma!jo1QGVs;ax~mFQ8<xCX8Af;nq>+xzg4(0u
z?0Ft)@zbxY2219g7=9d2ia~gr?hb>xkB*?w;^#+svNVhk01r3a{T;#`j52_xWo~Z&
z=ZAm%e6I)@YjZzP#XjEy1mp9%F+a9n{m&miBQPW069F8+ct^rEENFI5hb&~DKHJ*j
zuk0vpajMI9{~?H`Nr33yCa2+2*bdFT?ie}MPjpVzWiut(U#Cg*^#{ISd%h{6Va_~X
zX>netQGUM)9Cl`f%>g~l{ivL#m9`)?NrVKE;gy4(nV~x@{jgu4**(|<vs<4xR4?X2
ziU|y}7d|vFc3;C@Y+Ei?tYH;YGc|D+&4?r5q3-K)n#vM?n9~7?Nbc1kG~tasV<?K9
zf8urfl4zuRwvN8yp01}F4eBex>nC+mAUg~TKsRHJ9ncq-Rk+d@GHbzoVhT-82r;8@
z4V2)p7~9uTFWRHiS-LPuK+XogEB2WCgNX<MkQK_cu6`A;bGVOz4`h9g4nWeV*1ap3
zKH%<9QiFR?Nt4}MLTQfsMkvh&<$yI*O`?WL++Kv`rEuixv=7<geS{^mJ}j>a_%vcy
ze1`M?CXXBE4|-Wal9Kb-KUNp=B#M=}zfjPOH~tzy8)-MnK6N>NK-p%q{@GAI^^J%o
z=N6MR^;Z$5)K8me*}{Yy>JWhXnyEp10@+l}IRy=~7hFi!M90}~Aq`qi3=!?7S0$mS
zG>{U}o)cYgSs&DJ*>DGCp7&9E?r?e?&YR}dISn*#u>%o9U(E&QP3=a+Nh0(YB;AwJ
z%{fUAyG?Piq<A=HV`@N`jD}myu?Dp%xo7rvWUv<M_eZSH3+T8Ji<}JHtT6M{h>_;v
zhB@k+86@g>Td4fahh5V82YM(V%981|g{x6-T0am`nD;ujx3*5AT(Gc^b)p~V)=xgj
z{SbGfKDzCLT6V6`kn>t33Q|WjHIztnwWis(lN>GXrWAfyf1$`{>)<LZ+42(oNy(&i
zhuacG?d6}viBcg#yP5{asJ|zv&K>p4WyPm{KwhZ&yepF>k8>*!@Ihh-v%eId`M2_A
zajnja^oLeWbikMt7$rzXaPKLgQ=)W_m~!U;I(QQXDSTh~2I)F`@!+8QVj)dT!^Mf0
zn&|WWJU)f2eZF7un%{z!$jYbYD~XojUe{^eRc0FJey4=$+*{&7DBs4@1b1%&b-1e%
zX@ZT#Vgjzr&r*Ws<-4N``Qvm&{Y`Clx$A)!^mO?~1pS}3Y)OlW8E&F627{+LDi)Av
z@>XqK-bYPiV+@RtV)sRj6ki|=sfI_oYc%we?f`T6<M1a*Qr}Wft_rkwG+;Z)nlqK!
z)tQQ4sc#Woz$^E%7A3XFg$y=|TWUs6Aux7f>!y`pfP!=k1DrcYQcExKt!<VLpt6d5
z{B;!8RAgx4PM9!I+X`jo$h~tB6hfYrNjisRSruM#y8kPQhPrno(G>UhNmwZP$@DEZ
z(1VY5w?qR1Of9Y2&YGHwO{X)S>Wb<3rimlImL2WCRe!<lZSOzP&qf6%E{&dsZAnks
zMmoiBF;rsI&m#A>%5v*teW(P#tSe0Yoqap2;ytdeecvY{j&Rv9>Ul@RM#pTF{!C?&
z{wXgT05<s}mzua@jIc~C0(9NSQ)$QK0CV0_*)@yCUr3-SGfcj?POXv7nP?+99Sd#W
zcR1Uty8_aYt5L0D(phs^|63!x3-0+^I@5hvOH(t%`7>MKS>Uj@^q7M5-n#5Db8JP@
zwHoah3o?l?lkz07a)aBRMjs6`^1Evf=lb(fUbpDxvKjj%jke?<cK?91nMrd#E(S?g
zfJrZE+)+oII~rg;P+c+7fsDw;WjQmeh{EiCUQf;4MtNIyUbQAPymFFF6RIng*6&Br
z_Ft=S!1a_8bY=cB)NzPXcg3Lp4aI=54k_$b<W=c4VrrDh@UhWrSV^?w1%2jNfoPON
z4UgGYg5O;U_l>{Z;gJ?C%(r#XaEm)#lVH@RtgN=|;^#H)Dof!nz-OT!D?Mp*cY+^*
zde_E=F9i14{XiC&q9&KRy2Ziy#<n0Mu;HUNi6%32aM?pZ;ZER#7{~~W%@^=RMxbE<
zUbZ?q*j~*&V;cz?g?>ucIbA##j@am9#)^)2#HqzX$wf?dGJ|#ltYk=jsz8BIF2JD@
zrR{rGyIWE#0sn8+8SfBXv{L+P0bK@a!zf$E(;oND@pM+VF;K=}Gy%V6RMPpWbR7dT
zlN#on5fNoBU?}hnvHM@tpPJ_jFxThuyUFc&dBs#OI$!cmwPl9o5l!IkaNj5$)94JI
ztMS3TLmy={YGy7Oi85v-s+>*+5&0%smiml;Dp4lH46|hu?yC^Qtqe3Z7ce6}yp1TW
z+#?g{^KoI%rCZs5`oYNcRfCWoKq@13cD?~sYTc)e^j~iCG@3P55;;Fxb_K4U@1s0G
zgJow(-J6PNMrf`2yDk}**BSG`53NZG-MaPe`Vgvd-wdJag4|jntzx%z$AnW&_c8JF
zFT?*lvD&g$u|4Lz?XxNz8Aa)1>mv4r@~HkeXoq2WbYmM<Dyjj~42H_=iuFaMvKUyD
zw)oz4I!<Z3F?wY<^-a!A#N{>FCc9FQ)``5AY)kori|c^seyYuj6#8A=>hIJmyMBj{
zL{<c~Q9Hp>KiqCjmF1kNj3MU>g3>#n0otP@3^%JGbEdw|SbuY|4Hf;%5nz$lc3jW9
zs1L7KS7sLk8}GEKn@jlB6HiQh$S}etlmV%V@j9Is%7=4)7e0b5L~h4wcrRF|p?!Db
z!PwB4d@1XF=$2~DSYxvET)%r)9F0vwo_*Pw!V-ycAxMEwSDT<8M3dCcPq!5+j;OQM
zE6JsHTb<UueG)av$S1MKKw@!WOeu(_+sdTh8?DkOn^K|~Bwdzk3LMJJNfw$<8g8T_
zL4|x38!^#lhkFnE(#x8nS*3Q%blQ+~F<ry7W<GheQcV=g@^p93q^bP0`hAn#;m8Ye
z?*?urU`ut{%0fKy&(o-3Jnu-i5#)8`Z^BaYG08CkY)7oF0MK_h=77guC*?B$xuW`1
z_%$TwH11CdXoh=kA!O4$3nbDLi8Ni$BOR25&{Y@oG!9ir##WSTKNOGR?bCY!%@r%R
zZtHiKO{5##J(H<Muh`!Kg9SYY_LpzouHmzQB?!0Z>f}u+Ej8`?z`Ky@j(&#Bpt1Ta
zEC$26_1q2X&I}S*u0ILg%*MwxTx?4TssO5=n=5blaG~^s`@hVzT+XTqt8aHKzz8gv
zh7lkaPI%o@L+SK9)eV-BB2gI(Z8m-{_e1M+E-W94p8tHDjSr|FPC_OhnSmlbhnm7N
znCkaQJXHtsGqWZ!spa<M(&*%|hnrt7cde5qZ$2v}+PF*YP}Ks}<>8fq#vLskEHlgf
z*ReF({hooU;}m<EM45gsqZvH#VpUL;|Me8pXx><&O%}#E(lz{$b_rC5YspggmN43-
z;>X+VZ7f^$j1`O_!QfU;rdlnXpUrA05v}&3`fI=OH~;%WQ&vT#rsiTB7qmnD1^QVt
zi)Oh43TQF{$~V;2EdJ&mTMQ1HWBor(U2RNT*BQRAxi*e56dQu=Ytq;l8)F*-!3khm
zViIhyg-K#V!d4)duM(3)uw<R-M{rgWwN$N|1m&b@H7!x|p=`=lmNZnVD(A;m`k|<W
zrXlS#!TO<<YLQsk){m*$b4)btkFl<NFZZ5%&Uv5rJ<szTyt~dU(vNHM!_4Sy#I7Yh
z+?1k7ep7a%?x4Q~jI>iQXJ~wKO8dD_OxsK_Fo({D9i79PNc$bT1?i?!_e^BWFpryF
z!1t4e`TkoNC{h?m(eBc`m%$%rE`1bUz6NFFD=e+kmc!kF#{Bj@5J@L@$G)_<%^gBC
z^Lu_0$f#-miwr1$xY3<mD;<%w?Z6Ik&gy8B-#_|`QeWf>RK<7+T2NQ=6gzCfGmW40
zDE)IA1(+%;IWSqAR$=xEC!xiFw-LLyh5E`S17>weR{-P0U7P`V$sF!)Ap@IwSbc4`
zKp&BRbU~$ze+Q%_d*8(V5}<+tZl$BS7_I@j9kZ?O5rCFQBaEHN0UFb5=@o~3Nm%y3
zTh8h0^X7MVnDSP;ReOceJ@)*K%J}kWzgRS4RnG%t9AoNwYIUf83xcP{m@W3&$FLa~
z_ESh7F?7FZU+cjcMosjXzAkBELwaNh|MB1@U44iwRS?A}fOOEm6tb&+pB$dp@`)|4
zh`swuy@AU4%hTePeY4x*eYlmpvb`Pse2fl0i0N6h9P+}4C6%TP^)`Qi5k8hf<uE%E
zo|OR6^PY$G)ieJ0%7wsGGsifWq!GcUV7qdWsXgKtliAW3q#<LHM?ujt>HsRK5qc2=
z2Lp}-Pz4a^CHt(0pL=Etvu8RyBSf0o;T{+0O5<3e=$|+H^jYWxx->&wRukMD=t^H~
z#JV?%?gBlHV^Q6}R~f=4!xe)`anlu)FFC&F!)xSjnkNLiey;gKtX72U1&G|`Pv>uy
zmi1)kg7;RyR2i6~Jy<A9ic0=Css^DgcCDxjv&V@6Z4UR`#w=zYvX;YV#$GGlOax&*
zvi#~aJL{!QY794ezz{#g*JIf9Hj1<4c5)QRKidf_nPM;{`D&7AKEU+fCX1Q7k#?}J
zv&qUr7TU<dE~?U`jq38Ewg<6v68KHrI?GNxOf~vjP<yuTW&=UawAz@;tb@wimHXpm
z_GvS@*`Xknu&Hds*4!Mt@VAhivd11E*F(Hr-6yQU^xJN4To{-YdKH$&ROSy-on7&$
z%?!RB{|%7&_tBKvpNQ!TrEk3Zbzk8AL+dHX-dImn%%%s_{FR;xZqyj5pEk*<;4qRN
zpSok;UF=jM3j_6VwGb>e;&`nkyM|$Vo2GMDsGSDhhuJ0@6>HPyfpgu+;jw=AOF|9%
zTOB=C%x~dmY~VGgUUsz<Nuz0g{{nYX6Rg_~7paQ#hph;RPc~91%k-0vJ>jRHuz&e!
zbiL)V*2*`ywu&!x3MKNGHV>)T?*nLw)d01y&L*_$4SZyRsef2p9cGoyw3ofvOlGz&
zh}ZLS5W({6AYa2M%845*6IuS-$fwxvLUfxwt|23P&OjUT)R)qhS2K0B==l-RpkKMn
zPOL|xf1pG2cRxfsyJ3KTXZD(44V{E9&Aq0Sb%8t7{Qo?Rj(^{CNU9W8rLTA=(Y|K9
zg<}6-w;oT>HIv38lsK=K8e}2CDP3>;<kjnW$JZ?A+2hrCrW`K?*iY-prX`&bW&)V0
zENG#0r)0@`>Md2jzHinCK|(`=Iy8ZBqG}m}G)X;U9IOO(7{TxwxLSE(CrvQpb~Mcl
zdMA6anXq}D-J~2t;v^_{hTpSW#GA<r+?@WvyCass*}l|no7u-V8#wLf`#7-uTL?Px
z>NYq>X(qc*dE595sX1t^MDvtQ$kj9E_Q7TG=TUvl3O3qxNJF*Jei3PjsjddD>#=-z
z_Usz=#wyG))t+kDR<M>i-d6I<5l>f;qEe{QBHop*>_s6wBU}2X?3#BBi086rp;;GC
zWB}r;j=I_3tyHxAX=SPiRCTcB1Wali@?xm+tr)zCIs;!jluzuQa#<cftJB%nA=V$u
zo#*>eIU%~IckF-UTZXWI_^8MsSo?tSi)Hp!zKB!yel_|Wj@c?FyMkQhhyLY6+k_UU
znXico$7#wbxa)bZ*Jz~u1xXFwNI`PKiqc*Od=KtQCbTyhHF5CE*OuR{@Iga<lj?ul
zj~Pfd*jKOnWjqZTU^zaRdA_x+&*V*%8WyM3*NtUPw+ZI%g>OIT4kxoHAEV*fV{n6>
zksWMaNho63F!g}#aIx%as~!`5MFW{`%w^FAVt=Ti30=9UvEN=ZLWY8E)ON~F8vyv(
z5ib>X$XfeQ-b`Ld$~oRF2AI@bJm3>2$2usxG?#Zv*|NFy03HKNyJ}-L<dq$@j??}O
z?%=i-&F~xbxg!q4DE!OLH=B^AaZK=fA-%+68>k8<Jly=`DGhgwMlq+*Q7H>_tBU!;
zuPN*3!(9W>5(GjJM*r+Iuv`=QS+<4h****Puz^zgkZp2O7kk-B9(L44`3=3wg-8gN
zMOff9Uja$Yr9OYC+8A#V6uliz<vG-3Wb32F1&Cht8D5xTBspdiQn8EOzveLu_x7<1
zm+mj4>kYl)LVOf!==#m`Sj1myf!zwEo1AEvgw|LE{W@m`uHD|Bgom?$P12@XG2ZdG
z`yuOe(^HT1!l^Kz_!<KEs@yw<<BHGuNsqqJS0ivCOe*JQBNx|4#icUv7UUD@n6i{_
zGR-F<5R#shPr&@iCoUDVb@__iWifT7V%9%b__iPYmwC#mXk5L`W7TV=9~_=x0ppPD
z>2t-~(sw=hp7l8jX^Zih!DR&C<6I;yDy1Wln3|VhIF@*2^If}$D<^1GvBY;cNa&>Y
zwR1J2#xhuPpS+I<V<?4~E1ru~MqdagMUmejt~<Ug`PQ_=V!!ld#m&y=AX?QLQ#_9p
zha#{L0|w)*cC^BbN=?16S9|Zk9vY3F5%wzv2`CSH@(89+9p9{_(K~I*^EJU(s3l|H
zTo7z=H**@q#NhG(w2wkG_@Oh6vk{Ox{ecppm6-<KbQ(}TvF<(-!-$a&p><H~5q$hP
zRShjQY_ft*Yf<k^*W8lw^dDaRY^|jfvu_3JS>BG1kDI6}yI~A5N|;Y%*FNv~f;mda
zF%Cw_R7N{jkCT@hyLX?eNV6W1wrum74Xp!LV61IYUF)R#u%%%PZZzvY>nM}2?0g5&
z?mp{);G4$zC@_r+#`bv6E>3TL-$R|nP0=bjjy8KhbLO*g+Em0exZ3^}DPlekYtKV?
zX$7hu7sikc8oVJ~Gq}rTSM-puo#%~;6;9Yu9_=WXuRtxl5>1XQ2!kkl%XWM;<ocfu
zqeT7=&tkNgjfCn*obtQlX#<jm{M3fPu)BO$Q_6JbK#+7#7$j4#6fkpUxhuHo9yT6K
z;y-8o+gRpUY*`ri@Y`wjqmJw<;YcjhOyyJEa&|C}>?|qKjE(cgLoe5&OsjR5`PTK?
aF81YwlR4)!-A+6wd90I*d^YuNC+WYw`ef<=

delta 51458
zcmZ^L2|!cF^Z&e;1Q3meLv8{@K}ZM?<dQo;xCFUWv=tQ*tau^Sde)$pfELeqLbdTo
zy?SW0RcjCE*Sl&}v}&s@p0&1Ks8xIU|LhCWet*B;|FthOJ3G5OJ3Bi&yZhvm_aqIg
zC2|qbkO9$ok~lwpr($wQ5m8J;Saf(4_rQF3Ly&P-FU79pH~3|JT#X`eZ@t}9p1STM
zJWoZ`^=smRNT};2E`_1g^&Wosr#95}FCoj8x=96QJL={uAYG_iq>yD#-7*BE8+9vY
zS$MjQmaz)EQ@6=1`Ft34GXUB>eNNq$u=@3dGU~R5VTBIVZHIt3QnxPz#EH6{5s-D%
z?S_E#q;8NG%(F?_T|lmpR3RX4Bux|$carAu$#zueLDJCz;z`o^0#Z-XwF2Tz(wzdL
zpF`3^0_H=~pX^w%c_e+xC!-BN>fTL26x3a1$0)t1d!B&wrtTF2a|3msC$t(s-QN+A
zh17kYfCN(aRsk7D-G3I41Jr{T5Eb>X3LUJc9?=3xO+9i1B!qgD3P>pRm?9u+s7JjW
zp?MAUXc8#zQ;+=u@&)xcCm{Q&$6q##Cz52&0un{CUIG$LvIqf*A(>7<`jKp)P%4)6
zvatdwj$}0g5>K*a0+K*7lYk_WY_EVMk?gR5B$MpCfM`i}M?kia><<A+B?o%}Nh1e$
z0nw2|pn#;4L$rVlCx=X-`3iE-4;8Q$a+m_!sd+9X2cs|?OUPk|faH+FF#)+x4tE4(
z06Ah@Fj9Hss1lHTa?BQx0&=Vt5DPgjhdS`=akLO6(_kXUPpBrDV49BKGYTFjUQe=o
zAVp3Js>!FJG|(waDBpjm(_~tj?>mHwo$8rYU)V=Z>rl+@NEtbO2ujWK5_0-NK&Fz@
zS+G#yiV;pf5jE3rB4?36xmD^MK*=>U5|lVrybK6LI88@pjdHHG)3ajX<<5&aNHiLG
z9|*-VFFAjUihLVEX(!6mRuc7OQ;7;|D|?1gxQxcqYdx)M465!qj4{6hp2-}V{|d+g
z5+{pWCQ(l_+0Uhx&D8TC!84!>J=@48SzHa|SI${4<HynKJzo$;rg}2DcrrQW5V<IY
zp3NthLZMaXX)fgu-}en<P2rOvhkS-h1MARqP&P7TOAWa&RofkTms}1CJT7m#Tmpq=
zgXcG)p6Pm5UjjB~3b}?tM18j{W^#?Av}8I)<T^;0UA`M#CorbxZ;|UlAT`gIk*n27
zd}MHak7d<@`EyFCq02x{^8{<~THtz>NncOoCIJf-_IcZ_Hzg<2LQtZGVLh_Q4a!gU
zh2(DI7{c`L)*$2!S?ab868SCx<sj3?^AE|b4HU4D+wW`?&JnqL35{i}bdO=>SAdcs
zG#0kneLO3*3KYG-vudsT5=L1A%0_{5p~)Q@YNp09<bH^jCWn!p#=Bn=%HLS;!IO=Q
z)>V;*0|(NP|By!@iDk5hHh7@1W?vJLM=nu5&7(~oW6?Zq1Z5r&u4ONItY(xg?~%to
z0YTPPv`&R7TRnvF-7=FryA#afIFY9><M{#Yd&V*hkLN2qehWu`;5ii(yZ1p^$?+UL
z-$|akgshRLJzEIa^H0e097E6<&ufD6Xt(E60<&cod36;iJwEo5Gs+$lc?s*n^ONK?
zm{r))OkR~tF&Dliz1Li!>WELhmVw0YC-T}VP?Vo}H8aT$fYM5oMr}Z>M%4F9Z+jBw
z(-%bEeypMvAQ?id$G-9&LW^b8GI4_UEGFWSgXFzbKn{`jW&t@&-unaurSvC+#u|@$
zU!#FCI`S%cKjD+1hOdvyo!B%xHg}ucSExGsggls0zNR)g7FAf~9g>d`nBVwDK8qmh
zDI)oDYR;#R=!|?DDB{zgoM2ga<n6?r_B~JJBM~aReBP&zp4E8H*y<B2C<J-wf~B0h
z=<^EMLPf8T&m?jtzJk8<sbLcr6Ut`=iCKl@V|9^ZulO8cZCtJ+pEf=j(!2iX^9Vfr
z58KHX9nAMV@#|GzXF-dflW$*;sPKpDzM0U!jII&+ju48Sy6HQWReb}LRe~J1fAZbI
zs=ftEvq16x+4l$HiN8(chXI2cejz_UHqy`UkzY93<<kke>z6^|6#5lBqYyvP^M~Z8
z7doB$z;6*Nbst$<2>!R`c{}+rKT6LZk>3dcc}#w+4SEiycF0Oke<Ov^<)=gnmq(uk
zg7!?IVmwbdQm6%<C%-F_gi=|gC=(AnHH-^-?_`W6{c_4zDSKq|NHk}4%7D%0@Bu*@
zrI@$}KeVSm(<h$INzZWB1YNJHZGUS%@rpY)Tf^gqYKZ!vQttQ0cAZhzmbEPLk|t;v
ziRA%hzLNA$Z?@~a;wI`2CS;R1qgdM-*6qja@RVhmz(ZB_b*Bu(hd;hEwmoHjmLzGs
zHdYh3gZPoB4zIRk{;e&E`#}@<CW++AvhF9>=&R$mr3@u;S!RTLWb00|rq3CY3~LQo
z&etVm-Y~bPp6LH+%A?dC#24HD9Kl53^9t7$ho^2Mk&{C|Wlfonn_TUZsapF$a+1Uj
z&K|yw15WCE9K2;NJymP3{X>#FdO5hs{)^<}=%sgZcldAGY`K%CBO^&11N@c4#PYSb
zmV2M_dczgf^_RdrtmIoOU1cuLs<plRr)H7Z$x*49E^07)U2~bOT60;Fbt64x_P5%f
zXMc-4m$B)o%?;%~KgiuwYbK!H0lCQzMHRPB+Izd|y?XR?Rjo;foHlu1Wj5^}Cin2p
ziC>cHk?rE4=`&5Wx=~j$|1A`HtdP^Ppx~`$S9cdr)#_LLOXibAC{$O}@2t+J-ql03
zIz)GmksXcX>v$`6Olz&&+q+)1$|6AxvJ378n;XGrj!1muZ+fjKnuZ@eMXh>Y^ZM7i
zduW7rlAgWeGu_KuwJO>F-h2{uy;1W0_M38f^hysWxoTAaBicGGic?a(?(0wlKWn9W
zzs)O;XkJfKtvso_H|&39zu5=bvwdIktPyxR>h<=EURmPdGSA6RwX*tO?Io`4ld!TJ
zZMrD>u6$LsGUC7Uyc<|nFQ*38ia%Kn?;ve*^a}6{cMEb2iZVK?mf!c^nKe4G`|LvF
zE-xp&zt=d=K-KaqP;o%E$-(BXPVVQuFn;-Y)$%=(ozS6D32NTC6K44Zk8rmDmxY>&
zc1af5I;5BRSG}Whr<I;=YZv<X%g1?FxcI9{qFO!!`8H1Raqh9>J91aaLsiT3KwO*~
zl3U~WUYX4<ozEJ1h)U0>jupcnSBVE+9C>1^*=L;B8rAY}H0-SNwK975@LHu>?t-pB
zI-fP(Dwo@uDzj?Y-)P24Tjj0vI^c3Zwd_}rL{9D{=||1-(Fx0LL@&GHGTKR_TDC`W
zZ*+gh+5Jeuax=vfjz2KV!xNV2QIFweo{i(3(&CAWhlxiu-Zbk+o0iRzU+~tr2fF!d
zM%GF0-AK!x?ama3ez*^7)g)WRlec*9@3~*KERcA|^uKi8kzPse`&CO%b|fRbl01_<
zB0CB4c<)%RIF}ek5Ig9V?!FF1o6TNGw^>X0M9ZVxVqN107q^m?X|*Sm)==&iyL!oo
z%N$5E_(ut1OxBoZKaVK47?-$z*B<2>+nMx9mdAO=ctv^qtG137eG*xVdaKNdo=NTr
zou%Z7-pO7Ou8}V#5P0NC-pQ`<E?cZ3byVVwB!VD^m%T{+rx)q+6z{aoDt%JDb*@5L
zYh`I(=|b)LmwNI^msfbFdg)jR32e((lIHi`HJwkUd_~k!rD|yx!DLC~V4ogv+3Zu1
zu;dG`jMWHih%|*oYI4`@JqdFt3;6U|d-mS!``J6Qzt9AZTYBWt+69+U%pvf?r{jHc
z<?h~jUOCZ=uW4pXQ7xHYu7CLWQ9Bx(QZi(;c;KZyW}hYUT<-y11+GH`j=XY#LBtqt
zn0>Mnm-O`>z#LG1M;(j*_%Dv6CHC_B-u=C@|L<(n-aldSy-o=h>yKNDOJsK<TYHP6
z8n5bn3gp@AzWxOr^UC)qaLZpQ;F|2?{*Qiv`8tnNlhR?&FZM}`x5)Fn_ju)a=6UQ<
zE#9g7<o8E#Zc|2d<oonz+3}0FxaYYcf1Z#}JqyWB{#aYYITXmMS10T3JSu)XRGsjC
z&M3|FcdM?w{nf&dMc0CfBfIcr{x7-yiz#2=c~4C?!H5Rzywk^pgci_KPdB>t+QY5p
z>iCSDQDHy-p(c)1(?w|P&g25ug}JWd+=G0#HB=|t<czAiws=uPFzipY=p7}Z8{33o
zO8?14ir>qWz3q3^3Ot%=`|=krdM{*AGTcfqNf@8lX%IC#MQ_tZFPY`iUo%Zw{;>Tq
zq8aZCz4wiD+Tk9a?jTznvM5}Mut=gXRy<DY=}~#m9G-q%wuJcVJ13=<-0L~rbG$+c
zQQ~C%hvmtNkPoI;C*~#&)XZ2Y`xA?N$Oq-^x#fwux#QE`*UVTOwrnYLDq}-Vo4r;P
z7k-9WIa+e(M$)?3d(uzM{twwX-N;|<NJU2F%`(bty?w@_do?2`{Z77d`Qwm=LxBzF
z$i|^4{MLllz9cx<T90umV--oHEs=VGzFT6+El*BNT@kkTM^!^!V8bh9GvT75aipWC
zvgGhVbG5D^<vq=a`?3|GPys(CW2@PcW6bH5{z5a-CKN8Wp_h_u0~;c+{t7M(Gvs~m
zFt2deu&8BvP3fGM9!^s6`v8*UsTLlQwC6M=_Dt2^$H2dJRkk;jdWF3G0_P0Sv#P;~
z#Nyr+kJEh{%I5^FTk_|d>G<)=)YQ&XEomi5MdPq;V~+(sJ}YTYS(6}6a7=kOY}Lw;
zg_i>t{)S+5^#+KiOl?KgLkwYSR)>;v$iic4>K+W~MNSbV(wZ`_%hAToE|>M1p_?UH
zqm!1*UP7WlSt|EN|L}|;O|4JZpKFyQCz0dh%CQJz0^|$5gS>*>N2-=DBhl!YX-BsE
zThijST{4b`tzQ>PeBeUZhR19Dibgv&nyb?v>PF?iyZ1+Age=$>xBw?tWh<`uxA&ir
zz9hvjzDZNnns3_sZYb&HAqzGIW3Gv-SHRpO&fc^ntxMaTdq*>&xa!KLjT-_NEJoSI
zH>KhID>T(>NK_W08+xlYJo`6I(FNINW<`AYhug~A`yb8Rr_0TV){H%u|4vh*YN5Fg
zNr<<pTU#3*Z>Jd_ANJh*a<*`o4?(`AHkXg++p_`_ro<1*8I}LXmiI!*&T8o-VdC%z
zu`Zj#(^B)VY;FI?%laU&8c!12C$UOWDhvnBmc(fpucTa%J%*y;A#8FJsV?y79<!I+
zbB=1&I3Wxu-E+6Vl6Bf@`8`NH%3e3rK7U8tq43ndWZQ(vQ0l5$z#^LVtU|_?bVRlt
zj?*v_k(=Df)kQOzQ>_&tcw>PZ3*d~ozOMR&KB-r;oN`9VcA$<9;l+Xo^-Yy-(^adQ
z5ZtyRuFjHZ-ndTU5ktl_r%e1nSDn@;%~w<WyX*k7js^3GAHEV+oq00l*Th=QjKi|$
zs4rx}8=Ya+bZ=i4+4%Hb<*9k&m}=!uLbvox;PA{{nklui_enJDRL<iE=J3p5%@k+I
z9+8#YQ0_hQjj@}It2D3JSk26;+FP+9Cu^%S{WImVE5r}J^}M(`<1<XaANK|>=!ONM
zs5ck5+P!uCJ9AhtIE($bd9s+0RI7f}-NR-;Ja{cB_2J7ln=KhzQWBtouW%?AQjbYw
z9}Ke)IYx}d{E_$Z9_JdUDc_CIL_9d4ytOj<oeP$Dmy9>zCO<$godtf0s{RR!!7{~O
z7ZC+raJ`^fVPRdA3_26YDR+6g@0Ya4U(I+W<BePg%^Op~ZhVZQDt$dd@#3Ohu_amb
zxXIsQ<<LwSkbmPtR`<)5kF85=UF$!%PZ<J;HU5u2?5J7kS=nZ`q?yyEWW1sotPUl2
zRsAJvUf^T@<89{l_}lUKGpmt1VV3M8va@~CFEfx+O{}<6G(@C#SX*mJc`qX;+gtNG
zg+1QMEJ-5lu55BOJ0#T!yVEagChd^zV#8T~oEcQQ^2b9y!@V<9OJhki@KhcKqCNe5
z+<}Bo;V>rJ%Ki}4xL!?S_zPA2=WuERhCdz#GxSl*L%o%nA$y3=y6^)wOr!O>t;ssg
zkl+5r6D$w$R{fi&lZ9zFz3$yZK1bw7yrADu5@lZU+j4fPMK?`XtDB>lxIt!t%TU!F
z2&_9p;>;8MNN%`+CGBdat7dBNs*m^F*bSvBX><UVKCxrEpZ>#Kn3&HE&E#)T+0n?>
zt>$)}GQ%_JeA=g)>NF*V6R%5ehJxoM?az2kGh#o9Y}?(>tY25HOG@z7Ok5#*tYpTb
zOAk?EM;A9TZB{~8T@0JckYi$C-82$mY=3V(6rM0k)2BpsTbLJ>Y<&~iEYxQeHwINF
zD`0)kh1mz~%WsuYT5Ean3A9>}HX`k)W@5PPXQtG;Tvgo&vel)RZy#psUL(mYXvNsa
z+a)%zRp4^i-cP{QVUBf)WaCquo8>w`JRnc`LwPl7DyTZ}>HdAtKuBGPH2~H7q{+2z
z$*QHlkchdIv*nifzp}ab`<fvd66ajBPIe2M?C`ong2O)lETpa%N#c(McJ0?#0(Dg<
z-@-)r@(Xm!>ONF;t|X4m3G5Pc_Uzc|q+;YAZMM!SRh=Dn3mrlFfYmq6KKcW*S)8sZ
z{mcJe)@T->lWjz6@6RF&dfUXd6&Ic}w`cqqH<kIbu*WSV3cpp3eROron3Rc{;xJ6O
zoSFM$X2MBacD<}J>e-G$aciR_Jn?Hy-Vzy{ZdpWbve$(l-l>jP<=AQpyuuD2VS9+e
zN~-gC+FGmk+@s0+L$&x-D`&t8`0J!~ngXY=ql|AMi({=pUE<;an1A`61@8INEjWyw
z%6>H2>-``7PW;Pq6N<x*9mfb7N|e35V#l`DhUYeG@=9fxHx;)Ab~(GcJ!xIet2qM`
z4{8b}VJE&OJ-7L6dy<3pf%a*#Ni#B*c-yiD^PIl#F6-$LG3^WUGB3^Ovusn;>uCB)
zjCGPo_et_wno+-mojTd4j|>Nhm(p5C`!|$(z3+-GS{Ya+ioeSO(%egqZJ%MunWnA7
z(scTp`)tq+-wAWFD_9~XBujEU9`4sms<qb=t2DJyh|Hn`FIL{EDRbGc8Gi#2xoTMs
zYuWET-BHYngy)I(vVMh~jo%%1_KYyvaFY_1;kc5mlfD<u53SDpKA}ZZ_*dBTR!pvt
z39Vsl>G}H2zV9yCJGk&RX$qpS{OF$K&DPz^n@!@1$Ak1=a5h(U;R)Yr3KX()O4cKJ
zY@qG9erL<86V_wN9)3%9p2Tbhjfps6?xfuY-{b0$K0|LAJ89pMWJW>yJO6|8Tg24q
zu``qvx%M?>-i=<3sud+<8~(V`BpF(`OwUPG?(mU`JrliB7UuNSj3|~}AYOLq=24fg
zRZF%qgBpG0kS@Ic6eR^>P3T@O-Cn*vkA?T%Ew0Dj82;Xp#uY+RleY#|uKVQ<hCqAC
zZ+nir8^UQ6lsysLh~K9-b(X}K%-HO3&CI&|%eTIV%Jm_ccbI3CJHL5j<64|mxU1Gq
zg8?DJ7a{Aixw`-Jj90?0T*IvZiNlxmwksI-X}KkFPQn$;tN&odiWa6;50wF}^deEI
zeQ`9_;jE~vP>j{<c~w{2e*6KBGQ_a3!yy|w>gSnT(8Djl$H;J$Bo9!Kd_^-xTAcA&
z`jG@j&4guP&#yCgReLe8_Gf72%#8~^m){6!TH&L4Jw|1`N4!VB#+%`B^H~SQ;dhiH
zeKOW7!xJWGhEx9In>Vn%4>)S}X_Pm3hkFIOG-!s+m!Ob*8S}}%rAKH=^wYv_Jx9p-
z_^^L?&KynA3)$zYw{Q2sL7!M2QIJSi;9%l@k9(vkIwSiDYa7{=WN~{&+YY-p(ssKh
zJibzsC#m}R?(N5_S~zegW%e#CzGLMdd7X0|>++HFSe0=*hEU90s&@gl5hyU=S=i&B
zNhG^98hY2uuX(v@CVxoWJC~~C`{lZ625b%c<xbG#*R2LN@@O+ewaa{}nRzt-yGs`Z
zO@6GT9>ix9Z7{cM2WNHD^-L-cyZfuE_7EhHy3atk>*D=G)SA<(HA_b)wAT(L-s@t^
zP)mY2>2iFyW<Wnx?Wcmm9HQOzGuXk}oKqNkuXR%x5KLgt|5;9UPgRR$-_g%aDHi*u
zZ#MhfcD}7LswB%gCcRrK`e?~^NjZ)6<bFu)+g7*Bwl5X8a_vdw@Sb_d>{}a*?yezI
z8PMoo(My)y&_0;GLi=>~3T!P3y^Bey*>gRnJ*8XrisUoeYEACru!j%e2R_WMd}a<$
z?4>E(7{)f;f{}N6x!fILPaeYv0?G)7ipuH)_r#Ahqt=HVIv8U3MTzCs=GFAPkTK1Y
zVV($z+jC#f?2`6Piv9yl4kAw+W>;O>ezTfUK|qvY-LK~+E>U{tdgVqhQL2`>`9H)4
zIlD10z~-sPco>H6^GvNKXJr`9kNJu_Amofq2nl=s44a14JKWo~H91uor71TxIis;t
z#72=h^6=DfP5&eLfBx}17Cd8^{@xY;>Ue#2rKW$Q>@SFaEB8{MSED98w_MYIxa@DT
zDJve{$PT@#&R`#xTb?^!_JVCUN{5oNJo_fLDm(hG*Ypn}3Lg*_N)*x<qiT#%5(Nca
z4<JtRbhI{4hpS~$pcF4Ru;#vtKcVUGi8N6*O7su$R3`;bRXtbkReq%0rd+AiE5|Ae
zlnF`{Q+mI6L0r%uLHC0$ku>OQvI+Wpy~nyILTUU2?P6HayFn|L`8fv$&Bd0Tf~EzH
z3mOqLG$=196?bR0jP}nH6dj~q=I3D_cr36ykn6LqPrqe;E*^a}eZ2d0`G?Dj1!(;X
z@J&G<hds2X*Uz}Z9Np_ouOq$o_xfO&pIbIJoSgc|V!w|u_S=gu5hS?FDxf^vVC}&^
zaRB8~4)sS52Vi(xaIta>Z`V$qfAW`*`|e%6UgM0n`^+#l_nO9y-aR?+S6+`RfyVsC
zR~pBnW@?<%*wDDLaa|LS|3poaCfg?L|B0HqH#s+Xvx|YIK*rY;*3`Etx=APCSxxy(
zgPMj5e50GjHccYdLnm@12a-`wgkY}Z#&U5TFpdJ(*{<uh&S9O)I?r{!>-_cWl<Pv)
zy|d1|Zs)qs)}3E>gGR46Q2P4C)MNcx6mec}BK!64k!1Z&r0l6TD(Zz-fty%thsXzN
zmw?&}lzB+Wr~xTIq<oQ<gEAd397=s3uZF_jee>PAcUPd4^*>`!&YOB>0x*IEWq|<4
z0@veRNs@PQUHR^L;@-VPqIa(V-U7S>cpvaLz`sajLQN(+z;1wUWTR|Ro>ZP!UQymu
z-nG_X@<dK=a0CG=0V4quNMcGQGG!n<F=cmTf~XRydZ=7gJ}MO$`hyXd>!w2F4*@>1
zgRhcAsw7o^RZ&NJMn^*n!LtZ2w&13%fS-_9Ri+xJnx>l7!HLk?bPzeG@Lt4wkHmV_
zBGpROI@N{_mcOlVLl+Wla3gMmPe<Ax=};jpQGKM^tNK!PM1}Q$^=d;*2h2u5eqHs8
z@`<Xi>Q&Wzm05K`^$7Vx@s1%r*fzK;uxcE8^#sI33id|-H!MbC9kTs{S!LVtHY3$H
zI2zbDcrPQR4c0+`heR8mkZ7ZbXd~|Qg7boliQDLkipl|%fD?jy1iJ_O1*?POg0q50
z1dk1#jGRQgnRpBF!d8Rpg5M5a5^O|jq8^1d0GW@s0dEtDg0}^K5WEZcCcGcv{T%Np
z6#G25CHPSAF$nMj1b`)M{1xvXC~+b9$KdP4ZR&#83vXY%DJXG2_)+lFU~p_2K(q-1
zwrMEfYk=bbCy_|4@1k~4yMuiu-df_-L28@}ZZZ+4jt*WOY!3c7_+;=;!7tQ)YK=M$
zIao+HL7+`X@FKoZ7pMoRhpJ1E`h~d7aP#VM>Pf&L%4QF|A!uZV`b{;|y%{>#JRI*t
zyl<iGBK0!8dZl_Tl8tyjz`GwWj@{K;)H~E4sdpoF4et};%=W0LMSVzpj3j0^B69%V
zFcO&~0pkHP0Smx$UVT;lGx%Y$=IMCrKzpwKD+Dveyb|yGSUjX54(d|%>*`vyew})+
z`lR|{h$N&ZT_Q+Eq)wu0+QzUDPx_QiOQPVZh_KWl(IMK<5usy4Uk`mVbV=yi&`qHq
zhuMa?hxH1J3`+`|95yR#QP`2NGa4t2zb0Cfr76;sYo=)yXpEY5n!TD9&DWaqn){mP
z;iB-K;eEn2;YIrJlJH64+rqyOzuVWguS4IyeG~d-^eyQ7YTxp{`o3%XZtD9%-!J=K
z>U+KK-M&vFxQMcd2@(2;Wf7YqK8V;GaVFyXh`SL_Be}@Fk-Esd$f1$rBBw^yMXrt9
z6!~%Fmyu^8zmI$p)g#I;s&7<6R7O-m)ay~TQA?uMM(v0?6!lHi)hPWhQBR^?M0bgH
ziXId_B6@Q4tmsA2tE2Zv|0nun^o8iF(T}44im{Dxi1Cc^j|q+G7n2&38&e!p8Z$0t
zYK%T+!OMkb8B>?=EbYXW;8yuhfrigxtgtf=jzXZp*I{b%^oZy<H3%d?vgdw>-wq=m
zRKTE|!`#F3HpkXxqJ`XV0@QK1W5%Q4{_cQ(bik(qd@0`oK@>S^sz)0Fw2FfEsg4Qo
zjOYOw1OWhv<LPhm3VT*dHaxZW02jV=dLcmWF_x9z$%TK;+T^=K1Rs>e_iTUn@Osb=
zZzD8Kgd0iz&%fnfVeRu#mJ#QXEl-gAE1JvGV+Qp=(1oukoF|C>6**#|V^0keK>k%2
zzD0Q?KtW-0@})^+2XP&+q?DkN4)~V<p)E(0oe7aV(N{n2F9E8#KLqFw$s8zxN(7C2
zqxLy^ki60C94N@Dx;KU9iQWW-p$}*_M3H-kwL5k844-DaY^sBMCaY2y3rC?8(F{fr
zMrC?O&a{p(Cwik3(_>x<$_b;<LeB;GfYn;j+1!*4cAj1bCVWwV87k_);yVP#w^PCc
zk84G!3fwO++DvCJg_+oqInhedBYc`5kN`UijwdmMk-;d&p$`leanFQw5qO2PAd(yn
zRSLRbEspJ|dMq1dd>~<<*97yNLSrxxR-1u3VFeX1Z)P7Fd_V!E89GMafYGzz84G&P
zl;;Jr6RL=ya-nj-|EVqX<4-}&WgU~P44PrnE{ui<Wf^2O0(N$A6zd>NzF7|$m<Y{O
zDi~lhX#{3KVGdy2zrw<1wE%{(n(&OY&JbWDItGXE*&J)w0X>Cb3L*{bU?0W?`EOUu
z4iz|D(L)t-7}Tpet9-Q+d!@tlnB*Nj5h@V$A&3c02~`VyVvV`e1FXdz%?*AjT=Sq#
z+Cb{|(q8yS5bgnn6b7%yH0;M=u<#Ueg663}a3+i{7&PT`@J`^1!Kkt6l?S1$@Szp5
z!g%tm&BAL8KnJX5n%m*9as_kqaer{!3qtz9e{>f*$@~vgZGCbeEo*WfqH5L`PvD5o
z&@A&<P95T83E~iC2|O$(Q>dH`l@m%aN=E09VbXSJC7o>Gy4a(GF<apuLi-?Cw;Q^b
zZdJ$zBdb_YLYkm<_5~8N1q{RkggqTxsU5>bl+r;->1<TXYJf;GLozd5xj}|+eEvnz
zTS+ggO6;sEp`)sV&Z^>tJSU7?97GVHkS9zmXz3}MA&SLRvqEbHIKdY5#)gwQI0jjc
zm||Fc*8WFZc`3THc|`{$s-yWZitOxfgh1<w`O}w8Bk1Q}6PU-)B5gHK1BR9tl-*2W
zXx0V7hjw--1Q^<9o?6Y6!WNvbg84tJ5OOnlF;)2AnY|uWG7bhiD+m(AWxZt|RIw+}
zIy~Og+^3TZo74{V`U@E2?=4`MfO_m+>^c|Em&?XK%LQ9}eP1rdLKCoF*uStScckT=
zn!z>=!g{zrXvb%kR@j;6Y3(99<RORy2q8N9?@r<lFYYGHczoT;yc#nzj3;|sIxFhg
zi8=q<$~%@=$Ic;i=nzlV$=^fhwXj&fr0Gfe5+&@RI*MSQ(1F=^VhCtEXm*|0KO1kG
zPMV|>!$)czB}APV--#g}MXuHUDC*;==BTgd@lh9}ZbjQh2SrEBYl)7J9vod2eK|2D
zMjSIDMXuGwOp5tD=5(S*!uS0Y{T%!C=@;2=Xus9{_V!!XZ)3kLX=Skvu|s3W#m<Y}
z6<Z(IBkAYll(?R8+PE=s6XUAmYP6rkEr{<OUmX8N{EGOQNzU<W;=hX5|C*4I&_7{D
z%DV|m6ILc1Ot_vnFX8vp?1UGIT@uR@XC>ZEe3<x05}!08X<|}W?O#b#lOvO6Ch3z*
zI%U!)Nsp8FrTHd*k$fonS@PG(e`}q!5!z7gH|bLCcI`Rs#gy(TPATCj326~2DJeB6
zbtxND9aG&>6{&qvb*ZY<^3>_UsdH1eq@GUuB)KW=TH0NmNGH>U=^}JVF=4tw-6P$t
zbh~uVbl>!#^r-Yi98~mn(Z2Kyf^K83Fwidt=N%zQM+H*HPu%qX=49mfjn>SBQ7Mhq
z%5HRUQ&NMjW6r03hpe%BhxjtOpL38N#O<Mn+R@Y=cZ?pT7t`ao{`4e$GyN9#D?Qb2
zr)TM})AOVq^n2=L`XlF0`ZIkU{gr#3{>~wKAqoyr*z)_GTa1<3I&#siFpD3POF6(J
za`gvjCpR;|3vzdDb+day?(PRFwDsg3r{6xKh6CLGoB_k9<=O@0eqn`~r7o;q3E-hY
z!Dqw{XjzI?`ZsyJw!cX6BYBKP>JRdm{;*iPkUVC5`kmrk^7#13A?@4bfo~h_9+Jm%
zp)ya|3bXb;c|sVwN95UWtyKGvfjF7AfjlQRMWAj^LyJ!P6yTZJ4gdl(;&uUe;rvv)
zh`df%Q>_Q2+HJ<2{hYm55WAHDBRd*p;F6W&(#JaOug0tWJh^Sgzxst~H<3JGqeO8X
zz^ntGJm9*&b}`A7*SoV+#72pB9l)7H#ZLea%-SU+kKJlkoX5&>#lM+bYMdB5rtCS%
zZ(WxtekS>yMxnr+CN(R5Z(F%`7RevC6e+F&w3jQsBl+)F&Dv$ePO`z`le5Cy%q{mB
z_>A?+2bXeMBf!Zl#itCkDt3|2P-ycvV@zBach5LB&eLui`Ci&!*4{HV#CdWb7`MhL
zTvm|Zrx5i4z)jW-g|e|+yUf@Y=h<T=DIzv{Dc%OSs?)AA+Q*0KKOn{OqpjN2q%dAD
zgbozO8>d()<E_VvC8TKl#$UUJ6iwT2G9vD~1kfJO0KRZ#;PG{db}cFXz8;{sPrU{S
z%I#H*2AZfB<kdD(ucL>Vo%F_dx&7|a`>epy`|R3<+I4#BeHI;UqTUyp&5B3F&YBhb
z$-n=>OWJqHzqoO{;tu%_*?3R872wum41xb)%M|UK0LP7})F0!mT~Ge4CyQC?!VRW8
z|BKr*wC^(Tn$`qx?vi#N`G3FFto?)nmTzS&0mde!_9KdB_h~GN16$0YfOk$X5d-d>
zl4v(jz`b)q-o3jz?KY(DvL*r^pEGMW8edBYvfD&K($i+`X5-p~FwSf|p5Uo}k5m&6
zniW_q-#gX{nN?f2?-xHI)rU9C+AXBobEP|KQhoCCMa7q-+W+Zzw5d8S=pz`XzT(>y
z+<N1p_(ux9c(VxhukPY<6K$%~FPp``kUD$4QhXO+vl*hRvk#iJS4ds7K_|XS>f&QX
z;+uL>A3qtxN*uppFTO$Q6MOwJebguJ++)Nu8_eQ604TVF)cDpy`#u0{cpbp@y^Q6;
z_Pye3q`m^Jo}!R|W37rc05`WQexr~O^!yQpL^Sz}uLGQAqJ_ksy(7LwA<GWGqy2!4
zs}e)Y))G4uH*vKgtDBkrLU3TNeFCuKj`(K^xwq?>;(ZEvy#8J7hX6;-cFzF5@mCxJ
z`01wj2MYNcX8sd}W@1J+QE1jKow$uc3(@&sDGWxWU0{?XDf)dy8fIVjh+QI}9nE1>
za*{M`oIj%QfMd}hh6i9a9;9&0RCFl376qOeM<#h<0?kfRa0iX=CMD^2Mzn7JOwmFS
zty?506T#-xE{cRLA{Ch~SV3gL;aaVQA`1`KGa~Mb87LOUF0y#5S$vNo521Fj979_d
zDAH=@k#IK{f+&3b0a2q?B6Xdj)~+xs?h?BuKrP0SWGC+j6kU9SamKJ7&Y^zB14=l6
z*o=L5v>S|zl07q#7<cf}sE_x=PP%gkjIq-<vQdqlzWq6xi=Dn->Gns@*csmxGUANW
zW|o?@eFo}^opqqQ;vvOJR+!WN{Mh&)In?_T(he77*D}Akm$b|%_L25tn_2s*F<$Fw
zcYxBEBwravXrseFBVGFYtjD_a51F%KUn&RyllOC^&atVbONX5>fcf%;@u*fY;3DZ@
zfz8~Px^I6z#`wSe`D^WA(lP69ru2F=-9qWcoo2;bl#Uxg?N^k(2HIOe>F;d6sr?TF
zcNF(1Bjd_Z?LlKqN;G%KSd~)ba+tD)Hu@`W5&OCW6=yHo;jX=8yp-bE;|TSKsc4T;
z|6+5ocArs{n#escrlf`?AE$zHSk~`UFb<2%V*s@A5fz+4HxE)_5XNLL6@ta?ITcod
z^C=ZVk1Vwv{ruXvKQ-K@sQqlM_=@pPYJ|S+1X><=QE;;Z*)U(Bfy{JH0qkMw85G&m
zpMiAf_A(91+TqSpgU%N#ex*Uh*O>nr#7y`K4Pv8kf(9MmpkqYLUii&HX9QO@sC9>g
z5zh;$!2ug|81BIV*YzPAZ*YSHZnm1Z4+aN3Giy)M;Mkq4`N6Tf%-U~g@KUJqG!0&}
z?U(`pHiv2kH(oYt&(h#qD9{S<oH@0@ci_aorNQ^UVe$@sydhirjEV~&_BmpoMl^Hh
zi;FhJj{5LSaq;zRO!VR*d(3i_C}!ecpdrjs^z>@_Hz6qh>HrwB-q=^C&|josXV0-_
zhqdm~F>oG?2LK@1B`U!T(|$)KS<w7#D(QbH6D%bKTQ6!iQc2-jw!D-SwpL=^lnh#X
z0UawD1bhA-;K(6_6Zp{fg0=?W)@tosDmmIRRI!yx@YM#C&A#@k;f&{W&fZ6feK3Z)
zMq~)O9)X3HrHYVxW|X8y>*vwPACUNw*oSt=Dz(4Bj2wWukW%L>I_-Qab=`Va`!~Rj
zTE%t-7O*_mPxouzqEg)ovy(fOreBe2+W^{ED|S<9CZ_2_D$PdK?*nW(q-X@dKqFNk
z%%)O&(5=1NlS-KyA5rOh;CTn2MW?-HJe}_B-9)8(e(`6`;;TH?-ltG47*FgmYmXVZ
z49{UJX_Wn;p(bwIsP0FZGDmek$2`m^kHh}p9~H2Z^>q|8k9{;M1h&%%VAeHrH%6r&
z_E$WnQR#?6*3qc!!~WWv3?wQp(x{0alxuGqr)PxqK1-uMg!SJ7xN?crwYTYz_9q(k
z-L?_h+f)|tj#<0kcp}5I_s>W`Q(po6s6m)k#u~jtWy<Yl#bp4<^~~5cGfe*rmBpg^
z3sg1;6L2;IKQU1J?LAhk_=iTt3o09O{-~mf%4(rmH!3q6j=+jswitc<72ss8_AbCp
zDFkBQYXY#3Cm1*l)4E5a&p^*V(CAi})_NL^Ns8cR^mhnn_P$E&Iu)$t%)swcdEvLp
zX0E*)aisV!D&Kxo$is{mKPUFVCgc2Y+jNDQ%J;VB*!|5wEds3ay|>Lm>KAtiQ;ua^
z`_R}kE79%&RW!m4Trs|yrR3U;hODUG=V%NI=pNCS#n(d=-_vWDFm8XkRwiDz*B+<J
zik||sPmFC@&b^;d<%F|Kv0PS8J|ojUrpjr*xGO%RO89zhEmh9guLGl7c2M$6noxZ8
zoYp`Sj(*yx*h~{HZfsPnpb3|*3{>o-D%2mo!MlnrMZZ$jDOk;KRK-;Dl&Y9&o*Cz6
zdk%U|lMz~If2Ya#W*z*K-vi@Tn*82R5(c(oINztqAKug{{-nuJrS=bi&1Nl2nOha}
z0p4Sw_2kwQCs^LaJ!b7+#)sL8f^TR#L=fMn>8)t(9L-?5{u|)%JBn{<#t`H^q}gDB
zTyqd7j55BMv-+z6s7v3zO9nvr-?B!so!iMUQ;yL!f2zJ-mE7i&S+a?Ckty+#{fAxC
zn)+G9y#oEanopY#wE1MO`H*&5#9IFqG)822W;w76WwjiatgY82n+(ZqJ?8ga6GuC#
zO{DBsBg2LF)zxT8NX<q{Kpu3GZI%5dRR&TUgM*IJb$#(WHsXQ4JY8+V*}*_xF++G7
zC}$LRhA@h|hz5EyiW_)v{s2ToQrR9Ro{6$$qN8m|(N%OnTF6QDV)at}M7^vnDT$}H
zBwV*Pyr{snuF!q0q3cj>UDrXoozzA4B6aL|<HCZjdPCPtHCNGq4}iIHDNj=T6ZR@9
z)h`{4e)q8twE5;xTWDYwPrE5*RjuVM|LuAUr7Mh~LxTLm_IDlC>%UoCYHyfv2G#Mj
zg+?TDqEr!Al!vpL0+NVL;-gX#ryeHu<3zb8{;*na7`97YH*A-QA7&8`D=G*mFY{Hm
z_Wq|?kzbposVnqum8?^$QqGXwmK0S%4P*;AQxH&xBRGuij8@YtM=UkwEkjMOHZ%C@
zP7~LfH^qj}n_^3CL7HidZ(rUNJKi;KN|%2qLh)UstydV8g$jLrO7hA<ZApQz(U3vT
zWTK(F#Y2J$N!2A<xt;yfn3;_u>~-Zw%|iy+Be!IC*Rt_r_z#9%4CHz)9D{r}+aB?S
zkNCzLmfen1%0JAli8w!~Xe8HWA!=D&AMQ9nTW6Qu=BfHZW1yW{*__O_Bz&s8Pg@_H
zyj$EW*vY@!NsphY$p3_<HH?+g*2fs_i{9t!<Bj`@3i<k6W4D39cJ-5{3A!;R57flh
zC!tb_P-zLPw0>~jZbxHAv-n!S2pY3Wr>$2P?{+%(+P-vO8%_-p6^d6>qYv8pzQ!E`
zJ>u(?PNPh9r?Tt3vzd7}_M?5fojm$=_fHmY9OmmWeR46Yq$GE@!=5VFLVOux+5@qY
zjjK81T4V1)$vX5bp#+*L9Oo|T8Pq+r*{w_Lon9gKTJ;K6GQMbc*HZuO=_c`WTS=zH
zMaP;(e;uccw&A26uWhw<bNiqm*3I*S)ERx0sT?P|+9cxm9U{S)F?emEpuQyH^NE+w
zz!iH$Q&ub&mx@J01}(Q)4jUU}v@wEY>^rzu?6SksWwgt*<ml}$mp72)_Ls;Z4u$wq
zj?X=m=P3F~Cv~J9;ymUh=qK2%$RyG=khjq=*pF|v$HywhlY_hJgOit-mdyQgQh6yi
zsiKrO@tL>3<Qu4OD$fm3+f<miOsNE>X_HsZp%vt~qZ5TvJ5t+}=T$Ho$J*C(Y7v<v
z*>Ec9j8$8|Ag4{G`l8-o+rU+tM3k35pB;&Vi3YTVBEwc{z=dMZJX2wj#a`qdFq|aQ
zgP_C%4P2b@{bE18yL2H*-zLmDo%C%^YES-R5xttakSGDuw{)TCkY$nCl7D}jyLKUW
z$bxS(VFZ1$iptOBX4RNMJ8EgX1KBJGB$k|gqhWUk8t9<Oo|-LAek1pd<VVL)pDvd?
z>{scKvBP9{Y*K}|3%WX~T-?QEr-y2hLI)*k1DWiQlnBW#>N+OW8B9Z5DPRUHp}5&J
zRNJL%#>#~aFNVRWUNO~O_^<4&3PatYh8M}&k=!Wc5671PEj#enA&vvdCi|p5*<Bot
zWp|N+$4lF#TgLWT4SEu9?_ybPlG<}^N~Xv<Tdggh_;&;GfTuR;;fEZk?On35ZCP1w
zx1h&)fNouEF~(ihi|f^k4C;nDaQ4TXg53BuE&2RDczABo=RYxCJNo=bz%DkD&o2Pl
zcD2_v{B;uEc9d<yUx)OzFHO-3)slL(jX`Z&*D|h~h#y%xQ+C-RxJ|E!OVmelA*gcr
zz1*6LT8v;5ujRYx)ch>12tYJTUC*fvyvcA{Ti5LbEaRwpmO(vJrmhpUjO%Ks%WX^Q
za|RyuPy^Mfd4pP1SD<$wecP90B~JdQubh=KV$%B@b><hCM5hZx(8bFF$tM1amRoRX
z6Ax=^#cu(=2I|aJnD}$ZJzc>6tB7>cj+ZrlrLM<_+vwGGwmZc5UJ4WFe?Bi>NV;}`
zqV2D4nbH+Y(<A9?B%MxIw^Wqkr=0zaE+tddP^>@a)%vCAKsI?E+JpryG)f~YG|j%C
z=4P7)_b*+l&(PLa{pWx%Nd92OqGjdQ|BHQa>H&*$%QN$hkKUY<KZl!Znp<G$Iwq(_
zywc<6!t!(G1H06cxzZYvPA2I{63?YfRMWsmPMX7EM(4DJhFoUIJg1f=d=3rJitlHi
z%;Vz{;0{3P-%@N64>VO3TwOhd?&F6e<m%%RTIM4!F7zmP;u6Y)-vOqoqpWTiR265M
zdw3wn&%V|Kks7$8ZT{->yi5c?Q&ZluT8#Ub;aUk-(@!hm)3xGf55Y^5=8$bmjV-G-
zE+IWd!oO;&Ist~vmL;}v38zved}Ygg+qkH>HTqF%8&L<I!-`(rG>7`PfMf0;CIL58
zXfK)hwPz;rRJ9mhbPBN_uKH?IHU3Qs3JoN_OVyk%bgiixi7p&f%^{W$p@Qy01?=lA
z(I|8^Zg%?23vGSS2Va;?u3kWEfYunKB1)Z0BRe|4W_)^np-Gh2QX`a#OM~gQm_$FB
z=AP~3nGa#(LI<Wy=IK4i#52J}@Skh7llc;h#7lXHDl%KAI~8Fe9X3W}pQp@ao@m#~
z$!$vYZBC@-ITP2M0_%HCQ22O39x>!WV}me+l+vL9ke(X1jfgG?^W|t)TWIJr0JR+t
zQ8-Lwlg&wK{Q_9DdXh~OC!K__;z(Oks2}30uzZwlZc7R;x5CI19dJB@JIQ!&WW0Vd
zcD}@mP5k!}yjXH|#}o-aP{I)q{NoeW1c_I|A~RM^e*49X2ph44>3s^+%vdqt_=^-Z
z)PHweTHM0CNuUfwTqR_|P6wkV`+xD<6Y4+_42jihMJByyZlY;!CRQBGw+`*vwagdA
zt%-}ul-h6&TmVa9@CsX&*rn%luB+w>VsYI;XJha!)11f-UAmb!g{_7^m~3BNIro1x
zJqU8|Ac0vJ_E8w~q82@?G`FJ(sD3}wx(LCpiO!nrzG3Wkj2&6)O*Ug&=G!H#PA<I)
z$RxbPT47Q{g)fz2PdhlN4Z1VYG(E>OBg-n(cS6IysEGy(Xva|NvrIO>2m~4Oas(_H
z*o8rym}50t=f%Le{9H_DA)9p-;=tMbmqm0DNo`3`&EE_DhjV{91o^lG{0A3_aD8f{
zYoPF|H;tZUYTK{T7MHrsm{;bfpD1}db(<ab1poC&XHXve2U{1Jp4gwqfGij$bP|Jl
z(qxmJ_c~Fjh>|f6n)6<_AuT*?V%`*<&wHI`UpX8y@yRBe3j^n{Eduff&aq*LEfn?(
zTT}&No*n^k2ld;$*X{mYi};^f&RJ_gDQhh#)KP^U5TS-H@S2#G%S_X17HKDQ$4oZq
z(rL5{Y+{qmF_af$tiUVD6O(PJSW;-R`5JRff02#gFve=K8Io@+#+|<JaptdJiJ58}
z+XnKrQfuHpZJBj$vV9|cW-`hOMg0bf#bT2rX@^=OmQLmdiP;`W=-w1tal?xh60S?S
zbUL?l((A%p<FL%!gQke74~)t94sPD-1E*otQfj`Lh8(5^rt8T(gxU#n!z0Gzt9p~C
zn_tpOzTrjt%cv7;j`2ykA_O|dkc*}WP(*F2(7V`VSzP^(nh(J1U^I8kV7o3ntVnu=
zBJ%%N#MkDQ$S_^x#gEUd9IJdbx^=Uqvx=_xz*!Fqurt{Wh3oUA0W}kfz5a1~wFh=Z
zzObW79}t(%5g);E46<-hR5qDKt^HF(+;^tQ#V`|FlkM?*?7~WIDN`+h_X$O+D>A6G
zE0t+Qd=5qt1Av^K`5ccN*h5#!a&8L^_vdJ*nCD(INyeLOFhc^2fn&V&135dc;l&J-
z<W9asWS=jQbj^o<Yg2}+?7I>Ij#jp=b61-xI5De3Li<cMck*q-_W3q8UGwol(0{Qa
zkiObfZe_K>9?0(fp%y2#r|+xTW!O9P&SE={Ag1442oA92)dZ?&Uz<u3FR>wu(;`pb
zfEw|i9y4lGd9QO_OkJ`q>^KIZ=2tI&%`GhSZda^dtFf5DINMw`l{U5*CC(%{#$-nD
zD##P6IfPMMg*J>iuLbF^ZW&byYndVuv7n{<q$wge;McJPzPOJ`n1yP-vFk!9Fn)%j
zMiY02sTlJMb8z+RHr!4V-<*$6AV7hcu72H)+iBe#W0WRM;lz`me%RqOF$`><oz-B3
zU*zKs9ea`%wqq7ULJ9V<*px_GmPq14Go@mTQ!J*G$u`r3i2f~!X@<@;{m2#x<_}o#
z2U-wmvUr#rFq(GxoYhLv2BzgexWI-N2=MT*oT@j829Yl_cQ6Cxc#!p2axk8-Z7>Rd
zJPsXX+i8rZBgb#ycS;0Vg`Y|D(3^R@WD-=yd^Q3Inlg$lW|)VV{zLwc44!r(1ciT~
z(l;m*wL%n@Vi?gtJtlg?i^GDHtTd|R2k~rHk0K6Z1GVlLRm$&tIXUyTV+p{l^yfv*
zleWXIiA#FI3QR)A4(0>Y^D#ec>vz;!2LXa>Imfi7LiIRKJ)Xb1rK}XoSl`kzf<vgu
z(M!kCB#_`}lk>_ru~sZ;wyZvcc!eoIB-$csSt3ebr?bp^TPx=BEYv%qwU6Xa?8Mk$
z`GR(IyV$b&=7Akz)U=BU0Pl$C<XZlG$#~%;LK*%!hYtb~G)!WFFC9hAt12pRFab7w
zOa6Qt@Zo$y;1hxkD_;xtolLGQEB{Ug%FB1s%jF48v1bxjYV8%)BUo^+Nu1cGO%>%}
zGa79jY9J|AStzlLY*tEELf78`FO{fm%hYAu4qNsO;s1CLC96kp>fyY!#2Tw#-6AT*
zhhy;Y96uPQdizT;dVl*%QCn!=Ql|Ah7$1vKXBSCFazda%Hw5#eD{%U3$shH<i$Nc1
z@o3CHaVaeSW41b^rO%vV8jDJJYb7RYC2Q4{Z~dR;O?E8}G>er)G%>m(s<<pI;r=gf
zD%`~a04zp=TGFh=`bR-${n#Ru-`_N{N;(o<Q?k|B)|a<2*_<+s?XMndqaK4L%Sj;D
zFuOUbuC!IZ#q{yTeI}#Y)~@02o5rvSJ@w-;9yS>x#Vw}F!KSgTtjw5~WyVOylBsgM
zY3x|+b#I!+je_T}NO(6@mjHfB<;bjyr8olWjCbMq!KO2f&p4Sk{>2M*EoZXD>Kd_?
z`7%#a;pv>E-P-&kd&p$I)ZdCOt#L|b20>HFMx24d4V*M%q_J&6h`toQ<YKCrJ86QW
zX<32_Yib2BL_J=jwi8=RvFH=U8(vH_iFInRU56W1VIk)qm@4nKDI+G?VBsv~Dl%{D
zZI~J8?bOpqJ$0=5jY@dPco-9WZUgz5_#gh&H~s(WoV1dlj$J14Oq1<X6MxrKc)86p
zvIM7q>Q^h(uZ&d>9b;vYj-j3ZIt9U@ZD-L;sV&#=_kYj>D`{uPdTdo#<*VwkuUy@N
z{wy!l^Iw^G47EdBP-GAf|Gk0dziN1K7u`namEG1evd42!|CKE4NNPnmwc)s7))sb%
zB>zkowS>p2v|nnPk!hN)GnE`?$B>mc1}YU*<hJz`79fn3Jy3lmRuQsr5jcfOKhbL?
zH%Y{a;nBB?wLD*dP2M5Ps&Wgzy2ji<T~c{oXL+j}t8voB-K+429sX(3ia|_XZ9BeD
zCV}wRH;b4z7gvcSY~nAr;b5W1+EkGx!2BiRq}zouvGL1EUiwO!Hdw;kHaZGTU4K>T
zK#q6^k;E>ql7&uaDX)?(ZgyA{Fd9;3YqqSC&zOOf5}*9i7@5kRLPzTHwk*p;$v7wJ
zH#sJmWiaLK>vX`_;L(`z<kz1mpQ}aInDKl^0;|rL@gl7?$2hCX$1!R#mZy#$0Mm-d
zxT7j$AWGujU2fpGFSoxO=1F|1XrPFBHy-DER-_c+9b7M#w8)tiY_2xL!3wEzG)0ns
zR0*k#A(K7yIEE3=Y75PNgL#Ien{er0wy6!`Y_Sx_d$8nQT0NF$cF>1Ew`f<0%Y>O&
zQ>f$cPXZp3<a!3rkI;&{=32xlzG2;N!bowa0F;feg>79C%`QYmNwpT&gQHI?%h?k0
zVmd~lH<Jj*i<F80k4cU{Uw2f>q2Zov0RS~Of4;G2by(084(AjvV;)~27Wg_3E9Vx7
z=70!9ln*_#rQA5NT4mdUBf+F6yNuhb75X8EF_BxO<DAtZnOeq~_!HTjvo*d*6jnra
zZJ98xr6TSX=2P?-KNLAtv6RbZ>7__Bh~SeZ)iS9_hwwx#6Jgcc0f#`Q>G^EoV@Iku
z0!TfPiMg=duv1t8^*D@YtJOZXJPM3<{|BS>h~CQAX*$`QZL_KJav|p^f|(a1;DD)P
zt&DQ0gzhl9rm^1_axzSVX6rOydH!QN^2W7Pa^qTd;X}z{PCA%&JEl)PTbVqeSiUAM
zag`2KVpQ4Fe*HORscY>1SR)SLrGq&fh7T%stt&Ym+(l(qa=!drp5&+*|87Z7Sd23U
z>2X{x*7hqbPIO)5F_s0akPCvhCCzI=_;lCefN4JYVgwh0zkfl#VMfQPJ$q(Ogt$5r
zm-gw--HuDqdYjL@7GuAu{#>SU#MIt=dYZ9zY8D?|WjsB#7XweGh7GGP{G#MUw6E(?
z*S4PiX*+xRb=&6RpS)dM-g}peBv>3fuE067mqV*5*djZV=Gt%37~E_t{}4iG86?Vr
z>oC!G7RM03qS7o<IR)Uax6~ItDZEvF?u2pq8$sd;7xxt!zkI`|JA7leFcd*}*zn?^
z@#i<<^}D-$P^c-YnYh?5dE^fxC8OUiT;`&?VMa%_ix*_G6YRx{5brPgX44|HayWaD
ztxnA?GBtd&sX<6Luylio`>|y;CoQ~Wz187h7Mz7zXAUgUA<%E)*#R#8S`&;T+aRZm
z0)s83;Cp<_TW<c_4Hohrk)=$e%O3W*S(rv`p*7<T#x>LWa0X-Zw7@RHMb=J~G(Mc>
zt2e+|n(7W~>$nPwQ}hfhroop+A5FGlmbjbL;yTGmkFg^;SKM^;KC?<!QK$dTB2F(U
za&_lkRgR2W=8qEKt=qjyhpUmB|E`14A&nZhi*>unzifctF%OJ;Thg2XkeqfqIS>Ea
zxO94=tDY0?l1!w{Hh8{KVUS(1yoHV!Z%+5Ov8<{^hmH92wNVC(c&hTQ$3E;s@OPD=
zQfMc3N)>n67tNrf6ZM7ygK&h602-F%uKL2&U}LPDk*m+Hb5GB%bH+*i;&PK9kBfQW
z9xM~EKip!$5oa4bsI<bMKU|?V%xDXZ$0d;<goU#ym#Xl=R$y=su3MkU#akud$h3S~
zjz!19`oGgG+y`Y~*Y!`a-JQiaH-ClRSXRgk3<CH5efUTS0JZC&0>{0|J!Q(_jct3d
zboATnVql74n5%$69og&}%pEsYDC_SKo533;rNY>tyafNGqT|6mi^*^Zr`^>u4qMEc
z!6v?@|7NiW``3#tD~+dTc5}+kH?Y}1k#&o=%#G0US;qS_d-ckW!7kRs=VE%kyw5f9
zzZMz<@6l!-<&ax$>@&-|h~=}ZvRasq)3t1a>kk&;E=!s2o0S~(4ygiay0u9vI)uwM
z*#B8zVAp?7vJG8d%Q1AdI5-s9V-s&GZ0R_)E;OE+<<Z07Iuaa3j6)dpr?Y(Q4D!L&
zgnYIaZ?HGU&yEorZo_1!&mQ1zkoRx%P<`QKsH1&s*v7!{XcR`p_~Yz=0m8_2S))Cp
zn|Tn1XBm~ACyh0Y3h^6K13TGG$+53jW)C}}OCA+6p?D;h_OPf1AG%sl#|?|vzube}
zPX+}C?k6R)6Jybv{uzedF1k!u80~g&&PpyU?LOtf9x~PGq;;IOZpP5v!u5|+zH8t`
zdu?#m%Uj9pI<MgthY-!;+#1OSXr<2h<(r-kY$lYR$v6c6w+S0rG8nlzz2$lt#<w`|
zOxztB!wFZU(zzpf{FBm4Y{nS1bDZ^Y3xr97+r^$i9=gMq_Xy<;l*|kSH%ho{Ps;oS
z`flFs5MB5&GdFm2_GBA+9=)x{f+t+7A=2S$hQiXn+ho8NOW$hgajj&J4!!Pn6V9c9
z;<WXl11)HWkLeR|Zvb_>c@6>A5PzIHcvMlJ3B}VL$4Vvh9PfB&rb~PHiFy{HDXZxp
z*qLo`!TB=JZ8C_`4Ns4!8=fE58l<?tjkkr{6BX=c3%ti17|Xo@lB4Ddk>04)NBRr7
z9PU|?aR=l(t6Ljl0E|_C_tinkk}ryMY$dT6Kh%c>z@4!X-X{^dCj8(AgDtK&LkBXL
z#5fl<{;3bpGxuEerntjBTM#C`_-=QQG~eED4+;0H9kahJDQ-;1KE9Njl_{M?(wU^@
z3%79{cFMPu@`Ww1|5#<Hugz61U^p&lVGj7xAf_iqrNF?JjN=S^KuiZthcP`Q=yj5_
z(NyEioUE1G8Qi<sp^Tet+^ykvIOkmZV*k@@c`(&YL}-fL?N6KW4H~>#n@5!YJ(fX-
zrFHjq?Ur!PLnY&4H8f-Lr9BpH-MwZu2^{O#$fNZ1HqY$*d+bQ}Yv%ak4EJa!3@qR-
z^>4Eg2zQOM=JvHUaQ~04Hvw#_O54ZJNp8|MO-i~zlXOeBv`yMVq0j|{1W4MZO_!vl
zMOtX-0<EkSwK!;sN*WPxxj+yqhNY;W45m1s%wXyYE(}l=ipzvSQ5j`)WJbsNMt;w^
zDTv?y`!i#cd+*7;XL--NKJR;nJT5BbUs{`1Di17t!mu{rGr1&ngJUkEEP^(Kuv5*!
z@H73fe2^<I?xZ7N{4Qr1X22wTRh|wQz)slHELdJX=>a{B=B*Fd#MZlA{PqXZQiTy)
z`x4JFwzX-gk+D1<F$k<T2$$&NFFp__clB07gf#{?d+39y8RGbu%IV_J$$zoG(Bvpm
ziKRV~wvGC{>X(Hdv)cy7XH2p1_6Kvz;ZR(I(X)s<Xtnr`*&~_a{+9@1qs_kPcbZej
zByS$D_Q^_pXThu`VA=3K2$Bjxb*{Dje8thveIziZEO&ba|I~wOrz;kifK`bP_Z)3j
z*sWX5FjRV!m2RWxgdfxhX<>CGk?B@f%)5i3Yhy}k?$~OsaK(7-@J_HOoG=JT-^zZ`
zBhNEFXYz%v9k*)5*r}QMA+t~Tea8-A1~ZE1H_HR;w`^x7t;Frhh1=O{+D{CWyJBv+
z4G*b?+XQcaOaQO^dJ8+6vs=W?!(DZ{uEqJ{_>dk|+$mdcY+jrrdEoQI{N9IjX|5k3
zQ5RyC8-zQ9|H$7i>Xj_-suS(df5GJOtSJ8KL)8%(Q)=O2dT<hyPLr~MuUK~*=zAPF
z#2P@j34aBeXH*<qv1ivMIW0D@6ygsgS)PHFf_=&;HNjTgDe&9iFk|lli*LU%GW-6D
z)UcULvf68ABiI|OB3JI^(;`0i!IyZWN%#PG5!*?m1U+{M)W2|l@>{cMc3F${Jzrpa
zX_gC*{dBj}1qz3P$&O4nMyRh_^d`hDlP4H2yBX+Emv0Ar7e$zb)ih)3WP)@pV$wAV
z7iAVfc#RwQ;3ddrHjJ<`fHjh#;0jc-j13QyEr>xg@ySF@k(ugqWRY-3QW-W;UnFR@
zm`1h{{_0B8xgu}(Mb)BmlAsL@imoiRl#t3NQ9Rnmx>UQ=$XFep-DhwLiiioy7-SJN
z6+s!x(YF>j{H%$uH^<vo=?f}k0dV9H2HRrdWc=J>eQ=r+h4DmVJcCiol8qg|;Iv8k
zGFhs7MM)NW2S{6BjDA+z(*hieC<dsH%Um64Kguo5JXg$r)Td2fOnwnX*C>mZ(ERRZ
zPF!f`M74TO?1k_BX)1q36iAxZ^a>y6p5(;R+z}M;y{%Z>Q5xR=p06ASF7a+u*08$d
zWrI;$^j&*>yIpkQE=oSLQt^cv8UdqhIJnfJE&3i%`3s_BSc5J4Wwu^nuxy^*#x#~>
zy9o9?*lF``9^!Mdwe^ku8jpnhWWbvLTNz=>qN(qv6?>f2O5+;$P_oQLe9HG7{@8Wj
zVQvSp6TYlIxA*Yin7=j_Xzm9jY2E38!N^w*zr@yCcQ6G~5W5WsvAFbB!sK_^X&g#t
zSys{VoKmn6lj~bz4az1co6S%*1*X;qeqeaHcuD8^$xIio=!>c7Q=_lRi^dk`HH%Mx
zAMxKk9Fy!?SRNP$cD@ig4SV9@u7L1Flk$VIKvLPfN?x}<&Dr;nsqclezNlBM-Z90s
z^st|CvjN=;&hntL`vQI}i_JV!;+K78wlpdn>(FU|bnhA^UEM1!UW{%VF$lN6q5TGC
z+_n%cFiqCJ@C(+ySkPefS!-V$WN7$Jiia8<et|7ppO1ohw#C#rFecFYHuSos&s8<b
ziJ=HWX8;>^1lO3PhhBt|&TNFh__A?*kgH`-brIL2HGN~qUBah~v{GWbp-X|{ggt~!
zZMV7<pnK>Ia|Nw{-2}S}SAcVaU%`vF2e|q`a^MNj3<e|fZDz(9*<xuYpDbP?dQlCq
zkNktAWsU~6A#TBzG3gMPVKVc(9#O@x{@uF2!Ef*4-+v@wuHC^H^a{y6nI}mB7pD1c
ztJ&M<xAw{XOic=_X%O+5k@m;P<e+$Cazgphua{yoPX<}ezzq$7>G+1@4i`UbLq=>+
z*#VuPrrDKNJqvR&6OCWHAwCVFX?1X2ylct_qoqCIms<xANjntCur5$0LSMMV`!{Hy
znBhkU)-1n&4Ra;T{LI4Iu!!3l{_71>!9r`9FcW2Gv^dg4?=eMq>wqvpW6o-1VwtTF
zLudNL3_+h5j9hj4Fh-GBGbo*@GDxGVWjS4`=_dxPE`Hg@cpdiseb|m<Hg@^yz>Jx{
zz!b~0uhy?_rqANuJ~4<pAmI;f)WPOFw=pq{$!&oa_+K`TbGoRhoQff1;14a|K*m^=
zQYfej!9lKE2KU+Z&oDy}^A16uf=CJ7R#sC&%%?MhcIoIkWsH?x>WAetV-`YQOcW;0
z3lbd7HxSv+HvIxMH!}JBRuJ)6wj8SBC0)At)8~mB^!io_6EJuT27M0(eH64G7=Pd0
zD3C+n4Vo7)i+oY5X#V1VlZ-jn=4{KP<JGEB%`}JGQoQ0PhzaOefa2KjA?V@!SDW-0
zbM&K=q4bd)Rea`$Oir_F5rU3>LreSK7ad=02cKmdNz-bvOebe7{aH{idk4I(cQA>p
z+hM*8M_%oF&>U{;)WOKj^k=JAdRe41nZbjg`jtVWv~N3nSm-qy3N#>RW2)6fs<3qn
zOIBK%h9^M0Lidgr{A^JCtt5KM9vA=Bqgl?rudpL5iazop&bRcD4@c*ab&T28Y+DFd
zVXna37#wr83ZO?x<>!YnV{8M$uV=)=Y9Y^Hj>kikEEyI3gV8#ZgDn=8hM2r--T|x?
zprr#!;SqzPeRs&3`OS~Tgac^Ta=0r?bS2iqzxWs^gqi&U`H~$76XG8vKo$1={Vpb3
z3kfV%T6wE^?4_jK>Wb{O+;AoQ|9$#6+nD6Y{c5e+Rov4Sl*;5h$%re`*R_dm>xu)J
zj{yzb;CkyYnf&<2<DD5(%%kLZ!_Wetbe>QCvi`@SWm@%=Yby@-ChvC%&VYTeO#2c$
z*)YK?i&IqOyf7tnWl;mNx^*d+TlP28Y%Qu5c5XFeBhK%C&&Nbf2ELKu-vNXydL)}>
zGHbh~&smQv2^qPW(yEck&?Lrx(DjqvfE|VQxtYQc_#YlmoB4?#DvmSt?YQvu6Uc*K
z0k%+MtgbPB_7tXr!r}TG2^N?!{XhKgp2(Tbcs@hz5ifc5ABxB6fyX6+ohAJ7E*Er+
z^&sYMr3;&-_xZgP_&j)Ag&kDJfBr;DSlK*8wb=^rV|dNPvUyM`gNV_$Ul7B2gO1;D
zHQ>l3k{A&lhW9x9=1u1DNpaR~99G|JCskiM+em6PEIg}{>os|6uJYUY#F|U-0)Uq7
zFWlwE1`+1}3OV}QXE1TlkQr*Pi&N3urc!t(iLBevRpx-`hI;&-V9)Sjo3*JydHG9_
zp^(#Tj@N5~yB?AU`?$%)mv7c!lXq;st;k}-Ecv~2jDZ=JXKr!ddnrPG@JA!$SO2vW
zgILLIfrIS|^1WIK@lnH%Y>t}*jc<p5R4<29SVXN#iMc{4wkYk6{mMN~Oh{ark88mm
z<c@i%**nLy$I0uq7}fT_>{b%vZ=XQ}nI(1nnk^ZMTUINlntyRiR!f6d+zz#Tvmb86
z-a`1XYkcJRoNG&&aLmnn+4F_KY$h%*6NAEi8{ln3o7(@?1`cy8Bs9(@RN8vGJ@365
zoN{p^dNpI~*s(06%k*-=9N10anb4z0om=f9>o)#RTN8?%z*?NNhA^c<0_YH;008np
z85=r)vNWXtrfwh$5JTHQ=C*JlrHU{dm$q=sj^}ec3C_|i7H#-!4+s2Z7{1l+=16rQ
ztE3K5TpYfMf$!otM5qRKQ|>h{*XRxFeZU*id;e~Pe^+l2v+jhz-M@h>8G42bVGnAw
zav{C-URkA;6Tef#Mc_81)XGJC>y?}j7)riD;2lwwnPPbE#r!j#F$I>BoNxy<o?XWV
z%ewSl@ZRi7umivIN`}1Bp%>xe#y=B%jsMD%80%y%wj$~LUy7G_1}xO>pCuxt%ggwL
zZ8fSY0Gc9c<j|v$biT>kZ&LJA`O*;iVcxZ^d`c;5wp@ZgSnz5xfB7qi$W8oa6$8XQ
zNGfA&KN%0f`GH-?{&_3;|8CRNxg!7UrG6$$1?KhQja?EH0cFBRxDg-l1oZ+U2fYlS
zl(KP70+<VFC0lyD^ao$q<JBjjLA{^(@lOK_w`}E?Jed#+l3{z--Lw+zWlmA6sC?1g
zA}jBGGS%sFGIfl3R)ad(AtsSN4nE}r=5G=vfpJ83mltvIT(BpngR&=RvK@O7QWc8&
zjnLI@Dz;h0<c%$&U1IU8KOVqz3;%Xg(fk(rSh-b1O16mM^btnDS8P|!bNyJ42wQFE
zhU%ci5u_~*9Dad<QDag{1&%JPl9zrMWEnQ;Wtf2?VM~l1J+*Qqe~BtC>tG5Dtz(Cz
zcr4}rv|X)3UWwF>ZEC6Eq!KSOH;`dqD4QkW5Tq4Xc2UVY?2x~{T@@ERYo$@v8XC?X
zixyu(^SOkTnz$n?35a*)4TqDItO48Wxxx09du#sA_w3Lkpgx1mD*ycsty9oDteBzw
z%(Lg)C}E6mM+yX^y$M0Hx#;=K+NEX0sDi@ERABTRI%17-)I-iz1_3K2H6?S-vut{t
zgCfLUnkiWf1|=E-N1F|b6D9}jF-^%rX&|Mtc`Vc@Ho+@z?AMhC0VK;QV~r2r8o~TO
z;!kYFj^2Q!*hMT7dus@af3#m+$h~nu%+~h@mQ&P0l|zg*Qzd?f<2@7-$KOJoGk&}Y
zZ@E(`5-k)x%b)H~ijKOpgNBO^p=HkRC?Men?j`&${YB#bPknsxQ=QJgg<E|{GKHr>
z;adpKSK?P+{sh|9jXs&&h6XDQw=vq7jYWc${eq~Rh95)1NU9N6tS^WwXgG^ckG5bs
zBr-b+n~Z~8M)kQ2A~~O>X{zZ7k5e<d7ce)C(d7EcXzE*7*`erj3dtio?twG3kI&j^
zjbH{GScLMExkv#q@@scSr$KrP2ZLNn?K1ADJvU9>IE<GVK}R<!$E?899Mkx~&Z(2#
zP1BH1QfOa-cWuy^`VbOkifOS~8e#UE+_pM!oAmvf0H+cfL^EU1<i3rsep=^zcj)9o
zA?1V_1x?FrTCT70RF&idG<d`a1uJ$NIW*)^Rvqr0jgOk@-rLZ6iAia#8Vr2^*o)+B
zEmGNhgQ5L#B!tXpXp@R6tLA1(C$0--t}r`#glMO1Z!xonPFn!8v}j`+Z9Ys~O-3&1
zOY?AAOry$fWtO(^R0IjFvD;Z<P9d@Jk=~ry@&Fgp-L-&}H?&bBDiIrAZnEpAi`Q$4
z3f??1fLSo4++$K!HOu}ME+{+iGMPWExYN<g?Y`y{vef>@_j<=^-SJo(I0s1C^v8;q
zFm)886rT4a%PGp?uX@$!BU7?|C(ERiy?RDeq3yV0kg(3%@axIN*cU48WV^*Z3%RAG
z@IsZ>m)8gH1`eZ5O5{s+<v86&KXRnNM>D3B2&~2Ao?4qD>QlI*a{63IS^)BU1Bo}e
zuEH(;Z8_pK!ijJ+@rvF=2AD~7wMHTO7Nd)50`hAbDr<SgCvy6LC`A&1DCod=6A%NT
z1-a%GlkdFrS_|zv>Fry}b%^NKeDWUkLdI8v-iT!`pzZp;GxdG*4crbLdX0)Kk(j{Y
z`g}xZ=$PY)(>F(0t?6&I*C3HE_{gKWZ=A#;`z9PLF~d=0Hr|}kZ^+Rnz9APPzWs(@
zwL4>u>zgHz0E@kS?SnGfs7-vbLoa!#u0H?6W}2jM)TF63G6Xb+TlMPn69a?rdPEi<
zC6l>FikIkr0+SKHd(%&a@yy7BNQHmtTRve=f|QLQ_gmh$M;D4yY@wX|vOO7E;eZW4
z)ljXNMFUFffB&}Q*&TmkEegB5v-p?xWTv}Q)DPF1l<$Httc8iNmhq9mh^xp5Pr_8$
zvl3k7MSHVF?&bW1z46)1cs99<n}RuEq53OUz9(Xl%-kHItMa4xu6irW-_l37n_OS>
zJ$sGy?#|WTneY9|1tKo}HR6lU6*DPIKfFZ14C0gqEq6qHK1(ZU5$D&^Ol`})@t6ja
zyOzxL&J>7*@t9+WA})O%@x@=+55M5Y3}{Pcq6q8IjTqVg*NJR$eSvuG7ufp2XY6aE
zWU0QB=(*7RQ}6k(AV&E3FMYwU8qmhOm)inKm4A~4{R1FXeRPwN|C5j|#2*?+QdFK~
zsxE88kz@SF1BSAUDJH=En9>gWj>!P9Q;q@{MaCdOk36!{`oUoUF|IP!XL2t!4n3;8
z-D&pjLf|RawpNjETgTil=muZCPd(nf>|Hb>)!x3|3TvMRL270bk)P-H5FPidy{F3x
zj|U?=_>d5V=C|$340X3G6Nr~Tu`mAiqQ-945&XppFJ)|2pU0FDhZYW*6Ned#HNXYV
zc0Ouo2$lM&Dl06%&cS@KCbu3xF{S;Od75Zf4(s}x1+P`Gf772y6CtIs?U~Jue+w@e
zWRhX<SFvECETJ{gW^$DYbQH@vkO*#GW`uLNc$HYKKG#fF=6APayqKe4`zaqFBdHV%
zkTCWg@B%b{aj^DTEe#0*3kcuyT$NKCA77j&mMyIZL({ivIfN@`Q`L`gT?^i<ekSH3
z_jJ@ljgN^7it{J=Q~37b&IXbbo3>_i)aOR7a8s<8OI!IDBtYsT@2S4#{GyG8n4g%V
zZ!aSSzqX2ea~0(t?pl&*kFvDt8-1R1#P+m4!fwr5_N%j#rd(#ySlCIJqSUmYg2(1F
z#TeW$C{zJrGPz#k*Y7vbB>oTk6Y10Zhx^^PBUJaf>_~XCk9$k>^Mpv?20{$*3XG|(
zbBGHxUX*)*jIH*H&Z7ZoVy6_kHX7Mwz>;hr1^8)$k9)mqi@q7JQ4pt%khB~t3jib_
z%6CBHguJCvOnwulFbcBsHKWD#8u(#N0QUckn(xS}D!|f`O7jTtqk@J4B@k$}p>mOU
zH?(TjQZ$NJ`<s}&#`MHsi`fUnH6l3yWcfzJ?`|~woDoH*H4tk^J8n3_1R!`!jY&CV
z3uvwXb?tb6hmeC>135UfSayW(dR}KP#a45#Gt^^1!@?X|+@>-zNp)?hnbBVAJX|;@
zKO&YNfg3e79TD(ms>x4L3G5`*09gw~ga7dPrD$N39TEHS8GeMXd?7m;$)oV9O+IUz
zFVd?Ek%0(~wef{i>f~R1L8m;U+v~L9=5OQXJKo*#F8{>~N!iAaac1_8QXf~;_#x@M
z$+eICuWW5LPJY6{7;5Cr2lGPQ?G2>YYvk`cxLkQ8gz=#xL}8={*aGnXb1*^Xt|4}>
zkyK*PslP7|b0-^dREnc}e!oEblra$N_~gO}Xo-DUiG3Pek`9qlxWm7GuVuN>DA;aZ
zdAKbbTFGIv7HO{tC4z;pjpJV4>f=&cn8yjRWujMw+JC42DK6LEVLt!4;130N28?RA
z^umZ=cR`7amZXg2a;Txb72y{m<QEbmE{t4qjD+v_MmM4~4RS^EAD^A7S)#v^M%AyB
zohjrWJEW71D2=R5zu3q74^5fLXiQX#JC^5OP|7bvgkMNdJVg&YWuoFH`H1K@7lhwM
zj9%u*Ts&n__y|Ac#WW{=FI-LAKoX@FI%<E@pMIPT6)sOzJVn^OB{hOppG=J5BO(^Q
z^fD$>XpI~Zi~>e<GmxU=0*4=Yhq3F1CQ)i2sdvc;+o?00^p7Ujg*$Z@oXas|t)Y$l
z$cxG2M?@Gue(D;zun_VsdxB(%K`S`R=`#30TU3jPrE6uejKL0=9L?~h!+&A(O%8WG
zx9kGx2r}D^K3n{>rV$c3GHN0S;~m-}w3)xm#sAAU89&P&Or|4z<=_OF5Qs;w8k%_b
z;B9dNr%hR?>)hBZZKF}IRQdB77S%rsfn?(Yg9WKi`AzPb@E=mSHk>le^xo}E8AEvi
zzjr#@M@<cU(cxKT2SXIoDN8m_uLqwkJUA}B;<>Ss{K(9Y4J1UuMiAc?m@!8L<C66N
z?i(1^dF(2xdHI+b)IWo<>J0wP!|7RQ$0oI@VV=p|U<J&KMF)=Ifx<07;ieZ&?i!<a
zIv@R#jhk)^KghSeRO~z$-hPZlGVevOQr<XHyoBpCgz7u-0!?GuxtU$eeary6(?1hh
z`4tVnYW-;<GV0hHC2uOS$Pb2q+{D<?rosXhU9(u!1<gDv?uulsHh0mc*6C!q^ddc5
zR#rHY8CMixn>hky3^UW_Q@-u!A{pEs#w!)30!<~%7SZ9ZtG3?acGd@@_qLC2G}=em
zn<>|^(^)>g?hiUJQntMeRi?gs%L8K#$JZUam#IOOohD_GU2z-ql<dZlOgb(<MYh*x
zQa;LLr7k~(j7hGjYB|Z)ZXNPFT?a`Se$ars)GBVHqd$suFlNV$l1J-tg#m<gSJVok
zwYZJ60@jKzlK<%s5i^;IV{$h#XEckXad^?;DElLA-rIWXU{;iUHKV@_*(Ug~1yt7m
z9wd0JCWe0(u6>K8DLs;wGM(l=rVKBNIV8t_V5XVrqmLIP#6e??i{Er)T!^bkF!lKZ
zN2-#{vv<rgDQC>yG1H`+HhV|0Nm*#z@eC%UiOkR~bMoq=Q=NUi7Lz;reUtls2)bS)
z0y|6x?S&f<bTk*d46TjwcOqVdowvo^u&n7cK59GLPvWE05^eO!pP#a=jW!f;Vl4!*
z<|R#DmNrhyJ#3JrTyB4@RL{lgEyX=xYT<ey1JzUYtGli=W=HO)($+#0<V~$_G0IHQ
z9VM1TJ#382w)2x4#5sDSq=h`r4P|PD*Y4ouAZgiLHXg)w0gbqQksdz%n50nsvi5h7
zh#p8^`w8BE0tUSH6YesscCZv+ZHnw)<<pp-=PzS4VRE-Lnfew(ZA@;Tr#aj>VjvNF
z+Lh}Up-x@UOdAI`ehk0x<$RlhNM6?DQCV@WZJXpFdow4BS;p<@blCslXb`b?e^K)?
zOCizfR~KIqyDZ5QG9~ZaHPS39)hb?|awSt$grQ_=71$)lywmuLFK3L~#zZjOQq#zz
zCigP3-pj%cluvvm$;ko?@I#mtbn9-V=ry=`Aj!?pHg}1**OrNBjtD6je;29^jM*i|
zDFAZC>=aW{AwIw)V*Cs2iFz_A-C7$zH3vJ%f|qXUup+Ab)69wk11Kz7<DK@2kDFNh
zqdmYqGygGtb7++2e$l~<ELlL%JlJmUe7t9@{wG;O8-f_*atevlGA6~$|0e#USF|DS
zXs6zYA^rE2ByJj2RPfqk`KalSO~y92)D+{FKB%Sn{yEpmhV`pyzWsmV{2^<z{kr}N
zRokg1X^UxsD{)6AjZat6n*1`;gzdFbhP&Zp>Fc4uhuN*<_*k<xJZrAFE;hjJ6K}53
zSH!B%6fcoHRNTyk>R0On5))Z0j#xxg@smd~qcmSC%trR2MurqS=H0`8dTdegVsgdO
zFL`Lrwf53>1PtOQsm3;y79Z@`-W)c63rSbS+aK09H=Z)%nmM8=(m>dgF;4va{y!Gb
zO8yUjoS}4fDwLfVx!EY}1rIOz)AQUeBm7k_{i!h0UHm)mE~D;KXOnK&IakL!`CtB&
zow$qqhiUu&GPyn_-z$n?4NYtM6xM}x+s7pLW4`qGdJ$TFa9mf!E9HC)gCi{O3c?Xs
z`IpA&$j1~)#ju0!nBc)7Z;{{Rc3^)F8@;>uNv}SaIj!kyqS!^*?;Do}e=n$v-eNzx
zVwCYQMsJZ(QN(lp&SbQie#<kKB3+F=1FX?ogw$u{SNtY_O?)vqP>e*3B4%q$XUYt^
z{xOO8^efijKmJD~-rh2A0sqL5g%<E<ho(|5AMx5p;|tIDNFMjRrN4NISk~m&KONMJ
z?KhX4F!jwNPk9S_ACONJdkcCkiUJ~E&qu$WJ+^3mOlYtVY|!&JBb=ou;A>ykHsRpb
zD>1kNgU4P(nithq(EPN7hBjHwss&hTZy$8)8&@<e3x?VBcsR3mMsd4<cDdn3m@!|<
z<Y65@^!n5ga5Hv-7r&7l*T%`)r1DI$e7#uO-ewMO4^epGi)vfLJo;};%m)X22I4}Q
z**Pdb>Tsl`A_6Opr&%i<oACae5&gw6YR$i!X%0}4(nb3G?;t_e^8;^KYBHuwfplgj
zBxJAh`H4`;9FE*%BYZlv?aqjTsj>>1t(~)}N-GbHNk(XW@%(KFPmyqR2b~gnBxk*$
z=nXNVJJa5rPBZ!6y_w(;?v~tkCpYNmombgzwDhC2vyS@;?gm+0M2SD;S}Tb#Wos2j
zix?~hgyTSf&G6>JE7X%!O$=;9o80Z7rq{{c-h8q^{xtu$H?y)9ljC6CSE}-QQdN<#
z7FX7UcKwKe>}AoxI`jWP3(cnilrviJFn`-y2~O7=clfwGh8~A+7`z{zUu8^Xg)(Na
z<(0OWoOVFD@IB>;%oteYt~aaX=fsLafD<B%ApA_Ow~WFGI(mZfYsk;c$qkE$<SmOf
zh+l$)i83_Z#R%~PBz5rW`D(nix5r7<G4rpbm!bYrj=`VubLsb)@sk}Sqhour7p1kZ
z?gohR;4fZF+@eQ+1TLj~`+q?}K}49#5W)=(_txj5paR~n0iVQ{{F(U?p9Z3>kH7s?
zzEGKI!Nb@tbcnHnr)CiAA&ax$G_*ze_POmQ;hYUpXI4HkT37*}3X^Lg=x)I&Mt2LC
z^K<klFuvIdLmvep@~>ZK#E<FR{dQr5yUv0}L2J*okpJp!trQ+GQ(r3|aYCKtUJc0<
zzEHQ&H9vQubC8=lH578l(q3P9Mzs0924dupQ@~I{eD#UsG+1r(050$9Yz89N-jS&1
z7G_pWjRs=<Fep^$4&}F;m`MBh6DLZst(&o}$DW)g9*@sEPfjWcQmJ$(yG(a&&Ouu*
z;F__TgK4pGaBd}(+pmc7ZENML%aCLcHrb&n{63TB#5z>Oz=;cB14~<&IC;tI<-a{y
z+1iTw?{`W}V)l}AI_@g=>A21lGp7@sJP`4seF@N<XJ(7igbmP4*$*cLRm4bKTZ|e+
zqF9Cf3X}(G*O^R;jz+N>?|<h$Dbf=M2t9%ccE10e1q<f|fe5`0Zvm<DdV7J~yk*B>
zeUD6yu=O^6Sd`b3&1H7|$gmoPXBPG*l-et8y{!fICHjjKwzYi*u~$eeY+u#Y7w6w0
zLE%+MHm~;=A3yKiLJqMxAHVtCIm#QVExXoxJ0|YOck9G{d{(_TO|ll}7V?k1XH0lK
zUOXq?);nezfU9K@x6YFp9sk>VlQoMmZ_)OD!;d3ag3cu-*EfrU21)VzDdBGY5+wEn
zj~Bh48somx22v=~ed~h0fMCFv_{Q&iKVcm63&NQ43(kK!$>e+m^Dw}lc|SSaJ+A^4
zzye8z<Ma6czOR)I^e)AI<5N%R%<gE5`vgc<9}m?$CFHGcc%@o(O$`LzYgU*_9_W57
zQ&DW}8h~(B43O|wL^BbqoJ{DX1Cw$l(F2p%oi?0GR=H=;gQmV$=yN95MY0!-dLLsO
z_agu1sWK;aY4MVA<~9;}kKM@0&7g(GnTB@&LXGLlB4w@hWpERM>@F6*EDtcBIILbg
zg9O5t??p+3NsRHdJ$<8K+9CLk-@`PK*QMWnLyqHF<O%kyZ%OVq%J6T(fzxAy(U}^E
z;F9H>izk=PBJ#jgfY%uKk~`TnJd1Ggar(w=xzBE`(#{4mSL_$*7ZHU^{8o3fJYciT
zpH9AqOD)6E)tCw#je~Yr3Ta2HHZC%&jvQaPuPv-d%l-2XtrUUyreR~M=Kd9*jT>N`
za)2Iyw>O3Ru=bpOb%~$jLr(+7|0iB|dU7lrkWRAnw*!Kcj_*G0khz_vWiF+lZ2kFk
zoXGtE|IO)SR?ch88MSl3<gGNBlrR7JRt)2znUhG_WEAEXLhX}g5y_leFAJQhgB(Sx
zlC6_iWsynV0po9fQ-^t8K2hL$jCMfo^ckOYmR3CbUc;U?J0s45^{vTDxlSdTJxw44
z@4#j6)BH<kQsE67IWwM4;=|5%rHbPfnFzxGARpfJjtyd@{cz_-x?hxQY7p(Wzxb?g
z)+B!G**diT=4`cd5?JX?EGBdj!Hb25lh<!iBa<tciZ*+CSe8Mbs!yX8f?+9HtA+Zw
z>Tc=6T7zt@%FkYj+NvvNs^<23S5rEagS=92!2+-M6CX)d5N^NzY9?(OX&%@4PRFR}
zx@cbT(sP;b0(AL!Po$%a<czu9rf;t=8_v=$XaLYe1(Bc472+@QZJXxlztmrDH%dD!
zTJSTMrI72^fTfJdD!QXcQ=&C=RnYM{#VZ7DnM#QpD$he;g6a?MO8-?Ico9AqycgBz
zEiik%`1_{U>ld8N-ZlK-2Pw`q<TsUx;NfxnwldL%>j6Z(MMJ%!nNw`@OaEF{bw8_u
zBS$r%vSdru{SxFsi^?>B1{UN4NH&P0(tdW7g`)wK<tY`FDsc?w=Z5QBaBQ1tb6Xk2
z5=nVvDNf9|GUI#UL<UaaxZ?K}|05h{vg1cZx2+NiFtDw(vWG@(DPATZP&Qmg%^}f@
z>uriWDt{!*$LUhGx8~x_y3p29zimmTYVp6B|K%9Na!pIa(^b6x!>Z{8|MYsheIzC9
z{mgU3Z`qy}TMgSo4DrRmV?!1Zy|5N+ucii-tPLdHTTtTlz5&QAZ~aI!9=!Nw@}IZT
zg7~4|J6^oZTS+c?Dfx@waKc+4K9a&Wcc;9Y-}sTuxrk`v-xF`LXv2y$vI=1CNq1-&
z@Qv3pSRWPR=^@=pr!it>clgQ(d3T79E6=JSeluiV&Tw9R?30etd@zNsAK)0dlWBG;
zdDF0McmjKeuu;eglal=S_eg=gi|$hCRI2tfhUDx5E~b6|CqCSL3|Mt9FGJmlO@Som
zYu$Y4xi!k}5P3InJZpC{Mt(}x&2K(up3#jehU|<m3Jb6{l}5qZ?QR2coB(QO1BnV`
zto_8<J$j5N8Xn*k^=`u8*Yjh~ms=~e*aSlrX>+!<G_-tBky>s~%(e9*(*azWw8f_B
zHraZ+T5_M9T;Cj$wW<lpJ}hYufcwrl2;|e=%|aJ&%QpV-NJfY}@RHFh{)oSLK3CK^
zhmRadr`>$PNRt*uIJ)(<6B$^+jQ_CFo-qiJsMo@Nt(FHS8|U{Wl#vW{LYs5075i0q
z6uXhLI|RW!;c-G?gdA$W83=;*1*R&uNLpqh4~4tfs7*WP7sRH}KD;~RiR1J&w5p&X
zyC?+^=ASpo;)!nN9-n=H+a(geHslelyb}hthIzt~Ib(;Bjm%V&sJ>L8m_Wnp5swsa
zxPF%KuU%-9Wh76-%nntGy7>tot8(4Tn;=}|=_*ynHQU-T5oSl5`riH6^#TCZOGQ`U
z<s;RR-QlE#Wb=1_T&i+CM?Qkvk(|ML_rAwmw=6FV8p6oO<HMfl7B33KE!oq}Cw-z7
zqJH7seB~z#W_OE%&QNm3>*{^q<m&E)Mb%ASkL(t*9Z4Dc0&NvJ+4#bkY43NVMinC%
zoDI+6zyBm%;p(n&3F8EcCzntC)Bq=D)u+k$yYka<A{h1$e;O}w7Zs8n{Qghlor~zo
zF&Szl(dByDcTL!s8LIiQsDbOS@DphMy<Oc?)fy>W4d>=>&@9eORnh9p6U3!68G2D4
z;NB81Oa9;v(wb|Y+p%`cMu!Y=FFi?DpUu*iIn)v0v$QcS{alv1n3p_Mcr-0OE;C=8
z_b!>YvOY7>VP;MmYU5{rrjM<}X7%&kM7NTR?m}I+(&XdUeU`5hJlEt{?n<S6Wkg_n
z=RHb*X^(@}|NL1}$bCaw#IJU9{69Y{1!9Wfm)-}4?C=1?(u>J4Kr28P_j|=>eUZCj
zt~sWQu9PD3&q(ms8HCM8B@N#3epz>jU)Xpt@K<*W{%VM*rdyk0%LY5bCOjKI<c#Qc
z3*MUL5Md=>{Yy>CuPY-gia@P`UyU@}Ad^Xf>Ns~)ovH868Xyd^%T#jv!{P#FD?vF+
zHSjwFS}~T09}3iI+)Z~{T*r;l?&C%f6#fhG-?+_$i*c|UT1|bg@--K=Q`RNH)EGqx
zF~Kw1Z&po;fmXpvFsU$z1fU*@`ils5>Fxa1i?*0<CB_TJ2fYGc0yCE8kfZ!RE{=C9
zNNZWTqr|^tc&Y+a4`AMqiN1Q$M7!TCzp?MWg*|70zcV#$`mb@wc;*1@LHcLd*LDvx
zLG=uwks*VtuTx{mGr|QUoVFVWLmxz9L;GkHb>5)-fc>jXWma7?965<?r@^zdi4PYw
z2y+v!7rZk&#|xfH1AqLlYLPpYANgyX(mi+B<h}z1;`$=U=AlQI@!X}yQUHbsy3Ltt
zw6h++LSOa9OCD^IOS~(5=e_(NE|rSh&L=+4aKbrLH|jWndbyY6o@L5eM2Bo|RNbKb
znXVtQ(pM~*eYRH2P=r87f`UeWK;cv$*M@emYV$O8WM$}=Xsvb3{Y@)^RxHYe7QF*#
zT<wd<xX}!y1K^X6vHG~fLA(z4GP}eQr-Dvx7MS$%{?B8b?)V7eHo10?2WRQY?5%qI
z{d6$$&4otwJ?fK?pc&HGu4ctry#<-Ppmca7K0noh<P9wyTcBRulgbUjmQ>Kq2BO$h
zrPi!wVmf?>I($bAvrv~?SkWT*i+oXhCcK)ZcolfFs_h&s^+jDjpf|Zl(L#~oV0spY
zeXneX`ffNHvA5|s)VMt+-=UV{Ucpk0cE0zE7zgeu_(t4@^kp#k`~!7*N@r1W!gp#N
zNbd5h)F-lhp)gVUj*s;j=NKRYvtMYG?Ep42c>5c^-3=tq$N%MvT*2QTye2kpwi(%c
z|K{<B1T}M~L4+a*G!V`TE~6HN;BnI|U%OWX>?ZZsia5goL$GC*D4ZAHY|QFh+-S_-
zY@Br<Yjl?ZKq)S*pfTk%3V5Eo`E8eHCh+1@0$~K*d^DNw^J7oPN6@h{K8pYGa-O<x
zHD;{d7dw>CCU*d39$2U%g5SZLzD#!Z?O1{lFNV<hDHnddvcb^rr>0|p_!ys=g%EGO
z`5`#CNi|xv3<lF_x#ht96tthsOoeqN>d6iLzG!1RVirCwCv${M;?&GT9vef4+Z`>&
zV3Q>u+OOV+CO{BPYvKui@yiU6JDrz(HF=_Y9I3hGaRd)q<>L&q&!Vt#Q~U6w%9j0m
zeax*ny3}<(e$`hg&F-kVKt8bg(sA1E?dD0bfFdolFehG+{DT9l@FmsTkQT-=yM%QM
z#zv{s$UK@%YEA?*_cPb#t$o1b`0u~cNQF9}c0TfJb-cT&4hX;+W@GiTa@)d^30p04
z8E^U8mXF!5KwOVsyu%Cy3f|efdEELf-1-xCuvj=)9P?*(utRw0ju`&!uhW6cCj~0R
zIV@N7Dx#loUh-gLYS^x^Kes{ylwK5Xo}Yzz+dwLOQ5&gVb8*6K>Fe=S9Hq~rF=a4h
zDykG@#d#W|(c-5MEGd_&r)<xASv;*sM%uLJ7M!y6=IYQcCgDnIAt_+7KCCX-)Da;)
zga1=Wu*xkl4Mq+VZHmW+SDSOFomi?38cOiK@6gm0Um=&<;-~a-hgrr?i9fwwvm{H)
zy>HI~=bTx&?O7jx=*k2qNMtk?NAe=F?4D+(1RId=rdznZeE@62ES1U|SQ#bE6rpyw
zfR~|yofvfZ&pwxDQpA{{Vy-;gVqExmrfk(}ZdbOplBo}yDq?I#p`$i#pU9GY&}Nh-
zkGoPfJk<$bK8ti)o}Ao33s%>&Fw0cf*U3hB{o|1`N@u6fep`=VQfylDlgc+5pNvhO
zkleZnjEZHqT%NOE6Ob&_S!^G6>7bANLWX-3U9&oOsg8H8G^mK6ro+Y4Ha30nb7TEU
zetbSphm!}^WJmEtn|sY!rInb1J>vF}eDg`J<&AXN&YJ+q5MM9{lgWoB2<5e7;e1l%
zOBQQ>{E4|2$t*O!1;q5kPSV0WqFVd@DjI?GJ@fD(Ng$~tdnYQ#nU96<WGQ;V%WPf4
z7vKZ{63w`aUATZK6hzuFInMtItAeyaNUmv6NVPmi53iu(k-IP^rSztUo2AXoUC{^c
zBU=>rTsRwlN4&C~{Lydjx8Ad}g6-maNW_7iho0C;ktsS2s8?vl5l`#{EKZQX?1stt
zX{<;YOY8Ol;kXD1TS%>J)~$mOW_Ngk@A`I%6BUsZyJ1>DcUCi$v<TWWSE|?z??YIy
zIMNp;<>yAP-4AqaUM5jw5{6<07dProqX6_xMPtY4dF<_eXNh7jIj~o;mmb)Q7^BDC
zxxr{sCcJG@y2)YhPIABe;SgW6CS702$6mEa+>50TyZMDz(_}m8ft@Vi7ymE*v8$Pp
zJIR5aCS|-$u@lNLHqA-?#MLbRA6I7@;QiZOs+GNCOUJ}}cYflNGf-))dN{FPJXX^~
zwAp7$uqLo8ef;fzPswBQ75zxjk!q7tjf&=QT7^hhy$tWpZ_zaYZs~?=SLqhMCh+_J
zp5;Uk9p=dz&(yBQa7%x)#-?wiqRYjLgd{|EzngC1Re*@#cxo)*cB@!z^UUmMgb=JA
zSzXuSMfF))#@~PS8?)wtQNJ<qMX$GLQD-q5XxkBz-c+YP$6#K^`1DOAccZXYn*>!T
ziu}&h_aJlxK(g6%`~&@U_4D_92j9J>EvN$tk>WwRvKpbw3cvLU{c3LYWQRDS68M~3
zTZqTbMpPDVX4<CXo`*@h3f_<}gs@_Y**GYF5y^jdnJsn06JiZrnnI`?+A(WmH>Df7
zlK`PyyMxMeS~rc?rq(w(77@;JM)OT(YW|t*KTbZG?hsu|QAyT@>61^wjl8O9Gf8XR
zbixO!fpa}AHRVHSD-R?IKCe~Z3!I!B642N>e(v|ll`H@%9A>~*s4qg3Ah$on#{6^$
zW<n6-LtCgwD)xgA={msEdcgdn6BGOht}vupQarv*Kqfzb;(M*rZ6$XFpN$Z=@`1Jq
z_b`vN{UJam+bVplR?eAosO*McSbePp&z@!SioFJAkXzMAjTyO~iBGmWw!+@9#-@vq
z7*zj%_75ezV9k!^t+xRzU~=anVL0K!3?RO&_=0#q|0z(3KAJqo3ViHk+pwSHZc+x~
z)_&5jBzT=eaI0$3Dk`sJzYG37q|@&E$KvU26NE*7ItP=*Cc?--4_07LklxFMRF7=M
zEU3vE-5KXcy62o{fdx3F>vg^ZSj}5-d+-%M)D_%#7($nu1O&;{*m)2;xjF<?#qIYl
z$k7MFTDhMWs9ALclRFDRDi{_0{P`aeXg~k2AM^|M3eit=d83jAKsRDBMr+dGn?V0Y
z-A3idi0@U8h;DDyhNU2U-jZF$3K<B{#l9CvIbwX(Ba}V1f#{^?Ge3bh@=egYYzgnY
zmN0g&K=B(%Zolx1eh_(|lz;JBT4LYeIBzsVqSJ&ct?9`15*QH}&TgmCo5ufeEya;W
z4x}-jnGK$~+PEckR;qZ;`&Fseuj^JR&Ecy;gsEGJTc(OTWUE4;r~^8iDHVrmF2_?;
znbtP5qO5FetB8D6$f4yaseH#j>u5Ru$A88dOR~#Z>NaSO09}y;80Gf@jB=c?`LzsJ
z89X82D)SJP6v~$jnOt*;QCdHjSO05L__U^a5;3P79`Aa-{$Cl+`trbxo(;gv4n5;?
zem_#_Dj(g$@J&N_%MnW#ct<d1{q$~hp2F^fCbYWth9(r`Zh8axH||QVA)ElqOrO`w
z?G6UYn7l#qMAuX-F%-ndo1+03klnq1L2k=<GZ<4JT`(Bl=_qNV3Gm*dJl!JkruIE~
zy3+TM&Iw`wwZ4nuFK;uicJ_~^c%i>mmuNAvN!#dnDT><OjMwsgKc*%E4x64_-*&2U
zy2w+ssRCt|j+MIv?}sUwRPZN$%p8xXE3KG7$4y7Z))sw>{IYI3#RD0c+?bFpZl~U0
zgrCI>s8+&HmfM8qV%4R!^_9Nffk;P$kkJszHj;zz^(1$WKt1&WUStzkWi8G1CX?%d
z8LKOJ?@yN_lM#L$P0~don=-eK_x!squF_U91g=!xfCMMFs#aG(L#$#d>FQcO<mahb
zw@x(^eIWHjE$;rk5u{Rx)n>d+fXv_Vvs&ghv#1|%)e?Tw&&d&e47}`K8)X#MmH*Sv
znj8UU#;8}h?!00T==A}HQev5pqHA?VNozmUkq5{eQ=iKS`~vr%sm?t#d~F237U7|{
zkY_cNyOx=)N!2FT+6wQUldKmYLX-PJ(we-skIZM;sW*yfwfn+ci}Y5M8)<(>TqmR`
zu}WH1c+VV@2`Ht7Gy_1GU4vrvf{KX@vXc=qQe>QbR$K?&K}fRZ{r?G7vJ7jJ+jWO`
z&pC8jzLr1#AG|mvZxKe(>fO^Ev9@!NE3ogU1@@zKJ%Y|OTbrA24<ytC^E8?;7QfJf
zq_@A5hN}#&aR}&K*V-EIo>LgDm8IOc&>v_=jVRhR8P&>!tWGw)Nr@?MncP}7x63fM
zT_$B|SwM`D^K1SmE~0E+DVu;O_yX=d;Nl1VC*AoiG9s96bhMI|3JTbbY*&-}E~D<E
z%QzTJ!j{+^+Pb>B`hYJOv2Z`!WKy2O@+PoVS?y@AM~=MP-Z?dwxy8{F7@B^3gpQH3
z52+-CeSoc_d-pdDD$mST0rEM*m;N_K<(`yk_y||CV#og(9}mROWwAMs^Q!+M4AjSa
z{+pz6M<7wdkyR#I#hebrFsU-#7!2w2r~j)KGoa4Z|BiFIIcFXaP^OuyM2A~ttr7Mf
z#-+swi<*jrYy^|LiYctAT4e4wt2!>*))QS<m*(Gpn2y}a6VL-UkXU3$RR29o-7ICw
zc5&xab@5`D^9b}`M(sEj-61w^usRZ%Evd{5QRiBx(=#RZ;*RzVW<a7Cse2*0j2aH)
ztbA|CB@bRhp?H`m8i=BjNJl!%il_Kzeo1$xYD2PO${NI73;c;!F(w`Nx2zhP+hT{8
zr;Oo#R8ff0CCjz!s;!|pTrH3tUI&!usBfvsj%A_UI8xLs?LcU{ccEUtOMxgcGstQR
z1>8^=yq1fBI;zY*1yWP6NW(&Y!qp}%HzbaUMx-2mja-jG%{m<{H!=UZcG4Q8-x9BP
zBv_O|H2?Nw@9fi=ky)#Q<*-a{UDcpW90xroh~HqZ2YT^(%s6+-eQfG8;)|J4h{!j?
zBk1^#ug8t<_D)dbW;zySmomccG;}qpy8bh@i>;4t9&V`aXrwtmTX)HIZH2Ka(JJy|
zQTDUGAXhN;DT16~OEp!g1<t@ESg8@3qyY9v5oFAkwX`@1enS95Q`4H0%JLZB9)-2X
zGX@0SyyXG~`d_t`(pZuEE{~ehY-cHg2Y^&Aj}}R)Bm@b#BD_K6%NkAq#KJd%;=tFD
z7<ylyM2g%sw1(y%g&J!!UjNc5Ci#>|H(W=VE0+AZ52bKtJa>pl;cUG552YSCR0aiY
zB`l{BsYyyo_QTVD)g+}Q`$Zelu7B|Y?ht?ij$MP7Vuy&xJ<kwwPb4AvA|gUsdX3Zb
z5v7Th*G!`BDsS$4v&16griv7~C<G9I<Y`2nHN3BVwJ0!5?h+GjCI@64%1(+oyd+52
zvOyp`cA;qHg=N@aqUU-&r6QV5ou0cyG^P5!8j82^5Jf0lTKCNenH54zfu#FpkT9V>
zf@CHNr7OabXSvN3LThJ9@qDSc4s}zPYlv(Exy=+J!dWrSa>7})=W`Lwpem1COf#Gr
z$!a!@itvy+l&xKk00oS_T>RDFmqwftVhX3d_nX2)F-7;7!kMMD!W1rk%M>1l!nK&~
zg{E+>erpIiVaD;SEfYy~-4@xF4FITyOB#^hd&{M}>$b$;%6L<_w6vVrUg@Un@Q|6y
zBzThnDm}=(@(+Cx7v&kPxp?Ult1KaBmTExnw1tF+k)sN{WZGF3O%z)~T0#`)$(ZHQ
zAwm&Olx>^w4MeonN#Xx7fiL8VuB7bHU$ym0TjL|+)Ciof9TP*+;))PRNH6X}^^Dx5
zpuuAmPKxl~eKRC8C0G^-%?Xu&CPe7Z=%j~HZ&*i*E0`zv^b4~fZIs~crXapcgmOPX
zP30K`1LeNEMTj)LH52Kg5J_IH!q?R?-@11I`TM@E#rB@$5B`RN+XJ5c9L<d#T^uPE
zM}ozXaCH*QzuNP6PFS2+37zbW{mp8)`h?YJ39iQNSPewlrP2+g>gI~DcNUniB9&XE
z=*2w>cASTWsIHTW*qL_WOp>qwE-b)U6Xw5yizw$3mT_1Gmg0~3?r}-Ou`6pvUG-iH
zJn;GNfCs({@$gGKoFS+YBPKIZXqP!;omUcrMh=@u7QgybAWtC{ge@5SfuOs->WP-p
z)uL%l9#r@>i0+%=IVPoMqceoLT5Sllv3sLiNZTT1Tc~h^uMNm?w$y^Ee)F_LIa{_e
zEysDqV+^6=oYB~il}50DE#ekz!VTon<<Vjeb=oBz5+yRrCCDr{NxI9uxhJqYQG2dN
zA_T7PsN%%n4d+>0rBzC*FM2pJHbL(al*_&TQms^tQo=a1;req{iRjNY5`p(fuxVc1
z#!B2?e*&k=Ya|(?JPD6LSc`zLDkS(nNGW)yC0+_I#G3CsKZnps6$rtsp^?kvBIz=Y
zJdZY)l(^#waE=WmA9eKaRB|9C3?gG8_w1`bbSpW@UWs&Qi<EMb8J|~67-95YBCHo5
zdF~FSi^G@6#fL6>Fx@W_&sU*T=j^74#N6WJK<G*QCf`j>^!V*9RQZut{0;)Dodh!$
zNb0=jI7np<&d*1wfeXl|_$V-bQ3(rInQ$92O<=84bltRq-4(G-oIvrYwg8aMw7VSN
zB~_@G0EbTJR#tF1)EOARb{`lQW{NBQ)ziY^@O!U#Sulc2Pwo;D*`!a{>1$RR_UhlQ
zR665IZZ}03i#=pK=6x!9{0{E6kdgzE0}ul@*!TY#M6G2(R4*YCc$zYjJ=eo%xe{RK
z(a;^D=ZK+uZkN%V2`k^d5&HZGf~m+<Di?*AL~G4Z4>1q0t{OVC^egcOA2?H4Q6SF|
z8Lh}|L1F81NeC(>;Kd#ruAlg|I|9|y8fS<IRgT4@q?s2^J)A(K?}bwXz0>nkI8BJF
zgN$nMg-s}iJ2A<xQt7Wc8pNBgbfVg$XM&unrzFo3i<@B1+m}#>qavS<*O`nh^YoWz
z$2%Mu5|mE^WAxhmV0J7O7sWN%E75G8yX5q{2zKp2WKgzvD?N8BXjg4%7kPmm^Hx;*
zl$X;YJC)qh&H=nvDln!r@A|)pk3gu!3}x<<m{odw5)>B9&C-$^$NMD4m@oPVf{->d
z4E>olg!4W55p;2GAyUO^fcZSR)Ul{u|C7klBe%HP#N|19#$RDXc9El7Z1|1r10;TV
zPDIdh@DEN^cMjgwEBXMS`4`ptDnECns-P!3Y@5EvKqM!ps=L0#iyM;#bq|&;%I?f8
z{jko`7-7q8&9$kyMP^I#{xq5uWASiZOC4fIljRNHv15u#iYyt$!&K3LN=(kkdp~6A
z(^nwKxv=(Dq?+f(s>Gg0$Ivn-ig*zuYavV?nDNkE?9X%Hc{hm*`CR6Ry+iO5nj=pC
z{!;xiIcg`1U#s#E4$*j|wz0_lXu!V1OD#bPmeykXoEAc~6G<uJ_#3VdgTxWy{p`zE
zIkFtVnq?x;^l`lZ47}?m4w`*m8gwVI^KGLg;n??^AwTy01~wbtd)NHhes%4y-<Mm0
z-x1=1WgUoq=<>k8YZw{();{pYXl2bIj>U03pD1ZYJh1q+$gL^PUqsfKUw}+22s(hG
zj4gehq)3`M*<F-sV5)ks(w-0{34I)T`q-wqi~QxK`H{u4U`Z`AQ{^TZ1!tXSO(e}I
zFGOzWy8`}7TJ^qT?Su_oleey8?v{oonE9FcLyhSzrCnEq;Aw5=yuqmbP5bHz_tTW^
zW-SVr1(0`fd7<ocXsm^vtC2LV3Tb1^#ew{`C|KVDq9ta2S0glLfJ*j}D{*s+?zK#(
z(gj^<p$pEpoe?X$@+1!^r$`p2dy4PGFYr3M#*xYOqK?*FL>4`dPoQd#aV#AdC4V7k
zN{OYmX+;W>9wPD7j-^wMtT59A>Unw`O`jt_nq1d$g}aNvOyM`6nZwENRB0nC?tPh#
zK=V)Kb~S2K9?2P&tPKg(zl_xS!}B}v%0ghdQXaQoNt0Ea)h9!b{!srDF{o7e=W55+
z41ezPtRGADo_`fkt>^Gqni3;_Mo98LI<*MhwR39K_s{w~C#F!HXIvqjG7bR)f7{z;
z1ST+s>9G%VMHfL^_e{vZ@8hFrqNj8sP4iR~(nO_v*Zq3+N+dq-E)}3^p2`gB;$qYL
z2RvPcH2X+#6x~X>M&ITyJSTGKbdS+U<2>iag5R(tj@-x7%R~pwMoHc5^X(@9M9quP
zkr_+QEHy%rQZQ$SM>>w?dX`M2{Z2&dLiD*=$gJU{wg?1Mp0<Cd|4F>Q$yohUD$>r_
z4V%iy&klbGiG7{(uQ&&M(yLp|@?AAC#ac<deLqPrLC8sZkzzeR@hPvgzy&K->h%Eq
z?GydnI$b1;lhfNgam#Gmki^=93ZpdpWobk0iA>LdEE??@SA&UE*)dbu<LTXs7=IcW
zx32o|xL$noe2NKj`pIE-CgzKHR>m|nT3Vdn$c_+cUJ$H9bZ?7!)iW^x!gciK!S$sI
zshLjn0=k|RKYg5)@@(_nyl!YY++-RfT+wvKYT=q1eT`^i9(&IZF_aD)=D~3VFXuRO
z{4>sI*Zj*>(_;tXpF#QkYv6v*FFvPPomEEOQxCUlk>sP#DP2Tl9ishBAEeRD-;ec|
zoiU%!im?@vNog3a{*@+0oJ`~qJKE2%Y(g<!a64vWkpgC0sNLEeUi=d}_eFfa22e0O
zg^-Dft~NT(0;6zle!-k*U2CpZ=>5daX<SLE@i3PDY#}Z4Y&6nzkEV#`A9-UOoliZL
zYFbqg5M=FhNPR&HP8*HR?+Szv=|%Fe#u$|!|BGa8I3R14Pa<Gw=RB~x#qq3Et<U2#
zf-F9-p_!h_B0AHve-fSId8~+z^Bm8jTOmym0cQ2P{lK{f)awZ_RHhh|F+;4OeSc}l
z?DKW|t=pTa`e&e9@oI02p)0RPc2`7888WdTRy?;GX`(ac^AvvK<wZ5fOYIrAF8&#K
z#kF&;E<KaAJ`IH`zz~G2Z6f4nPrMSRjdrBhE86skM{*rvybpI}OqH&<D~-nCd$*-{
zwR#vhKgZOr1v1G)Ma_4}(x^r_%W@8qW14g}8Of>il%9dZ?=qauw~cK)(S8D<zZR$P
zqvq7;&#OIA1OW1}^LG^KMV2bRm2W>v^c~k0f1mls+$)(eb@k|Md+9Tn^Tb>l@0o6=
zN000)qHWY8&%(}os)TNf9L=29<dJKduZ2yPUrO^mZ)oTQm4uF4B`(M^hLF}u#sXxE
z&1VzfhVm5WQcWVucS=87;-9^mIS;s&{CpJ6Ah^*vhhr}|h@P6tCORB#r>cnLlyzS#
zfKyw|T!ChV7*jLx+MPL~BZjW3LTYK9rukY_yVR~<z11A8w*Le8LRA*4z(Ep`jL7xJ
zy@^GLilYrmxR_7{odr9KHnI?mXK^V_$bK+hc8?wuD}--ZWfJyk-)L!-j<{!EXbv@>
zO(Mv^3T4UE0Z(TfO_IYekX~`hT!xo1q<j8qpxM=IFd>(aytN!6ppJVjMyCq5e_4c}
zF+FTHhV&cMl7|xWYYN$DxRY6R;?PEh1d-e;2$0f~nIS#m#h+%rDzY?E29Nb<r((vp
zmeN_CkK^daU62;RB+m36;O=29UP+@<_7$&=y*Qyg?VORSZc9FB?dpllJlU+Nr4|01
zb9z+mi5XfVEy-ajSz;wzLuD$KZLq#gQybBiIwmE~VLpvg{~0L|Uf>-_Sks}9oJX5L
zburMX5LA<NP`z4<>JSAi+tibofKAt#K=skW+q_Q<+^jJZTch+mmOzKb&de!r@K~lS
zjS-WtB55l=1G7J0N@sZfJ_XD^wv0A=Y7*()PNXja6(@^R$39@k;^sBR`4`n!kx;2P
z=8l{d=hDW;<!m*xX=T_s)om%Brjz!-ir}w+s?Pso=u2@b_4*Z`!NXHt;;%S2zrR_w
z)InKr1xw3*xpFvtc*0oL3L@1a4}|S1#>yHFf@7INu}Z@%bHG!PM7s)+v$$tk0T^1a
zz8jse4J_&m(PM+tS&m%KB1fFQ#GhcT2w{1n<QFPkYF;@U@OiE#(V0pV`0NPTU0K_z
zE$+!u<1AivnCAIv7R^gt+bpHAY9+Q|54f|?nXP8!Ik?kMNF}P$mj1zjXWCTOI+{M4
z&3dgM(mZG@&{D{~OjZ}(+wnwvHp?%J3+52lpd`rp)^yLBYKV_sExjvxF-e!c(77JO
z^L-|&XKH@JoQEdUg`US^sCFX5Dm56SAz2QhU2%#<ptK^J$5Gd;cAy9i(Waf1AdeW(
zeqhK}eAY~xsb@Q!_s+${5xLU-Fy3FWdj8{#iH`dsJ6joq<qye$#)!zsa)>ThNmFEL
zu~{;f`-HN1YKYW0O)*GKHm`CHvIAJmQ%D097Z&7RW55CAFCx~0q9#8t%C91Vt`SmV
z<?cs{>stAb4xVe#TuIB0k<cQR0(qWo%<55Gh3D=vdRDc1v$(FcAoDCO&O}+w`TPVV
zTj^J0-i<X>Q^BR)S&RZ9egQdAD6+u)A#PiN7djg`j*XS;N9rS&lAF^b%C{S3CQ=ta
zj2)CeALV)GTv_U9i`1}GZ95llP<!T2g&a5ter4rSSL$0(>=c@XQ5C1jGYn10gbH_C
zf+g9Do76(I8sUKN<wDKxj;8=`P@3Dy_^=;-Q!P?Vb8Wq0uOW5)YtL*eZ3#<RkuD$B
z{ODNc*=?l-9jPnQ7dRLQ8nvGwwwQ0VtCPGBR5g^rv|Ewf0tQ2NbczQF1ODdW3_p6X
zYeIX-<t7W!v)+WgRT4wWT0pG&{1uc&7TwV-LI{7`6wkAsSK<2fC<^GLIV>*AiRy(6
zAubky_iQe?4e2{THlxOT2a>T_@OeUe_>+wv>mko&L)qpKq~C|`w`u29rbPCr8GxH{
z>oloYq4{S}5%T1gV}~zEp()`qDRU?zt;2l6v$351VHPs&S{)1p-g3~^KnkQCNM_BJ
zA7M}eiX14U6q{I@NRSaDN1<`Fe2IZmIp!jbA{`w2p$dB6JRwM4I@Gk%(JO7!T%Iu0
z_=qO2S-tZ7BBH?~RpN#`mKZ2&i8mnU_2Ps+HV^UXT&U)LS&5^_elw5O>dC}vWv5D$
z=Rz<DnrowtroiS4+ZE$4J-4(5rtUIBuLKoEs$MJA)iU6oi7be^y0kt>f|7^SEPYF>
z9ljTI%UCz)pF_C{BeM1GXdY7y)`>(vf8*KF-##*XWU?iVvu=kx@4-;P0VNORKF(4=
zi8c~XDX(jFg0^vqvAI;`IkijrIY1Vq^fO^mQ-yLZMu{+QlC@HB_8!qq<b-&_B%tXn
zZK&G@9#vnF9i30K$n!9Vy#};s^O#DjwMr&bsY-1vFk~W8LsVI5ZV;9+TfVy+)j~w8
zQWoT_Y-r0y(aFQD5x@r-QgTZJkbxpL&K^5UQu7#RVPov9q?<jPQfRNIF_)^Gf)xD0
z-j0oem-~>#l82`BgO8?4TLiv}e0CMRk8L7s1(}Yn>eANaH;M|&(&uKWVL(4wO^KOp
zsYMQ3O_2FBnOXt}7=kR<7yvpe2>)U^EUGD<HVEf<O)W}+3FUOgP?bOA<*qyR+K}~e
z2uFCfr_v`pXQOEpSIlgV>@+$HTn)Qd{|mXT_I&eu23JqEkX0qBK@5fX1s?`roseLr
z)vaxl!!9-C$O9JFULma}<m<+F7cu^PadtWv0y;8EER4ian(1ceMWeEe8_L$o_OYl;
zh#;qgNQx@|-3e_NFSe$X?vJ~lo|Bcbs!MF%0ML1uz5A$btmfYg+Esl<RB1DV;^pb|
zG124gp4{0qUPo3#30D_ex0<6OQX*KrbFP6IpHc*(va}Jq67?FO2tEI@)5NUE_4E1S
zTBhMfy~qmtOaD5<)k6<!qh7)O!!IM3rRRa@avt*hWfD!uXF@5#F?}cW%3z7uf#{7{
zR`$P4!3f#9j=g2c@KTmqWF-d8OS3QReaSN=o4P$wV`-)$+O<@0Gxtge>GkAQ(dcS&
zKdW{&e)D|Ei2<Q_Vzfh-IGygd9O%MUCMzp@gT=9kE`6Q@+B70@>uyATXt8ZQivdRN
zx8!d%M{cgsrhVqQeHKk@!}pBUm>BsnO)gB9k#>7M?uNYOvX=Vd?E#;17=X-rgBq&W
z$;>wyC`))}MyP$U{^hOfSgC%EP&hX_zdAAwnUL}?@RWT^jokXx4OEe(6qMNYd9>A2
zG>&F@Hkn|kR%gN76wCyz8DxKWJWUM|YyV$MR~ypS6^8Gd+{7eJETNtGvNPt(B-cc(
znmCQ0)l_A%samGsM?|eP+G4j9)IUvF989|4I_Mc&VZw-%4rCJt{us>d&+JxE`$0P>
zTZOF*VM0OJ93AXAy5HxX%X{uU?>X;#-sgD^RRd_vzHFdUw&AB!?Au~0U^l`vX8?w$
zCEQK<+&Hg8-U5!5xQE!P`5djY<wgp7a~mNe47)4uR{+(2wyRu$G1vhro(*G%9C77*
z??g59&=&Vugn~CK=`>q&(!Xr`Bo(qm4JFv~28yy*<z%lxa-Uy1_Ev-|HojKv6}&}o
zUx-%Qj}18=m@<4G@r?FuHu{xhlr4KSg4g<R@+nsZWWV_ludlk00xkLwhja!hX!*wU
zM4XO)-Fe`#f~S--O=Hk{Q=|)i#PbdbVMj$dy~*|)dFtAPIAgDvOxJrnor0wHym14Q
zYCZ6w8;n%Z*9itgSucVPwdaC&N87IbeOS<Da9d7ejd=k7;qXXNUgeFsG~uvy=pM%_
zbEqqjp2(++Imhj&=&5;33G7y(wx}Os*W`D|N5<rSC?I5F#_<iLFH6-|ucNM!Ri!|J
z9+SC-t*=*1;cj2;1JsARW<TMCiB_fm1xSZGM<v|%=VTqjniz=hfIrSwUs{D02WSI&
ziw=z68Qh+TD}T^}g!ayg*jfRcrnWt;fPD6v>`Lp)X(bmp(d*5Vc}cy&qRUIB)lS*c
zz#g}sWtzxP!{25aSa93b9V2ToxkcYKXRJZER^gm~zC!3D@wCF;lsNKZp~1ClKF^uR
zX(vni$uRy!90#q`U$_*R7l%H!3Qjz#ah#k09!K<<fd5R-2?<>)nZ4DbQN<5T4`UE#
zhgP&hw%h)xB&Z_pdsxRLi>o;&d>fV2ElEf#<aw9;IJCHHJ}@i_AGp<=3BaB;BQ)=8
zCR@I2xx<KYBlhWkI&x&WY*5qxXo3$b+CtVru_%07=8F7J;KQ*Hl*j44p+)6RGK<?d
zo@}hjb_+W$V=;xEhSs7Jf~p?QrPr=mE|wuFm_jHrx?GlxQaX!!y{bFn4w<`ySJ8a;
zgU&71=A%d+8eC=b{cYlq2@nTCQbi-}*mDAnR8TL0&p>Vm-X!0$B5R@JruaMDQ3R*$
zqmmwgb-#07LALY42AjnI2-ERlY}zM$gFPeY!4|!k<-e4`Rktf?oUJus?D<_}X0J-f
z$7%xP(Scr_l4l}TT}pcN2YcK^l1ePR%#4309n2bqH@Zv7t_XHx>1MM5I>&S&93K2>
zqAHf+-ccE%27~KbLs@T(4vX?Z5vnGNbXV)@DuWo>DRwPHy&^u=3JaNG$!3VA*bfpc
zsjnsD33RReIYtXv!Ik?iE_=X1AnUFrt3!CklUWh%xhb?Fh0rfW3QL=Lc%T@ftDFSF
z61DKnJJ>DQdMy>`+s+rel`#^|*ltRK@+IQUeHTgWSG2KEl*-jMZ9?3izz1aArDS8O
zI_kT12A^WI4lCd1K`Lf*brfftK`LT<b?Ew;8F`?wp2DpFFHQpW7{0h?-R7<XETVE$
zC(LLX7qW08t7?YFWcYhOxj~djW;sp5kAqOmOIvQ-QZ{|81!|8ASyp<Qj0NHa^Iy{l
k8mCNwe}-}Ln4Xh!$;YEnIycxvJv~<0GMkFpzPnZb0W2_9eE<Le

diff --git a/zork1freq.xzap b/zork1freq.xzap
new file mode 100644
index 0000000..0d2ab6f
--- /dev/null
+++ b/zork1freq.xzap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;1572	786
+	.FSTR FSTR?2,"The "	;1245	415
+	.FSTR FSTR?3,"You "	;735	245
+	.FSTR FSTR?4,", "	;529	529
+	.FSTR FSTR?5,"your "	;474	158
+	.FSTR FSTR?6,"is "	;466	466
+	.FSTR FSTR?7,"and "	;456	228
+	.FSTR FSTR?8,"you "	;412	206
+	.FSTR FSTR?9,"There "	;395	79
+	.FSTR FSTR?10,"can't "	;360	72
+	.FSTR FSTR?11,"of "	;325	325
+	.FSTR FSTR?12,"to "	;323	323
+	.FSTR FSTR?13,". "	;299	299
+	.FSTR FSTR?14,"with "	;294	98
+	.FSTR FSTR?15,"are "	;272	136
+	.FSTR FSTR?16,"that "	;258	86
+	.FSTR FSTR?17,"have "	;231	77
+	.FSTR FSTR?18,"which "	;224	56
+	.FSTR FSTR?19,"This "	;216	54
+	.FSTR FSTR?20,"from "	;204	68
+	.FSTR FSTR?21,"large "	;204	51
+	.FSTR FSTR?22,"through "	;180	30
+	.FSTR FSTR?23,"appears "	;180	30
+	.FSTR FSTR?24,"in "	;175	175
+	.FSTR FSTR?25,"here"	;162	81
+	.FSTR FSTR?26,"water "	;136	34
+	.FSTR FSTR?27,"room "	;135	45
+	.FSTR FSTR?28,"Cyclops "	;133	19
+	.FSTR FSTR?29,"leading "	;132	22
+	.FSTR FSTR?30,"narrow "	;130	26
+	.FSTR FSTR?31,"cannot "	;130	26
+	.FSTR FSTR?32,"small "	;128	32
+	.FSTR FSTR?33,"into "	;126	42
+	.FSTR FSTR?34,"cyclops "	;114	19
+	.FSTR FSTR?35,"his "	;112	56
+	.FSTR FSTR?36,"thief "	;112	28
+	.FSTR FSTR?37,"It "	;110	55
+	.FSTR FSTR?38,"south "	;108	27
+	.FSTR FSTR?39,"seems "	;108	27
+	.FSTR FSTR?40,"already "	;108	18
+	.FSTR FSTR?41,"don't "	;105	21
+	.FSTR FSTR?42,"be "	;102	102
+	.FSTR FSTR?43,"but "	;100	50
+	.FSTR FSTR?44,"would "	;96	24
+	.FSTR FSTR?45,"Your "	;96	24
+	.FSTR FSTR?46,"there "	;92	23
+	.FSTR FSTR?47,"can "	;90	45
+	.FSTR FSTR?48,"this "	;90	30
+	.FSTR FSTR?49,"It's "	;90	18
+	.FSTR FSTR?50,"staircase "	;88	11
+	.FSTR FSTR?51,"on "	;86	86
+	.FSTR FSTR?52,"for "	;84	42
+	.FSTR FSTR?53,"west "	;84	28
+	.FSTR FSTR?54,"east "	;84	28
+	.FSTR FSTR?55,"north "	;84	21
+	.FSTR FSTR?56,"not "	;82	41
+	.FSTR FSTR?57,"troll "	;80	20
+	.FSTR FSTR?58,"nothing "	;78	13
+	.FSTR FSTR?59,"looking "	;78	13
+	.FSTR FSTR?60,"I "	;72	72
+	.FSTR FSTR?61,"path "	;72	24
+	.FSTR FSTR?62,"closed"	;72	18
+	.FSTR FSTR?63,"candles "	;72	12
+	.FSTR FSTR?64,"Frigid "	;72	12
+	.FSTR FSTR?65,"won't "	;70	14
+	.FSTR FSTR?66,"probably "	;70	10
+	.FSTR FSTR?67,"here "	;69	23
+	.FSTR FSTR?68,"Room"	;69	23
+	.FSTR FSTR?69,"about "	;68	17
+	.FSTR FSTR?70,"A "	;66	66
+	.FSTR FSTR?71,"too "	;66	33
+	.FSTR FSTR?72,"that"	;66	33
+	.FSTR FSTR?73,"room"	;66	33
+	.FSTR FSTR?74,"door "	;66	22
+	.FSTR FSTR?75,"grating "	;66	11
+	.FSTR FSTR?76,"ground "	;65	13
+	.FSTR FSTR?77,"out "	;64	32
+	.FSTR FSTR?78,"other "	;64	16
+	.FSTR FSTR?79,"wall "	;63	21
+	.FSTR FSTR?80,"passages "	;63	9
+	.FSTR FSTR?81,"impossible "	;63	7
+	.FSTR FSTR?82,"has "	;62	31
+	.FSTR FSTR?83,"over "	;60	20
+	.FSTR FSTR?84,"level "	;60	15
+	.FSTR FSTR?85,"knocks "	;60	12
+	.FSTR FSTR?86,"before "	;60	12
+	.FSTR FSTR?87,"passage "	;60	10
+	.FSTR FSTR?88,"Fortunately"	;60	6
+	.FSTR FSTR?89,"Unfortunately"	;60	5
+	.FSTR FSTR?90,"it "	;59	59
+	.FSTR FSTR?91,"an "	;56	56
+	.FSTR FSTR?92,"think "	;56	14
+	.FSTR FSTR?93,"river "	;56	14
+	.FSTR FSTR?94,"troll's "	;56	8
+	.FSTR FSTR?95,"doesn't "	;56	8
+	.FSTR FSTR?96,"You're "	;56	8
+
+
+;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