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