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