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