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