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