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