$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLLIST.DCOM!11
0000000 ( F I L E C R E A T E D " 3 0
0000020 - S e p - 8 6 1 7 : 2 1 : 1 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > C M L L I S
0000120 T . ; 1 1 ) \r " 2 9 - S e p -
0000140 8 6 1 5 : 1 3 : 0 9 " i n
0000160 " X e r o x L i s p 2 9 - S
0000200 e p - 8 6 . . . " d a t e d
0000220 " 2 9 - S e p - 8 6 1 5 : 4
0000240 1 : 0 4 " ) \r ( F I L E C R E A
0000260 T E D " 3 0 - S e p - 8 6 1
0000300 7 : 1 8 : 4 0 " { E R I S } <
0000320 L I S P C O R E > S O U R C E S
0000340 > C M L L I S T . ; 1 1 5 7 5
0000360 6 5 c h a n g e s t o : (
0000400 V A R S \r C M L L I S T C O M
0000420 S ) p r e v i o u s d a t e
0000440 : " 3 0 - S e p - 8 6 1 1 :
0000460 5 3 : 2 3 " { E R I S } < L I
0000500 S P C O R E > S O U R C E S > C
0000520 M L L I S T . ; 1 0 ) \r ( R P A
0000540 Q Q C M L L I S T C O M S (
0000560 ( * ; ; ; \r " C M L L I S T
0000600 . C o m m o n L i s p L
0000620 i s t s C o v e r s a l l
0000640 o f c h a p t e r 1 5 - -
0000660 B y K e l l y R o a c h ,
0000700 L a r r y M a s i n t e r ,
0000720 a n d R o n F i s c h e r
0000740 , F r a n k S h i h . " \r )
0000760 ( C O M S ( * ; ; " S e
0001000 c t i o n 1 5 . 1 C o n s e
0001020 s . " ) ( * ; ; \r " C A R
0001040 , C D R , . . . , C D D D
0001060 D R ( a l l f u n c t i o n
0001100 s o n p a g e s 2 6 2 - 2
0001120 6 3 ) a r e O K . " ) ( *
0001140 ; ; " C O N S i s O K .
0001160 " ) ( F N S T R E E - E Q U
0001200 A L \r % % T R E E - E Q U A L
0001220 - T E S T % % T R E E - E Q U
0001240 A L - T E S T - N O T ) ) ( C
0001260 O M S ( * ; ; " S e c t i
0001300 o n 1 5 . 2 L i s t s . " )
0001320 ( F N S E N D P L I S T -
0001340 L E N G T H ) ( \r C O M S (
0001360 F N S C L : N T H % % S E T
0001400 N T H ) ( P R O P S E T F N
0001420 C L : N T H ) ) ( C O M S
0001440 ( F N S C L : F I R S T S E
0001460 C O N D T H I R D F O U R T
0001500 H F I F T H S I X T H \r S
0001520 E V E N T H E I G H T H N I
0001540 N T H T E N T H R E S T )
0001560 ( * ; ; " M a c r o s t o
0001600 m a k e S E T F w o r k
0001620 a n d c o d e o p t i m i z
0001640 e " ) ( O P T I M I Z E R S
0001660 \r C L : F I R S T S E C O N D
0001700 T H I R D F O U R T H F I
0001720 F T H S I X T H S E V E N T
0001740 H E I G H T H N I N T H T
0001760 E N T H R E S T ) ) ( F N S
0002000 N T H C D R ) ( * ; ; \r
0002020 " L A S T L I S T L I S T *
0002040 a r e O K . " ) ( F N S
0002060 M A K E - L I S T ) ( * ; ;
0002100 \r " C o m m o n L i s p A
0002120 P P E N D i s d i f f e r e
0002140 n t f r o m I n t e r l i s
0002160 p A P P E N D b e c a u s e
0002200 I n t e r l i s p A P P E N
0002220 D c o p i e s i t s l a s
0002240 t a r g w h i l e C o m m
0002260 o n L i s p A P P E N D d
0002300 o e s n o t . S e e p a
0002320 g e 2 6 8 o f t h e s i
0002340 l v e r b o o k . " \r ) ( F
0002360 N S C L : A P P E N D % % A
0002400 P P E N D ) ( F N S C O P Y
0002420 - L I S T C O P Y - A L I S T
0002440 C O P Y - T R E E R E V A P
0002460 P E N D ) ( * ; ; " N C O
0002500 N C i s O K . " ) ( F N S
0002520 \r N R E C O N C ) ( * ; ;
0002540 \r " C L : P U S H a n d C
0002560 L : P U S H N E W a r e m a
0002600 c r o s d e f i n e d s o m
0002620 e w h e r e e l s e . D o
0002640 n ' t k n o w w h e r e t
0002660 h a t i s . P O P i s
0002700 O K . " ) ( \r F N S B U T L
0002720 A S T N B U T L A S T C L :
0002740 L D I F F ) ) ( C O M S ( *
0002760 ; ; " S e c t i o n 1 5 .
0003000 3 A l t e r a t i o n o f
0003020 L i s t S t r u c t u r e . "
0003040 ) ( * ; ; \r " R P L A C A
0003060 R P L A C D a r e O K . "
0003100 ) ) ( C O M S ( * ; ; "
0003120 S e c t i o n 1 5 . 4 S u b
0003140 s t i t u t i o n o f E x p
0003160 r e s s i o n s . " ) ( D E C
0003200 L A R E : D O N T C O P Y \r
0003220 D O E V A L @ C O M P I L E (
0003240 F U N C T I O N S S P L I C E
0003260 T E S T - K E Y S - S U P P L
0003300 I E D ) ) ( F N S % % T E S
0003320 T ) ( F N S X X T E S T 1
0003340 X X T E S T 0 ) ( F N S C L
0003360 : S U B S T \r % % S U B S T
0003400 S U B S T - I F % % S U B S T
0003420 - I F S U B S T - I F - N O T
0003440 % % S U B S T - I F - N O T
0003460 N S U B S T % % N S U B S T
0003500 N S U B S T - I F % % N S U B
0003520 S T - I F \r N S U B S T - I F
0003540 - N O T % % N S U B S T - I F
0003560 - N O T ) ( F N S C L : S U
0003600 B L I S % % S U B L I S N S
0003620 U B L I S % % N S U B L I S )
0003640 ) ( C O M S ( * ; ; \r "
0003660 S e c t i o n 1 5 . 5 U s n
0003700 g L i s t s a s S e t s .
0003720 " ) ( F N S C L : M E M B E
0003740 R % % M E M B E R M E M B E
0003760 R - I F M E M B E R - I F - N
0004000 O T ) ( O P T I M I Z E R S
0004020 \r C L : M E M B E R ) ( * ;
0004040 ; " T A I L P i s O K . "
0004060 ) ( F N S A D J O I N ) (
0004100 F N S C L : U N I O N N U N
0004120 I O N ) ( F N S C L : I N T
0004140 E R S E C T I O N N I N T E R
0004160 S E C T I O N \r ) ( F N S S
0004200 E T - D I F F E R E N C E N S
0004220 E T - D I F F E R E N C E ) (
0004240 F N S S E T - E X C L U S I V
0004260 E - O R N S E T - E X C L U S
0004300 I V E - O R ) ( F N S S U B
0004320 S E T P ) ) ( C O M S ( \r *
0004340 ; ; " S e c t i o n 1 5 .
0004360 6 A s s o c i a t i o n L i
0004400 s t s . " ) ( F N S A C O N
0004420 S P A I R L I S ) ( F N S
0004440 C L : A S S O C % % A S S O C
0004460 A S S O C - I F \r A S S O C
0004500 - I F - N O T R A S S O C R
0004520 A S S O C - I F R A S S O C -
0004540 I F - N O T ) ) ( C O M S (
0004560 * ; ; " S e c t i o n 7 .
0004600 8 . 4 M a p p i n g " ) ( F
0004620 N S C L : M A P C A R \r C L
0004640 : M A P L I S T C L : M A P C
0004660 M A P L M A P C A N C L :
0004700 M A P C O N % % M A P ) ) (
0004720 C O M S ( * ; ; " S t u f
0004740 f I ' m n o t s u r e w
0004760 h e r e t o p l a c e y e
0005000 t . " ) \r ( * ; ; \r " I t
0005020 s e e m s t h a t D E L Q
0005040 A S S Q M E M Q a r e n '
0005060 t p a r t o f C o m m o n
0005100 L i s p b u t p a r t o
0005120 f S p i c e L i s p . W
0005140 h a t f u n c t i o n s i n
0005160 t h e s y s t e m a r e
0005200 c u r r e n t l y d e p e n d
0005220 i n g o n t h e s e f u n
0005240 c t i o n s ? " \r ) ( F N S
0005260 D E L Q ) ( P R O P D M A C
0005300 R O C L : L I S T - E V E R Y
0005320 ) ( P ( M O V D ( Q U O T
0005340 E A S S O C ) ( Q U O T E
0005360 A S S Q ) ) ( M O V D ( Q U
0005400 O T E F M E M B ) ( \r Q U O
0005420 T E M E M Q ) ) ) ) ( * ;
0005440 ; " A r r a n g e t o u s
0005460 e t h e c o r r e c t c o
0005500 m p i l e r . " ) ( P R O P
0005520 F I L E T Y P E C M L L I S T
0005540 ) ( D E C L A R E : \r D O N
0005560 T E V A L @ L O A D D O E V A
0005600 L @ C O M P I L E D O N T C O
0005620 P Y C O M P I L E R V A R S
0005640 ( A D D V A R S ( N L A M A )
0005660 ( N L A M L ) ( L A M A D
0005700 E L Q % % M A P C L : M A P
0005720 C O N \r M A P C A N M A P L
0005740 C L : M A P C C L : M A P L
0005760 I S T C L : M A P C A R R A
0006000 S S O C - I F - N O T R A S S
0006020 O C - I F R A S S O C A S S
0006040 O C - I F - N O T A S S O C -
0006060 I F % % A S S O C \r C L : A
0006100 S S O C P A I R L I S A C O
0006120 N S S U B S E T P N S E T -
0006140 E X C L U S I V E - O R S E T
0006160 - E X C L U S I V E - O R N S
0006200 E T - D I F F E R E N C E S E
0006220 T - D I F F E R E N C E \r N I
0006240 N T E R S E C T I O N C L : I
0006260 N T E R S E C T I O N N U N I
0006300 O N C L : U N I O N A D J O
0006320 I N M E M B E R - I F - N O T
0006340 M E M B E R - I F % % M E M
0006360 B E R C L : M E M B E R \r %
0006400 % N S U B L I S N S U B L I S
0006420 % % S U B L I S C L : S U B
0006440 L I S % % N S U B S T - I F -
0006460 N O T N S U B S T - I F - N O
0006500 T % % N S U B S T - I F N S
0006520 U B S T - I F % % N S U B S T
0006540 \r N S U B S T % % S U B S T
0006560 - I F - N O T S U B S T - I F
0006600 - N O T % % S U B S T - I F
0006620 S U B S T - I F % % S U B S T
0006640 C L : S U B S T X X T E S T
0006660 0 X X T E S T 1 % % T E S T
0006700 \r C L : L D I F F N B U T L
0006720 A S T B U T L A S T N R E C
0006740 O N C R E V A P P E N D C O
0006760 P Y - T R E E C O P Y - A L I
0007000 S T C L : A P P E N D M A K
0007020 E - L I S T N T H C D R R E
0007040 S T T E N T H \r N I N T H
0007060 E I G H T H S E V E N T H S
0007100 I X T H F I F T H F O U R T
0007120 H T H I R D S E C O N D C
0007140 L : F I R S T % % S E T N T H
0007160 C L : N T H L I S T - L E N
0007200 G T H \r % % T R E E - E Q U A
0007220 L - T E S T - N O T % % T R E
0007240 E - E Q U A L - T E S T T R E
0007260 E - E Q U A L ) ) ) ) ) \r T R E
0007300 E - E Q U A L D 1 \r ( L ( 0
0007320 - a r g s - ) ) \0 { \t \0 002 \0
0007340 e 021 001 \0 k a 021 q \b l 002 a 272 H l 003
0007360 274 273 L d K 363 262 ) 277 g \0 \0 275 H l 003
0007400 _ 016 277 276 O 016 d N 363 262 ) 277 h _ 020 277
0007420 M 262 7 O 020 262 > o \0 \0 \0 \t \0 \0 020 a
0007440 g \0 \0 360 225 L k 330 a 260 323 L l 002 324 \
0007460 260 303 a g \0 \0 360 226 O 016 k 330 a 260 320 O
0007500 016 l 002 324 _ 016 260 300 O 020 227 I J O 020 \v
0007520 \0 \0 020 I J M \v \0 \0 020 \0 ( 1 7 0 Q
0007540 % % T R E E - E Q U A L - T E
0007560 S T 1 6 1 Q % % T R E E - E
0007600 Q U A L - T E S T - N O T 7 5
0007620 Q C L : E R R O R ) \r ( 1 2 5
0007640 Q : T E S T - N O T 1 0 2 Q
0007660 : T E S T 3 3 Q E Q L ) \r
0007700 ( 7 2 Q " B o t h T E S T
0007720 a n d T E S T - N O T s u
0007740 p p l i e d . " ) \r % % T R E E
0007760 - E Q U A L - T E S T D 1 \r (
0010000 L ( 2 T E S T 1 Y 0
0010020 X ) ) \0 + \0 \0 \0 003 @ 003 262 034 A 003
0010040 264 027 @ 001 A 001 B \v \0 \0 264 \r @ 002 A 002
0010060 b 002 277 b \0 260 346 020 A 003 221 h 020 @ A l
0010100 002 B 016 020 \0 ( 1 7 Q % % T R E E
0010120 - E Q U A L - T E S T ) \r N I L
0010140 \r ( ) \r % % T R E E - E Q U A L
0010160 - T E S T - N O T D 1 \r ( L
0010200 ( 2 T E S T - N O T 1 Y
0010220 0 X ) ) \0 - \0 \0 \0 003 @ 003 262 034
0010240 A 003 264 027 @ 001 A 001 B \v \0 \0 264 \r @ 002
0010260 A 002 b 002 277 b \0 260 346 020 A 003 221 h 020 @
0010300 A l 002 B 016 h 360 020 \0 ( 1 7 Q % %
0010320 T R E E - E Q U A L - T E S T -
0010340 N O T ) \r N I L \r ( ) \r E N D P
0010360 D 1 \r ( I 0 O B J E C T )
0010400 \0 023 \0 \0 \0 001 @ 265 004 i 020 003 221 h 020
0010420 o \0 \0 \0 @ \n \0 \0 020 \0 ( 2 0 Q E
0010440 R R O R ) \r N I L \r ( 1 4 Q
0010460 " A r g n o t l i s t " ) \r
0010500 L I S T - L E N G T H D 1 \r (
0010520 L ( 0 L I S T ) ) \0 1 003 \0
0010540 \0 001 j @ d 021 003 002 I d \t \0 \0 221 H 020
0010560 002 \t \0 \0 223 H k 324 020 I J 360 226 H d j
0010600 363 222 h 020 H l 002 324 I 002 002 J 002 272 271 270
0010620 260 330 \0 ( 2 1 Q E N D P 1 2 Q
0010640 E N D P ) \r N I L \r ( ) \r C L
0010660 : N T H D 1 \r ( L ( 1 L I
0010700 S T 0 N ) ) \0 \b \0 \0 \0 002 @
0010720 A \n \0 \0 001 020 \0 ( 4 N T H C D R
0010740 ) \r N I L \r ( ) \r % % S E T N T
0010760 H D 1 \r ( L ( 2 N E W V A
0011000 L 1 L I S T 0 N ) ) \0
0011020 B 001 \0 \0 003 j @ 363 230 o \0 \0 \0 @ \n \0
0011040 \0 020 @ 021 001 \0 H j 360 263 036 H 005 003 265 024
0011060 A d 002 \t \0 \0 262 026 277 o \0 \0 \0 @ \n \0
0011100 \0 214 \t \0 \0 262 353 A B 030 B 020 002 b 002 277
0011120 H k 325 X 260 323 \0 ( 5 7 Q \ F Z E
0011140 R O P 5 3 Q C L : E R R O R
0011160 4 0 Q E N D P 1 3 Q C L
0011200 : E R R O R ) \r N I L \r ( 4 7
0011220 Q " ~ S i s t o o l a r
0011240 g e a n i n d e x f o r
0011260 S E T F o f N T H . " 7
0011300 " ~ S i s a n i l l e g a
0011320 l N f o r S E T F o f
0011340 N T H . " ) \r ( P U T P R O P S
0011360 C L : N T H S E T F N % %
0011400 S E T N T H ) \r C L : F I R S T
0011420 D 1 \r ( L ( 0 L I S T ) )
0011440 \0 004 \0 \0 \0 001 @ 001 020 \0 N I L \r N
0011460 I L \r ( ) \r S E C O N D D 1 \r
0011500 ( L ( 0 L I S T ) ) \0 005 \0
0011520 \0 \0 001 @ 002 001 020 \0 N I L \r N I L \r
0011540 ( ) \r T H I R D D 1 \r ( L (
0011560 0 L I S T ) ) \0 006 \0 \0 \0 001 @
0011600 002 002 001 020 \0 N I L \r N I L \r ( ) \r
0011620 F O U R T H D 1 \r ( L ( 0
0011640 L I S T ) ) \0 \a \0 \0 \0 001 @ 002 002
0011660 002 001 020 \0 N I L \r N I L \r ( ) \r F
0011700 I F T H D 1 \r ( L ( 0 L I
0011720 S T ) ) \0 \b \0 \0 \0 001 @ 002 002 002 002
0011740 001 020 \0 N I L \r N I L \r ( ) \r S I
0011760 X T H D 1 \r ( L ( 0 L I S
0012000 T ) ) \0 \t \0 \0 \0 001 @ 002 002 002 002 002
0012020 001 020 \0 N I L \r N I L \r ( ) \r S E
0012040 V E N T H D 1 \r ( L ( 0 L
0012060 I S T ) ) \0 \n \0 \0 \0 001 @ 002 002 002
0012100 002 002 002 001 020 \0 N I L \r N I L \r ( )
0012120 \r E I G H T H D 1 \r ( L ( 0
0012140 L I S T ) ) \0 \v \0 \0 \0 001 @ 002
0012160 002 002 002 002 002 002 001 020 \0 N I L \r N I L
0012200 \r ( ) \r N I N T H D 1 \r ( L
0012220 ( 0 L I S T ) ) \0 \f \0 \0 \0 001
0012240 @ 002 002 002 002 002 002 002 002 001 020 \0 N I L \r
0012260 N I L \r ( ) \r T E N T H D 1 \r
0012300 ( L ( 0 L I S T ) ) \0 \r \0
0012320 \0 \0 001 @ 002 002 002 002 002 002 002 002 002 001 020 \0
0012340 N I L \r N I L \r ( ) \r R E S T
0012360 D 1 \r ( L ( 0 L I S T ) )
0012400 \0 004 \0 \0 \0 001 @ 002 020 \0 N I L \r N I
0012420 L \r ( ) \r o p t i m i z e - C L
0012440 : F I R S T D 1 \r ( L ( 2
0012460 $ $ C T X 1 $ $ E N V 0
0012500 $ $ W H O L E ) ) \0 \f 001 \0 \0 003
0012520 @ 002 021 001 \0 g \0 \0 H 032 020 \0 N I L \r
0012540 ( 7 C A R ) \r ( ) \r ( P U T P
0012560 R O P ( Q U O T E C L : F I
0012600 R S T ) ( Q U O T E C O M P
0012620 I L E R : O P T I M I Z E R - L
0012640 I S T ) ( U N I O N ( G E T
0012660 P R O P ( Q U O T E C L : F
0012700 I R S T ) ( Q U O T E \r C O
0012720 M P I L E R : O P T I M I Z E R
0012740 - L I S T ) ) ( L I S T ( Q
0012760 U O T E o p t i m i z e - C L
0013000 : F I R S T ) ) ) ) \r o p t i m
0013020 i z e - S E C O N D D 1 \r ( L
0013040 ( 2 $ $ C T X 1 $ $ E N
0013060 V 0 $ $ W H O L E ) ) \0 \f
0013100 001 \0 \0 003 @ 002 021 001 \0 g \0 \0 H 032 020 \0
0013120 N I L \r ( 7 C A D R ) \r ( ) \r
0013140 ( P U T P R O P ( Q U O T E
0013160 S E C O N D ) ( Q U O T E C
0013200 O M P I L E R : O P T I M I Z E
0013220 R - L I S T ) ( U N I O N (
0013240 G E T P R O P ( Q U O T E S
0013260 E C O N D ) ( Q U O T E \r C
0013300 O M P I L E R : O P T I M I Z E
0013320 R - L I S T ) ) ( L I S T (
0013340 Q U O T E o p t i m i z e - S
0013360 E C O N D ) ) ) ) \r o p t i m i
0013400 z e - T H I R D D 1 \r ( L (
0013420 2 $ $ C T X 1 $ $ E N V
0013440 0 $ $ W H O L E ) ) \0 017 001 \0
0013460 \0 003 @ 002 001 021 001 \0 g \0 \0 H h 032 032 020
0013500 \0 N I L \r ( 1 0 Q C A D D R )
0013520 \r ( ) \r ( P U T P R O P ( Q U
0013540 O T E T H I R D ) ( Q U O T
0013560 E C O M P I L E R : O P T I M
0013600 I Z E R - L I S T ) ( U N I O
0013620 N ( G E T P R O P ( Q U O T
0013640 E T H I R D ) ( Q U O T E
0013660 \r C O M P I L E R : O P T I M I
0013700 Z E R - L I S T ) ) ( L I S T
0013720 ( Q U O T E o p t i m i z e
0013740 - T H I R D ) ) ) ) \r o p t i m
0013760 i z e - F O U R T H D 1 \r ( L
0014000 ( 2 $ $ C T X 1 $ $ E N
0014020 V 0 $ $ W H O L E ) ) \0 017
0014040 001 \0 \0 003 @ 002 001 021 001 \0 g \0 \0 H h 032
0014060 032 020 \0 N I L \r ( 1 0 Q C A D D
0014100 D R ) \r ( ) \r ( P U T P R O P
0014120 ( Q U O T E F O U R T H ) (
0014140 Q U O T E C O M P I L E R : O
0014160 P T I M I Z E R - L I S T ) (
0014200 U N I O N ( G E T P R O P (
0014220 Q U O T E F O U R T H ) ( Q
0014240 U O T E \r C O M P I L E R : O
0014260 P T I M I Z E R - L I S T ) )
0014300 ( L I S T ( Q U O T E o p t
0014320 i m i z e - F O U R T H ) ) ) )
0014340 \r o p t i m i z e - F I F T H
0014360 D 1 \r ( L ( 2 $ $ C T X 1
0014400 $ $ E N V 0 $ $ W H O L E
0014420 ) ) \0 025 001 \0 \0 003 @ 002 001 021 001 \0 g
0014440 \0 \0 g \0 \0 H h 032 032 h 032 032 020 \0 N I
0014460 L \r ( 1 3 Q C D D D D R 1 0
0014500 Q C A R ) \r ( ) \r ( P U T P R
0014520 O P ( Q U O T E F I F T H )
0014540 ( Q U O T E C O M P I L E R
0014560 : O P T I M I Z E R - L I S T )
0014600 ( U N I O N ( G E T P R O P
0014620 ( Q U O T E F I F T H ) (
0014640 Q U O T E \r C O M P I L E R :
0014660 O P T I M I Z E R - L I S T ) )
0014700 ( L I S T ( Q U O T E o p
0014720 t i m i z e - F I F T H ) ) ) )
0014740 \r o p t i m i z e - S I X T H
0014760 D 1 \r ( L ( 2 $ $ C T X 1
0015000 $ $ E N V 0 $ $ W H O L E
0015020 ) ) \0 025 001 \0 \0 003 @ 002 001 021 001 \0 g
0015040 \0 \0 g \0 \0 H h 032 032 h 032 032 020 \0 N I
0015060 L \r ( 1 3 Q C D D D D R 1 0
0015100 Q C A D R ) \r ( ) \r ( P U T P
0015120 R O P ( Q U O T E S I X T H
0015140 ) ( Q U O T E C O M P I L E
0015160 R : O P T I M I Z E R - L I S T
0015200 ) ( U N I O N ( G E T P R O
0015220 P ( Q U O T E S I X T H )
0015240 ( Q U O T E \r C O M P I L E R
0015260 : O P T I M I Z E R - L I S T )
0015300 ) ( L I S T ( Q U O T E o
0015320 p t i m i z e - S I X T H ) ) )
0015340 ) \r o p t i m i z e - S E V E N
0015360 T H D 1 \r ( L ( 2 $ $ C T
0015400 X 1 $ $ E N V 0 $ $ W H
0015420 O L E ) ) \0 025 001 \0 \0 003 @ 002 001 021
0015440 001 \0 g \0 \0 g \0 \0 H h 032 032 h 032 032 020
0015460 \0 N I L \r ( 1 3 Q C D D D D R
0015500 1 0 Q C A D D R ) \r ( ) \r (
0015520 P U T P R O P ( Q U O T E S
0015540 E V E N T H ) ( Q U O T E C
0015560 O M P I L E R : O P T I M I Z E
0015600 R - L I S T ) ( U N I O N (
0015620 G E T P R O P ( Q U O T E S
0015640 E V E N T H ) ( Q U O T E \r
0015660 C O M P I L E R : O P T I M I Z
0015700 E R - L I S T ) ) ( L I S T
0015720 ( Q U O T E o p t i m i z e -
0015740 S E V E N T H ) ) ) ) \r o p t i
0015760 m i z e - E I G H T H D 1 \r (
0016000 L ( 2 $ $ C T X 1 $ $ E
0016020 N V 0 $ $ W H O L E ) ) \0
0016040 025 001 \0 \0 003 @ 002 001 021 001 \0 g \0 \0 g \0
0016060 \0 H h 032 032 h 032 032 020 \0 N I L \r ( 1
0016100 3 Q C D D D D R 1 0 Q C A
0016120 D D D R ) \r ( ) \r ( P U T P R O
0016140 P ( Q U O T E E I G H T H )
0016160 ( Q U O T E C O M P I L E R
0016200 : O P T I M I Z E R - L I S T )
0016220 ( U N I O N ( G E T P R O P
0016240 ( Q U O T E E I G H T H )
0016260 ( Q U O T E \r C O M P I L E R
0016300 : O P T I M I Z E R - L I S T )
0016320 ) ( L I S T ( Q U O T E o
0016340 p t i m i z e - E I G H T H ) )
0016360 ) ) \r o p t i m i z e - N I N T
0016400 H D 1 \r ( L ( 2 $ $ C T X
0016420 1 $ $ E N V 0 $ $ W H O
0016440 L E ) ) \0 031 001 \0 \0 003 @ 002 001 021 001
0016460 \0 g \0 \0 g \0 \0 d H h 032 032 h 032 032 h
0016500 032 032 020 \0 N I L \r ( 1 3 Q C D D
0016520 D D R 1 0 Q C A R ) \r ( ) \r
0016540 ( P U T P R O P ( Q U O T E
0016560 N I N T H ) ( Q U O T E C O
0016600 M P I L E R : O P T I M I Z E R
0016620 - L I S T ) ( U N I O N ( G
0016640 E T P R O P ( Q U O T E N I
0016660 N T H ) ( Q U O T E \r C O M
0016700 P I L E R : O P T I M I Z E R -
0016720 L I S T ) ) ( L I S T ( Q U
0016740 O T E o p t i m i z e - N I N
0016760 T H ) ) ) ) \r o p t i m i z e -
0017000 T E N T H D 1 \r ( L ( 2 $
0017020 $ C T X 1 $ $ E N V 0 $
0017040 $ W H O L E ) ) \0 031 001 \0 \0 003 @
0017060 002 001 021 001 \0 g \0 \0 g \0 \0 d H h 032 032
0017100 h 032 032 h 032 032 020 \0 N I L \r ( 1 3 Q
0017120 C D D D D R 1 0 Q C A D R
0017140 ) \r ( ) \r ( P U T P R O P ( Q
0017160 U O T E T E N T H ) ( Q U O
0017200 T E C O M P I L E R : O P T I
0017220 M I Z E R - L I S T ) ( U N I
0017240 O N ( G E T P R O P ( Q U O
0017260 T E T E N T H ) ( Q U O T E
0017300 \r C O M P I L E R : O P T I M
0017320 I Z E R - L I S T ) ) ( L I S
0017340 T ( Q U O T E o p t i m i z
0017360 e - T E N T H ) ) ) ) \r o p t i
0017400 m i z e - R E S T D 1 \r ( L
0017420 ( 2 $ $ C T X 1 $ $ E N V
0017440 0 $ $ W H O L E ) ) \0 017 001
0017460 \0 \0 003 @ 002 001 021 001 \0 g \0 \0 H h 032 032
0017500 020 \0 N I L \r ( 1 0 Q C D R ) \r
0017520 ( ) \r ( P U T P R O P ( Q U O
0017540 T E R E S T ) ( Q U O T E
0017560 C O M P I L E R : O P T I M I Z
0017600 E R - L I S T ) ( U N I O N
0017620 ( G E T P R O P ( Q U O T E
0017640 R E S T ) ( Q U O T E \r C O
0017660 M P I L E R : O P T I M I Z E R
0017700 - L I S T ) ) ( L I S T ( Q
0017720 U O T E o p t i m i z e - R E
0017740 S T ) ) ) ) \r N T H C D R D 1
0017760 \r ( L ( 1 L I S T 0 N )
0020000 ) \0 - \0 \0 \0 002 @ 3 223 j @ 363 230
0020020 o \0 \0 \0 @ \n \0 \0 020 @ j \n \0 \0 221 A
0020040 020 A d \t \0 \0 221 h 020 002 b 002 277 @ k 325
0020060 b \0 260 350 \0 ( 3 5 Q E N D P 2
0020100 5 Q % % = 1 7 Q C L : E R
0020120 R O R ) \r N I L \r ( 1 3 Q "
0020140 N = ~ S i s i l l e g a
0020160 l f o r N T H C D R . " ) \r
0020200 M A K E - L I S T D 1 \r ( L
0020220 ( 0 - a r g s - ) ) \0 S \a \0
0020240 002 \0 e 021 001 \0 k a 021 Q 006 H l 002 273 272
0020260 K d J 363 262 023 277 h 274 j I 363 262 036 o \0
0020300 \0 \0 I \n \0 \0 020 a g \0 \0 360 225 K k 330
0020320 a 260 347 K l 002 324 [ 260 331 I h 276 ] j 360
0020340 251 M d 005 003 226 d \t \0 \0 221 N 020 k 325 L
0020360 N 032 260 352 \0 ( 1 0 7 Q \ F Z E R
0020400 O P 4 3 Q C L : E R R O R )
0020420 \r ( 5 0 Q : I N I T I A L - E
0020440 L E M E N T ) \r ( 3 7 Q " ~
0020460 S i s a n i l l e g a l
0020500 s i z e f o r M A K E - L I
0020520 S T . " ) \r C L : A P P E N D
0020540 D 1 \r ( P 4 N P 2 N
0020560 P 1 V A L P 0 L ) \0
0020600 3 005 \0 002 \0 e 021 001 \0 021 002 H d j 360
0020620 221 h 020 k 360 222 k a 020 H a Y k H k 331
0020640 021 002 004 K L 363 255 L a I \n \0 \0 271 L m
0020660 377 324 274 260 360 I 020 \0 ( 4 7 Q % % A
0020700 P P E N D ) \r N I L \r ( ) \r % %
0020720 A P P E N D D 1 \r ( P 1 T
0020740 A I L P 0 A N S W E R I
0020760 1 L 2 I 0 L 1 ) \0 8
0021000 006 \0 \0 002 021 ` 005 @ \t \0 \0 221 A 020 @ 001
0021020 @ 002 b \0 277 h 032 X 271 @ \t \0 \0 230 I 273
0021040 A 272 K J 031 H 020 I 275 @ 001 @ 002 b \0 277
0021060 h 032 274 M L 031 277 I 002 260 337 \0 ( 3 0 Q
0021100 E N D P 6 E N D P ) \r N I
0021120 L \r ( ) \r C O P Y - L I S T D
0021140 1 \r ( L ( 0 L ) ) \0 037 002 \0
0021160 \0 001 @ d 003 262 026 001 h 032 021 021 001 H Y @
0021200 002 b \0 d 003 245 222 I @ 031 H 020 001 & 260 360
0021220 \0 N I L \r N I L \r ( ) \r C O P Y
0021240 - A L I S T D 1 \r ( L ( 0
0021260 A L I S T ) ) \0 E 003 \0 \0 001 @ d
0021300 003 252 264 * o \0 \0 \0 @ \n \0 \0 020 001 003 242
0021320 @ 001 206 @ 001 001 @ 001 002 032 h 032 021 ! 002 @
0021340 002 H 272 Y d 003 245 222 J I 031 H 020 002 J d
0021360 I d 001 003 241 001 205 001 001 I 001 002 032 & 277 002
0021400 260 342 \0 ( 1 5 Q C L : E R R O R
0021420 ) \r N I L \r ( 1 1 Q " ~ S
0021440 i s n o t a l i s t . " )
0021460 \r C O P Y - T R E E D 1 \r ( L
0021500 ( 0 O B J E C T ) ) \0 020 \0
0021520 \0 \0 001 @ d 003 231 001 \t \0 \0 @ 002 \t \0 \0
0021540 032 020 \0 ( 1 4 Q C O P Y - T R E
0021560 E 7 C O P Y - T R E E ) \r N
0021600 I L \r ( ) \r R E V A P P E N D
0021620 D 1 \r ( L ( 1 Y 0 X ) )
0021640 \0 027 002 \0 \0 002 @ A 021 002 001 H d \t \0
0021660 \0 221 I 020 002 H 001 I 032 271 X 260 362 \0 ( 1
0021700 1 Q E N D P ) \r N I L \r ( ) \r
0021720 N R E C O N C D 1 \r ( L ( 1
0021740 Y 0 X ) ) \0 \n \0 \0 \0 002 @
0021760 \t \0 \0 A \n \0 \0 020 \0 ( 7 \ N C O
0022000 N C 2 3 N R E V E R S E ) \r
0022020 N I L \r ( ) \r B U T L A S T D
0022040 1 \r ( L ( 0 - a r g s - ) )
0022060 \0 L \b \0 002 \0 e 021 001 \0 k a 021 a \a
0022100 l 002 H 361 221 k 202 l 002 a 272 j J 363 221 j
0022120 272 I \t \0 \0 k 325 273 J K 363 221 h 020 I 002
0022140 274 I 001 h 032 ] 276 K _ 016 J \n \0 \0 221 M
0022160 020 N d L 001 & 277 002 276 L 002 274 O 016 k 325
0022200 260 350 \0 ( 6 6 Q % % = 3 5 Q
0022220 L E N G T H ) \r N I L \r ( ) \r N
0022240 B U T L A S T D 1 \r ( L ( 0
0022260 - a r g s - ) ) \0 E \a \0 002 \0
0022300 e 021 001 \0 k a 021 ! 003 l 002 H 361 221 k 202
0022320 l 002 a 272 j J 363 221 j 272 I \t \0 \0 k 325
0022340 273 J K 363 221 h 020 I 002 I K 021 003 006 N J
0022360 \n \0 \0 224 M h 031 I 020 L 002 L N k 325 276
0022400 275 274 260 354 \0 ( 6 2 Q % % = 3 5
0022420 Q L E N G T H ) \r N I L \r ( )
0022440 \r C L : L D I F F D 1 \r ( L
0022460 ( 1 S U B L I S T 0 L I S
0022500 T ) ) \0 003 \0 \0 002 @ 021 ! 002 h h
0022520 032 Y 272 H 223 H A 360 222 I 002 020 J d H 001
0022540 & 277 002 272 H 002 X 260 355 \0 N I L \r N I
0022560 L \r ( ) \r % % T E S T D 1 \r (
0022600 L ( 4 K E Y 3 T E S T -
0022620 N O T 2 T E S T 1 K E Y
0022640 I T E M 0 I T E M ) ) \0 037
0022660 \0 \0 \0 005 B 231 @ A k D 016 l 002 B 016 020
0022700 C 233 @ A k D 016 l 002 C 016 h 360 020 \b \0
0022720 \0 020 \0 ( 3 4 Q S H O U L D N T
0022740 ) \r N I L \r ( ) \r X X T E S T 1
0022760 D 1 \r ( L ( 3 K E Y 2
0023000 T E S T 1 K E Y I T E M 0
0023020 I T E M ) ) \0 \v \0 \0 \0 004 @ A
0023040 k C 016 l 002 B 016 020 \0 N I L \r N I L
0023060 \r ( ) \r X X T E S T 0 D 1 \r (
0023100 L ( 3 K E Y 2 T E S T -
0023120 N O T 1 K E Y I T E M 0
0023140 I T E M ) ) \0 \r \0 \0 \0 004 @ A k
0023160 C 016 l 002 B 016 h 360 020 \0 N I L \r N I
0023200 L \r ( ) \r C L : S U B S T D 1
0023220 \r ( L ( 0 - a r g s - ) )
0023240 \0 273 \r \0 002 \0 e 021 001 \0 k a 021 261 \f l
0023260 002 a 272 l 003 a 273 H l 004 275 274 M d L 363
0023300 262 A 277 h 276 H l 004 _ 020 277 _ 016 277 O 020
0023320 d O 016 363 262 @ 277 h _ 022 277 H l 004 _ 026
0023340 277 _ 024 277 O 026 d O 024 363 262 @ 277 h _ 030
0023360 277 N 262 P O 022 262 J o \0 \0 \0 \t \0 \0 260
0023400 J a g \0 \0 360 225 M k 330 a 260 271 M l 002
0023420 324 ] 260 253 a g \0 \0 360 226 O 020 k 330 a 260
0023440 271 O 020 l 002 324 _ 020 260 250 a g \0 \0 360 226
0023460 O 026 k 330 a 260 271 O 026 l 002 324 _ 026 260 250
0023500 N 247 O 022 244 g \0 \0 ^ 277 O 030 245 g \0 \0
0023520 _ 030 277 I J K N O 022 O 030 \r 006 \0 \0 020
0023540 \0 ( 2 7 0 Q % % S U B S T 1
0023560 3 0 Q C L : E R R O R ) \r ( 2
0023600 5 1 Q I D E N T I T Y 2 4 1
0023620 Q E Q L 2 0 7 Q : K E Y
0023640 1 6 1 Q : T E S T - N O T 1
0023660 3 6 Q : T E S T ) \r ( 1 2 5
0023700 Q " B o t h T E S T a n d
0023720 T E S T - N O T s u p p l i
0023740 e d . " ) \r % % S U B S T D 1
0023760 \r ( L ( 5 K E Y 4 T E S
0024000 T - N O T 3 T E S T 2 T
0024020 R E E 1 O L D 0 N E W )
0024040 ) \0 = 002 \0 \0 006 A B C D E \r 005 \0
0024060 \0 221 @ 020 B 003 241 B 020 @ A B 001 C D E
0024100 \r 006 \0 \0 @ A B 002 C D E \r 006 \0 \0 021
0024120 002 001 H d B 001 360 230 277 I B 002 360 221 B 020
0024140 H I 032 020 \0 ( 4 6 Q % % S U B S
0024160 T 3 3 Q % % S U B S T 1 0
0024200 Q % % T E S T ) \r N I L \r ( )
0024220 \r S U B S T - I F D 1 \r ( L
0024240 ( 0 - a r g s - ) ) \0 < \a \0
0024260 002 \0 e 021 001 \0 k a 021 Q 006 l 002 a 272 l
0024300 003 a 273 H l 004 275 274 M d L 363 234 277 g \0
0024320 \0 276 I J K N \f \0 \0 020 a g \0 \0 360 225
0024340 M k 330 a 260 355 M l 002 324 ] 260 336 \0 ( 4
0024360 6 Q % % S U B S T - I F ) \r (
0024400 5 3 Q : K E Y 3 6 Q I D E
0024420 N T I T Y ) \r ( ) \r % % S U B S
0024440 T - I F D 1 \r ( L ( 3 K E
0024460 Y 2 T R E E 1 T E S T
0024500 0 N E W ) ) \0 5 002 \0 \0 004 B d
0024520 k C 016 k A 016 221 @ 020 003 241 B 020 @ A B
0024540 001 C \f \0 \0 @ A B 002 C \f \0 \0 021 002 001
0024560 H d B 001 360 230 277 I B 002 360 221 B 020 H I
0024600 032 020 \0 ( 3 6 Q % % S U B S T -
0024620 I F 2 6 Q % % S U B S T - I
0024640 F ) \r N I L \r ( ) \r S U B S T -
0024660 I F - N O T D 1 \r ( L ( 0
0024700 - a r g s - ) ) \0 < \a \0 002 \0 e
0024720 021 001 \0 k a 021 Q 006 l 002 a 272 l 003 a 273
0024740 H l 004 275 274 M d L 363 234 277 g \0 \0 276 I
0024760 J K N \f \0 \0 020 a g \0 \0 360 225 M k 330
0025000 a 260 355 M l 002 324 ] 260 336 \0 ( 4 6 Q
0025020 % % S U B S T - I F - N O T ) \r
0025040 ( 5 3 Q : K E Y 3 6 Q I D
0025060 E N T I T Y ) \r ( ) \r % % S U B
0025100 S T - I F - N O T D 1 \r ( L
0025120 ( 3 K E Y 2 T R E E 1
0025140 T E S T 0 N E W ) ) \0 5 002
0025160 \0 \0 004 B d k C 016 k A 016 241 @ 020 003 241
0025200 B 020 @ A B 001 C \f \0 \0 @ A B 002 C \f
0025220 \0 \0 021 002 001 H d B 001 360 230 277 I B 002 360
0025240 221 B 020 H I 032 020 \0 ( 3 6 Q % % S
0025260 U B S T - I F - N O T 2 6 Q
0025300 % % S U B S T - I F - N O T ) \r
0025320 N I L \r ( ) \r N S U B S T D 1
0025340 \r ( L ( 0 - a r g s - ) )
0025360 \0 273 \r \0 002 \0 e 021 001 \0 k a 021 261 \f l
0025400 002 a 272 l 003 a 273 H l 004 275 274 M d L 363
0025420 262 A 277 h 276 H l 004 _ 020 277 _ 016 277 O 020
0025440 d O 016 363 262 @ 277 h _ 022 277 H l 004 _ 026
0025460 277 _ 024 277 O 026 d O 024 363 262 @ 277 h _ 030
0025500 277 N 262 P O 022 262 J o \0 \0 \0 \t \0 \0 260
0025520 J a g \0 \0 360 225 M k 330 a 260 271 M l 002
0025540 324 ] 260 253 a g \0 \0 360 226 O 020 k 330 a 260
0025560 271 O 020 l 002 324 _ 020 260 250 a g \0 \0 360 226
0025600 O 026 k 330 a 260 271 O 026 l 002 324 _ 026 260 250
0025620 N 247 O 022 244 g \0 \0 ^ 277 O 030 245 g \0 \0
0025640 _ 030 277 I J K N O 022 O 030 \r 006 \0 \0 020
0025660 \0 ( 2 7 0 Q % % N S U B S T
0025700 1 3 0 Q C L : E R R O R ) \r (
0025720 2 5 1 Q I D E N T I T Y 2 4
0025740 1 Q E Q L 2 0 7 Q : K E Y
0025760 1 6 1 Q : T E S T - N O T
0026000 1 3 6 Q : T E S T ) \r ( 1 2
0026020 5 Q " B o t h T E S T a n
0026040 d T E S T - N O T s u p p l
0026060 i e d . " ) \r % % N S U B S T
0026100 D 1 \r ( L ( 5 K E Y 4 T
0026120 E S T - N O T 3 T E S T 2
0026140 T R E E 1 O L D 0 N E
0026160 W ) ) \0 M 005 \0 \0 006 021 P 004 A B C
0026200 D E \r 005 \0 \0 221 @ 020 B X 003 241 B 020 A
0026220 H 001 C D E \r 005 \0 \0 227 H 272 @ 271 J I
0026240 030 212 @ A H 001 C D E \r 006 \0 \0 277 A H
0026260 002 C D E \r 005 \0 \0 230 H 274 @ 273 L K 031
0026300 B 020 H 002 260 306 \0 ( 7 5 Q % % T E
0026320 S T 6 2 Q % % N S U B S T
0026340 3 6 Q % % T E S T 1 3 Q %
0026360 % T E S T ) \r N I L \r ( ) \r N S
0026400 U B S T - I F D 1 \r ( L ( 0
0026420 - a r g s - ) ) \0 < \a \0 002 \0
0026440 e 021 001 \0 k a 021 Q 006 l 002 a 272 l 003 a
0026460 273 H l 004 275 274 M d L 363 234 277 g \0 \0 276
0026500 I J K N \f \0 \0 020 a g \0 \0 360 225 M k
0026520 330 a 260 355 M l 002 324 ] 260 336 \0 ( 4 6 Q
0026540 % % N S U B S T - I F ) \r ( 5
0026560 3 Q : K E Y 3 6 Q I D E N
0026600 T I T Y ) \r ( ) \r % % N S U B S
0026620 T - I F D 1 \r ( L ( 3 K E
0026640 Y 2 T R E E 1 T E S T
0026660 0 N E W ) ) \0 Q \b \0 \0 004 B d
0026700 k C 016 k A 016 221 @ 020 003 241 B 020 021 200 \a
0026720 B ] d 003 263 023 k C 016 k A 016 262 031 H 272
0026740 @ 271 J I 031 277 215 k C 016 k A 016 230 H 274
0026760 @ 273 L K 031 B 020 M _ 016 277 @ A M 001 C
0027000 \f \0 \0 276 O 016 N 030 277 M X 002 260 305 \0 (
0027020 1 0 4 Q % % N S U B S T - I F
0027040 ) \r N I L \r ( ) \r N S U B S T -
0027060 I F - N O T D 1 \r ( L ( 0
0027100 - a r g s - ) ) \0 < \a \0 002 \0 e
0027120 021 001 \0 k a 021 Q 006 l 002 a 272 l 003 a 273
0027140 H l 004 275 274 M d L 363 234 277 g \0 \0 276 I
0027160 J K N \f \0 \0 020 a g \0 \0 360 225 M k 330
0027200 a 260 355 M l 002 324 ] 260 336 \0 ( 4 6 Q
0027220 % % N S U B S T - I F - N O T )
0027240 \r ( 5 3 Q : K E Y 3 6 Q I
0027260 D E N T I T Y ) \r ( ) \r % % N S
0027300 U B S T - I F - N O T D 1 \r (
0027320 L ( 3 K E Y 2 T R E E
0027340 1 T E S T 0 N E W ) ) \0
0027360 Q \b \0 \0 004 B d k C 016 k A 016 241 @ 020
0027400 003 241 B 020 021 200 \a B ] d 003 263 023 k C 016
0027420 k A 016 263 031 H 272 @ 271 J I 031 277 215 k C
0027440 016 k A 016 250 H 274 @ 273 L K 031 B 020 M _
0027460 016 277 @ A M 001 C \f \0 \0 276 O 016 N 030 277
0027500 M X 002 260 305 \0 ( 1 0 4 Q % % N S
0027520 U B S T - I F - N O T ) \r N I L
0027540 \r ( ) \r C L : S U B L I S D 1
0027560 \r ( L ( 0 - a r g s - ) )
0027600 \0 263 \f \0 002 \0 e 021 001 \0 k a 021 241 \v l
0027620 002 a 272 H l 003 274 273 L d K 363 262 > 277 h
0027640 275 H l 003 _ 016 277 276 O 016 d N 363 262 @ 277
0027660 h _ 020 277 H l 003 _ 024 277 _ 022 277 O 024 d
0027700 O 022 363 262 @ 277 h _ 026 277 M 262 P O 020 262
0027720 J o \0 \0 \0 \t \0 \0 260 J a g \0 \0 360 225
0027740 L k 330 a 260 274 L l 002 324 \ 260 256 a g \0
0027760 \0 360 226 O 016 k 330 a 260 271 O 016 l 002 324 _
0030000 016 260 251 a g \0 \0 360 226 O 024 k 330 a 260 271
0030020 O 024 l 002 324 _ 024 260 250 M 247 O 020 244 g \0
0030040 \0 ] 277 O 026 245 g \0 \0 _ 026 277 I J M O
0030060 020 O 026 \r 005 \0 \0 020 \0 ( 2 6 0 Q %
0030100 % S U B L I S 1 2 1 Q C L :
0030120 E R R O R ) \r ( 2 4 2 Q I D E
0030140 N T I T Y 2 3 2 Q E Q L 2
0030160 0 0 Q : K E Y 1 5 2 Q : T
0030200 E S T - N O T 1 2 7 Q : T E
0030220 S T ) \r ( 1 1 6 Q " B o t h
0030240 T E S T a n d T E S T - N
0030260 O T s u p p l i e d . " ) \r %
0030300 % S U B L I S D 1 \r ( L ( 4
0030320 K E Y 3 T E S T - N O T
0030340 2 T E S T 1 T R E E 0
0030360 A L I S T ) ) \0 D 002 \0 \0 005 A k
0030400 D 016 @ B C g \0 \0 \t \0 \0 \r 005 \0 \0 265
0030420 \a A 003 243 A 020 002 020 @ A 001 B C D \r 005
0030440 \0 \0 @ A 002 B C D \r 005 \0 \0 021 002 001 H
0030460 d A 001 360 230 277 I A 002 360 221 A 020 H I 032
0030500 020 \0 ( 5 5 Q % % S U B L I S
0030520 4 3 Q % % S U B L I S 2 0 Q
0030540 % % A S S O C 1 4 Q S Y M
0030560 B O L - F U N C T I O N ) \r ( 1
0030600 1 Q I D E N T I T Y ) \r ( ) \r
0030620 N S U B L I S D 1 \r ( L ( 0
0030640 - a r g s - ) ) \0 263 \f \0 002 \0
0030660 e 021 001 \0 k a 021 241 \v l 002 a 272 H l 003
0030700 274 273 L d K 363 262 ? 277 h 275 H l 003 _ 016
0030720 277 276 O 016 d N 363 262 A 277 h _ 020 277 H l
0030740 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 A 277
0030760 h _ 026 277 O 020 262 Q O 026 262 J o \0 \0 \0
0031000 \t \0 \0 260 L a g \0 \0 360 225 L k 330 a 260
0031020 273 L l 002 324 \ 260 255 a g \0 \0 360 226 O 016
0031040 k 330 a 260 270 O 016 l 002 324 _ 016 260 250 a g
0031060 \0 \0 360 226 O 024 k 330 a 260 270 O 024 l 002 324
0031100 _ 024 260 247 O 020 250 O 026 245 g \0 \0 _ 020 277
0031120 M 243 g \0 \0 275 I J O 020 O 026 M \r 005 \0
0031140 \0 020 \0 ( 2 6 0 Q % % N S U B L
0031160 I S 1 2 2 Q C L : E R R O R
0031200 ) \r ( 2 4 4 Q I D E N T I T Y
0031220 2 3 4 Q E Q L 2 0 1 Q :
0031240 T E S T - N O T 1 5 3 Q : T
0031260 E S T 1 3 0 Q : K E Y ) \r (
0031300 1 1 7 Q " B o t h T E S T
0031320 a n d T E S T - N O T s u
0031340 p p l i e d . " ) \r % % N S U B
0031360 L I S D 1 \r ( L ( 4 K E Y
0031400 3 T E S T - N O T 2 T E
0031420 S T 1 T R E E 0 A L I S
0031440 T ) ) \0 | \t \0 \0 005 021 220 \b A k D
0031460 016 @ B C g \0 \0 \t \0 \0 \r 005 \0 \0 265 \a
0031500 A 003 243 A 020 002 020 h 276 A ] d 003 263 k
0031520 D 016 @ B C g \0 \0 \t \0 \0 \r 005 \0 \0 X
0031540 262 ' N 272 H 002 271 J I 031 277 260 034 k D 016
0031560 @ B C g \0 \0 \t \0 \0 \r 005 \0 \0 X 231 N
0031600 274 H 002 273 L K 031 A 020 M _ 020 277 @ M 001
0031620 B C D \r 005 \0 \0 _ 016 277 O 020 O 016 030 277
0031640 M ^ 002 260 247 \0 ( 1 5 4 Q % % N S
0031660 U B L I S 1 2 2 Q % % A S S
0031700 O C 1 1 6 Q S Y M B O L - F
0031720 U N C T I O N 6 4 Q % % A S
0031740 S O C 6 0 Q S Y M B O L - F
0031760 U N C T I O N 2 3 Q % % A S
0032000 S O C 1 7 Q S Y M B O L - F
0032020 U N C T I O N ) \r ( 1 1 3 Q I
0032040 D E N T I T Y 5 5 Q I D E N
0032060 T I T Y 1 4 Q I D E N T I T
0032100 Y ) \r ( ) \r C L : M E M B E R
0032120 D 1 \r ( L ( 0 - a r g s - )
0032140 ) \0 341 016 \0 002 \0 e 021 001 \0 k a 021 301
0032160 \r l 002 a 272 H l 003 274 273 L d K 363 262 >
0032200 277 h 275 H l 003 _ 016 277 276 O 016 d N 363 262
0032220 @ 277 h _ 020 277 H l 003 _ 024 277 _ 022 277 O
0032240 024 d O 022 363 262 @ 277 h _ 026 277 M 262 P O
0032260 020 262 J o \0 \0 \0 \t \0 \0 260 J a g \0 \0
0032300 360 225 L k 330 a 260 274 L l 002 324 \ 260 256 a
0032320 g \0 \0 360 226 O 016 k 330 a 260 271 O 016 l 002
0032340 324 _ 016 260 251 a g \0 \0 360 226 O 024 k 330 a
0032360 260 271 O 024 l 002 324 _ 024 260 250 M 247 O 020 244
0032400 g \0 \0 ] 277 O 026 245 g \0 \0 _ 026 277 M 262
0032420 033 J _ 030 003 264 017 I O 030 001 M O 026 \f \0
0032440 \0 222 O 030 020 O 030 002 260 352 O 020 264 026 J _
0032460 032 003 264 020 I O 032 001 O 020 O 026 \f \0 \0 222
0032500 O 032 020 O 032 002 260 351 \0 ( 3 2 6 Q X
0032520 X T E S T 0 2 7 0 Q X X T E
0032540 S T 1 1 2 1 Q C L : E R R O
0032560 R ) \r ( 2 4 2 Q I D E N T I T
0032600 Y 2 3 2 Q E Q L 2 0 0 Q
0032620 : K E Y 1 5 2 Q : T E S T -
0032640 N O T 1 2 7 Q : T E S T ) \r
0032660 ( 1 1 6 Q " B o t h T E S
0032700 T a n d T E S T - N O T s
0032720 u p p l i e d . " ) \r % % M E M
0032740 B E R D 1 \r ( L ( 4 K E Y
0032760 3 T E S T - N O T 2 T E
0033000 S T 1 L I S T 0 I T E M
0033020 ) ) \0 033 002 \0 \0 005 A 021 021 001 H Y 003
0033040 264 016 @ I 001 B C D \r 005 \0 \0 221 I 020 I
0033060 002 260 355 \0 ( 2 2 Q % % T E S T )
0033100 \r N I L \r ( ) \r M E M B E R - I
0033120 F D 1 \r ( L ( 0 - a r g s
0033140 - ) ) \0 Y \a \0 002 \0 e 021 001 \0 k a
0033160 021 Q 006 l 002 a 272 H l 003 274 273 L d K 363
0033200 235 277 g \0 \0 275 J d 262 $ 003 262 027 260 036 a
0033220 g \0 \0 360 225 L k 330 a 260 354 L l 002 324 \
0033240 260 335 o \0 \0 \0 J \n \0 \0 277 J ^ d \t \0
0033260 \0 221 h 020 001 k M 016 k I 016 221 N 020 N 002
0033300 260 354 \0 ( 1 0 6 Q E N D P 7 7
0033320 Q C L : E R R O R ) \r ( 5 0 Q
0033340 : K E Y 3 2 Q I D E N T I
0033360 T Y ) \r ( 7 3 Q " ~ S i s
0033400 n o t a l i s t . " ) \r M
0033420 E M B E R - I F - N O T D 1 \r
0033440 ( L ( 0 - a r g s - ) ) \0
0033460 Y \a \0 002 \0 e 021 001 \0 k a 021 Q 006 l 002
0033500 a 272 H l 003 274 273 L d K 363 235 277 g \0 \0
0033520 275 J d 262 $ 003 262 027 260 036 a g \0 \0 360 225
0033540 L k 330 a 260 354 L l 002 324 \ 260 335 o \0 \0
0033560 \0 J \n \0 \0 277 J ^ d \t \0 \0 221 h 020 001
0033600 k M 016 k I 016 241 N 020 N 002 260 354 \0 ( 1
0033620 0 6 Q E N D P 7 7 Q C L :
0033640 E R R O R ) \r ( 5 0 Q : K E Y
0033660 3 2 Q I D E N T I T Y ) \r (
0033700 7 3 Q " ~ S i s n o t
0033720 a l i s t . " ) \r o p t i m i
0033740 z e - C L : M E M B E R D 1 \r
0033760 ( L ( 2 $ $ C T X 1 $ $
0034000 E N V 0 $ $ W H O L E ) )
0034020 001 B 022 \0 \0 003 @ 002 021 321 \r H 001 271 H 002
0034040 Z 001 273 J 002 274 g \0 \0 L \n \0 \0 265 f o
0034060 \0 \0 \0 276 g \0 \0 L \n \0 \0 ] d 220 001 _
0034100 016 277 M h 360 h 360 _ 020 277 g \0 \0 L \n \0
0034120 \0 ] 265 > o \0 \0 \0 _ 022 277 L o \0 \0 \0
0034140 \n \0 \0 N \t \0 \0 O 022 \t \0 \0 O 016 \t \0
0034160 \0 K \t \0 \0 021 004 021 O " 262 A O 036 262 =
0034200 O 034 d 001 g \0 \0 360 262 5 277 O " 001 260 036
0034220 001 260 307 001 260 237 d 001 _ 026 277 O 036 001 _ 024
0034240 277 O 026 k O 024 017 016 3 020 245 002 003 265 351 i
0034260 201 277 h 226 o \0 \0 \0 _ 034 201 O 034 242 261 \0
0034300 225 O 036 242 261 \0 217 O 242 261 \0 211 O 034 001
0034320 g \0 \0 360 262 027 O 036 001 g \0 \0 360 234 O 020
0034340 251 g \0 \0 I K h 032 032 032 020 o \0 \0 \0 \t
0034360 \0 \0 o \0 \0 \0 \t \0 \0 _ 032 277 _ 030 277 g
0034400 \0 \0 O 032 I h 032 032 h 032 g \0 \0 O 030 g
0034420 \0 \0 K O 020 223 g \0 \0 202 g \0 \0 O 020 222
0034440 O 201 O 034 001 O 036 001 g \0 \0 O 030 h 032
0034460 032 h 032 032 O 032 h 032 032 032 g \0 \0 g \0 \0
0034500 O 030 h 032 032 h 032 032 032 032 032 032 032 032 h 032
0034520 032 032 020 g \0 \0 020 \0 ( 3 4 2 Q G E
0034540 N S Y M 3 3 3 Q G E N S Y M
0034560 1 3 6 Q C O N S T A N T E X
0034600 P R E S S I O N P 1 3 2 Q C
0034620 O N S T A N T E X P R E S S I O
0034640 N P 1 2 5 Q C O N S T A N T
0034660 E X P R E S S I O N P 1 2 0 Q
0034700 C O N S T A N T E X P R E S S
0034720 I O N P 1 1 4 Q K E Y W O R
0034740 D - T E S T 7 2 Q F I N D -
0034760 K E Y W O R D 4 4 Q F I N D
0035000 - K E Y W O R D 2 6 Q F I N
0035020 D - K E Y W O R D ) \r ( 4 7 7 Q
0035040 I G N O R E M A C R O 4 5 1
0035060 Q R E T U R N 4 4 6 Q d o
0035100 4 2 5 Q C A R 4 0 6 Q w
0035120 h e n 4 0 2 Q u n l e s s
0035140 3 7 3 Q o n 3 6 6 Q f o r
0035160 3 5 3 Q L E T 3 1 5 Q F
0035200 M E M B 3 0 5 Q I D E N T I
0035220 T Y 2 7 4 Q E Q 1 6 0 Q
0035240 E Q L 6 6 Q : K E Y 4 0 Q
0035260 : T E S T - N O T 2 2 Q :
0035300 T E S T ) \r ( 3 3 7 Q " M E
0035320 M B E R - I T E M " 3 3 0 Q
0035340 " M E M B E R " 2 4 1 Q ( E
0035360 Q ) 1 1 1 Q ( : K E Y : T
0035400 E S T - N O T : T E S T ) 1
0035420 0 1 Q ( F U N C T I O N I D
0035440 E N T I T Y ) 3 4 Q ( F U N
0035460 C T I O N E Q L ) ) \r ( P U T
0035500 P R O P ( Q U O T E C L : M
0035520 E M B E R ) ( Q U O T E C O
0035540 M P I L E R : O P T I M I Z E R
0035560 - L I S T ) ( U N I O N ( G
0035600 E T P R O P ( Q U O T E C L
0035620 : M E M B E R ) ( Q U O T E
0035640 \r C O M P I L E R : O P T I M I
0035660 Z E R - L I S T ) ) ( L I S T
0035700 ( Q U O T E o p t i m i z e
0035720 - C L : M E M B E R ) ) ) ) \r A
0035740 D J O I N D 1 \r ( L ( 0 -
0035760 a r g s - ) ) \0 275 \f \0 002 \0 e 021
0036000 001 \0 k a 021 241 \v l 002 a 272 H l 003 274 273
0036020 L d K 363 262 > 277 h 275 H l 003 _ 016 277 276
0036040 O 016 d N 363 262 @ 277 h _ 020 277 H l 003 _
0036060 024 277 _ 022 277 O 024 d O 022 363 262 @ 277 h _
0036100 026 277 M 262 P O 020 262 J o \0 \0 \0 \t \0 \0
0036120 260 J a g \0 \0 360 225 L k 330 a 260 274 L l
0036140 002 324 \ 260 256 a g \0 \0 360 226 O 016 k 330 a
0036160 260 271 O 016 l 002 324 _ 016 260 251 a g \0 \0 360
0036200 226 O 024 k 330 a 260 271 O 024 l 002 324 _ 024 260
0036220 250 M 247 O 020 244 g \0 \0 ] 277 O 026 245 g \0
0036240 \0 _ 026 277 I d k O 026 016 J M O 020 O 026
0036260 \r 005 \0 \0 221 J 020 J 032 020 \0 ( 2 6 5 Q
0036300 % % M E M B E R 1 2 1 Q C
0036320 L : E R R O R ) \r ( 2 4 2 Q I
0036340 D E N T I T Y 2 3 2 Q E Q L
0036360 2 0 0 Q : K E Y 1 5 2 Q
0036400 : T E S T - N O T 1 2 7 Q :
0036420 T E S T ) \r ( 1 1 6 Q " B o
0036440 t h T E S T a n d T E S T
0036460 - N O T s u p p l i e d . " )
0036500 \r C L : U N I O N D 1 \r ( L
0036520 ( 0 - a r g s - ) ) \0 322 017 \0
0036540 002 \0 e 021 001 \0 k a 021 321 016 l 002 a 272 H
0036560 l 003 274 273 L d K 363 262 > 277 h 275 H l 003
0036600 _ 016 277 276 O 016 d N 363 262 @ 277 h _ 020 277
0036620 H l 003 _ 024 277 _ 022 277 O 024 d O 022 363 262
0036640 @ 277 h _ 026 277 M 262 P O 020 262 J o \0 \0
0036660 \0 \t \0 \0 260 J a g \0 \0 360 225 L k 330 a
0036700 260 274 L l 002 324 \ 260 256 a g \0 \0 360 226 O
0036720 016 k 330 a 260 271 O 016 l 002 324 _ 016 260 251 a
0036740 g \0 \0 360 226 O 024 k 330 a 260 271 O 024 l 002
0036760 324 _ 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O
0037000 026 245 g \0 \0 _ 026 277 I _ 030 277 J _ 032 265
0037020 005 O 030 020 001 _ 034 k O 026 016 I M O 020 O
0037040 026 \r 005 \0 \0 247 O 034 O 030 032 _ 030 277 O 032
0037060 002 260 334 \0 ( 3 0 2 Q % % M E M B
0037100 E R 1 2 1 Q C L : E R R O R
0037120 ) \r ( 2 4 2 Q I D E N T I T Y
0037140 2 3 2 Q E Q L 2 0 0 Q :
0037160 K E Y 1 5 2 Q : T E S T - N
0037200 O T 1 2 7 Q : T E S T ) \r (
0037220 1 1 6 Q " B o t h T E S T
0037240 a n d T E S T - N O T s u
0037260 p p l i e d . " ) \r N U N I O N
0037300 D 1 \r ( L ( 0 - a r g s -
0037320 ) ) \0 343 020 \0 002 \0 e 021 001 \0 k a 021
0037340 341 017 l 002 a 272 H l 003 274 273 L d K 363 262
0037360 > 277 h 275 H l 003 _ 016 277 276 O 016 d N 363
0037400 262 @ 277 h _ 020 277 H l 003 _ 024 277 _ 022 277
0037420 O 024 d O 022 363 262 @ 277 h _ 026 277 M 262 P
0037440 O 020 262 J o \0 \0 \0 \t \0 \0 260 J a g \0
0037460 \0 360 225 L k 330 a 260 274 L l 002 324 \ 260 256
0037500 a g \0 \0 360 226 O 016 k 330 a 260 271 O 016 l
0037520 002 324 _ 016 260 251 a g \0 \0 360 226 O 024 k 330
0037540 a 260 271 O 024 l 002 324 _ 024 260 250 M 247 O 020
0037560 244 g \0 \0 ] 277 O 026 245 g \0 \0 _ 026 277 I
0037600 _ 030 277 J d \t \0 \0 222 O 030 020 001 k O 026
0037620 016 I M O 020 O 026 \r 005 \0 \0 263 033 J _ 036
0037640 002 272 O 036 _ 034 277 O 030 _ 032 277 O 034 O 032
0037660 031 277 O 036 260 314 J 002 Z 260 313 \0 ( 3 0 1
0037700 Q % % M E M B E R 2 5 6 Q
0037720 E N D P 1 2 1 Q C L : E R R
0037740 O R ) \r ( 2 4 2 Q I D E N T I
0037760 T Y 2 3 2 Q E Q L 2 0 0 Q
0040000 : K E Y 1 5 2 Q : T E S T
0040020 - N O T 1 2 7 Q : T E S T )
0040040 \r ( 1 1 6 Q " B o t h T E
0040060 S T a n d T E S T - N O T
0040100 s u p p l i e d . " ) \r C L : I
0040120 N T E R S E C T I O N D 1 \r (
0040140 L ( 0 - a r g s - ) ) \0 322
0040160 017 \0 002 \0 e 021 001 \0 k a 021 321 016 l 002 a
0040200 272 H l 003 274 273 L d K 363 262 > 277 h 275 H
0040220 l 003 _ 016 277 276 O 016 d N 363 262 @ 277 h _
0040240 020 277 H l 003 _ 024 277 _ 022 277 O 024 d O 022
0040260 363 262 @ 277 h _ 026 277 M 262 P O 020 262 J o
0040300 \0 \0 \0 \t \0 \0 260 J a g \0 \0 360 225 L k
0040320 330 a 260 274 L l 002 324 \ 260 256 a g \0 \0 360
0040340 226 O 016 k 330 a 260 271 O 016 l 002 324 _ 016 260
0040360 251 a g \0 \0 360 226 O 024 k 330 a 260 271 O 024
0040400 l 002 324 _ 024 260 250 M 247 O 020 244 g \0 \0 ]
0040420 277 O 026 245 g \0 \0 _ 026 277 h _ 030 277 I _
0040440 032 265 005 O 030 020 001 _ 034 k O 026 016 J M O
0040460 020 O 026 \r 005 \0 \0 227 O 034 O 030 032 _ 030 277
0040500 O 032 002 260 334 \0 ( 3 0 2 Q % % M E
0040520 M B E R 1 2 1 Q C L : E R R
0040540 O R ) \r ( 2 4 2 Q I D E N T I
0040560 T Y 2 3 2 Q E Q L 2 0 0 Q
0040600 : K E Y 1 5 2 Q : T E S T
0040620 - N O T 1 2 7 Q : T E S T )
0040640 \r ( 1 1 6 Q " B o t h T E
0040660 S T a n d T E S T - N O T
0040700 s u p p l i e d . " ) \r N I N T
0040720 E R S E C T I O N D 1 \r ( L
0040740 ( 0 - a r g s - ) ) \0 343 020 \0
0040760 002 \0 e 021 001 \0 k a 021 341 017 l 002 a 272 H
0041000 l 003 274 273 L d K 363 262 > 277 h 275 H l 003
0041020 _ 016 277 276 O 016 d N 363 262 @ 277 h _ 020 277
0041040 H l 003 _ 024 277 _ 022 277 O 024 d O 022 363 262
0041060 @ 277 h _ 026 277 M 262 P O 020 262 J o \0 \0
0041100 \0 \t \0 \0 260 J a g \0 \0 360 225 L k 330 a
0041120 260 274 L l 002 324 \ 260 256 a g \0 \0 360 226 O
0041140 016 k 330 a 260 271 O 016 l 002 324 _ 016 260 251 a
0041160 g \0 \0 360 226 O 024 k 330 a 260 271 O 024 l 002
0041200 324 _ 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O
0041220 026 245 g \0 \0 _ 026 277 h _ 030 277 I d \t \0
0041240 \0 222 O 030 020 001 k O 026 016 J M O 020 O 026
0041260 \r 005 \0 \0 262 033 I _ 036 002 271 O 036 _ 034 277
0041300 O 030 _ 032 277 O 034 O 032 031 277 O 036 260 314 I
0041320 002 Y 260 313 \0 ( 3 0 1 Q % % M E M
0041340 B E R 2 5 6 Q E N D P 1 2
0041360 1 Q C L : E R R O R ) \r ( 2 4
0041400 2 Q I D E N T I T Y 2 3 2 Q
0041420 E Q L 2 0 0 Q : K E Y 1
0041440 5 2 Q : T E S T - N O T 1 2
0041460 7 Q : T E S T ) \r ( 1 1 6 Q
0041500 " B o t h T E S T a n d
0041520 T E S T - N O T s u p p l i e
0041540 d . " ) \r S E T - D I F F E R E
0041560 N C E D 1 \r ( L ( 0 - a r
0041600 g s - ) ) \0 322 017 \0 002 \0 e 021 001 \0
0041620 k a 021 321 016 l 002 a 272 H l 003 274 273 L d
0041640 K 363 262 > 277 h 275 H l 003 _ 016 277 276 O 016
0041660 d N 363 262 @ 277 h _ 020 277 H l 003 _ 024 277
0041700 _ 022 277 O 024 d O 022 363 262 @ 277 h _ 026 277
0041720 M 262 P O 020 262 J o \0 \0 \0 \t \0 \0 260 J
0041740 a g \0 \0 360 225 L k 330 a 260 274 L l 002 324
0041760 \ 260 256 a g \0 \0 360 226 O 016 k 330 a 260 271
0042000 O 016 l 002 324 _ 016 260 251 a g \0 \0 360 226 O
0042020 024 k 330 a 260 271 O 024 l 002 324 _ 024 260 250 M
0042040 247 O 020 244 g \0 \0 ] 277 O 026 245 g \0 \0 _
0042060 026 277 h _ 030 277 I _ 032 265 005 O 030 020 001 _
0042100 034 k O 026 016 J M O 020 O 026 \r 005 \0 \0 247
0042120 O 034 O 030 032 _ 030 277 O 032 002 260 334 \0 ( 3
0042140 0 2 Q % % M E M B E R 1 2 1
0042160 Q C L : E R R O R ) \r ( 2 4 2
0042200 Q I D E N T I T Y 2 3 2 Q
0042220 E Q L 2 0 0 Q : K E Y 1 5
0042240 2 Q : T E S T - N O T 1 2 7
0042260 Q : T E S T ) \r ( 1 1 6 Q
0042300 " B o t h T E S T a n d T
0042320 E S T - N O T s u p p l i e d
0042340 . " ) \r N S E T - D I F F E R E
0042360 N C E D 1 \r ( L ( 0 - a r
0042400 g s - ) ) \0 343 020 \0 002 \0 e 021 001 \0
0042420 k a 021 341 017 l 002 a 272 H l 003 274 273 L d
0042440 K 363 262 > 277 h 275 H l 003 _ 016 277 276 O 016
0042460 d N 363 262 @ 277 h _ 020 277 H l 003 _ 024 277
0042500 _ 022 277 O 024 d O 022 363 262 @ 277 h _ 026 277
0042520 M 262 P O 020 262 J o \0 \0 \0 \t \0 \0 260 J
0042540 a g \0 \0 360 225 L k 330 a 260 274 L l 002 324
0042560 \ 260 256 a g \0 \0 360 226 O 016 k 330 a 260 271
0042600 O 016 l 002 324 _ 016 260 251 a g \0 \0 360 226 O
0042620 024 k 330 a 260 271 O 024 l 002 324 _ 024 260 250 M
0042640 247 O 020 244 g \0 \0 ] 277 O 026 245 g \0 \0 _
0042660 026 277 h _ 030 277 I d \t \0 \0 222 O 030 020 001
0042700 k O 026 016 J M O 020 O 026 \r 005 \0 \0 263 033
0042720 I _ 036 002 271 O 036 _ 034 277 O 030 _ 032 277 O
0042740 034 O 032 031 277 O 036 260 314 I 002 Y 260 313 \0 (
0042760 3 0 1 Q % % M E M B E R 2 5
0043000 6 Q E N D P 1 2 1 Q C L :
0043020 E R R O R ) \r ( 2 4 2 Q I D E
0043040 N T I T Y 2 3 2 Q E Q L 2
0043060 0 0 Q : K E Y 1 5 2 Q : T
0043100 E S T - N O T 1 2 7 Q : T E
0043120 S T ) \r ( 1 1 6 Q " B o t h
0043140 T E S T a n d T E S T - N
0043160 O T s u p p l i e d . " ) \r S
0043200 E T - E X C L U S I V E - O R
0043220 D 1 \r ( L ( 0 - a r g s - )
0043240 ) \0 366 021 \0 002 \0 e 021 001 \0 k a 021 361
0043260 020 l 002 a 272 H l 003 274 273 L d K 363 262 >
0043300 277 h 275 H l 003 _ 016 277 276 O 016 d N 363 262
0043320 @ 277 h _ 020 277 H l 003 _ 024 277 _ 022 277 O
0043340 024 d O 022 363 262 @ 277 h _ 026 277 M 262 P O
0043360 020 262 J o \0 \0 \0 \t \0 \0 260 J a g \0 \0
0043400 360 225 L k 330 a 260 274 L l 002 324 \ 260 256 a
0043420 g \0 \0 360 226 O 016 k 330 a 260 271 O 016 l 002
0043440 324 _ 016 260 251 a g \0 \0 360 226 O 024 k 330 a
0043460 260 271 O 024 l 002 324 _ 024 260 250 M 247 O 020 244
0043500 g \0 \0 ] 277 O 026 245 g \0 \0 _ 026 277 h _
0043520 030 277 I _ 032 265 \n J _ 036 265 $ O 030 020 001
0043540 _ 034 k O 026 016 J M O 020 O 026 \r 005 \0 \0
0043560 247 O 034 O 030 032 _ 030 277 O 032 002 260 327 001 _
0043600 k O 026 016 I M O 020 O 026 \r 005 \0 \0 247
0043620 O O 030 032 _ 030 277 O 036 002 260 275 \0 ( 3
0043640 4 6 Q % % M E M B E R 3 0 7
0043660 Q % % M E M B E R 1 2 1 Q
0043700 C L : E R R O R ) \r ( 2 4 2 Q
0043720 I D E N T I T Y 2 3 2 Q E Q
0043740 L 2 0 0 Q : K E Y 1 5 2 Q
0043760 : T E S T - N O T 1 2 7 Q
0044000 : T E S T ) \r ( 1 1 6 Q " B
0044020 o t h T E S T a n d T E S
0044040 T - N O T s u p p l i e d . "
0044060 ) \r N S E T - E X C L U S I V E
0044100 - O R D 1 \r ( L ( 0 - a r
0044120 g s - ) ) 001 j 023 \0 002 \0 e 021 001 \0
0044140 k a 021 301 \r l 002 a 272 H l 003 274 273 L d
0044160 K 363 262 > 277 h 275 H l 003 _ 016 277 276 O 016
0044200 d N 363 262 @ 277 h _ 020 277 H l 003 _ 024 277
0044220 _ 022 277 O 024 d O 022 363 262 @ 277 h _ 026 277
0044240 M 262 P O 020 262 J o \0 \0 \0 \t \0 \0 260 J
0044260 a g \0 \0 360 225 L k 330 a 260 274 L l 002 324
0044300 \ 260 256 a g \0 \0 360 226 O 016 k 330 a 260 271
0044320 O 016 l 002 324 _ 016 260 251 a g \0 \0 360 226 O
0044340 024 k 330 a 260 271 O 024 l 002 324 _ 024 260 250 M
0044360 247 O 020 244 g \0 \0 ] 277 O 026 245 g \0 \0 _
0044400 026 277 021 P 022 I _ 032 003 242 261 \0 261 h _ 034
0044420 277 O 032 001 k O 026 016 _ 036 277 h _ $ 277 J
0044440 _ 030 003 265 017 O 034 222 261 \0 215 O 032 _ " 261
0044460 \0 210 001 k O 026 016 _ 277 O 020 233 O 036 O
0044500 l 002 O 020 016 h 360 207 O 036 O l 002 M
0044520 016 262 \ i _ 034 277 O 032 O 036 O 032 002 g \0
0044540 \0 M g \0 \0 O 020 g \0 \0 O 026 \r \b \0 \0
0044560 031 277 O 030 O 036 O 030 002 g \0 \0 M g \0 \0
0044600 O 020 g \0 \0 O 026 \r \b \0 \0 031 277 O " 265
0044620 \a O 032 002 Y 203 O 032 002 031 277 O $ 265 \b O
0044640 030 002 272 260 202 O 030 002 031 277 261 377 { O 030 _
0044660 $ 002 261 377 n O 032 002 261 377 N O " 265 004 J
0044700 020 J 031 I 020 \0 ( 4 5 6 Q C L : D
0044720 E L E T E 4 2 3 Q C L : D E
0044740 L E T E 1 2 1 Q C L : E R R
0044760 O R ) \r ( 4 5 0 Q : K E Y 4
0045000 4 3 Q : T E S T - N O T 4 3
0045020 7 Q : T E S T 4 1 5 Q : K
0045040 E Y 4 1 0 Q : T E S T - N O
0045060 T 4 0 4 Q : T E S T 2 4 2
0045100 Q I D E N T I T Y 2 3 2 Q
0045120 E Q L 2 0 0 Q : K E Y 1 5
0045140 2 Q : T E S T - N O T 1 2 7
0045160 Q : T E S T ) \r ( 1 1 6 Q
0045200 " B o t h T E S T a n d T
0045220 E S T - N O T s u p p l i e d
0045240 . " ) \r S U B S E T P D 1 \r (
0045260 L ( 0 - a r g s - ) ) \0 306
0045300 \r \0 002 \0 e 021 001 \0 k a 021 261 \f l 002 a
0045320 272 H l 003 274 273 L d K 363 262 > 277 h 275 H
0045340 l 003 _ 016 277 276 O 016 d N 363 262 @ 277 h _
0045360 020 277 H l 003 _ 024 277 _ 022 277 O 024 d O 022
0045400 363 262 @ 277 h _ 026 277 M 262 P O 020 262 J o
0045420 \0 \0 \0 \t \0 \0 260 J a g \0 \0 360 225 L k
0045440 330 a 260 274 L l 002 324 \ 260 256 a g \0 \0 360
0045460 226 O 016 k 330 a 260 271 O 016 l 002 324 _ 016 260
0045500 251 a g \0 \0 360 226 O 024 k 330 a 260 271 O 024
0045520 l 002 324 _ 024 260 250 M 247 O 020 244 g \0 \0 ]
0045540 277 O 026 245 g \0 \0 _ 026 277 I _ 030 003 265 004
0045560 i 020 001 k O 026 016 J M O 020 O 026 \r 005 \0
0045600 \0 241 h 020 O 030 002 260 344 \0 ( 2 7 4 Q
0045620 % % M E M B E R 1 2 1 Q C L
0045640 : E R R O R ) \r ( 2 4 2 Q I D
0045660 E N T I T Y 2 3 2 Q E Q L
0045700 2 0 0 Q : K E Y 1 5 2 Q :
0045720 T E S T - N O T 1 2 7 Q : T
0045740 E S T ) \r ( 1 1 6 Q " B o t
0045760 h T E S T a n d T E S T -
0046000 N O T s u p p l i e d . " ) \r
0046020 A C O N S D 1 \r ( L ( 2 A
0046040 L I S T 1 D A T U M 0 K
0046060 E Y ) ) \0 \a \0 \0 \0 003 @ A 032 B 032
0046100 020 \0 N I L \r N I L \r ( ) \r P A I
0046120 R L I S D 1 \r ( L ( 2 A L
0046140 I S T 1 D A T A 0 K E Y
0046160 S ) ) \0 p \b \0 \0 003 021 200 \a @ 270 A
0046200 271 H d \t \0 \0 230 277 I \t \0 \0 221 B 020 H
0046220 \t \0 \0 263 M I \t \0 \0 263 G H 001 I 001 032
0046240 h 032 [ 272 H 002 270 I 002 271 H d \t \0 \0 237
0046260 277 I \t \0 \0 230 J 275 B 274 M L 031 K 020 H
0046300 \t \0 \0 263 035 I \t \0 \0 263 027 J _ 016 277 H
0046320 001 I 001 032 h 032 276 O 016 N 031 277 J 002 260 305
0046340 o \0 \0 \0 \t \0 \0 h 020 \0 ( 1 5 4 Q
0046360 C L : E R R O R 1 1 6 Q E N
0046400 D P 1 1 0 Q E N D P 7 2 Q
0046420 E N D P 6 4 Q E N D P 3
0046440 6 Q E N D P 3 0 Q E N D P
0046460 2 1 Q E N D P 1 3 Q E N
0046500 D P ) \r N I L \r ( 1 5 1 Q "
0046520 P A I R L I S k e y s a n d
0046540 d a t a h a v e d i f f e
0046560 r e n t l e n g t h . " ) \r C
0046600 L : A S S O C D 1 \r ( L ( 0
0046620 - a r g s - ) ) \0 263 \f \0 002 \0
0046640 e 021 001 \0 k a 021 241 \v l 002 a 272 H l 003
0046660 274 273 L d K 363 262 > 277 h 275 H l 003 _ 016
0046700 277 276 O 016 d N 363 262 @ 277 h _ 020 277 H l
0046720 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 @ 277
0046740 h _ 026 277 M 262 P O 020 262 J o \0 \0 \0 \t
0046760 \0 \0 260 J a g \0 \0 360 225 L k 330 a 260 274
0047000 L l 002 324 \ 260 256 a g \0 \0 360 226 O 016 k
0047020 330 a 260 271 O 016 l 002 324 _ 016 260 251 a g \0
0047040 \0 360 226 O 024 k 330 a 260 271 O 024 l 002 324 _
0047060 024 260 250 M 247 O 020 244 g \0 \0 ] 277 O 026 245
0047100 g \0 \0 _ 026 277 I J M O 020 O 026 \r 005 \0
0047120 \0 020 \0 ( 2 6 0 Q % % A S S O C
0047140 1 2 1 Q C L : E R R O R ) \r
0047160 ( 2 4 2 Q I D E N T I T Y 2
0047200 3 2 Q E Q L 2 0 0 Q : K E
0047220 Y 1 5 2 Q : T E S T - N O T
0047240 1 2 7 Q : T E S T ) \r ( 1
0047260 1 6 Q " B o t h T E S T a
0047300 n d T E S T - N O T s u p p
0047320 l i e d . " ) \r % % A S S O C
0047340 D 1 \r ( L ( 4 K E Y 3 T
0047360 E S T - N O T 2 T E S T 1
0047400 A L I S T 0 I T E M ) )
0047420 \0 # 001 \0 \0 005 A 021 001 \0 H d \t \0 \0 221
0047440 h 020 001 236 @ H 001 001 B C D \r 005 \0 \0 222
0047460 H 001 020 H 002 X 260 345 \0 ( 3 0 Q % %
0047500 T E S T 1 0 Q E N D P ) \r N
0047520 I L \r ( ) \r A S S O C - I F D
0047540 1 \r ( L ( 1 A L I S T 0
0047560 P R E D I C A T E ) ) \0 001 \0
0047600 \0 002 A 021 001 \0 H d \t \0 \0 221 h 020 001 233
0047620 H d 001 001 k @ 016 224 277 H 001 020 H 002 X 260
0047640 350 \0 ( 1 0 Q E N D P ) \r N I L
0047660 \r ( ) \r A S S O C - I F - N O T
0047700 D 1 \r ( L ( 1 A L I S T
0047720 0 P R E D I C A T E ) ) \0
0047740 001 \0 \0 002 A 021 001 \0 H d \t \0 \0 221 h 020
0047760 001 233 H d 001 001 k @ 016 244 277 H 001 020 H 002
0050000 X 260 350 \0 ( 1 0 Q E N D P ) \r N
0050020 I L \r ( ) \r R A S S O C D 1 \r
0050040 ( L ( 0 - a r g s - ) ) \0
0050060 314 \r \0 002 \0 e 021 001 \0 k a 021 261 \f l 002
0050100 a 272 H l 003 274 273 L d K 363 262 > 277 h 275
0050120 H l 003 _ 016 277 276 O 016 d N 363 262 @ 277 h
0050140 _ 020 277 H l 003 _ 024 277 _ 022 277 O 024 d O
0050160 022 363 262 @ 277 h _ 026 277 M 262 P O 020 262 J
0050200 o \0 \0 \0 \t \0 \0 260 J a g \0 \0 360 225 L
0050220 k 330 a 260 274 L l 002 324 \ 260 256 a g \0 \0
0050240 360 226 O 016 k 330 a 260 271 O 016 l 002 324 _ 016
0050260 260 251 a g \0 \0 360 226 O 024 k 330 a 260 271 O
0050300 024 l 002 324 _ 024 260 250 M 247 O 020 244 g \0 \0
0050320 ] 277 O 026 245 g \0 \0 _ 026 277 J _ 030 d \t
0050340 \0 \0 221 h 020 001 262 025 I O 030 001 002 M O 020
0050360 O 026 \r 005 \0 \0 223 O 030 001 020 O 030 002 260 336
0050400 \0 ( 3 0 0 Q % % T E S T 2 5
0050420 4 Q E N D P 1 2 1 Q C L :
0050440 E R R O R ) \r ( 2 4 2 Q I D E
0050460 N T I T Y 2 3 2 Q E Q L 2
0050500 0 0 Q : K E Y 1 5 2 Q : T
0050520 E S T - N O T 1 2 7 Q : T E
0050540 S T ) \r ( 1 1 6 Q " B o t h
0050560 T E S T a n d T E S T - N
0050600 O T s u p p l i e d . " ) \r R
0050620 A S S O C - I F D 1 \r ( L (
0050640 1 A L I S T 0 P R E D I C
0050660 A T E ) ) \0 001 \0 \0 002 A 021 001 \0
0050700 H d \t \0 \0 221 h 020 001 233 H d 001 002 k @
0050720 016 224 277 H 001 020 H 002 X 260 350 \0 ( 1 0 Q
0050740 E N D P ) \r N I L \r ( ) \r R A
0050760 S S O C - I F - N O T D 1 \r (
0051000 L ( 1 A L I S T 0 P R E
0051020 D I C A T E ) ) \0 001 \0 \0 002 A
0051040 021 001 \0 H d \t \0 \0 221 h 020 001 233 H d 001
0051060 002 k @ 016 244 277 H 001 020 H 002 X 260 350 \0 (
0051100 1 0 Q E N D P ) \r N I L \r ( )
0051120 \r C L : M A P C A R D 1 \r ( L
0051140 ( 0 - a r g s - ) ) \0 F \t
0051160 \0 002 \0 e 021 001 \0 k a 021 ! 003 l 002 a 272
0051200 H l 003 021 2 \b M d L 363 237 277 N 022 273 I
0051220 J K 032 g \0 \0 i \f \0 \0 020 a _ 020 277 O
0051240 016 265 017 O 020 h 032 _ 016 276 M k 324 ] 260 331
0051260 O 020 & _ 016 277 260 364 \0 ( 4 6 Q % %
0051300 M A P ) \r ( 4 2 Q : L I S T )
0051320 \r ( ) \r C L : M A P L I S T D
0051340 1 \r ( L ( 0 - a r g s - ) )
0051360 \0 F \t \0 002 \0 e 021 001 \0 k a 021 ! 003
0051400 l 002 a 272 H l 003 021 2 \b M d L 363 237 277
0051420 N 022 273 I J K 032 g \0 \0 h \f \0 \0 020 a
0051440 _ 020 277 O 016 265 017 O 020 h 032 _ 016 276 M k
0051460 324 ] 260 331 O 020 & _ 016 277 260 364 \0 ( 4 6
0051500 Q % % M A P ) \r ( 4 2 Q : L
0051520 I S T ) \r ( ) \r C L : M A P C
0051540 D 1 \r ( L ( 0 - a r g s - )
0051560 ) \0 D \t \0 002 \0 e 021 001 \0 k a 021 !
0051600 003 l 002 a 272 H l 003 021 2 \b M d L 363 235
0051620 277 N 022 273 I J K 032 h i \f \0 \0 020 a _
0051640 020 277 O 016 265 017 O 020 h 032 _ 016 276 M k 324
0051660 ] 260 333 O 020 & _ 016 277 260 364 \0 ( 4 4 Q
0051700 % % M A P ) \r N I L \r ( ) \r M
0051720 A P L D 1 \r ( L ( 0 - a r
0051740 g s - ) ) \0 D \t \0 002 \0 e 021 001 \0
0051760 k a 021 ! 003 l 002 a 272 H l 003 021 2 \b M
0052000 d L 363 235 277 N 022 273 I J K 032 h d \f \0
0052020 \0 020 a _ 020 277 O 016 265 017 O 020 h 032 _ 016
0052040 276 M k 324 ] 260 333 O 020 & _ 016 277 260 364 \0
0052060 ( 4 4 Q % % M A P ) \r N I L \r
0052100 ( ) \r M A P C A N D 1 \r ( L
0052120 ( 0 - a r g s - ) ) \0 F \t \0
0052140 002 \0 e 021 001 \0 k a 021 ! 003 l 002 a 272 H
0052160 l 003 021 2 \b M d L 363 237 277 N 022 273 I J
0052200 K 032 g \0 \0 i \f \0 \0 020 a _ 020 277 O 016
0052220 265 017 O 020 h 032 _ 016 276 M k 324 ] 260 331 O
0052240 020 & _ 016 277 260 364 \0 ( 4 6 Q % % M
0052260 A P ) \r ( 4 2 Q : N C O N C )
0052300 \r ( ) \r C L : M A P C O N D 1
0052320 \r ( L ( 0 - a r g s - ) )
0052340 \0 F \t \0 002 \0 e 021 001 \0 k a 021 ! 003 l
0052360 002 a 272 H l 003 021 2 \b M d L 363 237 277 N
0052400 022 273 I J K 032 g \0 \0 h \f \0 \0 020 a _
0052420 020 277 O 016 265 017 O 020 h 032 _ 016 276 M k 324
0052440 ] 260 331 O 020 & _ 016 277 260 364 \0 ( 4 6 Q
0052460 % % M A P ) \r ( 4 2 Q : N C
0052500 O N C ) \r ( ) \r % % M A P D 1
0052520 \r ( L ( 3 T A K E - C A R
0052540 2 A C C U M U L A T E 1 O
0052560 R I G I N A L - A R G L I S T S
0052600 0 F U N C T I O N ) ) \0 l
0052620 \b \0 \0 004 A \t \0 \0 021 q \a h h 032 Y 272
0052640 H d 224 d 001 247 277 i 232 B 225 I 002 020 002 260
0052660 362 A 001 020 H _ 016 262 035 C 223 O 016 001 201 O
0052700 016 001 L 032 274 O 016 ^ 001 002 275 N M 030 277 O
0052720 016 002 260 343 @ L \t \0 \0 \n \0 \0 273 B d g
0052740 \0 \0 360 231 277 J K \n \0 \0 \t \0 \0 213 g \0
0052760 \0 360 264 \n J K & 277 J 002 272 h 274 260 243 \0
0053000 ( 1 3 0 Q L A S T 1 2 5 Q
0053020 \ N C O N C 2 1 0 7 Q A P P
0053040 L Y 1 0 4 Q N R E V E R S E
0053060 3 C O P Y - L I S T ) \r ( 1
0053100 3 4 Q : L I S T 1 1 5 Q :
0053120 N C O N C ) \r ( ) \r D E L Q D
0053140 1 \r ( L ( 0 - a r g s - ) )
0053160 \0 S \a \0 002 \0 e 021 001 \0 k a 021 Q 006
0053200 l 002 a 272 l 003 H 361 221 j 204 i 273 l 003 a
0053220 274 J h 276 ] \t \0 \0 263 $ K 231 L j 360 263
0053240 035 L 005 003 265 023 I M 001 360 262 030 L k 325 274
0053260 N 265 \r M 002 Z 214 \t \0 \0 262 354 J 020 M 002
0053300 031 201 M ^ 277 M 002 260 315 \0 ( 1 0 2 Q
0053320 \ F Z E R O P 4 0 Q E N D P
0053340 ) \r N I L \r ( ) \r ( P U T P R O
0053360 P S C L : L I S T - E V E R Y
0053400 D M A C R O ( D E F M A C R
0053420 O ( F U N C T I O N & R E S
0053440 T L I S T S ) ( L E T ( (
0053460 G E N S Y M ( G E N S Y M ) )
0053500 ( T A I L - V A R S ( \r f o
0053520 r X i n L I S T S c o l
0053540 l e c t ( G E N S Y M ) ) ) )
0053560 ( B Q U O T E ( L E T ( (
0053600 ( \ , G E N S Y M ) T ) )
0053620 ( C L : D O ( ( \ , @ ( f o
0053640 r X i n L I S T S a s
0053660 \r T A I L - V A R i n T A I
0053700 L - V A R S c o l l e c t (
0053720 L I S T T A I L - V A R X
0053740 ( B Q U O T E ( C D R ( \ ,
0053760 T A I L - V A R ) ) ) ) ) ) )
0054000 ( ( N O T ( A N D ( \ , @
0054020 \r T A I L - V A R S ) ) ) (
0054040 \ , G E N S Y M ) ) ( O R
0054060 ( S E T Q ( \ , G E N S Y M
0054100 ) ( A N D ( \ , G E N S Y
0054120 M ) ( F U N C A L L ( \ ,
0054140 F U N C T I O N ) ( \ , @ (
0054160 f o r X i n \r T A I L - V
0054200 A R S c o l l e c t ( B Q U
0054220 O T E ( C A R ( \ , X ) )
0054240 ) ) ) ) ) ) ( R E T U R N N
0054260 I L ) ) ) ) ) ) ) ) \r ( M O V D
0054300 ( Q U O T E A S S O C ) (
0054320 Q U O T E A S S Q ) ) \r ( M O
0054340 V D ( Q U O T E F M E M B )
0054360 ( Q U O T E M E M Q ) ) \r (
0054400 P U T P R O P S C M L L I S T
0054420 F I L E T Y P E C O M P I L
0054440 E - F I L E ) \r ( P U T P R O P
0054460 S C M L L I S T C O P Y R I
0054500 G H T ( " X e r o x C o r p
0054520 o r a t i o n " 1 9 8 5 1 9
0054540 8 6 ) ) \r N I L \r
0054551