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