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