$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSTRING.DCOM!3
0000000 ( F I L E C R E A T E D " 1 8
0000020 - S e p - 8 6 2 2 : 2 0 : 0 7
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L S T R
0000120 I N G . ; 2 2 ) \r " 1 6 - S e
0000140 p - 8 6 1 1 : 5 7 : 3 0 " i
0000160 n " X e r o x L i s p 1 6
0000200 - S e p - 8 6 . . . " d a t
0000220 e d " 1 6 - S e p - 8 6 1 2
0000240 : 2 9 : 4 1 " ) \r ( F I L E C R
0000260 E A T E D " 1 8 - S e p - 8 6
0000300 2 2 : 1 9 : 0 0 " { E R I S
0000320 } < L I S P C O R E > L I B R A
0000340 R Y > C M L S T R I N G . ; 2 2
0000360 2 4 7 3 2 c h a n g e s t
0000400 o : ( F U N C T I O N S \r S
0000420 T R I N G M A K E - S T R I N
0000440 G ) p r e v i o u s d a t e
0000460 : " 4 - S e p - 8 6 2 3 :
0000500 2 8 : 3 4 " { E R I S } < L I
0000520 S P C O R E > L I B R A R Y > C
0000540 M L S T R I N G . ; 2 1 ) \r ( R
0000560 P A Q Q C M L S T R I N G C O
0000600 M S ( ( * * U s e r e n
0000620 t r y p o i n t s ) ( F U N
0000640 C T I O N S M A K E - S T R I
0000660 N G N S T R I N G - C A P I T
0000700 A L I Z E \r N S T R I N G - D
0000720 O W N C A S E N S T R I N G -
0000740 U P C A S E S T R I N G S T
0000760 R I N G - C A P I T A L I Z E
0001000 S T R I N G - D O W N C A S E
0001020 S T R I N G - E Q U A L S T R
0001040 I N G - G R E A T E R P \r S T
0001060 R I N G - L E F T - T R I M S
0001100 T R I N G - L E S S P S T R I
0001120 N G - N O T - E Q U A L S T R
0001140 I N G - N O T - G R E A T E R P
0001160 S T R I N G - N O T - L E S S
0001200 P S T R I N G - R I G H T - T
0001220 R I M \r S T R I N G - T R I M
0001240 S T R I N G - U P C A S E S
0001260 T R I N G / = S T R I N G <
0001300 S T R I N G < = S T R I N G =
0001320 S T R I N G > S T R I N G >
0001340 = ) ( * * I n t e r n a l
0001360 s t u f f ) ( \r F U N C T I
0001400 O N S W I T H - O N E - S T R
0001420 I N G W I T H - O N E - S T R
0001440 I N G - O N L Y W I T H - S T
0001460 R I N G W I T H - T W O - S T
0001500 R I N G S % % S T R I N G - C
0001520 O M P A R E \r % % S T R I N G
0001540 - C O M P A R E - E Q U A L )
0001560 ( * * C o m p i l e r o p
0001600 t i o n s ) ( P R O P F I L
0001620 E T Y P E C M L S T R I N G )
0001640 ( D E C L A R E : D O N T E
0001660 V A L @ L O A D \r D O E V A L
0001700 @ C O M P I L E D O N T C O P
0001720 Y ( L O C A L V A R S . T
0001740 ) ) ( D E C L A R E : D O N
0001760 T E V A L @ L O A D D O E V A
0002000 L @ C O M P I L E D O N T C O
0002020 P Y C O M P I L E R V A R S
0002040 \r ( A D D V A R S ( N L A M A
0002060 ) ( N L A M L ) ( L A M A )
0002100 ) ) ) ) \r M A K E - S T R I N G
0002120 D 1 \r ( L ( 0 - a r g s -
0002140 ) ) \0 u \n \0 002 \0 e 021 001 \0 k a 021
0002160 201 \t i 272 H l 002 274 273 L d K 363 262 7 277
0002200 h Z 275 H l 002 _ 016 277 276 O 016 d N 363 262
0002220 8 277 h _ 020 277 I g \0 \0 g \0 \0 g \0 \0
0002240 O 020 \r 005 \0 \0 _ 022 277 J 225 O 022 M \n \0
0002260 \0 O 022 020 a g \0 \0 360 225 L k 330 a 260 304
0002300 L l 002 324 \ 260 265 a g \0 \0 360 226 O 016 k
0002320 330 a 260 301 O 016 l 002 324 _ 016 260 261 \0 ( 1
0002340 0 7 Q F I L L - A R R A Y 7
0002360 4 Q M A K E - V E C T O R ) \r
0002400 ( 1 4 1 Q : F A T P 1 1 6 Q
0002420 : I N I T I A L - E L E M E N
0002440 T 6 6 Q : F A T P 6 3 Q
0002460 S T R I N G - C H A R 6 0 Q
0002500 : E L E M E N T - T Y P E ) \r (
0002520 ) \r N S T R I N G - C A P I T A
0002540 L I Z E D 1 \r ( L ( 0 - a
0002560 r g s - ) ) \0 373 021 \0 002 \0 e 021 001
0002600 \0 k a 021 261 \f H l 002 273 272 K d J 363 262
0002620 P 277 j 274 H l 002 276 275 N d M 363 262 U 277
0002640 h _ 016 277 I d \t \0 \0 252 277 o \0 \0 \0 I
0002660 \n \0 \0 277 I \t \0 \0 _ 020 277 O 016 244 O 020
0002700 _ 016 277 L d O 016 363 231 277 o \0 \0 \0 \t \0
0002720 \0 277 L 021 1 020 O 032 O 016 : 262 * I 020 a
0002740 g \0 \0 360 225 K k 330 a 260 252 K l 002 324 [
0002760 260 234 a g \0 \0 360 225 N k 330 a 260 245 N l
0003000 002 324 ^ 260 227 I O 032 266 _ \t \0 \0 _ 034
0003020 277 I _ 030 277 O 032 _ 026 277 O 034 262 ( O 036
0003040 263 $ l \a O 006 \0 \0 323 _ 022 277 l a O
0003060 022 363 254 O 022 d l z 363 263 ) l 325 260 $
0003100 O 022 260 l \a O 006 \0 \0 323 _ 024 277 l
0003120 A O 024 363 252 O 024 d l Z 363 245 l 324 201
0003140 O 024 321 O 030 O 026 267 277 O 032 k 324 O 034 _
0003160 036 277 _ 032 261 377 d \0 ( 2 2 0 Q A L
0003200 P H A N U M E R I C P 1 2 3 Q
0003220 C L : E R R O R 7 2 Q V E
0003240 C T O R - L E N G T H 6 5 Q
0003260 C L : E R R O R 5 3 Q C L :
0003300 S T R I N G P ) \r ( 3 1 5 Q C
0003320 H A R A C T E R 2 5 3 Q C H
0003340 A R A C T E R 1 7 0 Q : E N
0003360 D 1 4 5 Q : S T A R T ) \r (
0003400 1 2 0 Q " I m p r o p e r
0003420 s u b s t r i n g b o u n d s
0003440 " 6 1 Q " N o t a s t r
0003460 i n g ~ S " ) \r N S T R I N G
0003500 - D O W N C A S E D 1 \r ( L
0003520 ( 0 - a r g s - ) ) \0 274 \r \0
0003540 002 \0 e 021 001 \0 k a 021 261 \f H l 002 273 272
0003560 K d J 363 262 M 277 j 274 H l 002 276 275 N d
0003600 M 363 262 R 277 h _ 016 277 I d \t \0 \0 252 277
0003620 o \0 \0 \0 I \n \0 \0 277 I \t \0 \0 _ 020 277
0003640 O 016 244 O 020 _ 016 277 L d O 016 363 231 277 o
0003660 \0 \0 \0 \t \0 \0 277 L _ 022 O 016 : 262 * I
0003700 020 a g \0 \0 360 225 K k 330 a 260 255 K l 002
0003720 324 [ 260 237 a g \0 \0 360 225 N k 330 a 260 250
0003740 N l 002 324 ^ 260 232 I _ 030 277 O 022 _ 026 277
0003760 l \a I O 022 266 006 \0 \0 323 _ 024 277 l A O
0004000 024 363 252 O 024 d l Z 363 245 l 324 201 O 024
0004020 321 O 030 O 026 267 277 O 022 k 324 260 235 \0 ( 1
0004040 2 3 Q C L : E R R O R 7 2 Q
0004060 V E C T O R - L E N G T H 6
0004100 5 Q C L : E R R O R 5 3 Q
0004120 C L : S T R I N G P ) \r ( 2 2 6
0004140 Q C H A R A C T E R 1 6 5 Q
0004160 : E N D 1 4 2 Q : S T A R
0004200 T ) \r ( 1 2 0 Q " I m p r o
0004220 p e r s u b s t r i n g b o
0004240 u n d s " 6 1 Q " N o t a
0004260 s t r i n g ~ S " ) \r N S T
0004300 R I N G - U P C A S E D 1 \r (
0004320 L ( 0 - a r g s - ) ) \0 274
0004340 \r \0 002 \0 e 021 001 \0 k a 021 261 \f H l 002
0004360 273 272 K d J 363 262 M 277 j 274 H l 002 276 275
0004400 N d M 363 262 R 277 h _ 016 277 I d \t \0 \0
0004420 252 277 o \0 \0 \0 I \n \0 \0 277 I \t \0 \0 _
0004440 020 277 O 016 244 O 020 _ 016 277 L d O 016 363 231
0004460 277 o \0 \0 \0 \t \0 \0 277 L _ 022 O 016 : 262
0004500 * I 020 a g \0 \0 360 225 K k 330 a 260 255 K
0004520 l 002 324 [ 260 237 a g \0 \0 360 225 N k 330 a
0004540 260 250 N l 002 324 ^ 260 232 I _ 030 277 O 022 _
0004560 026 277 l \a I O 022 266 006 \0 \0 323 _ 024 277 l
0004600 a O 024 363 252 O 024 d l z 363 245 l 325 201
0004620 O 024 321 O 030 O 026 267 277 O 022 k 324 260 235 \0
0004640 ( 1 2 3 Q C L : E R R O R 7
0004660 2 Q V E C T O R - L E N G T H
0004700 6 5 Q C L : E R R O R 5 3
0004720 Q C L : S T R I N G P ) \r ( 2
0004740 2 6 Q C H A R A C T E R 1 6
0004760 5 Q : E N D 1 4 2 Q : S T
0005000 A R T ) \r ( 1 2 0 Q " I m p
0005020 r o p e r s u b s t r i n g
0005040 b o u n d s " 6 1 Q " N o t
0005060 a s t r i n g ~ S " ) \r S
0005100 T R I N G D 1 \r ( L ( 0 X
0005120 ) ) \0 r 005 \0 \0 001 @ d 005 016 221 277 202
0005140 005 020 230 @ d 312 002 0 j 360 241 020 @ 005 \a 262
0005160 9 @ \t \0 \0 021 A 004 H \t \0 \0 271 H j 273
0005200 272 J K 363 241 I 020 @ K k 324 \n \0 \0 \ 005
0005220 001 264 \r j L 363 h 360 264 006 l \a L 321 I K
0005240 267 277 K k 324 273 260 333 @ d 004 l 004 360 223 \t
0005260 \0 \0 020 004 l \t 360 230 k g \0 \0 @ \v \0 \0
0005300 020 o \0 \0 \0 @ \n \0 \0 020 \0 ( 1 5 7 Q
0005320 C L : E R R O R 1 4 6 Q M
0005340 A K E - S T R I N G 1 3 0 Q
0005360 S Y M B O L - N A M E 6 4 Q
0005400 N T H C H A R C O D E 4 2 Q
0005420 M A K E - S T R I N G 3 3 Q
0005440 N C H A R S ) \r ( 1 4 2 Q : I
0005460 N I T I A L - E L E M E N T ) \r
0005500 ( 1 5 3 Q " ~ S c a n n o
0005520 t b e c o e r c e d i n t
0005540 o a s t r i n g " ) \r S T R
0005560 I N G - C A P I T A L I Z E D
0005600 1 \r ( L ( 0 - a r g s - ) )
0005620 001 j 032 \0 002 \0 e 021 001 \0 k a 021 361 020
0005640 021 P 025 H l 002 273 272 K d J 363 262 " 277 j
0005660 274 H l 002 276 275 N d M 363 262 ' 277 h _ 016
0005700 277 I _ 020 d \t \0 \0 262 , 277 I 260 ? a g
0005720 \0 \0 360 225 K k 330 a 260 330 K l 002 324 [ 260
0005740 312 a g \0 \0 360 225 N k 330 a 260 323 N l 002
0005760 324 ^ 260 305 004 l 004 360 264 \a I \t \0 \0 213 g
0006000 \0 \0 O 020 o \0 \0 \0 \f \0 \0 Y d \t \0 \0
0006020 _ 022 277 O 016 244 O 022 _ 016 277 L O 016 363 227
0006040 o \0 \0 \0 \t \0 \0 277 O 022 \t \0 \0 _ 024 277
0006060 L j _ 034 277 _ 032 277 O 032 O 034 363 262 037 O
0006100 024 _ 030 277 O 034 _ 026 277 I O 034 266 O 030 O
0006120 026 267 277 O 034 k 324 _ 034 277 260 336 L 021 1 031
0006140 O , O 016 : 263 t I O , 266 _ 2 \t \0 \0
0006160 _ . 277 O 024 _ $ 277 O , _ " 277 O . 262
0006200 ( O 0 263 $ l \a O 2 006 \0 \0 323 _ 036 277
0006220 l a O 036 363 254 O 036 d l z 363 263 ) l
0006240 325 260 $ O 036 260 l \a O 2 006 \0 \0 323 _
0006260 277 l A O 363 252 O d l Z 363 245 l
0006300 324 201 O 321 O $ O " 267 277 O , k 324
0006320 O . _ 0 277 _ , 260 213 023 O 016 _ * O 022
0006340 : 263 034 O 024 _ ( 277 O * _ & 277 I O *
0006360 266 O ( O & 267 277 O * k 324 260 341 O 024 020
0006400 \0 ( 3 3 0 Q A L P H A N U M E
0006420 R I C P 2 2 5 Q M A K E - S
0006440 T R I N G 2 1 7 Q C L : E R
0006460 R O R 1 7 0 Q V E C T O R -
0006500 L E N G T H 1 6 3 Q C H E C
0006520 K - T Y P E - F A I L 1 4 6 Q
0006540 S Y M B O L - N A M E 6 0 Q
0006560 C L : S T R I N G P ) \r ( 4 2
0006600 6 Q C H A R A C T E R 3 6 4
0006620 Q C H A R A C T E R 1 5 2 Q
0006640 S T R I N G 1 1 5 Q : E N
0006660 D 7 2 Q : S T A R T ) \r (
0006700 2 1 4 Q " I m p r o p e r s
0006720 u b s t r i n g b o u n d s "
0006740 1 6 0 Q ( O R S T R I N G
0006760 S Y M B O L ) ) \r S T R I N G
0007000 - D O W N C A S E D 1 \r ( L
0007020 ( 0 - a r g s - ) ) 001 \b 022 \0
0007040 002 \0 e 021 001 \0 k a 021 361 020 021 020 021 H l
0007060 002 273 272 K d J 363 262 " 277 j 274 H l 002 276
0007100 275 N d M 363 262 ' 277 h _ 016 277 I _ 020 d
0007120 \t \0 \0 262 , 277 I 260 ? a g \0 \0 360 225 K
0007140 k 330 a 260 330 K l 002 324 [ 260 312 a g \0 \0
0007160 360 225 N k 330 a 260 323 N l 002 324 ^ 260 305 004
0007200 l 004 360 264 \a I \t \0 \0 213 g \0 \0 O 020 o
0007220 \0 \0 \0 \f \0 \0 Y d \t \0 \0 _ 022 277 O 016
0007240 244 O 022 _ 016 277 L O 016 363 227 o \0 \0 \0 \t
0007260 \0 \0 277 O 022 \t \0 \0 _ 024 277 O 022 j _ "
0007300 277 _ 277 O O " 363 262 ] L O " 363 263
0007320 : O 016 O " 363 262 3 O 024 _ 032 277 O " _
0007340 030 277 l \a I O " 266 006 \0 \0 323 _ 026 277 l
0007360 A O 026 363 252 O 026 d l Z 363 245 l 324 201
0007400 O 026 321 O 032 O 030 260 024 O 024 _ 036 277 O "
0007420 _ 034 277 I O " 266 O 036 O 034 267 277 O " k
0007440 324 _ " 277 260 240 O 024 020 \0 ( 2 2 5 Q
0007460 M A K E - S T R I N G 2 1 7 Q
0007500 C L : E R R O R 1 7 0 Q V
0007520 E C T O R - L E N G T H 1 6 3
0007540 Q C H E C K - T Y P E - F A I
0007560 L 1 4 6 Q S Y M B O L - N A
0007600 M E 6 0 Q C L : S T R I N G
0007620 P ) \r ( 3 1 0 Q C H A R A C T
0007640 E R 1 5 2 Q S T R I N G 1
0007660 1 5 Q : E N D 7 2 Q : S T
0007700 A R T ) \r ( 2 1 4 Q " I m p
0007720 r o p e r s u b s t r i n g
0007740 b o u n d s " 1 6 0 Q ( O R
0007760 S T R I N G S Y M B O L ) )
0010000 \r S T R I N G - E Q U A L D 1
0010020 \r ( L ( 0 - a r g s - ) )
0010040 001 I 023 \0 002 \0 e 021 001 \0 k a 021 361 020 021
0010060 022 l 002 a 272 H l 003 274 273 L d K 363 262
0010100 Q 277 j 275 H l 003 _ 016 277 276 O 016 d N 363
0010120 262 S 277 h _ 020 277 H l 003 _ 024 277 _ 022 277
0010140 O 024 d O 022 363 262 S 277 j _ 026 277 H l 003
0010160 _ 032 277 _ 030 277 O 032 d O 030 363 262 S 277 h
0010200 _ 034 277 I _ 036 d \t \0 \0 262 [ 277 I 260 n
0010220 a g \0 \0 360 225 L k 330 a 260 251 L l 002 324
0010240 \ 260 233 a g \0 \0 360 226 O 016 k 330 a 260 246
0010260 O 016 l 002 324 _ 016 260 226 a g \0 \0 360 226 O
0010300 024 k 330 a 260 246 O 024 l 002 324 _ 024 260 225 a
0010320 g \0 \0 360 226 O 032 k 330 a 260 246 O 032 l 002
0010340 324 _ 032 260 225 004 l 004 360 264 \a I \t \0 \0 213
0010360 g \0 \0 O 036 o \0 \0 \0 \f \0 \0 Y O 020 246
0010400 d \t \0 \0 _ 020 277 J _ d \t \0 \0 223 277
0010420 J 260 031 004 l 004 360 264 \a J \t \0 \0 213 g \0
0010440 \0 O o \0 \0 \0 \f \0 \0 Z O 034 246 d \t
0010460 \0 \0 _ 034 277 O 020 M 325 O 034 O 026 325 _ $
0010500 277 _ " 277 j O " 363 244 j O $ 363 227 o \0
0010520 \0 \0 \t \0 \0 277 O " O $ : 264 022 O 020 I
0010540 J M O 020 O 026 O 034 \r 006 \0 \0 : 020 \0 (
0010560 5 0 5 Q % % S T R I N G - C O
0010600 M P A R E - E Q U A L 4 5 6 Q
0010620 C L : E R R O R 4 1 3 Q V
0010640 E C T O R - L E N G T H 4 0 3
0010660 Q C H E C K - T Y P E - F A I
0010700 L 3 6 6 Q S Y M B O L - N A
0010720 M E 3 4 7 Q C L : S T R I N
0010740 G P 3 3 5 Q V E C T O R - L
0010760 E N G T H 3 2 5 Q C H E C K
0011000 - T Y P E - F A I L 3 1 0 Q
0011020 S Y M B O L - N A M E 1 4 3 Q
0011040 C L : S T R I N G P ) \r ( 3 7
0011060 2 Q S T R I N G 2 3 1 4 Q
0011100 S T R I N G 1 2 5 4 Q : E N
0011120 D 2 2 2 6 Q : S T A R T 2
0011140 2 0 0 Q : E N D 1 1 5 5 Q
0011160 : S T A R T 1 ) \r ( 4 5 3 Q
0011200 " i m p r o p e r s u b s t r
0011220 i n g b o u n d s " 4 0 0 Q
0011240 ( O R S T R I N G S Y M B
0011260 O L ) 3 2 2 Q ( O R S T R
0011300 I N G S Y M B O L ) ) \r S T R
0011320 I N G - G R E A T E R P D 1 \r
0011340 ( L ( 0 - a r g s - ) ) 001
0011360 237 026 \0 002 \0 e 021 001 \0 k a 021 361 020 021 P
0011400 025 l 002 a 272 H l 003 274 273 L d K 363 262 Q
0011420 277 j 275 H l 003 _ 016 277 276 O 016 d N 363 262
0011440 S 277 h _ 020 277 H l 003 _ 024 277 _ 022 277 O
0011460 024 d O 022 363 262 S 277 j _ 026 277 H l 003 _
0011500 032 277 _ 030 277 O 032 d O 030 363 262 S 277 h _
0011520 034 277 I _ 036 d \t \0 \0 262 [ 277 I 260 n a
0011540 g \0 \0 360 225 L k 330 a 260 251 L l 002 324 \
0011560 260 233 a g \0 \0 360 226 O 016 k 330 a 260 246 O
0011600 016 l 002 324 _ 016 260 226 a g \0 \0 360 226 O 024
0011620 k 330 a 260 246 O 024 l 002 324 _ 024 260 225 a g
0011640 \0 \0 360 226 O 032 k 330 a 260 246 O 032 l 002 324
0011660 _ 032 260 225 004 l 004 360 264 \a I \t \0 \0 213 g
0011700 \0 \0 O 036 o \0 \0 \0 \f \0 \0 Y O 020 246 d
0011720 \t \0 \0 _ 020 277 J _ d \t \0 \0 223 277 J
0011740 260 031 004 l 004 360 264 \a J \t \0 \0 213 g \0 \0
0011760 O o \0 \0 \0 \f \0 \0 Z O 034 246 d \t \0
0012000 \0 _ 034 277 O 020 M 325 O 034 O 026 325 _ $ 277
0012020 _ " 277 j O " 363 244 j O $ 363 227 o \0 \0
0012040 \0 \t \0 \0 277 I J M O 020 O 026 O 034 \r 006
0012060 \0 \0 _ & d M 325 O $ : 232 277 O " O $
0012100 363 264 Q O & 020 O 020 : 221 h 020 I O & 266
0012120 006 \0 \0 323 _ ( 277 l a O ( 363 252 O ( d
0012140 l z 363 245 l 325 201 O ( J O 026 O & M
0012160 325 324 266 006 \0 \0 323 _ * 277 l a O * 363 252
0012200 O * d l z 363 245 l 325 201 O * 363 264 004
0012220 O & 020 \0 ( 4 7 4 Q % % S T R I
0012240 N G - C O M P A R E - E Q U A L
0012260 4 5 6 Q C L : E R R O R 4
0012300 1 3 Q V E C T O R - L E N G T
0012320 H 4 0 3 Q C H E C K - T Y P
0012340 E - F A I L 3 6 6 Q S Y M B
0012360 O L - N A M E 3 4 7 Q C L :
0012400 S T R I N G P 3 3 5 Q V E C
0012420 T O R - L E N G T H 3 2 5 Q
0012440 C H E C K - T Y P E - F A I L
0012460 3 1 0 Q S Y M B O L - N A M E
0012500 1 4 3 Q C L : S T R I N G P
0012520 ) \r ( 6 0 0 Q C H A R A C T E
0012540 R 5 3 5 Q C H A R A C T E R
0012560 3 7 2 Q S T R I N G 2 3 1
0012600 4 Q S T R I N G 1 2 5 4 Q
0012620 : E N D 2 2 2 6 Q : S T A R
0012640 T 2 2 0 0 Q : E N D 1 1 5
0012660 5 Q : S T A R T 1 ) \r ( 4 5
0012700 3 Q " i m p r o p e r s u b
0012720 s t r i n g b o u n d s " 4
0012740 0 0 Q ( O R S T R I N G S
0012760 Y M B O L ) 3 2 2 Q ( O R
0013000 S T R I N G S Y M B O L ) ) \r
0013020 S T R I N G - L E F T - T R I M
0013040 D 1 \r ( L ( 1 S T R I N G
0013060 0 C H A R - B A G ) ) \0 L
0013100 003 \0 \0 002 A 021 001 \0 H d \t \0 \0 223 277 A
0013120 260 030 004 l 004 360 264 \a A \t \0 \0 212 g \0 \0
0013140 H o \0 \0 \0 \f \0 \0 022 b 002 d \t \0 \0 021
0013160 ! 002 j Y d H : 251 277 A I 266 @ \n \0 \0
0013200 250 I 272 A J H \v \0 \0 020 I k 324 260 346 \0
0013220 ( 1 0 4 Q S U B S E Q 7 3 Q
0013240 C L : F I N D 5 2 Q V E C
0013260 T O R - L E N G T H 4 3 Q C
0013300 H E C K - T Y P E - F A I L 2
0013320 7 Q S Y M B O L - N A M E 1
0013340 0 Q C L : S T R I N G P ) \r (
0013360 3 3 Q S T R I N G ) \r ( 4 0
0013400 Q ( O R S T R I N G S Y M
0013420 B O L ) ) \r S T R I N G - L E S
0013440 S P D 1 \r ( L ( 0 - a r g
0013460 s - ) ) 001 240 026 \0 002 \0 e 021 001 \0 k
0013500 a 021 361 020 021 P 025 l 002 a 272 H l 003 274 273
0013520 L d K 363 262 Q 277 j 275 H l 003 _ 016 277 276
0013540 O 016 d N 363 262 S 277 h _ 020 277 H l 003 _
0013560 024 277 _ 022 277 O 024 d O 022 363 262 S 277 j _
0013600 026 277 H l 003 _ 032 277 _ 030 277 O 032 d O 030
0013620 363 262 S 277 h _ 034 277 I _ 036 d \t \0 \0 262
0013640 [ 277 I 260 n a g \0 \0 360 225 L k 330 a 260
0013660 251 L l 002 324 \ 260 233 a g \0 \0 360 226 O 016
0013700 k 330 a 260 246 O 016 l 002 324 _ 016 260 226 a g
0013720 \0 \0 360 226 O 024 k 330 a 260 246 O 024 l 002 324
0013740 _ 024 260 225 a g \0 \0 360 226 O 032 k 330 a 260
0013760 246 O 032 l 002 324 _ 032 260 225 004 l 004 360 264 \a
0014000 I \t \0 \0 213 g \0 \0 O 036 o \0 \0 \0 \f \0
0014020 \0 Y O 020 246 d \t \0 \0 _ 020 277 J _ d
0014040 \t \0 \0 223 277 J 260 031 004 l 004 360 264 \a J \t
0014060 \0 \0 213 g \0 \0 O o \0 \0 \0 \f \0 \0 Z
0014100 O 034 246 d \t \0 \0 _ 034 277 O 020 M 325 O 034
0014120 O 026 325 _ $ 277 _ " 277 j O " 363 244 j O
0014140 $ 363 227 o \0 \0 \0 \t \0 \0 277 I J M O 020
0014160 O 026 O 034 \r 006 \0 \0 _ & d O 020 : 232 277
0014200 O $ O " 363 264 T O & 020 M 325 O $ : 221
0014220 h 020 I O & 266 006 \0 \0 323 _ ( 277 l a O
0014240 ( 363 252 O ( d l z 363 245 l 325 201 O (
0014260 J O 026 O & M 325 324 266 006 \0 \0 323 _ * 277
0014300 l a O * 363 252 O * d l z 363 245 l 325
0014320 201 O * 375 363 264 004 O & 020 \0 ( 4 7 4 Q
0014340 % % S T R I N G - C O M P A R
0014360 E - E Q U A L 4 5 6 Q C L :
0014400 E R R O R 4 1 3 Q V E C T O
0014420 R - L E N G T H 4 0 3 Q C H
0014440 E C K - T Y P E - F A I L 3 6
0014460 6 Q S Y M B O L - N A M E 3
0014500 4 7 Q C L : S T R I N G P 3
0014520 3 5 Q V E C T O R - L E N G T
0014540 H 3 2 5 Q C H E C K - T Y P
0014560 E - F A I L 3 1 0 Q S Y M B
0014600 O L - N A M E 1 4 3 Q C L :
0014620 S T R I N G P ) \r ( 6 0 0 Q C
0014640 H A R A C T E R 5 3 5 Q C H
0014660 A R A C T E R 3 7 2 Q S T R
0014700 I N G 2 3 1 4 Q S T R I N G
0014720 1 2 5 4 Q : E N D 2 2 2 6
0014740 Q : S T A R T 2 2 0 0 Q :
0014760 E N D 1 1 5 5 Q : S T A R T
0015000 1 ) \r ( 4 5 3 Q " i m p r o
0015020 p e r s u b s t r i n g b o
0015040 u n d s " 4 0 0 Q ( O R S
0015060 T R I N G S Y M B O L ) 3 2
0015100 2 Q ( O R S T R I N G S Y
0015120 M B O L ) ) \r S T R I N G - N O
0015140 T - E Q U A L D 1 \r ( L ( 0
0015160 - a r g s - ) ) 001 M 023 \0 002 \0
0015200 e 021 001 \0 k a 021 361 020 021 022 l 002 a 272
0015220 H l 003 274 273 L d K 363 262 Q 277 j 275 H l
0015240 003 _ 016 277 276 O 016 d N 363 262 S 277 h _ 020
0015260 277 H l 003 _ 024 277 _ 022 277 O 024 d O 022 363
0015300 262 S 277 j _ 026 277 H l 003 _ 032 277 _ 030 277
0015320 O 032 d O 030 363 262 S 277 h _ 034 277 I _ 036
0015340 d \t \0 \0 262 [ 277 I 260 n a g \0 \0 360 225
0015360 L k 330 a 260 251 L l 002 324 \ 260 233 a g \0
0015400 \0 360 226 O 016 k 330 a 260 246 O 016 l 002 324 _
0015420 016 260 226 a g \0 \0 360 226 O 024 k 330 a 260 246
0015440 O 024 l 002 324 _ 024 260 225 a g \0 \0 360 226 O
0015460 032 k 330 a 260 246 O 032 l 002 324 _ 032 260 225 004
0015500 l 004 360 264 \a I \t \0 \0 213 g \0 \0 O 036 o
0015520 \0 \0 \0 \f \0 \0 Y O 020 246 d \t \0 \0 _ 020
0015540 277 J _ d \t \0 \0 223 277 J 260 031 004 l 004
0015560 360 264 \a J \t \0 \0 213 g \0 \0 O o \0 \0
0015600 \0 \f \0 \0 Z O 034 246 d \t \0 \0 _ 034 277 O
0015620 020 M 325 O 034 O 026 325 _ $ 277 _ " 277 j O
0015640 " 363 244 j O $ 363 227 o \0 \0 \0 \t \0 \0 277
0015660 O " O $ : h 360 265 024 O 020 I J M O 020
0015700 O 026 O 034 \r 006 \0 \0 : h 360 020 \0 ( 5 0
0015720 7 Q % % S T R I N G - C O M P
0015740 A R E - E Q U A L 4 5 6 Q C
0015760 L : E R R O R 4 1 3 Q V E C
0016000 T O R - L E N G T H 4 0 3 Q
0016020 C H E C K - T Y P E - F A I L
0016040 3 6 6 Q S Y M B O L - N A M E
0016060 3 4 7 Q C L : S T R I N G P
0016100 3 3 5 Q V E C T O R - L E N
0016120 G T H 3 2 5 Q C H E C K - T
0016140 Y P E - F A I L 3 1 0 Q S Y
0016160 M B O L - N A M E 1 4 3 Q C
0016200 L : S T R I N G P ) \r ( 3 7 2 Q
0016220 S T R I N G 2 3 1 4 Q S T
0016240 R I N G 1 2 5 4 Q : E N D 2
0016260 2 2 6 Q : S T A R T 2 2 0
0016300 0 Q : E N D 1 1 5 5 Q : S
0016320 T A R T 1 ) \r ( 4 5 3 Q " i
0016340 m p r o p e r s u b s t r i n
0016360 g b o u n d s " 4 0 0 Q (
0016400 O R S T R I N G S Y M B O L
0016420 ) 3 2 2 Q ( O R S T R I N
0016440 G S Y M B O L ) ) \r S T R I N
0016460 G - N O T - G R E A T E R P D
0016500 1 \r ( L ( 0 - a r g s - ) )
0016520 001 226 026 \0 002 \0 e 021 001 \0 k a 021 361 020
0016540 021 P 025 l 002 a 272 H l 003 274 273 L d K 363
0016560 262 Q 277 j 275 H l 003 _ 016 277 276 O 016 d N
0016600 363 262 S 277 h _ 020 277 H l 003 _ 024 277 _ 022
0016620 277 O 024 d O 022 363 262 S 277 j _ 026 277 H l
0016640 003 _ 032 277 _ 030 277 O 032 d O 030 363 262 S 277
0016660 h _ 034 277 I _ 036 d \t \0 \0 262 [ 277 I 260
0016700 n a g \0 \0 360 225 L k 330 a 260 251 L l 002
0016720 324 \ 260 233 a g \0 \0 360 226 O 016 k 330 a 260
0016740 246 O 016 l 002 324 _ 016 260 226 a g \0 \0 360 226
0016760 O 024 k 330 a 260 246 O 024 l 002 324 _ 024 260 225
0017000 a g \0 \0 360 226 O 032 k 330 a 260 246 O 032 l
0017020 002 324 _ 032 260 225 004 l 004 360 264 \a I \t \0 \0
0017040 213 g \0 \0 O 036 o \0 \0 \0 \f \0 \0 Y O 020
0017060 246 d \t \0 \0 _ 020 277 J _ d \t \0 \0 223
0017100 277 J 260 031 004 l 004 360 264 \a J \t \0 \0 213 g
0017120 \0 \0 O o \0 \0 \0 \f \0 \0 Z O 034 246 d
0017140 \t \0 \0 _ 034 277 O 020 M 325 O 034 O 026 325 _
0017160 $ 277 _ " 277 j O " 363 244 j O $ 363 227 o
0017200 \0 \0 \0 \t \0 \0 277 I J M O 020 O 026 O 034
0017220 \r 006 \0 \0 _ & d O 020 : 221 i 020 M 325 O
0017240 $ : 221 h 020 I O & 266 006 \0 \0 323 _ ( 277
0017260 l a O ( 363 252 O ( d l z 363 245 l 325
0017300 201 O ( J O 026 O & M 325 324 266 006 \0 \0 323
0017320 _ * 277 l a O * 363 252 O * d l z 363 245
0017340 l 325 201 O * 363 263 274 O & 020 \0 ( 4 7
0017360 4 Q % % S T R I N G - C O M P
0017400 A R E - E Q U A L 4 5 6 Q C
0017420 L : E R R O R 4 1 3 Q V E C
0017440 T O R - L E N G T H 4 0 3 Q
0017460 C H E C K - T Y P E - F A I L
0017500 3 6 6 Q S Y M B O L - N A M E
0017520 3 4 7 Q C L : S T R I N G P
0017540 3 3 5 Q V E C T O R - L E N
0017560 G T H 3 2 5 Q C H E C K - T
0017600 Y P E - F A I L 3 1 0 Q S Y
0017620 M B O L - N A M E 1 4 3 Q C
0017640 L : S T R I N G P ) \r ( 5 6 7 Q
0017660 C H A R A C T E R 5 2 4 Q
0017700 C H A R A C T E R 3 7 2 Q S
0017720 T R I N G 2 3 1 4 Q S T R I
0017740 N G 1 2 5 4 Q : E N D 2 2
0017760 2 6 Q : S T A R T 2 2 0 0 Q
0020000 : E N D 1 1 5 5 Q : S T A
0020020 R T 1 ) \r ( 4 5 3 Q " i m p
0020040 r o p e r s u b s t r i n g
0020060 b o u n d s " 4 0 0 Q ( O R
0020100 S T R I N G S Y M B O L )
0020120 3 2 2 Q ( O R S T R I N G
0020140 S Y M B O L ) ) \r S T R I N G -
0020160 N O T - L E S S P D 1 \r ( L
0020200 ( 0 - a r g s - ) ) 001 227 026 \0
0020220 002 \0 e 021 001 \0 k a 021 361 020 021 P 025 l 002
0020240 a 272 H l 003 274 273 L d K 363 262 Q 277 j 275
0020260 H l 003 _ 016 277 276 O 016 d N 363 262 S 277 h
0020300 _ 020 277 H l 003 _ 024 277 _ 022 277 O 024 d O
0020320 022 363 262 S 277 j _ 026 277 H l 003 _ 032 277 _
0020340 030 277 O 032 d O 030 363 262 S 277 h _ 034 277 I
0020360 _ 036 d \t \0 \0 262 [ 277 I 260 n a g \0 \0
0020400 360 225 L k 330 a 260 251 L l 002 324 \ 260 233 a
0020420 g \0 \0 360 226 O 016 k 330 a 260 246 O 016 l 002
0020440 324 _ 016 260 226 a g \0 \0 360 226 O 024 k 330 a
0020460 260 246 O 024 l 002 324 _ 024 260 225 a g \0 \0 360
0020500 226 O 032 k 330 a 260 246 O 032 l 002 324 _ 032 260
0020520 225 004 l 004 360 264 \a I \t \0 \0 213 g \0 \0 O
0020540 036 o \0 \0 \0 \f \0 \0 Y O 020 246 d \t \0 \0
0020560 _ 020 277 J _ d \t \0 \0 223 277 J 260 031 004
0020600 l 004 360 264 \a J \t \0 \0 213 g \0 \0 O o
0020620 \0 \0 \0 \f \0 \0 Z O 034 246 d \t \0 \0 _ 034
0020640 277 O 020 M 325 O 034 O 026 325 _ $ 277 _ " 277
0020660 j O " 363 244 j O $ 363 227 o \0 \0 \0 \t \0
0020700 \0 277 I J M O 020 O 026 O 034 \r 006 \0 \0 _
0020720 & d M 325 O $ : 221 i 020 O 020 : 221 h 020
0020740 I O & 266 006 \0 \0 323 _ ( 277 l a O ( 363
0020760 252 O ( d l z 363 245 l 325 201 O ( J O
0021000 026 O & M 325 324 266 006 \0 \0 323 _ * 277 l a
0021020 O * 363 252 O * d l z 363 245 l 325 201 O
0021040 * 375 363 263 273 O & 020 \0 ( 4 7 4 Q %
0021060 % S T R I N G - C O M P A R E -
0021100 E Q U A L 4 5 6 Q C L : E R
0021120 R O R 4 1 3 Q V E C T O R -
0021140 L E N G T H 4 0 3 Q C H E C
0021160 K - T Y P E - F A I L 3 6 6 Q
0021200 S Y M B O L - N A M E 3 4 7
0021220 Q C L : S T R I N G P 3 3 5
0021240 Q V E C T O R - L E N G T H
0021260 3 2 5 Q C H E C K - T Y P E -
0021300 F A I L 3 1 0 Q S Y M B O L
0021320 - N A M E 1 4 3 Q C L : S T
0021340 R I N G P ) \r ( 5 6 7 Q C H A
0021360 R A C T E R 5 2 4 Q C H A R
0021400 A C T E R 3 7 2 Q S T R I N
0021420 G 2 3 1 4 Q S T R I N G 1
0021440 2 5 4 Q : E N D 2 2 2 6 Q
0021460 : S T A R T 2 2 0 0 Q : E N
0021500 D 1 1 5 5 Q : S T A R T 1 )
0021520 \r ( 4 5 3 Q " i m p r o p e
0021540 r s u b s t r i n g b o u n
0021560 d s " 4 0 0 Q ( O R S T R
0021600 I N G S Y M B O L ) 3 2 2 Q
0021620 ( O R S T R I N G S Y M B
0021640 O L ) ) \r S T R I N G - R I G H
0021660 T - T R I M D 1 \r ( L ( 1
0021700 S T R I N G 0 C H A R - B A
0021720 G ) ) \0 Q 001 \0 \0 002 A 021 001 \0 H d
0021740 \t \0 \0 223 277 A 260 030 004 l 004 360 264 \a A \t
0021760 \0 \0 212 g \0 \0 H o \0 \0 \0 \f \0 \0 022 b
0022000 002 d \t \0 \0 k 325 021 001 \0 j H 363 247 A H
0022020 266 @ \n \0 \0 255 H k 324 022 021 001 \0 A j H
0022040 \v \0 \0 020 H k 325 270 260 342 \0 ( 1 1 0 Q
0022060 S U B S E Q 7 2 Q C L : F
0022100 I N D 5 2 Q V E C T O R - L
0022120 E N G T H 4 3 Q C H E C K -
0022140 T Y P E - F A I L 2 7 Q S Y
0022160 M B O L - N A M E 1 0 Q C L
0022200 : S T R I N G P ) \r ( 3 3 Q S
0022220 T R I N G ) \r ( 4 0 Q ( O R
0022240 S T R I N G S Y M B O L ) )
0022260 \r S T R I N G - T R I M D 1 \r
0022300 ( L ( 1 S T R I N G 0 C
0022320 H A R - B A G ) ) \0 d 005 \0 \0 002
0022340 A 021 001 \0 H d \t \0 \0 223 277 A 260 030 004 l
0022360 004 360 264 \a A \t \0 \0 212 g \0 \0 H o \0 \0
0022400 \0 \f \0 \0 022 b 002 d \t \0 \0 021 A 004 j Y
0022420 d H : 252 277 A I 266 @ \n \0 \0 263 037 I 272
0022440 H k 325 273 J K 363 247 A K 266 @ \n \0 \0 257
0022460 K k 324 274 A J L \v \0 \0 020 I k 324 260 321
0022500 K 260 340 \0 ( 1 3 1 Q S U B S E Q
0022520 1 1 6 Q C L : F I N D 7 3
0022540 Q C L : F I N D 5 2 Q V E
0022560 C T O R - L E N G T H 4 3 Q
0022600 C H E C K - T Y P E - F A I L
0022620 2 7 Q S Y M B O L - N A M E
0022640 1 0 Q C L : S T R I N G P ) \r
0022660 ( 3 3 Q S T R I N G ) \r ( 4
0022700 0 Q ( O R S T R I N G S Y
0022720 M B O L ) ) \r S T R I N G - U P
0022740 C A S E D 1 \r ( L ( 0 - a
0022760 r g s - ) ) 001 \b 022 \0 002 \0 e 021 001
0023000 \0 k a 021 361 020 021 020 021 H l 002 273 272 K d
0023020 J 363 262 " 277 j 274 H l 002 276 275 N d M 363
0023040 262 ' 277 h _ 016 277 I _ 020 d \t \0 \0 262 ,
0023060 277 I 260 ? a g \0 \0 360 225 K k 330 a 260 330
0023100 K l 002 324 [ 260 312 a g \0 \0 360 225 N k 330
0023120 a 260 323 N l 002 324 ^ 260 305 004 l 004 360 264 \a
0023140 I \t \0 \0 213 g \0 \0 O 020 o \0 \0 \0 \f \0
0023160 \0 Y d \t \0 \0 _ 022 277 O 016 244 O 022 _ 016
0023200 277 L O 016 363 227 o \0 \0 \0 \t \0 \0 277 O 022
0023220 \t \0 \0 _ 024 277 O 022 j _ " 277 _ 277 O
0023240 O " 363 262 ] L O " 363 263 : O 016 O "
0023260 363 262 3 O 024 _ 032 277 O " _ 030 277 l \a I
0023300 O " 266 006 \0 \0 323 _ 026 277 l a O 026 363 252
0023320 O 026 d l z 363 245 l 325 201 O 026 321 O 032
0023340 O 030 260 024 O 024 _ 036 277 O " _ 034 277 I O
0023360 " 266 O 036 O 034 267 277 O " k 324 _ " 277 260
0023400 240 O 024 020 \0 ( 2 2 5 Q M A K E -
0023420 S T R I N G 2 1 7 Q C L : E
0023440 R R O R 1 7 0 Q V E C T O R
0023460 - L E N G T H 1 6 3 Q C H E
0023500 C K - T Y P E - F A I L 1 4 6
0023520 Q S Y M B O L - N A M E 6 0
0023540 Q C L : S T R I N G P ) \r ( 3
0023560 1 0 Q C H A R A C T E R 1 5
0023600 2 Q S T R I N G 1 1 5 Q :
0023620 E N D 7 2 Q : S T A R T ) \r
0023640 ( 2 1 4 Q " I m p r o p e r
0023660 s u b s t r i n g b o u n d
0023700 s " 1 6 0 Q ( O R S T R I
0023720 N G S Y M B O L ) ) \r S T R I
0023740 N G / = D 1 \r ( L ( 0 - a
0023760 r g s - ) ) 001 M 023 \0 002 \0 e 021 001
0024000 \0 k a 021 361 020 021 022 l 002 a 272 H l 003
0024020 274 273 L d K 363 262 Q 277 j 275 H l 003 _ 016
0024040 277 276 O 016 d N 363 262 S 277 h _ 020 277 H l
0024060 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 S 277
0024100 j _ 026 277 H l 003 _ 032 277 _ 030 277 O 032 d
0024120 O 030 363 262 S 277 h _ 034 277 I _ 036 d \t \0
0024140 \0 262 [ 277 I 260 n a g \0 \0 360 225 L k 330
0024160 a 260 251 L l 002 324 \ 260 233 a g \0 \0 360 226
0024200 O 016 k 330 a 260 246 O 016 l 002 324 _ 016 260 226
0024220 a g \0 \0 360 226 O 024 k 330 a 260 246 O 024 l
0024240 002 324 _ 024 260 225 a g \0 \0 360 226 O 032 k 330
0024260 a 260 246 O 032 l 002 324 _ 032 260 225 004 l 004 360
0024300 264 \a I \t \0 \0 213 g \0 \0 O 036 o \0 \0 \0
0024320 \f \0 \0 Y O 020 246 d \t \0 \0 _ 020 277 J _
0024340 d \t \0 \0 223 277 J 260 031 004 l 004 360 264 \a
0024360 J \t \0 \0 213 g \0 \0 O o \0 \0 \0 \f \0
0024400 \0 Z O 034 246 d \t \0 \0 _ 034 277 O 020 M 325
0024420 O 034 O 026 325 _ $ 277 _ " 277 j O " 363 244
0024440 j O $ 363 227 o \0 \0 \0 \t \0 \0 277 O " O
0024460 $ : h 360 265 024 O 020 I J M O 020 O 026 O
0024500 034 \r 006 \0 \0 : h 360 020 \0 ( 5 0 7 Q
0024520 % % S T R I N G - C O M P A R E
0024540 4 5 6 Q C L : E R R O R 4
0024560 1 3 Q V E C T O R - L E N G T
0024600 H 4 0 3 Q C H E C K - T Y P
0024620 E - F A I L 3 6 6 Q S Y M B
0024640 O L - N A M E 3 4 7 Q C L :
0024660 S T R I N G P 3 3 5 Q V E C
0024700 T O R - L E N G T H 3 2 5 Q
0024720 C H E C K - T Y P E - F A I L
0024740 3 1 0 Q S Y M B O L - N A M E
0024760 1 4 3 Q C L : S T R I N G P
0025000 ) \r ( 3 7 2 Q S T R I N G 2
0025020 3 1 4 Q S T R I N G 1 2 5 4
0025040 Q : E N D 2 2 2 6 Q : S T
0025060 A R T 2 2 0 0 Q : E N D 1
0025100 1 5 5 Q : S T A R T 1 ) \r (
0025120 4 5 3 Q " i m p r o p e r s
0025140 u b s t r i n g b o u n d s "
0025160 4 0 0 Q ( O R S T R I N G
0025200 S Y M B O L ) 3 2 2 Q ( O
0025220 R S T R I N G S Y M B O L )
0025240 ) \r S T R I N G < D 1 \r ( L
0025260 ( 0 - a r g s - ) ) 001 t 024 \0
0025300 002 \0 e 021 001 \0 k a 021 361 020 021 0 023 l 002
0025320 a 272 H l 003 274 273 L d K 363 262 Q 277 j 275
0025340 H l 003 _ 016 277 276 O 016 d N 363 262 S 277 h
0025360 _ 020 277 H l 003 _ 024 277 _ 022 277 O 024 d O
0025400 022 363 262 S 277 j _ 026 277 H l 003 _ 032 277 _
0025420 030 277 O 032 d O 030 363 262 S 277 h _ 034 277 I
0025440 _ 036 d \t \0 \0 262 [ 277 I 260 n a g \0 \0
0025460 360 225 L k 330 a 260 251 L l 002 324 \ 260 233 a
0025500 g \0 \0 360 226 O 016 k 330 a 260 246 O 016 l 002
0025520 324 _ 016 260 226 a g \0 \0 360 226 O 024 k 330 a
0025540 260 246 O 024 l 002 324 _ 024 260 225 a g \0 \0 360
0025560 226 O 032 k 330 a 260 246 O 032 l 002 324 _ 032 260
0025600 225 004 l 004 360 264 \a I \t \0 \0 213 g \0 \0 O
0025620 036 o \0 \0 \0 \f \0 \0 Y O 020 246 d \t \0 \0
0025640 _ 020 277 J _ d \t \0 \0 223 277 J 260 031 004
0025660 l 004 360 264 \a J \t \0 \0 213 g \0 \0 O o
0025700 \0 \0 \0 \f \0 \0 Z O 034 246 d \t \0 \0 _ 034
0025720 277 O 020 M 325 O 034 O 026 325 _ $ 277 _ " 277
0025740 j O " 363 244 j O $ 363 227 o \0 \0 \0 \t \0
0025760 \0 277 I J M O 020 O 026 O 034 \r 006 \0 \0 _
0026000 & d O 020 : 232 277 O $ O " 363 264 ( O &
0026020 020 M 325 O $ : 221 h 020 I O & 266 006 \0 \0
0026040 323 J O 026 O & M 325 324 266 006 \0 \0 323 375 363
0026060 264 004 O & 020 \0 ( 4 7 4 Q % % S T
0026100 R I N G - C O M P A R E 4 5 6
0026120 Q C L : E R R O R 4 1 3 Q
0026140 V E C T O R - L E N G T H 4 0
0026160 3 Q C H E C K - T Y P E - F A
0026200 I L 3 6 6 Q S Y M B O L - N
0026220 A M E 3 4 7 Q C L : S T R I
0026240 N G P 3 3 5 Q V E C T O R -
0026260 L E N G T H 3 2 5 Q C H E C
0026300 K - T Y P E - F A I L 3 1 0 Q
0026320 S Y M B O L - N A M E 1 4 3
0026340 Q C L : S T R I N G P ) \r ( 5
0026360 5 2 Q C H A R A C T E R 5 3
0026400 5 Q C H A R A C T E R 3 7 2
0026420 Q S T R I N G 2 3 1 4 Q S
0026440 T R I N G 1 2 5 4 Q : E N D
0026460 2 2 2 6 Q : S T A R T 2 2
0026500 0 0 Q : E N D 1 1 5 5 Q :
0026520 S T A R T 1 ) \r ( 4 5 3 Q "
0026540 i m p r o p e r s u b s t r i
0026560 n g b o u n d s " 4 0 0 Q
0026600 ( O R S T R I N G S Y M B O
0026620 L ) 3 2 2 Q ( O R S T R I
0026640 N G S Y M B O L ) ) \r S T R I
0026660 N G < = D 1 \r ( L ( 0 - a
0026700 r g s - ) ) 001 j 024 \0 002 \0 e 021 001
0026720 \0 k a 021 361 020 021 0 023 l 002 a 272 H l 003
0026740 274 273 L d K 363 262 Q 277 j 275 H l 003 _ 016
0026760 277 276 O 016 d N 363 262 S 277 h _ 020 277 H l
0027000 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 S 277
0027020 j _ 026 277 H l 003 _ 032 277 _ 030 277 O 032 d
0027040 O 030 363 262 S 277 h _ 034 277 I _ 036 d \t \0
0027060 \0 262 [ 277 I 260 n a g \0 \0 360 225 L k 330
0027100 a 260 251 L l 002 324 \ 260 233 a g \0 \0 360 226
0027120 O 016 k 330 a 260 246 O 016 l 002 324 _ 016 260 226
0027140 a g \0 \0 360 226 O 024 k 330 a 260 246 O 024 l
0027160 002 324 _ 024 260 225 a g \0 \0 360 226 O 032 k 330
0027200 a 260 246 O 032 l 002 324 _ 032 260 225 004 l 004 360
0027220 264 \a I \t \0 \0 213 g \0 \0 O 036 o \0 \0 \0
0027240 \f \0 \0 Y O 020 246 d \t \0 \0 _ 020 277 J _
0027260 d \t \0 \0 223 277 J 260 031 004 l 004 360 264 \a
0027300 J \t \0 \0 213 g \0 \0 O o \0 \0 \0 \f \0
0027320 \0 Z O 034 246 d \t \0 \0 _ 034 277 O 020 M 325
0027340 O 034 O 026 325 _ $ 277 _ " 277 j O " 363 244
0027360 j O $ 363 227 o \0 \0 \0 \t \0 \0 277 I J M
0027400 O 020 O 026 O 034 \r 006 \0 \0 _ & d O 020 :
0027420 221 i 020 M 325 O $ : 221 h 020 I O & 266 006
0027440 \0 \0 323 J O 026 O & M 325 324 266 006 \0 \0 323
0027460 363 263 350 O & 020 \0 ( 4 7 4 Q % % S
0027500 T R I N G - C O M P A R E 4 5
0027520 6 Q C L : E R R O R 4 1 3 Q
0027540 V E C T O R - L E N G T H 4
0027560 0 3 Q C H E C K - T Y P E - F
0027600 A I L 3 6 6 Q S Y M B O L -
0027620 N A M E 3 4 7 Q C L : S T R
0027640 I N G P 3 3 5 Q V E C T O R
0027660 - L E N G T H 3 2 5 Q C H E
0027700 C K - T Y P E - F A I L 3 1 0
0027720 Q S Y M B O L - N A M E 1 4
0027740 3 Q C L : S T R I N G P ) \r (
0027760 5 4 1 Q C H A R A C T E R 5
0030000 2 4 Q C H A R A C T E R 3 7
0030020 2 Q S T R I N G 2 3 1 4 Q
0030040 S T R I N G 1 2 5 4 Q : E N
0030060 D 2 2 2 6 Q : S T A R T 2
0030100 2 0 0 Q : E N D 1 1 5 5 Q
0030120 : S T A R T 1 ) \r ( 4 5 3 Q
0030140 " i m p r o p e r s u b s t r
0030160 i n g b o u n d s " 4 0 0 Q
0030200 ( O R S T R I N G S Y M B
0030220 O L ) 3 2 2 Q ( O R S T R
0030240 I N G S Y M B O L ) ) \r S T R
0030260 I N G = D 1 \r ( L ( 0 - a
0030300 r g s - ) ) 001 I 023 \0 002 \0 e 021 001
0030320 \0 k a 021 361 020 021 022 l 002 a 272 H l 003
0030340 274 273 L d K 363 262 Q 277 j 275 H l 003 _ 016
0030360 277 276 O 016 d N 363 262 S 277 h _ 020 277 H l
0030400 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 S 277
0030420 j _ 026 277 H l 003 _ 032 277 _ 030 277 O 032 d
0030440 O 030 363 262 S 277 h _ 034 277 I _ 036 d \t \0
0030460 \0 262 [ 277 I 260 n a g \0 \0 360 225 L k 330
0030500 a 260 251 L l 002 324 \ 260 233 a g \0 \0 360 226
0030520 O 016 k 330 a 260 246 O 016 l 002 324 _ 016 260 226
0030540 a g \0 \0 360 226 O 024 k 330 a 260 246 O 024 l
0030560 002 324 _ 024 260 225 a g \0 \0 360 226 O 032 k 330
0030600 a 260 246 O 032 l 002 324 _ 032 260 225 004 l 004 360
0030620 264 \a I \t \0 \0 213 g \0 \0 O 036 o \0 \0 \0
0030640 \f \0 \0 Y O 020 246 d \t \0 \0 _ 020 277 J _
0030660 d \t \0 \0 223 277 J 260 031 004 l 004 360 264 \a
0030700 J \t \0 \0 213 g \0 \0 O o \0 \0 \0 \f \0
0030720 \0 Z O 034 246 d \t \0 \0 _ 034 277 O 020 M 325
0030740 O 034 O 026 325 _ $ 277 _ " 277 j O " 363 244
0030760 j O $ 363 227 o \0 \0 \0 \t \0 \0 277 O " O
0031000 $ : 264 022 O 020 I J M O 020 O 026 O 034 \r
0031020 006 \0 \0 : 020 \0 ( 5 0 5 Q % % S T
0031040 R I N G - C O M P A R E 4 5 6
0031060 Q C L : E R R O R 4 1 3 Q
0031100 V E C T O R - L E N G T H 4 0
0031120 3 Q C H E C K - T Y P E - F A
0031140 I L 3 6 6 Q S Y M B O L - N
0031160 A M E 3 4 7 Q C L : S T R I
0031200 N G P 3 3 5 Q V E C T O R -
0031220 L E N G T H 3 2 5 Q C H E C
0031240 K - T Y P E - F A I L 3 1 0 Q
0031260 S Y M B O L - N A M E 1 4 3
0031300 Q C L : S T R I N G P ) \r ( 3
0031320 7 2 Q S T R I N G 2 3 1 4 Q
0031340 S T R I N G 1 2 5 4 Q : E
0031360 N D 2 2 2 6 Q : S T A R T 2
0031400 2 0 0 Q : E N D 1 1 5 5 Q
0031420 : S T A R T 1 ) \r ( 4 5 3 Q
0031440 " i m p r o p e r s u b s t
0031460 r i n g b o u n d s " 4 0 0
0031500 Q ( O R S T R I N G S Y M
0031520 B O L ) 3 2 2 Q ( O R S T
0031540 R I N G S Y M B O L ) ) \r S T
0031560 R I N G > D 1 \r ( L ( 0 -
0031600 a r g s - ) ) 001 s 024 \0 002 \0 e 021
0031620 001 \0 k a 021 361 020 021 0 023 l 002 a 272 H l
0031640 003 274 273 L d K 363 262 Q 277 j 275 H l 003 _
0031660 016 277 276 O 016 d N 363 262 S 277 h _ 020 277 H
0031700 l 003 _ 024 277 _ 022 277 O 024 d O 022 363 262 S
0031720 277 j _ 026 277 H l 003 _ 032 277 _ 030 277 O 032
0031740 d O 030 363 262 S 277 h _ 034 277 I _ 036 d \t
0031760 \0 \0 262 [ 277 I 260 n a g \0 \0 360 225 L k
0032000 330 a 260 251 L l 002 324 \ 260 233 a g \0 \0 360
0032020 226 O 016 k 330 a 260 246 O 016 l 002 324 _ 016 260
0032040 226 a g \0 \0 360 226 O 024 k 330 a 260 246 O 024
0032060 l 002 324 _ 024 260 225 a g \0 \0 360 226 O 032 k
0032100 330 a 260 246 O 032 l 002 324 _ 032 260 225 004 l 004
0032120 360 264 \a I \t \0 \0 213 g \0 \0 O 036 o \0 \0
0032140 \0 \f \0 \0 Y O 020 246 d \t \0 \0 _ 020 277 J
0032160 _ d \t \0 \0 223 277 J 260 031 004 l 004 360 264
0032200 \a J \t \0 \0 213 g \0 \0 O o \0 \0 \0 \f
0032220 \0 \0 Z O 034 246 d \t \0 \0 _ 034 277 O 020 M
0032240 325 O 034 O 026 325 _ $ 277 _ " 277 j O " 363
0032260 244 j O $ 363 227 o \0 \0 \0 \t \0 \0 277 I J
0032300 M O 020 O 026 O 034 \r 006 \0 \0 _ & d M 325
0032320 O $ : 232 277 O " O $ 363 264 % O & 020 O
0032340 020 : 221 h 020 I O & 266 006 \0 \0 323 J O 026
0032360 O & M 325 324 266 006 \0 \0 323 363 264 004 O & 020
0032400 \0 ( 4 7 4 Q % % S T R I N G -
0032420 C O M P A R E 4 5 6 Q C L :
0032440 E R R O R 4 1 3 Q V E C T O
0032460 R - L E N G T H 4 0 3 Q C H
0032500 E C K - T Y P E - F A I L 3 6
0032520 6 Q S Y M B O L - N A M E 3
0032540 4 7 Q C L : S T R I N G P 3
0032560 3 5 Q V E C T O R - L E N G T
0032600 H 3 2 5 Q C H E C K - T Y P
0032620 E - F A I L 3 1 0 Q S Y M B
0032640 O L - N A M E 1 4 3 Q C L :
0032660 S T R I N G P ) \r ( 5 5 2 Q C
0032700 H A R A C T E R 5 3 5 Q C H
0032720 A R A C T E R 3 7 2 Q S T R
0032740 I N G 2 3 1 4 Q S T R I N G
0032760 1 2 5 4 Q : E N D 2 2 2 6
0033000 Q : S T A R T 2 2 0 0 Q :
0033020 E N D 1 1 5 5 Q : S T A R T
0033040 1 ) \r ( 4 5 3 Q " i m p r o
0033060 p e r s u b s t r i n g b o
0033100 u n d s " 4 0 0 Q ( O R S
0033120 T R I N G S Y M B O L ) 3 2
0033140 2 Q ( O R S T R I N G S Y
0033160 M B O L ) ) \r S T R I N G > =
0033200 D 1 \r ( L ( 0 - a r g s - )
0033220 ) 001 k 024 \0 002 \0 e 021 001 \0 k a 021 361
0033240 020 021 0 023 l 002 a 272 H l 003 274 273 L d K
0033260 363 262 Q 277 j 275 H l 003 _ 016 277 276 O 016 d
0033300 N 363 262 S 277 h _ 020 277 H l 003 _ 024 277 _
0033320 022 277 O 024 d O 022 363 262 S 277 j _ 026 277 H
0033340 l 003 _ 032 277 _ 030 277 O 032 d O 030 363 262 S
0033360 277 h _ 034 277 I _ 036 d \t \0 \0 262 [ 277 I
0033400 260 n a g \0 \0 360 225 L k 330 a 260 251 L l
0033420 002 324 \ 260 233 a g \0 \0 360 226 O 016 k 330 a
0033440 260 246 O 016 l 002 324 _ 016 260 226 a g \0 \0 360
0033460 226 O 024 k 330 a 260 246 O 024 l 002 324 _ 024 260
0033500 225 a g \0 \0 360 226 O 032 k 330 a 260 246 O 032
0033520 l 002 324 _ 032 260 225 004 l 004 360 264 \a I \t \0
0033540 \0 213 g \0 \0 O 036 o \0 \0 \0 \f \0 \0 Y O
0033560 020 246 d \t \0 \0 _ 020 277 J _ d \t \0 \0
0033600 223 277 J 260 031 004 l 004 360 264 \a J \t \0 \0 213
0033620 g \0 \0 O o \0 \0 \0 \f \0 \0 Z O 034 246
0033640 d \t \0 \0 _ 034 277 O 020 M 325 O 034 O 026 325
0033660 _ $ 277 _ " 277 j O " 363 244 j O $ 363 227
0033700 o \0 \0 \0 \t \0 \0 277 I J M O 020 O 026 O
0033720 034 \r 006 \0 \0 _ & d M 325 O $ : 221 i 020
0033740 O 020 : 221 h 020 I O & 266 006 \0 \0 323 J O
0033760 026 O & M 325 324 266 006 \0 \0 323 375 363 263 347 O
0034000 & 020 \0 ( 4 7 4 Q % % S T R I N
0034020 G - C O M P A R E 4 5 6 Q C
0034040 L : E R R O R 4 1 3 Q V E C
0034060 T O R - L E N G T H 4 0 3 Q
0034100 C H E C K - T Y P E - F A I L
0034120 3 6 6 Q S Y M B O L - N A M E
0034140 3 4 7 Q C L : S T R I N G P
0034160 3 3 5 Q V E C T O R - L E N
0034200 G T H 3 2 5 Q C H E C K - T
0034220 Y P E - F A I L 3 1 0 Q S Y
0034240 M B O L - N A M E 1 4 3 Q C
0034260 L : S T R I N G P ) \r ( 5 4 1 Q
0034300 C H A R A C T E R 5 2 4 Q
0034320 C H A R A C T E R 3 7 2 Q S
0034340 T R I N G 2 3 1 4 Q S T R I
0034360 N G 1 2 5 4 Q : E N D 2 2
0034400 2 6 Q : S T A R T 2 2 0 0 Q
0034420 : E N D 1 1 5 5 Q : S T A
0034440 R T 1 ) \r ( 4 5 3 Q " i m p
0034460 r o p e r s u b s t r i n g
0034500 b o u n d s " 4 0 0 Q ( O R
0034520 S T R I N G S Y M B O L )
0034540 3 2 2 Q ( O R S T R I N G
0034560 S Y M B O L ) ) \r e x p a n d -
0034600 W I T H - O N E - S T R I N G
0034620 D 1 \r ( L ( 1 $ $ M A C R O
0034640 - E N V I R O N M E N T 0 $
0034660 $ M A C R O - F O R M ) ) \0 204
0034700 \a \0 \0 002 @ 002 021 a 006 H 001 271 H 002 Z 001
0034720 273 J 002 \ 001 275 L 002 276 g \0 \0 g \0 \0 I
0034740 g \0 \0 I g \0 \0 I h 032 032 g \0 \0 g \0
0034760 \0 I h 032 032 h 032 032 h 032 032 032 032 h 032 032
0035000 032 g \0 \0 g \0 \0 g \0 \0 I h 032 032 h 032
0035020 032 h 032 g \0 \0 g \0 \0 M h 032 032 g \0 \0
0035040 M o \0 \0 \0 032 032 h 032 032 032 g \0 \0 g \0
0035060 \0 K M h 032 032 032 o \0 \0 \0 032 032 N 032 032
0035100 032 032 h 032 032 032 020 \0 N I L \r ( 1 5 4
0035120 Q > 1 5 1 Q C L : I F 1
0035140 3 3 Q S E T Q 1 2 4 Q N U
0035160 L L 1 2 1 Q C L : I F 1 0
0035200 5 Q V E C T O R - L E N G T H
0035220 1 0 2 Q S L E N 7 7 Q L
0035240 E T 5 4 Q S Y M B O L - N A
0035260 M E 5 1 Q S Y M B O L 4 2
0035300 Q S T R I N G 3 6 Q E T Y
0035320 P E C A S E 3 2 Q S E T Q
0035340 2 7 Q P R O G N ) \r ( 1 6 6
0035360 Q ( ( C L : E R R O R " I m
0035400 p r o p e r s u b s t r i n g
0035420 b o u n d s " ) ) 1 4 0 Q
0035440 ( S L E N ) ) \r ( S E T F - M A
0035460 C R O - F U N C T I O N ( Q U
0035500 O T E W I T H - O N E - S T R
0035520 I N G ) ( Q U O T E e x p a
0035540 n d - W I T H - O N E - S T R I
0035560 N G ) ) \r e x p a n d - W I T H
0035600 - O N E - S T R I N G - O N L Y
0035620 D 1 \r ( L ( 1 $ $ M A C R
0035640 O - E N V I R O N M E N T 0
0035660 $ $ M A C R O - F O R M ) ) \0
0035700 u \a \0 \0 002 @ 002 021 a 006 H 001 271 H 002 Z
0035720 001 273 J 002 \ 001 275 L 002 276 g \0 \0 g \0 \0
0035740 g \0 \0 g \0 \0 I h 032 032 h 032 032 o \0 \0
0035760 \0 032 032 g \0 \0 g \0 \0 g \0 \0 I h 032 032
0036000 h 032 032 h 032 g \0 \0 g \0 \0 M h 032 032 g
0036020 \0 \0 M o \0 \0 \0 032 032 h 032 032 032 g \0 \0
0036040 g \0 \0 K M h 032 032 032 o \0 \0 \0 032 032 N
0036060 032 032 032 032 h 032 032 032 020 \0 N I L \r ( 1
0036100 3 5 Q > 1 3 2 Q C L : I F
0036120 1 1 4 Q S E T Q 1 0 5 Q
0036140 N U L L 1 0 2 Q C L : I F
0036160 6 6 Q V E C T O R - L E N G T
0036200 H 6 3 Q S L E N 6 0 Q L
0036220 E T 4 0 Q C L : S T R I N G
0036240 P 3 5 Q N O T 3 2 Q C L
0036260 : I F 2 7 Q P R O G N ) \r (
0036300 1 4 7 Q ( ( C L : E R R O R
0036320 " I m p r o p e r s u b s t
0036340 r i n g b o u n d s " ) ) 1
0036360 2 1 Q ( S L E N ) 5 3 Q (
0036400 ( C L : E R R O R " N o t a
0036420 s t r i n g ~ S " S T R I
0036440 N G ) ) ) \r ( S E T F - M A C R
0036460 O - F U N C T I O N ( Q U O T
0036500 E W I T H - O N E - S T R I N
0036520 G - O N L Y ) ( Q U O T E e
0036540 x p a n d - W I T H - O N E - S
0036560 T R I N G - O N L Y ) ) \r e x p
0036600 a n d - W I T H - S T R I N G
0036620 D 1 \r ( L ( 1 $ $ M A C R O
0036640 - E N V I R O N M E N T 0 $
0036660 $ M A C R O - F O R M ) ) \0 C
0036700 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H 002 272 g
0036720 \0 \0 g \0 \0 I g \0 \0 I g \0 \0 I h 032
0036740 032 g \0 \0 g \0 \0 I h 032 032 h 032 032 h 032
0036760 032 032 032 h 032 032 032 g \0 \0 o \0 \0 \0 J 032
0037000 032 h 032 032 032 020 \0 N I L \r ( 6 5 Q
0037020 L E T 4 2 Q S Y M B O L - N
0037040 A M E 3 7 Q S Y M B O L 3
0037060 0 Q S T R I N G 2 4 Q E T
0037100 Y P E C A S E 2 0 Q S E T Q
0037120 1 5 Q P R O G N ) \r ( 7 1
0037140 Q ( ( S L E N ( V E C T O R
0037160 - L E N G T H S T R I N G ) )
0037200 ) ) \r ( S E T F - M A C R O - F
0037220 U N C T I O N ( Q U O T E W
0037240 I T H - S T R I N G ) ( Q U O
0037260 T E e x p a n d - W I T H - S
0037300 T R I N G ) ) \r e x p a n d - W
0037320 I T H - T W O - S T R I N G S
0037340 D 1 \r ( L ( 1 $ $ M A C R O
0037360 - E N V I R O N M E N T 0 $
0037400 $ M A C R O - F O R M ) ) \0 364
0037420 \r \0 \0 002 @ 002 021 301 \f H 001 271 H 002 Z 001
0037440 273 J 002 \ 001 275 L 002 ^ 001 _ 016 277 N 002 _
0037460 020 001 _ 022 277 O 020 002 _ 024 001 _ 026 277 O 024
0037500 002 _ 030 277 g \0 \0 g \0 \0 I g \0 \0 I g
0037520 \0 \0 I h 032 032 g \0 \0 g \0 \0 I h 032 032
0037540 h 032 032 h 032 032 032 032 h 032 032 032 g \0 \0 g
0037560 \0 \0 O 016 h 032 032 g \0 \0 O 016 g \0 \0 I
0037600 h 032 032 h 032 032 032 h 032 032 032 g \0 \0 K g
0037620 \0 \0 K g \0 \0 K h 032 032 g \0 \0 g \0 \0
0037640 K h 032 032 h 032 032 h 032 032 032 032 h 032 032 032
0037660 g \0 \0 g \0 \0 O 026 h 032 032 g \0 \0 O 026
0037700 g \0 \0 K h 032 032 h 032 032 032 h 032 032 032 g
0037720 \0 \0 g \0 \0 g \0 \0 O 016 M h 032 032 032 h
0037740 032 032 g \0 \0 g \0 \0 O 026 O 022 h 032 032 032
0037760 h 032 032 h 032 032 o \0 \0 \0 O 030 032 032 032 h
0040000 032 032 032 032 032 032 020 \0 N I L \r ( 3 2 3
0040020 Q - 3 2 0 Q S L E N 2 3
0040040 0 3 Q - 3 0 0 Q S L E N 1
0040060 2 7 5 Q L E T 2 5 6 Q V
0040100 E C T O R - L E N G T H 2 5 1
0040120 Q S E T Q 2 4 1 Q N U L L
0040140 2 3 6 Q C L : I F 2 1 3 Q
0040160 S Y M B O L - N A M E 2 1 0
0040200 Q S Y M B O L 2 0 1 Q S T
0040220 R I N G 1 7 5 Q E T Y P E C
0040240 A S E 1 7 1 Q S E T Q 1 5
0040260 2 Q V E C T O R - L E N G T H
0040300 1 4 5 Q S E T Q 1 3 5 Q
0040320 N U L L 1 3 2 Q C L : I F
0040340 1 0 7 Q S Y M B O L - N A M E
0040360 1 0 4 Q S Y M B O L 7 5 Q
0040400 S T R I N G 7 1 Q E T Y P
0040420 E C A S E 6 5 Q S E T Q 6
0040440 2 Q P R O G N ) \r ( 3 4 5 Q
0040460 ( C L : I F ( O R ( M I N
0040500 U S P S L E N 1 ) ( M I N U
0040520 S P S L E N 2 ) ) ( C L : E
0040540 R R O R " i m p r o p e r s
0040560 u b s t r i n g b o u n d s "
0040600 ) ) ) \r ( S E T F - M A C R O -
0040620 F U N C T I O N ( Q U O T E
0040640 W I T H - T W O - S T R I N G S
0040660 ) ( Q U O T E e x p a n d -
0040700 W I T H - T W O - S T R I N G S
0040720 ) ) \r % % S T R I N G - C O M P
0040740 A R E D 1 \r ( L ( 5 E N D
0040760 2 4 S T A R T 2 3 E N D
0041000 1 2 S T A R T 1 1 S T R
0041020 I N G 2 0 S T R I N G 1 ) )
0041040 \0 K 002 \0 \0 006 B d D : 262 $ 277 B E
0041060 d C 363 221 277 C 021 002 001 H d I : 251 277 @
0041100 H 266 A H 266 : 241 H 020 H k 324 X 260 355 D
0041120 021 002 001 H d C : 255 277 I E : 247 @ H 266
0041140 A I 266 : 241 H 020 H k 324 I k 324 271 X 260
0041160 345 \0 N I L \r N I L \r ( ) \r % % S
0041200 T R I N G - C O M P A R E - E Q
0041220 U A L D 1 \r ( L ( 5 E N D
0041240 2 4 S T A R T 2 3 E N D
0041260 1 2 S T A R T 1 1 S T R
0041300 I N G 2 0 S T R I N G 1 ) )
0041320 \0 256 004 \0 \0 006 B d D : 262 U 277 B E
0041340 d C 363 221 277 C 021 " 003 H d I : 263 < 277
0041360 l \a @ H 266 006 \0 \0 323 272 l a J 363 251 J
0041400 d l z 363 244 l 325 200 J 321 l \a A H 266
0041420 006 \0 \0 323 273 l a K 363 251 K d l z 363 244
0041440 l 325 200 K 321 : 241 H 020 H k 324 X 260 274
0041460 D 021 " 003 H d C : 263 A 277 I E : 263 :
0041500 l \a @ H 266 006 \0 \0 323 272 l a J 363 251 J
0041520 d l z 363 244 l 325 200 J 321 l \a A I 266
0041540 006 \0 \0 323 273 l a K 363 251 K d l z 363 244
0041560 l 325 200 K 321 : 241 H 020 H k 324 I k 324
0041600 271 X 260 263 \0 N I L \r ( 2 1 3 Q C
0041620 H A R A C T E R 1 6 0 Q C H
0041640 A R A C T E R 7 3 Q C H A R
0041660 A C T E R 4 0 Q C H A R A C
0041700 T E R ) \r ( ) \r ( P U T P R O P
0041720 S C M L S T R I N G F I L E
0041740 T Y P E C O M P I L E - F I L
0041760 E ) \r ( P U T P R O P S C M L
0042000 S T R I N G C O P Y R I G H T
0042020 ( " X e r o x C o r p o r a
0042040 t i o n " 1 9 8 5 1 9 8 6 )
0042060 ) \r N I L \r
0042066