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