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