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