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