$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSEQ.DCOM!2
0000000 ( F I L E C R E A T E D " 1 7
0000020 - J u l - 8 6 0 0 : 1 0 : 1 3
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L S E Q
0000120 . ; 3 2 ) \r " 1 5 - J u l - 8
0000140 6 2 3 : 1 7 : 2 1 " " C O M
0000160 P I L E - F I L E d " i n "
0000200 X e r o x L i s p 1 5 - J u
0000220 l - 8 6 . . . " d a t e d
0000240 " 1 5 - J u l - 8 6 2 3 : 4 0
0000260 : 4 7 " ) \r ( F I L E C R E A T
0000300 E D " 2 - J u l - 8 6 1 8
0000320 : 1 8 : 4 0 " { E R I S } < L
0000340 I S P C O R E > L I B R A R Y >
0000360 C M L S E Q . ; 3 2 1 3 7 1 7
0000400 c h a n g e s t o : ( S E
0000420 T F S C L : E L T ) \r ( F U
0000440 N C T I O N S S E Q - D I S P
0000460 A T C H M A K E - S E Q U E N
0000500 C E - O F - T Y P E C L : R E
0000520 P L A C E ) ( V A R S C M L
0000540 S E Q C O M S ) ( F N S L I
0000560 S T - T O - S T R I N G * \r L
0000600 I S T - T O - B I T - V E C T O
0000620 R * L I S T - T O - V E C T O
0000640 R * ) p r e v i o u s d a t
0000660 e : " 1 - J u l - 8 6 1 8
0000700 : 3 9 : 5 9 " \r { E R I S } <
0000720 L I S P C O R E > L I B R A R Y
0000740 > C M L S E Q . ; 3 1 ) \r ( R P
0000760 A Q Q C M L S E Q C O M S (
0001000 ( F U N C T I O N S C O N C A
0001020 T E N A T E - T O - M U M B L E
0001040 ) ( * " N o t u s e d . "
0001060 ) ( F N S C L : C O E R C E
0001100 L I S T - T O - S T R I N G *
0001120 \r L I S T - T O - B I T - V E
0001140 C T O R * L I S T - T O - V E
0001160 C T O R * V E C T O R - T O -
0001200 L I S T * V E C T O R - T O -
0001220 V E C T O R * V E C T O R - T
0001240 O - S T R I N G * \r V E C T O
0001260 R - T O - B I T - V E C T O R *
0001300 S T R I N G - T O - S I M P L
0001320 E - S T R I N G * B I T - V E
0001340 C T O R - T O - S I M P L E - B
0001360 I T - V E C T O R * ) ( * "
0001400 L e f t o v e r . " ) ( \r F
0001420 I L E S C M L S E Q C O M M O
0001440 N C M L S E Q B A S I C S C
0001460 M L S E Q M A P P E R S C M L
0001500 S E Q M O D I F Y C M L S E Q
0001520 F I N D E R C M L S O R T )
0001540 ( P R O P F I L E T Y P E C
0001560 M L S E Q \r ) ) ) \r e x p a n d
0001600 - C O N C A T E N A T E - T O -
0001620 M U M B L E D 1 \r ( L ( 1
0001640 $ $ M A C R O - E N V I R O N M
0001660 E N T 0 $ $ M A C R O - F O
0001700 R M ) ) \0 ^ 003 \0 \0 002 @ 002 021 ! 002
0001720 H 001 271 H 002 001 272 g \0 \0 g \0 \0 J o \0
0001740 \0 \0 032 032 o \0 \0 \0 032 o \0 \0 \0 g \0 \0
0001760 g \0 \0 J o \0 \0 \0 032 032 o \0 \0 \0 o \0
0002000 \0 \0 g \0 \0 g \0 \0 I o \0 \0 \0 032 032 h
0002020 032 032 h 032 032 032 032 o \0 \0 \0 032 032 h 032 032
0002040 o \0 \0 \0 032 032 032 020 \0 N I L \r ( 7 4
0002060 Q M A K E - S E Q U E N C E -
0002100 O F - T Y P E 7 1 Q R E S U
0002120 L T 4 7 Q S E Q U E N C E S
0002140 4 4 Q C L : D O 2 1 Q S
0002160 E Q S 1 6 Q C L : D O ) \r (
0002200 1 3 0 Q ( ( L E T ( ( L E
0002220 N G T H ( C L : L E N G T H
0002240 ( C A R S E Q S ) ) ) ) ( S
0002260 E T Q L E N G T H S ( N C O
0002300 N C L E N G T H S ( L I S T
0002320 L E N G T H ) ) ) ( I N C F
0002340 T O T A L - L E N G T H L E
0002360 N G T H ) ) ) \r 1 1 7 Q ( (
0002400 ( = I N D E X T O T A L - L
0002420 E N G T H ) R E S U L T ) (
0002440 L E T ( ( S E Q U E N C E (
0002460 C A R S E Q U E N C E S ) ) )
0002500 ( S E Q - D I S P A T C H S
0002520 E Q U E N C E ( C L : D O (
0002540 ( S E Q U E N C E S E Q U E N
0002560 C E ( C D R S E Q U E N C E
0002600 ) ) ) ( ( C L : A T O M S E
0002620 Q U E N C E ) ) ( S E T F (
0002640 A R E F R E S U L T I N D E
0002660 X ) ( C A R S E Q U E N C E
0002700 ) ) ( I N C F I N D E X ) )
0002720 ( C L : D O ( ( J N D E X
0002740 0 ( 1 + J N D E X ) ) ) (
0002760 ( = J N D E X ( C A R L E
0003000 N G T H S ) ) ) ( S E T F (
0003020 A R E F R E S U L T I N D E
0003040 X ) ( A R E F S E Q U E N C
0003060 E J N D E X ) ) ( I N C F
0003100 I N D E X ) ) ) ) ) \r 1 0 1 Q
0003120 ( T O T A L - L E N G T H )
0003140 6 6 Q ( I N D E X 0 ) 6 2
0003160 Q ( L E N G T H S L E N G T
0003200 H S ( C D R L E N G T H S )
0003220 ) 5 4 Q ( ( C D R S E Q U
0003240 E N C E S ) ) 4 1 Q ( N U L
0003260 L S E Q S ) \r 3 4 Q ( ( T
0003300 O T A L - L E N G T H 0 ) (
0003320 L E N G T H S N I L ) ) 2 6
0003340 Q ( ( C D R S E Q S ) ) ) \r
0003360 ( S E T F - M A C R O - F U N C
0003400 T I O N ( Q U O T E C O N C
0003420 A T E N A T E - T O - M U M B L
0003440 E ) ( Q U O T E e x p a n d
0003460 - C O N C A T E N A T E - T O -
0003500 M U M B L E ) ) \r C L : C O E R
0003520 C E D 1 \r ( L ( 1 O U T P
0003540 U T - T Y P E - S P E C 0 O
0003560 B J E C T ) ) 002 267 \t \0 \0 002 @ A
0003600 \n \0 \0 221 @ 020 A g \0 \0 360 224 @ \t \0 \0
0003620 020 @ d 3 020 262 > 277 A 021 001 \0 H g \0 \0
0003640 360 263 026 H g \0 \0 360 255 H g \0 \0 360 247 H
0003660 d g \0 \0 360 225 277 @ 006 \0 \0 020 g \0 \0 360
0003700 227 o \0 \0 \0 \t \0 \0 020 o \0 \0 \0 @ A \v
0003720 \0 \0 020 021 201 \b H 004 l 005 360 251 H d o \0
0003740 \0 \0 034 262 U 277 A d 003 220 001 Y g \0 \0 360
0003760 247 I d g \0 \0 360 225 277 @ \t \0 \0 020 g \0
0004000 \0 360 247 I d g \0 \0 360 225 277 @ \t \0 \0 020
0004020 g \0 \0 360 263 024 I g \0 \0 360 253 I g \0 \0
0004040 360 245 I g \0 \0 360 225 @ A \n \0 \0 020 o \0
0004060 \0 \0 @ A \v \0 \0 020 \t \0 \0 262 < A d 003
0004100 220 001 Z d g \0 \0 360 225 277 @ \t \0 \0 020 g
0004120 \0 \0 360 263 024 J g \0 \0 360 253 J g \0 \0 360
0004140 245 J g \0 \0 360 225 @ A \n \0 \0 020 o \0 \0
0004160 \0 @ A \v \0 \0 020 H d \t \0 \0 262 5 277 A
0004200 d 003 220 001 [ d g \0 \0 360 263 277 g \0 \0 360
0004220 263 327 K g \0 \0 360 263 320 K g \0 \0 360 263 311
0004240 K g \0 \0 360 263 302 o \0 \0 \0 @ A \v \0 \0
0004260 020 \t \0 \0 262 j H \ d \t \0 \0 262 c 277 L
0004300 \t \0 \0 i 360 262 Y A d 003 220 001 ] d g \0
0004320 \0 360 222 261 377 v g \0 \0 360 247 M d g \0 \0
0004340 360 225 277 @ \t \0 \0 020 g \0 \0 360 247 M d g
0004360 \0 \0 360 225 277 @ \t \0 \0 020 g \0 \0 360 222 261
0004400 377 h M g \0 \0 360 222 261 377 _ M g \0 \0 360
0004420 222 261 377 V o \0 \0 \0 @ A \v \0 \0 020 H d
0004440 \t \0 \0 262 K 277 A d 003 220 001 ^ d g \0 \0
0004460 360 222 261 377 027 d g \0 \0 360 225 277 @ \t \0 \0
0004500 020 g \0 \0 360 222 261 377 ! N g \0 \0 360 222 261
0004520 377 030 N g \0 \0 360 222 261 377 017 N g \0 \0 360
0004540 222 261 377 006 o \0 \0 \0 @ A \v \0 \0 020 \t \0
0004560 \0 262 N A d 003 220 001 _ 016 d g \0 \0 360 222
0004600 261 376 311 d g \0 \0 360 225 277 @ \t \0 \0 020 g
0004620 \0 \0 360 222 261 376 323 O 016 g \0 \0 360 222 261 376
0004640 311 O 016 g \0 \0 360 222 261 376 277 O 016 g \0 \0
0004660 360 222 261 376 265 o \0 \0 \0 @ A \v \0 \0 020 H
0004700 \t \0 \0 262 h A d 003 220 001 _ 020 d g \0 \0
0004720 360 222 261 376 w g \0 \0 360 222 261 377 \t O 020 d
0004740 g \0 \0 360 222 261 376 375 g \0 \0 360 222 261 377 \b
0004760 O 020 d g \0 \0 360 222 261 376 374 g \0 \0 360 222
0005000 261 376 g O 020 g \0 \0 360 222 261 376 ] O 020 g
0005020 \0 \0 360 222 261 376 S O 020 g \0 \0 360 222 261 376
0005040 I o \0 \0 \0 @ A \v \0 \0 020 o \0 \0 \0 @
0005060 \n \0 \0 020 \0 ( 1 2 6 4 Q C L : E
0005100 R R O R 1 2 5 3 Q C L : E R
0005120 R O R 1 1 0 4 Q V E C T O R
0005140 P 1 0 7 7 Q C L : E R R O R
0005160 1 0 1 7 Q B I T - V E C T O
0005200 R - T O - S I M P L E - B I T -
0005220 V E C T O R * 7 6 2 Q B I T
0005240 - V E C T O R - P 7 5 6 Q C
0005260 L : E R R O R 7 0 1 Q S T R
0005300 I N G - T O - S I M P L E - S T
0005320 R I N G * 6 4 4 Q C L : S T
0005340 R I N G P 6 3 6 Q C L : E R
0005360 R O R 5 7 2 Q V E C T O R -
0005400 T O - B I T - V E C T O R * 5
0005420 5 0 Q V E C T O R - T O - S T
0005440 R I N G * 5 0 4 Q A R R A Y
0005460 - E L E M E N T - T Y P E 4 7
0005500 5 Q V E C T O R P 4 6 5 Q
0005520 S I M P L E - V E C T O R - P
0005540 4 6 1 Q C L : E R R O R 3 7
0005560 5 Q S I M P L E - B I T - V E
0005600 C T O R - P 3 6 7 Q C L : E
0005620 R R O R 3 5 5 Q V E C T O R
0005640 - T O - V E C T O R * 3 1 7 Q
0005660 V E C T O R - T O - L I S T *
0005700 2 7 4 Q S I M P L E - S T R
0005720 I N G - P 2 7 0 Q C L : E R
0005740 R O R 2 5 6 Q L I S T - T O
0005760 - V E C T O R * 2 2 0 Q L I
0006000 S T - T O - B I T - V E C T O R
0006020 * 1 7 6 Q L I S T - T O - S
0006040 T R I N G * 1 2 3 Q C L : E
0006060 R R O R 1 1 1 Q C L : E R R
0006100 O R 2 1 Q C H A R A C T E R
0006120 4 T Y P E P ) \r ( 1 2 3 5 Q
0006140 S I M P L E - A R R A Y 1 2
0006160 2 3 Q A R R A Y 1 2 1 1 Q
0006200 V E C T O R 1 1 7 7 Q S I M
0006220 P L E - V E C T O R 1 1 6 7 Q
0006240 B I T - V E C T O R 1 1 5 4
0006260 Q S I M P L E - B I T - V E C
0006300 T O R 1 1 4 4 Q S T R I N G
0006320 1 1 3 1 Q S I M P L E - S T
0006340 R I N G 1 1 2 1 Q L I S T
0006360 1 0 6 1 Q S I M P L E - A R R
0006400 A Y 1 0 4 7 Q A R R A Y 1
0006420 0 3 5 Q V E C T O R 1 0 2 3
0006440 Q S I M P L E - V E C T O R
0006460 1 0 1 0 Q S I M P L E - B I T
0006500 - V E C T O R 7 7 7 Q L I S
0006520 T 7 4 0 Q A R R A Y 7 2 7
0006540 Q S I M P L E - A R R A Y 7
0006560 1 6 Q V E C T O R 7 0 5 Q
0006600 S I M P L E - V E C T O R 6 7
0006620 2 Q S I M P L E - S T R I N G
0006640 6 6 1 Q L I S T 6 2 0 Q
0006660 S I M P L E - A R R A Y 6 0 7
0006700 Q A R R A Y 5 7 6 Q V E C
0006720 T O R 5 6 3 Q B I T - V E C
0006740 T O R 5 5 4 Q S I M P L E -
0006760 B I T - V E C T O R 5 4 1 Q
0007000 S T R I N G 5 3 2 Q S I M P
0007020 L E - S T R I N G 5 2 2 Q L
0007040 I S T 4 4 5 Q S I M P L E -
0007060 A R R A Y 4 3 6 Q A R R A Y
0007100 4 2 7 Q V E C T O R 4 2 0
0007120 Q S I M P L E - V E C T O R
0007140 4 1 2 Q L I S T 3 4 6 Q S
0007160 I M P L E - A R R A Y 3 4 0 Q
0007200 A R R A Y 3 3 2 Q V E C T
0007220 O R 3 2 3 Q S I M P L E - V
0007240 E C T O R 3 1 0 Q L I S T
0007260 2 4 7 Q S I M P L E - A R R A
0007300 Y 2 4 1 Q A R R A Y 2 3 3
0007320 Q V E C T O R 2 2 4 Q S I
0007340 M P L E - V E C T O R 2 1 1 Q
0007360 B I T - V E C T O R 2 0 2 Q
0007400 S I M P L E - B I T - V E C T
0007420 O R 1 6 7 Q S T R I N G 1
0007440 6 0 Q S I M P L E - S T R I N
0007460 G 1 0 0 Q C O M P L E X 7
0007500 4 Q F L O A T P 6 5 Q L O
0007520 N G - F L O A T 5 6 Q D O U
0007540 B L E - F L O A T 5 0 Q S I
0007560 N G L E - F L O A T 4 1 Q S
0007600 H O R T - F L O A T 1 3 Q C
0007620 H A R A C T E R ) \r ( 1 2 6 0
0007640 Q " ~ S i s a n i n a p
0007660 p r o p r i a t e t y p e o
0007700 f o b j e c t f o r c o e
0007720 r c e . " 1 2 4 6 Q " C a n
0007740 ' t c o e r c e ~ S t o
0007760 t y p e ~ S . " 1 0 7 2 Q
0010000 " C a n ' t c o e r c e ~ S
0010020 t o t y p e ~ S . " \r 7
0010040 5 1 Q " C a n ' t c o e r c
0010060 e ~ S t o t y p e ~ S .
0010100 " 6 3 1 Q " C a n ' t c o
0010120 e r c e ~ S t o t y p e
0010140 ~ S . " 4 5 4 Q " C a n ' t
0010160 c o e r c e ~ S t o t y
0010200 p e ~ S . " \r 3 6 2 Q " C
0010220 a n ' t c o e r c e ~ S t
0010240 o t y p e ~ S . " 2 6 3 Q
0010260 " C a n ' t c o e r c e ~
0010300 S t o t y p e ~ S . " 1
0010320 4 3 Q ( N I L ) 1 1 6 Q "
0010340 ~ S c a n ' t b e c o n v
0010360 e r t e d t o t y p e ~ S
0010400 . " \r 1 0 6 Q " C o m p l e
0010420 x n u m b e r s n o t s u
0010440 p p o r t e d i n c u r r e
0010460 n t i m p l e m e n t a t i o
0010500 n . " ) \r L I S T - T O - S T R
0010520 I N G * D 1 \r ( L ( 0 O B
0010540 J E C T ) ) \0 ) 003 \0 \0 001 j 021 !
0010560 002 @ \t \0 \0 Y \t \0 \0 272 H I \n \0 \0 221
0010600 J 020 J H @ 001 @ 002 b \0 277 \v \0 \0 277 H
0010620 k 324 X 260 350 \0 ( 4 0 Q S C H A R
0010640 S E T 2 1 Q % % = 1 3 Q
0010660 M A K E - S T R I N G 7 C L
0010700 : L E N G T H ) \r N I L \r ( ) \r
0010720 L I S T - T O - B I T - V E C T
0010740 O R * D 1 \r ( L ( 0 O B J
0010760 E C T ) ) \0 . 003 \0 \0 001 j 021 ! 002
0011000 @ \t \0 \0 Y g \0 \0 o \0 \0 \0 \v \0 \0 272
0011020 H I \n \0 \0 221 J 020 @ 001 @ 002 b \0 277 J
0011040 H 267 277 H k 324 X 260 352 \0 ( 3 0 Q %
0011060 % = 2 2 Q M A K E - A R R A
0011100 Y 7 C L : L E N G T H ) \r (
0011120 1 3 Q : E L E M E N T - T Y P
0011140 E ) \r ( 1 7 Q ( M O D 2 )
0011160 ) \r L I S T - T O - V E C T O R
0011200 * D 1 \r ( L ( 1 T Y P E
0011220 0 O B J E C T ) ) \0 - 005 \0 \0
0011240 002 j 021 A 004 @ \t \0 \0 271 A I \n \0 \0 272
0011260 H I \n \0 \0 221 J 020 J 274 H 273 @ 001 @ 002
0011300 b \0 277 L K 267 277 H k 324 X 260 346 \0 ( 2
0011320 3 Q % % = 1 5 Q M A K E -
0011340 S E Q U E N C E - O F - T Y P E
0011360 7 C L : L E N G T H ) \r N I
0011400 L \r ( ) \r V E C T O R - T O - L
0011420 I S T * D 1 \r ( L ( 0 O B
0011440 J E C T ) ) \0 $ 004 \0 \0 001 h h 032
0011460 @ \t \0 \0 021 " 003 j H 273 Z I \n \0 \0 222
0011500 H 002 020 K @ J 266 & 277 J k 324 K 002 260 353
0011520 \0 ( 2 1 Q % % = 6 C L : L
0011540 E N G T H ) \r N I L \r ( ) \r V E
0011560 C T O R - T O - V E C T O R *
0011600 D 1 \r ( L ( 1 T Y P E 0
0011620 O B J E C T ) ) \0 ) 005 \0 \0 002 j
0011640 021 A 004 @ \t \0 \0 271 A I \n \0 \0 272 H I
0011660 \n \0 \0 221 J 020 J 274 H 273 @ H 266 L K 267
0011700 277 H k 324 X 260 352 \0 ( 2 3 Q % % =
0011720 1 5 Q M A K E - S E Q U E N
0011740 C E - O F - T Y P E 7 C L :
0011760 L E N G T H ) \r N I L \r ( ) \r V
0012000 E C T O R - T O - S T R I N G *
0012020 D 1 \r ( L ( 0 O B J E C T
0012040 ) ) \0 % 003 \0 \0 001 j 021 ! 002 @ \t \0
0012060 \0 Y \t \0 \0 272 H I \n \0 \0 221 J 020 J H
0012100 @ H 266 \v \0 \0 277 H k 324 X 260 354 \0 ( 3
0012120 4 Q S C H A R S E T 2 1 Q
0012140 % % = 1 3 Q M A K E - S T R
0012160 I N G 7 C L : L E N G T H )
0012200 \r N I L \r ( ) \r V E C T O R - T
0012220 O - B I T - V E C T O R * D 1
0012240 \r ( L ( 0 O B J E C T ) )
0012260 \0 * 003 \0 \0 001 j 021 ! 002 @ \t \0 \0 Y g
0012300 \0 \0 o \0 \0 \0 \v \0 \0 272 H I \n \0 \0 221
0012320 J 020 @ H 266 J H 267 277 H k 324 X 260 356 \0
0012340 ( 3 0 Q % % = 2 2 Q M A K
0012360 E - A R R A Y 7 C L : L E N
0012400 G T H ) \r ( 1 3 Q : E L E M E
0012420 N T - T Y P E ) \r ( 1 7 Q (
0012440 M O D 2 ) ) \r S T R I N G - T
0012460 O - S I M P L E - S T R I N G *
0012500 D 1 \r ( L ( 0 O B J E C T
0012520 ) ) \0 - 005 \0 \0 001 @ d \t \0 \0 221 @
0012540 020 \t \0 \0 021 A 004 H \t \0 \0 271 j Z H \n
0012560 \0 \0 221 I 020 @ 274 J 273 I J 266 L K 267 277
0012600 J k 324 260 352 \0 ( 3 0 Q % % = 2
0012620 1 Q A L L O C S T R I N G 1
0012640 2 Q C L : L E N G T H 4 S
0012660 I M P L E - S T R I N G - P ) \r
0012700 N I L \r ( ) \r B I T - V E C T O
0012720 R - T O - S I M P L E - B I T -
0012740 V E C T O R * D 1 \r ( L ( 0
0012760 O B J E C T ) ) \0 3 005 \0 \0 001
0013000 @ d \t \0 \0 221 @ 020 \t \0 \0 021 A 004 H g
0013020 \0 \0 g \0 \0 \v \0 \0 271 j Z H \n \0 \0 221
0013040 I 020 @ 274 J 273 I J 266 L K 267 277 J k 324
0013060 260 352 \0 ( 3 6 Q % % = 2 7 Q
0013100 M A K E - A R R A Y 1 2 Q C
0013120 L : L E N G T H 4 S I M P L
0013140 E - B I T - V E C T O R - P ) \r
0013160 ( 2 4 Q B I T 2 1 Q : E L
0013200 E M E N T - T Y P E ) \r ( ) \r (
0013220 F I L E S L O A D C M L S E Q
0013240 C O M M O N C M L S E Q B A S
0013260 I C S C M L S E Q M A P P E R
0013300 S C M L S E Q M O D I F Y C
0013320 M L S E Q F I N D E R C M L S
0013340 O R T ) \r ( P U T P R O P S C
0013360 M L S E Q F I L E T Y P E C
0013400 O M P I L E - F I L E ) \r ( R P
0013420 A Q Q C M L S E Q C O M S (
0013440 ( F U N C T I O N S C O N C A
0013460 T E N A T E - T O - M U M B L E
0013500 ) ( * " N o t u s e d . "
0013520 ) ( F N S C L : C O E R C E
0013540 L I S T - T O - S T R I N G *
0013560 \r L I S T - T O - B I T - V E
0013600 C T O R * L I S T - T O - V E
0013620 C T O R * V E C T O R - T O -
0013640 L I S T * V E C T O R - T O -
0013660 V E C T O R * V E C T O R - T
0013700 O - S T R I N G * \r V E C T O
0013720 R - T O - B I T - V E C T O R *
0013740 S T R I N G - T O - S I M P L
0013760 E - S T R I N G * B I T - V E
0014000 C T O R - T O - S I M P L E - B
0014020 I T - V E C T O R * ) ( * "
0014040 L e f t o v e r . " ) ( \r F
0014060 I L E S C M L S E Q C O M M O
0014100 N C M L S E Q B A S I C S C
0014120 M L S E Q M A P P E R S C M L
0014140 S E Q M O D I F Y C M L S E Q
0014160 F I N D E R C M L S O R T )
0014200 ( P R O P F I L E T Y P E C
0014220 M L S E Q \r ) ( D E C L A R E
0014240 : D O N T E V A L @ L O A D
0014260 D O E V A L @ C O M P I L E D
0014300 O N T C O P Y C O M P I L E R
0014320 V A R S ( A D D V A R S ( N
0014340 L A M A ) ( N L A M L ) ( L
0014360 A M A \r B I T - V E C T O R -
0014400 T O - S I M P L E - B I T - V E
0014420 C T O R * S T R I N G - T O -
0014440 S I M P L E - S T R I N G * V
0014460 E C T O R - T O - B I T - V E C
0014500 T O R * V E C T O R - T O - S
0014520 T R I N G * \r V E C T O R - T
0014540 O - V E C T O R * V E C T O R
0014560 - T O - L I S T * L I S T - T
0014600 O - V E C T O R * L I S T - T
0014620 O - B I T - V E C T O R * L I
0014640 S T - T O - S T R I N G * C L
0014660 : C O E R C E ) ) ) ) ) \r ( P U
0014700 T P R O P S C M L S E Q C O
0014720 P Y R I G H T ( " X e r o x
0014740 C o r p o r a t i o n " 1 9 8
0014760 5 1 9 8 6 ) ) \r S T O P \r
0014776