$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSEQBASICS.DCOM!6
0000000 ( F I L E C R E A T E D " 1 2
0000020 - O c t - 8 6 1 8 : 1 0 : 4 4
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 B A S I C S . ; 5 ) \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 . . . " d
0000240 a t e d " 1 - O c t - 8 6
0000260 2 1 : 2 4 : 4 4 " ) \r ( F I L E
0000300 C R E A T E D " 1 2 - O c t -
0000320 8 6 1 7 : 3 1 : 3 4 " { E R
0000340 I S } < L I S P C O R E > S O U
0000360 R C E S > C M L S E Q B A S I C
0000400 S . ; 5 1 9 5 1 0 c h a n g
0000420 e s t o : ( F U N C T I O N
0000440 S \r M A K E - S E Q U E N C E
0000460 - O F - T Y P E M A K E - S E
0000500 Q U E N C E C O N C A T E N A
0000520 T E ) p r e v i o u s d a t
0000540 e : " 1 - O c t - 8 6 1 9
0000560 : 3 2 : 5 7 " \r { E R I S } <
0000600 L I S P C O R E > S O U R C E S
0000620 > C M L S E Q B A S I C S . ; 4
0000640 ) \r ( R P A Q Q C M L S E Q B
0000660 A S I C S C O M S ( ( D E C L
0000700 A R E : E V A L @ C O M P I L
0000720 E D O N T C O P Y ( F I L E
0000740 S C M L S E Q C O M M O N ) )
0000760 ( F U N C T I O N S C H E C
0001000 K - S U B S E Q \r M A K E - S
0001020 E Q U E N C E - O F - T Y P E )
0001040 ( C O M S ( F U N C T I O N
0001060 S C L : E L T % % S E T E L
0001100 T ) ( S E T F S C L : E L T
0001120 ) ) ( C O M S ( F U N C T I
0001140 O N S S U B S E Q \r L I S T
0001160 - S U B S E Q * V E C T O R -
0001200 S U B S E Q * ) ( S E T F S
0001220 S U B S E Q ) ) ( F U N C T I
0001240 O N S C O P Y - S E Q L I S
0001260 T - C O P Y - S E Q L I S T -
0001300 C O P Y - S E Q * \r V E C T O
0001320 R - C O P Y - S E Q V E C T O
0001340 R - C O P Y - S E Q * ) ( F U
0001360 N C T I O N S C L : L E N G T
0001400 H ) ( F U N C T I O N S C L
0001420 : R E V E R S E L I S T - R E
0001440 V E R S E - M A C R O \r V E C
0001460 T O R - R E V E R S E V E C T
0001500 O R - R E V E R S E * ) ( F U
0001520 N C T I O N S N R E V E R S E
0001540 L I S T - N R E V E R S E - M
0001560 A C R O L I S T - N R E V E R
0001600 S E * V E C T O R - N R E V E
0001620 R S E \r V E C T O R - N R E V
0001640 E R S E * ) ( F U N C T I O N
0001660 S M A K E - S E Q U E N C E )
0001700 ( F U N C T I O N S C O N C
0001720 A T E N A T E C O N C A T E N
0001740 A T E - T O - L I S T \r C O N
0001760 C A T - T O - L I S T * C O N
0002000 C A T - T O - S I M P L E * )
0002020 ( P R O P S ( C M L S E Q B A
0002040 S I C S F I L E T Y P E ) ) )
0002060 ) \r C H E C K - S U B S E Q D
0002100 1 \r ( L ( 3 L E N G T H 2
0002120 E N D 1 S T A R T 0 S
0002140 E Q ) ) \0 H \0 \0 \0 004 C \t \0 \0 265
0002160 B j A 363 263 025 A B \n \0 \0 221 h 200 i 262
0002200 023 C A 363 221 h 200 i 230 o \0 \0 \0 A \n \0
0002220 \0 020 j B 363 243 B C 363 230 o \0 \0 \0 B \n
0002240 \0 \0 020 A B 363 264 \v o \0 \0 \0 A B \v \0
0002260 \0 020 \0 ( 1 0 5 Q C L : E R R O
0002300 R 6 6 Q C L : E R R O R 4
0002320 5 Q C L : E R R O R 1 7 Q
0002340 % % = 3 C L : Z E R O P ) \r
0002360 N I L \r ( 1 0 0 Q " I l l e
0002400 g a l s u b s e q u e n c e :
0002420 ~ & S T A R T ( ~ D ) m a y
0002440 n o t b e g r e a t e r
0002460 t h a n E N D ( ~ D ) . "
0002500 6 2 Q " I n d e x o u t o
0002520 f r a n g e : ~ D . " \r 4
0002540 1 Q " I n d e x o u t o f
0002560 r a n g e : ~ D . " ) \r M A
0002600 K E - S E Q U E N C E - O F - T
0002620 Y P E D 1 \r ( L ( 1 L E N
0002640 G T H 0 T Y P E ) ) \0 w 001
0002660 \0 \0 002 @ d 003 220 001 021 001 \0 H d g \0 \0
0002700 360 225 277 A \t \0 \0 020 g \0 \0 360 247 H d g
0002720 \0 \0 360 233 277 A g \0 \0 g \0 \0 \v \0 \0 020
0002740 g \0 \0 360 247 H d g \0 \0 360 225 277 A \t \0
0002760 \0 020 g \0 \0 360 224 A \t \0 \0 020 H g \0 \0
0003000 360 254 H g \0 \0 360 246 H g \0 \0 360 262 023 @
0003020 223 @ 003 262 344 A g \0 \0 @ 002 001 \v \0 \0 020
0003040 o \0 \0 \0 @ \n \0 \0 020 \0 ( 1 6 4 Q
0003060 C L : E R R O R 1 5 3 Q M A
0003100 K E - A R R A Y 1 0 7 Q M A
0003120 K E - A R R A Y 7 5 Q M A K
0003140 E - S T R I N G 5 3 Q M A K
0003160 E - A R R A Y 2 3 Q M A K E
0003200 - L I S T ) \r ( 1 4 5 Q : E L
0003220 E M E N T - T Y P E 1 3 0 Q
0003240 V E C T O R 1 2 2 Q S I M P
0003260 L E - A R R A Y 1 1 4 Q C L
0003300 : A R R A Y 1 0 1 Q S I M P
0003320 L E - V E C T O R 6 6 Q S I
0003340 M P L E - S T R I N G 5 7 Q
0003360 S T R I N G 5 0 Q B I T 4
0003400 5 Q : E L E M E N T - T Y P E
0003420 3 6 Q S I M P L E - B I T -
0003440 V E C T O R 2 7 Q B I T - V
0003460 E C T O R 1 4 Q L I S T ) \r
0003500 ( 1 6 0 Q " ~ S i s a
0003520 b a d t y p e s p e c i f i
0003540 e r f o r s e q u e n c e
0003560 f u n c t i o n s . " ) \r C L :
0003600 E L T D 1 \r ( L ( 1 I N D
0003620 E X 0 S E Q U E N C E ) )
0003640 \0 211 003 \0 \0 002 j A 363 237 g \0 \0 g \0 \0
0003660 @ g \0 \0 A \r 005 \0 \0 277 @ 021 ! 002 H Y
0003700 227 I d 303 \0 \0 262 F 277 A Z j \n \0 \0 262
0003720 034 @ d \t \0 \0 262 023 277 g \0 \0 g \0 \0 @
0003740 g \0 \0 A \r 005 \0 \0 020 001 020 @ d \t \0 \0
0003760 262 023 277 g \0 \0 g \0 \0 @ g \0 \0 A \r 005
0004000 \0 \0 202 002 b \0 277 J k 325 260 300 \t \0 \0 264
0004020 023 A @ \t \0 \0 375 363 221 h 200 i 263 275 @ A
0004040 266 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0 (
0004060 2 0 6 Q C H E C K - T Y P E -
0004100 F A I L 1 5 7 Q V E C T O R
0004120 - L E N G T H 1 5 0 Q V E C
0004140 T O R P 1 3 3 Q C L : E R R
0004160 O R 1 1 1 Q E N D P 1 0 1
0004200 Q C L : E R R O R 5 7 Q E
0004220 N D P 5 0 Q % % = 2 2 Q
0004240 C L : E R R O R ) \r ( 1 7 6 Q
0004260 S E Q U E N C E 1 2 6 Q : I
0004300 N D E X 1 2 2 Q : N A M E
0004320 1 1 7 Q I N D E X - B O U N D
0004340 S - E R R O R 7 4 Q : I N D
0004360 E X 7 0 Q : N A M E 6 5 Q
0004400 I N D E X - B O U N D S - E R
0004420 R O R 3 7 Q L I S T P 1 5
0004440 Q : I N D E X 1 1 Q : N A
0004460 M E 6 I N D E X - B O U N D
0004500 S - E R R O R ) \r ( 2 0 3 Q
0004520 ( O R L I S T V E C T O R )
0004540 ) \r % % S E T E L T D 1 \r ( L
0004560 ( 2 N E W V A L 1 I N D
0004600 E X 0 S E Q U E N C E ) )
0004620 \0 241 006 \0 \0 003 j A 363 237 g \0 \0 g \0 \0
0004640 @ g \0 \0 A \r 005 \0 \0 277 @ 021 Q 005 H Y
0004660 227 I d 303 \0 \0 262 J 277 A @ 273 Z j \n \0
0004700 \0 262 036 K d \t \0 \0 262 023 277 g \0 \0 g \0
0004720 \0 @ g \0 \0 A \r 005 \0 \0 201 B 030 B 020 K
0004740 d 002 \t \0 \0 262 023 277 g \0 \0 g \0 \0 @ g
0004760 \0 \0 A \r 005 \0 \0 201 002 [ 277 J k 325 260 276
0005000 \t \0 \0 264 ' A @ \t \0 \0 375 363 221 h 200 i
0005020 237 g \0 \0 g \0 \0 @ g \0 \0 A \r 005 \0 \0
0005040 020 @ 274 A 275 B L M 267 020 g \0 \0 H o \0
0005060 \0 \0 \f \0 \0 020 \0 ( 2 3 6 Q C H E
0005100 C K - T Y P E - F A I L 2 1 1
0005120 Q C L : E R R O R 1 6 3 Q
0005140 V E C T O R - L E N G T H 1 5
0005160 4 Q V E C T O R P 1 4 0 Q
0005200 C L : E R R O R 1 1 6 Q E N
0005220 D P 1 0 3 Q C L : E R R O R
0005240 6 1 Q E N D P 5 2 Q % %
0005260 = 2 2 Q C L : E R R O R ) \r
0005300 ( 2 2 6 Q S E Q U E N C E 2
0005320 0 4 Q : I N D E X 2 0 0 Q
0005340 : N A M E 1 7 5 Q I N D E X
0005360 - B O U N D S - E R R O R 1 3
0005400 3 Q : I N D E X 1 2 7 Q :
0005420 N A M E 1 2 4 Q I N D E X -
0005440 B O U N D S - E R R O R 7 6 Q
0005460 : I N D E X 7 2 Q : N A M
0005500 E 6 7 Q I N D E X - B O U N
0005520 D S - E R R O R 3 7 Q L I S
0005540 T P 1 5 Q : I N D E X 1 1
0005560 Q : N A M E 6 I N D E X -
0005600 B O U N D S - E R R O R ) \r (
0005620 2 3 3 Q ( O R L I S T V E
0005640 C T O R ) ) \r ( R E M P R O P
0005660 ( Q U O T E C L : E L T ) (
0005700 Q U O T E S E T F - M E T H O
0005720 D - E X P A N D E R ) ) \r ( P U
0005740 T P R O P S C L : E L T S E
0005760 T F - I N V E R S E % % S E T
0006000 E L T ) \r S U B S E Q D 1 \r (
0006020 L ( 2 E N D 1 S T A R T
0006040 0 S E Q U E N C E ) ) \0 ;
0006060 002 \0 \0 003 j A 363 230 o \0 \0 \0 A \n \0 \0
0006100 020 @ 021 021 001 H Y 226 I d 303 \0 \0 227 277 @
0006120 A B \v \0 \0 020 \t \0 \0 264 \t @ A B \v \0
0006140 \0 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0 (
0006160 7 0 Q C H E C K - T Y P E - F
0006200 A I L 5 4 Q V E C T O R - S
0006220 U B S E Q * 4 4 Q V E C T O
0006240 R P 4 0 Q L I S T - S U B S
0006260 E Q * 1 3 Q C L : E R R O R
0006300 ) \r ( 6 0 Q S E Q U E N C E
0006320 3 0 Q L I S T P ) \r ( 6 5 Q
0006340 ( O R L I S T V E C T O R
0006360 ) 7 " I n d e x o u t o
0006400 f r a n g e : ~ D . " ) \r L
0006420 I S T - S U B S E Q * D 1 \r (
0006440 L ( 2 E N D 1 S T A R T
0006460 0 S E Q U E N C E ) ) \0 215
0006500 005 \0 \0 003 B 235 A B 363 231 o \0 \0 \0 A B
0006520 \v \0 \0 020 @ 241 h 020 B 262 ! A d B \n \0
0006540 \0 262 032 277 A @ \t \0 \0 375 363 221 h 200 i 264
0006560 # o \0 \0 \0 A \n \0 \0 020 A @ \n \0 \0 021
0006600 021 001 H 001 h 032 271 H 265 \v o \0 \0 \0 A \n
0006620 \0 \0 020 002 I A k 324 021 003 004 J \t \0 \0 263
0006640 036 B 265 023 J 002 K d J 001 & 277 002 L k 324
0006660 274 273 Z 260 351 L 363 221 h 200 i 262 351 B 225 L
0006700 B \n \0 \0 221 I 020 o \0 \0 \0 B \n \0 \0 020
0006720 \0 ( 2 1 2 Q C L : E R R O R
0006740 1 7 7 Q % % = 1 3 2 Q E N
0006760 D P 1 1 5 Q C L : E R R O R
0007000 7 2 Q N T H C D R 6 4 Q
0007020 C L : E R R O R 4 4 Q C L :
0007040 L E N G T H 3 4 Q % % = 1
0007060 6 Q C L : E R R O R ) \r N I L
0007100 \r ( 2 0 6 Q " I n d e x o
0007120 u t o f r a n g e : ~ D .
0007140 " 1 1 1 Q " I n d e x o u
0007160 t o f r a n g e : ~ D . "
0007200 6 0 Q " I n d e x o u t
0007220 o f r a n g e : ~ D . " 1
0007240 1 Q " I l l e g a l s u b s
0007260 e q u e n c e : ~ & S T A R T
0007300 ( ~ D ) m a y n o t b e
0007320 g r e a t e r t h a n E N D
0007340 ( ~ D ) . " ) \r V E C T O R -
0007360 S U B S E Q * D 1 \r ( L ( 2
0007400 E N D 1 S T A R T 0 S
0007420 E Q U E N C E ) ) \0 245 \t \0 \0 003
0007440 @ \t \0 \0 021 Q 005 B 221 h 200 i 223 H b 004
0007460 277 A B 363 231 o \0 \0 \0 A B \v \0 \0 020 H
0007500 d \t \0 \0 225 277 @ \t \0 \0 020 A 363 221 h 200
0007520 i 230 o \0 \0 \0 A \n \0 \0 020 A j @ [ Z
0007540 Y 226 I d 303 \0 \0 230 277 B A 325 \t \0 \0 260
0007560 - \t \0 \0 227 B A 325 \t \0 \0 260 ! I \t \0
0007600 \0 264 020 B A 325 g \0 \0 K \t \0 \0 \v \0 \0
0007620 212 g \0 \0 J o \0 \0 \0 \f \0 \0 021 003 \b B
0007640 N 363 221 h 200 i 222 O 020 020 O 020 275 O 016 274
0007660 @ N 266 M L 267 277 N k 324 O 016 k 324 _ 016
0007700 277 276 260 335 \0 ( 1 7 3 Q C H E C K
0007720 - T Y P E - F A I L 1 5 7 Q
0007740 M A K E - A R R A Y 1 5 4 Q
0007760 A R R A Y - E L E M E N T - T Y
0010000 P E 1 4 0 Q C L : A R R A Y
0010020 P 1 3 2 Q M A K E - S T R I
0010040 N G 1 2 3 Q C L : S T R I N
0010060 G P 1 1 6 Q M A K E - L I S
0010100 T 7 1 Q C L : E R R O R 5
0010120 1 Q C O P Y - S E Q 4 3 Q
0010140 C L : Z E R O P 3 5 Q C L :
0010160 E R R O R 3 V E C T O R - L
0010200 E N G T H ) \r ( 1 6 3 Q S E Q
0010220 1 5 0 Q : E L E M E N T - T
0010240 Y P E 1 0 6 Q L I S T P ) \r
0010260 ( 1 7 0 Q ( O R L I S T
0010300 S T R I N G C L : A R R A Y )
0010320 6 5 Q " I n d e x o u t
0010340 o f r a n g e : ~ D . " 3
0010360 0 Q " I l l e g a l s u b s
0010400 e q u e n c e : ~ & S T A R T
0010420 ( ~ D ) m a y n o t b e
0010440 g r e a t e r t h a n E N D
0010460 ( ~ D ) . " ) \r ( R E M P R O
0010500 P ( Q U O T E S U B S E Q )
0010520 ( Q U O T E S E T F - I N V
0010540 E R S E ) ) \r S U B S E Q - s e
0010560 t f - e x p a n d e r D 1 \r (
0010600 P 1 3 Q N E W - S E Q U E N
0010620 C E P 5 S U B S E Q - s e
0010640 t f - f o r m P 4 D U M M
0010660 I E S P 3 X I 0 A C
0010700 C E S S - F O R M ) \0 w \f \0 \0
0010720 001 021 @ 003 @ 260 030 d 001 273 \b \0 \0 270 I 221
0010740 h 200 i 224 H h 032 Z 202 I H & 271 002 003 265
0010760 350 J 022 021 a \n @ 001 L 032 275 \b \0 \0 021 001
0011000 \v L @ 002 O 026 h 032 M 002 _ 024 001 _ 022 277
0011020 O 024 002 _ 020 001 _ 016 277 O 020 002 d 220 001 276
0011040 g \0 \0 g \0 \0 O 022 O 026 g \0 \0 O 016 g
0011060 \0 \0 N h 032 032 032 032 032 032 032 O 026 h 032 032
0011100 032 M \r 005 \0 \0 020 \0 ( 1 6 4 Q V A
0011120 L U E S 5 4 Q G E N S Y M
0011140 1 3 Q G E N S Y M ) \r ( 1 4 0
0011160 Q : E N D 1 1 3 3 Q : S T
0011200 A R T 1 1 2 4 Q C L : R E P
0011220 L A C E 1 2 1 Q P R O G N )
0011240 \r ( ) \r ( P U T P R O P S S U
0011260 B S E Q S E T F - M E T H O D
0011300 - E X P A N D E R S U B S E Q
0011320 - s e t f - e x p a n d e r ) \r
0011340 C O P Y - S E Q D 1 \r ( L (
0011360 0 S E Q U E N C E ) ) \0 * 002
0011400 \0 \0 001 @ 021 021 001 H Y 226 I d 303 \0 \0 225
0011420 277 @ \t \0 \0 020 \t \0 \0 264 \a @ \t \0 \0 020
0011440 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0 ( 4 7
0011460 Q C H E C K - T Y P E - F A I
0011500 L 3 3 Q V E C T O R - C O P
0011520 Y - S E Q * 2 5 Q V E C T O
0011540 R P 2 1 Q L I S T - C O P Y
0011560 - S E Q * ) \r ( 3 7 Q S E Q U
0011600 E N C E 1 3 Q L I S T P ) \r
0011620 ( 4 4 Q ( O R L I S T V
0011640 E C T O R ) ) \r ( L E T * ( (
0011660 A 3 6 2 6 ( Q U O T E C O P
0011700 Y - S E Q ) ) ( A 3 6 2 7 (
0011720 Q U O T E C L : F U N C T I O
0011740 N ) ) ( A 3 6 2 8 \r " R e t
0011760 u r n s a c o p y o f S
0012000 E Q U E N C E w h i c h i s
0012020 E Q U A L P t o S E Q U E
0012040 N C E b u t n o t E Q . "
0012060 ) ) ( P R O G N ( C O N D
0012100 ( ( F B O U N D P ( Q U O T E
0012120 \r S E T - D O C U M E N T A T
0012140 I O N ) ) ( S E T - D O C U M
0012160 E N T A T I O N A 3 6 2 6 A
0012200 3 6 2 7 A 3 6 2 8 ) ) ) A 3
0012220 6 2 8 ) ) \r e x p a n d - L I S
0012240 T - C O P Y - S E Q D 1 \r ( L
0012260 ( 1 $ $ M A C R O - E N V I
0012300 R O N M E N T 0 $ $ M A C R
0012320 O - F O R M ) ) \0 017 001 \0 \0 002 @
0012340 002 001 021 001 \0 g \0 \0 H h 032 032 020 \0 N I
0012360 L \r ( 1 0 Q A P P E N D ) \r (
0012400 ) \r ( S E T F - M A C R O - F U
0012420 N C T I O N ( Q U O T E L I
0012440 S T - C O P Y - S E Q ) ( Q U
0012460 O T E e x p a n d - L I S T -
0012500 C O P Y - S E Q ) ) \r L I S T -
0012520 C O P Y - S E Q * D 1 \r ( L
0012540 ( 0 S E Q U E N C E ) ) \0 006
0012560 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3 \ A P
0012600 P E N D 2 ) \r N I L \r ( ) \r e x
0012620 p a n d - V E C T O R - C O P Y
0012640 - S E Q D 1 \r ( L ( 1 $ $
0012660 M A C R O - E N V I R O N M E N
0012700 T 0 $ $ M A C R O - F O R M
0012720 ) ) \0 f 003 \0 \0 002 @ 002 021 ! 002 H 001
0012740 271 H 002 001 272 g \0 \0 g \0 \0 g \0 \0 g \0
0012760 \0 g \0 \0 I h 032 032 032 h 032 032 h 032 032 h
0013000 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 J o
0013020 \0 \0 \0 032 032 h 032 032 h 032 032 o \0 \0 \0 g
0013040 \0 \0 o \0 \0 \0 g \0 \0 I o \0 \0 \0 032 032
0013060 h 032 032 032 h 032 032 032 032 h 032 032 032 020 \0 N
0013100 I L \r ( 1 1 7 Q A R E F 1 1
0013120 0 Q S E T F 6 4 Q M A K E
0013140 - S E Q U E N C E - O F - T Y P
0013160 E 6 1 Q C O P Y 5 2 Q C
0013200 L : D O 3 2 Q V E C T O R
0013220 2 7 Q T H E 2 4 Q V E C T
0013240 O R - L E N G T H 2 1 Q L E
0013260 N G T H 1 6 Q L E T ) \r (
0013300 1 2 4 Q ( I N D E X ) 1 1 4
0013320 Q ( A R E F C O P Y I N D
0013340 E X ) 1 0 5 Q ( ( = I N D
0013360 E X L E N G T H ) C O P Y )
0013400 7 1 Q ( L E N G T H ) 5 6
0013420 Q ( I N D E X 0 ( 1 + I
0013440 N D E X ) ) ) \r ( S E T F - M A
0013460 C R O - F U N C T I O N ( Q U
0013500 O T E V E C T O R - C O P Y -
0013520 S E Q ) ( Q U O T E e x p a
0013540 n d - V E C T O R - C O P Y - S
0013560 E Q ) ) \r V E C T O R - C O P Y
0013600 - S E Q * D 1 \r ( L ( 0 S
0013620 E Q U E N C E ) ) \0 * 005 \0 \0 001
0013640 @ \t \0 \0 021 A 004 j @ \t \0 \0 H \n \0 \0
0013660 272 Y H \n \0 \0 221 J 020 J 274 I 273 @ I 266
0013700 L K 267 277 I k 324 260 352 \0 ( 2 5 Q %
0013720 % = 1 7 Q M A K E - S E Q U
0013740 E N C E - O F - T Y P E 1 3 Q
0013760 T Y P E - O F 3 V E C T O
0014000 R - L E N G T H ) \r N I L \r ( )
0014020 \r C L : L E N G T H D 1 \r ( L
0014040 ( 0 S E Q U E N C E ) ) \0
0014060 * 002 \0 \0 001 @ 021 021 001 H Y 226 I d 303 \0
0014100 \0 225 277 @ \t \0 \0 020 \t \0 \0 264 \a @ \t \0
0014120 \0 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0 (
0014140 4 7 Q C H E C K - T Y P E - F
0014160 A I L 3 3 Q V E C T O R - L
0014200 E N G T H 2 5 Q V E C T O R
0014220 P 2 1 Q L E N G T H ) \r ( 3
0014240 7 Q S E Q U E N C E 1 3 Q
0014260 L I S T P ) \r ( 4 4 Q ( O R
0014300 L I S T V E C T O R ) ) \r C
0014320 L : R E V E R S E D 1 \r ( L
0014340 ( 0 S E Q U E N C E ) ) \0 *
0014360 002 \0 \0 001 @ 021 021 001 H Y 226 I d 303 \0 \0
0014400 225 277 @ \t \0 \0 020 \t \0 \0 264 \a @ \t \0 \0
0014420 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0 ( 4
0014440 7 Q C H E C K - T Y P E - F A
0014460 I L 3 3 Q V E C T O R - R E
0014500 V E R S E * 2 5 Q V E C T O
0014520 R P 2 1 Q R E V E R S E ) \r
0014540 ( 3 7 Q S E Q U E N C E 1 3
0014560 Q L I S T P ) \r ( 4 4 Q (
0014600 O R L I S T V E C T O R ) )
0014620 \r ( L E T * ( ( A 3 6 3 3 (
0014640 Q U O T E C L : R E V E R S E
0014660 ) ) ( A 3 6 3 4 ( Q U O T E
0014700 C L : F U N C T I O N ) ) (
0014720 A 3 6 3 5 \r " R e t u r n s
0014740 a n e w s e q u e n c e c
0014760 o n t a i n i n g t h e s a
0015000 m e e l e m e n t s b u t
0015020 i n r e v e r s e o r d e r
0015040 . " ) ) ( P R O G N ( C O N
0015060 D ( ( F B O U N D P ( \r Q U
0015100 O T E S E T - D O C U M E N T
0015120 A T I O N ) ) ( S E T - D O C
0015140 U M E N T A T I O N A 3 6 3 3
0015160 A 3 6 3 4 A 3 6 3 5 ) ) )
0015200 A 3 6 3 5 ) ) \r e x p a n d - L
0015220 I S T - R E V E R S E - M A C R
0015240 O D 1 \r ( L ( 1 $ $ M A C
0015260 R O - E N V I R O N M E N T 0
0015300 $ $ M A C R O - F O R M ) )
0015320 \0 0 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 o
0015340 \0 \0 \0 g \0 \0 H h 032 032 o \0 \0 \0 032 g
0015360 \0 \0 g \0 \0 H h 032 032 o \0 \0 \0 032 032 h
0015400 032 032 032 032 020 \0 N I L \r ( 3 6 Q C
0015420 L : P O P 3 3 Q C L : P U S
0015440 H 1 7 Q E N D P 1 0 Q C
0015460 L : D O ) \r ( 4 6 Q ( N E W
0015500 - L I S T ) 2 7 Q ( N E W -
0015520 L I S T ) 1 4 Q ( ( N E W -
0015540 L I S T N I L ) ) ) \r ( S E T
0015560 F - M A C R O - F U N C T I O N
0015600 ( Q U O T E L I S T - R E V
0015620 E R S E - M A C R O ) ( Q U O
0015640 T E e x p a n d - L I S T - R
0015660 E V E R S E - M A C R O ) ) \r e
0015700 x p a n d - V E C T O R - R E V
0015720 E R S E D 1 \r ( L ( 1 $ $
0015740 M A C R O - E N V I R O N M E N
0015760 T 0 $ $ M A C R O - F O R M
0016000 ) ) \0 a 003 \0 \0 002 @ 002 021 ! 002 H 001
0016020 271 H 002 001 272 g \0 \0 g \0 \0 g \0 \0 I h
0016040 032 032 h 032 032 h 032 g \0 \0 o \0 \0 \0 o \0
0016060 \0 \0 g \0 \0 g \0 \0 J o \0 \0 \0 032 032 h
0016100 032 032 h 032 032 032 o \0 \0 \0 g \0 \0 o \0 \0
0016120 \0 g \0 \0 I o \0 \0 \0 032 032 h 032 032 032 h
0016140 032 032 032 032 h 032 032 032 020 \0 N I L \r ( 1
0016160 1 2 Q A R E F 1 0 3 Q S E
0016200 T F 5 6 Q M A K E - S E Q U
0016220 E N C E - O F - T Y P E 5 3 Q
0016240 N E W - S E Q U E N C E 4 0
0016260 Q C L : D O 2 4 Q V E C T
0016300 O R - L E N G T H 2 1 Q L E
0016320 N G T H 1 6 Q L E T ) \r (
0016340 1 1 7 Q ( B A C K W A R D - I
0016360 N D E X ) 1 0 7 Q ( A R E F
0016400 N E W - S E Q U E N C E F O
0016420 R W A R D - I N D E X ) 1 0 0
0016440 Q ( ( = F O R W A R D - I N
0016460 D E X L E N G T H ) N E W -
0016500 S E Q U E N C E ) \r 6 3 Q (
0016520 L E N G T H ) 5 0 Q ( B A C
0016540 K W A R D - I N D E X ( 1 -
0016560 L E N G T H ) ( 1 - B A C K
0016600 W A R D - I N D E X ) ) 4 4 Q
0016620 ( F O R W A R D - I N D E X
0016640 0 ( 1 + F O R W A R D - I N
0016660 D E X ) ) ) \r ( S E T F - M A C
0016700 R O - F U N C T I O N ( Q U O
0016720 T E V E C T O R - R E V E R S
0016740 E ) ( Q U O T E e x p a n d
0016760 - V E C T O R - R E V E R S E )
0017000 ) \r V E C T O R - R E V E R S E
0017020 * D 1 \r ( L ( 0 S E Q U E
0017040 N C E ) ) \0 4 006 \0 \0 001 @ \t \0 \0
0017060 021 ! 002 j H k 325 @ \t \0 \0 H \n \0 \0 021
0017100 003 005 K H \n \0 \0 221 M 020 M 272 K 271 @ L
0017120 266 J I 267 277 K k 324 L k 325 274 [ 260 346 \0
0017140 ( 3 2 Q % % = 2 2 Q M A K
0017160 E - S E Q U E N C E - O F - T Y
0017200 P E 1 6 Q T Y P E - O F 3
0017220 V E C T O R - L E N G T H ) \r
0017240 N I L \r ( ) \r N R E V E R S E
0017260 D 1 \r ( L ( 0 S E Q U E N C
0017300 E ) ) \0 * 002 \0 \0 001 @ 021 021 001 H Y
0017320 226 I d 303 \0 \0 225 277 @ \t \0 \0 020 \t \0 \0
0017340 264 \a @ \t \0 \0 020 g \0 \0 H o \0 \0 \0 \f
0017360 \0 \0 020 \0 ( 4 7 Q C H E C K - T
0017400 Y P E - F A I L 3 3 Q V E C
0017420 T O R - N R E V E R S E * 2 5
0017440 Q V E C T O R P 2 1 Q D R
0017460 E V E R S E ) \r ( 3 7 Q S E Q
0017500 U E N C E 1 3 Q L I S T P )
0017520 \r ( 4 4 Q ( O R L I S T
0017540 V E C T O R ) ) \r ( L E T * (
0017560 ( A 3 6 3 9 ( Q U O T E N R
0017600 E V E R S E ) ) ( A 3 6 4 0
0017620 ( Q U O T E C L : F U N C T I
0017640 O N ) ) ( A 3 6 4 1 \r " R e
0017660 t u r n s a s e q u e n c e
0017700 o f t h e s a m e e l e
0017720 m e n t s i n r e v e r s e
0017740 o r d e r ( t h e a r g u
0017760 m e n t i s d e s t r o y e
0020000 d ) . " ) ) ( P R O G N ( C
0020020 O N D \r ( ( F B O U N D P (
0020040 Q U O T E S E T - D O C U M E
0020060 N T A T I O N ) ) ( S E T - D
0020100 O C U M E N T A T I O N A 3 6
0020120 3 9 A 3 6 4 0 A 3 6 4 1 ) )
0020140 ) A 3 6 4 1 ) ) \r e x p a n d
0020160 - L I S T - N R E V E R S E - M
0020200 A C R O D 1 \r ( L ( 1 $ $
0020220 M A C R O - E N V I R O N M E N
0020240 T 0 $ $ M A C R O - F O R M
0020260 ) ) \0 1 001 \0 \0 002 @ 002 001 021 001 \0 g
0020300 \0 \0 g \0 \0 g \0 \0 H h 032 032 o \0 \0 \0
0020320 032 032 g \0 \0 H o \0 \0 \0 032 032 o \0 \0 \0
0020340 032 032 o \0 \0 \0 032 032 020 \0 N I L \r ( 3
0020360 3 Q 2 N D 1 6 Q C D R 1
0020400 3 Q 1 S T 1 0 Q C L : D O
0020420 ) \r ( 5 4 Q ( ( ( E N D P
0020440 2 N D ) 3 R D ) ( R P L A C
0020460 D 2 N D 3 R D ) ) 4 6 Q
0020500 ( ( 3 R D ( Q U O T E N I L
0020520 ) 2 N D ) ) 4 0 Q ( 1 S T
0020540 ) 2 6 Q ( ( C O N D ( ( E
0020560 N D P 1 S T ) 1 S T ) ( T
0020600 ( C D R 1 S T ) ) ) ) ) \r (
0020620 S E T F - M A C R O - F U N C T
0020640 I O N ( Q U O T E L I S T -
0020660 N R E V E R S E - M A C R O )
0020700 ( Q U O T E e x p a n d - L I
0020720 S T - N R E V E R S E - M A C R
0020740 O ) ) \r L I S T - N R E V E R S
0020760 E * D 1 \r ( L ( 0 S E Q U
0021000 E N C E ) ) \0 # 003 \0 \0 001 @ 002 @
0021020 021 022 002 I d \t \0 \0 221 J 020 J 031 277 H d
0021040 \t \0 \0 222 277 H 200 002 H I 272 271 270 260 346 \0
0021060 ( 2 5 Q E N D P 1 2 Q E N
0021100 D P ) \r N I L \r ( ) \r e x p a n
0021120 d - V E C T O R - N R E V E R S
0021140 E D 1 \r ( L ( 1 $ $ M A C
0021160 R O - E N V I R O N M E N T 0
0021200 $ $ M A C R O - F O R M ) )
0021220 \0 W 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 g
0021240 \0 \0 g \0 \0 g \0 \0 g \0 \0 H h 032 032 032
0021260 h 032 032 h 032 032 h 032 g \0 \0 o \0 \0 \0 o
0021300 \0 \0 \0 H h 032 032 g \0 \0 g \0 \0 H o \0
0021320 \0 \0 032 032 g \0 \0 H o \0 \0 \0 032 032 h 032
0021340 032 032 h 032 032 032 032 h 032 032 032 020 \0 N I L
0021360 \r ( 1 0 0 Q A R E F 6 6 Q
0021400 A R E F 6 3 Q R O T A T E F
0021420 4 4 Q C L : D O 2 4 Q V
0021440 E C T O R 2 1 Q T H E 1 6
0021460 Q V E C T O R - L E N G T H
0021500 1 3 Q L E N G T H 1 0 Q L
0021520 E T ) \r ( 1 0 5 Q ( R I G H
0021540 T - I N D E X ) 7 3 Q ( L E
0021560 F T - I N D E X ) 5 4 Q ( =
0021600 L E F T - I N D E X H A L F
0021620 - L E N G T H ) 5 0 Q ( ( L
0021640 E F T - I N D E X 0 ( 1 +
0021660 L E F T - I N D E X ) ) ( R I
0021700 G H T - I N D E X ( 1 - L E
0021720 N G T H ) ( 1 - R I G H T -
0021740 I N D E X ) ) ( H A L F - L E
0021760 N G T H ( I Q U O T I E N T
0022000 L E N G T H 2 ) ) ) ) \r ( S E
0022020 T F - M A C R O - F U N C T I O
0022040 N ( Q U O T E V E C T O R -
0022060 N R E V E R S E ) ( Q U O T E
0022100 e x p a n d - V E C T O R - N
0022120 R E V E R S E ) ) \r V E C T O R
0022140 - N R E V E R S E * D 1 \r ( L
0022160 ( 0 S E Q U E N C E ) ) \0
0022200 B \t \0 \0 001 @ \t \0 \0 021 Q 005 j H k 325
0022220 H l 002 333 021 003 \b N O 020 \n \0 \0 221 @ 020
0022240 @ 275 N 274 M L 266 273 @ 272 O 016 271 J I 266
0022260 M L 267 277 K J I 267 277 N k 324 O 016 k 325
0022300 _ 016 277 ^ 260 324 \0 ( 2 7 Q % % =
0022320 3 V E C T O R - L E N G T H )
0022340 \r N I L \r ( ) \r M A K E - S E Q
0022360 U E N C E D 1 \r ( L ( 0 -
0022400 a r g s - ) ) \0 341 \v \0 002 \0 e 021
0022420 001 \0 k a 021 221 \n l 002 a 272 H l 003 274 273
0022440 L d K 363 231 277 h 275 I d 003 263 027 260 026 a
0022460 g \0 \0 360 225 L k 330 a 260 356 L l 002 324 \
0022500 260 341 001 ^ d g \0 \0 360 231 277 J g \0 \0 M
0022520 \v \0 \0 020 g \0 \0 360 250 N d g \0 \0 360 262
0022540 0 277 J \t \0 \0 _ 016 277 M 262 " j _ 024 J
0022560 \n \0 \0 263 031 O 016 _ 022 277 O 024 _ 020 277 M
0022600 O 022 O 020 267 277 O 024 k 324 260 343 O 016 020 g
0022620 \0 \0 360 230 J g \0 \0 M \v \0 \0 020 N g \0
0022640 \0 360 256 N g \0 \0 360 250 N d g \0 \0 360 262
0022660 031 277 I 223 I 003 262 336 J g \0 \0 I 002 001 g
0022700 \0 \0 M \r 005 \0 \0 020 g \0 \0 360 246 N g \0
0022720 \0 360 262 023 J g \0 \0 o \0 \0 \0 g \0 \0 M
0022740 \r 005 \0 \0 020 o \0 \0 \0 I \n \0 \0 020 \0 (
0022760 3 3 6 Q C L : E R R O R 3 2
0023000 5 Q M A K E - A R R A Y 2 7
0023020 0 Q M A K E - A R R A Y 2 1
0023040 5 Q M A K E - A R R A Y 1 4
0023060 4 Q % % = 1 2 7 Q M A K E
0023100 - S T R I N G 1 0 4 Q M A K
0023120 E - L I S T ) \r ( 3 2 0 Q : I
0023140 N I T I A L - E L E M E N T 3
0023160 1 1 Q : E L E M E N T - T Y P
0023200 E 3 0 2 Q S I M P L E - B I
0023220 T - V E C T O R 2 7 4 Q B I
0023240 T - V E C T O R 2 6 3 Q : I
0023260 N I T I A L - E L E M E N T 2
0023300 5 5 Q : E L E M E N T - T Y P
0023320 E 2 3 7 Q S I M P L E - A R
0023340 R A Y 2 3 0 Q V E C T O R
0023360 2 2 2 Q C L : A R R A Y 2 1
0023400 1 Q : I N I T I A L - E L E M
0023420 E N T 2 0 3 Q S I M P L E -
0023440 V E C T O R 1 1 7 Q S T R I
0023460 N G 1 1 0 Q S I M P L E - S
0023500 T R I N G 1 0 0 Q : I N I T
0023520 I A L - E L E M E N T 7 1 Q
0023540 L I S T 4 4 Q : I N I T I A
0023560 L - E L E M E N T ) \r ( 3 3 2
0023600 Q " ~ S i s a b a d t
0023620 y p e s p e c i f i e r f o
0023640 r s e q u e n c e s . " 3 1
0023660 5 Q ( M O D 2 ) ) \r C O N C
0023700 A T E N A T E D 1 \r ( L ( 0
0023720 - a r g s - ) ) \0 330 \r \0 002 \0
0023740 e 021 001 \0 k a 021 a \a H l 002 021 2 \f O
0023760 022 d O 020 363 233 277 O 024 022 272 I d 003 263 %
0024000 260 $ a _ 030 277 O 026 265 023 O 030 h 032 _ 026
0024020 _ 024 277 O 022 k 324 _ 022 260 330 O 030 & _ 026
0024040 277 260 362 001 [ d g \0 \0 360 262 & 277 g \0 \0
0024060 j 275 274 J 260 026 d 001 375 002 M k 330 ] n 002
0024100 \0 361 226 h l 4 \n \0 \0 277 265 354 M L 016 020
0024120 g \0 \0 360 263 1 K g \0 \0 360 263 * K g \0
0024140 \0 360 263 # K g \0 \0 360 263 034 K g \0 \0 360
0024160 263 025 K g \0 \0 360 254 K g \0 \0 360 246 K g
0024200 \0 \0 360 262 + g \0 \0 k _ 016 277 276 I J 260
0024220 030 d 001 375 002 O 016 k 330 _ 016 n 002 \0 361 226
0024240 h l 4 \n \0 \0 277 265 352 O 016 N 016 020 o \0
0024260 \0 \0 I \n \0 \0 020 \0 ( 3 2 5 Q C L
0024300 : E R R O R 3 0 5 Q \ L I S
0024320 P E R R O R 1 5 0 Q \ L I S
0024340 P E R R O R ) \r ( 2 4 7 Q C O
0024360 N C A T - T O - S I M P L E *
0024400 2 4 1 Q S I M P L E - B I T -
0024420 V E C T O R 2 3 3 Q B I T -
0024440 V E C T O R 2 2 5 Q S I M P
0024460 L E - A R R A Y 2 1 6 Q C L
0024500 : A R R A Y 2 0 7 Q S T R I
0024520 N G 2 0 0 Q V E C T O R 1
0024540 7 1 Q S I M P L E - S T R I N
0024560 G 1 6 2 Q S I M P L E - V E
0024600 C T O R 1 1 7 Q C O N C A T
0024620 - T O - L I S T * 1 1 0 Q L
0024640 I S T ) \r ( 3 2 1 Q " ~ S :
0024660 i n v a l i d o u t p u t
0024700 t y p e s p e c i f i c a t i
0024720 o n . " ) \r e x p a n d - C O N
0024740 C A T E N A T E - T O - L I S T
0024760 D 1 \r ( L ( 1 $ $ M A C R
0025000 O - E N V I R O N M E N T 0
0025020 $ $ M A C R O - F O R M ) ) \0
0025040 + 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 o \0
0025060 \0 \0 g \0 \0 g \0 \0 H o \0 \0 \0 032 032 o
0025100 \0 \0 \0 032 o \0 \0 \0 032 032 h 032 032 032 020 \0
0025120 N I L \r ( 2 2 Q S E Q U E N C
0025140 E S 1 7 Q C L : D O 1 0 Q
0025160 L E T ) \r ( 4 2 Q ( ( ( N
0025200 U L L S E Q U E N C E S ) (
0025220 C D R R E S U L T ) ) ( L E
0025240 T ( ( S E Q U E N C E ( C A
0025260 R S E Q U E N C E S ) ) ) (
0025300 S E Q - D I S P A T C H S E Q
0025320 U E N C E ( C L : D O ( ( S
0025340 E Q U E N C E S E Q U E N C E
0025360 ( C D R S E Q U E N C E ) )
0025400 ) ( ( E N D P S E Q U E N C
0025420 E ) ) ( S E T Q S P L I C E
0025440 ( C D R ( R P L A C D S P
0025460 L I C E ( C O N S ( C A R
0025500 S E Q U E N C E ) N I L ) ) )
0025520 ) ) ( C L : D O ( ( I N D E
0025540 X 0 ( 1 + I N D E X ) )
0025560 ( L E N G T H ( V E C T O R -
0025600 L E N G T H S E Q U E N C E )
0025620 ) ) ( ( = I N D E X L E N
0025640 G T H ) ) ( S E T Q S P L I
0025660 C E ( C D R ( R P L A C D
0025700 S P L I C E ( C O N S ( A R
0025720 E F S E Q U E N C E I N D E
0025740 X ) N I L ) ) ) ) ) ) ) ) \r
0025760 3 5 Q ( ( S P L I C E R E S
0026000 U L T ) ) 2 7 Q ( ( C D R
0026020 S E Q U E N C E S ) ) 1 4 Q
0026040 ( ( R E S U L T ( L I S T N
0026060 I L ) ) ) ) \r ( S E T F - M A C
0026100 R O - F U N C T I O N ( Q U O
0026120 T E C O N C A T E N A T E - T
0026140 O - L I S T ) ( Q U O T E e
0026160 x p a n d - C O N C A T E N A T
0026200 E - T O - L I S T ) ) \r C O N C
0026220 A T - T O - L I S T * D 1 \r (
0026240 L ( 0 - a r g s - ) ) \0 220
0026260 \n \0 002 \0 e 021 001 \0 H k 021 2 005 J d I
0026300 363 262 025 277 K 022 021 201 \t h h 032 272 I J 274
0026320 [ 265 032 J 002 020 a 275 L 265 \r M h 032 \ 273
0026340 J k 324 Z 260 332 M & 274 260 367 001 _ 022 _ 020
0026360 d 230 d 303 \0 \0 262 027 277 O 022 ] \t \0 \0 263
0026400 @ L d M 001 & 277 002 274 M 002 260 360 \t \0 \0
0026420 264 " j O 022 \t \0 \0 _ 016 277 ^ O 016 \n \0
0026440 \0 263 036 L d O 022 N 266 & 277 002 274 N k 324
0026460 260 353 g \0 \0 O 020 o \0 \0 \0 \f \0 \0 277 K
0026500 002 260 217 \0 ( 2 1 1 Q C H E C K -
0026520 T Y P E - F A I L 1 5 4 Q %
0026540 % = 1 4 3 Q V E C T O R - L
0026560 E N G T H 1 3 3 Q V E C T O
0026600 R P 1 1 2 Q E N D P ) \r ( 2
0026620 0 0 Q S E Q U E N C E 1 0 1
0026640 Q L I S T P ) \r ( 2 0 6 Q
0026660 ( O R L I S T V E C T O R )
0026700 ) \r C O N C A T - T O - S I M P
0026720 L E * D 1 \r ( L ( 0 - a r
0026740 g s - ) ) \0 374 030 \0 002 \0 e 021 001 \0
0026760 k a 021 241 \v H l 002 021 2 020 O 032 d O 030
0027000 363 262 / 277 O 034 022 Z j 021 022 023 O " 265 003
0027020 202 261 \0 272 J O & \t \0 \0 j I O $ \n \0
0027040 \0 021 004 027 O , O $ \n \0 \0 262 & O . 020
0027060 a _ 277 O 036 265 023 O h 032 _ 036 _ 034
0027100 277 O 032 k 324 _ 032 260 266 O & _ 036 277 260
0027120 362 O ( 001 _ 024 _ 022 d 230 d 303 \0 \0 262 "
0027140 277 O 024 ] \t \0 \0 263 U O . 274 O , 273 M
0027160 001 L K 267 277 O , k 324 _ , 277 M 002 260 345
0027200 \t \0 \0 264 , j _ 020 O * 001 \n \0 \0 263 .
0027220 O . _ 016 277 O , 276 O 024 O 020 266 O 016 N
0027240 267 277 O , k 324 _ , 277 O 020 k 324 260 331 g
0027260 \0 \0 O 022 o \0 \0 \0 \f \0 \0 277 O ( 002 O
0027300 * 002 _ * 277 _ ( 277 261 377 \ 001 \t \0 \0 _
0027320 026 O & 032 _ & 277 O $ O 026 324 _ $ 277 O
0027340 " 002 _ " 261 377 * \0 ( 3 4 2 Q C L
0027360 : L E N G T H 3 1 6 Q C H E
0027400 C K - T Y P E - F A I L 2 4 1
0027420 Q % % = 2 2 6 Q V E C T O
0027440 R P 1 7 2 Q E N D P 7 6 Q
0027460 % % = 6 4 Q M A K E - S E
0027500 Q U E N C E - O F - T Y P E 5
0027520 5 Q R E V E R S E ) \r ( 3 0 5
0027540 Q S E Q U E N C E 1 6 1 Q
0027560 L I S T P ) \r ( 3 1 3 Q ( O
0027600 R L I S T V E C T O R ) ) \r
0027620 ( P U T P R O P S C M L S E Q
0027640 B A S I C S F I L E T Y P E
0027660 C O M P I L E - F I L E ) \r ( P
0027700 U T P R O P S C M L S E Q B A
0027720 S I C S C O P Y R I G H T (
0027740 " X e r o x C o r p o r a t i
0027760 o n " 1 9 8 6 ) ) \r N I L \r
0027777