$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSEQMODIFY.DCOM!2
0000000 ( F I L E C R E A T E D " 1 7
0000020 - J u l - 8 6 0 0 : 1 4 : 0 3
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 > E V A L > C M L S E Q M O D
0000120 I F Y . ; 1 ) \r " 1 5 - J u l
0000140 - 8 6 2 3 : 1 7 : 2 1 " " C
0000160 O M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 1 5 -
0000220 J u l - 8 6 . . . " d a t e
0000240 d " 1 5 - J u l - 8 6 2 3 :
0000260 4 0 : 4 7 " ) \r ( F I L E C R E
0000300 A T E D " 1 6 - J u l - 8 6
0000320 0 1 : 2 4 : 5 9 " { E R I S }
0000340 < L I S P C O R E > E V A L > C
0000360 M L S E Q M O D I F Y . ; 1 6
0000400 4 1 3 1 c h a n g e s t o :
0000420 ( F U N C T I O N S \r V E C
0000440 T O R - S U B S T I T U T E * )
0000460 p r e v i o u s d a t e :
0000500 " 2 - J u l - 8 6 1 8 : 0 8
0000520 : 0 0 " { E R I S } < L I S P
0000540 C O R E > L I B R A R Y > C M L
0000560 S E Q M O D I F Y . ; 1 ) \r ( R
0000600 P A Q Q C M L S E Q M O D I F
0000620 Y C O M S ( ( D E C L A R E :
0000640 E V A L @ C O M P I L E D O
0000660 N T C O P Y ( F I L E S C M
0000700 L S E Q C O M M O N ) ) ( F U
0000720 N C T I O N S F I L L \r L I
0000740 S T - F I L L L I S T - F I L
0000760 L * V E C T O R - F I L L V
0001000 E C T O R - F I L L * ) ( F U
0001020 N C T I O N S M U M B L E - R
0001040 E P L A C E - F R O M - M U M B
0001060 L E \r L I S T - R E P L A C E
0001100 - F R O M - L I S T L I S T -
0001120 R E P L A C E - F R O M - M U M
0001140 B L E M U M B L E - R E P L A
0001160 C E - F R O M - L I S T C L :
0001200 R E P L A C E \r L I S T - R E
0001220 P L A C E - F R O M - L I S T *
0001240 L I S T - R E P L A C E - F R
0001260 O M - V E C T O R * V E C T O
0001300 R - R E P L A C E - F R O M - L
0001320 I S T * \r V E C T O R - R E P
0001340 L A C E - F R O M - V E C T O R
0001360 * ) ( C O M S ( F U N C T I
0001400 O N S M U M B L E - D E L E T
0001420 E M U M B L E - D E L E T E -
0001440 F R O M - E N D L I S T - D E
0001460 L E T E \r L I S T - D E L E T
0001500 E - F R O M - E N D ) ( F U N
0001520 C T I O N S N O R M A L - M U
0001540 M B L E - D E L E T E N O R M
0001560 A L - M U M B L E - D E L E T E
0001600 - F R O M - E N D N O R M A L
0001620 - L I S T - D E L E T E \r N O
0001640 R M A L - L I S T - D E L E T E
0001660 - F R O M - E N D C L : D E L
0001700 E T E ) ( F U N C T I O N S
0001720 I F - M U M B L E - D E L E T E
0001740 I F - M U M B L E - D E L E T
0001760 E - F R O M - E N D \r I F - L
0002000 I S T - D E L E T E I F - L I
0002020 S T - D E L E T E - F R O M - E
0002040 N D D E L E T E - I F ) ( F
0002060 U N C T I O N S I F - N O T -
0002100 M U M B L E - D E L E T E \r I
0002120 F - N O T - M U M B L E - D E L
0002140 E T E - F R O M - E N D I F -
0002160 N O T - L I S T - D E L E T E
0002200 I F - N O T - L I S T - D E L E
0002220 T E - F R O M - E N D D E L E
0002240 T E - I F - N O T ) ) ( C O M
0002260 S ( \r F U N C T I O N S M U
0002300 M B L E - R E M O V E - M A C R
0002320 O M U M B L E - R E M O V E
0002340 M U M B L E - R E M O V E - F R
0002360 O M - E N D L I S T - R E M O
0002400 V E - M A C R O L I S T - R E
0002420 M O V E \r L I S T - R E M O V
0002440 E - F R O M - E N D ) ( F U N
0002460 C T I O N S N O R M A L - M U
0002500 M B L E - R E M O V E N O R M
0002520 A L - M U M B L E - R E M O V E
0002540 - F R O M - E N D N O R M A L
0002560 - L I S T - R E M O V E \r N O
0002600 R M A L - L I S T - R E M O V E
0002620 - F R O M - E N D C L : R E M
0002640 O V E ) ( F U N C T I O N S
0002660 I F - M U M B L E - R E M O V E
0002700 I F - M U M B L E - R E M O V
0002720 E - F R O M - E N D \r I F - L
0002740 I S T - R E M O V E I F - L I
0002760 S T - R E M O V E - F R O M - E
0003000 N D R E M O V E - I F ) ( F
0003020 U N C T I O N S I F - N O T -
0003040 M U M B L E - R E M O V E \r I
0003060 F - N O T - M U M B L E - R E M
0003100 O V E - F R O M - E N D I F -
0003120 N O T - L I S T - R E M O V E
0003140 I F - N O T - L I S T - R E M O
0003160 V E - F R O M - E N D R E M O
0003200 V E - I F - N O T ) ) ( \r F U
0003220 N C T I O N S L I S T - R E M
0003240 O V E - D U P L I C A T E S *
0003260 V E C T O R - R E M O V E - D U
0003300 P L I C A T E S * R E M O V E
0003320 - D U P L I C A T E S L I S T
0003340 - D E L E T E - D U P L I C A T
0003360 E S * \r V E C T O R - D E L E
0003400 T E - D U P L I C A T E S * D
0003420 E L E T E - D U P L I C A T E S
0003440 ) ( F U N C T I O N S S U B
0003460 S T - D I S P A T C H L I S T
0003500 - S U B S T I T U T E * \r V E
0003520 C T O R - S U B S T I T U T E *
0003540 S U B S T I T U T E S U B S
0003560 T I T U T E - I F S U B S T I
0003600 T U T E - I F - N O T ) ( F U
0003620 N C T I O N S N L I S T - S U
0003640 B S T I T U T E * \r N V E C T
0003660 O R - S U B S T I T U T E * N
0003700 S U B S T I T U T E N L I S T
0003720 - S U B S T I T U T E - I F *
0003740 N V E C T O R - S U B S T I T U
0003760 T E - I F * N S U B S T I T U
0004000 T E - I F \r N L I S T - S U B
0004020 S T I T U T E - I F - N O T *
0004040 N V E C T O R - S U B S T I T U
0004060 T E - I F - N O T * N S U B S
0004100 T I T U T E - I F - N O T ) (
0004120 P R O P F I L E T Y P E C M
0004140 L S E Q M O D I F Y ) ) ) \r F I
0004160 L L D 1 \r ( L ( 0 - a r g
0004200 s - ) ) \0 244 \v \0 002 \0 e 021 001 \0 k
0004220 a 021 221 \n l 002 a 272 H l 003 274 273 L d K
0004240 363 262 I 277 j 275 H l 003 _ 016 277 276 O 016 d
0004260 N 363 262 K 277 h _ 020 277 I \t \0 \0 _ 022 277
0004300 O 020 244 O 022 _ 020 277 I M O 020 O 022 \f \0
0004320 \0 I _ 024 d 004 l 005 360 247 d o \0 \0 \0 034
0004340 262 3 J M O 020 \f \0 \0 020 a g \0 \0 360 225
0004360 L k 330 a 260 261 L l 002 324 \ 260 243 a g \0
0004400 \0 360 226 O 016 k 330 a 260 256 O 016 l 002 324 _
0004420 016 260 236 \t \0 \0 264 \v I J M O 020 \f \0 \0
0004440 020 g \0 \0 O 024 o \0 \0 \0 \f \0 \0 020 \0 (
0004460 2 4 1 Q C H E C K - T Y P E -
0004500 F A I L 2 2 4 Q V E C T O R
0004520 - F I L L * 2 1 2 Q V E C T
0004540 O R P 1 3 5 Q L I S T - F I
0004560 L L * 1 0 5 Q C H E C K - S
0004600 U B S E Q 6 1 Q C L : L E N
0004620 G T H ) \r ( 2 3 0 Q S E Q U E
0004640 N C E 1 6 5 Q : E N D 1 4
0004660 2 Q : S T A R T ) \r ( 2 3 6
0004700 Q ( O R L I S T V E C T O
0004720 R ) 1 2 3 Q ( N I L ) ) \r e
0004740 x p a n d - L I S T - F I L L
0004760 D 1 \r ( L ( 1 $ $ M A C R O
0005000 - E N V I R O N M E N T 0 $
0005020 $ M A C R O - F O R M ) ) \0 e
0005040 \a \0 \0 002 @ 002 021 a 006 H 001 271 H 002 Z 001
0005060 273 J 002 \ 001 275 L 002 001 276 g \0 \0 g \0 \0
0005100 g \0 \0 M I h 032 032 032 o \0 \0 \0 032 032 g
0005120 \0 \0 M o \0 \0 \0 032 032 h 032 032 g \0 \0 o
0005140 \0 \0 \0 g \0 \0 g \0 \0 N h 032 032 032 h 032
0005160 032 032 o \0 \0 \0 032 g \0 \0 g \0 \0 K h 032
0005200 032 032 h 032 032 032 032 020 \0 N I L \r ( 1 3
0005220 0 Q C U R R E N T 1 2 5 Q
0005240 R P L A C A 1 0 4 Q I N D E
0005260 X 1 0 1 Q > = 7 2 Q O R
0005300 5 5 Q I N D E X 3 6 Q N
0005320 T H C D R 3 3 Q C U R R E N
0005340 T 3 0 Q C L : D O ) \r ( 1
0005360 2 1 Q ( S E Q U E N C E ) 7
0005400 6 Q ( E N D P C U R R E N T
0005420 ) 6 2 Q ( ( 1 + I N D E X
0005440 ) ) 5 0 Q ( ( C D R C U R
0005460 R E N T ) ) ) \r ( S E T F - M A
0005500 C R O - F U N C T I O N ( Q U
0005520 O T E L I S T - F I L L ) (
0005540 Q U O T E e x p a n d - L I S
0005560 T - F I L L ) ) \r L I S T - F I
0005600 L L * D 1 \r ( L ( 3 E N D
0005620 2 S T A R T 1 I T E M
0005640 0 S E Q U E N C E ) ) \0 " 002
0005660 \0 \0 004 B @ \n \0 \0 B 021 002 001 H \t \0 \0
0005700 243 C I 363 241 @ 020 H A 030 277 H 002 I k 324
0005720 271 X 260 353 \0 ( 1 4 Q E N D P 4
0005740 N T H C D R ) \r N I L \r ( ) \r
0005760 e x p a n d - V E C T O R - F I
0006000 L L D 1 \r ( L ( 1 $ $ M A
0006020 C R O - E N V I R O N M E N T
0006040 0 $ $ M A C R O - F O R M ) )
0006060 \0 M \a \0 \0 002 @ 002 021 a 006 H 001 271 H
0006100 002 Z 001 273 J 002 \ 001 275 L 002 001 276 g \0 \0
0006120 g \0 \0 M o \0 \0 \0 032 032 h 032 g \0 \0 g
0006140 \0 \0 N h 032 032 032 I h 032 032 g \0 \0 g \0
0006160 \0 I o \0 \0 \0 032 032 K h 032 032 032 h 032 032
0006200 032 032 020 \0 N I L \r ( 7 1 Q A R E
0006220 F 6 6 Q S E T F 5 2 Q I
0006240 N D E X 4 7 Q > = 3 3 Q
0006260 I N D E X 3 0 Q C L : D O )
0006300 \r ( 7 6 Q ( I N D E X ) 4
0006320 0 Q ( ( 1 + I N D E X ) ) )
0006340 \r ( S E T F - M A C R O - F U N
0006360 C T I O N ( Q U O T E V E C
0006400 T O R - F I L L ) ( Q U O T E
0006420 e x p a n d - V E C T O R - F
0006440 I L L ) ) \r V E C T O R - F I L
0006460 L * D 1 \r ( L ( 3 E N D
0006500 2 S T A R T 1 I T E M 0
0006520 S E Q U E N C E ) ) \0 032 003 \0
0006540 \0 004 B 021 ! 002 C H 363 241 @ 020 @ 272 H 271
0006560 A J I 267 277 H k 324 270 260 355 \0 N I L \r
0006600 N I L \r ( ) \r e x p a n d - M U
0006620 M B L E - R E P L A C E - F R O
0006640 M - M U M B L E D 1 \r ( L (
0006660 1 $ $ M A C R O - E N V I R O
0006700 N M E N T 0 $ $ M A C R O -
0006720 F O R M ) ) \0 006 \0 \0 \0 002 o \0 \0
0006740 \0 020 \0 N I L \r N I L \r ( 3 (
0006760 C L : I F ( A N D ( E Q T
0007000 A R G E T - S E Q U E N C E S
0007020 O U R C E - S E Q U E N C E )
0007040 ( > T A R G E T - S T A R T
0007060 S O U R C E - S T A R T ) ) (
0007100 L E T ( ( N E L T S ( M I N
0007120 ( - T A R G E T - E N D T
0007140 A R G E T - S T A R T ) ( -
0007160 S O U R C E - E N D S O U R C
0007200 E - S T A R T ) ) ) ) ( C L :
0007220 D O ( ( T A R G E T - I N D E
0007240 X ( + T A R G E T - S T A R
0007260 T N E L T S - 1 ) ( 1 -
0007300 T A R G E T - I N D E X ) ) (
0007320 S O U R C E - I N D E X ( +
0007340 S O U R C E - S T A R T N E L
0007360 T S - 1 ) ( 1 - S O U R C
0007400 E - I N D E X ) ) ) ( ( < T
0007420 A R G E T - I N D E X T A R G
0007440 E T - S T A R T ) T A R G E T
0007460 - S E Q U E N C E ) ( S E T F
0007500 ( A R E F T A R G E T - S E
0007520 Q U E N C E T A R G E T - I N
0007540 D E X ) ( A R E F S O U R C
0007560 E - S E Q U E N C E S O U R C
0007600 E - I N D E X ) ) ) ) ( C L :
0007620 D O ( ( T A R G E T - I N D E
0007640 X T A R G E T - S T A R T (
0007660 1 + T A R G E T - I N D E X )
0007700 ) ( S O U R C E - I N D E X
0007720 S O U R C E - S T A R T ( 1 +
0007740 S O U R C E - I N D E X ) ) )
0007760 ( ( O R ( > = T A R G E T
0010000 - I N D E X T A R G E T - E N
0010020 D ) ( > = S O U R C E - I N
0010040 D E X S O U R C E - E N D ) )
0010060 T A R G E T - S E Q U E N C E
0010100 ) ( S E T F ( A R E F T A
0010120 R G E T - S E Q U E N C E T A
0010140 R G E T - I N D E X ) ( A R E
0010160 F S O U R C E - S E Q U E N C
0010200 E S O U R C E - I N D E X ) )
0010220 ) ) ) \r ( S E T F - M A C R O -
0010240 F U N C T I O N ( Q U O T E
0010260 M U M B L E - R E P L A C E - F
0010300 R O M - M U M B L E ) ( Q U O
0010320 T E e x p a n d - M U M B L E
0010340 - R E P L A C E - F R O M - M U
0010360 M B L E ) ) \r e x p a n d - L I
0010400 S T - R E P L A C E - F R O M -
0010420 L I S T D 1 \r ( L ( 1 $ $
0010440 M A C R O - E N V I R O N M E N
0010460 T 0 $ $ M A C R O - F O R M
0010500 ) ) \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N
0010520 I L \r N I L \r ( 3 ( C O N D
0010540 ( ( A N D ( E Q T A R G E
0010560 T - S E Q U E N C E S O U R C
0010600 E - S E Q U E N C E ) ( > T
0010620 A R G E T - S T A R T S O U R
0010640 C E - S T A R T ) ) ( L E T
0010660 ( ( N E W - E L T S ( S U B S
0010700 E Q S O U R C E - S E Q U E N
0010720 C E S O U R C E - S T A R T
0010740 ( + S O U R C E - S T A R T
0010760 ( M I N ( - T A R G E T - E
0011000 N D T A R G E T - S T A R T )
0011020 ( - S O U R C E - E N D S
0011040 O U R C E - S T A R T ) ) ) ) )
0011060 ) ( C L : D O ( ( N N E W
0011100 - E L T S ( C D R N ) ) (
0011120 O ( N T H C D R T A R G E T
0011140 - S T A R T T A R G E T - S E
0011160 Q U E N C E ) ( C D R O ) )
0011200 ) ( ( E N D P N ) T A R G
0011220 E T - S E Q U E N C E ) ( R P
0011240 L A C A O ( C A R N ) ) )
0011260 ) ) ( T ( C L : D O ( ( T
0011300 A R G E T - I N D E X T A R G
0011320 E T - S T A R T ( 1 + T A R
0011340 G E T - I N D E X ) ) ( S O U
0011360 R C E - I N D E X S O U R C E
0011400 - S T A R T ( 1 + S O U R C
0011420 E - I N D E X ) ) ( T A R G E
0011440 T - S E Q U E N C E - R E F (
0011460 N T H C D R T A R G E T - S T
0011500 A R T T A R G E T - S E Q U E
0011520 N C E ) ( C D R T A R G E T
0011540 - S E Q U E N C E - R E F ) )
0011560 ( S O U R C E - S E Q U E N C E
0011600 - R E F ( N T H C D R S O U
0011620 R C E - S T A R T S O U R C E
0011640 - S E Q U E N C E ) ( C D R
0011660 S O U R C E - S E Q U E N C E -
0011700 R E F ) ) ) ( ( O R ( > =
0011720 T A R G E T - I N D E X T A R
0011740 G E T - E N D ) ( > = S O U
0011760 R C E - I N D E X S O U R C E
0012000 - E N D ) ( N U L L T A R G
0012020 E T - S E Q U E N C E - R E F )
0012040 ( N U L L S O U R C E - S E
0012060 Q U E N C E - R E F ) ) T A R
0012100 G E T - S E Q U E N C E ) ( R
0012120 P L A C A T A R G E T - S E Q
0012140 U E N C E - R E F ( C A R S
0012160 O U R C E - S E Q U E N C E - R
0012200 E F ) ) ) ) ) ) \r ( S E T F - M
0012220 A C R O - F U N C T I O N ( Q
0012240 U O T E L I S T - R E P L A C
0012260 E - F R O M - L I S T ) ( Q U
0012300 O T E e x p a n d - L I S T -
0012320 R E P L A C E - F R O M - L I S
0012340 T ) ) \r e x p a n d - L I S T -
0012360 R E P L A C E - F R O M - M U M
0012400 B L E D 1 \r ( L ( 1 $ $ M
0012420 A C R O - E N V I R O N M E N T
0012440 0 $ $ M A C R O - F O R M )
0012460 ) \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N I
0012500 L \r N I L \r ( 3 ( C L : D O
0012520 ( ( T A R G E T - I N D E X
0012540 T A R G E T - S T A R T ( 1 +
0012560 T A R G E T - I N D E X ) )
0012600 ( S O U R C E - I N D E X S O
0012620 U R C E - S T A R T ( 1 + S
0012640 O U R C E - I N D E X ) ) ( T
0012660 A R G E T - S E Q U E N C E - R
0012700 E F ( N T H C D R T A R G E
0012720 T - S T A R T T A R G E T - S
0012740 E Q U E N C E ) ( C D R T A
0012760 R G E T - S E Q U E N C E - R E
0013000 F ) ) ) ( ( O R ( > = T A
0013020 R G E T - I N D E X T A R G E
0013040 T - E N D ) ( > = S O U R C
0013060 E - I N D E X S O U R C E - E
0013100 N D ) ( E N D P T A R G E T
0013120 - S E Q U E N C E - R E F ) )
0013140 T A R G E T - S E Q U E N C E )
0013160 ( R P L A C A T A R G E T -
0013200 S E Q U E N C E - R E F ( A R
0013220 E F S O U R C E - S E Q U E N
0013240 C E S O U R C E - I N D E X )
0013260 ) ) ) \r ( S E T F - M A C R O -
0013300 F U N C T I O N ( Q U O T E
0013320 L I S T - R E P L A C E - F R O
0013340 M - M U M B L E ) ( Q U O T E
0013360 e x p a n d - L I S T - R E P
0013400 L A C E - F R O M - M U M B L E
0013420 ) ) \r e x p a n d - M U M B L E
0013440 - R E P L A C E - F R O M - L I
0013460 S T D 1 \r ( L ( 1 $ $ M A
0013500 C R O - E N V I R O N M E N T
0013520 0 $ $ M A C R O - F O R M ) )
0013540 \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N I L
0013560 \r N I L \r ( 3 ( C L : D O
0013600 ( ( T A R G E T - I N D E X T
0013620 A R G E T - S T A R T ( 1 +
0013640 T A R G E T - I N D E X ) ) (
0013660 S O U R C E - I N D E X S O U
0013700 R C E - S T A R T ( 1 + S O
0013720 U R C E - I N D E X ) ) ( S O
0013740 U R C E - S E Q U E N C E ( N
0013760 T H C D R S O U R C E - S T A
0014000 R T S O U R C E - S E Q U E N
0014020 C E ) ( C D R S O U R C E -
0014040 S E Q U E N C E ) ) ) ( ( O R
0014060 ( > = T A R G E T - I N D E
0014100 X T A R G E T - E N D ) ( >
0014120 = S O U R C E - I N D E X S
0014140 O U R C E - E N D ) ( E N D P
0014160 S O U R C E - S E Q U E N C E
0014200 ) ) T A R G E T - S E Q U E N
0014220 C E ) ( S E T F ( A R E F
0014240 T A R G E T - S E Q U E N C E
0014260 T A R G E T - I N D E X ) ( C
0014300 A R S O U R C E - S E Q U E N
0014320 C E ) ) ) ) \r ( S E T F - M A C
0014340 R O - F U N C T I O N ( Q U O
0014360 T E M U M B L E - R E P L A C
0014400 E - F R O M - L I S T ) ( Q U
0014420 O T E e x p a n d - M U M B L
0014440 E - R E P L A C E - F R O M - L
0014460 I S T ) ) \r C L : R E P L A C E
0014500 D 1 \r ( L ( 0 - a r g s -
0014520 ) ) 003 026 . \0 002 \0 e 021 001 \0 k a 021
0014540 361 020 021 360 037 021 @ # l 002 a 272 H l 003 274
0014560 273 L d K 363 242 261 \0 340 277 j 275 H l 003 _
0014600 016 277 276 O 016 d N 363 242 261 \0 342 277 h _ 020
0014620 277 H l 003 _ 024 277 _ 022 277 O 024 d O 022 363
0014640 242 261 \0 342 277 j _ 026 277 H l 003 _ 032 277 _
0014660 030 277 O 032 d O 030 363 242 261 \0 342 277 h _ 034
0014700 277 I \t \0 \0 _ 036 277 J \t \0 \0 _ 277 O
0014720 020 244 O 036 _ 020 277 O 034 244 O _ 034 277 I
0014740 M O 020 O 036 \f \0 \0 J O 026 O 034 O \f
0014760 \0 \0 I _ " _ $ 004 l 005 360 254 O $ d o
0015000 \0 \0 \0 034 242 261 001 S 277 J _ & _ ( 004 l
0015020 005 360 254 O ( d o \0 \0 \0 034 242 261 \0 356 277
0015040 I J 360 242 261 \0 236 M d O 026 363 242 261 \0 226
0015060 277 J O 026 d O 020 M 325 O 034 O 026 325 \n \0
0015100 \0 324 \v \0 \0 M I \n \0 \0 _ , 277 _ * \t
0015120 \0 \0 262 a I 020 a g \0 \0 360 226 L k 330 a
0015140 261 377 033 L l 002 324 \ 261 377 \n a g \0 \0 360
0015160 227 O 016 k 330 a 261 377 030 O 016 l 002 324 _ 016
0015200 261 377 005 a g \0 \0 360 227 O 024 k 330 a 261 377
0015220 030 O 024 l 002 324 _ 024 261 377 004 a g \0 \0 360
0015240 227 O 032 k 330 a 261 377 030 O 032 l 002 324 _ 032
0015260 261 377 004 O , O * 001 030 277 O * 002 O , 002
0015300 260 212 M O 026 M I \n \0 \0 O 026 J \n \0 \0
0015320 021 004 ' O 020 O H 363 233 O 034 O J 363 225 O
0015340 L 222 O N 241 I 020 O L O N 001 030 277 O H
0015360 k 324 O J k 324 O L 002 O N 002 _ N 277 _
0015400 L 277 _ J 277 _ H 277 260 313 \t \0 \0 264 > M
0015420 O 026 M I \n \0 \0 021 003 * O 020 O P 363 234
0015440 O 034 O R 363 226 O T d \t \0 \0 221 I 020 J
0015460 O R 266 030 277 O P k 324 O R k 324 O T 002
0015500 _ T 277 _ R 277 _ P 277 260 321 g \0 \0 O &
0015520 o \0 \0 \0 \f \0 \0 020 \t \0 \0 264 003 202 261 001
0015540 003 J _ . _ 0 004 l 005 360 252 O 0 d o \0
0015560 \0 \0 034 262 J 277 M O 026 d J \n \0 \0 021 003
0015600 - O 020 O V 363 233 O 034 O X 363 225 O Z \t
0015620 \0 \0 221 I 020 I _ 4 277 O V _ 2 277 O Z
0015640 001 O 4 O 2 267 277 O V k 324 O X k 324 O
0015660 Z 002 _ Z 277 _ X 277 _ V 277 260 306 \t \0 \0
0015700 264 003 202 261 \0 221 I J 360 262 S M d O 026 363
0015720 262 M 277 O 020 M 325 O 034 O 026 325 \n \0 \0 _
0015740 6 277 M O 6 m 377 324 324 O 026 O 6 m 377 324
0015760 324 _ : 277 _ 8 277 M O 8 363 222 261 376 X I
0016000 _ > 277 O 8 _ < 277 J O : 266 O > O <
0016020 267 277 O 8 k 325 O : k 325 260 327 M O 026 _
0016040 B 277 _ @ 277 O 020 O @ 363 242 261 376 ) O 034
0016060 O B 363 242 261 376 I _ F 277 O @ _ D 277
0016100 J O B 266 O F O D 267 277 O @ k 324 O B
0016120 k 324 260 315 g \0 \0 O . o \0 \0 \0 \f \0 \0
0016140 020 g \0 \0 O " o \0 \0 \0 \f \0 \0 020 \0 (
0016160 1 4 2 3 Q C H E C K - T Y P E
0016200 - F A I L 1 4 0 6 Q C H E C
0016220 K - T Y P E - F A I L 1 2 0 5
0016240 Q M I N 1 1 4 6 Q V E C T
0016260 O R P 1 0 7 0 Q E N D P 1
0016300 0 4 4 Q N T H C D R 1 0 0 1
0016320 Q V E C T O R P 7 7 5 Q C
0016340 H E C K - T Y P E - F A I L 7
0016360 2 2 Q E N D P 6 7 5 Q N T
0016400 H C D R 6 6 3 Q V E C T O R
0016420 P 5 6 6 Q N T H C D R 5 6
0016440 0 Q N T H C D R 3 7 0 Q E
0016460 N D P 3 6 0 Q N T H C D R
0016500 3 5 3 Q S U B S E Q 3 4 7 Q
0016520 M I N 2 3 0 Q C H E C K -
0016540 S U B S E Q 2 1 6 Q C H E C
0016560 K - S U B S E Q 1 6 2 Q C L
0016600 : L E N G T H 1 5 3 Q C L :
0016620 L E N G T H ) \r ( 1 4 1 2 Q T
0016640 A R G E T - S E Q U E N C E 1
0016660 3 7 5 Q S O U R C E - S E Q U
0016700 E N C E 7 6 4 Q S O U R C E
0016720 - S E Q U E N C E 5 0 5 Q :
0016740 E N D 2 4 5 5 Q : S T A R T
0016760 2 4 2 5 Q : E N D 1 4 0 0
0017000 Q : S T A R T 1 ) \r ( 1 4 2
0017020 0 Q ( O R L I S T V E C T
0017040 O R ) 1 4 0 3 Q ( O R L I
0017060 S T V E C T O R ) 1 0 3 0 Q
0017100 ( N I L ) 7 7 2 Q ( O R
0017120 L I S T V E C T O R ) 3 0 0
0017140 Q ( N I L ) 2 5 1 Q ( N I
0017160 L ) ) \r L I S T - R E P L A C E
0017200 - F R O M - L I S T * D 1 \r (
0017220 L ( 5 S O U R C E - E N D
0017240 4 S O U R C E - S T A R T 3
0017260 T A R G E T - E N D 2 T A
0017300 R G E T - S T A R T 1 S O U
0017320 R C E - S E Q U E N C E 0 T
0017340 A R G E T - S E Q U E N C E ) )
0017360 \0 } 004 \0 \0 006 C 246 @ \t \0 \0 b 006 277
0017400 E 246 A \t \0 \0 b \n 277 @ A 360 262 5 B d
0017420 D 363 262 0 277 A D d C B 325 E D 325 \n \0
0017440 \0 324 \v \0 \0 B @ \n \0 \0 021 002 001 H \t \0
0017460 \0 221 @ 020 I H 001 030 277 H 002 I 002 271 X 260
0017500 357 B D B @ \n \0 \0 D A \n \0 \0 021 004 003
0017520 C H 363 227 E I 363 223 J 221 K 241 @ 020 J K
0017540 001 030 277 H k 324 I k 324 J 002 K 002 273 272 271
0017560 270 260 337 \0 ( 1 2 5 Q N T H C D R
0017600 1 2 0 Q N T H C D R 7 1 Q
0017620 E N D P 6 2 Q N T H C D R
0017640 5 5 Q S U B S E Q 5 1 Q
0017660 M I N 1 6 Q C L : L E N G T
0017700 H 5 C L : L E N G T H ) \r N
0017720 I L \r ( ) \r L I S T - R E P L A
0017740 C E - F R O M - V E C T O R *
0017760 D 1 \r ( L ( 5 S O U R C E -
0020000 E N D 4 S O U R C E - S T A
0020020 R T 3 T A R G E T - E N D
0020040 2 T A R G E T - S T A R T 1
0020060 S O U R C E - S E Q U E N C E
0020100 0 T A R G E T - S E Q U E N
0020120 C E ) ) \0 ? 003 \0 \0 006 C 246 @ \t \0
0020140 \0 b 006 277 E 246 A \t \0 \0 b \n 277 B D B
0020160 @ \n \0 \0 021 003 002 C H 363 231 E I 363 225 J
0020200 d \t \0 \0 221 @ 020 A I 266 030 277 H k 324 I
0020220 k 324 J 002 272 271 270 260 340 \0 ( 5 0 Q E
0020240 N D P 3 0 Q N T H C D R 1
0020260 6 Q C L : L E N G T H 5 C
0020300 L : L E N G T H ) \r N I L \r ( )
0020320 \r V E C T O R - R E P L A C E -
0020340 F R O M - L I S T * D 1 \r ( L
0020360 ( 5 S O U R C E - E N D 4
0020400 S O U R C E - S T A R T 3
0020420 T A R G E T - E N D 2 T A R
0020440 G E T - S T A R T 1 S O U R
0020460 C E - S E Q U E N C E 0 T A
0020500 R G E T - S E Q U E N C E ) )
0020520 \0 C 005 \0 \0 006 C 246 @ \t \0 \0 b 006 277 E
0020540 246 A \t \0 \0 b \n 277 B D d A \n \0 \0 021
0020560 # 004 C H 363 230 E I 363 224 J \t \0 \0 221 @
0020600 020 @ 274 H 273 J 001 L K 267 277 H k 324 I k
0020620 324 J 002 272 271 270 260 334 \0 ( 4 7 Q E N
0020640 D P 3 0 Q N T H C D R 1 6
0020660 Q C L : L E N G T H 5 C L
0020700 : L E N G T H ) \r N I L \r ( ) \r
0020720 V E C T O R - R E P L A C E - F
0020740 R O M - V E C T O R * D 1 \r (
0020760 L ( 5 S O U R C E - E N D
0021000 4 S O U R C E - S T A R T 3
0021020 T A R G E T - E N D 2 T A
0021040 R G E T - S T A R T 1 S O U
0021060 R C E - S E Q U E N C E 0 T
0021100 A R G E T - S E Q U E N C E ) )
0021120 \0 v 005 \0 \0 006 C 246 @ \t \0 \0 b 006 277
0021140 E 246 A \t \0 \0 b \n 277 @ A 360 262 < B d
0021160 D 363 262 7 277 C B 325 E D 325 \n \0 \0 021 A
0021200 004 B H m 377 324 324 D H m 377 324 324 272 271 B
0021220 I 363 221 @ 020 @ 274 I 273 A J 266 L K 267 277
0021240 I k 325 J k 325 260 347 B D 021 " 003 C H 363
0021260 223 E I 363 241 @ 020 @ 273 H 272 A I 266 K J
0021300 267 277 H k 324 I k 324 271 270 260 343 \0 ( 4 6
0021320 Q M I N 1 6 Q C L : L E N
0021340 G T H 5 C L : L E N G T H )
0021360 \r N I L \r ( ) \r e x p a n d - M
0021400 U M B L E - D E L E T E D 1 \r
0021420 ( L ( 1 $ $ M A C R O - E N
0021440 V I R O N M E N T 0 $ $ M A
0021460 C R O - F O R M ) ) \0 ' 001 \0 \0
0021500 002 @ 002 001 021 001 \0 g \0 \0 o \0 \0 \0 o \0
0021520 \0 \0 o \0 \0 \0 g \0 \0 H o \0 \0 \0 032 032
0021540 h 032 032 032 032 032 020 \0 N I L \r ( 2 7 Q
0021560 C L : I F 1 0 Q C L : D O
0021600 ) \r ( 3 4 Q ( ( I N C F N
0021620 U M B E R - Z A P P E D ) ( I
0021640 N C F J N D E X ) ) 2 4 Q
0021660 ( S E T F ( A R E F S E Q U
0021700 E N C E J N D E X ) ( A R E
0021720 F S E Q U E N C E I N D E X
0021740 ) ) 2 0 Q ( ( O R ( = I
0021760 N D E X E N D ) ( = N U M
0022000 B E R - Z A P P E D C O U N T
0022020 ) ) ( C L : D O ( ( I N D E
0022040 X I N D E X ( 1 + I N D E
0022060 X ) ) ( J N D E X J N D E X
0022100 ( 1 + J N D E X ) ) ) ( (
0022120 = I N D E X L E N G T H )
0022140 ( S H R I N K - V E C T O R S
0022160 E Q U E N C E J N D E X ) )
0022200 ( S E T F ( A R E F S E Q U
0022220 E N C E J N D E X ) ( A R E
0022240 F S E Q U E N C E I N D E X
0022260 ) ) ) ) \r 1 4 Q ( ( I N D E
0022300 X S T A R T ( 1 + I N D E
0022320 X ) ) ( J N D E X S T A R T
0022340 ) ( N U M B E R - Z A P P E D
0022360 0 ) ) ) \r ( S E T F - M A C R
0022400 O - F U N C T I O N ( Q U O T
0022420 E M U M B L E - D E L E T E )
0022440 ( Q U O T E e x p a n d - M
0022460 U M B L E - D E L E T E ) ) \r e
0022500 x p a n d - M U M B L E - D E L
0022520 E T E - F R O M - E N D D 1 \r
0022540 ( L ( 1 $ $ M A C R O - E N
0022560 V I R O N M E N T 0 $ $ M A
0022600 C R O - F O R M ) ) \0 / 001 \0 \0
0022620 002 @ 002 001 021 001 \0 g \0 \0 o \0 \0 \0 o \0
0022640 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 H o \0 \0
0022660 \0 032 h 032 032 h 032 032 032 h 032 032 032 032 020 \0
0022700 N I L \r ( 3 2 Q C O N D 2 3
0022720 Q L E T 1 0 Q C L : D O )
0022740 \r ( 3 7 Q ( ( I N C F N U
0022760 M B E R - Z A P P E D ) ( C L
0023000 : P U S H I N D E X L O S E
0023020 R S ) ) 2 7 Q ( ( T H I S -
0023040 E L E M E N T ( A R E F S E
0023060 Q U E N C E I N D E X ) ) )
0023100 2 0 Q ( ( O R ( = I N D E
0023120 X T E R M I N U S ) ( = N
0023140 U M B E R - Z A P P E D C O U
0023160 N T ) ) ( C L : D O ( ( L O
0023200 S E R S L O S E R S ) ( I N
0023220 D E X S T A R T ( 1 + I N
0023240 D E X ) ) ( J N D E X S T A
0023260 R T ) ) ( ( O R ( N U L L
0023300 L O S E R S ) ( = I N D E X
0023320 E N D ) ) ( C L : D O ( (
0023340 I N D E X I N D E X ( 1 +
0023360 I N D E X ) ) ( J N D E X J
0023400 N D E X ( 1 + J N D E X ) )
0023420 ) ( ( = I N D E X L E N G
0023440 T H ) ( S H R I N K - V E C T
0023460 O R S E Q U E N C E J N D E
0023500 X ) ) ( S E T F ( A R E F
0023520 S E Q U E N C E J N D E X )
0023540 ( A R E F S E Q U E N C E I
0023560 N D E X ) ) ) ) ( S E T F (
0023600 A R E F S E Q U E N C E J N
0023620 D E X ) ( A R E F S E Q U E
0023640 N C E I N D E X ) ) ( C L :
0023660 I F ( = I N D E X ( C A R
0023700 L O S E R S ) ) ( C L : P O
0023720 P L O S E R S ) ( I N C F
0023740 J N D E X ) ) ) ) \r 1 4 Q (
0023760 ( I N D E X ( 1 - E N D )
0024000 ( 1 - I N D E X ) ) ( N U M
0024020 B E R - Z A P P E D 0 ) ( L
0024040 O S E R S N I L ) ( T E R M
0024060 I N U S ( 1 - S T A R T ) )
0024100 ) ) \r ( S E T F - M A C R O - F
0024120 U N C T I O N ( Q U O T E M
0024140 U M B L E - D E L E T E - F R O
0024160 M - E N D ) ( Q U O T E e x
0024200 p a n d - M U M B L E - D E L E
0024220 T E - F R O M - E N D ) ) \r e x
0024240 p a n d - L I S T - D E L E T E
0024260 D 1 \r ( L ( 1 $ $ M A C R
0024300 O - E N V I R O N M E N T 0
0024320 $ $ M A C R O - F O R M ) ) \0
0024340 2 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 o \0
0024360 \0 \0 g \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0
0024400 H o \0 \0 \0 032 o \0 \0 \0 032 032 h 032 032 032
0024420 032 h 032 032 032 020 \0 N I L \r ( 3 2 Q
0024440 C O N D 1 7 Q C L : D O 1
0024460 0 Q L E T ) \r ( 4 4 Q ( (
0024500 T ( C L : P O P P R E V I O
0024520 U S ) ) ) 3 7 Q ( ( R P L A
0024540 C D P R E V I O U S ( C D R
0024560 C U R R E N T ) ) ( I N C F
0024600 N U M B E R - Z A P P E D ) )
0024620 2 7 Q ( ( O R ( = I N D
0024640 E X E N D ) ( = N U M B E
0024660 R - Z A P P E D C O U N T ) )
0024700 ( C D R H A N D L E ) ) \r
0024720 2 3 Q ( ( C U R R E N T ( N
0024740 T H C D R S T A R T S E Q U
0024760 E N C E ) ( C D R C U R R E
0025000 N T ) ) ( P R E V I O U S (
0025020 N T H C D R S T A R T H A N
0025040 D L E ) ) ( I N D E X S T A
0025060 R T ( 1 + I N D E X ) ) (
0025100 N U M B E R - Z A P P E D 0 )
0025120 ) \r 1 4 Q ( ( H A N D L E
0025140 ( C O N S N I L S E Q U E N
0025160 C E ) ) ) ) \r ( S E T F - M A C
0025200 R O - F U N C T I O N ( Q U O
0025220 T E L I S T - D E L E T E )
0025240 ( Q U O T E e x p a n d - L I
0025260 S T - D E L E T E ) ) \r e x p a
0025300 n d - L I S T - D E L E T E - F
0025320 R O M - E N D D 1 \r ( L ( 1
0025340 $ $ M A C R O - E N V I R O N
0025360 M E N T 0 $ $ M A C R O - F
0025400 O R M ) ) \0 2 001 \0 \0 002 @ 002 001 021
0025420 001 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0
0025440 o \0 \0 \0 g \0 \0 H o \0 \0 \0 032 o \0 \0
0025460 \0 032 032 h 032 032 032 032 h 032 032 032 020 \0 N I
0025500 L \r ( 3 2 Q C O N D 1 7 Q
0025520 C L : D O 1 0 Q L E T * ) \r
0025540 ( 4 4 Q ( ( T ( C L : P O
0025560 P P R E V I O U S ) ) ) 3 7
0025600 Q ( ( R P L A C D P R E V I
0025620 O U S ( C D R C U R R E N T
0025640 ) ) ( I N C F N U M B E R -
0025660 Z A P P E D ) ) 2 7 Q ( ( O
0025700 R ( = I N D E X E N D )
0025720 ( = N U M B E R - Z A P P E D
0025740 C O U N T ) ) ( R E V E R S
0025760 E ( C D R H A N D L E ) ) )
0026000 \r 2 3 Q ( ( C U R R E N T
0026020 ( N T H C D R ( - L E N G T
0026040 H E N D ) R E V E R S E )
0026060 ( C D R C U R R E N T ) ) (
0026100 P R E V I O U S ( N T H C D R
0026120 ( - L E N G T H E N D )
0026140 H A N D L E ) ) ( I N D E X
0026160 S T A R T ( 1 + I N D E X )
0026200 ) ( N U M B E R - Z A P P E D
0026220 0 ) ) \r 1 4 Q ( ( R E V E
0026240 R S E ( R E V E R S E S E Q
0026260 U E N C E ) ) ( H A N D L E
0026300 ( C O N S N I L R E V E R S
0026320 E ) ) ) ) \r ( S E T F - M A C R
0026340 O - F U N C T I O N ( Q U O T
0026360 E L I S T - D E L E T E - F R
0026400 O M - E N D ) ( Q U O T E e
0026420 x p a n d - L I S T - D E L E T
0026440 E - F R O M - E N D ) ) \r e x p
0026460 a n d - N O R M A L - M U M B L
0026500 E - D E L E T E D 1 \r ( L (
0026520 1 $ $ M A C R O - E N V I R O
0026540 N M E N T 0 $ $ M A C R O -
0026560 F O R M ) ) \0 006 \0 \0 \0 002 o \0 \0
0026600 \0 020 \0 N I L \r N I L \r ( 3 (
0026620 M U M B L E - D E L E T E ( C
0026640 L : I F T E S T - N O T ( N
0026660 O T ( F U N C A L L T E S T
0026700 - N O T I T E M ( F U N C A
0026720 L L K E Y ( A R E F S E Q
0026740 U E N C E I N D E X ) ) ) )
0026760 ( F U N C A L L T E S T I T
0027000 E M ( F U N C A L L K E Y
0027020 ( A R E F S E Q U E N C E I
0027040 N D E X ) ) ) ) ) ) \r ( S E T F
0027060 - M A C R O - F U N C T I O N
0027100 ( Q U O T E N O R M A L - M U
0027120 M B L E - D E L E T E ) ( Q U
0027140 O T E e x p a n d - N O R M A
0027160 L - M U M B L E - D E L E T E )
0027200 ) \r e x p a n d - N O R M A L -
0027220 M U M B L E - D E L E T E - F R
0027240 O M - E N D D 1 \r ( L ( 1
0027260 $ $ M A C R O - E N V I R O N M
0027300 E N T 0 $ $ M A C R O - F O
0027320 R M ) ) \0 006 \0 \0 \0 002 o \0 \0 \0 020
0027340 \0 N I L \r N I L \r ( 3 ( M U
0027360 M B L E - D E L E T E - F R O M
0027400 - E N D ( C L : I F T E S T
0027420 - N O T ( N O T ( F U N C A
0027440 L L T E S T - N O T I T E M
0027460 ( F U N C A L L K E Y T H
0027500 I S - E L E M E N T ) ) ) ( F
0027520 U N C A L L T E S T I T E M
0027540 ( F U N C A L L K E Y T H
0027560 I S - E L E M E N T ) ) ) ) ) \r
0027600 ( S E T F - M A C R O - F U N C
0027620 T I O N ( Q U O T E N O R M
0027640 A L - M U M B L E - D E L E T E
0027660 - F R O M - E N D ) ( Q U O T
0027700 E e x p a n d - N O R M A L -
0027720 M U M B L E - D E L E T E - F R
0027740 O M - E N D \r ) ) \r e x p a n d
0027760 - N O R M A L - L I S T - D E L
0030000 E T E D 1 \r ( L ( 1 $ $ M
0030020 A C R O - E N V I R O N M E N T
0030040 0 $ $ M A C R O - F O R M )
0030060 ) \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N I
0030100 L \r N I L \r ( 3 ( L I S T -
0030120 D E L E T E ( C L : I F T E
0030140 S T - N O T ( N O T ( F U N
0030160 C A L L T E S T - N O T I T
0030200 E M ( F U N C A L L K E Y
0030220 ( C A R C U R R E N T ) ) ) )
0030240 ( F U N C A L L T E S T I
0030260 T E M ( F U N C A L L K E Y
0030300 ( C A R C U R R E N T ) ) )
0030320 ) ) ) \r ( S E T F - M A C R O -
0030340 F U N C T I O N ( Q U O T E
0030360 N O R M A L - L I S T - D E L E
0030400 T E ) ( Q U O T E e x p a n
0030420 d - N O R M A L - L I S T - D E
0030440 L E T E ) ) \r e x p a n d - N O
0030460 R M A L - L I S T - D E L E T E
0030500 - F R O M - E N D D 1 \r ( L
0030520 ( 1 $ $ M A C R O - E N V I R
0030540 O N M E N T 0 $ $ M A C R O
0030560 - F O R M ) ) \0 006 \0 \0 \0 002 o \0
0030600 \0 \0 020 \0 N I L \r N I L \r ( 3
0030620 ( L I S T - D E L E T E - F R O
0030640 M - E N D ( C L : I F T E S
0030660 T - N O T ( N O T ( F U N C
0030700 A L L T E S T - N O T I T E
0030720 M ( F U N C A L L K E Y (
0030740 C A R C U R R E N T ) ) ) )
0030760 ( F U N C A L L T E S T I T
0031000 E M ( F U N C A L L K E Y
0031020 ( C A R C U R R E N T ) ) ) )
0031040 ) ) \r ( S E T F - M A C R O - F
0031060 U N C T I O N ( Q U O T E N
0031100 O R M A L - L I S T - D E L E T
0031120 E - F R O M - E N D ) ( Q U O
0031140 T E e x p a n d - N O R M A L
0031160 - L I S T - D E L E T E - F R O
0031200 M - E N D ) ) \r C L : D E L E T
0031220 E D 1 \r ( L ( 0 - a r g s
0031240 - ) ) 004 030 = \0 002 \0 e 021 001 \0 k a
0031260 021 361 020 021 360 037 021 260 * l 002 a 272 H l 003
0031300 274 273 L d K 363 242 261 001 022 277 h 275 H l 003
0031320 _ 016 277 276 O 016 d N 363 242 261 001 024 277 g \0
0031340 \0 _ 020 277 H l 003 _ 024 277 _ 022 277 O 024 d
0031360 O 022 363 242 261 001 022 277 h _ 026 277 H l 003 _
0031400 032 277 _ 030 277 O 032 d O 030 363 242 261 001 022 277
0031420 j _ 034 277 H l 003 _ 277 _ 036 277 O d
0031440 O 036 363 242 261 001 022 277 h _ " 277 H l 003 _
0031460 & 277 _ $ 277 O & d O $ 363 242 261 001 022 277
0031500 n 377 377 _ ( 277 H l 003 _ , 277 _ * 277 O
0031520 , d O * 363 242 261 001 020 277 g \0 \0 _ . 277
0031540 J \t \0 \0 _ 0 277 O " 244 O 0 _ " 277 J
0031560 O 034 O " O 0 \f \0 \0 J _ 2 _ 4 004 l
0031600 005 360 254 O 4 d o \0 \0 \0 034 242 261 001 251 277
0031620 M 264 003 202 261 001 0 J \t \0 \0 _ 6 277 h O
0031640 6 032 _ 8 277 O 0 O " 325 O 6 \n \0 \0 O
0031660 0 O " 325 O 8 \n \0 \0 O 034 j 021 004 . O
0031700 Z O " \n \0 \0 252 O \ O ( \n \0 \0 242 261
0031720 \0 257 O 8 002 \t \0 \0 020 a g \0 \0 360 226 L
0031740 k 330 a 261 376 351 L l 002 324 \ 261 376 330 a g
0031760 \0 \0 360 227 O 016 k 330 a 261 376 350 O 016 l 002
0032000 324 _ 016 261 376 323 a g \0 \0 360 227 O 024 k 330
0032020 a 261 376 350 O 024 l 002 324 _ 024 261 376 324 a g
0032040 \0 \0 360 227 O 032 k 330 a 261 376 350 O 032 l 002
0032060 324 _ 032 261 376 324 a g \0 \0 360 227 O k 330
0032100 a 261 376 350 O l 002 324 _ 261 376 324 a g
0032120 \0 \0 360 227 O & k 330 a 261 376 352 O & l 002
0032140 324 _ & 261 376 324 a g \0 \0 360 227 O , k 330
0032160 a 261 376 354 O , l 002 324 _ , 261 376 326 O 026
0032200 237 I O V 001 k O . 016 l 002 O 026 016 h 360
0032220 214 I O V 001 k O . 016 l 002 O 020 016 236 O
0032240 X O V 002 031 277 O \ k 324 _ \ 277 205 O X
0032260 002 _ X 277 O V 002 O Z k 324 _ Z 277 _ V
0032300 277 261 376 376 J 032 _ : 277 O 034 J \n \0 \0 O
0032320 034 O : \n \0 \0 O 034 j 021 004 2 O b O "
0032340 \n \0 \0 247 O d O ( \n \0 \0 223 O : 002 020
0032360 O 026 237 I O ^ 001 k O . 016 l 002 O 026 016
0032400 h 360 214 I O ^ 001 k O . 016 l 002 O 020 016
0032420 236 O ` O ^ 002 031 277 O d k 324 _ d 277 205
0032440 O ` 002 _ ` 277 O ^ 002 O b k 324 _ b 277
0032460 _ ^ 277 260 251 \t \0 \0 264 003 202 261 001 y M 242
0032500 261 \0 330 O " k 325 j O 034 k 325 021 023 6 O
0032520 f O j \n \0 \0 250 O h O ( \n \0 \0 262 |
0032540 O l O 034 d 021 003 9 O n 230 O p O " \n
0032560 \0 \0 262 5 O p O r _ > 277 _ < O 0 \n
0032600 \0 \0 226 J O > \n \0 \0 020 J _ B 277 O >
0032620 _ @ 277 J O < 266 O B O @ 267 277 O < k
0032640 324 O > k 324 260 323 J _ F 277 O r _ D 277
0032660 J O p 266 O F O D 267 277 O p O n 001 \n
0032700 \0 \0 226 O n 002 _ n 277 206 O r k 324 _ r
0032720 277 O p k 324 _ p 277 260 220 J O f 266 _ H
0032740 277 O 026 236 I O H k O . 016 l 002 O 026 016
0032760 h 360 213 I O H k O . 016 l 002 O 020 016 236
0033000 O h k 324 _ h 277 O f O l 032 _ l 277 O
0033020 f k 325 _ f 261 377 < O 034 d j 021 003 < O
0033040 t d O " \n \0 \0 253 277 O x O ( \n \0 \0
0033060 262 5 O t O v _ L 277 _ J O 0 \n \0 \0
0033100 226 J O L \n \0 \0 020 J _ P 277 O L _ N
0033120 277 J O J 266 O P O N 267 277 O J k 324 O
0033140 L k 324 260 323 J _ T 277 O v _ R 277 J O
0033160 t 266 O T O R 267 277 O 026 262 023 I J O t
0033200 266 k O . 016 l 002 O 026 016 h 360 215 I J O
0033220 t 266 k O . 016 l 002 O 020 016 227 O x k 324
0033240 _ x 277 206 O v k 324 _ v 277 O t k 324 _
0033260 t 261 377 p g \0 \0 O 2 o \0 \0 \0 \f \0 \0
0033300 020 \0 ( 2 0 2 5 Q C H E C K - T
0033320 Y P E - F A I L 1 6 3 4 Q S
0033340 H R I N K - V E C T O R 1 6 2
0033360 5 Q % % = 1 6 0 5 Q % % =
0033400 1 5 7 4 Q % % = 1 4 2 7 Q
0033420 % % = 1 3 3 6 Q S H R I N
0033440 K - V E C T O R 1 3 2 7 Q %
0033460 % = 1 3 0 7 Q % % = 1 2 6
0033500 3 Q % % = 1 2 5 3 Q % % =
0033520 1 2 1 5 Q V E C T O R P 1
0033540 1 0 0 Q % % = 1 0 7 0 Q %
0033560 % = 1 0 5 3 Q N T H C D R
0033600 1 0 4 4 Q N T H C D R 4 5 5
0033620 Q R E V E R S E 4 4 3 Q %
0033640 % = 4 3 3 Q % % = 4 1 6 Q
0033660 N T H C D R 4 0 4 Q N T H
0033700 C D R 3 6 0 Q R E V E R S E
0033720 3 1 6 Q C H E C K - S U B S
0033740 E Q 2 7 1 Q C L : L E N G T
0033760 H ) \r ( 2 0 1 4 Q S E Q U E N
0034000 C E 6 7 7 Q : K E Y 6 4 7
0034020 Q : C O U N T 6 1 7 Q : E
0034040 N D 5 6 7 Q : S T A R T 5
0034060 3 7 Q : T E S T - N O T 5 0
0034100 7 Q : T E S T 4 6 2 Q : F
0034120 R O M - E N D 2 6 2 Q I D E
0034140 N T I T Y 6 6 Q E Q L ) \r (
0034160 2 0 2 2 Q ( O R L I S T
0034200 V E C T O R ) 3 3 7 Q ( N I
0034220 L ) ) \r e x p a n d - I F - M U
0034240 M B L E - D E L E T E D 1 \r (
0034260 L ( 1 $ $ M A C R O - E N V
0034300 I R O N M E N T 0 $ $ M A C
0034320 R O - F O R M ) ) \0 006 \0 \0 \0 002
0034340 o \0 \0 \0 020 \0 N I L \r N I L \r (
0034360 3 ( M U M B L E - D E L E T E
0034400 ( F U N C A L L P R E D I C
0034420 A T E ( F U N C A L L K E Y
0034440 ( A R E F S E Q U E N C E
0034460 I N D E X ) ) ) ) ) \r ( S E T F
0034500 - M A C R O - F U N C T I O N
0034520 ( Q U O T E I F - M U M B L E
0034540 - D E L E T E ) ( Q U O T E
0034560 e x p a n d - I F - M U M B L E
0034600 - D E L E T E ) ) \r e x p a n d
0034620 - I F - M U M B L E - D E L E T
0034640 E - F R O M - E N D D 1 \r ( L
0034660 ( 1 $ $ M A C R O - E N V I
0034700 R O N M E N T 0 $ $ M A C R
0034720 O - F O R M ) ) \0 006 \0 \0 \0 002 o
0034740 \0 \0 \0 020 \0 N I L \r N I L \r ( 3
0034760 ( M U M B L E - D E L E T E -
0035000 F R O M - E N D ( F U N C A L
0035020 L P R E D I C A T E ( F U N
0035040 C A L L K E Y T H I S - E L
0035060 E M E N T ) ) ) ) \r ( S E T F -
0035100 M A C R O - F U N C T I O N (
0035120 Q U O T E I F - M U M B L E -
0035140 D E L E T E - F R O M - E N D )
0035160 ( Q U O T E e x p a n d - I
0035200 F - M U M B L E - D E L E T E -
0035220 F R O M - E N D ) ) \r e x p a n
0035240 d - I F - L I S T - D E L E T E
0035260 D 1 \r ( L ( 1 $ $ M A C R
0035300 O - E N V I R O N M E N T 0
0035320 $ $ M A C R O - F O R M ) ) \0
0035340 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N I L \r N
0035360 I L \r ( 3 ( L I S T - D E L
0035400 E T E ( F U N C A L L P R E
0035420 D I C A T E ( F U N C A L L
0035440 K E Y ( C A R C U R R E N T
0035460 ) ) ) ) ) \r ( S E T F - M A C R
0035500 O - F U N C T I O N ( Q U O T
0035520 E I F - L I S T - D E L E T E
0035540 ) ( Q U O T E e x p a n d -
0035560 I F - L I S T - D E L E T E ) )
0035600 \r e x p a n d - I F - L I S T -
0035620 D E L E T E - F R O M - E N D
0035640 D 1 \r ( L ( 1 $ $ M A C R O
0035660 - E N V I R O N M E N T 0 $
0035700 $ M A C R O - F O R M ) ) \0 006
0035720 \0 \0 \0 002 o \0 \0 \0 020 \0 N I L \r N I
0035740 L \r ( 3 ( L I S T - D E L E
0035760 T E - F R O M - E N D ( F U N
0036000 C A L L P R E D I C A T E (
0036020 F U N C A L L K E Y ( C A R
0036040 C U R R E N T ) ) ) ) ) \r ( S
0036060 E T F - M A C R O - F U N C T I
0036100 O N ( Q U O T E I F - L I S
0036120 T - D E L E T E - F R O M - E N
0036140 D ) ( Q U O T E e x p a n d
0036160 - I F - L I S T - D E L E T E -
0036200 F R O M - E N D ) ) \r D E L E T
0036220 E - I F D 1 \r ( L ( 0 - a
0036240 r g s - ) ) 003 U 6 \0 002 \0 e 021 001
0036260 \0 k a 021 361 020 021 360 037 021 @ # l 002 a 272
0036300 H l 003 274 273 L d K 363 242 261 \0 336 277 h 275
0036320 H l 003 _ 016 277 276 O 016 d N 363 242 261 \0 340
0036340 277 j _ 020 277 H l 003 _ 024 277 _ 022 277 O 024
0036360 d O 022 363 242 261 \0 340 277 g \0 \0 _ 026 277 H
0036400 l 003 _ 032 277 _ 030 277 O 032 d O 030 363 242 261
0036420 \0 336 277 h _ 034 277 H l 003 _ 277 _ 036 277
0036440 O d O 036 363 242 261 \0 336 277 n 377 377 _ "
0036460 277 J \t \0 \0 _ $ 277 O 034 244 O $ _ 034 277
0036500 J O 020 O 034 O $ \f \0 \0 J _ & _ ( 004
0036520 l 005 360 254 O ( d o \0 \0 \0 034 242 261 001 K
0036540 277 M 264 003 202 261 \0 350 J \t \0 \0 _ * 277 h
0036560 O * 032 _ , 277 O $ O 034 325 O * \n \0 \0
0036600 O $ O 034 325 O , \n \0 \0 O 020 j 021 004 '
0036620 O L O 034 \n \0 \0 250 O N O " \n \0 \0 262
0036640 ~ O , 002 \t \0 \0 020 a g \0 \0 360 226 L k
0036660 330 a 261 377 035 L l 002 324 \ 261 377 \f a g \0
0036700 \0 360 227 O 016 k 330 a 261 377 032 O 016 l 002 324
0036720 _ 016 261 377 \a a g \0 \0 360 227 O 024 k 330 a
0036740 261 377 034 O 024 l 002 324 _ 024 261 377 006 a g \0
0036760 \0 360 227 O 032 k 330 a 261 377 034 O 032 l 002 324
0037000 _ 032 261 377 \b a g \0 \0 360 227 O k 330 a
0037020 261 377 036 O l 002 324 _ 261 377 \b O H 001
0037040 k O 026 016 k I 016 236 O J O H 002 031 277 O
0037060 N k 324 _ N 277 205 O J 002 _ J 277 O H 002
0037100 O L k 324 _ L 277 _ H 277 261 377 F J 032 _
0037120 . 277 O 020 J \n \0 \0 O 020 O . \n \0 \0 O
0037140 020 j 021 004 + O T O 034 \n \0 \0 247 O V O
0037160 " \n \0 \0 223 O . 002 020 O P 001 k O 026 016
0037200 k I 016 236 O R O P 002 031 277 O V k 324 _
0037220 V 277 205 O R 002 _ R 277 O P 002 O T k 324
0037240 _ T 277 _ P 277 260 277 \t \0 \0 264 003 202 261 001
0037260 F M 242 261 \0 276 O 034 k 325 j O 020 k 325 021
0037300 023 / O X O \ \n \0 \0 250 O Z O " \n \0
0037320 \0 262 | O ^ O 020 d 021 003 2 O ` 230 O b
0037340 O 034 \n \0 \0 262 5 O b O d _ 2 277 _ 0
0037360 O $ \n \0 \0 226 J O 2 \n \0 \0 020 J _ 6
0037400 277 O 2 _ 4 277 J O 0 266 O 6 O 4 267 277
0037420 O 0 k 324 O 2 k 324 260 323 J _ : 277 O d
0037440 _ 8 277 J O b 266 O : O 8 267 277 O b O
0037460 ` 001 \n \0 \0 226 O ` 002 _ ` 277 206 O d k
0037500 324 _ d 277 O b k 324 _ b 277 260 220 J O X
0037520 266 k O 026 016 k I 016 236 O Z k 324 _ Z 277
0037540 O X O ^ 032 _ ^ 277 O X k 325 _ X 261 377
0037560 V O 020 d j 021 003 5 O f d O 034 \n \0 \0
0037600 253 277 O j O " \n \0 \0 262 5 O f O h _
0037620 > 277 _ < O $ \n \0 \0 226 J O > \n \0 \0
0037640 020 J _ B 277 O > _ @ 277 J O < 266 O B
0037660 O @ 267 277 O < k 324 O > k 324 260 323 J _
0037700 F 277 O h _ D 277 J O f 266 O F O D 267
0037720 277 J O f 266 k O 026 016 k I 016 227 O j k
0037740 324 _ j 277 206 O h k 324 _ h 277 O f k 324
0037760 _ f 260 210 g \0 \0 O & o \0 \0 \0 \f \0 \0
0040000 020 \0 ( 1 5 2 2 Q C H E C K - T
0040020 Y P E - F A I L 1 3 6 2 Q S
0040040 H R I N K - V E C T O R 1 3 5
0040060 3 Q % % = 1 3 3 3 Q % % =
0040100 1 3 2 2 Q % % = 1 2 0 7 Q
0040120 % % = 1 1 1 6 Q S H R I N
0040140 K - V E C T O R 1 1 0 7 Q %
0040160 % = 1 0 6 7 Q % % = 1 0 4
0040200 3 Q % % = 1 0 3 3 Q % % =
0040220 7 7 5 Q V E C T O R P 7 0
0040240 6 Q % % = 6 7 6 Q % % =
0040260 6 6 1 Q N T H C D R 6 5 2 Q
0040300 N T H C D R 3 7 1 Q R E V
0040320 E R S E 3 6 1 Q % % = 3 5
0040340 1 Q % % = 3 3 4 Q N T H C
0040360 D R 3 2 2 Q N T H C D R 2
0040400 7 6 Q R E V E R S E 2 3 4 Q
0040420 C H E C K - S U B S E Q 2 0
0040440 7 Q C L : L E N G T H ) \r ( 1
0040460 5 1 1 Q S E Q U E N C E 5 3
0040500 3 Q : C O U N T 5 0 3 Q :
0040520 E N D 4 5 3 Q : K E Y 4 2
0040540 3 Q : S T A R T 3 7 6 Q :
0040560 F R O M - E N D 1 1 6 Q I D
0040600 E N T I T Y ) \r ( 1 5 1 7 Q
0040620 ( O R L I S T V E C T O R )
0040640 2 5 5 Q ( N I L ) ) \r e x p
0040660 a n d - I F - N O T - M U M B L
0040700 E - D E L E T E D 1 \r ( L (
0040720 1 $ $ M A C R O - E N V I R O
0040740 N M E N T 0 $ $ M A C R O -
0040760 F O R M ) ) \0 006 \0 \0 \0 002 o \0 \0
0041000 \0 020 \0 N I L \r N I L \r ( 3 (
0041020 M U M B L E - D E L E T E ( N
0041040 O T ( F U N C A L L P R E D
0041060 I C A T E ( F U N C A L L K
0041100 E Y ( A R E F S E Q U E N C
0041120 E I N D E X ) ) ) ) ) ) \r ( S
0041140 E T F - M A C R O - F U N C T I
0041160 O N ( Q U O T E I F - N O T
0041200 - M U M B L E - D E L E T E )
0041220 ( Q U O T E e x p a n d - I F
0041240 - N O T - M U M B L E - D E L E
0041260 T E ) ) \r e x p a n d - I F - N
0041300 O T - M U M B L E - D E L E T E
0041320 - F R O M - E N D D 1 \r ( L
0041340 ( 1 $ $ M A C R O - E N V I R
0041360 O N M E N T 0 $ $ M A C R O
0041400 - F O R M ) ) \0 006 \0 \0 \0 002 o \0
0041420 \0 \0 020 \0 N I L \r N I L \r ( 3
0041440 ( M U M B L E - D E L E T E - F
0041460 R O M - E N D ( N O T ( F U
0041500 N C A L L P R E D I C A T E
0041520 ( F U N C A L L K E Y T H I
0041540 S - E L E M E N T ) ) ) ) ) \r (
0041560 S E T F - M A C R O - F U N C T
0041600 I O N ( Q U O T E I F - N O
0041620 T - M U M B L E - D E L E T E -
0041640 F R O M - E N D ) ( Q U O T E
0041660 e x p a n d - I F - N O T - M
0041700 U M B L E - D E L E T E - F R O
0041720 M - E N D \r ) ) \r e x p a n d -
0041740 I F - N O T - L I S T - D E L E
0041760 T E D 1 \r ( L ( 1 $ $ M A
0042000 C R O - E N V I R O N M E N T
0042020 0 $ $ M A C R O - F O R M ) )
0042040 \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N I L
0042060 \r N I L \r ( 3 ( L I S T - D
0042100 E L E T E ( F U N C A L L P
0042120 R E D I C A T E ( F U N C A L
0042140 L K E Y ( C A R C U R R E
0042160 N T ) ) ) ) ) \r ( S E T F - M A
0042200 C R O - F U N C T I O N ( Q U
0042220 O T E I F - N O T - L I S T -
0042240 D E L E T E ) ( Q U O T E e
0042260 x p a n d - I F - N O T - L I S
0042300 T - D E L E T E ) ) \r e x p a n
0042320 d - I F - N O T - L I S T - D E
0042340 L E T E - F R O M - E N D D 1
0042360 \r ( L ( 1 $ $ M A C R O - E
0042400 N V I R O N M E N T 0 $ $ M
0042420 A C R O - F O R M ) ) \0 006 \0 \0
0042440 \0 002 o \0 \0 \0 020 \0 N I L \r N I L \r
0042460 ( 3 ( L I S T - D E L E T E
0042500 - F R O M - E N D ( F U N C A
0042520 L L P R E D I C A T E ( F U
0042540 N C A L L K E Y ( C A R C
0042560 U R R E N T ) ) ) ) ) \r ( S E T
0042600 F - M A C R O - F U N C T I O N
0042620 ( Q U O T E I F - N O T - L
0042640 I S T - D E L E T E - F R O M -
0042660 E N D ) ( Q U O T E e x p a
0042700 n d - I F - N O T - L I S T - D
0042720 E L E T E - F R O M - E N D ) )
0042740 \r D E L E T E - I F - N O T D
0042760 1 \r ( L ( 0 - a r g s - ) )
0043000 003 U 6 \0 002 \0 e 021 001 \0 k a 021 361 020
0043020 021 360 037 021 @ # l 002 a 272 H l 003 274 273 L
0043040 d K 363 242 261 \0 336 277 h 275 H l 003 _ 016 277
0043060 276 O 016 d N 363 242 261 \0 340 277 j _ 020 277 H
0043100 l 003 _ 024 277 _ 022 277 O 024 d O 022 363 242 261
0043120 \0 340 277 h _ 026 277 H l 003 _ 032 277 _ 030 277
0043140 O 032 d O 030 363 242 261 \0 340 277 g \0 \0 _ 034
0043160 277 H l 003 _ 277 _ 036 277 O d O 036 363
0043200 242 261 \0 336 277 n 377 377 _ " 277 J \t \0 \0 _
0043220 $ 277 O 026 244 O $ _ 026 277 J O 020 O 026 O
0043240 $ \f \0 \0 J _ & _ ( 004 l 005 360 254 O (
0043260 d o \0 \0 \0 034 242 261 001 K 277 M 264 003 202 261
0043300 \0 350 J \t \0 \0 _ * 277 h O * 032 _ , 277
0043320 O $ O 026 325 O * \n \0 \0 O $ O 026 325 O
0043340 , \n \0 \0 O 020 j 021 004 ' O L O 026 \n \0
0043360 \0 250 O N O " \n \0 \0 262 ~ O , 002 \t \0
0043400 \0 020 a g \0 \0 360 226 L k 330 a 261 377 035 L
0043420 l 002 324 \ 261 377 \f a g \0 \0 360 227 O 016 k
0043440 330 a 261 377 032 O 016 l 002 324 _ 016 261 377 \a a
0043460 g \0 \0 360 227 O 024 k 330 a 261 377 032 O 024 l
0043500 002 324 _ 024 261 377 006 a g \0 \0 360 227 O 032 k
0043520 330 a 261 377 034 O 032 l 002 324 _ 032 261 377 006 a
0043540 g \0 \0 360 227 O k 330 a 261 377 036 O l
0043560 002 324 _ 261 377 \b O H 001 k O 034 016 k I
0043600 016 236 O J O H 002 031 277 O N k 324 _ N 277
0043620 205 O J 002 _ J 277 O H 002 O L k 324 _ L
0043640 277 _ H 277 261 377 F J 032 _ . 277 O 020 J \n
0043660 \0 \0 O 020 O . \n \0 \0 O 020 j 021 004 + O
0043700 T O 026 \n \0 \0 247 O V O " \n \0 \0 223 O
0043720 . 002 020 O P 001 k O 034 016 k I 016 236 O R
0043740 O P 002 031 277 O V k 324 _ V 277 205 O R 002
0043760 _ R 277 O P 002 O T k 324 _ T 277 _ P 277
0044000 260 277 \t \0 \0 264 003 202 261 001 F M 242 261 \0 276
0044020 O 026 k 325 j O 020 k 325 021 023 / O X O \
0044040 \n \0 \0 250 O Z O " \n \0 \0 262 | O ^ O
0044060 020 d 021 003 2 O ` 230 O b O 026 \n \0 \0 262
0044100 5 O b O d _ 2 277 _ 0 O $ \n \0 \0 226
0044120 J O 2 \n \0 \0 020 J _ 6 277 O 2 _ 4 277
0044140 J O 0 266 O 6 O 4 267 277 O 0 k 324 O 2
0044160 k 324 260 323 J _ : 277 O d _ 8 277 J O b
0044200 266 O : O 8 267 277 O b O ` 001 \n \0 \0 226
0044220 O ` 002 _ ` 277 206 O d k 324 _ d 277 O b
0044240 k 324 _ b 277 260 220 J O X 266 k O 034 016 k
0044260 I 016 256 O Z k 324 _ Z 277 O X O ^ 032 _
0044300 ^ 277 O X k 325 _ X 261 377 V O 020 d j 021
0044320 003 5 O f d O 026 \n \0 \0 253 277 O j O "
0044340 \n \0 \0 262 5 O f O h _ > 277 _ < O $
0044360 \n \0 \0 226 J O > \n \0 \0 020 J _ B 277 O
0044400 > _ @ 277 J O < 266 O B O @ 267 277 O <
0044420 k 324 O > k 324 260 323 J _ F 277 O h _ D
0044440 277 J O f 266 O F O D 267 277 J O f 266 k
0044460 O 034 016 k I 016 247 O j k 324 _ j 277 206 O
0044500 h k 324 _ h 277 O f k 324 _ f 260 210 g \0
0044520 \0 O & o \0 \0 \0 \f \0 \0 020 \0 ( 1 5 2
0044540 2 Q C H E C K - T Y P E - F A
0044560 I L 1 3 6 2 Q S H R I N K -
0044600 V E C T O R 1 3 5 3 Q % % =
0044620 1 3 3 3 Q % % = 1 3 2 2 Q
0044640 % % = 1 2 0 7 Q % % = 1
0044660 1 1 6 Q S H R I N K - V E C T
0044700 O R 1 1 0 7 Q % % = 1 0 6
0044720 7 Q % % = 1 0 4 3 Q % % =
0044740 1 0 3 3 Q % % = 7 7 5 Q
0044760 V E C T O R P 7 0 6 Q % % =
0045000 6 7 6 Q % % = 6 6 1 Q N
0045020 T H C D R 6 5 2 Q N T H C D
0045040 R 3 7 1 Q R E V E R S E 3
0045060 6 1 Q % % = 3 5 1 Q % % =
0045100 3 3 4 Q N T H C D R 3 2 2
0045120 Q N T H C D R 2 7 6 Q R E
0045140 V E R S E 2 3 4 Q C H E C K
0045160 - S U B S E Q 2 0 7 Q C L :
0045200 L E N G T H ) \r ( 1 5 1 1 Q S
0045220 E Q U E N C E 5 3 3 Q : C O
0045240 U N T 5 0 3 Q : K E Y 4 5
0045260 3 Q : E N D 4 2 3 Q : S T
0045300 A R T 3 7 6 Q : F R O M - E
0045320 N D 1 4 6 Q I D E N T I T Y
0045340 ) \r ( 1 5 1 7 Q ( O R L I
0045360 S T V E C T O R ) 2 5 5 Q
0045400 ( N I L ) ) \r e x p a n d - M U
0045420 M B L E - R E M O V E - M A C R
0045440 O D 1 \r ( L ( 1 $ $ M A C
0045460 R O - E N V I R O N M E N T 0
0045500 $ $ M A C R O - F O R M ) )
0045520 001 001 \v \0 \0 002 @ 002 021 241 \n H 001 271 H 002
0045540 Z 001 273 J 002 \ 001 275 L 002 ^ 001 _ 016 277 N
0045560 002 _ 020 001 _ 022 277 O 020 002 001 _ 024 277 g \0
0045600 \0 g \0 \0 M I o \0 \0 \0 032 h 032 032 032 g
0045620 \0 \0 g \0 \0 g \0 \0 K I o \0 \0 \0 032 h
0045640 032 032 032 o \0 \0 \0 032 g \0 \0 g \0 \0 M h
0045660 032 032 032 o \0 \0 \0 032 o \0 \0 \0 032 032 032 h
0045700 032 032 g \0 \0 M h 032 032 o \0 \0 \0 032 032 032
0045720 g \0 \0 g \0 \0 g \0 \0 O 016 h 032 032 032 o
0045740 \0 \0 \0 032 032 g \0 \0 g \0 \0 d I o \0 \0
0045760 \0 032 h 032 032 032 g \0 \0 d I o \0 \0 \0 032
0046000 h 032 032 032 h 032 032 g \0 \0 g \0 \0 O 022 h
0046020 032 032 032 o \0 \0 \0 032 o \0 \0 \0 032 032 032 h
0046040 032 032 g \0 \0 o \0 \0 \0 g \0 \0 O 024 o \0
0046060 \0 \0 g \0 \0 g \0 \0 I o \0 \0 \0 032 h 032
0046100 032 032 h 032 032 032 o \0 \0 \0 032 032 h 032 032 032
0046120 h 032 032 032 032 020 \0 N I L \r ( 3 4 1 Q
0046140 N E W - I N D E X 3 3 6 Q
0046160 S E T Q 3 2 5 Q C O N D 3
0046200 1 6 Q L E T 2 6 6 Q I N D
0046220 E X 2 6 3 Q = 2 4 2 Q N
0046240 E W - I N D E X 2 2 4 Q I N
0046260 D E X 2 2 1 Q C L : D O 2
0046300 0 2 Q I N D E X 1 7 7 Q =
0046320 1 7 4 Q O R 1 5 6 Q N E
0046340 W - I N D E X 1 2 7 Q I N D
0046360 E X 1 2 4 Q = 1 0 1 Q I
0046400 N D E X 7 6 Q C L : D O 7
0046420 3 Q R E S U L T 5 5 Q I N
0046440 D E X 5 2 Q C L : D O ) \r (
0046460 3 6 3 Q ( ( T ( I N C F
0046500 N U M B E R - Z A P P E D ) ) )
0046520 3 4 6 Q ( N E W - I N D E X
0046540 ) 3 3 3 Q ( S E T F ( A R
0046560 E F R E S U L T N E W - I N
0046600 D E X ) T H I S - E L E M E N
0046620 T ) 3 2 2 Q \r ( ( T H I S -
0046640 E L E M E N T ( A R E F S E
0046660 Q U E N C E I N D E X ) ) )
0046700 3 0 5 Q ( ( S E T F ( A R E
0046720 F R E S U L T N E W - I N D
0046740 E X ) ( A R E F S E Q U E N
0046760 C E I N D E X ) ) ) 3 0 0 Q
0047000 \r ( ( S H R I N K - V E C T O
0047020 R R E S U L T N E W - I N D
0047040 E X ) ) 2 5 0 Q ( N E W - I
0047060 N D E X ) 2 3 2 Q ( I N D E
0047100 X ) 2 1 4 Q ( ( = N U M B
0047120 E R - Z A P P E D C O U N T )
0047140 ) 1 6 6 Q ( ( N U M B E R -
0047160 Z A P P E D 0 ) ( T H I S -
0047200 E L E M E N T ) ) \r 1 4 5 Q
0047220 ( ( S E T F ( A R E F R E S
0047240 U L T I N D E X ) ( A R E F
0047260 S E Q U E N C E I N D E X )
0047300 ) ) 1 4 0 Q ( R E S U L T )
0047320 1 2 0 Q ( ( R E S U L T (
0047340 M A K E - S E Q U E N C E - L I
0047360 K E S E Q U E N C E L E N G
0047400 T H ) ) ) \r 1 0 7 Q ( I N D
0047420 E X ) 6 3 Q ( I N D E X ) )
0047440 \r ( S E T F - M A C R O - F U N
0047460 C T I O N ( Q U O T E M U M
0047500 B L E - R E M O V E - M A C R O
0047520 ) ( Q U O T E e x p a n d -
0047540 M U M B L E - R E M O V E - M A
0047560 C R O ) ) \r e x p a n d - M U M
0047600 B L E - R E M O V E D 1 \r ( L
0047620 ( 1 $ $ M A C R O - E N V I
0047640 R O N M E N T 0 $ $ M A C R
0047660 O - F O R M ) ) \0 ! 001 \0 \0 002 @
0047700 002 001 021 001 \0 g \0 \0 g \0 \0 j g \0 \0 g
0047720 \0 \0 g \0 \0 H h 032 032 032 032 032 032 032 020 \0
0047740 N I L \r ( 2 5 Q L E N G T H
0047760 2 2 Q E N D 1 7 Q S T A R
0050000 T 1 3 Q 1 + 1 0 Q M U M
0050020 B L E - R E M O V E - M A C R O
0050040 ) \r ( ) \r ( S E T F - M A C R O
0050060 - F U N C T I O N ( Q U O T E
0050100 M U M B L E - R E M O V E )
0050120 ( Q U O T E e x p a n d - M U
0050140 M B L E - R E M O V E ) ) \r e x
0050160 p a n d - M U M B L E - R E M O
0050200 V E - F R O M - E N D D 1 \r (
0050220 L ( 1 $ $ M A C R O - E N V
0050240 I R O N M E N T 0 $ $ M A C
0050260 R O - F O R M ) ) \0 001 \0 \0 002
0050300 @ 002 001 021 001 \0 g \0 \0 o \0 \0 \0 g \0 \0
0050320 g \0 \0 H h 032 032 h 032 032 h 032 032 032 020 \0
0050340 N I L \r ( 2 2 Q N O T 1 7 Q
0050360 M U M B L E - D E L E T E - F
0050400 R O M - E N D 1 0 Q L E T )
0050420 \r ( 1 4 Q ( ( S E Q U E N C
0050440 E ( C O P Y - S E Q S E Q U
0050460 E N C E ) ) ) ) \r ( S E T F - M
0050500 A C R O - F U N C T I O N ( Q
0050520 U O T E M U M B L E - R E M O
0050540 V E - F R O M - E N D ) ( Q U
0050560 O T E e x p a n d - M U M B L
0050600 E - R E M O V E - F R O M - E N
0050620 D ) ) \r e x p a n d - L I S T -
0050640 R E M O V E - M A C R O D 1 \r
0050660 ( L ( 1 $ $ M A C R O - E N
0050700 V I R O N M E N T 0 $ $ M A
0050720 C R O - F O R M ) ) \0 e 003 \0 \0
0050740 002 @ 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0
0050760 J 264 006 o \0 \0 \0 o \0 \0 \0 \n \0 \0 g \0
0051000 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0
0051020 o \0 \0 \0 J 224 o \0 \0 \0 203 o \0 \0 \0 h
0051040 032 032 o \0 \0 \0 032 032 032 h 032 032 o \0 \0 \0
0051060 g \0 \0 I o \0 \0 \0 032 032 h 032 032 032 032 032
0051100 h 032 032 032 020 \0 ( 3 4 Q \ A P P E
0051120 N D 2 ) \r ( 1 2 1 Q C L : I F
0051140 5 2 Q C L : D O 3 7 Q C
0051160 L : D O 1 6 Q L E T * ) \r (
0051200 1 2 6 Q ( ( S E T Q S P L
0051220 I C E ( C D R ( R P L A C D
0051240 S P L I C E ( C O N S T H
0051260 I S - E L E M E N T N I L ) )
0051300 ) ) ( I N C F N U M B E R -
0051320 Z A P P E D ) ) 1 1 6 Q ( S
0051340 E T Q T H I S - E L E M E N T
0051360 ( C L : P O P S E Q U E N C
0051400 E ) ) \r 1 0 4 Q ( ( S E T Q
0051420 S P L I C E ( C D R ( R P
0051440 L A C D S P L I C E ( C O N
0051460 S ( C L : P O P S E Q U E N
0051500 C E ) N I L ) ) ) ) ) 7 5 Q
0051520 ( C D R R E S U L T S ) 7
0051540 0 Q ( R E V E R S E ( C D R
0051560 R E S U L T S ) ) \r 6 2 Q
0051600 ( N U L L S E Q U E N C E )
0051620 5 6 Q ( ( I N D E X I N D E
0051640 X ( 1 + I N D E X ) ) ) 4
0051660 7 Q ( O R ( = I N D E X
0051700 E N D ) ( = N U M B E R - Z
0051720 A P P E D C O U N T ) ) 4 3
0051740 Q \r ( ( I N D E X S T A R T
0051760 ( 1 + I N D E X ) ) ( T H
0052000 I S - E L E M E N T ) ( N U M
0052020 B E R - Z A P P E D 0 ) ) 3
0052040 1 Q ( ( S P L I C E ( L I S
0052060 T N I L ) ) ( R E S U L T S
0052100 ( C L : D O ( ( I N D E X
0052120 0 ( 1 + I N D E X ) ) ( B
0052140 E F O R E - S T A R T S P L I
0052160 C E ) ) ( ( = I N D E X S
0052200 T A R T ) B E F O R E - S T A
0052220 R T ) ( S E T Q S P L I C E
0052240 ( C D R ( R P L A C D S P
0052260 L I C E ( C O N S ( C L : P
0052300 O P S E Q U E N C E ) N I L
0052320 ) ) ) ) ) ) ) \r 2 5 Q ( ( S
0052340 E Q U E N C E ( R E V E R S E
0052360 S E Q U E N C E ) ) ) ) \r ( S
0052400 E T F - M A C R O - F U N C T I
0052420 O N ( Q U O T E L I S T - R
0052440 E M O V E - M A C R O ) ( Q U
0052460 O T E e x p a n d - L I S T -
0052500 R E M O V E - M A C R O ) ) \r e
0052520 x p a n d - L I S T - R E M O V
0052540 E D 1 \r ( L ( 1 $ $ M A C
0052560 R O - E N V I R O N M E N T 0
0052600 $ $ M A C R O - F O R M ) )
0052620 \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H
0052640 o \0 \0 \0 032 032 020 \0 N I L \r ( 1 0 Q
0052660 L I S T - R E M O V E - M A C
0052700 R O ) \r ( 1 5 Q ( N I L ) )
0052720 \r ( S E T F - M A C R O - F U N
0052740 C T I O N ( Q U O T E L I S
0052760 T - R E M O V E ) ( Q U O T E
0053000 e x p a n d - L I S T - R E M
0053020 O V E ) ) \r e x p a n d - L I S
0053040 T - R E M O V E - F R O M - E N
0053060 D D 1 \r ( L ( 1 $ $ M A C
0053100 R O - E N V I R O N M E N T 0
0053120 $ $ M A C R O - F O R M ) )
0053140 \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H
0053160 o \0 \0 \0 032 032 020 \0 N I L \r ( 1 0 Q
0053200 L I S T - R E M O V E - M A C
0053220 R O ) \r ( 1 5 Q ( T ) ) \r (
0053240 S E T F - M A C R O - F U N C T
0053260 I O N ( Q U O T E L I S T -
0053300 R E M O V E - F R O M - E N D )
0053320 ( Q U O T E e x p a n d - L
0053340 I S T - R E M O V E - F R O M -
0053360 E N D ) ) \r e x p a n d - N O R
0053400 M A L - M U M B L E - R E M O V
0053420 E D 1 \r ( L ( 1 $ $ M A C
0053440 R O - E N V I R O N M E N T 0
0053460 $ $ M A C R O - F O R M ) )
0053500 \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N I L \r
0053520 N I L \r ( 3 ( M U M B L E -
0053540 R E M O V E ( C L : I F T E
0053560 S T - N O T ( F U N C A L L
0053600 T E S T - N O T I T E M ( F
0053620 U N C A L L K E Y T H I S -
0053640 E L E M E N T ) ) ( N O T (
0053660 F U N C A L L T E S T I T E
0053700 M ( F U N C A L L K E Y T
0053720 H I S - E L E M E N T ) ) ) ) )
0053740 ) \r ( S E T F - M A C R O - F U
0053760 N C T I O N ( Q U O T E N O
0054000 R M A L - M U M B L E - R E M O
0054020 V E ) ( Q U O T E e x p a n
0054040 d - N O R M A L - M U M B L E -
0054060 R E M O V E ) ) \r e x p a n d -
0054100 N O R M A L - M U M B L E - R E
0054120 M O V E - F R O M - E N D D 1
0054140 \r ( L ( 1 $ $ M A C R O - E
0054160 N V I R O N M E N T 0 $ $ M
0054200 A C R O - F O R M ) ) \0 006 \0 \0
0054220 \0 002 o \0 \0 \0 020 \0 N I L \r N I L \r
0054240 ( 3 ( M U M B L E - R E M O
0054260 V E - F R O M - E N D ( C L :
0054300 I F T E S T - N O T ( F U N
0054320 C A L L T E S T - N O T I T
0054340 E M ( F U N C A L L K E Y
0054360 T H I S - E L E M E N T ) ) (
0054400 N O T ( F U N C A L L T E S
0054420 T I T E M ( F U N C A L L
0054440 K E Y T H I S - E L E M E N T
0054460 ) ) ) ) ) ) \r ( S E T F - M A C
0054500 R O - F U N C T I O N ( Q U O
0054520 T E N O R M A L - M U M B L E
0054540 - R E M O V E - F R O M - E N D
0054560 ) ( Q U O T E e x p a n d -
0054600 N O R M A L - M U M B L E - R E
0054620 M O V E - F R O M - E N D \r ) )
0054640 \r e x p a n d - N O R M A L - L
0054660 I S T - R E M O V E D 1 \r ( L
0054700 ( 1 $ $ M A C R O - E N V I
0054720 R O N M E N T 0 $ $ M A C R
0054740 O - F O R M ) ) \0 006 \0 \0 \0 002 o
0054760 \0 \0 \0 020 \0 N I L \r N I L \r ( 3
0055000 ( L I S T - R E M O V E ( C
0055020 L : I F T E S T - N O T ( F
0055040 U N C A L L T E S T - N O T
0055060 I T E M ( F U N C A L L K E
0055100 Y T H I S - E L E M E N T ) )
0055120 ( N O T ( F U N C A L L T
0055140 E S T I T E M ( F U N C A L
0055160 L K E Y T H I S - E L E M E
0055200 N T ) ) ) ) ) ) \r ( S E T F - M
0055220 A C R O - F U N C T I O N ( Q
0055240 U O T E N O R M A L - L I S T
0055260 - R E M O V E ) ( Q U O T E
0055300 e x p a n d - N O R M A L - L I
0055320 S T - R E M O V E ) ) \r e x p a
0055340 n d - N O R M A L - L I S T - R
0055360 E M O V E - F R O M - E N D D
0055400 1 \r ( L ( 1 $ $ M A C R O -
0055420 E N V I R O N M E N T 0 $ $
0055440 M A C R O - F O R M ) ) \0 006 \0
0055460 \0 \0 002 o \0 \0 \0 020 \0 N I L \r N I L
0055500 \r ( 3 ( L I S T - R E M O V
0055520 E - F R O M - E N D ( C L : I
0055540 F T E S T - N O T ( F U N C
0055560 A L L T E S T - N O T I T E
0055600 M ( F U N C A L L K E Y T
0055620 H I S - E L E M E N T ) ) ( N
0055640 O T ( F U N C A L L T E S T
0055660 I T E M ( F U N C A L L K
0055700 E Y T H I S - E L E M E N T )
0055720 ) ) ) ) ) \r ( S E T F - M A C R
0055740 O - F U N C T I O N ( Q U O T
0055760 E N O R M A L - L I S T - R E
0056000 M O V E - F R O M - E N D ) (
0056020 Q U O T E e x p a n d - N O R
0056040 M A L - L I S T - R E M O V E -
0056060 F R O M - E N D ) ) \r C L : R E
0056100 M O V E D 1 \r ( L ( 0 - a
0056120 r g s - ) ) 005 033 M \0 002 \0 e 021 001
0056140 \0 k a 021 361 020 021 360 037 021 360 . 021 320 ; l
0056160 002 a 272 H l 003 274 273 L d K 363 242 261 001
0056200 277 h 275 H l 003 _ 016 277 276 O 016 d N 363 242
0056220 261 001 " 277 g \0 \0 _ 020 277 H l 003 _ 024 277
0056240 _ 022 277 O 024 d O 022 363 242 261 001 277 h _
0056260 026 277 H l 003 _ 032 277 _ 030 277 O 032 d O 030
0056300 363 242 261 001 277 j _ 034 277 H l 003 _ 277
0056320 _ 036 277 O d O 036 363 242 261 001 277 h _
0056340 " 277 H l 003 _ & 277 _ $ 277 O & d O $
0056360 363 242 261 001 277 n 377 377 _ ( 277 H l 003 _
0056400 , 277 _ * 277 O , d O * 363 242 261 001 036 277
0056420 g \0 \0 _ . 277 J \t \0 \0 _ 0 277 O " 244
0056440 O 0 _ " 277 J O 034 O " O 0 \f \0 \0 J
0056460 _ 2 _ 4 004 l 005 360 254 O 4 d o \0 \0 \0
0056500 034 242 261 002 " 277 M 264 003 202 261 001 q J \t \0
0056520 \0 _ 6 277 h h 032 _ 8 277 j O 8 _ < 277
0056540 _ : O 034 \n \0 \0 242 261 \0 332 O < _ > 277
0056560 O 034 j 021 022 > O x d O " \n \0 \0 255 277
0056600 O z O ( \n \0 \0 242 261 \0 354 O x _ @ 277
0056620 O 6 222 261 \0 310 O > 002 \t \0 \0 020 a g \0
0056640 \0 360 226 L k 330 a 261 376 333 L l 002 324 \ 261
0056660 376 312 a g \0 \0 360 227 O 016 k 330 a 261 376 332
0056700 O 016 l 002 324 _ 016 261 376 305 a g \0 \0 360 227
0056720 O 024 k 330 a 261 376 332 O 024 l 002 324 _ 024 261
0056740 376 306 a g \0 \0 360 227 O 032 k 330 a 261 376 332
0056760 O 032 l 002 324 _ 032 261 376 306 a g \0 \0 360 227
0057000 O k 330 a 261 376 332 O l 002 324 _ 261
0057020 376 306 a g \0 \0 360 227 O & k 330 a 261 376 334
0057040 O & l 002 324 _ & 261 376 306 a g \0 \0 360 227
0057060 O , k 330 a 261 376 336 O , l 002 324 _ , 261
0057100 376 310 O 8 d O 6 001 O 6 002 _ 6 277 & 277
0057120 002 _ 8 277 O : k 324 261 377 \b O 8 d O 6
0057140 001 O 6 002 _ 6 277 & 277 002 _ 8 277 O @ k
0057160 324 261 377 034 O 6 001 O 6 002 _ 6 277 _ | 277
0057200 O 026 234 I O | k O . 016 l 002 O 026 016 215
0057220 I O | k O . 016 l 002 O 020 016 h 360 233 O
0057240 8 d O | & 277 002 _ 8 277 206 O z k 324 _
0057260 z 277 O x k 324 _ x 261 376 300 h 032 _ B 277
0057300 j O B _ F 277 _ D O 034 \n \0 \0 262 , O
0057320 F _ H 277 O 034 j 021 022 A O ~ d O " \n
0057340 \0 \0 253 277 O 200 O ( \n \0 \0 262 6 O ~ _
0057360 J 277 J 263 032 O H 002 020 O B d J 001 J 002
0057400 272 & 277 002 _ B 277 O D k 324 260 273 O B d
0057420 J 001 J 002 272 & 277 002 _ B 277 O J k 324 260
0057440 320 J 001 J 002 272 _ 202 277 O 026 234 I O 202 k
0057460 O . 016 l 002 O 026 016 215 I O 202 k O . 016
0057500 l 002 O 020 016 h 360 233 O B d O 202 & 277 002
0057520 _ B 277 206 O 200 k 324 _ 200 277 O ~ k 324 _
0057540 ~ 261 377 { \t \0 \0 264 003 202 261 002 \0 M 242 261
0057560 \0 347 J \t \0 \0 _ L 277 O " k 325 j O 034
0057600 k 325 021 023 E O 204 O 210 \n \0 \0 252 O 206 O
0057620 ( \n \0 \0 242 261 \0 202 O 212 O 034 d 021 003 H
0057640 O 214 230 O 216 O " \n \0 \0 262 8 O 216 O 220
0057660 _ P 277 _ N O 0 \n \0 \0 227 O L O P \n
0057700 \0 \0 020 O L _ T 277 O P _ R 277 O L O
0057720 N 266 O T O R 267 277 O N k 324 O P k 324
0057740 260 320 O L _ X 277 O 220 _ V 277 O L O 216
0057760 266 O X O V 267 277 O 216 O 214 001 \n \0 \0 226
0060000 O 214 002 _ 214 277 206 O 220 k 324 _ 220 277 O 216
0060020 k 324 _ 216 277 260 213 O L O 204 266 _ Z 277 O
0060040 026 234 I O Z k O . 016 l 002 O 026 016 215 I
0060060 O Z k O . 016 l 002 O 020 016 h 360 256 O 206
0060100 k 324 _ 206 277 O 204 O 212 032 _ 212 277 O 204 k
0060120 325 _ 204 261 377 4 O 034 j J _ ` _ ^ _ \
0060140 004 l 005 360 251 O \ d o \0 \0 \0 034 227 277 O
0060160 0 \t \0 \0 260 . \t \0 \0 226 O 0 \t \0 \0 260
0060200 # O \ \t \0 \0 264 020 O 0 g \0 \0 O ` \t
0060220 \0 \0 \v \0 \0 213 g \0 \0 O ^ o \0 \0 \0 \f
0060240 \0 \0 _ h 277 _ f O 034 \n \0 \0 262 5 O h
0060260 O 034 j 021 004 L O 222 d O " \n \0 \0 253 277
0060300 O 230 O ( \n \0 \0 262 R O 222 O 226 _ l 277
0060320 _ j O 0 \n \0 \0 262 $ O 224 O l \n \0 \0
0060340 020 O h _ d 277 O f _ b 277 J O f 266 O
0060360 d O b 267 277 O f k 324 260 254 O 224 _ p 277
0060400 O l _ n 277 J O j 266 O p O n 267 277 O
0060420 j k 324 O l k 324 260 266 J O 222 266 _ v 277
0060440 O 026 234 I O v k O . 016 l 002 O 026 016 215
0060460 I O v k O . 016 l 002 O 020 016 h 360 262 034
0060500 O 224 _ t 277 O 226 _ r 277 O v O t O r
0060520 267 277 O 226 k 324 _ 226 277 206 O 230 k 324 _ 230
0060540 277 O 222 k 324 _ 222 261 377 Q g \0 \0 O 2 o
0060560 \0 \0 \0 \f \0 \0 020 \0 ( 2 4 3 0 Q C
0060600 H E C K - T Y P E - F A I L 2
0060620 2 0 2 Q S H R I N K - V E C T
0060640 O R 2 1 7 1 Q % % = 2 1 5
0060660 1 Q % % = 2 1 4 0 Q % % =
0060700 2 1 1 6 Q % % = 2 1 0 4 Q
0060720 C H E C K - T Y P E - F A I L
0060740 2 0 6 7 Q M A K E - A R R A
0060760 Y 2 0 6 4 Q A R R A Y - E L
0061000 E M E N T - T Y P E 2 0 5 0 Q
0061020 C L : A R R A Y P 2 0 4 1 Q
0061040 M A K E - S T R I N G 2 0 3
0061060 3 Q C L : S T R I N G P 2 0
0061100 2 6 Q M A K E - L I S T 1 6
0061120 4 1 Q % % = 1 5 4 4 Q S H
0061140 R I N K - V E C T O R 1 5 3 4
0061160 Q % % = 1 5 1 4 Q % % =
0061200 1 4 6 6 Q % % = 1 4 5 6 Q
0061220 % % = 1 4 3 0 Q C O P Y - S
0061240 E Q 1 4 1 1 Q V E C T O R P
0061260 1 2 1 5 Q % % = 1 2 0 4 Q
0061300 % % = 1 1 5 7 Q % % = 4
0061320 7 6 Q R E V E R S E 4 5 1 Q
0061340 % % = 4 4 0 Q % % = 4 1
0061360 1 Q % % = 3 6 3 Q R E V E
0061400 R S E 3 2 1 Q C H E C K - S
0061420 U B S E Q 2 7 4 Q C L : L E
0061440 N G T H ) \r ( 2 4 1 7 Q S E Q
0061460 U E N C E 2 0 7 3 Q S E Q
0061500 2 0 5 7 Q : E L E M E N T - T
0061520 Y P E 7 2 0 Q : K E Y 6 7
0061540 0 Q : C O U N T 6 4 0 Q :
0061560 E N D 6 1 0 Q : S T A R T
0061600 5 6 0 Q : T E S T - N O T 5
0061620 3 0 Q : T E S T 5 0 3 Q :
0061640 F R O M - E N D 2 6 5 Q I D
0061660 E N T I T Y 7 1 Q E Q L ) \r
0061700 ( 2 4 2 5 Q ( O R L I S T
0061720 V E C T O R ) 2 1 0 1 Q (
0061740 O R L I S T S T R I N G A
0061760 R R A Y ) 2 0 1 6 Q ( N I L
0062000 ) 3 4 2 Q ( N I L ) ) \r e x
0062020 p a n d - I F - M U M B L E - R
0062040 E M O V E D 1 \r ( L ( 1 $
0062060 $ M A C R O - E N V I R O N M E
0062100 N T 0 $ $ M A C R O - F O R
0062120 M ) ) \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0
0062140 N I L \r N I L \r ( 3 ( M U M
0062160 B L E - R E M O V E ( N O T
0062200 ( F U N C A L L P R E D I C A
0062220 T E ( F U N C A L L K E Y
0062240 T H I S - E L E M E N T ) ) ) )
0062260 ) \r ( S E T F - M A C R O - F U
0062300 N C T I O N ( Q U O T E I F
0062320 - M U M B L E - R E M O V E )
0062340 ( Q U O T E e x p a n d - I F
0062360 - M U M B L E - R E M O V E ) )
0062400 \r e x p a n d - I F - M U M B L
0062420 E - R E M O V E - F R O M - E N
0062440 D D 1 \r ( L ( 1 $ $ M A C
0062460 R O - E N V I R O N M E N T 0
0062500 $ $ M A C R O - F O R M ) )
0062520 \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N I L \r
0062540 N I L \r ( 3 ( M U M B L E -
0062560 R E M O V E - F R O M - E N D
0062600 ( N O T ( F U N C A L L P R
0062620 E D I C A T E ( F U N C A L L
0062640 K E Y T H I S - E L E M E N
0062660 T ) ) ) ) ) \r ( S E T F - M A C
0062700 R O - F U N C T I O N ( Q U O
0062720 T E I F - M U M B L E - R E M
0062740 O V E - F R O M - E N D ) ( Q
0062760 U O T E e x p a n d - I F - M
0063000 U M B L E - R E M O V E - F R O
0063020 M - E N D ) ) \r e x p a n d - I
0063040 F - L I S T - R E M O V E D 1
0063060 \r ( L ( 1 $ $ M A C R O - E
0063100 N V I R O N M E N T 0 $ $ M
0063120 A C R O - F O R M ) ) \0 006 \0 \0
0063140 \0 002 o \0 \0 \0 020 \0 N I L \r N I L \r
0063160 ( 3 ( L I S T - R E M O V E
0063200 ( N O T ( F U N C A L L P
0063220 R E D I C A T E ( F U N C A L
0063240 L K E Y T H I S - E L E M E
0063260 N T ) ) ) ) ) \r ( S E T F - M A
0063300 C R O - F U N C T I O N ( Q U
0063320 O T E I F - L I S T - R E M O
0063340 V E ) ( Q U O T E e x p a n
0063360 d - I F - L I S T - R E M O V E
0063400 ) ) \r e x p a n d - I F - L I S
0063420 T - R E M O V E - F R O M - E N
0063440 D D 1 \r ( L ( 1 $ $ M A C
0063460 R O - E N V I R O N M E N T 0
0063500 $ $ M A C R O - F O R M ) )
0063520 \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N I L \r
0063540 N I L \r ( 3 ( L I S T - R E
0063560 M O V E - F R O M - E N D ( N
0063600 O T ( F U N C A L L P R E D
0063620 I C A T E ( F U N C A L L K
0063640 E Y T H I S - E L E M E N T )
0063660 ) ) ) ) \r ( S E T F - M A C R O
0063700 - F U N C T I O N ( Q U O T E
0063720 I F - L I S T - R E M O V E -
0063740 F R O M - E N D ) ( Q U O T E
0063760 e x p a n d - I F - L I S T -
0064000 R E M O V E - F R O M - E N D )
0064020 ) \r R E M O V E - I F D 1 \r (
0064040 L ( 0 - a r g s - ) ) 004 V
0064060 F \0 002 \0 e 021 001 \0 k a 021 361 020 021 360 037
0064100 021 360 . 021 ` 4 l 002 a 272 H l 003 274 273 L
0064120 d K 363 242 261 \0 356 277 h 275 H l 003 _ 016 277
0064140 276 O 016 d N 363 242 261 \0 360 277 j _ 020 277 H
0064160 l 003 _ 024 277 _ 022 277 O 024 d O 022 363 242 261
0064200 \0 360 277 h _ 026 277 H l 003 _ 032 277 _ 030 277
0064220 O 032 d O 030 363 242 261 \0 360 277 n 377 377 _ 034
0064240 277 H l 003 _ 277 _ 036 277 O d O 036 363
0064260 242 261 \0 356 277 g \0 \0 _ " 277 J \t \0 \0 _
0064300 $ 277 O 026 244 O $ _ 026 277 J O 020 O 026 O
0064320 $ \f \0 \0 J _ & _ ( 004 l 005 360 254 O (
0064340 d o \0 \0 \0 034 242 261 001 301 277 M 264 003 202 261
0064360 001 ) J \t \0 \0 _ * 277 h h 032 _ , 277 j
0064400 O , _ 0 277 _ . O 020 \n \0 \0 242 261 \0 252
0064420 O 0 _ 2 277 O 020 j 021 022 7 O j d O 026
0064440 \n \0 \0 255 277 O l O 034 \n \0 \0 242 261 \0 274
0064460 O j _ 4 277 O * 222 261 \0 230 O 2 002 \t \0
0064500 \0 020 a g \0 \0 360 226 L k 330 a 261 377 \r L
0064520 l 002 324 \ 261 376 374 a g \0 \0 360 227 O 016 k
0064540 330 a 261 377 \n O 016 l 002 324 _ 016 261 376 367 a
0064560 g \0 \0 360 227 O 024 k 330 a 261 377 \n O 024 l
0064600 002 324 _ 024 261 376 366 a g \0 \0 360 227 O 032 k
0064620 330 a 261 377 \f O 032 l 002 324 _ 032 261 376 366 a
0064640 g \0 \0 360 227 O k 330 a 261 377 016 O l
0064660 002 324 _ 261 376 370 O , d O * 001 O * 002
0064700 _ * 277 & 277 002 _ , 277 O . k 324 261 377 8
0064720 O , d O * 001 O * 002 _ * 277 & 277 002 _
0064740 , 277 O 4 k 324 261 377 L O * 001 O * 002 _
0064760 * 277 _ n k O " 016 k I 016 253 O , d O
0065000 n & 277 002 _ , 277 206 O l k 324 _ l 277 O
0065020 j k 324 _ j 261 377 \b h 032 _ 6 277 j O 6
0065040 _ : 277 _ 8 O 020 \n \0 \0 262 , O : _ <
0065060 277 O 020 j 021 022 : O p d O 026 \n \0 \0 253
0065100 277 O r O 034 \n \0 \0 262 6 O p _ > 277 J
0065120 263 032 O < 002 020 O 6 d J 001 J 002 272 & 277
0065140 002 _ 6 277 O 8 k 324 260 273 O 6 d J 001 J
0065160 002 272 & 277 002 _ 6 277 O > k 324 260 320 J 001
0065200 J 002 272 _ t k O " 016 k I 016 253 O 6 d
0065220 O t & 277 002 _ 6 277 206 O r k 324 _ r 277
0065240 O p k 324 _ p 260 223 \t \0 \0 264 003 202 261 001
0065260 316 M 242 261 \0 315 J \t \0 \0 _ @ 277 O 026 k
0065300 325 j O 020 k 325 021 023 > O v O z \n \0 \0
0065320 252 O x O 034 \n \0 \0 242 261 \0 202 O | O 020
0065340 d 021 003 A O ~ 230 O 200 O 026 \n \0 \0 262 8
0065360 O 200 O 202 _ D 277 _ B O $ \n \0 \0 227 O
0065400 @ O D \n \0 \0 020 O @ _ H 277 O D _ F
0065420 277 O @ O B 266 O H O F 267 277 O B k 324
0065440 O D k 324 260 320 O @ _ L 277 O 202 _ J 277
0065460 O @ O 200 266 O L O J 267 277 O 200 O ~ 001
0065500 \n \0 \0 226 O ~ 002 _ ~ 277 206 O 202 k 324 _
0065520 202 277 O 200 k 324 _ 200 277 260 213 O @ O v 266
0065540 k O " 016 k I 016 236 O x k 324 _ x 277 O
0065560 v O | 032 _ | 277 O v k 325 _ v 261 377 N
0065600 O 020 j J _ R _ P _ N 004 l 005 360 251 O
0065620 N d o \0 \0 \0 034 227 277 O $ \t \0 \0 260 .
0065640 \t \0 \0 226 O $ \t \0 \0 260 # O N \t \0 \0
0065660 264 020 O $ g \0 \0 O R \t \0 \0 \v \0 \0 213
0065700 g \0 \0 O P o \0 \0 \0 \f \0 \0 _ Z 277 _
0065720 X O 020 \n \0 \0 262 5 O Z O 020 j 021 004 E
0065740 O 204 d O 026 \n \0 \0 253 277 O 212 O 034 \n \0
0065760 \0 262 R O 204 O 210 _ ^ 277 _ \ O $ \n \0
0066000 \0 262 $ O 206 O ^ \n \0 \0 020 O Z _ V 277
0066020 O X _ T 277 J O X 266 O V O T 267 277 O
0066040 X k 324 260 254 O 206 _ b 277 O ^ _ ` 277 J
0066060 O \ 266 O b O ` 267 277 O \ k 324 O ^ k
0066100 324 260 266 J O 204 266 _ h k O " 016 k I 016
0066120 263 034 O 206 _ f 277 O 210 _ d 277 O h O f
0066140 O d 267 277 O 210 k 324 _ 210 277 206 O 212 k 324
0066160 _ 212 277 O 204 k 324 _ 204 261 377 i g \0 \0 O
0066200 & o \0 \0 \0 \f \0 \0 020 \0 ( 2 1 2 3 Q
0066220 C H E C K - T Y P E - F A I L
0066240 1 7 2 5 Q S H R I N K - V E
0066260 C T O R 1 7 1 4 Q % % = 1
0066300 6 7 4 Q % % = 1 6 6 3 Q %
0066320 % = 1 6 4 1 Q % % = 1 6 2
0066340 7 Q C H E C K - T Y P E - F A
0066360 I L 1 6 1 2 Q M A K E - A R
0066400 R A Y 1 6 0 7 Q A R R A Y -
0066420 E L E M E N T - T Y P E 1 5 7
0066440 3 Q C L : A R R A Y P 1 5 6
0066460 4 Q M A K E - S T R I N G 1
0066500 5 5 6 Q C L : S T R I N G P
0066520 1 5 5 1 Q M A K E - L I S T
0066540 1 4 1 6 Q % % = 1 3 2 1 Q
0066560 S H R I N K - V E C T O R 1 3
0066600 1 1 Q % % = 1 2 7 1 Q % %
0066620 = 1 2 4 3 Q % % = 1 2 3 3
0066640 Q % % = 1 2 0 5 Q C O P Y
0066660 - S E Q 1 1 6 6 Q V E C T O
0066700 R P 1 0 2 3 Q % % = 1 0 1
0066720 2 Q % % = 7 6 5 Q % % =
0066740 4 1 4 Q R E V E R S E 3 6 7
0066760 Q % % = 3 5 6 Q % % = 3
0067000 2 7 Q % % = 3 0 1 Q R E V
0067020 E R S E 2 3 7 Q C H E C K -
0067040 S U B S E Q 2 1 2 Q C L : L
0067060 E N G T H ) \r ( 2 1 1 2 Q S E
0067100 Q U E N C E 1 6 1 6 Q S E Q
0067120 1 6 0 2 Q : E L E M E N T -
0067140 T Y P E 5 5 6 Q : K E Y 5
0067160 2 6 Q : C O U N T 4 7 6 Q
0067200 : E N D 4 4 6 Q : S T A R T
0067220 4 2 1 Q : F R O M - E N D
0067240 2 0 3 Q I D E N T I T Y ) \r (
0067260 2 1 2 0 Q ( O R L I S T
0067300 V E C T O R ) 1 6 2 4 Q ( O
0067320 R L I S T S T R I N G A R
0067340 R A Y ) 1 5 4 1 Q ( N I L )
0067360 2 6 0 Q ( N I L ) ) \r e x p
0067400 a n d - I F - N O T - M U M B L
0067420 E - R E M O V E D 1 \r ( L (
0067440 1 $ $ M A C R O - E N V I R O
0067460 N M E N T 0 $ $ M A C R O -
0067500 F O R M ) ) \0 006 \0 \0 \0 002 o \0 \0
0067520 \0 020 \0 N I L \r N I L \r ( 3 (
0067540 M U M B L E - R E M O V E ( F
0067560 U N C A L L P R E D I C A T E
0067600 ( F U N C A L L K E Y T H
0067620 I S - E L E M E N T ) ) ) ) \r (
0067640 S E T F - M A C R O - F U N C T
0067660 I O N ( Q U O T E I F - N O
0067700 T - M U M B L E - R E M O V E )
0067720 ( Q U O T E e x p a n d - I
0067740 F - N O T - M U M B L E - R E M
0067760 O V E ) ) \r e x p a n d - I F -
0070000 N O T - M U M B L E - R E M O V
0070020 E - F R O M - E N D D 1 \r ( L
0070040 ( 1 $ $ M A C R O - E N V I
0070060 R O N M E N T 0 $ $ M A C R
0070100 O - F O R M ) ) \0 006 \0 \0 \0 002 o
0070120 \0 \0 \0 020 \0 N I L \r N I L \r ( 3
0070140 ( M U M B L E - R E M O V E -
0070160 F R O M - E N D ( F U N C A L
0070200 L P R E D I C A T E ( F U N
0070220 C A L L K E Y T H I S - E L
0070240 E M E N T ) ) ) ) \r ( S E T F -
0070260 M A C R O - F U N C T I O N (
0070300 Q U O T E I F - N O T - M U M
0070320 B L E - R E M O V E - F R O M -
0070340 E N D ) ( Q U O T E e x p a
0070360 n d - I F - N O T - M U M B L E
0070400 - R E M O V E - F R O M - E N D
0070420 \r ) ) \r e x p a n d - I F - N O
0070440 T - L I S T - R E M O V E D 1
0070460 \r ( L ( 1 $ $ M A C R O - E
0070500 N V I R O N M E N T 0 $ $ M
0070520 A C R O - F O R M ) ) \0 006 \0 \0
0070540 \0 002 o \0 \0 \0 020 \0 N I L \r N I L \r
0070560 ( 3 ( L I S T - R E M O V E
0070600 ( F U N C A L L P R E D I C
0070620 A T E ( F U N C A L L K E Y
0070640 T H I S - E L E M E N T ) ) )
0070660 ) \r ( S E T F - M A C R O - F U
0070700 N C T I O N ( Q U O T E I F
0070720 - N O T - L I S T - R E M O V E
0070740 ) ( Q U O T E e x p a n d -
0070760 I F - N O T - L I S T - R E M O
0071000 V E ) ) \r e x p a n d - I F - N
0071020 O T - L I S T - R E M O V E - F
0071040 R O M - E N D D 1 \r ( L ( 1
0071060 $ $ M A C R O - E N V I R O N
0071100 M E N T 0 $ $ M A C R O - F
0071120 O R M ) ) \0 006 \0 \0 \0 002 o \0 \0 \0
0071140 020 \0 N I L \r N I L \r ( 3 ( L
0071160 I S T - R E M O V E - F R O M -
0071200 E N D ( F U N C A L L P R E
0071220 D I C A T E ( F U N C A L L
0071240 K E Y T H I S - E L E M E N T
0071260 ) ) ) ) \r ( S E T F - M A C R O
0071300 - F U N C T I O N ( Q U O T E
0071320 I F - N O T - L I S T - R E M
0071340 O V E - F R O M - E N D ) ( Q
0071360 U O T E e x p a n d - I F - N
0071400 O T - L I S T - R E M O V E - F
0071420 R O M - E N D ) ) \r R E M O V E
0071440 - I F - N O T D 1 \r ( L ( 0
0071460 - a r g s - ) ) 004 V F \0 002 \0
0071500 e 021 001 \0 k a 021 361 020 021 360 037 021 360 . 021
0071520 ` 4 l 002 a 272 H l 003 274 273 L d K 363 242
0071540 261 \0 356 277 h 275 H l 003 _ 016 277 276 O 016 d
0071560 N 363 242 261 \0 360 277 j _ 020 277 H l 003 _ 024
0071600 277 _ 022 277 O 024 d O 022 363 242 261 \0 360 277 h
0071620 _ 026 277 H l 003 _ 032 277 _ 030 277 O 032 d O
0071640 030 363 242 261 \0 360 277 n 377 377 _ 034 277 H l 003
0071660 _ 277 _ 036 277 O d O 036 363 242 261 \0 356
0071700 277 g \0 \0 _ " 277 J \t \0 \0 _ $ 277 O 026
0071720 244 O $ _ 026 277 J O 020 O 026 O $ \f \0 \0
0071740 J _ & _ ( 004 l 005 360 254 O ( d o \0 \0
0071760 \0 034 242 261 001 301 277 M 264 003 202 261 001 ) J \t
0072000 \0 \0 _ * 277 h h 032 _ , 277 j O , _ 0
0072020 277 _ . O 020 \n \0 \0 242 261 \0 252 O 0 _ 2
0072040 277 O 020 j 021 022 7 O j d O 026 \n \0 \0 255
0072060 277 O l O 034 \n \0 \0 242 261 \0 274 O j _ 4
0072100 277 O * 222 261 \0 230 O 2 002 \t \0 \0 020 a g
0072120 \0 \0 360 226 L k 330 a 261 377 \r L l 002 324 \
0072140 261 376 374 a g \0 \0 360 227 O 016 k 330 a 261 377
0072160 \n O 016 l 002 324 _ 016 261 376 367 a g \0 \0 360
0072200 227 O 024 k 330 a 261 377 \n O 024 l 002 324 _ 024
0072220 261 376 366 a g \0 \0 360 227 O 032 k 330 a 261 377
0072240 \f O 032 l 002 324 _ 032 261 376 366 a g \0 \0 360
0072260 227 O k 330 a 261 377 016 O l 002 324 _
0072300 261 376 370 O , d O * 001 O * 002 _ * 277 &
0072320 277 002 _ , 277 O . k 324 261 377 8 O , d O
0072340 * 001 O * 002 _ * 277 & 277 002 _ , 277 O 4
0072360 k 324 261 377 L O * 001 O * 002 _ * 277 _ n
0072400 k O " 016 k I 016 233 O , d O n & 277 002
0072420 _ , 277 206 O l k 324 _ l 277 O j k 324 _
0072440 j 261 377 \b h 032 _ 6 277 j O 6 _ : 277 _
0072460 8 O 020 \n \0 \0 262 , O : _ < 277 O 020 j
0072500 021 022 : O p d O 026 \n \0 \0 253 277 O r O
0072520 034 \n \0 \0 262 6 O p _ > 277 J 263 032 O <
0072540 002 020 O 6 d J 001 J 002 272 & 277 002 _ 6 277
0072560 O 8 k 324 260 273 O 6 d J 001 J 002 272 & 277
0072600 002 _ 6 277 O > k 324 260 320 J 001 J 002 272 _
0072620 t k O " 016 k I 016 233 O 6 d O t & 277
0072640 002 _ 6 277 206 O r k 324 _ r 277 O p k 324
0072660 _ p 260 223 \t \0 \0 264 003 202 261 001 316 M 242 261
0072700 \0 315 J \t \0 \0 _ @ 277 O 026 k 325 j O 020
0072720 k 325 021 023 > O v O z \n \0 \0 252 O x O
0072740 034 \n \0 \0 242 261 \0 202 O | O 020 d 021 003 A
0072760 O ~ 230 O 200 O 026 \n \0 \0 262 8 O 200 O 202
0073000 _ D 277 _ B O $ \n \0 \0 227 O @ O D \n
0073020 \0 \0 020 O @ _ H 277 O D _ F 277 O @ O
0073040 B 266 O H O F 267 277 O B k 324 O D k 324
0073060 260 320 O @ _ L 277 O 202 _ J 277 O @ O 200
0073100 266 O L O J 267 277 O 200 O ~ 001 \n \0 \0 226
0073120 O ~ 002 _ ~ 277 206 O 202 k 324 _ 202 277 O 200
0073140 k 324 _ 200 277 260 213 O @ O v 266 k O " 016
0073160 k I 016 256 O x k 324 _ x 277 O v O | 032
0073200 _ | 277 O v k 325 _ v 261 377 N O 020 j J
0073220 _ R _ P _ N 004 l 005 360 251 O N d o \0
0073240 \0 \0 034 227 277 O $ \t \0 \0 260 . \t \0 \0 226
0073260 O $ \t \0 \0 260 # O N \t \0 \0 264 020 O $
0073300 g \0 \0 O R \t \0 \0 \v \0 \0 213 g \0 \0 O
0073320 P o \0 \0 \0 \f \0 \0 _ Z 277 _ X O 020 \n
0073340 \0 \0 262 5 O Z O 020 j 021 004 E O 204 d O
0073360 026 \n \0 \0 253 277 O 212 O 034 \n \0 \0 262 R O
0073400 204 O 210 _ ^ 277 _ \ O $ \n \0 \0 262 $ O
0073420 206 O ^ \n \0 \0 020 O Z _ V 277 O X _ T
0073440 277 J O X 266 O V O T 267 277 O X k 324 260
0073460 254 O 206 _ b 277 O ^ _ ` 277 J O \ 266 O
0073500 b O ` 267 277 O \ k 324 O ^ k 324 260 266 J
0073520 O 204 266 _ h k O " 016 k I 016 262 034 O 206
0073540 _ f 277 O 210 _ d 277 O h O f O d 267 277
0073560 O 210 k 324 _ 210 277 206 O 212 k 324 _ 212 277 O
0073600 204 k 324 _ 204 261 377 i g \0 \0 O & o \0 \0
0073620 \0 \f \0 \0 020 \0 ( 2 1 2 3 Q C H E
0073640 C K - T Y P E - F A I L 1 7 2
0073660 5 Q S H R I N K - V E C T O R
0073700 1 7 1 4 Q % % = 1 6 7 4 Q
0073720 % % = 1 6 6 3 Q % % = 1
0073740 6 4 1 Q % % = 1 6 2 7 Q C
0073760 H E C K - T Y P E - F A I L 1
0074000 6 1 2 Q M A K E - A R R A Y
0074020 1 6 0 7 Q A R R A Y - E L E M
0074040 E N T - T Y P E 1 5 7 3 Q C
0074060 L : A R R A Y P 1 5 6 4 Q M
0074100 A K E - S T R I N G 1 5 5 6 Q
0074120 C L : S T R I N G P 1 5 5 1
0074140 Q M A K E - L I S T 1 4 1 6
0074160 Q % % = 1 3 2 1 Q S H R I
0074200 N K - V E C T O R 1 3 1 1 Q
0074220 % % = 1 2 7 1 Q % % = 1 2
0074240 4 3 Q % % = 1 2 3 3 Q % %
0074260 = 1 2 0 5 Q C O P Y - S E Q
0074300 1 1 6 6 Q V E C T O R P 1
0074320 0 2 3 Q % % = 1 0 1 2 Q %
0074340 % = 7 6 5 Q % % = 4 1 4 Q
0074360 R E V E R S E 3 6 7 Q % %
0074400 = 3 5 6 Q % % = 3 2 7 Q
0074420 % % = 3 0 1 Q R E V E R S E
0074440 2 3 7 Q C H E C K - S U B S
0074460 E Q 2 1 2 Q C L : L E N G T
0074500 H ) \r ( 2 1 1 2 Q S E Q U E N
0074520 C E 1 6 1 6 Q S E Q 1 6 0
0074540 2 Q : E L E M E N T - T Y P E
0074560 5 5 6 Q : K E Y 5 2 6 Q
0074600 : C O U N T 4 7 6 Q : E N D
0074620 4 4 6 Q : S T A R T 4 2 1
0074640 Q : F R O M - E N D 2 0 3 Q
0074660 I D E N T I T Y ) \r ( 2 1 2
0074700 0 Q ( O R L I S T V E C T
0074720 O R ) 1 6 2 4 Q ( O R L I
0074740 S T S T R I N G A R R A Y )
0074760 1 5 4 1 Q ( N I L ) 2 6 0
0075000 Q ( N I L ) ) \r L I S T - R E
0075020 M O V E - D U P L I C A T E S *
0075040 D 1 \r ( L ( 6 F R O M - E
0075060 N D 5 K E Y 4 E N D 3
0075100 S T A R T 2 T E S T - N O
0075120 T 1 T E S T 0 L I S T )
0075140 ) \0 257 \b \0 \0 \a h h 032 021 A 004 H 271
0075160 @ 272 j [ C \n \0 \0 257 I d J 001 & 277 002
0075200 271 J 002 272 K k 324 260 354 I 002 C 274 277 D 224
0075220 D L 363 262 } J \t \0 \0 263 w F 262 037 J 001
0075240 k E 016 C H 002 \n \0 \0 g \0 \0 A g \0 \0
0075260 B g \0 \0 E \r \b \0 \0 260 9 J 001 k E 016
0075300 J 002 L k 324 021 003 \a N \t \0 \0 244 D O 016
0075320 363 242 h 260 036 B 234 M N 001 k E 016 l 002 B
0075340 016 h 360 211 M N 001 k E 016 l 002 A 016 262 026
0075360 i 022 247 I d J 001 & 277 002 271 J 002 272 L k
0075400 324 \ 260 213 N 002 O 016 k 324 _ 016 277 ^ 260 273
0075420 I J 031 H 002 020 \0 ( 1 4 3 Q E N D
0075440 P 1 2 0 Q C L : M E M B E R
0075460 1 0 0 Q N T H C D R 6 0 Q
0075500 E N D P 1 7 Q % % = ) \r (
0075520 1 1 3 Q : K E Y 1 0 7 Q :
0075540 T E S T - N O T 1 0 3 Q : T
0075560 E S T ) \r ( ) \r V E C T O R - R
0075600 E M O V E - D U P L I C A T E S
0075620 * D 1 \r ( L ( 0 - a r g s
0075640 - ) ) 001 F 026 \0 002 \0 e 021 001 \0 k a
0075660 021 361 020 021 022 l 002 a 272 l 003 a 273 l 004
0075700 a 274 l 005 a 275 l 006 a 276 l \a a _ 016 277
0075720 l \b H 361 224 I \t \0 \0 202 l \b a _ 020 277
0075740 I _ 026 _ 024 _ 022 004 l 005 360 251 O 022 d o
0075760 \0 \0 \0 034 227 277 O 020 \t \0 \0 260 . \t \0 \0
0076000 226 O 020 \t \0 \0 260 # O 022 \t \0 \0 264 020 O
0076020 020 g \0 \0 O 026 \t \0 \0 \v \0 \0 213 g \0 \0
0076040 O 024 o \0 \0 \0 \f \0 \0 j L 021 003 025 O (
0076060 L \n \0 \0 263 ~ O & _ 032 277 O ( _ 030 277
0076100 I O ( 266 O 032 O 030 267 277 O ( k 324 _ (
0076120 260 340 I O ( 266 _ 277 O 016 262 024 O k
0076140 N 016 O & g \0 \0 L g \0 \0 O * 260 023 O
0076160 k N 016 I g \0 \0 O ( k 324 g \0 \0 M
0076200 g \0 \0 J g \0 \0 K g \0 \0 N \r \f \0 \0
0076220 263 033 O & _ 036 277 O * _ 034 277 O O 036
0076240 O 034 267 277 O * k 324 _ * 277 O ( k 324 _
0076260 ( 277 O ( M \n \0 \0 262 232 O ( O 020 \n \0
0076300 \0 263 & O & _ $ 277 O * _ " 277 I O (
0076320 266 O $ O " 267 277 O ( k 324 _ ( 277 O *
0076340 k 324 _ * 277 260 325 O & O * \n \0 \0 020 \0
0076360 ( 5 0 3 Q S H R I N K - V E C
0076400 T O R 4 2 6 Q % % = 4 1 5
0076420 Q % % = 3 4 5 Q C L : P O
0076440 S I T I O N 2 1 1 Q % % =
0076460 1 7 6 Q C H E C K - T Y P E -
0076500 F A I L 1 6 1 Q M A K E - A
0076520 R R A Y 1 5 6 Q A R R A Y -
0076540 E L E M E N T - T Y P E 1 4 2
0076560 Q C L : A R R A Y P 1 3 3 Q
0076600 M A K E - S T R I N G 1 2 5
0076620 Q C L : S T R I N G P 1 2 0
0076640 Q M A K E - L I S T 5 6 Q
0076660 C L : L E N G T H ) \r ( 3 4 0 Q
0076700 : K E Y 3 3 4 Q : T E S T
0076720 - N O T 3 3 0 Q : T E S T
0076740 3 2 4 Q : E N D 3 1 5 Q :
0076760 S T A R T 3 0 0 Q : E N D
0077000 2 7 4 Q : S T A R T 1 6 5 Q
0077020 S E Q 1 5 1 Q : E L E M E
0077040 N T - T Y P E ) \r ( 1 7 3 Q
0077060 ( O R L I S T S T R I N G
0077100 A R R A Y ) 1 1 0 Q ( N I L
0077120 ) ) \r R E M O V E - D U P L I C
0077140 A T E S D 1 \r ( L ( 0 - a
0077160 r g s - ) ) 001 201 026 \0 002 \0 e 021 001
0077200 \0 k a 021 361 020 021 P 025 H l 002 273 272 K d
0077220 J 363 242 261 \0 275 277 g \0 \0 274 H l 002 276 275
0077240 N d M 363 242 261 \0 300 277 h _ 016 277 H l 002
0077260 _ 022 277 _ 020 277 O 022 d O 020 363 242 261 \0 275
0077300 277 j _ 024 277 H l 002 _ 030 277 _ 026 277 O 030
0077320 d O 026 363 242 261 \0 275 277 h _ 032 277 H l 002
0077340 _ 036 277 _ 034 277 O 036 d O 034 363 242 261 \0 275
0077360 277 h _ 277 H l 002 _ $ 277 _ " 277 O $
0077400 d O " 363 242 261 \0 275 277 g \0 \0 _ & 277 I
0077420 \t \0 \0 _ ( 277 O 244 O ( _ 277 I O
0077440 024 O O ( \f \0 \0 I _ * d 004 l 005 360
0077460 251 d o \0 \0 \0 034 242 261 \0 242 d 242 261 \0 277
0077500 L O 016 O 024 O O & O 032 \r \a \0 \0 020
0077520 a g \0 \0 360 226 K k 330 a 261 377 @ K l 002
0077540 324 [ 261 377 - a g \0 \0 360 226 N k 330 a 261
0077560 377 ; N l 002 324 ^ 261 377 * a g \0 \0 360 227
0077600 O 022 k 330 a 261 377 = O 022 l 002 324 _ 022 261
0077620 377 ) a g \0 \0 360 227 O 030 k 330 a 261 377 =
0077640 O 030 l 002 324 _ 030 261 377 ) a g \0 \0 360 227
0077660 O 036 k 330 a 261 377 = O 036 l 002 324 _ 036 261
0077700 377 ) a g \0 \0 360 227 O $ k 330 a 261 377 ?
0077720 O $ l 002 324 _ $ 261 377 ) \t \0 \0 264 023 I
0077740 L O 016 O 024 O O & O 032 \r \a \0 \0 020
0077760 g \0 \0 O * o \0 \0 \0 \f \0 \0 020 \0 ( 5
0100000 7 6 Q C H E C K - T Y P E - F
0100020 A I L 5 6 1 Q V E C T O R -
0100040 R E M O V E - D U P L I C A T E
0100060 S * 5 3 7 Q V E C T O R P
0100100 3 2 1 Q L I S T - R E M O V E
0100120 - D U P L I C A T E S * 2 5 2
0100140 Q C H E C K - S U B S E Q 2
0100160 2 5 Q C L : L E N G T H ) \r (
0100200 5 6 5 Q S E Q U E N C E 5 1
0100220 0 Q : K E Y 4 6 0 Q : E N
0100240 D 4 3 0 Q : F R O M - E N D
0100260 4 0 0 Q : S T A R T 3 5 3
0100300 Q : T E S T - N O T 3 2 6 Q
0100320 : T E S T 2 1 6 Q I D E N
0100340 T I T Y 3 4 Q E Q L ) \r (
0100360 5 7 3 Q ( O R L I S T V E
0100400 C T O R ) 2 7 0 Q ( N I L )
0100420 ) \r L I S T - D E L E T E - D U
0100440 P L I C A T E S * D 1 \r ( L
0100460 ( 6 E N D 5 S T A R T 4
0100500 F R O M - E N D 3 K E Y
0100520 2 T E S T - N O T 1 T E S
0100540 T 0 L I S T ) ) \0 ~ 006 \0 \0
0100560 \a h @ 032 021 ! 002 E @ \n \0 \0 E H \n \0
0100600 \0 E 021 003 005 M F \n \0 \0 241 K 242 H 002 020
0100620 D 227 E k 324 H \n \0 \0 201 K 002 M k 324 272
0100640 Y 262 @ D 245 J F \n \0 \0 243 I K 360 222 h
0100660 260 & B 262 023 K 001 k C 016 I 001 k C 016 l
0100700 002 B 016 h 360 215 K 001 k C 016 I 001 k C 016
0100720 l 002 A 016 226 i 231 L K 002 031 207 I 002 J 260
0100740 276 L 002 \ 277 K 002 M k 324 275 273 260 231 \0 (
0100760 7 0 Q % % = 4 7 Q N T H C
0101000 D R 3 0 Q % % = 1 7 Q N
0101020 T H C D R 1 2 Q N T H C D R
0101040 ) \r N I L \r ( ) \r V E C T O R -
0101060 D E L E T E - D U P L I C A T E
0101100 S * D 1 \r ( L ( 0 - a r g
0101120 s - ) ) \0 303 021 \0 002 \0 e 021 001 \0 k
0101140 a 021 361 020 l 002 a 272 l 003 a 273 l 004 a 274
0101160 l 005 a 275 l 006 a 276 l \a a _ 016 277 l \b
0101200 H 361 224 I \t \0 \0 202 l \b a _ 020 277 N _
0101220 024 _ 022 O 016 \n \0 \0 262 6 O 022 O 024 _ 030
0101240 277 _ 026 O 020 \n \0 \0 227 I O 030 \n \0 \0 I
0101260 020 I _ 034 277 O 030 _ 032 277 I O 026 266 O 034
0101300 O 032 267 277 O 026 k 324 O 030 k 324 260 322 I _
0101320 277 O 024 _ 036 277 I O 022 266 O O 036 267
0101340 277 I O 022 266 k L 016 I g \0 \0 L g \0 \0
0101360 J g \0 \0 K g \0 \0 M 221 N 203 O 022 k 324
0101400 g \0 \0 M 222 O 024 201 O 016 \r \f \0 \0 246 O
0101420 024 k 324 _ 024 277 O 022 k 324 261 377 w \0 ( 2
0101440 6 2 Q C L : P O S I T I O N
0101460 1 2 3 Q S H R I N K - V E C T
0101500 O R 1 1 4 Q % % = 7 4 Q
0101520 % % = 5 3 Q C L : L E N G T
0101540 H ) \r ( 2 4 7 Q : E N D 2 3
0101560 4 Q : S T A R T 2 3 0 Q :
0101600 T E S T - N O T 2 2 4 Q : T
0101620 E S T 2 2 0 Q : K E Y ) \r (
0101640 ) \r D E L E T E - D U P L I C A
0101660 T E S D 1 \r ( L ( 0 - a r
0101700 g s - ) ) 001 201 026 \0 002 \0 e 021 001 \0
0101720 k a 021 361 020 021 P 025 H l 002 273 272 K d J
0101740 363 242 261 \0 275 277 g \0 \0 274 H l 002 276 275 N
0101760 d M 363 242 261 \0 300 277 h _ 016 277 H l 002 _
0102000 022 277 _ 020 277 O 022 d O 020 363 242 261 \0 275 277
0102020 j _ 024 277 H l 002 _ 030 277 _ 026 277 O 030 d
0102040 O 026 363 242 261 \0 275 277 h _ 032 277 H l 002 _
0102060 036 277 _ 034 277 O 036 d O 034 363 242 261 \0 275 277
0102100 h _ 277 H l 002 _ $ 277 _ " 277 O $ d
0102120 O " 363 242 261 \0 275 277 g \0 \0 _ & 277 I \t
0102140 \0 \0 _ ( 277 O 244 O ( _ 277 I O 024
0102160 O O ( \f \0 \0 I _ * d 004 l 005 360 251
0102200 d o \0 \0 \0 034 242 261 \0 242 d 242 261 \0 277 L
0102220 O 016 O & O 032 O 024 O \r \a \0 \0 020 a
0102240 g \0 \0 360 226 K k 330 a 261 377 @ K l 002 324
0102260 [ 261 377 - a g \0 \0 360 226 N k 330 a 261 377
0102300 ; N l 002 324 ^ 261 377 * a g \0 \0 360 227 O
0102320 022 k 330 a 261 377 = O 022 l 002 324 _ 022 261 377
0102340 ) a g \0 \0 360 227 O 030 k 330 a 261 377 = O
0102360 030 l 002 324 _ 030 261 377 ) a g \0 \0 360 227 O
0102400 036 k 330 a 261 377 = O 036 l 002 324 _ 036 261 377
0102420 ) a g \0 \0 360 227 O $ k 330 a 261 377 ? O
0102440 $ l 002 324 _ $ 261 377 ) \t \0 \0 264 023 I L
0102460 O 016 O & O 032 O 024 O \r \a \0 \0 020 g
0102500 \0 \0 O * o \0 \0 \0 \f \0 \0 020 \0 ( 5 7
0102520 6 Q C H E C K - T Y P E - F A
0102540 I L 5 6 1 Q V E C T O R - D
0102560 E L E T E - D U P L I C A T E S
0102600 * 5 3 7 Q V E C T O R P 3
0102620 2 1 Q L I S T - D E L E T E -
0102640 D U P L I C A T E S * 2 5 2 Q
0102660 C H E C K - S U B S E Q 2 2
0102700 5 Q C L : L E N G T H ) \r ( 5
0102720 6 5 Q S E Q U E N C E 5 1 0
0102740 Q : K E Y 4 6 0 Q : E N D
0102760 4 3 0 Q : F R O M - E N D
0103000 4 0 0 Q : S T A R T 3 5 3 Q
0103020 : T E S T - N O T 3 2 6 Q
0103040 : T E S T 2 1 6 Q I D E N T
0103060 I T Y 3 4 Q E Q L ) \r ( 5
0103100 7 3 Q ( O R L I S T V E C
0103120 T O R ) 2 7 0 Q ( N I L ) )
0103140 \r e x p a n d - S U B S T - D I
0103160 S P A T C H D 1 \r ( L ( 1
0103200 $ $ M A C R O - E N V I R O N M
0103220 E N T 0 $ $ M A C R O - F O
0103240 R M ) ) \0 W 001 \0 \0 002 @ 002 001 021 001
0103260 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0103300 g \0 \0 H o \0 \0 \0 032 032 h 032 032 g \0 \0
0103320 H o \0 \0 \0 032 032 h 032 032 032 032 g \0 \0 g
0103340 \0 \0 g \0 \0 H o \0 \0 \0 032 032 g \0 \0 H
0103360 o \0 \0 \0 032 032 h 032 032 032 032 h 032 032 032 032
0103400 020 \0 N I L \r ( 1 0 3 Q V E C T
0103420 O R - S U B S T I T U T E * 7
0103440 1 Q V E C T O R - S U B S T I
0103460 T U T E * 6 6 Q F R O M - E
0103500 N D 6 3 Q C L : I F 4 4 Q
0103520 L I S T - S U B S T I T U T E
0103540 * 2 7 Q L I S T - S U B S T
0103560 I T U T E * 2 4 Q R E V E R
0103600 S E 2 1 Q F R O M - E N D
0103620 1 6 Q C L : I F 1 3 Q S E
0103640 Q U E N C E 1 0 Q S E Q - D
0103660 I S P A T C H ) \r ( 1 1 0 Q
0103700 ( N E W S E Q U E N C E 1
0103720 0 L E N G T H L E N G T H
0103740 S T A R T E N D C O U N T
0103760 K E Y T E S T T E S T - N O
0104000 T O L D ) 7 6 Q ( N E W
0104020 S E Q U E N C E - 1 ( 1 -
0104040 L E N G T H ) - 1 L E N G T
0104060 H ( 1 - E N D ) ( 1 - S
0104100 T A R T ) C O U N T K E Y
0104120 T E S T T E S T - N O T O L
0104140 D ) \r 5 1 Q ( N E W S E Q
0104160 U E N C E S T A R T E N D
0104200 C O U N T K E Y T E S T T
0104220 E S T - N O T O L D ) 3 4 Q
0104240 ( N E W ( R E V E R S E S
0104260 E Q U E N C E ) ( - L E N G
0104300 T H E N D ) ( - L E N G T
0104320 H S T A R T ) C O U N T K
0104340 E Y T E S T T E S T - N O T
0104360 O L D ) ) \r ( S E T F - M A C
0104400 R O - F U N C T I O N ( Q U O
0104420 T E S U B S T - D I S P A T C
0104440 H ) ( Q U O T E e x p a n d
0104460 - S U B S T - D I S P A T C H )
0104500 ) \r L I S T - S U B S T I T U T
0104520 E * D 1 \r ( L ( 1 1 Q O L
0104540 D 1 0 Q T E S T - N O T 7
0104560 T E S T 6 K E Y 5 C O
0104600 U N T 4 E N D 3 S T A R
0104620 T 2 L I S T 1 N E W 0
0104640 P R E D ) ) \0 270 \b \0 \0 \n h h
0104660 032 021 q \a H 271 B 272 j [ C \n \0 \0 257 I
0104700 d J 001 & 277 002 271 J 002 272 K k 324 260 354 C
0104720 _ 016 277 D 231 O 016 D \n \0 \0 222 261 \0 203 J
0104740 \t \0 \0 263 | E j \n \0 \0 263 u J 001 J 002
0104760 272 276 I d @ ] \ d g \0 \0 360 262 " 277 G
0105000 020 236 G 022 N k F 016 l 002 G 020 016 h 360 260
0105020 ; G 022 N k F 016 l 002 G 016 016 260 . g \0
0105040 \0 360 231 N k F 016 k G 016 016 260 037 L g \0
0105060 \0 360 264 \r N k F 016 k G 016 016 h 360 212 g
0105100 \0 \0 M o \0 \0 \0 \f \0 \0 227 E k 325 b \n
0105120 277 A 200 N & 277 002 271 O 016 k 324 261 377 t I
0105140 J 031 H 002 020 \0 ( 2 3 3 Q E C A S
0105160 E - F A I L 7 3 Q % % = 6
0105200 4 Q E N D P 5 4 Q % % =
0105220 1 7 Q % % = ) \r ( 2 2 3 Q P
0105240 R E D 2 0 2 Q I F - N O T
0105260 1 6 2 Q I F 1 1 4 Q N O R
0105300 M A L ) \r ( 2 3 0 Q ( N O R
0105320 M A L I F I F - N O T ) ) \r
0105340 V E C T O R - S U B S T I T U T
0105360 E * D 1 \r ( L ( 1 5 Q O L
0105400 D 1 4 Q T E S T - N O T 1
0105420 3 Q T E S T 1 2 Q K E Y
0105440 1 1 Q C O U N T 1 0 Q E N
0105460 D 7 S T A R T 6 L E N G
0105500 T H 5 R I G H T 4 L E F
0105520 T 3 I N C R E M E N T E R
0105540 2 S E Q U E N C E 1 N E W
0105560 0 P R E D ) ) 001 \0 \n \0 \0 016
0105600 B 021 ! 002 H Z Y 004 l 005 360 250 I d o \0
0105620 \0 \0 034 226 277 F \t \0 \0 260 ) \t \0 \0 225 F
0105640 \t \0 \0 260 037 I \t \0 \0 264 016 F g \0 \0 H
0105660 \t \0 \0 \v \0 \0 212 g \0 \0 J o \0 \0 \0 \f
0105700 \0 \0 022 D 021 202 \t I G 016 \n \0 \0 263 023 H
0105720 273 I 272 B I 266 K J 267 277 I C 324 Y 260 352
0105740 I G 020 \n \0 \0 263 y G 022 j \n \0 \0 263 q
0105760 B I 266 _ 016 277 H 276 I 275 @ \ d g \0 \0
0106000 360 262 $ 277 G 030 236 G 032 O 016 k G 024 016 l
0106020 002 G 030 016 260 3 G 032 O 016 k G 024 016 l 002
0106040 G 026 016 260 & g \0 \0 360 233 O 016 k G 024 016
0106060 k G 026 016 260 025 L g \0 \0 360 262 030 O 016 k
0106100 G 024 016 k G 026 016 h 360 230 G 022 k 325 b 022
0106120 277 A 201 O 016 N M 267 277 I C 324 Y 260 204 I
0106140 E \n \0 \0 263 031 H _ 022 277 I _ 020 277 B I
0106160 266 O 022 O 020 267 277 I C 324 Y 260 345 H 020 \0
0106200 ( 3 4 3 Q % % = 1 5 5 Q %
0106220 % = 1 4 5 Q % % = 1 1 4 Q
0106240 % % = 1 0 1 Q C H E C K -
0106260 T Y P E - F A I L 6 5 Q M A
0106300 K E - A R R A Y 6 2 Q A R R
0106320 A Y - E L E M E N T - T Y P E
0106340 5 0 Q C L : A R R A Y P 4 2
0106360 Q M A K E - S T R I N G 3 5
0106400 Q C L : S T R I N G P 3 0 Q
0106420 M A K E - L I S T ) \r ( 2 7 1
0106440 Q I F - N O T 2 4 7 Q I F
0106460 1 7 7 Q N O R M A L 7 1 Q
0106500 S E Q 5 6 Q : E L E M E N
0106520 T - T Y P E ) \r ( 7 6 Q ( O
0106540 R L I S T S T R I N G A R
0106560 R A Y ) 2 1 Q ( N I L ) ) \r
0106600 S U B S T I T U T E D 1 \r ( L
0106620 ( 0 - a r g s - ) ) 002 % 034
0106640 \0 002 \0 e 021 001 \0 k a 021 361 020 021 260 033 l
0106660 002 a 272 l 003 a 273 H l 004 275 274 M d L 363
0106700 242 261 \0 364 277 h 276 H l 004 _ 020 277 _ 016 277
0106720 O 020 d O 016 363 242 261 \0 363 277 g \0 \0 _ 022
0106740 277 H l 004 _ 026 277 _ 024 277 O 026 d O 024 363
0106760 242 261 \0 361 277 h _ 030 277 H l 004 _ 034 277 _
0107000 032 277 O 034 d O 032 363 242 261 \0 361 277 j _ 036
0107020 277 H l 004 _ " 277 _ 277 O " d O 363
0107040 242 261 \0 361 277 n 377 377 _ $ 277 H l 004 _ (
0107060 277 _ & 277 O ( d O & 363 242 261 \0 357 277 h
0107100 _ * 277 H l 004 _ . 277 _ , 277 O . d O
0107120 , 363 242 261 \0 357 277 g \0 \0 _ 0 277 K \t \0
0107140 \0 _ 2 277 O * 244 O 2 _ * 277 K O 036 O
0107160 * O 2 \f \0 \0 K _ 4 _ 6 004 l 005 360 254
0107200 O 6 d o \0 \0 \0 034 242 261 \0 350 277 N 242 261
0107220 \0 313 g \0 \0 I K \t \0 \0 O 2 O * 325 O
0107240 2 O 036 325 O $ O 0 O 022 O 030 J \r \n \0
0107260 \0 \t \0 \0 020 a g \0 \0 360 226 M k 330 a 261
0107300 377 \a M l 002 324 ] 261 376 366 a g \0 \0 360 227
0107320 O 020 k 330 a 261 377 \t O 020 l 002 324 _ 020 261
0107340 376 363 a g \0 \0 360 227 O 026 k 330 a 261 377 \t
0107360 O 026 l 002 324 _ 026 261 376 365 a g \0 \0 360 227
0107400 O 034 k 330 a 261 377 \t O 034 l 002 324 _ 034 261
0107420 376 365 a g \0 \0 360 227 O " k 330 a 261 377 \v
0107440 O " l 002 324 _ " 261 376 365 a g \0 \0 360 227
0107460 O ( k 330 a 261 377 \v O ( l 002 324 _ ( 261
0107500 376 367 a g \0 \0 360 227 O . k 330 a 261 377 \r
0107520 O . l 002 324 _ . 261 376 367 g \0 \0 I K O
0107540 036 O * O $ O 0 O 022 O 030 J \r \n \0 \0
0107560 020 \t \0 \0 264 F N 262 ' g \0 \0 I K m 377
0107600 O 2 k 325 m 377 O 2 O * k 325 O 036 k 325
0107620 O $ O 0 O 022 O 030 J \r 016 \0 \0 020 g \0
0107640 \0 I K k j O 2 d O 036 O * O $ O 0
0107660 O 022 O 030 J \r 016 \0 \0 020 g \0 \0 O 4 o
0107700 \0 \0 \0 \f \0 \0 020 \0 ( 1 0 4 2 Q C
0107720 H E C K - T Y P E - F A I L 1
0107740 0 2 5 Q V E C T O R - S U B S
0107760 T I T U T E * 7 7 1 Q V E C
0110000 T O R - S U B S T I T U T E *
0110020 7 2 0 Q V E C T O R P 7 1 4
0110040 Q L I S T - S U B S T I T U T
0110060 E * 4 2 0 Q R E V E R S E
0110100 4 1 5 Q L I S T - S U B S T I
0110120 T U T E * 3 6 6 Q R E V E R
0110140 S E 3 2 2 Q C H E C K - S U
0110160 B S E Q 2 7 5 Q C L : L E N
0110200 G T H ) \r ( 1 0 3 1 Q S E Q U
0110220 E N C E 7 7 5 Q N O R M A L
0110240 7 3 0 Q N O R M A L 6 7 1
0110260 Q N O R M A L 6 4 2 Q : K
0110300 E Y 6 1 2 Q : E N D 5 6 2
0110320 Q : C O U N T 5 3 2 Q : S
0110340 T A R T 5 0 2 Q : T E S T -
0110360 N O T 4 5 2 Q : T E S T 4
0110400 2 5 Q : F R O M - E N D 3 6
0110420 1 Q N O R M A L 2 6 6 Q I
0110440 D E N T I T Y 7 2 Q E Q L )
0110460 \r ( 1 0 3 7 Q ( O R L I S
0110500 T V E C T O R ) 3 4 3 Q (
0110520 N I L ) ) \r S U B S T I T U T E
0110540 - I F D 1 \r ( L ( 0 - a r
0110560 g s - ) ) 001 273 026 \0 002 \0 e 021 001 \0
0110600 k a 021 361 020 021 P 025 l 002 a 272 l 003 a 273
0110620 H l 004 275 274 M d L 363 242 261 \0 300 277 h 276
0110640 H l 004 _ 020 277 _ 016 277 O 020 d O 016 363 242
0110660 261 \0 277 277 j _ 022 277 H l 004 _ 026 277 _ 024
0110700 277 O 026 d O 024 363 242 261 \0 277 277 h _ 030 277
0110720 H l 004 _ 034 277 _ 032 277 O 034 d O 032 363 242
0110740 261 \0 277 277 n 377 377 _ 036 277 H l 004 _ " 277
0110760 _ 277 O " d O 363 242 261 \0 275 277 g \0
0111000 \0 _ $ 277 K \t \0 \0 _ & 277 O 030 244 O &
0111020 _ 030 277 K O 022 O 030 O & \f \0 \0 K _ (
0111040 _ * 004 l 005 360 254 O * d o \0 \0 \0 034 242
0111060 261 \0 264 277 N 242 261 \0 231 g \0 \0 I K \t \0
0111100 \0 O & O 030 325 O & O 022 325 O 036 O $ J
0111120 h d \r \n \0 \0 \t \0 \0 020 a g \0 \0 360 226
0111140 M k 330 a 261 377 ; M l 002 324 ] 261 377 * a
0111160 g \0 \0 360 227 O 020 k 330 a 261 377 ; O 020 l
0111200 002 324 _ 020 261 377 ' a g \0 \0 360 227 O 026 k
0111220 330 a 261 377 ; O 026 l 002 324 _ 026 261 377 ' a
0111240 g \0 \0 360 227 O 034 k 330 a 261 377 = O 034 l
0111260 002 324 _ 034 261 377 ' a g \0 \0 360 227 O " k
0111300 330 a 261 377 ? O " l 002 324 _ " 261 377 ) g
0111320 \0 \0 I K O 022 O 030 O 036 O $ J h d \r
0111340 \n \0 \0 020 \t \0 \0 264 B N 262 % g \0 \0 I
0111360 K m 377 O & k 325 m 377 O & O 030 k 325 O
0111400 022 k 325 O 036 O $ J h d \r 016 \0 \0 020 g
0111420 \0 \0 I K k j O & d O 022 O 030 O 036 O
0111440 $ J h d \r 016 \0 \0 020 g \0 \0 O ( o \0
0111460 \0 \0 \f \0 \0 020 \0 ( 6 7 0 Q C H E
0111500 C K - T Y P E - F A I L 6 5 3
0111520 Q V E C T O R - S U B S T I T
0111540 U T E * 6 2 1 Q V E C T O R
0111560 - S U B S T I T U T E * 5 5 2
0111600 Q V E C T O R P 5 4 6 Q L
0111620 I S T - S U B S T I T U T E *
0111640 3 3 4 Q R E V E R S E 3 3 1
0111660 Q L I S T - S U B S T I T U T
0111700 E * 3 0 4 Q R E V E R S E
0111720 2 4 0 Q C H E C K - S U B S E
0111740 Q 2 1 3 Q C L : L E N G T H
0111760 ) \r ( 6 5 7 Q S E Q U E N C E
0112000 6 2 5 Q I F 5 6 2 Q I F
0112020 5 2 5 Q I F 4 7 6 Q : K
0112040 E Y 4 4 6 Q : C O U N T 4
0112060 1 6 Q : E N D 3 6 6 Q : S
0112100 T A R T 3 4 1 Q : F R O M -
0112120 E N D 2 7 7 Q I F 2 0 4 Q
0112140 I D E N T I T Y ) \r ( 6 6 5
0112160 Q ( O R L I S T V E C T O
0112200 R ) 2 6 1 Q ( N I L ) ) \r S
0112220 U B S T I T U T E - I F - N O T
0112240 D 1 \r ( L ( 0 - a r g s -
0112260 ) ) 001 273 026 \0 002 \0 e 021 001 \0 k a 021
0112300 361 020 021 P 025 l 002 a 272 l 003 a 273 H l 004
0112320 275 274 M d L 363 242 261 \0 300 277 h 276 H l 004
0112340 _ 020 277 _ 016 277 O 020 d O 016 363 242 261 \0 277
0112360 277 j _ 022 277 H l 004 _ 026 277 _ 024 277 O 026
0112400 d O 024 363 242 261 \0 277 277 h _ 030 277 H l 004
0112420 _ 034 277 _ 032 277 O 034 d O 032 363 242 261 \0 277
0112440 277 n 377 377 _ 036 277 H l 004 _ " 277 _ 277
0112460 O " d O 363 242 261 \0 275 277 g \0 \0 _ $
0112500 277 K \t \0 \0 _ & 277 O 030 244 O & _ 030 277
0112520 K O 022 O 030 O & \f \0 \0 K _ ( _ * 004
0112540 l 005 360 254 O * d o \0 \0 \0 034 242 261 \0 264
0112560 277 N 242 261 \0 231 g \0 \0 I K \t \0 \0 O &
0112600 O 030 325 O & O 022 325 O 036 O $ J h d \r
0112620 \n \0 \0 \t \0 \0 020 a g \0 \0 360 226 M k 330
0112640 a 261 377 ; M l 002 324 ] 261 377 * a g \0 \0
0112660 360 227 O 020 k 330 a 261 377 ; O 020 l 002 324 _
0112700 020 261 377 ' a g \0 \0 360 227 O 026 k 330 a 261
0112720 377 ; O 026 l 002 324 _ 026 261 377 ' a g \0 \0
0112740 360 227 O 034 k 330 a 261 377 = O 034 l 002 324 _
0112760 034 261 377 ' a g \0 \0 360 227 O " k 330 a 261
0113000 377 ? O " l 002 324 _ " 261 377 ) g \0 \0 I
0113020 K O 022 O 030 O 036 O $ J h d \r \n \0 \0
0113040 020 \t \0 \0 264 B N 262 % g \0 \0 I K m 377
0113060 O & k 325 m 377 O & O 030 k 325 O 022 k 325
0113100 O 036 O $ J h d \r 016 \0 \0 020 g \0 \0 I
0113120 K k j O & d O 022 O 030 O 036 O $ J h
0113140 d \r 016 \0 \0 020 g \0 \0 O ( o \0 \0 \0 \f
0113160 \0 \0 020 \0 ( 6 7 0 Q C H E C K -
0113200 T Y P E - F A I L 6 5 3 Q V
0113220 E C T O R - S U B S T I T U T E
0113240 * 6 2 1 Q V E C T O R - S U
0113260 B S T I T U T E * 5 5 2 Q V
0113300 E C T O R P 5 4 6 Q L I S T
0113320 - S U B S T I T U T E * 3 3 4
0113340 Q R E V E R S E 3 3 1 Q L
0113360 I S T - S U B S T I T U T E *
0113400 3 0 4 Q R E V E R S E 2 4 0
0113420 Q C H E C K - S U B S E Q 2
0113440 1 3 Q C L : L E N G T H ) \r (
0113460 6 5 7 Q S E Q U E N C E 6 2
0113500 5 Q I F - N O T 5 6 2 Q I
0113520 F - N O T 5 2 5 Q I F - N O
0113540 T 4 7 6 Q : K E Y 4 4 6 Q
0113560 : C O U N T 4 1 6 Q : E N
0113600 D 3 6 6 Q : S T A R T 3 4
0113620 1 Q : F R O M - E N D 2 7 7
0113640 Q I F - N O T 2 0 4 Q I D
0113660 E N T I T Y ) \r ( 6 6 5 Q (
0113700 O R L I S T V E C T O R )
0113720 2 6 1 Q ( N I L ) ) \r N L I S
0113740 T - S U B S T I T U T E * D 1
0113760 \r ( L ( 1 0 Q K E Y 7 C
0114000 O U N T 6 E N D 5 S T A
0114020 R T 4 T E S T - N O T 3
0114040 T E S T 2 S E Q U E N C E
0114060 1 O L D 0 N E W ) ) \0 P
0114100 002 \0 \0 \t E B \n \0 \0 E 021 002 001 F 225 I
0114120 F \n \0 \0 253 H \t \0 \0 246 G 016 j \n \0 \0
0114140 221 B 020 D 235 A H 001 k G 020 016 l 002 D 016
0114160 h 360 212 A H 001 k G 020 016 l 002 C 016 232 H
0114200 @ 030 277 G 016 k 325 b 016 277 H 002 I k 324 271
0114220 270 260 274 \0 ( 3 3 Q % % = 2 4 Q
0114240 E N D P 1 7 Q % % = 4
0114260 N T H C D R ) \r N I L \r ( ) \r N
0114300 V E C T O R - S U B S T I T U T
0114320 E * D 1 \r ( L ( 1 1 Q K E
0114340 Y 1 0 Q C O U N T 7 E N
0114360 D 6 S T A R T 5 T E S T
0114400 - N O T 4 T E S T 3 I N
0114420 C R E M E N T E R 2 S E Q U
0114440 E N C E 1 O L D 0 N E W
0114460 ) ) \0 I 003 \0 \0 \n F 021 ! 002 H G 016
0114500 \n \0 \0 246 G 020 j \n \0 \0 221 B 020 E 236 A
0114520 B H 266 k G 022 016 l 002 E 016 h 360 213 A B
0114540 H 266 k G 022 016 l 002 D 016 237 B 272 H 271 @
0114560 J I 267 277 G 020 k 325 b 020 277 H C 324 X 260
0114600 277 \0 ( 2 0 Q % % = 1 1 Q %
0114620 % = ) \r N I L \r ( ) \r N S U B S
0114640 T I T U T E D 1 \r ( L ( 0
0114660 - a r g s - ) ) 002 1 037 \0 002 \0 e
0114700 021 001 \0 k a 021 361 020 021 340 036 l 002 a 272 l
0114720 003 a 273 H l 004 275 274 M d L 363 242 261 001 031
0114740 277 h 276 H l 004 _ 020 277 _ 016 277 O 020 d O
0114760 016 363 242 261 001 030 277 g \0 \0 _ 022 277 H l 004
0115000 _ 026 277 _ 024 277 O 026 d O 024 363 242 261 001 026
0115020 277 h _ 030 277 H l 004 _ 034 277 _ 032 277 O 034
0115040 d O 032 363 242 261 001 026 277 h _ 036 277 H l 004
0115060 _ " 277 _ 277 O " d O 363 242 261 001 026
0115100 277 n 377 377 _ $ 277 H l 004 _ ( 277 _ & 277
0115120 O ( d O & 363 242 261 001 024 277 g \0 \0 _ *
0115140 277 H l 004 _ . 277 _ , 277 O . d O , 363
0115160 242 261 001 022 277 j _ 0 277 H l 004 _ 4 277 _
0115200 2 277 O 4 d O 2 363 242 261 001 022 277 K \t \0
0115220 \0 _ 6 277 O 036 244 O 6 _ 036 277 K O 0 O
0115240 036 O 6 \f \0 \0 k _ 8 277 N 262 025 O 036 k
0115260 325 O 0 k 325 m 377 _ 8 277 _ 036 277 _ 0 277
0115300 K _ : _ < 004 l 005 360 254 O < d o \0 \0
0115320 \0 034 242 261 \0 364 277 N 242 261 \0 332 I J K \t
0115340 \0 \0 O 022 O 030 O 0 O 036 O $ O * \r \t
0115360 \0 \0 \t \0 \0 020 a g \0 \0 360 226 M k 330 a
0115400 261 376 342 M l 002 324 ] 261 376 321 a g \0 \0 360
0115420 227 O 020 k 330 a 261 376 344 O 020 l 002 324 _ 020
0115440 261 376 316 a g \0 \0 360 227 O 026 k 330 a 261 376
0115460 344 O 026 l 002 324 _ 026 261 376 320 a g \0 \0 360
0115500 227 O 034 k 330 a 261 376 344 O 034 l 002 324 _ 034
0115520 261 376 320 a g \0 \0 360 227 O " k 330 a 261 376
0115540 346 O " l 002 324 _ " 261 376 320 a g \0 \0 360
0115560 227 O ( k 330 a 261 376 350 O ( l 002 324 _ (
0115600 261 376 322 a g \0 \0 360 227 O . k 330 a 261 376
0115620 350 O . l 002 324 _ . 261 376 324 a g \0 \0 360
0115640 227 O 4 k 330 a 261 376 353 O 4 l 002 324 _ 4
0115660 261 376 324 I J K O 022 O 030 O 0 O 036 O $
0115700 O * \r \t \0 \0 020 \t \0 \0 264 030 I J K O
0115720 8 O 022 O 030 O 0 O 036 O $ O * \r \n \0
0115740 \0 020 g \0 \0 O : o \0 \0 \0 \f \0 \0 020 \0
0115760 ( 1 0 5 6 Q C H E C K - T Y P
0116000 E - F A I L 1 0 4 1 Q N V E
0116020 C T O R - S U B S T I T U T E *
0116040 1 0 1 2 Q V E C T O R P 1
0116060 0 0 6 Q N L I S T - S U B S T
0116100 I T U T E * 4 6 5 Q D R E V
0116120 E R S E 4 6 2 Q N L I S T -
0116140 S U B S T I T U T E * 4 4 2 Q
0116160 D R E V E R S E 3 4 6 Q C
0116200 H E C K - S U B S E Q 3 2 1 Q
0116220 C L : L E N G T H ) \r ( 1 0 4
0116240 5 Q S E Q U E N C E 7 3 7 Q
0116260 : L E N G T H 7 0 7 Q : S
0116300 T A R T 6 5 7 Q : K E Y 6
0116320 2 7 Q : C O U N T 5 7 7 Q
0116340 : E N D 5 4 7 Q : T E S T -
0116360 N O T 5 1 7 Q : T E S T 4
0116400 7 2 Q : F R O M - E N D 2 3
0116420 6 Q I D E N T I T Y 7 2 Q
0116440 E Q L ) \r ( 1 0 5 3 Q ( O R
0116460 L I S T V E C T O R ) 4 2
0116500 1 Q ( N I L ) ) \r N L I S T -
0116520 S U B S T I T U T E - I F * D
0116540 1 \r ( L ( 6 K E Y 5 C O
0116560 U N T 4 E N D 3 S T A R
0116600 T 2 S E Q U E N C E 1 T
0116620 E S T 0 N E W ) ) \0 = 002 \0
0116640 \0 \a C B \n \0 \0 C 021 002 001 D 225 I D \n
0116660 \0 \0 252 H \t \0 \0 245 E j \n \0 \0 221 B 020
0116700 H d 001 k F 016 k A 016 233 277 H @ 030 277 E
0116720 k 325 b \n 277 H 002 I k 324 271 270 260 317 \0 (
0116740 3 2 Q % % = 2 4 Q E N D P
0116760 1 7 Q % % = 4 N T H C D
0117000 R ) \r N I L \r ( ) \r N V E C T O
0117020 R - S U B S T I T U T E - I F *
0117040 D 1 \r ( L ( 7 K E Y 6
0117060 C O U N T 5 E N D 4 S T
0117100 A R T 3 I N C R E M E N T E
0117120 R 2 S E Q U E N C E 1 T
0117140 E S T 0 N E W ) ) \0 3 003 \0
0117160 \0 \b D 021 ! 002 H E \n \0 \0 245 F j \n \0
0117200 \0 221 B 020 B H 266 k G 016 016 k A 016 236 B
0117220 272 H 271 @ J I 267 277 F k 325 b \f 277 H C
0117240 324 X 260 325 \0 ( 1 6 Q % % = 1 0
0117260 Q % % = ) \r N I L \r ( ) \r N S
0117300 U B S T I T U T E - I F D 1 \r
0117320 ( L ( 0 - a r g s - ) ) 001
0117340 227 027 \0 002 \0 e 021 001 \0 k a 021 361 020 021 `
0117360 026 l 002 a 272 l 003 a 273 H l 004 275 274 M d
0117400 L 363 242 261 \0 317 277 h 276 H l 004 _ 020 277 _
0117420 016 277 O 020 d O 016 363 242 261 \0 316 277 j _ 022
0117440 277 H l 004 _ 026 277 _ 024 277 O 026 d O 024 363
0117460 242 261 \0 316 277 h _ 030 277 H l 004 _ 034 277 _
0117500 032 277 O 034 d O 032 363 242 261 \0 316 277 n 377 377
0117520 _ 036 277 H l 004 _ " 277 _ 277 O " d O
0117540 363 242 261 \0 314 277 g \0 \0 _ $ 277 K \t \0
0117560 \0 _ & 277 O 030 244 O & _ 030 277 K O 022 O
0117600 030 O & \f \0 \0 k _ ( 277 N 262 025 O 030 k
0117620 325 O 022 k 325 m 377 _ ( 277 _ 030 277 _ 022 277
0117640 K _ * _ , 004 l 005 360 254 O , d o \0 \0
0117660 \0 034 242 261 \0 244 277 N 242 261 \0 216 I J K \t
0117700 \0 \0 O 022 O 030 O 036 O $ \r \a \0 \0 \t \0
0117720 \0 020 a g \0 \0 360 226 M k 330 a 261 377 , M
0117740 l 002 324 ] 261 377 033 a g \0 \0 360 227 O 020 k
0117760 330 a 261 377 , O 020 l 002 324 _ 020 261 377 030 a
0120000 g \0 \0 360 227 O 026 k 330 a 261 377 , O 026 l
0120020 002 324 _ 026 261 377 030 a g \0 \0 360 227 O 034 k
0120040 330 a 261 377 . O 034 l 002 324 _ 034 261 377 030 a
0120060 g \0 \0 360 227 O " k 330 a 261 377 0 O " l
0120100 002 324 _ " 261 377 032 I J K O 022 O 030 O 036
0120120 O $ \r \a \0 \0 020 \t \0 \0 264 024 I J K O
0120140 ( O 022 O 030 O 036 O $ \r \b \0 \0 020 g \0
0120160 \0 O * o \0 \0 \0 \f \0 \0 020 \0 ( 6 2 4
0120200 Q C H E C K - T Y P E - F A I
0120220 L 6 0 7 Q N V E C T O R - S
0120240 U B S T I T U T E - I F * 5 6
0120260 4 Q V E C T O R P 5 6 0 Q
0120300 N L I S T - S U B S T I T U T E
0120320 - I F * 3 5 3 Q D R E V E R
0120340 S E 3 5 0 Q N L I S T - S U
0120360 B S T I T U T E - I F * 3 3 4
0120400 Q D R E V E R S E 2 4 0 Q
0120420 C H E C K - S U B S E Q 2 1 3
0120440 Q C L : L E N G T H ) \r ( 6 1
0120460 3 Q S E Q U E N C E 5 1 5 Q
0120500 : K E Y 4 6 5 Q : C O U N
0120520 T 4 3 5 Q : E N D 4 0 5 Q
0120540 : S T A R T 3 6 0 Q : F R
0120560 O M - E N D 2 0 4 Q I D E N
0120600 T I T Y ) \r ( 6 2 1 Q ( O R
0120620 L I S T V E C T O R ) 3 1
0120640 3 Q ( N I L ) ) \r N L I S T -
0120660 S U B S T I T U T E - I F - N O
0120700 T * D 1 \r ( L ( 6 K E Y
0120720 5 C O U N T 4 E N D 3
0120740 S T A R T 2 S E Q U E N C E
0120760 1 T E S T 0 N E W ) )
0121000 \0 = 002 \0 \0 \a C B \n \0 \0 C 021 002 001 D
0121020 225 I D \n \0 \0 252 H \t \0 \0 245 E j \n \0
0121040 \0 221 B 020 H d 001 k F 016 k A 016 253 277 H
0121060 @ 030 277 E k 325 b \n 277 H 002 I k 324 271 270
0121100 260 317 \0 ( 3 2 Q % % = 2 4 Q
0121120 E N D P 1 7 Q % % = 4 N
0121140 T H C D R ) \r N I L \r ( ) \r N V
0121160 E C T O R - S U B S T I T U T E
0121200 - I F - N O T * D 1 \r ( L (
0121220 7 K E Y 6 C O U N T 5
0121240 E N D 4 S T A R T 3 I N
0121260 C R E M E N T E R 2 S E Q U
0121300 E N C E 1 T E S T 0 N E
0121320 W ) ) \0 3 003 \0 \0 \b D 021 ! 002 H E
0121340 \n \0 \0 245 F j \n \0 \0 221 B 020 B H 266 k
0121360 G 016 016 k A 016 256 B 272 H 271 @ J I 267 277
0121400 F k 325 b \f 277 H C 324 X 260 325 \0 ( 1 6
0121420 Q % % = 1 0 Q % % = ) \r N
0121440 I L \r ( ) \r N S U B S T I T U T
0121460 E - I F - N O T D 1 \r ( L (
0121500 0 - a r g s - ) ) 001 227 027 \0 002
0121520 \0 e 021 001 \0 k a 021 361 020 021 ` 026 l 002 a
0121540 272 l 003 a 273 H l 004 275 274 M d L 363 242 261
0121560 \0 317 277 h 276 H l 004 _ 020 277 _ 016 277 O 020
0121600 d O 016 363 242 261 \0 316 277 j _ 022 277 H l 004
0121620 _ 026 277 _ 024 277 O 026 d O 024 363 242 261 \0 316
0121640 277 h _ 030 277 H l 004 _ 034 277 _ 032 277 O 034
0121660 d O 032 363 242 261 \0 316 277 n 377 377 _ 036 277 H
0121700 l 004 _ " 277 _ 277 O " d O 363 242 261
0121720 \0 314 277 g \0 \0 _ $ 277 K \t \0 \0 _ & 277
0121740 O 030 244 O & _ 030 277 K O 022 O 030 O & \f
0121760 \0 \0 k _ ( 277 N 262 025 O 030 k 325 O 022 k
0122000 325 m 377 _ ( 277 _ 030 277 _ 022 277 K _ * _
0122020 , 004 l 005 360 254 O , d o \0 \0 \0 034 242 261
0122040 \0 244 277 N 242 261 \0 216 I J K \t \0 \0 O 022
0122060 O 030 O 036 O $ \r \a \0 \0 \t \0 \0 020 a g
0122100 \0 \0 360 226 M k 330 a 261 377 , M l 002 324 ]
0122120 261 377 033 a g \0 \0 360 227 O 020 k 330 a 261 377
0122140 , O 020 l 002 324 _ 020 261 377 030 a g \0 \0 360
0122160 227 O 026 k 330 a 261 377 , O 026 l 002 324 _ 026
0122200 261 377 030 a g \0 \0 360 227 O 034 k 330 a 261 377
0122220 . O 034 l 002 324 _ 034 261 377 030 a g \0 \0 360
0122240 227 O " k 330 a 261 377 0 O " l 002 324 _ "
0122260 261 377 032 I J K O 022 O 030 O 036 O $ \r \a
0122300 \0 \0 020 \t \0 \0 264 024 I J K O ( O 022 O
0122320 030 O 036 O $ \r \b \0 \0 020 g \0 \0 O * o
0122340 \0 \0 \0 \f \0 \0 020 \0 ( 6 2 4 Q C H
0122360 E C K - T Y P E - F A I L 6 0
0122400 7 Q N V E C T O R - S U B S T
0122420 I T U T E - I F - N O T * 5 6
0122440 4 Q V E C T O R P 5 6 0 Q
0122460 N L I S T - S U B S T I T U T E
0122500 - I F - N O T * 3 5 3 Q D R
0122520 E V E R S E 3 5 0 Q N L I S
0122540 T - S U B S T I T U T E - I F -
0122560 N O T * 3 3 4 Q D R E V E R
0122600 S E 2 4 0 Q C H E C K - S U
0122620 B S E Q 2 1 3 Q C L : L E N
0122640 G T H ) \r ( 6 1 3 Q S E Q U E
0122660 N C E 5 1 5 Q : K E Y 4 6
0122700 5 Q : C O U N T 4 3 5 Q :
0122720 E N D 4 0 5 Q : S T A R T
0122740 3 6 0 Q : F R O M - E N D 2
0122760 0 4 Q I D E N T I T Y ) \r (
0123000 6 2 1 Q ( O R L I S T V E
0123020 C T O R ) 3 1 3 Q ( N I L )
0123040 ) \r ( P U T P R O P S C M L S
0123060 E Q M O D I F Y F I L E T Y P
0123100 E C O M P I L E - F I L E ) \r
0123120 ( P U T P R O P S C M L S E Q
0123140 M O D I F Y C O P Y R I G H T
0123160 ( " X e r o x C o r p o r a
0123200 t i o n " 1 9 8 6 ) ) \r S T O
0123220 P \r
0123222