From bb23b34fe64e4bdb6479f4f36313382c42941c65 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 30 Apr 2019 08:40:42 +0200
Subject: [PATCH] More files.

---
 <clr>/parse-definitions.mud.1 | 493 ++++++++++++++++++++++++++++++++++
 <mdl.comp>/getord.mud.1       | 244 +++++++++++++++++
 <mdl>/m104uni.save.1          | Bin 0 -> 46073 bytes
 <mdllib>/lsrtns.mud.20        | Bin 0 -> 6575 bytes
 <mimc.mim>/em.mud.1           |  17 ++
 5 files changed, 754 insertions(+)
 create mode 100644 <clr>/parse-definitions.mud.1
 create mode 100644 <mdl.comp>/getord.mud.1
 create mode 100644 <mdl>/m104uni.save.1
 create mode 100644 <mdllib>/lsrtns.mud.20
 create mode 100644 <mimc.mim>/em.mud.1

diff --git a/<clr>/parse-definitions.mud.1 b/<clr>/parse-definitions.mud.1
new file mode 100644
index 0000000..a41af95
--- /dev/null
+++ b/<clr>/parse-definitions.mud.1
@@ -0,0 +1,493 @@
+
+<PACKAGE "PARSE-DEFINITIONS">
+
+"Definitions of types and offsets appropriate for trees built by ADAPLEX
+ parser"
+
+<ENTRY PRETTY
+       NOT-PRETTY
+       USETYPE
+       FOR-LOOP
+       ITERATOR
+       FOR-BODY
+       ITERATION
+       LOOP-CONTROL
+       LOOP-IDENTIFIER
+       LOOP-SET-EXPRESSION
+       LOOP-PREDICATE
+       LOOP-ORDER
+       LOOP-ORDER-FUNCTION
+       RETRIEVE
+       RETRIEVE-SET
+       RETRIEVE-WORKSPACE
+       RETRIEVE-TARGET-LIST
+       PRINTYPE
+       IFTYPE
+       CLAUSE
+       CLAUSE-PREDICATE
+       CLAUSE-LIST-OF-COMMANDS
+       SETTYPE
+       FCN
+       FCN-NAME
+       FCN-ARGUMENT
+       RESTRICTION
+       RESTRICT-ID
+       RESTRICT-SET
+       RESTRICT-PRED
+       OPERATOR
+       OP-NAME
+       OP-OP1
+       OP-OP2
+       QUANTIFIER
+       QUANT-TYPE
+       QUANT-NUM
+       QUANT-ID
+       QUANT-SET
+       QUANT-PRED
+       QUANT-TEST
+       EXISTS
+       EXISTS-TYPE
+       EXISTS-SET
+       AGGREGATE
+       AGG-NAME
+       AGG-FCN
+       AGG-SET
+       AGG-OVER
+       IDENTIFIER
+       ID-NAME
+       ID-TYPE
+       ID-OTHER
+       VIRTUAL
+       ENTITY-DEF-EXTENT
+       ENTITY-DEF-VIRTUAL?
+       SUPERTYPE
+       COTYPE
+       FCN-DFN
+       FCN-DFN-NAME
+       FCN-DFN-FORMAT
+       EXTENT
+       EXTENT-NAME
+       EXTENT-EMAP
+       EXTENT-FMAP
+       JOIN
+       PROJECT
+       PROJECT-MAPLIST
+       PROJECT-FCNLIST
+       FCNMAP
+       FCNMAP-NAME
+       FCNMAP-SETEXP
+       ENTITY-DEF
+       ENTITY-DEF-NAME
+       ENTITY-DEF-FCN-LIST
+       ENTITY-DEF-SUPERTYPES
+       ENTITY-DEF-COTYPES>
+
+""
+
+"Define MSETG to SETG an atom and make it manifest as well"
+
+<DEFINE MSETG (ATOM VAL) <SETG .ATOM .VAL> <MANIFEST .ATOM>>
+
+
+"INDENTATION and INDENT-AMT are used in pretty printing of ADAPLEX"
+
+<SET INDENTATION 0>
+
+<MSETG INDENT-AMT 8>
+
+"Define type for USE statement"
+
+<NEWTYPE USETYPE LIST>
+
+<DEFINE P-USETYPE (L) <IPRINC "USE ">
+	<PRINT-LIST .L>
+	<PRINC !\;>>
+
+<NEWTYPE FOR-LOOP VECTOR '<<PRIMTYPE VECTOR> ITERATION LIST>>
+
+"FOR loops have iteration spec and a list of commands"
+
+<MSETG ITERATOR <OFFSET 1 FOR-LOOP>>
+
+<MSETG FOR-BODY <OFFSET 2 FOR-LOOP>>
+
+"Function to print for loops nicely"
+
+<DEFINE PRINT-FOR (FL) 
+	#DECL ((FL) FOR-LOOP)
+	<IPRINT <ITERATOR .FL>>
+	<CRLF>
+	<SET INDENTATION <+ .INDENTATION ,INDENT-AMT>>
+	<PRINT-SEQ <FOR-BODY .FL>>
+	<IPRINC "END;">
+	<SET INDENTATION <- .INDENTATION ,INDENT-AMT>>>
+
+""
+"Type ITERATION specifies the range of a for loop."
+
+<NEWTYPE ITERATION
+	 VECTOR
+	 '<<PRIMTYPE VECTOR> <OR FALSE FIX>
+			     IDENTIFIER
+			     ANY
+			     ANY
+			     ATOM
+			     <OR IDENTIFIER FALSE>>>
+
+<MSETG LOOP-CONTROL <OFFSET 1 ITERATION>>
+
+<MSETG LOOP-IDENTIFIER <OFFSET 2 ITERATION>>
+
+<MSETG LOOP-SET-EXPRESSION <OFFSET 3 ITERATION>>
+
+<MSETG LOOP-PREDICATE <OFFSET 4 ITERATION>>
+
+<MSETG LOOP-ORDER <OFFSET 5 ITERATION>>
+
+<MSETG LOOP-ORDER-FUNCTION <OFFSET 6 ITERATION>>
+
+
+
+<DEFINE ITERATOR-PRINT (ITER) 
+	#DECL ((ITER) ITERATION)
+	<IPRINC "FOR ">
+	<COND (<LOOP-CONTROL .ITER>
+	       <PRINC "UP TO ">
+	       <PRIN1 <LOOP-CONTROL .ITER>>)
+	      (ELSE <PRINC "EACH">)>
+	<PRINC " ">
+	<PRIN1 <LOOP-IDENTIFIER .ITER>>
+	<PRINC " IN ">
+	<PRIN1 <LOOP-SET-EXPRESSION .ITER>>
+	<COND (<LOOP-PREDICATE .ITER>
+	       <PRINC " WHERE ">
+	       <PRIN1 <LOOP-PREDICATE .ITER>>)>
+	<COND (<N==? <LOOP-ORDER .ITER> RANDOM>
+	       <PRINC " IN ">
+	       <PRIN1 <LOOP-ORDER .ITER>>
+	       <PRINC " BY ">
+	       <PRIN1 <LOOP-ORDER-FUNCTION .ITER>>)>>
+
+"Type RETRIEVE is produced by a Retrieve statement in the language"
+
+<NEWTYPE RETRIEVE VECTOR '<<PRIMTYPE VECTOR> ANY IDENTIFIER LIST>>
+
+<MSETG RETRIEVE-SET <OFFSET 1 RETRIEVE>>
+
+<MSETG RETRIEVE-WORKSPACE <OFFSET 2 RETRIEVE>>
+
+<MSETG RETRIEVE-TARGET-LIST <OFFSET 3 RETRIEVE>>
+
+<DEFINE PRINT-RETRIEVE (RETRV) #DECL ((RETRV) RETRIEVE)
+	<IPRINC "RETRIEVE ">
+	<PRIN1 <RETRIEVE-SET .RETRV>>
+	<PRINC " INTO ">
+	<PRIN1 <RETRIEVE-WORKSPACE .RETRV>>
+	<PRINC " ">
+	<PRINT-LIST <RETRIEVE-TARGET-LIST .RETRV>>
+	<PRINC ";">>
+
+""
+"Type PRINTYPE is produced for a PRINT command"
+
+<NEWTYPE PRINTYPE LIST>
+
+<DEFINE PRINT-PRINT (L)
+	<IPRINC "PRINT ">
+	<PRINT-LIST .L>>
+
+"Various kinds of IFs become IFTYPE.  IFTYPE is a list of CLAUSEs.  Each
+ clause has a predicate and a list of things to do on truth."
+
+<NEWTYPE IFTYPE LIST>
+
+<DEFINE IFTYPE-PRINT (L "AUX" (FIRST T)) 
+	#DECL ((L) IFTYPE)
+	<MAPF <>
+	      <FUNCTION (C) 
+		      #DECL ((C) CLAUSE)
+		      <COND (<==? <CLAUSE-PREDICATE .C> ELSE> <IPRINC "ELSE ">)
+			    (ELSE
+			     <COND (.FIRST <IPRINC "IF ">)
+				   (ELSE <IPRINC "ELSEIF ">)>
+			     <PRIN1 <CLAUSE-PREDICATE .C>>
+			     <PRINC " THEN ">)>
+		      <CRLF>
+		      <SET INDENTATION <+ .INDENTATION ,INDENT-AMT>>
+		      <PRINT-SEQ <CLAUSE-LIST-OF-COMMANDS .C>>
+		      <SET INDENTATION <- .INDENTATION ,INDENT-AMT>>
+		      <SET FIRST <>>>
+	      .L>
+	<IPRINC "END IF">>
+
+<NEWTYPE CLAUSE VECTOR '<<PRIMTYPE VECTOR> ANY LIST>>
+
+<MSETG CLAUSE-PREDICATE <OFFSET 1 CLAUSE>>
+
+<MSETG CLAUSE-LIST-OF-COMMANDS <OFFSET 2 CLAUSE>>
+
+""
+
+"Explicit sets become lists of the explicit objects in the set"
+
+<NEWTYPE SETTYPE LIST>
+
+<DEFINE SET-PRINT (L) <PRINT-LIST .L>>
+
+"Type FCN is for entity function calls"
+
+<NEWTYPE FCN VECTOR '<<PRIMTYPE VECTOR> IDENTIFIER ANY>>
+
+<MSETG FCN-NAME <OFFSET 1 FCN>>
+
+<MSETG FCN-ARGUMENT <OFFSET 2 FCN>>
+
+<DEFINE FCN-PRINT (FC) #DECL ((FC) FCN)
+	<PRIN1 <FCN-NAME .FC>>
+	<PRINC " (">
+	<PRIN1 <FCN-ARGUMENT .FC>>
+	<PRINC ")">>
+
+"Type RESTRICTION is for restricted sets.  It has a variable, an input set and
+ a predicate"
+
+<NEWTYPE RESTRICTION VECTOR '<<PRIMTYPE VECTOR> IDENTIFIER ANY ANY>>
+
+<MSETG RESTRICT-ID <OFFSET 1 RESTRICTION>>
+
+<MSETG RESTRICT-SET <OFFSET 2 RESTRICTION>>
+
+<MSETG RESTRICT-PRED <OFFSET 3 RESTRICTION>>
+
+<DEFINE RESTRICT-PRINT (RES) #DECL ((RES) RESTRICTION)
+	<PRINC "(">
+	<PRIN1 <RESTRICT-ID .RES>>
+	<PRINC " IN ">
+	<PRIN1 <RESTRICT-SET .RES>>
+	<PRINC " WHERE ">
+	<PRIN1 <RESTRICT-PRED .RES>>
+	<PRINC ")">>
+""
+"Type OPERATOR is for +,- etc."
+
+<NEWTYPE OPERATOR VECTOR '<<PRIMTYPE VECTOR> ATOM ANY ANY>>
+
+<MSETG OP-NAME <OFFSET 1 OPERATOR>>
+
+<MSETG OP-OP1 <OFFSET 2 OPERATOR>>
+
+<MSETG OP-OP2 <OFFSET 3 OPERATOR>>
+
+<DEFINE OP-PRINT (OP) #DECL ((OP) OPERATOR)
+	<COND (<OP-OP2 .OP>	;"Binary operator"
+	       <COND (<TYPE? <OP-OP1 .OP> OPERATOR>
+		      <PRINC "(">)>
+	       <PRIN1 <OP-OP1 .OP>>
+	       <COND (<TYPE? <OP-OP1 .OP> OPERATOR>
+		      <PRINC ")">)>
+	       <COND (<L=? <LENGTH <SPNAME <OP-NAME .OP>>> 2>
+		      <PRINC <OP-NAME .OP>>)
+		     (ELSE
+		      <PRINC " ">
+	 	      <PRINC <OP-NAME .OP>>
+		      <PRINC " ">)>
+	       <COND (<TYPE? <OP-OP2 .OP> OPERATOR>
+		      <PRINC "(">)>
+	       <PRIN1 <OP-OP2 .OP>>	
+	       <COND (<TYPE? <OP-OP2 .OP> OPERATOR>
+		      <PRINC ")">)>)
+	      (ELSE
+	       <COND (<L=? <LENGTH <SPNAME <OP-NAME .OP>>> 2>
+		      <PRINC <OP-NAME .OP>>)
+		     (ELSE
+	 	      <PRINC <OP-NAME .OP>>
+		      <PRINC " ">)>
+	       <PRIN1 <OP-OP1 .OP>>)>>
+
+""
+"Type QUANTIFIER is for DAPLEX quantifiers FOR SOME etc."
+
+<NEWTYPE QUANTIFIER
+	 VECTOR
+	 '<<PRIMTYPE VECTOR> ATOM FIX IDENTIFIER ANY ANY ANY>>
+
+<MSETG QUANT-TYPE <OFFSET 1 QUANTIFIER>>
+
+<MSETG QUANT-NUM <OFFSET 2 QUANTIFIER>>
+
+<MSETG QUANT-ID <OFFSET 3 QUANTIFIER>>
+
+<MSETG QUANT-SET <OFFSET 4 QUANTIFIER>>
+
+<MSETG QUANT-PRED <OFFSET 5 QUANTIFIER>>
+
+<MSETG QUANT-TEST <OFFSET 6 QUANTIFIER>>
+
+<DEFINE QUANT-PRINT (Q) 
+	#DECL ((Q) QUANTIFIER)
+	<PRINC "FOR ">
+	<COND (<0? <QUANT-NUM .Q>> <PRIN1 <QUANT-TYPE .Q>>)
+	      (ELSE
+	       <PRINC <COND (<==? <QUANT-TYPE .Q> AT-LEAST> "AT LEAST ")
+			    (ELSE "AT MOST ")>>
+	       <PRIN1 <QUANT-NUM .Q>>)>
+	<PRINC " ">
+	<PRIN1 <QUANT-ID .Q>>
+	<PRINC " IN ">
+	<PRIN1 <QUANT-SET .Q>>
+	<COND (<QUANT-PRED .Q> <PRINC " WHERE "> <PRIN1 <QUANT-PRED .Q>>)>
+	<PRINC " TEST ">
+	<PRIN1 <QUANT-TEST .Q>>>
+
+<NEWTYPE EXISTS VECTOR '<<PRIMTYPE VECTOR> ATOM FIX ANY>>
+
+<MSETG EXISTS-TYPE <OFFSET 1 EXISTS>>
+
+<MSETG EXISTS-NUM <OFFSET 2 EXISTS>>
+
+<MSETG EXISTS-SET <OFFSET 3 EXISTS>>
+
+<NEWTYPE AGGREGATE
+	 VECTOR
+	 '<<PRIMTYPE VECTOR> ATOM <OR IDENTIFIER FALSE> ANY <OR FALSE ATOM>>>
+
+<MSETG AGG-NAME <OFFSET 1 AGGREGATE>>
+
+<MSETG AGG-FCN <OFFSET 2 AGGREGATE>>
+
+<MSETG AGG-SET <OFFSET 3 AGGREGATE>>
+
+<MSETG AGG-OVER <OFFSET 4 AGGREGATE>>
+
+<NEWTYPE IDENTIFIER VECTOR '<<PRIMTYPE VECTOR> ATOM ANY ANY>>
+
+<MSETG ID-NAME <OFFSET 1 IDENTIFIER>>
+
+<MSETG ID-TYPE <OFFSET 1 IDENTIFIER>>
+
+<MSETG ID-OTHER <OFFSET 1 IDENTIFIER>>
+
+<DEFINE PRINT-ID (ID) #DECL ((ID) IDENTIFIER) <PRIN1 <ID-NAME .ID>>>
+
+<NEWTYPE SUPERTYPE LIST>
+
+<NEWTYPE COTYPE LIST>
+
+<NEWTYPE FCN-DFN VECTOR '<<PRIMTYPE VECTOR> IDENTIFIER ANY>>
+
+<MSETG FCN-DFN-NAME <OFFSET 1 FCN-DFN>>
+
+<MSETG FCN-DFN-FORMAT <OFFSET 2 FCN-DFN>>
+
+<NEWTYPE EXTENT
+	 VECTOR
+	 '<<PRIMTYPE VECTOR> IDENTIFIER
+			     <OR JOIN RESTRICTION PROJECT>
+			     <LIST [REST FCNMAP]>>>
+
+<MSETG EXTENT-NAME <OFFSET 1 EXTENT>>
+
+<MSETG EXTENT-EMAP <OFFSET 2 EXTENT>>
+
+<MSETG EXTENT-FMAP <OFFSET 3 EXTENT>>
+
+<NEWTYPE JOIN LIST>
+
+<NEWTYPE PROJECT VECTOR '<<PRIMTYPE VECTOR> LIST LIST>>
+
+<MSETG PROJECT-MAPLIST <OFFSET 1 PROJECT>>
+
+<MSETG PROJECT-FCNLIST <OFFSET 2 PROJECT>>
+
+<NEWTYPE FCNMAP VECTOR '<<PRIMTYPE VECTOR> IDENTIFIER ANY>>
+
+<MSETG FCNMAP-NAME <OFFSET 1 FCNMAP>>
+
+<MSETG FCNMAP-SETEXP <OFFSET 2 FCNMAP>>
+
+<NEWTYPE ENTITY-DEF
+	 VECTOR
+	 '<<PRIMTYPE VECTOR> IDENTIFIER
+			     LIST
+			     <OR FALSE <LIST ANY>>
+			     <OR FALSE <LIST ANY>>
+			     <OR FALSE ATOM>
+			     <OR EXTENT FALSE>>>
+
+<MSETG ENTITY-DEF-NAME <OFFSET 1 ENTITY-DEF>>
+
+<MSETG ENTITY-DEF-FCN-LIST <OFFSET 2 ENTITY-DEF>> 
+
+<MSETG ENTITY-DEF-SUPERTYPES <OFFSET 3 ENTITY-DEF>>
+
+<MSETG ENTITY-DEF-COTYPES <OFFSET 4 ENTITY-DEF>>
+
+<MSETG ENTITY-DEF-VIRTUAL? <OFFSET 5 ENTITY-DEF>>
+
+<MSETG ENTITY-DEF-EXTENT <OFFSET 6 ENTITY-DEF>>
+
+
+"Utility print stuff"
+
+<DEFINE PRINT-LIST (L) #DECL ((L) <PRIMTYPE LIST>)
+	<PRINC "(">
+	<MAPR <>
+	      <FUNCTION (LL "AUX" (X <1 .LL>))
+		<PRIN1 .X>
+		<COND (<EMPTY? <REST .LL>> <PRINC ")">)
+		      (ELSE <PRINC ", ">)>>
+	      .L>>
+
+<DEFINE PRINT-SEQ (L) #DECL ((L) <PRIMTYPE LIST>)
+	<MAPF <>
+	      <FUNCTION (X)
+		<IPRINT .X>
+		<PRINC ";">
+		<CRLF>> .L>>
+
+<DEFINE IPRINT (OBJ)
+	<INDENT-TO .INDENTATION>
+	<PRIN1 .OBJ>>
+
+<DEFINE IPRINC (OBJ)
+	<INDENT-TO .INDENTATION>
+	<PRINC .OBJ>>
+
+
+ 
+<DEFINE PRETTY () 
+	<MAPF <> <FUNCTION (TYPE FCN) <PRINTTYPE .TYPE .FCN>> ,TYPES ,PSUBRS>>
+
+<DEFINE NOT-PRETTY ()
+	<MAPF <> <FUNCTION (TYPE) <PRINTTYPE .TYPE ,PRINT>> ,TYPES>>
+
+<SETG TYPES
+      '![USETYPE
+	 FOR-LOOP
+	 ITERATION
+	 RETRIEVE
+	 PRINTYPE
+	 IFTYPE
+	 SETTYPE
+	 FCN
+	 RESTRICTION
+	 OPERATOR
+	 QUANTIFIER
+	 IDENTIFIER!]>
+
+<SETG PSUBRS
+      [,P-USETYPE
+       ,PRINT-FOR
+       ,ITERATOR-PRINT
+       ,PRINT-RETRIEVE
+       ,PRINT-PRINT
+       ,IFTYPE-PRINT
+       ,SET-PRINT
+       ,FCN-PRINT
+       ,RESTRICT-PRINT
+       ,OP-PRINT
+       ,QUANT-PRINT
+       ,PRINT-ID]>
+
+<ENDPACKAGE>
+
\ No newline at end of file
diff --git a/<mdl.comp>/getord.mud.1 b/<mdl.comp>/getord.mud.1
new file mode 100644
index 0000000..2d8431f
--- /dev/null
+++ b/<mdl.comp>/getord.mud.1
@@ -0,0 +1,244 @@
+
+"GETORDER FUNCTIONS"
+
+<DEFINE CHECK (ATM)
+	#DECL ((ATM) <UNSPECIAL ATOM>)
+	<AND <TYPE? .ATM ATOM>
+	     <GASSIGNED? .ATM>
+	     <OR <TYPE? ,.ATM FUNCTION>
+		 <TYPE? ,.ATM MACRO>>>>
+
+<DEFINE PREV (LS SUBLS)
+	#DECL ((LS SUBLS) <UNSPECIAL LIST> (VALUE) LIST)
+	<REST .LS <- <LENGTH .LS> <LENGTH .SUBLS> 1>>>
+
+<DEFINE SPLOUTEM (FL OU)
+	#DECL ((FL) <UNSPECIAL LIST> (OU) <UNSPECIAL ATOM>)
+	<REPEAT (TEM)
+		#DECL ((TEM) <UNSPECIAL <PRIMTYPE LIST>>)
+		<COND (<EMPTY? .FL> <RETURN T>)
+		      (<SET TEM <MEMQ .OU <1 .FL>>>
+		       <COND (<==? <1 .FL> .TEM> <PUT .FL 1 <REST .TEM>>)
+			     (ELSE <PUTREST <PREV <1 .FL> .TEM> <REST .TEM>>)>)>
+		<SET FL <REST .FL 2>>>>
+
+<DEFINE REVERSE (LS)
+	#DECL ((LS) <UNSPECIAL LIST>)
+	<REPEAT ((RES ()) (TEM ()))
+		#DECL ((RES TEM) LIST)
+		<COND (<EMPTY? .LS> <RETURN .RES>)>
+		<SET TEM <REST .LS>>
+		<SET RES <PUTREST .LS .RES>>
+		<SET LS .TEM>>>
+
+<DEFINE ORDEREM (FLIST)
+   #DECL ((FLIST) <UNSPECIAL LIST>)
+   <REPEAT (TEM (RES ()))
+     #DECL ((RES) <UNSPECIAL <LIST [REST <OR ATOM LIST>]>>
+	    (VALUE) <LIST [REST <OR ATOM LIST>]>
+	    (TEM) <UNSPECIAL <PRIMTYPE LIST>>)
+     <COND
+      (<EMPTY? .FLIST> <RETURN <REVERSE .RES>>)
+      (<SET TEM <MEMQ () .FLIST>>
+       <SET RES (<2 .TEM> !.RES)>
+       <COND (<==? .TEM .FLIST> <SET FLIST <REST .FLIST 2>>)
+	     (ELSE <PUTREST <PREV .FLIST .TEM> <REST .TEM 2>>)>
+       <SPLOUTEM .FLIST <1 .RES>>)
+      (ELSE
+       <PROG ((RES2 ()) GOTONE)
+	     #DECL ((RES2) LIST)
+	     <SET GOTONE <>>
+	     <REPEAT ((RES1 .FLIST))
+		     #DECL ((RES1) LIST)
+		     <COND (<NOT <CALLME <2 .RES1> .FLIST>>
+			    <SET GOTONE T>
+			    <SET RES2 (<2 .RES1> !.RES2)>
+			    <COND (<==? .FLIST .RES1>
+				   <SET FLIST <REST .FLIST 2>>)
+				  (ELSE
+				   <PUTREST <PREV .FLIST .RES1>
+					    <REST .RES1 2>>)>)>
+		     <AND <EMPTY? <SET RES1 <REST .RES1 2>>> <RETURN>>>
+	     <COND (.GOTONE <AGAIN>)
+		   (<NOT <EMPTY? .FLIST>> <SET FLIST <CORDER .FLIST>>)>
+	     <SET TEM <REVERSE .RES>>
+	     <COND (<NOT <EMPTY? .FLIST>>
+		    <COND (<EMPTY? .RES>
+			   <SET TEM .FLIST>
+			   <SET RES <REST .FLIST <- <LENGTH .FLIST> 1>>>)
+			  (ELSE
+			   <SET RES
+				<REST <PUTREST .RES .FLIST>
+				      <LENGTH .FLIST>>>)>)>
+	     <COND (<EMPTY? .RES> <SET RES .RES2>)
+		   (ELSE <PUTREST .RES .RES2> <SET RES .TEM>)>>
+       <RETURN .RES>)>>>
+
+<DEFINE CALLME (ATM LST)
+	#DECL ((ATM) ATOM (LST) <LIST [REST <LIST [REST ATOM]> ATOM]>)
+	<REPEAT ()
+		<AND <EMPTY? .LST> <RETURN <>>>
+		<AND <MEMQ .ATM <1 .LST>> <RETURN>>
+		<SET LST <REST .LST 2>>>>
+
+<DEFINE CORDER (LST "AUX" (RES ()))
+	#DECL ((LST) <LIST [REST <LIST [REST ATOM]> ATOM]> (RES) LIST)
+	<REPEAT ((LS .LST))
+		#DECL ((LS) <LIST [REST LIST ATOM]>)
+		<AND <EMPTY? .LS> <RETURN>>
+		<PUT .LS 1 <ALLREACH (<2 .LS>) <1 .LS> .LST>>
+		<SET LS <REST .LS 2>>>
+	<REPEAT ((PNT ()))
+		#DECL ((PNT) <LIST [REST LIST ATOM]>)
+		<REPEAT ((SHORT <CHTYPE <MIN> FIX>) (TL 0) (LST .LST))
+			#DECL ((SHORT TL) FIX (LST) <LIST [REST LIST ATOM]>)
+			<AND <EMPTY? .LST> <RETURN>>
+			<COND (<L? <SET TL <LENGTH <1 .LST>>> .SHORT>
+			       <SET SHORT .TL>
+			       <SET PNT .LST>)>
+			<SET LST <REST .LST 2>>>
+		<SET RES
+		     (<COND (<1? <LENGTH <1 .PNT>>> <1 <1 .PNT>>)
+			    (ELSE <1 .PNT>)>
+		      !.RES)>
+		<MAPF <> <FUNCTION (ATM) <SPLOUTEM .LST .ATM>> <1 .PNT>>
+		<REPEAT (TEM)
+			<COND (<SET TEM <MEMQ () .LST>>
+			       <COND (<==? .TEM .LST> <SET LST <REST .TEM 2>>)
+				     (ELSE
+				      <PUTREST <PREV .LST .TEM>
+					       <REST .TEM 2>>)>)
+			      (ELSE <RETURN>)>>
+		<AND <EMPTY? .LST> <RETURN>>>
+	<REVERSE .RES>>
+
+<DEFINE ALLREACH (LATM LST MLST)
+   #DECL ((LATM LST) <LIST [REST ATOM]>
+	  (MLST) <LIST [REST <LIST [REST ATOM]> ATOM]>)
+   <MAPF <>
+    <FUNCTION (ATM)
+	    #DECL ((ATM) ATOM)
+	    <COND (<MEMQ .ATM .LATM>)
+		  (ELSE
+		   <SET LATM
+			<ALLREACH (.ATM !.LATM)
+				  <REPEAT ((L .MLST))
+					  #DECL ((L) <LIST [REST LIST ATOM]>)
+					  <AND <==? <2 .L> .ATM>
+					       <RETURN <1 .L>>>
+					  <SET L <REST .L 2>>>
+				  .MLST>>)>>
+    .LST>
+   .LATM>
+
+<DEFINE REMEMIT (ATM)
+	#DECL ((ATM) ATOM (FUNC) <SPECIAL ATOM>
+	       (FUNCL) <SPECIAL <LIST [REST ATOM]>>)
+	<OR <==? .ATM .FUNC>
+	    <MEMQ .ATM .FUNCL>
+	    <SET FUNCL (.ATM !.FUNCL)>>>
+
+<DEFINE FINDREC (OBJ "AUX" (FM '<>))
+	#DECL ((FM) FORM)
+	<COND (<MONAD? .OBJ>)
+	      (<AND <TYPE? .OBJ FORM SEGMENT>
+		    <NOT <EMPTY? <SET FM <CHTYPE .OBJ FORM>>>>>
+	       <COND (<AND <TYPE? <1 .FM> ATOM> <GASSIGNED? <1 .FM>>>
+		      <AND <TYPE? ,<1 .FM> FUNCTION> <REMEMIT <1 .FM>>>
+		      <AND <TYPE? ,<1 .FM> MACRO>
+			<NOT <EMPTY? ,<1 .FM>>>
+				<FINDREC <EMACRO .FM>>>
+				;"Analyze expansion of MACRO call"
+		      <AND <OR <==? ,<1 .FM> ,MAPF> <==? ,<1 .FM> ,MAPR>>
+			   <NOT <LENGTH? .FM 3>>
+			   <PROG ()
+				 <AND <TYPE? <2 .FM> FORM> <CHK-GVAL <2 .FM>>>
+				 T>
+			   <PROG ()
+				 <AND <TYPE? <3 .FM> FORM>
+				      <CHK-GVAL <3 .FM>>>>>)
+		     (<STRUCTURED? <1 .OBJ>> <MAPF <> ,FINDREC <1 .OBJ>>)>
+	       <COND (<EMPTY? <REST .OBJ>>)
+		     (ELSE <MAPF <> ,FINDREC <REST .OBJ>>)>)
+	      (ELSE <MAPF <> ,FINDREC .OBJ>)>>
+
+<DEFINE EMACRO (OBJ "AUX" (ERR <GET ERROR!-INTERRUPTS INTERRUPT>) TEM) 
+	<COND (.ERR <OFF .ERR>)>
+	<ON "ERROR"
+	    <FUNCTION (FR "TUPLE" T) 
+		    <COND (<AND <GASSIGNED? MACACT> <LEGAL? ,MACACT>>
+			   <DISMISS [!.T] ,MACACT>)
+			  (ELSE <APPLY ,<PARSE "OVALRET!-COMBAT!-"> " ">)>>
+	    100>
+	<COND (<TYPE? <SET TEM
+			   <PROG MACACT () #DECL ((MACACT) <SPECIAL ACTIVATION>)
+				 <SETG MACACT .MACACT>
+				 (<EXPAND .OBJ>)>>
+		      VECTOR>
+	       <OFF "ERROR">
+	       <COND (.ERR <EVENT .ERR>)>
+	       <ERROR " MACRO EXPANSION LOSSAGE " !.TEM>)
+	      (ELSE <OFF "ERROR"> <AND .ERR <EVENT .ERR>> <1 .TEM>)>>
+
+<DEFINE CHK-GVAL (FM) #DECL ((FM) FORM)
+	<AND	<==? <LENGTH .FM> 2>
+		<TYPE? <1 .FM> ATOM>
+		<==? ,<1 .FM> ,GVAL>
+		<TYPE? <2 .FM> ATOM>
+		<GASSIGNED? <2 .FM>>
+		<OR <TYPE? ,<2 .FM> FUNCTION>
+			<AND <TYPE? ,<2 .FM> MACRO>
+				<NOT <EMPTY? ,<2 .FM>>>
+				<TYPE? <1 ,<2 .FM>> FUNCTION>>>
+		<REMEMIT <2 .FM>>>>
+
+<DEFINE FINDEM (FUNC "AUX" (FUNCL ()))
+	#DECL ((FUNC) <SPECIAL ATOM> (FUNCL) <SPECIAL <LIST [REST ATOM]>>
+	       (VALUE) <LIST [REST ATOM]>)
+	<FINDREC ,.FUNC>
+	.FUNCL>
+
+<DEFINE FINDEMALL (ATM
+		   "AUX" (TOPDO
+			  <REPEAT ((TD ()))
+				  #DECL ((TD) LIST
+					 (VALUE)
+					 <LIST <LIST [REST ATOM]> ATOM>)
+				  <AND <EMPTY? .ATM> <RETURN .TD>>
+				  <SET TD (<FINDEM <1 .ATM>> <1 .ATM> !.TD)>
+				  <SET ATM <REST .ATM>>>))
+	#DECL ((ATM) <UNSPECIAL <TUPLE [REST ATOM]>>
+	       (TOPDO) <UNSPECIAL <LIST <LIST [REST ATOM]> ATOM>>)
+	<REPEAT ((TODO .TOPDO) (CURDO <1 .TOPDO>))
+		#DECL ((TODO) <UNSPECIAL LIST>
+		       (CURDO) <UNSPECIAL <LIST [REST ATOM]>>)
+		<COND (<EMPTY? .CURDO>
+		       <COND (<EMPTY? <SET TODO <REST .TODO 2>>>
+			      <RETURN .TOPDO>)
+			     (ELSE <SET CURDO <1 .TODO>> <AGAIN>)>)
+		      (<MEMQ <1 .CURDO> .TOPDO>)
+		      (ELSE
+		       <PUTREST <REST .TODO <- <LENGTH .TODO> 1>>
+				(<FINDEM <1 .CURDO>> <1 .CURDO>)>)>
+		<SET CURDO <REST .CURDO>>>>
+
+<DEFINE GETORDER ("TUPLE" ATMS)
+	#DECL ((ATMS) <UNSPECIAL <TUPLE [REST ATOM]>>)
+	<COND (<NOT <MEMQ #FALSE () <MAPF ,LIST ,CHECK .ATMS>>>
+	       <ORDEREM <FINDEMALL .ATMS>>)
+	      (ELSE <ERROR BAD-ARG GETORDER>)>>
+
+
+
+<SET LIST_OF_FUNCTIONS
+     '(CHECK
+       PREV
+       SPLOUTEM
+       REVERSE
+       ORDEREM
+       REMEMIT
+       FINDREC
+       FINDEM
+       FINDEMALL
+       GETORDER)>
+
\ No newline at end of file
diff --git a/<mdl>/m104uni.save.1 b/<mdl>/m104uni.save.1
new file mode 100644
index 0000000000000000000000000000000000000000..19caeda094c20c5744ff0815aeae2140057934de
GIT binary patch
literal 46073
zcmeHw33n66wslD!TDF0RIDiu@yDdB581MkbHVM$O@oZTVc7qhir4_K$@~C-80_d;5
zeX8q}Y(nnM&6n@4`_}7XalE_g)U?m3>Os|AbF=fNDTG+Xe=m%`#NP?gJ}5;trk)0e
zggGL_<<J`;u1bZOry?kxW`($P2giMs+7~L|kWz2|`#FRNtW(x=K^CQsSB-_c_kg#~
zrTg$tGjK;3J8%C;yB7)4+>-E)3mA`uFj_5{tt~@Kgr9c~Re1*eg@~zRAzn=3-`^;7
z!4h;`Jp4096=A#+;GpLkX$Q||=@tPYq&Oe@e-sDShUMrkynZ>c^QF6YW&2Twi905+
z6rH#ZGGC_KZSzgK{c!<$3wOZk$=#<&e+s%!VlfDFMTie~F@wMqK=?1DE&B*bFCy^g
zLn$2c3ivZw-~v6<aDnhJX@A83pap?uD)FEVG@rcJzIwfQbE;JNR(d=od!hYHHqeDq
zMt{SxH#H@J#>42gY{vKiQiG2ndfWGfvA9Cw4aA#nuY}-|5OipB!Xk0uhyQX0+G{1%
z!Vvw9b(O}yARt|bz@H7~cdTjBsZ3<>zkiwII*4Qb)!(3QK?h+fLy*HtPjkxs{-8KH
z-%DZsfyO_Hjv-CfBdO^i^V2--_h$4Ik>OOk9gFU@KZ<ay-3VP0?RM(sJ`!XOIjq7s
zN}0mE_KzVTHPi_G<?zW!{>$YcBVFSB8v%3TpVkh@?*6ys_|whz6@3Q&5(6Rf`@p0S
z?Rs`>>O7i7+=tZYGZ9dzBmySlPKIu#J=EAV4UKf%*at7JJrv!R<q0pyNs1uV<^>vb
zavl-^%<^qR3?7L<2FSbA1yXuwfscF+$P@pwe(<{ypj!~k!cTEFeJKce;hbl8e7u9m
z+uN}~QAocBs%i9#L?|V2#)uA3Tl>Ro^tCrGW8zZELv#Wc0bESenZ4{?%*ZCF7KBrR
zu6NsQ_h43|d5xA7at<DAw5(ItG}_XsyBh83RP<cc@k*mNTJNn!u13dNucT2;r?wQz
z41dsZ?-}I+3c0x+jrw%zWgYjWM%Oj^M(d5}xTr?AG@4Q<otsw3$vx1i%$l2H*4$i7
zr>^Q8n>sG85!)l3vsGL=_oGf_*4!Mk=H~J$)yW-cy`qk*YSh%JnyWl63#Db8d^e}&
znJYKXTsirxDm9(IrgJb?Zhln9jcasUAvb?lBla*S&mQLFAL$&HLdpCyh0=NUt7JZ*
zQ}=Za<|UbDUN-UvD%Hv}8yk7{p=_jI1ks4#u#s<Q1YT6!FB<(yC_sAPYF2a+VqZ(U
z>|u`Et7>!I0dAEW)`<Peac}ClF@@4Ddz0hdQE^FkPNM~#gMG+xdE{B{x=LMi*>g5r
z=EZe+lsT@W^jtTm%VS;~m%SwE>apdb=iXR#+l&fb8W|dKf8D|tI&M&-8ye}J7qpiY
z*h}2Pq}F3EaSAYo$9;jlBoo1iniV~;LgAsx;S}^JD=<TDL65Qmk21Hwqs%EVSINS2
zUGGbUk_F9LA*)l_o7}>ouJ=r#je=&az^pk1W-S|e!lfMYJY*g6*h(KVYw5$Uxa7lc
zbPndqJ^WUuey0)7Imtt2D1FG|Xy)*#(z6aXba^~0ZyfThY#nBFd5%Wh->hltIQEy(
zL-v=A!<H`jBUy$<)KQS*j=FUm_cwW@{pE<qM<#Ml<;X-#uI)(AFGuV-?h&V^k2D)c
zQz}O)!t;1)m|Nu>p-Iw<H;$Mg>*#wGmp<Zgl!@HeaoajaQlaG03x(XH*BUWb?$JA)
z1LrNzJC9BX^%5KGCAW{tx;)G;vQ_CL_LAf=xRP<!vF7TS8FG#_8^_E>CUQmPaF3Z6
z_n3KckC_+uct+_t$IL<cSaWb}snq20s@B`mD4~#h%>LpY^GI=yU+L7JHR7|7dwi_p
zN*dKQ`c)(5z&&9O+!N-&J<+{9(X-0Q5a&IKXvAk{=R}`zPIxYHPk26cPk26cPkzvO
zV;Ze##D3tOuphW5JQmy&KI1qie8zE4aysvkMm$oSld6hyPPBKPV9ZFHCr|avda8SV
z$~|{Z*|VKfo=-PUhgIJ6Dfc{i$~{k?a?hPp_H5^rX9nk#X9nj~+x(Pm?w+Q&^{4Fj
z&Z)NasrLKR1Fd(c(V0fvU-y*z>z?wN(>>F3#F?RTIA@m>vd(mW&)Cw=*@)KDXN|M(
zxVE!to%%q>E$KL(fzxNtRGf9jXM>HigpOnTT4y}Y(`W42$ususjWdjH&u(WGg*MLk
zsw#QLy|jvK)f+{&YO=^)JX8FdODXdBb&7l~Ko8lxI-DZg(k<$~6?y!+MIOISQQNY}
zwseZ@yBkH_x8hH#WUKg2p~WJ5tW)G!$|<tloFezgDRGb7Qb^@>OMG?cmacM}OV<@j
zm)K9868mYo#D40Oc;<IY+D}W`ZY8#xTVlI8CAOPW;&Yi((lb(t?dFu&Zf=R~=9YLy
za!NcSIVC+KmGq2M(lb)IhkI1+S7@WGXXP@F#>Fzv%1)Vk>69l`j@xD3%d(z*%6j%G
z>)EHgu5!5L9fgwR=L)6EX@#6JTX3<Q)v2yd)!tcVTc*nmm6|O7rqD(uz;P8GgBukd
zgXs#7!DNMdX;mUBhg%s}$f<BI(-l1iD}0`DDs0PiMccB%woF#EEi2lV747$xjIM*{
zSf}z%#ic7e=Oin7&Z$&&4jzq8<vqt$g+^>ux60$vsb1!itK9RMs_uD}XP=qsw@NQr
z<#D-DW#8SXa(`#4JjYtqHI-wg8dqqes(V@0XOgP!WtDrGtQJ%br+TVTx>`}lt#U7u
zRkmt2!k(Cka7!~0-QOD9e52OOrPSEwZjF2H*0|^C8joMMHl}m%EalYhs5qxKr&G0$
z*R+q<;Ny5Qf$O0fv*Fg*+tW4ncDKgoo^&m(%1hV&q3d|7&|*!G<eIj5joEN&ACz9Q
z&gYqQJ*4BVaC!AXjd(70>TGGJKA}?G`gdB7eLPubA9w5eyjo|QJ9VCm-8$ytS$SPt
z=eal=L3!StO`ZFjjleQWZ%@^hjlc>@5B}ouSLbu`MqM*h2Sc-B0PNO(R(aF)oJM+X
zuk+Q2TjyENsq?Jo)b*^_V1L<Y@c3{WUoZ!auM~0{V9jfDgITj0rq*LGNjG?;q#Nud
zPD6W1gT2IQz)R$L)oEzoXs~Zs4LuV!cxFg8*f(Yx>>Eyl`<rfXe>WQ3-*kgV%3>4#
zI4k<WT2s$|%>iyf^D6hUd0ofx*h)9`SZMOO%x!Wnou=+(lY8kjAFEO}n#)u#JxOS8
z5b7obFY$Wb<o>!%?yuW?sZ;gL-(*WCn|h9D@=Rzo^{8lS`!?CWPK)hpwX}U(VXmWf
zjan5#t6JZvIJXtih|h0si+k?0bkAG5=dFi2$M?Eq9v^ONMW;#*=)SQP*Ln%&r3Js2
zylk{yD3or!)^S;d7F&7BAxptLsSwyusH9O@<;X;NlsPSMWo_-^hs|+3BBhX|AN3IT
zw%yL2VHU8q-nHAAGxXQmIv_MfC`SnMfwgr=dg!^eRiQY{3<}|FU~S)~IQY1=JxO{N
zq3;NR18e&}A<T&qW$3EZ+I~QB@B?c*NqNDBwVk0jwAtGJkr3FBD07CfU~L~$9C)#|
zf2AC6fOZB5VN_T<tLWPq<^yYIz1^NXJ0!H(ZZDmI7i(vS;_8Ir?e^vw&X?8>*oYM|
zKCGPtA^3~6gSJc-aTR3k;5Xr=;#ES=DGuYq+SwyLc!{;sLcK+JiM2y*DSk`nH?*(#
z9ijJx;4fCZhtLe6UPAW?q0QMMJjaS(qP)ak91AuwMdB}hjZ%rf_;rdS{^DN~BL3nx
z31J*r@dzP!lNFB=N)ei%yznL~ewX4fqOABmLazutB!s!dia!GfMT{*gzCm%sTAX~N
zNUX*GL2>XfEAA2^{^GEHrdT6%N_F5YWW`H_F!HSUFN8i2`hb#4#OW@cvS&-g=`L|V
zSJKvQ2&I%T`&hgEgsu=mkFupN37Leh5n2Jyr6GkjOT_pt+MF$6MzVId2$9F`!fsi*
z&bD^<36aO{zCu6fird;fqB!!{-3B4@*aZF3P+BAuAU(`i5@ky<LTF!>uEMQEA0f=o
zR^l5%#CYNswV4=C5T_+#JVBmaBE}P7H%r&(R$_?|u6V4(V?vnCti)47jtDL$mNE89
z<gp3aqXR<l_EgCwgt3*SD|jnWr#OsmD*+G7mMTEW%TzCUaq=p~wFnIn`i&5IN$DdY
zv@}}|5~49k*Y_6I5VbR9vO;o};>ZfgC#a)LR!G7RQf0D&hsfKL7(J;nW=Dl^_Op`U
zK1Emm3gPT$CATS#xcAUBA&j?FnY`UY3xqK8Qf17O3SpkKlDiZ~KJFo6JPE6&%G(+x
z2w_~N%6l3S&q<8XRGB>6Lo^>GF;-J$V%I~MF|8y<ZK`~v5pkM?zog2NQ;8ZBXH(p-
zF`69Pv$zm3O(63r#1w>q)ue$gL=DVOnIiP`?ue0n`#n~dgkG&+jg}RI-W~ce*F@a>
zj1*B}v?qf``?u#=B)r1^`AJ0mHe&*2pyDY{N3lYN7NX6+p={Zeu6BDqD*9to)I+3p
zwO2_%r9WpzvD{|{qBOrELeIyds53)x=7bn{h*s@gmf7wj?g7@c^*uK)iGf8Ej+=nk
zykbVtx93qqd^ZJTnb*a@k~yD2+&mgILx)%+H}HrS%H4k&#5xr-7(%@(v`{Q&TngS@
zFhu{|1^f<Y%G9+`|ItIV<rOWXyKnX)uNe{p-@nEJT|td>=a6@h+Ont7u}P`sib)(W
z`d+kzn5MkbDCPV4TOyQouu>=(off@f<_fALCc855u~_t0xHs^8U4*Q$Dd?EnKn|9T
zc13TEw%e4gYbHUB+zz8}>kuFU93*DN2p9^+q<zOG&@^)r+No7AX&MktKeEkW<!>;v
zIf=M+#7zT;=^(W#Dney+-*~9S0-*)5YV7x#xF~)`3=JZ#I}afQ32-F_elS<UVgP#U
zcPYoB7E6SdbO9^6fDOv43h2E-rjVr&VH(Nu;1=*9%!&dokl6ORD#D`AjEUf`DX7!2
zFoa2M0lEnriNL*EM&d2pLQq=<9!p_Hopzh+4ek;$U{%pWMtMSq0n&StVW$a9e?>kd
z*|lfI)iJnU&|H}n*UYG~^Q%PMqn<57m#LI4-S9c`XBq)7GpuJkA|!i`72rhJi0HQ=
z1_sP1td&_2U8CSY^pK^+O!P)Oi|&h_4QWQ%7V0$FQp}h$?e?n}1{25$K3R&2zNpt+
zTs(b=u{!XS8u=xSt)N^W>NR6A)PKSa>Y69ie;08@v2M(EJq^NHJ8>8F21)N!>Mg85
zkDUM33|hY=>!6kj8Yxe2kQL?%LJZHr!-hz2eumHlb!HlU3qE-(`ewQKZkv$j5zL?H
zMz^l-LwUf0|8;#sb$D@P?!M<RcQ+;6_@jiOKT7x-385IKAdm>MAJ8nYAPrzrZL~0V
zg=UMG86`FdkyzG3rb_XQ;-pw5B*hvbDb@)|u|bFg7(yMJ=m7+{+M-!y%j_2e+jl=A
z^}$<E2f{)&O?}&P>XS?1<b<*(r<U#^AzssP&TOL`Dzs~Q3jTZxA_#Bldqa~}*YgQ+
zH9I4XvI@QBsDT+6Ggt0a_ZRK<>?(#cS>~tACJxOhsARTbI1{Ca8%JUwLCwff@t*rk
zqsoU5jxb$QwznX$TTH)|vo}0(ic+6X(Tp?!Q%_ByC~AfjLD{z$j>Lxb)tzg?Bxs^R
zF#=MkgaD2yf#Na$!&f|a#NbrU>Wx)3T?b8KgB?i(UIo#DNf=a2M^id4bt_0>#c98n
zqbHh0x5&Akke7&c$~JW%`sxQX5N`#MO0#lc`XGaOgeF?*bldF5Gy)<9o-A&nUW)rj
zbNdrBXyQDvf}YE`scq3eF;x(K?_c#o@8P=W`^D@=-q!*}{TxFb(Ch!g>_+jgdJ(6(
z;Iuyy>X9=N#=_#F*-I*`C`A@v_M!_W8Wf<(W0?*=m?31NlUzcwu}9|aoPf+I4womu
z>HMk)<ujPBh3xc=w_+fPW{^jqX%6+x;{`52#rM6*tRn6w-N^ZM(SL3B7RD;I{+c;~
zRuTI0`7NAr$W;P&pCX4uCa&D!S6r0Y+roGop*hy;3^jvVFApUzG$9A(V(?umbnJXy
z6uOs1jxqG*ib(}53Ir2};*~tt;(T5(SB6BujHy<I$N(QrTJ|P6=osK2h^vtUTz$0X
zVsHzp%^D+LTfwXXfl^<SL2(7p|JWqoP$zYbpc^zz9L{20oGf5g+JlOkBb1Ovp&_1>
zWIv!bQ|f}e40w=70gr;B|2~cLRA-zk-$l1DK?P%yp;z6=yAT68(s-Vw$!)a-^RLN=
zs0YEhb;aKtmAp??J|vXZ=qHI@Q@3VUx<waVzevX8IQMjo(5d5R%tKuf(%Z%C*fnBO
z@dvk1{vIwI0`ib9Ap&DC{4IGgVbVE@4zG}RdY2V+X&}6@PsB<@ZTZ=2fk50W#zL32
zdEB$PbR?e00@B=LCY4O4rCtWSqR`R<=>ldqDt~Z*22shcWZV?ukQWIuwR6Z<JpC``
zV>th!yn!5<tn$-@5h{;Gd%ah$LV*|(Oq$3@<&e$`GVX{D&!V?5#ZnwD2qwK8eRt4E
zc@c94)&dK%k(ij@BUXqV5-3|CIt+|J1XoFHkXR?NNn#CRvxfw#7n_uA6OJY}(RpEf
z57BKybTvreftcv3L&$7i0kSAr=qjv=b25?z@oX`5BB0~$5^GI#%X86MC&vxs@bo@G
zUMZLfOGI`r3K$548e*UvGR1)5owAUC6D_=gL|3RH20~r}vXv=Y7oGi{-Uy=Q<b-ls
znt|Vo@C_UWpTGdY81i1x;tN@T5SQZh!^OMH=40eS=vIeI-XTjeRE13&n7e4&%4ba5
zfK^4;B<Sv;yuWJG{?5oSd2bXg#py1HGfp?%5KVwU@`xML6Oc~|V&FQJ@|$eI*e&Cu
z7^Aa`RLLH|`?C`wpeC{`JbU_<2(+pDVk$2NzLCX~avyo(Z}85*gRyAfoOiZg9U&QY
zT<Ru0^3F@$y3Jp`M#}=TD<UW;A!J4|-ssA*Cz?gV+yq>U5-yR)gL`zzoXFt5VxoIX
zHWHo2;SEz<x;h&Z0T=Vtz@1kZR-Q85V90t0s1#giQUPeo^$v;Ds!yp?qXH>-A1N5y
zeX+V4Uo*E7TlUs+eCyS+y_HPh6pMwyZ%Xa=0>8%y)JP%tF&5qwZ8IE<!9@g4QAV~z
z;uvp2?);+ka0<W>!QrF`#x{qIy)T7`3AFVKdNZ#j47{8aeBxaych8FOOn1Bei@Ayy
zs!SYSBGg7Vg1cVa1d5VzV-vwlEHeSl;Ota~MD6yk59yu18?!SvAFa&XoO^!x`qX6+
zPwww8Z>-(B_bj=(W-cdI&DCXl*-XA%+lw!!`jK}cEPIs_JriNr<zq|)V>;KeokaCp
z`^%}++VbAoDrLBsXzy*U?VEPe++2RSX5KenF2`T2?L*H~yLV3(p|w`l%$20QX{KK6
zdCl3{C3vA+FUowDgvwgRUQ4X*!z@(A*2bo}zqYZvmar*@Fhx+eW+R?lS&p0gDcQO8
zcrp#!tqa=*^`Y|jH_df)JZ`S-?IrijXUhrO++E&TGuO8=FH(>&{msjm*ND*1DJN5F
ziBFZc!YCeZ3)%M0yY8Rt*Vh}H3%DE`D87Dq>*=GIC=Hb8>MVd31m-?hXnJqUUNe&~
zY;)t8tR8*(oSv*4D!Q4_+X`b;QOOTJm*W|DSu^+T7whX(a7P6>$G?L3Tp0iQ_p#%2
zYUqUV`yK3~{}=<~>iqJjDjZ+_z1ldPhyP2$_|9K%$aw0n=lxeXL%}Rm`a@Xp?gyU%
zp8=l%p8=l%p8=l%p8=l%p8=l%p8=l%p8=l%p8=l%pMk&5KzA1F0Nd&<dORN&<1d64
zM_*zP__YVY?BzJTUCY0{%yS&pU#qz8ITc6myakZg`<9C;5AOyCW)Ua9E5mVDbX-a0
zrMIl{OAUe%@7bikA{M5PAFAJcWDMGj;6W|rPX_u3zwcZKchNUmoXD-Zkf^>tL+b{>
z#voQonn>>wgYQM4fVjT!;BOLnxw`a&$u6&jh^FNv?St6}R@PEpF*Nw2%<=Jc>*|-@
zH*UI8gGo>CT`OX7FL!=ro++EhI6zP%Vp4?;2MPrw&t7Vvgcfv*!9DsB534(4LHzN<
z-^0Krt=bf!Fl^}up8=l%p8=l%p8=l%p8=l%p8=l%pMk%Tff(-J+VtHAzU!sMytF)0
zhS*>dZ}DBY$5tuyr?c=;48D-}gIL)fiM6}4gSe5Tb&ycOJ*U78Dhc`N)%HOMD#qj>
zJ{4{3;^s0oh&Kx9dtRM;b}C$j*x*l;dj9U6lkhh-h}HQQpC4REeT#c+`Wo4!yqOyO
z>0Dx9b1>&UHQ=7h@(NU&DZ~=-^2wclR%RaqSGT{%tG!ujT50f9bt@cMZX2b+GP?B`
zFJjA2d5N*xP=1SdOiP1!7nKCweK~3$n30usXbHFfv}=Lp9{1w1UixyIxV>-}DTDN~
zErgd1H~rod0;Gg#6?VWz>mkA-XbZgJYh!_AmyM?y5co`hjebDHM30Siju0u)Yvaxz
zA}b7A6iAft$`9^2LpIhy_Su0Di7-~D2Zl&sO|>1EB!LyGc3_D_OkB1Dn<P@=ijAiR
z5LxksjVBloB{VI7Z|mAvt$5YO(+Y^N_|hI0Btl})9uAWj5?|TFCW%RL%^t@4ZT9ez
zxNZ-}NNkE5_Hc?sMhw}*SrP^DwLM%S(GuU-5kVp(ZrTyNe`iOA#IOz1K}?E>9hoJu
zBu4B=jKroGwIeAK8DZLyEQx{`vm+%EEfKY`>=7a)#_f?Xi6JpzkC-GT#kcmzEQuv?
z%N~i5*c7+zkrauHn6yW-Bnsj?d!$67C8q3AET*<cL*kA-8YVF$?%Ja!iAizK9-Sqz
zB&O}r7>P|WV~?gtWW=mJnuYoN;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe
z;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe;4|Pe;4|=78Q7$Zfypqf|I5;P
zxNvw&Zp?0PZtdSo?IoYB?e9Zn6YIzjV%V|$v%x5DVV&C{ma`cRdYf#Rz8WgS@O#9y
zo<N+)A~@d2JyX!g-D8BU6@C}61`GwDP$Nf>f`QE<ykHy|jB3=*2;S5)&ccLvful?}
znn@%ae^APuKSrLKR>nscjWRc=llloVn)Gc{3dS*7U|@F$Vbp$xXgz{xVmX*m#2bu8
z3G3{PTpQwO4Wh>H4;s1Oa9DT&kzesj5=I4IaWfiKh#Y;<@?tRZ=!{WtC>0$vTzuxw
zs9l3Np|7)2FbeM=^3;V>T5VXz$LVD-D%7;nH|o%fD=r`|cL>p%hiFni8vGubaZE3!
zT@1$2AXM@XAnF?st!0RVBSKieW}K2}qNvXW<Mb_3kKT~V6h!5|(lToK&*?+OWiK&`
zvSb@^hbf2?a-=$aRW^c8I(i`j!i?H$b!5net#n}IZ$XqyPN@6@6uGVrJAaHS70`rR
z7%lc#;{aRS7&&R$r$A*gZ4E*Oqw*MkBjD6%ehqO#DyL-#7Y=7Mfjqq&apg*t8KB$`
zDxveosG^Qff>Fi>3<h=$@`7=U0y@Dc{lQ1}j2wtH>R5?toKlZk<aH%!sONMzq{=W(
z$@&e9g-?P}B9Ew1w~A=Eh>Vb4*C$$tJ0L%(;X9?qX$Ini?0ZUG%~?v>sI!q}gn<oF
z(6s3JqKtzW;;>T>2tzibw#9i5eq?lV6A9S*2JX$H*2oi+C$y@#0opskIG*H#$S6{C
zGz_pYlNXHYKX7=ks1Iq5sL)hZ(j}iE(Kw^H;uF?utkU6ke0Yp?yD}KnON?@C9-}IU
z8ja)=a`Xlo>4gY!bx1TdvEtV_h5Hy4ngw#dw}Q$+orzFeS~T*S=(G&RsY`j$H}9~9
zrWp;Y?U3y&BD$9?6A1;TQ{~`cYG7v_VN`#GXt9xv6KY>c`U{~0%u*sk&24@qvs2tA
zL<=f17zNCjMyVH~PNRZ?QG&A3+J?vx&p8YvIEol-4bzq}b!=2b8!_u3Pd2ILz5TU&
z_VP*`e%m?O4AUk(jYr<{??4u(r{3`3JDDT765ra#)IiE7q92R7BfPSj_RP~kDkpa5
zbfL32Lj<jpd0GSBqt%4ei{HaXTlXnao$i*f^f+i$ma#q?Tf@s1d<=(|rSg7aSL@A2
zuzQBpnxaCnj6I8%_GAaMUQ1ut&o-Aasyl_!9$C3F5P`j^b&$#)5&QVCZh}T3pLH>F
zd8@{0?>`-6j>IlTo6?)bv=p>T*lCOQd(=Vd#qVt;_O;#!^qN>#-`P)=R>aGO8{xrY
znPYEldDXLtW@DU+|ABh>t*6|T9ZY$}FYnvLo^Hz$R%pZA*xicuHPk^Wudcn+db4o!
z;8J9c3dQ>YSpn*12mc}Uwi1dt?%)zud_$SG<-*4UJbR?V<TJrl?@P~Ak#6ooQeME`
z1Bckl2%{G$4~8V7J>zwdwJmQvySE-+2JgB6Y%eC2=`#Ydwst9;l*;mh!<tUaVfga1
zEUqGqAJTW98gJz=#bhKV)Rzk=*<0gJFA32102=E30GW{m3V3&2zL($&p8=l%p8=l%
zp8=l%p8=nN|5^sT8+kK48awyVCA?f|w?BqP)B5F4linGX+Yy%-)v-nA`OUlo!C^6q
zjZN|F1DhYyw%%Tjf2nuw6<4$d`<A?ZEksscRgNCY7MM7|lM|$3kCLCSo@*)RMV!|Y
zfeld60(|Cb^mJ2}5zLOhl$)W*ZBb+t30(QAfReGt3?F%05uvM-qUZ5GZ6XrgotvG1
zk=UB1qv+Ff_a{2f{{!%v9Sn`SwvBsU)r+Cg0<PdkX<J)d!F$*8*aH0z8x+F(wFpb2
zcpQ*9*BZW2RK<48sCSkAoOx)Qmp^013wqpi)Q;K|*{a^#x?^4{wGfXYR4VSa6~Y4-
zg*-Eo9&TzV1hZ!M1%}KX5irgDc4O1@ZeXOEFMJ06PcYy;oa(~{L?U3~{`_PJzi`M~
z{odGMo<>DFj(dHRZ}m+~=Knkx1$q!)z+=+?STG7#{#9MZAs*;{5{$z2Ph$RtL!(qv
zr5J_i-%#Ek7cqthtN(s54%O87*{nw4_cVQ0@&8ApaZ>raiZu%7o-Cd()F|LtsSHMe
zpDUkF|2;MeK^`Pyc>d=-52FumERA8)bhou3@FfWf_znh6cfGiN8M}S{T#qDmUY#79
zQU$mN^dOI($himDWnQ5rg`5NIGQSk0=XD3m3b_Ys8ewmFmAb1D>p2Iwpi<?%B!pe-
z-2?1-uFxBWoP)O-;c`o+ItSQC9$&wp9JoMJIch*bl;X8TU;}UG0Q<-<1%c?hB+!#_
z?^T?W3s4-DlEe8|>ZyK6J=szqH`hmc*g4h7T_!zj7^?LCDUv<PeR&~=z%Fxcj-C<+
zfmA6yj0BLIlTSWFR2!cDE{R@>!zQ4z1#S-e(yKUWBjiZuuxI#EkV?rtpj6~_bJ9iw
zgvdrhq8Oomid&@|+HN9Dc{eHb3Z=$1N|9b4w~v@i=g6fz^dli`8>|>7FUgVJDAmnL
zyGew->b=@>{CwBV6%mK6bWv|rqbBKfIF&uu*2?3e$g@!%*K14SGU~`n%aG^f$uh*1
zlgCs0bABLOn!iS=<Qww2GWFcekCGm7kf-6|Aq<VBAWH67#?8}nZ^^Fqan)b++|ASY
z2oiq>%ifh+|Lhoktum_kDZ@CV--XKb>rMS9Irf0uJ%|#Wds<&WRQZP>nQr9uPos2f
zR4>f@#v%Xar3xdJJj#>7I6KB+ohK9{{|<*oA33#xS>7mKm{g6USDf0w1+WZ8wXBeL
z*vhFxqnbeht&<C>&0jdROqJILAkOe)-e|NTPRHmFKff4<Z!Tmj202^hl=RRl<MbBC
zRf(Ll3(b&8Mw5QQa&eJwv>dH0pWmw^bg+Qb#)Xr=QG<$6$Gw%|q6;z@M=jE$-vWyz
zh^i*B3<DTN++Zm^{8C~ZOGDv@E2Fs%(Rj$Il{gMtAknB&e;cTy6AYK?s1PMhmvhvT
zIIQEg#W;EdQNGsE$6@g;>s5Df*dWiTR3K_5#90=iPHlFp5XB*g3Mi4mID1bCXqs_M
zbT*0DGWzDF9wjK@DIYd)Az~bYt4=V^ZXnLZ&y+G4#X6(ouaMBh$-~GOA<B79XlSQy
ze9Pya=$1<TGk>DbKd0ptC0a<usKp4);A_)?EYQbNc%$7Oif-F4?c_Ra(fJK1`a%SB
ze}Yi{eHizK+9p1$gpi7|^Z#D+e{IaBY<VynWyAlk?a6<#;nE*OS7{vM91hnB_K&Hx
zd%IivyUX}(So>ORd{8;2<6aj56OP%~#H6pBb@)T~Qg%EgOJQFdAJRFnW3871w<w()
zi!rrFq|OmJ_YpSQY`5Kxjq`P#Q#k8>=+%H$DSsZ1p35O?m!ca3m-0^PhYj863We18
zZ9%DC=+q&gigAAJl?Y^1qRv4lLn_a82SmUGk~d<Veta*+N4gh~pj$QP>Cvd={^B>`
zPL4;ja>vZ^dpgI0mqR}3@bsLPyhxy_0PId>$9K9HW9RDlLFZsj9XEWgj-{~NTy=a=
z*C8*3s66_8+N2(xYai-ZFx94?I>#E<p)F0;@ATtASncepb8vsD^|Fq0J)(Xrl+=E%
oI!DseJI5*U+^OS!Z2X>}pmW%}t2hURWTY4xf9U~V{+BZFKm6=D$p8QV

literal 0
HcmV?d00001

diff --git a/<mdllib>/lsrtns.mud.20 b/<mdllib>/lsrtns.mud.20
new file mode 100644
index 0000000000000000000000000000000000000000..68ec45f1f3f6687ee0a26be2e31d78fbac16c1aa
GIT binary patch
literal 6575
zcmbtZZExGi5$;#&S8R3uU<*}Y$w{v55o&32B~zhDmZY3Zf__kJI@Z~d3`tIqe}B)+
zESID#J9nsoz~1HT?7TelwsBL>f9p-O>PC51#Cdnr>9{&BviAxbef?{Zd43^(+ubk@
zWosVupE1b#^IT^gB|k?&?9H?~x{zP7{CejFL8gx0r58zzZ?d|ORZJ^;{5%W1_v$F0
zry2*+ESchf=lgM?jxrs2{A-rI#b#8TzbBb<T}+g@_jFXPMSy`_izGw47Lm^CHB0l#
zu0_b#^_suGv1=Av{cP7F_&@AgH29}oiz<U!Kv8N?ODO6MY7sL{iVkWSS!FeVkR5mC
z#o<`zu*aXYc*jxdNTfgdqt@m#mBD{e-Qu>~mTIxVzx#W2tWUbe>}fH-RPOvz`$dw`
zDW!gTmt=wJoxM4IbNc#}eg-`UJXVV@rMfRypLe(2Hs$Fa<)&QRt7plF!#(oV^6Kt+
z^1-V;@^9<SomyO9Z_4eqEeHtPA~Wg3?Rr)25$;QTyM}HDc{a>2WHT`70iI_yPa#~D
zyTdFS1`x_m%gyfgdhxw2WJ7Tw+de*&o3G35debIss4avKoAqzy)ozb!U%tiF)%tO@
zN7YdGjMd$g_lw<fz1rR`AKDCuLr5q9sYt&pHg|t*Q#G^@s>S`T+?3bq)A#OZBsely
z%u_GZeZpgC0I6P|g2sFvhtYH#E0=eQu!wXs?}3#YXg>lAb=<x5qPgxWH_239WMMo}
zV=u}zhyd}%uA64ztazVlMW7#z)HwWAb(6FRlh})dfmb9mbNqyExrj3Dcs=Evk2-0T
zBq=UV=lO+Gq&;=)oih<~q~o3U)JOMtc%p`*|Ix|me3nMM&F5&#!#VKkBdcH$1R<@0
zf_OVFah*Eg`X4ns_L%Q9%L`|WRGt$-I1Y6bAm7l5YKeT*al^RK8C2*?fe^wW1Tkz`
zSeG>KbGVCnT3<h&Lg>Sc&J^x++<bmMb7oLFW!WYg{G0^Zygn{u%lAS}J93ks1lst6
zUGK6slLDS?-CUoyc5QF5QNqlh=NTQe7kjkAo$=nCRy!qEX0$OFIS%Euc&)aNSGVeM
zTT)=T!7RDdGxmz;!BqL;Ysn;P_4wrzQL@}H!rL&NXvb)5F8JsY6XM~{{yR?!t=w!9
zB|h-QATCB^07sF_i3;C}Bvph0Y*uFn;&kkYp%S(fL&-vesyY;b9uwr7-EFCEmiLtI
zYV-t2s$-!^9?F$kBIYN|ONa<zo-qci`P<Ek7+hr82gipyU$Jt0NwC}?v#dAYtr;8_
z@kOVbGCZu8D}*_5A<%0Fp}<DhB1gR5-7Z(3N#2bWmgHdE)5W>Nf9B(~ARog7W1msN
z#tEJn)+P@zEgKe84Z}*{>Yf@L2aH#6igSmO0)6`6j4hG@A-EKz$Kw-Y7`<9Qe!f-P
zhs9O-Z|J3J`^Ng+{Ib&PZ|ck94z)zB%5O>vkM(DNU?PQefJs;qHXIC6!WxU6Vs2_v
z?jAR*t-4=dspU!q;*TgKL-t<b=k&Bkf;TdcD8-t<Y4uIe(I?V8jQi94eQp%W%EdLH
z0Pe(_P#ih^p@p#pSl~wqXHKie9;CU2Xjr`sXM2jl%(^~)WeBPD4T=ENHejJ*&eS1+
z4t<xb9C)#bz?)@xf31G1h}lb&ZJ2c`xKq2ex?b!StXVRRhzF-i1HYT)X1f#b@OI?5
zQE<)xK$;aOKTucl_yAAZo`*pN*~TPWm8>~)=gAa+scr#I<u+l9{6~Q-Y(@N<C1*GQ
zKQZ4q04YN2*!0b(i}g2kv)GVw=zW-^$`lDn6b9iX*AFzo;!(sM{^TsfA6Qm86H<Z<
z&ykVd60LQ1=6g|u>yS=RhXFiKEmqg+oW((<qY@VwaVXz>TEIwTX*Itj8ZVgULM0Uq
zk<5v-0{%q?2vb(%%ClDwsGcyuSxhD+v=2^yeggJZx>{`2cDF$~Aqj9}NSJs<LC%Vd
z+1Wy&&=CUlD~k@k1>}e+drb;Op(h7Tc%Bj(2{&Yv40acN8yU{fS041Kt0E`uHjCBv
zrkMp{bPQ=RQV#tB>Oz7Y>>+mrDK8}P0a4^6CKP%NM;RY5NwwgrCzglUeXj8hM_>d(
z7N)*oh7;3KM-s6x!vQ`n@&A1EOU2}f%=bNLtE-7#IE|zCB^f%L=77?63&Gh7_K-};
zCXaaH;ADYhcqb^6K8c32DrLNcXG28sxtF{CK-Hjd;clR=8dz7!d(X5TD#uT>;wS~k
z_AYPr0-Rew(=1rh*T5VY*ho|ErrObCZU3b47|5Zjc@W=o?@%QT^ri?dp6^cJvHBa7
zt3>Ul`M=zGoX^uV$qF5eQk|rc{(ImR-e0(ZcP9nfa)_r~on`ZR!gWbXI7176vi*!e
z1QI}q?x>Rh+HPuy7(i@Xqj3|q9qwZe8yDP28!C&)6(_1Uq(4w1St;s&C}+1MY_sMf
z_k?#5B@~@KW-A4k2!&VGkhB;PpiR$Bk23t`V#g6^$$qryHstQD!jNg}pZ46$g|WUD
zE;S?W0)Od7CEC=jqB)6@H>d4th>$kW7@1OJ<>N!G=^;3BV@&oq<eWXl&2v+&I*ng@
z$_ov-olW?x`i9pb1N?uHg`81G){ka}d7R9P3ZrC&3eQgwAqamaPz}awGvYby!^{zG
ze9527vM<3;hCk~B8hkln$h2!lG4@KMk2Di(jV(K8z3e6?;}PabR<8z$fhjO-14;qa
zT3QzrT5ervWQZwS2ML&x%}E$;K2R9UXnA0(R-%G-*W@U|370K90P_gxhj|fCFh0{g
z)H_5U>OQGf8{#+_OM?t&Apr5YY#;Krye2?!1T4$leg|k2V_XfUlKDtwPMN|I=4hly
z%Tjbf{Bl58H~FET#QZ97NFZA$ek>85TWk)q&&BOGm8T%$N0r9*GoY$Hga-|IDX|KK
zblH!y0a3|2#$GZcyHH%(Aw~vRxT$|ufd)tF4pTsf?+iLKiF0QqGb`*LN9fhKQ9~an
zjZ!kz)DgyL^6}NQaA3k;?Xa7?#k&(J!yVr9pKBCb8DH8GJn)N+f8o)4zs|UD+C%(m
zQ#D1f#$mu$m6pt9FD3(W@vSV#N*HL88LR0~!WTxU%xWKC>hQE6?7iWJ;N@4DBKjbO
zmT7I|6;aGC?NM(oLqN07dA<`xsV8mN*AymI7ZhplQrk}F$@x}{QGP;z^O4qMgXerx
VvP?rw{|yt+s~diq|D+jpeg_qd^>F|I

literal 0
HcmV?d00001

diff --git a/<mimc.mim>/em.mud.1 b/<mimc.mim>/em.mud.1
new file mode 100644
index 0000000..2594073
--- /dev/null
+++ b/<mimc.mim>/em.mud.1
@@ -0,0 +1,17 @@
+<DEFINE EMACRO (OBJ "AUX" (ERR <GET ERROR!-INTERRUPTS INTERRUPT>) TEM) 
+	<COND (.ERR <OFF .ERR>)>
+	<ON "ERROR"
+	    <FUNCTION (FR "TUPLE" T) 
+		    <COND (<AND <GASSIGNED? MACACT> <LEGAL? ,MACACT>>
+			   <DISMISS [!.T] ,MACACT>)
+			  (ELSE <APPLY ,<PARSE "OVALRET!-COMBAT!-"> " ">)>>
+	    100>
+	<COND (<TYPE? <SET TEM
+			   <PROG MACACT () #DECL ((MACACT) <SPECIAL ANY>)
+				 <SETG MACACT .MACACT>
+				 (<EXPAND .OBJ>)>>
+		      VECTOR>
+	       <OFF "ERROR">
+	       <COND (.ERR <EVENT .ERR>)>
+	       <ERROR " MACRO EXPANSION LOSSAGE " !.TEM>)
+	      (ELSE <OFF "ERROR"> <AND .ERR <EVENT .ERR>> <1 .TEM>)>>
\ No newline at end of file
-- 
2.31.1