$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>MSPARSE!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 1 2 - J a n - 8
0000140 7 1 7 : 0 6 : 3 2 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > M S P A R S E . ; 5
0000220 006 001 6 7 9 3 5 \r \r
0000240 c h a n g e s t o % :
0000260 ( F N S M S C O M M A N D M
0000300 S S E T S E T T Y P E M S J O
0000320 I N S E T M S F I X U P T Y P
0000340 E S M S V E R B T Y P E M S
0000360 M A T C H R A T I N G \r
0000400
0000420 F I X V E R B S E T
0000440 T Y P E M S K N O W N M S S
0000460 I M P L E S E T ) \r \r
0000500 p r e v i o u s d a t e % :
0000520 " 5 - D e c - 8 6 0 7 : 2
0000540 3 : 0 8 " { E R I S } < L I S
0000560 P C O R E > L I B R A R Y > M S
0000600 P A R S E . ; 3 ) \r \r \r ( * "
0000620 \r C o p y r i g h t ( c ) 1
0000640 9 8 4 , 1 9 8 6 , 1 9 8 7
0000660 b y X e r o x C o r p o r a
0000700 t i o n . A l l r i g h t
0000720 s r e s e r v e d . \r " ) \r \r
0000740 ( P R E T T Y C O M P R I N T
0000760 M S P A R S E C O M S ) \r \r ( R
0001000 P A Q Q 006 002 M S P A R S E C O
0001020 M S 006 001 \r [ ( F
0001040 N S M S K N O W N M S D O E
0001060 S M S S E T S E T T Y P E M
0001100 S F A I L M S J O I N S E T
0001120 M S B L O C K M S P A T H O P
0001140 T I O N S M S P A R S E M S
0001160 F I X U P T Y P E S \r
0001200 M S V E R B T
0001220 Y P E M S S E T R E P M S S
0001240 E E K P H R A S E M S T Y P E
0001260 M A T C H R A T I N G M S T R
0001300 Y S P E L L M S T R Y P A R S
0001320 E M S C O M M A N D \r
0001340 M S S U B J
0001360 T Y P E M S O B J T Y P E M
0001400 S V E R B M S S P L S T M S
0001420 W O R D ? M S S E E K - W O R
0001440 D M S S E E K T Y P E M S R
0001460 E S P E L L M S J O I N \r
0001500 M S S I
0001520 M P L E S E T M S M A T C H R
0001540 A T I N G M S V E R B E D M
0001560 S C A N T M S J O I N D E T S
0001600 M S N E G A T E S E T M S N
0001620 E X T W O R D M S P R E D \r
0001640 C H E
0001660 C K S Y N O N Y M M S S E T W
0001700 O R D T Y P E M S E A T M S
0001720 T R Y S P E L L T Y P E M S S
0001740 E T P H R A S E M S Q U O T E
0001760 D F I X V E R B S E T T Y P E
0002000 \r S
0002020 E T S Y N O N Y M M S S E T U
0002040 P ) \r ( D E C L
0002060 A R E % : E V A L @ C O M P I
0002100 L E D O N T C O P Y ( R E C
0002120 O R D S * P A R S E R R E C
0002140 O R D S ) \r
0002160 ( M A C R O S G E T
0002200 W O R D T Y P E ) ) \r
0002220 ( V A R S C O N J U N C
0002240 T A B L E ( M S S P L S T ) )
0002260 \r ( F I L E V A
0002300 R S I N I T W O R D L I S T )
0002320 \r ( P ( A P P
0002340 L Y ' M S S E T U P I N I T
0002360 W O R D L I S T ) ) \r
0002400 ( F U N C T I O N S M S
0002420 S E E K S E E K W O R D ) \r
0002440 ( C O M M A N D S
0002460 " . " ) \r ( B
0002500 L O C K S ( M S P A R S E B L
0002520 O C K M S K N O W N M S D O
0002540 E S M S S E T S E T T Y P E
0002560 M S F A I L M S J O I N S E T
0002600 M S B L O C K M S P A T H O
0002620 P T I O N S \r
0002640 M
0002660 S P A R S E M S F I X U P T Y
0002700 P E S M S V E R B T Y P E M
0002720 S S E T R E P M S S E E K P H
0002740 R A S E M S T Y P E M A T C H
0002760 R A T I N G \r
0003000 M
0003020 S T R Y S P E L L M S T R Y P
0003040 A R S E M S C O M M A N D M
0003060 S S U B J T Y P E M S O B J T
0003100 Y P E M S V E R B M S S P L
0003120 S T M S W O R D ? \r
0003140
0003160 M S S E E K T Y P E M S
0003200 R E S P E L L M S J O I N M
0003220 S S I M P L E S E T M S M A T
0003240 C H R A T I N G M S V E R B E
0003260 D M S C A N T \r
0003300
0003320 M S J O I N D E T S M S N E
0003340 G A T E S E T M S N E X T W O
0003360 R D M S P R E D C H E C K S
0003400 Y N O N Y M M S E A T M S T
0003420 R Y S P E L L T Y P E \r
0003440
0003460 M S S E T P H R A S E
0003500 M S Q U O T E D F I X V E R B
0003520 S E T T Y P E ( E N T R I E S
0003540 M S P A R S E M S J O I N S
0003560 E T M S T R Y S P E L L \r
0003600
*
0003700 S E T S Y N O N Y M M S S E
0003720 T U P ) \r
0003740 ( R E T
0003760 F N S M S T R Y P A R S E ) \r
0004000
0004020 ( S P E C V A R S
0004040 S P E L L I N G ) \r
0004060
0004100 ( L O C A L F R E E V A R S
0004120 C O N J U N C T I O N S L A
0004140 S T A D V E R B L A S T P A R
0004160 S E D N E X T W O R D P A R
0004200 S E D S S E E K I N G \r
0004220
0004240 S E N
0004260 T E N C E R E S E T S ) \r
0004300
0004320 ( B L K A P P L Y F N
0004340 S M S D O E S M S V E R B E
0004360 D M S B L O C K M S P A T H
0004400 O P T I O N S M S S E T R E P
0004420 M S C O M M A N D M S V E R
0004440 B \r
0004460
0004500 M S P R E D M S S E T P H R
0004520 A S E ) \r
0004540 ( L O C
0004560 A L F R E E V A R S S E T T Y
0004600 P E S E T D E T ) \r
0004620
0004640 ( N O L I N K F N S . T
0004660 ) \r
0004700 ( G L O B A L
0004720 V A R S M S W O R D S M S S
0004740 P L S T C O N J U N C T A B L
0004760 E ) \r
0005000 M S S E T U
0005020 P M S S E T W O R D T Y P E
0005040 S E T S Y N O N Y M M S S E E
0005060 K - W O R D ) \r
0005100 ( N I L ( L O C
0005120 A L V A R S . T ) \r
0005140
0005160 ( G L O B A L V A R S M S W O
0005200 R D S ) ) ) \r (
0005220 P R O P F I L E T Y P E M S
0005240 P A R S E ) \r (
0005260 D E C L A R E % : D O N T E V
0005300 A L @ L O A D D O E V A L @ C
0005320 O M P I L E D O N T C O P Y
0005340 C O M P I L E R V A R S ( A D
0005360 D V A R S ( N L A M A ) \r
0005400
*
0005500 ( N L A M
0005520 L ) \r
0005540
*
0005640 ( L A M A ] ) \r ( D E F I N E Q
0005660 \r \r ( 006 004 M S K N O W N 006 001 \r
0005700 [ L A M B D A ( S E T ) 006 006
0005720 006 001
0005740
*
0006000 006 006 ( * ; " E d i t e d 1
0006020 2 - J a n - 8 7 1 3 : 4 4 b
0006040 y j d s " ) 006 001 \r
0006060
*
0006140 006 006 ( * l m m %
0006160 : 1 6 - M A R - 7 6 1 5 3
0006200 4 ) 006 001 \r ( 006 002 r e p l
0006220 a c e 006 001 K N O W N 006 002 o f
0006240 006 001 S E T 006 002 w i t h 006 001
0006260 T ) \r ( 006 002 M S S E T S
0006300 E T T Y P E 006 001 S E T ' F N
0006320 S ) \r ( S E L E C T Q
0006340 ( 006 002 f e t c h 006 001 ( S E N T
0006360 E N C E I D ) 006 002 o f 006 001
0006400 ( 006 002 f e t c h 006 001 R E P 006
0006420 002 o f 006 001 S E T ) ) \r
0006440 ( N O T ( 006 002 M S K N
0006460 O W N 006 001 ( 006 002 f e t c h 006 001
0006500 N E G A T E D 006 002 o f 006 001
0006520 ( 006 002 f e t c h 006 001 R E P 006
0006540 002 o f 006 001 S E T ) ) ) ) \r
0006560 ( ( A N D O R A
0006600 N D N O T ) \r
0006620 ( 006 002 M S K N O W N 006
0006640 001 ( 006 002 f e t c h 006 001 ( C S
0006660 E T S E T 1 ) 006 002 o f 006 001
0006700 S E T ) ) \r
0006720 ( 006 002 M S K N O W N 006 001
0006740 ( 006 002 f e t c h 006 001 ( C S E T
0006760 S E T 2 ) 006 002 o f 006 001 S E
0007000 T ) ) ) \r N I L
0007020 ] ) \r \r ( 006 004 M S D O E S 006 001 \r
0007040 [ L A M B D A N I L 006 006 006
0007060 001
0007100
*
0007140 006 006 ( * ; " E d i t e d
0007160 5 - D e c - 8 6 0 7 : 0 2
0007200 b y l m m " ) 006 001 \r (
0007220 A N D ( S E E K W O R D D O
0007240 E S D O ) \r
0007260 ( 006 002 c r e a t e 006 001 M S S E
0007300 T P H R A S E \r
0007320 R E P _ ( 006
0007340 002 c r e a t e 006 001 T H A T \r
0007360
0007400 O T H E
0007420 R S E T _ ( O R ( M S S E
0007440 E K M S S E T P H R A S E ) \r
0007460
*
0007520 ( 006 002 M
0007540 S C A N T 006 001 ) ) \r
0007560
0007600 M S V E R B _
0007620 ( P R O G N ( C O N D \r
0007640
*
0007700 ( ( N
0007720 O T ( M S S E E K M S V E R
0007740 B S ) ) \r
0007760
*
0010020 ( 006 002 M S C A N T
0010040 006 001 ) ) ) \r
0010060
*
0010120 ( 006 002 r e p l a c e 006 001
0010140 T E N S E 006 002 o f 006 001 L A S
0010160 T P A R S E D 006 002 w i t h 006 001
0010200 ' E D ) \r
0010220
*
0010260 L A S T P A R S E D ] ) \r
0010300 \r ( 006 004 M S S E T S E T T Y P E
0010320 006 001 \r [ L A M B D A ( S E
0010340 T T Y P E ) 006 006 006 001
0010360
*
0010420 006 006 ( * ; " E d i t
0010440 e d 1 2 - J a n - 8 7 0 1 :
0010460 2 6 b y j d s " ) 006 001 \r
0010500 [ A N D S E T T Y P E
0010520 ( P R O G ( R E P ) \r
0010540
0010560 ( C O N D \r
0010600
0010620 ( ( A N D ( N U L L
0010640 ( 006 002 f e t c h 006 001 ( 006 002 M
0010660 S S E T P H R A S E 006 001 T Y P
0010700 E ) 006 002 o f 006 001 S E T ) ) \r
0010720
*
0010760 ( N U L L ( 006 002 f e t c h 006
0011000 001 ( 006 002 M S S E T P H R A S E
0011020 006 001 D E F A U L T T Y P E )
0011040 006 002 o f 006 001 S E T ) ) ) \r
0011060
0011100 ( 006 002 r e p
0011120 l a c e 006 001 ( 006 002 M S S E T P
0011140 H R A S E 006 001 D E F A U L T T
0011160 Y P E ) 006 002 o f 006 001 S E T
0011200 006 002 w i t h 006 001 T Y P E ) \r
0011220
0011240 ( S E L E
0011260 C T Q ( 006 002 f e t c h 006 001 (
0011300 S E N T E N C E I D ) 006 002 o
0011320 f 006 001 ( S E T Q R E P ( 006
0011340 002 f e t c h 006 001 R E P 006 002 o
0011360 f 006 001 S E T ) ) ) \r
0011400
0011420 ( T H A T
0011440 ( 006 002 F I X V E R B S E T T Y
0011460 P E 006 001 S E T ) ) \r
0011500
0011520 ( N O T
0011540 ( 006 002 M S S E T S E T T Y P E 006
0011560 001 ( 006 002 f e t c h 006 001 N E G
0011600 A T E D 006 002 o f 006 001 ( 006 002 f
0011620 e t c h 006 001 R E P 006 002 o f 006
0011640 001 S E T ) ) \r
0011660
*
0011720 T Y P E ) ) \r
0011740
0011760 ( ( A N D
0012000 O R A N D N O T ) \r
0012020
*
0012060 ( 006 002 M S S E T S E T T Y P
0012100 E 006 001 ( 006 002 f e t c h 006 001 (
0012120 C S E T S E T 1 ) 006 002 o f 006
0012140 001 R E P ) \r
0012160
*
0012220 T Y P E ) \r
0012240
0012260 ( 006
0012300 002 M S S E T S E T T Y P E 006 001
0012320 ( 006 002 f e t c h 006 001 ( C S E T
0012340 S E T 2 ) 006 002 o f 006 001 R E
0012360 P ) \r
0012400
0012420 T
0012440 Y P E ) ) \r
0012460
0012500 N I L ) ) \r
0012520
0012540 ( ( N O T ( E Q
0012560 U A L ( O R ( 006 002 f e t c h
0012600 006 001 ( 006 002 M S S E T P H R A S
0012620 E 006 001 T Y P E ) 006 002 o f 006 001
0012640 S E T ) \r
0012660
*
0012720 ( 006 002 f e t c h 006 001 ( 006 002
0012740 M S S E T P H R A S E 006 001 D E
0012760 F A U L T T Y P E ) 006 002 o f 006
0013000 001 S E T ) ) \r
0013020
*
0013060 T Y P E ) ) \r
0013100
0013120 ( p r i n t o u t T "
0013140 E x p e c t i n g " T Y P E
0013160 " b u t s u p p l i e d
0013200 " ( O R ( 006 002 f e t c h 006 001
0013220 ( 006 002 M S S E T P H R A S E 006
0013240 001 \r
0013260
*
0013360 T Y P E ) \r
0013400
*
0013520 006 002 o f 006 001 S E T ) \r
0013540
*
0013640 ( 006 002 f
0013660 e t c h 006 001 ( 006 002 M S S E T P
0013700 H R A S E 006 001 \r
0013720
*
0014020 D
0014040 E F A U L T T Y P E ) \r
0014060
*
0014160 006 002
0014200 o f 006 001 S E T ) ) \r
0014220
0014240 " .
0014260 " T ] \r S E T ] ) \r \r
0014300 ( 006 004 M S F A I L 006 001 \r [ L
0014320 A M B D A ( F L G ) 006 006 006 001
0014340
*
0014400 006 006 (
0014420 * ; " E d i t e d 2 5 - N
0014440 o v - 8 6 2 1 : 0 8 b y l
0014460 m m " ) 006 001 \r ( P R O G
0014500 ( P O S ) \r
0014520 ( O R F L G ( G O E R R
0014540 ) ) \r S E A R C H \r
0014560 ( O R ( S
0014600 E T Q P O S ( S T K P O S
0014620 ( F U N C T I O N M S T R Y P
0014640 A R S E ) \r
0014660
0014700 1 \r
0014720
0014740 ( S T K N T H - 1
0014760 P O S P O S ) \r
0015000
0015020 P O S ) ) \r
0015040 ( G O
0015060 E R R ) ) \r
0015100 ( C O N D \r
0015120 ( ( E Q ( S T K A R G
0015140 1 P O S ) \r
0015160 ' M S C O M
0015200 M A N D ) \r
0015220 ( R E T F R O M P O S
0015240 N I L T ) ) ) \r
0015260 ( G O S E A R C H ) \r
0015300 E R R ( p r i n t
0015320 o u t T " S o r r y , c o
0015340 u l d n ' t p a r s e t h a
0015360 t ! " T ) \r
0015400 ( E R R O R ! ] ) \r \r ( 006 004 M
0015420 S J O I N S E T 006 001 \r [ L A
0015440 M B D A ( C S E T 1 S E T
0015460 2 ) 006 006 006 001
0015500
0015520 006 006 ( *
0015540 ; " E d i t e d 1 2 - J a
0015560 n - 8 7 0 1 : 2 8 b y j d
0015600 s " ) 006 001 \r [ P R O G
0015620 ( T Y P E ) \r
0015640 ( C O N D \r
0015660 ( [ A N D ( E Q C
0015700 ' A N D ) \r
0015720 ( E Q ( 006 002
0015740 f e t c h 006 001 ( S E N T E N C
0015760 E I D ) 006 002 o f 006 001 ( 006 002
0016000 f e t c h 006 001 R E P 006 002 o f
0016020 006 001 S E T 1 ) ) \r
0016040
0016060 ' Q U O T E ) \r
0016100 ( L I T
0016120 A T O M ( 006 002 f e t c h 006 001
0016140 Q U O T E D 006 002 o f 006 001 ( 006
0016160 002 f e t c h 006 001 R E P 006 002 o
0016200 f 006 001 S E T 1 ) ) ) \r
0016220 (
0016240 E Q ( 006 002 f e t c h 006 001 ( S
0016260 E N T E N C E I D ) 006 002 o f
0016300 006 001 ( 006 002 f e t c h 006 001 R E
0016320 P 006 002 o f 006 001 S E T 2 ) ) \r
0016340
0016360 ' Q U O T E ) \r
0016400
0016420 ( L I T A T O M ( 006 002 f e
0016440 t c h 006 001 Q U O T E D 006 002 o
0016460 f 006 001 ( 006 002 f e t c h 006 001 R
0016500 E P 006 002 o f 006 001 S E T 2 ] \r
0016520 ( p
0016540 r i n t o u t T ( 006 002 f e t
0016560 c h 006 001 Q U O T E D 006 002 o f
0016600 006 001 ( 006 002 f e t c h 006 001 R E
0016620 P 006 002 o f 006 001 S E T 2 ) ) \r
0016640
0016660 % , C % , ( 006 002
0016700 f e t c h 006 001 Q U O T E D 006
0016720 002 o f 006 001 ( 006 002 f e t c h 006 001
0016740 R E P 006 002 o f 006 001 S E T 1
0016760 ) ) \r
0017000 " - > " \r
0017020
0017040 ( 006 002 f e t c h 006 001 Q
0017060 U O T E D 006 002 o f 006 001 ( 006 002
0017100 f e t c h 006 001 R E P 006 002 o f
0017120 006 001 S E T 2 ) ) \r
0017140 %
0017160 , \r
0017200 ( S E T Q Q C
0017220 O R ) \r
0017240 % , \r
0017260
0017300 ( 006 002 f e t c h 006 001 Q U O T
0017320 E D 006 002 o f 006 001 ( 006 002 f e t
0017340 c h 006 001 R E P 006 002 o f 006 001
0017360 S E T 1 ) ) \r
0017400 " . " )
0017420 ) ) \r ( 006 002
0017440 r e p l a c e 006 001 D E T 006 002
0017460 o f 006 001 S E T 1 006 002 w i t h
0017500 006 001 ( 006 002 M S J O I N D E T S
0017520 006 001 C ( 006 002 f e t c h 006 001
0017540 D E T 006 002 o f 006 001 S E T 1 )
0017560 \r
0017600
0017620 ( 006 002 f
0017640 e t c h 006 001 D E T 006 002 o f 006
0017660 001 S E T 2 ) ) ) \r
0017700 ( 006 002 r e p l a c e 006 001
0017720 ( 006 002 M S S E T P H R A S E 006
0017740 001 T Y P E ) 006 002 o f 006 001 S
0017760 E T 1 006 002 w i t h 006 001 ( 006 002
0020000 M S J O I N 006 001 C ( 006 002 f e
0020020 t c h 006 001 ( 006 002 M S S E T P H
0020040 R A S E 006 001 T Y P E ) 006 002 o
0020060 f 006 001 S E T 1 ) \r
0020100
*
0020160 ( 006 002 f e t c h 006 001 (
0020200 006 002 M S S E T P H R A S E 006 001
0020220 T Y P E ) 006 002 o f 006 001 S E T
0020240 2 ) ) ) \r [
0020260 006 002 M S S E T S E T T Y P E 006 001
0020300 S E T 1 ( S E T Q T Y P E
0020320 ( 006 002 M S J O I N 006 001 C (
0020340 006 002 f e t c h 006 001 D E F A U L
0020360 T T Y P E 006 002 o f 006 001 S E T
0020400 1 ) \r
0020420
*
0020460 ( 006 002 f e t c h 006 001 D E F
0020500 A U L T T Y P E 006 002 o f 006 001
0020520 S E T 2 ] \r
0020540 ( 006 002 M S S E T S E T T Y P E 006
0020560 001 S E T 2 T Y P E ) \r
0020600 ( C O N D \r
0020620 ( ( 006 002 f e
0020640 t c h 006 001 K N O W N 006 002 o f
0020660 006 001 S E T 2 ) \r
0020700 ( 006 002 M S K N O W
0020720 N 006 001 S E T 1 ) ) \r
0020740 ( ( 006 002 f e t c
0020760 h 006 001 K N O W N 006 002 o f 006 001
0021000 S E T 1 ) \r
0021020 ( 006 002 M S K N O W N 006
0021040 001 S E T 2 ) ) ) \r
0021060 ( 006 002 r e p l a c e 006 001
0021100 R E P 006 002 o f 006 001 S E T 1
0021120 006 002 w i t h 006 001 ( C O N D \r
0021140
*
0021200 ( ( A N D ( E Q
0021220 C ' A N D ) \r
0021240
*
0021300 ( N U L L ( 006 002 f
0021320 e t c h 006 001 R E P 006 002 o f 006
0021340 001 S E T 1 ) ) ) \r
0021360
*
0021420 ( 006 002 f e t c h 006 001 R E P
0021440 006 002 o f 006 001 S E T 2 ) ) \r
0021460
*
0021520 ( ( A N D ( E Q
0021540 C ' A N D ) \r
0021560
*
0021620 ( N U L L ( 006 002 f e
0021640 t c h 006 001 R E P 006 002 o f 006 001
0021660 S E T 2 ) ) ) \r
0021700
*
0021740 ( 006 002 f e t c h 006 001 R E P
0021760 006 002 o f 006 001 S E T 1 ) ) \r
0022000
*
0022040 ( T ( 006 002 c r e a t
0022060 e 006 001 C S E T \r
0022100
*
0022140 I D _ C
0022160 \r
0022200
*
0022240 S E T 1 _ ( 006 002 c r e a
0022260 t e 006 001 M S S E T P H R A S E
0022300 006 002 u s i n g 006 001 S E T 1 )
0022320 \r
0022340
*
0022400 S E T 2 _ S E T 2 ] \r
0022420 S E T 1 ] ) \r \r ( 006 004 M S
0022440 B L O C K 006 001 \r [ L A M B D
0022460 A N I L 006 006 006 001
0022500
*
0022540 006 006 ( * ;
0022560 " E d i t e d 2 5 - N o v - 8
0022600 6 2 1 : 0 8 b y l m m " )
0022620 006 001 \r ( S E E K W O R D
0022640 A N Y T H E A A N ) \r
0022660 ( P R O G ( T Y P E S
0022700 F N S F I L E S ) \r
0022720 ( S E T Q T Y P E S
0022740 ( O R ( 006 002 M S S E E K T Y
0022760 P E 006 001 ' B L O C K S ) \r
0023000
0023020 ( R E T U R N )
0023040 ) ) \r [ C O
0023060 N D \r
0023100 ( ( S E E K W O R D O F ) \r
0023120 ( S E
0023140 T Q F N S ( O R ( M S S E
0023160 E K M S S E T P H R A S E F
0023200 N S ) \r
0023220
0023240 ( R E T U R N ] \r
0023260 [ C O N D \r
0023300 ( ( S E E K W O R D
0023320 O N ) \r
0023340 ( S E T Q F I L E S (
0023360 O R ( M S S E E K M S S E T
0023400 P H R A S E F I L E S ) \r
0023420
0023440 ( R E T
0023460 U R N ) ) ) \r
0023500 ( O R F N S ( A N
0023520 D ( S E E K W O R D O F ) \r
0023540
0023560 ( S E T Q
0023600 F N S ( O R ( M S S E E K
0023620 M S S E T P H R A S E F N S
0023640 ) \r
0023660
0023700 ( R E T U
0023720 R N ] \r ( O
0023740 R F N S F I L E S ( R E T
0023760 U R N ) ) \r
0024000 ( R E T U R N ( 006 002 c r e a t
0024020 e 006 001 B L O C K S \r
0024040
0024060 T Y P E S _ T Y P E
0024100 S \r
0024120 F N S _
0024140 F N S \r
0024160 F I
0024200 L E S _ F I L E S ] ) \r \r (
0024220 006 004 M S P A T H O P T I O N S 006
0024240 001 \r [ L A M B D A ( F L G
0024260 ) 006 006 006 001
0024300
*
0024340 006 006 ( * ; " E d i t e
0024360 d 2 5 - N o v - 8 6 2 1 : 0
0024400 8 b y l m m " ) 006 001 \r
0024420 ( 006 002 w h i l e 006 001 ( 006 002 M
0024440 S S E E K T Y P E 006 001 ' P A T
0024460 H ) 006 002 c o l l e c t 006 001 (
0024500 C O N S L A S T P A R S E D \r
0024520
*
0024560 ( O R
0024600 ( S E L E C T Q L A S T P A R
0024620 S E D \r
0024640
*
0024700 ( ( O U T P U T
0024720 L I N E L E N G T H ) \r
0024740
*
0025020 ( C O N D \r
0025040
*
0025120 ( F L G ( p
0025140 r i n t o u t T L A S T P A
0025160 R S E D \r
0025200
*
0025240 " n o t
0025260 m e a n i n g f u l e x c e p
0025300 t i n a S H O W P A T H
0025320 S c o m m a n d ! " \r
0025340
*
0025440 T ) ) ) \r
0025460
*
0025540 ( 006 002 M S E A T 006 001 ) ) \r
0025560
*
0025640 ( F R O M ( M S S E E
0025660 K M S S E T P H R A S E F N
0025700 S T ) ) \r
0025720
*
0025760 ( M S S E E
0026000 K M S S E T P H R A S E F N
0026020 S ) ) \r
0026040
*
0026100 ( 006 002 M S C A N T 006 001 ]
0026120 ) \r \r ( 006 004 M S P A R S E 006 001 \r
0026140 [ L A M B D A ( S E N T E
0026160 N C E ) 006 006 006 001
0026200
*
0026240 006 006 ( * ; " E d i t e d
0026260 2 5 - N o v - 8 6 2 1 : 0 8
0026300 b y l m m " ) 006 001 \r (
0026320 P R O G ( N E X T W O R D L
0026340 A S T A D V E R B C O N J U N
0026360 C T I O N S V A L R E S E T
0026400 S L A S T P A R S E D F L G
0026420 S E E K I N G S P E L L I N
0026440 G R E S P E L L P O S S \r
0026460
0026500 P A R S E D ( S S E N T E
0026520 N C E ) \r
0026540 O U T P U T F I L E
0026560 ) \r P A R S E \r
0026600 ( O R ( S E T
0026620 Q V A L ( M S S E E K M S
0026640 C O M M A N D ) ) \r
0026660 ( G O M S F A
0026700 I L ) ) \r [
0026720 C O N D \r
0026740 ( ( S E E K W O R D O U T
0026760 P U T ) \r
0027000 ( S E T Q O U T P U T F
0027020 I L E ( 006 002 M S E A T 006 001 ] \r
0027040 ( A N D (
0027060 006 002 M S N E X T W O R D 006 001 ) \r
0027100 (
0027120 G O M S F A I L ) ) \r
0027140 ( C O N D \r
0027160 ( L A S T A D
0027200 V E R B ( G O M S F A I L )
0027220 ) ) \r ( 006 002
0027240 M S F I X U P T Y P E S 006 001 P
0027260 A R S E D ) \r
0027300 [ C O N D \r
0027320 ( C O N J U N C T I O N
0027340 S ( 006 002 f o r 006 001 X 006 002 i
0027360 n 006 001 ( D R E V E R S E C O
0027400 N J U N C T I O N S ) \r
0027420
0027440 006 002 d o 006 001
0027460 ( S E T Q P O S S \r
0027500
0027520 ( 006
0027540 002 f o r 006 001 Y 006 002 i n 006 001
0027560 ( 006 002 f e t c h 006 001 P O S S I
0027600 B L E S 006 002 o f 006 001 X ) \r
0027620
*
0027660 006 002 w h e n 006 001 [ A N
0027700 D ( E Q ( 006 002 f e t c h 006 001
0027720 E N D I N G 006 002 o f 006 001 Y
0027740 ) \r
0027760
*
0030020 ( 006 002 f e t c h 006 001
0030040 S T A R T 006 002 o f 006 001 X ) )
0030060 \r
0030100
*
0030140 ( E Q ( C A R ( 006 002 f e t c
0030160 h 006 001 S O U G H T 006 002 o f 006
0030200 001 Y ) ) \r
0030220
*
0030260 ( C A R ( 006
0030300 002 f e t c h 006 001 S O U G H T
0030320 006 002 o f 006 001 ( 006 002 f e t c h 006
0030340 001 P A R S E D 006 002 o f 006 001
0030360 X ] \r
0030400
0030420 006 002 c o l l e c
0030440 t 006 001 Y ) ) \r
0030460
0030500 [ C O N D \r
0030520
*
0030560 ( ( N U L L P O S S ) \r
0030600
*
0030640 ( 006 002 M S F A I L 006 001
0030660 ) ) \r
0030700
0030720 ( ( C D R P O S
0030740 S ) \r
0030760
0031000 ( S E T Q P O
0031020 S S ( S O R T ( 006 002 f o r 006
0031040 001 Y 006 002 i n 006 001 P O S S \r
0031060
*
0031140 006 002 c o l l e
0031160 c t 006 001 ( C O N S ( 006 002 M S
0031200 M A T C H R A T I N G 006 001 \r
0031220
*
0031320 ( 006 002 f e t c h 006 001
0031340 ( C O N J U N C T I O N P A
0031360 R S E D ) \r
0031400
*
0031500 006 002 o f 006 001 X ) \r
0031520
*
0031620 Y \r
0031640
*
0031720 ( 006 002
0031740 f e t c h 006 001 ( C O N J U N C
0031760 T I O N C ) \r
0032000
*
0032100 006 002 o f 006 001 X ) ) \r
0032120
*
0032220 Y ) ) \r
0032240
*
0032300 T
0032320 ) ) \r
0032340
0032360 ( C O N D \r
0032400
*
0032440 ( ( E Q ( C A A R
0032460 P O S S ) \r
0032500
*
0032540 ( C A A D R P O S S )
0032560 ) \r
0032600
0032620 ( p r i n
0032640 t o u t T " a m b i g u o u
0032660 s c o n j u n c t i o n , g
0032700 u e s s i n g . . . " ) ) ) \r
0032720
*
0032760 ( S E T Q P O S S
0033000 ( C D A R P O S S ) ) ) \r
0033020
*
0033060 ( T ( S E T Q P O S S
0033100 ( C A R P O S S ] \r
0033120
0033140 ( S E L
0033160 E C T Q ( C A R ( 006 002 f e t
0033200 c h 006 001 S O U G H T 006 002 o f
0033220 006 001 P O S S ) ) \r
0033240
0033260 (
0033300 ( M S S E T P H R A S E M S P
0033320 R E D M S D O E S ) \r
0033340
*
0033400 ( 006 002 M S J O I N
0033420 S E T 006 001 ( 006 002 f e t c h 006 001
0033440 C 006 002 o f 006 001 X ) \r
0033460
*
0033520 ( 006
0033540 002 f e t c h 006 001 I T E M 006 002
0033560 o f 006 001 P O S S ) \r
0033600
*
0033640 ( 006 002 f
0033660 e t c h 006 001 I T E M 006 002 o f
0033700 006 001 ( 006 002 f e t c h 006 001 P A
0033720 R S E D 006 002 o f 006 001 X ) ) )
0033740 ) \r
0033760
0034000 ( M S V E R B [
0034020 006 002 r e p l a c e 006 001 V P A R
0034040 T 006 002 o f 006 001 ( 006 002 f e t c
0034060 h 006 001 I T E M 006 002 o f 006 001
0034100 P O S S ) \r
0034120
*
0034160 006 002 w i t h 006 001 (
0034200 006 002 c r e a t e 006 001 C V E R B
0034220 \r
0034240
*
0034300 C _
0034320 ( 006 002 f e t c h 006 001 C 006 002
0034340 o f 006 001 X ) \r
0034360
*
0034440 V B 1 _ ( 006 002 f e t
0034460 c h 006 001 V P A R T \r
0034500
*
0034600 006 002 o f 006 001 ( 006 002 f e t c h 006
0034620 001 I T E M 006 002 o f 006 001 P O
0034640 S S ) ) \r
0034660
*
0034740 V B 2 _ ( 006 002 f e t c h 006
0034760 001 V P A R T \r
0035000
*
0035060 006 002 o
0035100 f 006 001 ( 006 002 f e t c h 006 001 I
0035120 T E M \r
0035140
*
0035220 006
0035240 002 o f 006 001 ( 006 002 f e t c h 006 001
0035260 P A R S E D \r
0035300
*
0035400 006 002 o f 006 001
0035420 X ] ) \r
0035440
0035460 ( S H O U L D
0035500 N T ] \r ( C
0035520 O N D \r
0035540 ( S P E L L I N G
0035560
*
0035620 006 006 ( * I . e . s u c c e
0035640 e d e d a f t e r s p e l l
0035660 i n g \r 006 001
0035700
*
0035760 006 006 c o r r e c t i o n
0036000 ) 006 001 \r
0036020 ( L I S P X P R
0036040 I N 2 S P E L L I N G T T
0036060 ) \r
0036100 ( L I S P X P R I N
0036120 1 " - > " T ) \r
0036140 ( C
0036160 O N D \r
0036200 ( ( C A R
0036220 R E S P E L L ) \r
0036240
0036260 ( L I S P X P R I N 2 ( C
0036300 A R R E S P E L L ) \r
0036320
0036340 T T ) \r
0036360
0036400 ( L I S P X S P
0036420 A C E S 1 T ) ) ) \r
0036440
0036460 ( L I S P X P R I N T ( C A D
0036500 R R E S P E L L ) \r
0036520
0036540 T T ) ) ) \r
0036560 ( R E T U R N (
0036600 C O N D \r
0036620 ( O U T P U
0036640 T F I L E ( C O N S ' O U T
0036660 P U T ( C O N S O U T P U T
0036700 F I L E V A L ) ) ) \r
0036720
0036740 ( T V A L ) ) ) \r
0036760 M S F A I L \r
0037000 ( C O N D \r
0037020 ( N O S P E L L F L G
0037040 ( 006 002 M S F A I L 006 001 ) ) \r
0037060 ( ( N U
0037100 L L S P E L L I N G ) \r
0037120 ( S E T Q
0037140 S P E L L I N G ( L I S T
0037160 ( L I S T S E N T E N C E ) )
0037200 ) \r
0037220 ( G O R E P A R S E ) ) \r
0037240 ( ( L I S
0037260 T P S P E L L I N G ) \r
0037300 [ 006 002 f o
0037320 r 006 001 X 006 002 i n 006 001 S P E
0037340 L L I N G 006 002 w h e n 006 001 (
0037360 C D R X ) 006 002 d o 006 001 ( C
0037400 O N D \r
0037420
*
0037460 ( ( S E T Q R
0037500 E S P E L L ( 006 002 M S R E S P
0037520 E L L 006 001 ( S E T Q N E X T
0037540 W O R D \r
0037560
*
0037660 ( C A A R X ) ) \r
0037700
*
0040000 ( C A R X ) \r
0040020
*
0040120 ( C D R X
0040140 ) ) ) \r
0040160
*
0040220 ( S E T Q S
0040240 P E L L I N G N E X T W O R D
0040260 ) \r
0040300
*
0040340 ( G O R E P A R
0040360 S E ] \r
0040400
*
0040460 006 006 ( * T h a t d i d n '
0040500 t w o r k , t r y t o r
0040520 e s p e l l \r 006 001
0040540
*
0040620 006 006 t h i n g s
0040640 a s a d v e r b s ) 006 001 \r
0040660 [ 006 002 f
0040700 o r 006 001 X 006 002 i n 006 001 S P
0040720 E L L I N G 006 002 w h e n 006 001
0040740 ( C D R X ) 006 002 d o 006 001 (
0040760 C O N D \r
0041000
*
0041040 ( ( S E T Q
0041060 R E S P E L L ( 006 002 M S R E S
0041100 P E L L 006 001 ( S E T Q S P E
0041120 L L I N G \r
0041140
*
0041240 ( C A A R X ) ) \r
0041260
*
0041360 ( C A R X )
0041400 \r
0041420
*
0041500 ( 006 002 M S
0041520 S P L S T 006 001 ) ) ) \r
0041540
*
0041620 ( G O R E P A R S E ] \r
0041640
*
0041720 006 006 ( * I
0041740 f c a n ' t , f a l l t h
0041760 r o u g h ) 006 001 \r
0042000 ( 006 002 M S F A I L
0042020 006 001 ) ) \r
0042040 ( T ( C O N D \r
0042060 ( (
0042100 C A R R E S P E L L ) \r
0042120
0042140 ( F R P L N O D E R E S P E
0042160 L L S P E L L I N G ( C D D
0042200 R R E S P E L L ) ) ) \r
0042220
0042240 ( T ( F R P L A C A ( C D R
0042260 R E S P E L L ) \r
0042300
0042320 S P E L L I N G )
0042340 ) )
0042360 006 006 ( * U N D O
0042400 t h e s p e l l i n g c o
0042420 r r e c t i n g s i n c e \r
0042440 006 001
0042460
*
0042520 006
0042540 006 i t w a s w r o n g ) 006 001
0042560 \r
0042600 ( 006 002 M S F A I L 006 001 ) ) ) \r
0042620 R E P A R S E \r
0042640 [ S E T Q N E
0042660 X T W O R D ( S E T Q L A S
0042700 T A D V E R B ( S E T Q P A
0042720 R S E D ( S E T Q C O N J U
0042740 N C T I O N S ( S E T Q V A
0042760 L ( S E T Q R E S E T S \r
0043000
*
0043120 ( S E T Q L A S T P A
0043140 R S E D \r
0043160
*
0043260 ( S E T Q
0043300 S E E K I N G ] \r
0043320 ( S E T Q S S E N T
0043340 E N C E ) \r
0043360 ( G O P A R S E ] ) \r \r ( 006 004
0043400 M S F I X U P T Y P E S 006 001 \r
0043420 [ L A M B D A ( P R S D F
0043440 L G ) 006 006 006 001
0043460
*
0043520 006 006 ( * ; " E d i t e d 1
0043540 2 - J a n - 8 7 0 1 : 2 7 b
0043560 y j d s " ) 006 001 \r ( 006
0043600 002 f o r 006 001 X 006 002 i n 006 001
0043620 ( R E V E R S E P R S D ) \r
0043640 006 002 d o 006 001 ( S E
0043660 L E C T Q ( C A R ( 006 002 f e
0043700 t c h 006 001 S O U G H T 006 002 o
0043720 f 006 001 X ) ) \r
0043740 ( M S C O M M A N D
0043760 ( S E L E C T Q ( 006 002 f e t
0044000 c h 006 001 ( S E N T E N C E I
0044020 D ) 006 002 o f 006 001 ( 006 002 f e t
0044040 c h 006 001 ( P A R S E D I T E
0044060 M ) 006 002 o f 006 001 X ) ) \r
0044100
0044120 ( ( ? E
0044140 D I T S H O W ) \r
0044160
0044200 [ 006 002
0044220 M S S E T S E T T Y P E 006 001 (
0044240 006 002 f e t c h 006 001 S U B J E C
0044260 T 006 002 o f 006 001 ( 006 002 f e t c
0044300 h 006 001 ( P A R S E D I T E M
0044320 ) 006 002 o f 006 001 X ) ) \r
0044340
*
0044400 ( O R ( 006 002 f e t
0044420 c h 006 001 ( 006 002 M S S E T P H R
0044440 A S E 006 001 T Y P E ) \r
0044460
*
0044520 006 002 o f
0044540 006 001 ( 006 002 f e t c h 006 001 M S
0044560 P R E D 006 002 o f 006 001 ( 006 002 f
0044600 e t c h 006 001 ( P A R S E D I
0044620 T E M ) 006 002 o f 006 001 X ) ) )
0044640 \r
0044660
0044700 ( 006
0044720 002 f e t c h 006 001 D E F A U L T
0044740 T Y P E 006 002 o f 006 001 ( 006 002 f
0044760 e t c h 006 001 M S P R E D \r
0045000
*
0045100 006 002 o f 006 001 ( 006 002 f e
0045120 t c h 006 001 ( P A R S E D I T
0045140 E M ) \r
0045160
*
0045260 006 002 o f 006 001 X ] \r
0045300
0045320 [ 006 002 M
0045340 S S E T S E T T Y P E 006 001 ( 006
0045360 002 f e t c h 006 001 M S P R E D
0045400 006 002 o f 006 001 ( 006 002 f e t c h 006
0045420 001 ( P A R S E D I T E M )
0045440 006 002 o f 006 001 X ) ) \r
0045460
*
0045520 ( O R ( 006 002 f e t c h
0045540 006 001 ( 006 002 M S S E T P H R A S
0045560 E 006 001 T Y P E ) \r
0045600
*
0045640 006 002 o f 006 001
0045660 ( 006 002 f e t c h 006 001 S U B J
0045700 E C T 006 002 o f 006 001 ( 006 002 f e
0045720 t c h 006 001 ( P A R S E D I T
0045740 E M ) \r
0045760
*
0046040 006 002 o f
0046060 006 001 X ) ) ) \r
0046100
*
0046140 ( 006 002 f e t c h 006 001
0046160 D E F A U L T T Y P E 006 002 o f
0046200 006 001 ( 006 002 f e t c h 006 001 S U
0046220 B J E C T \r
0046240
*
0046320 006 002 o f
0046340 006 001 ( 006 002 f e t c h 006 001 ( P
0046360 A R S E D I T E M ) \r
0046400
*
0046500 006 002 o f 006 001 X
0046520 ] ) \r
0046540
0046560 N I L ) ) \r
0046600 ( ( M S P R E D M S S
0046620 E T P H R A S E M S D O E S )
0046640 \r
0046660 [ C O N D \r
0046700
0046720 ( ( 006 002 t y p e ? 006 001 T H A
0046740 T ( 006 002 f e t c h 006 001 R E P
0046760 006 002 o f 006 001 ( 006 002 f e t c h
0047000 006 001 ( P A R S E D I T E M )
0047020 006 002 o f 006 001 X ) ) ) \r
0047040
0047060 ( 006 002 F I X V E R B S E
0047100 T T Y P E 006 001 ( 006 002 f e t c h
0047120 006 001 ( P A R S E D I T E M )
0047140 006 002 o f 006 001 X ) ) ) \r
0047160
0047200 ( ( 006 002 t y p e ? 006 001 N
0047220 O T ( 006 002 f e t c h 006 001 R E
0047240 P 006 002 o f 006 001 ( 006 002 f e t c
0047260 h 006 001 ( P A R S E D I T E M
0047300 ) 006 002 o f 006 001 X ) ) ) \r
0047320
0047340 ( P R O G [ ( N S
0047360 ( 006 002 f e t c h 006 001 N E G A T
0047400 E D 006 002 o f 006 001 ( 006 002 f e t
0047420 c h 006 001 R E P 006 002 o f 006 001
0047440 ( 006 002 f e t c h 006 001 ( P A R S
0047460 E D I T E M ) 006 002 o f 006 001
0047500 X ] \r
0047520
0047540 ( C O N D \r
0047560
0047600 ( ( 006 002 t y p e ? 006
0047620 001 T H A T ( 006 002 f e t c h 006
0047640 001 R E P 006 002 o f 006 001 N S )
0047660 ) \r
0047700
0047720 ( 006 002 F I X V E R B S E T
0047740 T Y P E 006 001 N S ) \r
0047760
0050000 ( 006 002 M
0050020 S S E T S E T T Y P E 006 001 ( 006
0050040 002 f e t c h 006 001 ( P A R S E D
0050060 I T E M ) 006 002 o f 006 001 X )
0050100 \r
0050120
0050140 ( O R ( 006 002
0050160 f e t c h 006 001 ( 006 002 M S S E T
0050200 P H R A S E 006 001 T Y P E ) 006
0050220 002 o f 006 001 N S ) \r
0050240
*
0050300 ( 006 002 f e t c h 006 001
0050320 D E F A U L T T Y P E 006 002 o
0050340 f 006 001 N S ) ) ) \r
0050360
0050400 ( A N D
0050420 ( 006 002 f e t c h 006 001 K N O W N
0050440 006 002 o f 006 001 N S ) \r
0050460
*
0050520 ( 006 002 M S K N O W N 006 001 (
0050540 006 002 f e t c h 006 001 ( P A R S E
0050560 D I T E M ) 006 002 o f 006 001 X
0050600 ] ) \r
0050620 N I L ] ) \r \r ( 006 004 M S V E R
0050640 B T Y P E 006 001 \r [ L A M B D
0050660 A ( 006 002 M S V E R B 006 001 S U
0050700 B J E C T O B J E C T ) 006 006 006
0050720 001
0050740 006 006 (
0050760 * ; " E d i t e d 1 2 - J
0051000 a n - 8 7 0 1 : 1 9 b y j
0051020 d s " ) 006 001 \r ( C O N D
0051040 \r ( ( 006 002 t y p e
0051060 ? 006 001 C V E R B ( 006 002 f e t
0051100 c h 006 001 V P A R T 006 002 o f 006
0051120 001 M S V E R B ) ) \r
0051140 ( 006 002 M S V E R B T Y P E
0051160 006 001 ( 006 002 f e t c h 006 001 ( C
0051200 V E R B V B 1 ) 006 002 o f 006 001
0051220 ( 006 002 f e t c h 006 001 V P A R
0051240 T 006 002 o f 006 001 M S V E R B )
0051260 ) \r
0051300 S U B J E C T O B J E C T )
0051320 \r ( 006 002 M S V E
0051340 R B T Y P E 006 001 ( 006 002 f e t c
0051360 h 006 001 ( C V E R B V B 2 )
0051400 006 002 o f 006 001 ( 006 002 f e t c h 006
0051420 001 V P A R T 006 002 o f 006 001 M
0051440 S V E R B ) ) \r
0051460 S U B J E C T O
0051500 B J E C T ) ) \r (
0051520 T ( P R O G ( T Y P E ) \r
0051540 [
0051560 C O N D \r
0051600 ( ( E Q ( 006 002
0051620 f e t c h 006 001 T E N S E 006 002
0051640 o f 006 001 M S V E R B ) \r
0051660
0051700 ' E D ) \r
0051720 ( S
0051740 E T Q O B J E C T ( P R O G
0051760 1 S U B J E C T ( S E T Q
0052000 S U B J E C T O B J E C T ] \r
0052020
0052040 ( S E T Q T Y P E ( O R (
0052060 006 002 f e t c h 006 001 ( 006 002 M S S
0052100 E T P H R A S E 006 001 T Y P E )
0052120 006 002 o f 006 001 O B J E C T ) \r
0052140
0052160 (
0052200 006 002 f e t c h 006 001 ( 006 002 M S S
0052220 E T P H R A S E 006 001 D E F A U
0052240 L T T Y P E ) 006 002 o f 006 001 O
0052260 B J E C T ) ) ) \r
0052300 ( S E L E C T
0052320 Q ( 006 002 f e t c h 006 001 ( 006 002
0052340 M S V E R B 006 001 R O O T ) 006
0052360 002 o f 006 001 M S V E R B ) \r
0052400
0052420 ( C O N T A I N ( 006 002 M S
0052440 S E T S E T T Y P E 006 001 S U B
0052460 J E C T ' F I L E S ) ) \r
0052500
0052520 ( ( U S E S E T R E F E
0052540 R E N C E S M A S H T E S T
0052560 ) \r
0052600 ( S E L
0052620 E C T Q ( 006 002 f e t c h 006 001
0052640 ( 006 002 M S V E R B 006 001 M O D I
0052660 F I E R ) 006 002 o f 006 001 M S V
0052700 E R B ) \r
0052720
0052740 ( N I L ( A N D [ E Q M
0052760 E M B ( 006 002 f e t c h 006 001 (
0053000 006 002 M S V E R B 006 001 R O O T )
0053020 006 002 o f 006 001 M S V E R B ) \r
0053040
*
0053100 ( C
0053120 D R ( G E T W O R D T Y P E
0053140 T Y P E ' A S ] \r
0053160
*
0053220 ( 006 002 r e p l a c e 006 001 ( 006
0053240 002 M S V E R B 006 001 M O D I F I
0053260 E R ) 006 002 o f 006 001 M S V E R
0053300 B 006 002 w i t h 006 001 T Y P E )
0053320 ) ) \r
0053340
0053360 ( ( F R E E L Y L O C A L L Y
0053400 ) \r
0053420
0053440 ( 006 002 M S S E T S E T
0053460 T Y P E 006 001 O B J E C T ' V
0053500 A R S ) ) \r
0053520
0053540 ( 006 002 M S S E T S E T T Y
0053560 P E 006 001 O B J E C T ( 006 002 f
0053600 e t c h 006 001 ( 006 002 M S V E R B
0053620 006 001 M O D I F I E R ) 006 002 o
0053640 f 006 001 M S V E R B ) ) ) \r
0053660
0053700 ( 006 002 M S K N O W
0053720 N 006 001 S U B J E C T ) ) \r
0053740
0053760 ( C A L L ( 006 002 M S K N O
0054000 W N 006 001 S U B J E C T ) \r
0054020
0054040 ( 006 002 M S S E T
0054060 S E T T Y P E 006 001 O B J E C T
0054100 ' F N S ) ) \r
0054120 ( C R E
0054140 A T E ( 006 002 M S K N O W N 006 001
0054160 S U B J E C T ) \r
0054200
0054220 ( 006 002 M S S E T S E
0054240 T T Y P E 006 001 O B J E C T '
0054260 R E C O R D S ) ) \r
0054300 ( (
0054320 F E T C H R E P L A C E ) \r
0054340
0054360 ( 006 002 M S K N
0054400 O W N 006 001 S U B J E C T ) \r
0054420
0054440 ( 006 002 M S S E T
0054460 S E T T Y P E 006 001 O B J E C T
0054500 ' F I E L D S ) ) \r
0054520 (
0054540 P R O G N ( 006 002 M S K N O W N
0054560 006 001 S U B J E C T ) \r
0054600
0054620 ( 006 002 M S S E T S
0054640 E T T Y P E 006 001 O B J E C T
0054660 ' V A R S ] ) \r \r ( 006 004 M S S E
0054700 T R E P 006 001 \r [ L A M B D A
0054720 ( L I S T O K F L G ) 006 006 006 001
0054740
*
0055000 006 006 ( * ; "
0055020 E d i t e d 2 5 - N o v - 8 6
0055040 2 1 : 0 8 b y l m m " ) 006
0055060 001 \r ( P R O G [ ( N E
0055100 G ( S E E K W O R D N O T )
0055120 ) \r ( V A
0055140 L ( C O N D \r
0055160 ( ( N U L
0055200 L S ) \r
0055220 N I L ) \r
0055240
0055260 [ ( S E E K W O R D I N ) \r
0055300
0055320 ( O R ( M S S E E K
0055340 M S B L O C K ) \r
0055360
0055400 ( 006 002 c r e a t e 006 001 I N \r
0055420
0055440 E
0055460 X P R E S S I O N _ ( 006 002 M
0055500 S E A T 006 001 ] \r
0055520 ( ( S E E
0055540 K W O R D % ' Q U O T E ) \r
0055560
0055600 ( 006 002 M S Q U O T E D 006
0055620 001 ) ) \r
0055640 [ ( S E E K W O R
0055660 D @ ) \r
0055700 ( 006 002 c r e a
0055720 t e 006 001 A P P L Y \r
0055740
0055760 P R E D _ ( P R
0056000 O G ( ( X ( 006 002 M S E A T 006
0056020 001 ) ) ) \r
0056040
0056060 ( R E
0056100 T U R N ( C O N D \r
0056120
*
0056160 ( (
0056200 N L I S T P X ) \r
0056220
*
0056260 X )
0056300 \r
0056320
*
0056360 ( ( E Q ( C A R X )
0056400 \r
0056420
*
0056460 ' L A M B D A
0056500 ) \r
0056520
*
0056560 X ) \r
0056600
*
0056640 ( T (
0056660 L I S T ' L A M B D A ' ( X
0056700 ) X ] \r
0056720 [ ( S E E K W O
0056740 R D O N P A T H ) \r
0056760 (
0057000 006 002 c r e a t e 006 001 P A T H S
0057020 \r
0057040 M S P A
0057060 T H O P T I O N S _ ( O R
0057100 ( M S S E E K M S P A T H O P
0057120 T I O N S T ) \r
0057140
*
0057200 ( 006 002 M S C A N
0057220 T 006 001 ] \r
0057240 [ ( M S S E E K
0057260 M S V E R B I N G ) \r
0057300
0057320 ( 006 002 c r e a t e 006 001 T H A
0057340 T \r
0057360 M S V
0057400 E R B _ L A S T P A R S E D
0057420 \r
0057440 O T H E
0057460 R S E T _ ( O R ( M S S E
0057500 E K M S S E T P H R A S E ) \r
0057520
*
0057560 ( 006 002 M S C
0057600 A N T 006 001 ] \r
0057620 ( ( M S S E
0057640 E K M S V E R B E D ) ) \r
0057660
0057700 [ ( A N D ( E Q S E T T Y
0057720 P E ' F I E L D S ) \r
0057740
0057760 ( S E E K W O R D O
0060000 F ) ) \r
0060020 ( 006 002 c r e a t
0060040 e 006 001 F I E L D S \r
0060060
0060100 R E C S _ ( O R
0060120 ( M S S E E K M S S E T P H
0060140 R A S E R E C O R D S ) \r
0060160
*
0060220 ( 006 002 M S C A N T 006 001 ]
0060240 \r
0060260 [ ( S E E K W O R D L
0060300 I K E ) \r
0060320 ( 006 002 c r e a
0060340 t e 006 001 A P P L Y \r
0060360
0060400 P R E D _ ( P R
0060420 O G [ ( P A T ( E D I T F P
0060440 A T ( 006 002 M S E A T 006 001 ] \r
0060460
*
0060520 ( S E T Q E D I
0060540 T Q U I E T F L G T ) \r
0060560
*
0060620 ( R E T U R N ( L I
0060640 S T ' L A M B D A ' ( X )
0060660 ( L I S T ' E D I T 4 E ( K
0060700 W O T E P A T ) \r
0060720
*
0061020 ' X ] \r
0061040 ( ( S E E K
0061060 W O R D T H O S E ) \r
0061100
0061120 ( 006 002 c r e a t e 006 001 I N \r
0061140
0061160 E X P R E S
0061200 S I O N _ ' M S T H O S E )
0061220 ) \r
0061240 ( ( S E E K W O R D
0061260 K N O W N ) \r
0061300 ( 006 002 c r
0061320 e a t e 006 001 T H A T \r
0061340
0061360 M S V E R B _
0061400 ( 006 002 c r e a t e 006 001 M S V E
0061420 R B \r
0061440
0061460 R O
0061500 O T _ ' I S \r
0061520
*
0061560 M O D I F I E R _ '
0061600 K N O W N ) \r
0061620
0061640 O T H E R S E T _ ( 006 002
0061660 c r e a t e 006 001 M S S E T P H
0061700 R A S E ) ) ) \r
0061720 ( ( A N D
0061740 L I S T O K F L G ( N O T A
0061760 N Y S ( F U N C T I O N M
0062000 S W O R D ? ) ) ) \r
0062020 ( P
0062040 R O G 1 ( 006 002 c r e a t e 006 001
0062060 Q U O T E \r
0062100
0062120 Q U O T E D
0062140 _ S ) \r
0062160
0062200 ( S E T Q S ) ) ) \r
0062220 ( (
0062240 M S S E E K M S B L O C K ) )
0062260 \r
0062300 [ ( O R ( S E E K W O
0062320 R D T H A T ) \r
0062340
0062360 ( A N D ( O R S E T D E T
0062400 S E T T Y P E ) \r
0062420
0062440 ( S E E K W O R D
0062460 W H O W H I C H ) ) ) \r
0062500
0062520 ( 006 002 f e t c h 006 001 R E P
0062540 006 002 o f 006 001 ( O R ( M S S
0062560 E E K M S P R E D ) \r
0062600
*
0062640 ( 006 002 M S C A N T 006 001 ] \r
0062660
0062700 ( [ C O N D \r
0062720
0062740 ( ( E Q S E T D E T ' T H E
0062760 ) ) \r
0063000 ( ( A N D
0063020 ( N U L L S E T D E T ) \r
0063040
0063060 ( O R (
0063100 N U L L S E T T Y P E ) \r
0063120
0063140 (
0063160 L I S T P S E T T Y P E ) ) )
0063200 \r
0063220 ( C O N D \r
0063240
0063260 ( ( 006 002 M S
0063300 W O R D ? 006 001 ( 006 002 M S N E X
0063320 T W O R D 006 001 ) ) \r
0063340
0063360 ( A N D ( L I S T
0063400 P S P E L L I N G ) \r
0063420
0063440 ( 006 002
0063460 M S T R Y S P E L L 006 001 ( C O
0063500 N S ( C A R S ) \r
0063520
*
0063560 ( K
0063600 W O T E ( C A R S ) ) ) \r
0063620
*
0063660 S ) ) \r
0063700
0063720 N I L ) \r
0063740
0063760 ( T T ] \r
0064000
0064020 ( 006 002 M S Q U O T E D 006 001 ] \r
0064040 ( R E T U R
0064060 N ( C O N D \r
0064100 ( N E
0064120 G ( 006 002 c r e a t e 006 001 N O
0064140 T \r
0064160
0064200 N E G A T E D _ ( 006 002
0064220 c r e a t e 006 001 M S S E T P H
0064240 R A S E \r
0064260
*
0064320 R E P _ V A L
0064340 ) ) ) \r
0064360 ( T V A L ]
0064400 ) \r \r ( 006 004 M S S E E K P H R A
0064420 S E 006 001 \r [ L A M B D A (
0064440 S O U G H T F O R C O N J U N
0064460 C T I O N ) 006 006 006 001
0064500
0064520 006 006 ( * ; " E d
0064540 i t e d 2 5 - N o v - 8 6 2
0064560 1 : 0 8 b y l m m " ) 006 001 \r
0064600 ( P R O G ( ( O S S
0064620 ) \r ( O L
0064640 A L A S T A D V E R B ) \r
0064660 ( O R S R E
0064700 S E T S ) \r
0064720 ( O C C O N J U N C T I O N
0064740 S ) \r ( O
0064760 P P A R S E D ) \r
0065000 T H I S \r
0065020 ( S E E K I N G ( C
0065040 O N S ( 006 002 c r e a t e 006 001
0065060 P A R S E D \r
0065100
0065120 S O U G H T _
0065140 S O U G H T ) \r
0065160
0065200 S E E K I N G ) ) ) \r
0065220 ( S E T Q T H
0065240 I S ( C A R S E E K I N G )
0065260 ) \r ( S E T
0065300 Q L A S T P A R S E D ) \r
0065320 L P [ C O N D \r
0065340 ( ( L I S
0065360 T P ( 006 002 M S N E X T W O R D
0065400 006 001 ) ) \r
0065420 ( C O N D \r
0065440 ( [ P R O G
0065460 ( ( S ( 006 002 M S N E X T W O
0065500 R D 006 001 ) ) \r
0065520
0065540 ( S E E K I N G ) ) \r
0065560
0065600 ( R E T U R N ( A N D
0065620 [ S E T Q L A S T P A R S E D
0065640 ( 006 002 M S S E E K P H R A S E
0065660 006 001 ( C O N D \r
0065700
*
0066000 ( ( E Q ( C A R S O U G H T
0066020 ) \r
0066040
*
0066120 ' M
0066140 S S E T R E P ) \r
0066160
*
0066260 ( L I S T ' M S S E T R E P
0066300 T ) ) \r
0066320
*
0066400 ( T S
0066420 O U G H T ] \r
0066440
0066460 ( N O T
0066500 ( 006 002 M S N E X T W O R D 006 001
0066520 ] \r
0066540 ( S E T Q S ( C D R
0066560 S ) ) \r
0066600 ( G O G O T I T
0066620 ] \r ( O R
0066640 ( S E T Q L A S T P A R S E D
0066660 ( 006 002 M S T R Y P A R S E 006 001
0066700 ( C A R S O U G H T ) \r
0066720
*
0066760 ( C D R S O U G H T )
0067000 ) ) \r
0067020 ( G O M S F A I L ) ) \r
0067040 G O T I T \r
0067060 ( 006 002 r e p l a c e 006 001
0067100 I T E M 006 002 o f 006 001 T H I
0067120 S 006 002 w i t h 006 001 L A S T P
0067140 A R S E D ) \r
0067160 ( S E T Q P A R S E D ( C
0067200 O N S T H I S P A R S E D )
0067220 ) \r [ C O N
0067240 D \r (
0067260 ( A N D ( N O T F O R C O N
0067300 J U N C T I O N ) \r
0067320 ( F M
0067340 E M B ( C A R S O U G H T )
0067360 \r
0067400 C O N J U
0067420 N C T A B L E ) ) \r
0067440 ( P R O G ( L
0067460 A S T P A R S E D O L D S T
0067500 E M C ( S K S E E K I N G
0067520 ) \r
0067540 ( M A
0067560 R K E R ( C O N S ) ) ) \r
0067600 L P
0067620 ( 006 002 M S N E X T W O R D 006
0067640 001 ) \r \r
0067660 006 006 ( * S o
0067700 t h a t S w o n ' t b e
0067720 r e s e t t o s o m e t h i
0067740 n g b e f o r e a a d v e
0067760 r b ) 006 001 \r \r
0070000 ( S E T Q
0070020 O L D S S ) \r
0070040 [ C O
0070060 N D \r
0070100 ( ( S E T Q
0070120 C ( 006 002 M S S E E K T Y P E
0070140 006 001 ' C ) ) \r
0070160
0070200 [ C O N D \r
0070220
0070240 ( ( E Q C ' A N D ) \r
0070260
0070300 ( A N D (
0070320 S E E K W O R D N O T ) \r
0070340
0070360 (
0070400 S E T Q Q C A N D N O T ] \r
0070420
0070440 ( C O N D \r
0070460
0070500 ( ( S E T Q
0070520 T E M ( 006 002 M S S E E K P H R
0070540 A S E 006 001 ( C O N D \r
0070560
*
0070640 ( ( E Q ( C A R S O U
0070660 G H T ) \r
0070700
*
0070760 ' M S S E T P H R A S E ) \r
0071000
*
0071060 006 006 ( *
0071100 k l u d g e . I m p l i c i
0071120 t t y p e s s h o u l d n
0071140 o t \r 006 001
0071160
*
0071240 006 006 c a r r y a l o n g
0071260 ) 006 001 \r
0071300
*
0071340 ' ( 006 002
0071360 M S S E T P H R A S E 006 001 ) ) \r
0071400
*
0071460 ( T S O U G H T
0071500 ) ) \r
0071520
*
0071560 T ) ) \r
0071600
0071620 ( S E T Q C O N J U N C T I O
0071640 N S ( C O N S ( 006 002 c r e a
0071660 t e 006 001 C O N J U N C T I O N
0071700 \r
0071720
*
0071760 C _
0072000 C \r
0072020
*
0072060 P
0072100 A R S E D _ ( C A R P A R
0072120 S E D ) \r
0072140
*
0072220 P O S S I B L E S _ S K \r
0072240
*
0072320 S T A R
0072340 T _ M A R K E R ) \r
0072360
*
0072440 C O N J U N C T I O N S ) ) \r
0072460
0072500 ( G O
0072520 L P ) ) \r
0072540
0072560 ( T ( S E T Q S O L D S ]
0072600 \r
0072620 ( 006 002 f o r 006 001 X
0072640 006 002 i n 006 001 C O N J U N C T I
0072660 O N S 006 002 w h e n 006 001 ( E Q
0072700 ( 006 002 f e t c h 006 001 S T A R
0072720 T 006 002 o f 006 001 X ) \r
0072740
*
0073020 M A R K E R ) \r
0073040 006
0073060 002 d o 006 001 ( 006 002 r e p l a c e
0073100 006 001 S T A R T 006 002 o f 006 001
0073120 X 006 002 w i t h 006 001 S ] \r
0073140 ( 006 002 r e p l a
0073160 c e 006 001 E N D I N G 006 002 o f
0073200 006 001 T H I S 006 002 w i t h 006 001
0073220 S ) \r ( R
0073240 E T U R N L A S T P A R S E D
0073260 ) \r M S F A I L \r
0073300 ( S E T Q S
0073320 O S ) \r (
0073340 S E T Q L A S T A D V E R B
0073360 O L A ) \r (
0073400 S E T Q C O N J U N C T I O N
0073420 S O C ) \r
0073440 ( S E T Q P A R S E D O P )
0073460 \r ( 006 002 w h
0073500 i l e 006 001 ( N E Q R E S E T
0073520 S O R S ) 006 002 d o 006 001 ( 006
0073540 002 r e p l a c e 006 001 ( 006 002 M S
0073560 V E R B 006 001 M O D I F I E R )
0073600 006 002 o f 006 001 ( C A R R E S
0073620 E T S ) 006 002 w i t h 006 001 N I
0073640 L ) \r
0073660
0073700 ( S E T Q R E
0073720 S E T S ( C D R R E S E T S
0073740 ] ) \r \r ( 006 004 M S T Y P E M A T
0073760 C H R A T I N G 006 001 \r [ L A
0074000 M B D A ( X Y ) 006 006 006 001
0074020
*
0074060 006 006 ( *
0074100 ; " E d i t e d 2 5 - N o
0074120 v - 8 6 2 1 : 0 8 b y l m
0074140 m " ) 006 001 \r
0074160 \r 006 006 ( *
0074200 R e t u r n s t h e N E G A
0074220 T I V E o f a r a t i n g
0074240 o f h o w m u c h t w o
0074260 t y p e s a g r e e ; \r 006 001
0074300 006 006 t h e
0074320 v a l u e s w i l l b e s
0074340 o r t e d a n d t h e m i
0074360 n i m u m t a k e n ) 006 001 \r \r
0074400 ( C O N D \r
0074420 ( [ O R ( N U L L X ) \r
0074440 ( N U L L
0074460 Y ) \r
0074500 ( E Q ( C O N D \r
0074520 ( ( L
0074540 I S T P X ) \r
0074560 ( S E T
0074600 Q X ( C A R X ) ) ) \r
0074620
0074640 ( T X ) ) \r
0074660 ( C O N D \r
0074700
0074720 ( ( L I S T P Y ) \r
0074740
0074760 ( S E T Q Y ( C A R Y ) )
0075000 ) \r
0075020 ( T Y ) ) ) \r
0075040 ( A N D ( E
0075060 Q X ' K N O W N ) \r
0075100 ( E Q
0075120 Y ' F N S ) ) \r
0075140 ( A N D ( E Q Y
0075160 ' K N O W N ) \r
0075200 ( E Q X
0075220 ' F N S ] \r - 1
0075240 0 0 ) \r ( T 0 ]
0075260 ) \r \r ( 006 004 M S T R Y S P E L L
0075300 006 001 \r [ L A M B D A ( W O
0075320 R D T A I L ) 006 006 006 001
0075340
*
0075400 006 006 ( * ; " E d i t
0075420 e d 2 5 - N o v - 8 6 2 1 :
0075440 0 8 b y l m m " ) 006 001 \r
0075460 [ A N D T A I L ( N L I
0075500 S T P ( C A R T A I L ) ) \r
0075520 ( L I S T P
0075540 S P E L L I N G ) \r
0075560 ( P R O G [ ( P T R (
0075600 O R ( F A S S O C T A I L
0075620 S P E L L I N G ) \r
0075640
0075660 ( C A R ( S E T Q S P
0075700 E L L I N G ( C O N S ( L I
0075720 S T T A I L ) \r
0075740
*
0076000 S P E L
0076020 L I N G ] \r
0076040 L P ( C O N D \r
0076060 ( ( N
0076100 U L L ( C D R P T R ) ) \r
0076120
0076140 ( F R P L A C D P T R (
0076160 L I S T W O R D ) ) ) \r
0076200 (
0076220 ( N E Q ( C A R ( S E T Q
0076240 P T R ( C D R P T R ) ) ) \r
0076260
0076300 W O R D ) \r
0076320
0076340 ( G O L P ] \r N I L
0076360 ] ) \r \r ( 006 004 M S T R Y P A R S
0076400 E 006 001 \r [ L A M B D A ( F
0076420 N A R G S ) 006 006 006 001
0076440
*
0076500 006 006 ( * ; " E d i
0076520 t e d 2 5 - N o v - 8 6 2 1
0076540 : 0 8 b y l m m " ) 006 001 \r
0076560
*
0076640 006 006 ( *
0076660 l m m % : 1 7 - F E B - 7 6
0076700 2 0 4 9 ) 006 001 \r
0076720 \r 006
0076740 006 ( * M S C A N T d o e s
0076760 a R E T F R O M ( M S T R Y
0077000 P A R S E ) % . T h e i d e
0077020 a i s t h a t , n o m a
0077040 t t e r h o w d e e p l y
0077060 \r 006 001 006 006 e
0077100 m b e d d e d p a r s e r i
0077120 s i n a p a r t i c u l a
0077140 r S E E K , t h e M S C A
0077160 N T w i l l b a c k u p
0077200 t o t h e c u r r e n t \r
0077220 006 001 006 006 a t
0077240 t ) 006 001 \r \r ( B L K A P
0077260 P L Y F N A R G S ] ) \r \r (
0077300 006 004 M S C O M M A N D 006 001 \r
0077320 [ L A M B D A ( T E M ) 006 006 006
0077340 001
0077360
0077400 006
0077420 006 ( * ; " E d i t e d 1 2
0077440 - J a n - 8 7 1 6 : 1 7 b y
0077460 j d s " ) 006 001 \r ( C O
0077500 N D \r ( ( S E E K
0077520 W O R D D E S C R I B E ) \r
0077540 ( C O N S L A S
0077560 T P A R S E D ( M S S E E K
0077600 M S S E T P H R A S E F N S
0077620 T ) ) ) \r ( ( S E
0077640 E K W O R D A N A L Y Z E R
0077660 E A N A L Y Z E ) \r
0077700 ( C O N S L A S T P A R S
0077720 E D ( M S S E E K M S S E T
0077740 P H R A S E F N S ) ) ) \r
0077760 ( ( S E E K W O R D
0100000 E R A S E F O R G E T ) \r
0100020 ( C O N S ' E R A
0100040 S E ( M S S E E K M S S E T
0100060 P H R A S E F N S ) ) ) \r
0100100 [ ( S E E K W O R D
0100120 S H O W ) \r ( C
0100140 O N D \r (
0100160 ( S E E K W O R D P A T H S )
0100200 \r ( C O
0100220 N S ' P A T H S ( M S S E E
0100240 K M S P A T H O P T I O N S )
0100260 ) ) \r [ (
0100300 M S S E E K M S V E R B S )
0100320
*
0100360 006 006 ( * e . g . S H O W U
0100400 S E O F X ) 006 001 \r
0100420 ( 006 002 c r e a t e
0100440 006 001 S E N T E N C E \r
0100460 I
0100500 D _ ' S H O W \r
0100520 M S P
0100540 R E D _ ( 006 002 c r e a t e 006
0100560 001 M S S E T P H R A S E \r
0100600
*
0100640 R E P _ ( 006 002 c r e a t e
0100660 006 001 T H A T \r
0100700
*
0100740 M S V E R B _
0100760 L A S T P A R S E D \r
0101000
*
0101040 O T H E
0101060 R S E T _ ( P R O G N ( O
0101100 R ( S E E K W O R D O F ) \r
0101120
*
0101220 ( 006 002 M S C A N T 006
0101240 001 ) ) \r
0101260
*
0101340 ( O R ( M S S E E
0101360 K M S S E T P H R A S E ) \r
0101400
*
0101500 ( 006 002 M S C A N T 006 001
0101520 ] \r ( T
0101540 ( S E E K W O R D W H E R E )
0101560 \r (
0101600 006 002 c r e a t e 006 001 S E N T E
0101620 N C E \r
0101640 I D _ ' S
0101660 H O W \r
0101700 S U B J E C T
0101720 _ ( O R ( M S S E E K M
0101740 S S E T P H R A S E ) \r
0101760
0102000 (
0102020 006 002 M S C A N T 006 001 ) ) \r
0102040
0102060 M S P R E D _ ( M S S E
0102100 E K M S P R E D ] \r
0102120 [ ( S E E K W O R D E D I
0102140 T ) \r ( S E E K
0102160 W O R D W H E R E ) \r
0102200 ( 006 002 c r e a t e 006 001
0102220 S E N T E N C E \r
0102240 I D _ ' E D
0102260 I T \r
0102300 S U B J E C T _ ( O R
0102320 ( M S S E E K M S S E T P H R
0102340 A S E ) \r
0102360
0102400 ( 006 002 M S C A N T 006 001 ) ) \r
0102420 M
0102440 S P R E D _ ( M S S E E K
0102460 M S P R E D ) \r
0102500 O T H E R S T U F
0102520 F _ ( C O N D \r
0102540
0102560 ( ( S E E K W
0102600 O R D 006 002 - 006 001 ) \r
0102620
0102640 ( P R O G
0102660 1 S ( S E T Q S ] \r
0102700 [ ( S E E K W O R D F
0102720 O R ) \r ( C O N
0102740 S ' F O R ( C O N S ( 006 002
0102760 M S E A T 006 001 ) \r
0103000
0103020 ( C O N S ' I N ( C O N
0103040 S ( O R ( M S S E E K M S
0103060 S E T P H R A S E ) \r
0103100
*
0103140 ( 006 002 M S C A N
0103160 T 006 001 ) ) \r
0103200
0103220 (
0103240 C O N D \r
0103260
*
0103320 ( ( E Q ( C A R ( G E T P
0103340 ( C A R S ) \r
0103360
*
0103440 ' C L I S P W O R D )
0103460 ) \r
0103500
*
0103540 ' F O R W O R D ) \r
0103560
*
0103620 ( P R O G 1
0103640 S ( S E T Q S N I L ) )
0103660 ) \r
0103700
0103720 ( T
0103740 ( 006 002 M S C A N T 006 001 ] \r
0103760 ( ( S E E K W O R D
0104000 C H E C K ) \r (
0104020 S E E K W O R D B L O C K S )
0104040 \r ( S E E K W O
0104060 R D O N ) \r (
0104100 C O N S ' C H E C K ( M S S
0104120 E E K M S S E T P H R A S E
0104140 F I L E S ) ) ) \r
0104160 [ ( S E E K W O R D A R E I
0104200 S )
0104220
0104240 006 006 ( * I S F O
0104260 O C A L L E D B Y X ) 006 001
0104300 \r ( 006 002 c r e a
0104320 t e 006 001 S E N T E N C E \r
0104340 I D
0104360 _ ' ? \r
0104400 S U B J E C T _ ( O
0104420 R ( M S S E E K M S S E T P
0104440 H R A S E ) \r
0104460
0104500 ( 006 002 M S C A N T 006 001 )
0104520 ) \r
0104540 M S P R E D _ ( O R ( 006
0104560 002 M S S E E K P H R A S E 006 001
0104600 ( L I S T ' M S S E T P H R A
0104620 S E ( 006 002 f e t c h 006 001 ( 006
0104640 002 M S S E T P H R A S E 006 001 T
0104660 Y P E ) 006 002 o f 006 001 L A S T
0104700 P A R S E D ) \r
0104720
*
0104760 ( 006 002 f e t c h
0105000 006 001 ( 006 002 M S S E T P H R A S
0105020 E 006 001 K N O W N ) 006 002 o f 006
0105040 001 L A S T P A R S E D ) ) ) \r
0105060
0105100 ( 006 002 M
0105120 S C A N T 006 001 ] \r
0105140 ( ( P R O G N ( S E T Q T E
0105160 M ( S E E K W O R D D O E S
0105200 D O ) ) \r
0105220 ( M S S E E K M S S
0105240 E T P H R A S E ) ) \r
0105260 ( 006 002 c r e a t e 006 001 S
0105300 E N T E N C E \r
0105320 I D _ ' ? \r
0105340 S U
0105360 B J E C T _ L A S T P A R S
0105400 E D \r
0105420 M S P R E D _ ( P R O G
0105440 ( ( T Y P E ( 006 002 f e t c h
0105460 006 001 ( 006 002 M S S E T P H R A S
0105500 E 006 001 T Y P E ) 006 002 o f 006 001
0105520 L A S T P A R S E D ) ) \r
0105540
0105560 ( K N
0105600 O W N ( 006 002 f e t c h 006 001 K
0105620 N O W N 006 002 o f 006 001 L A S T
0105640 P A R S E D ) ) \r
0105660
0105700 S E T ) \r
0105720
0105740 ( S E T Q
0105760 S E T ( O R ( M S S E E K
0106000 M S P R E D ) \r
0106020
*
0106060 ( A N D ( N O T T
0106100 E M ) \r
0106120
*
0106160 ( M S S E E K M S D
0106200 O E S ) ) \r
0106220
*
0106260 ( 006 002 M S C A N T 006 001 ) ) )
0106300 \r
0106320 (
0106340 C O N D \r
0106360
0106400 ( K N O W N ( 006 002
0106420 M S K N O W N 006 001 S E T ) ) \r
0106440
*
0106500 ( T Y P E ( 006 002 M S S E T S
0106520 E T T Y P E 006 001 S E T T Y P
0106540 E ) ) ) \r
0106560
0106600 ( R E T U R N S E T ] )
0106620 \r \r ( 006 004 M S S U B J T Y P E 006
0106640 001 \r [ L A M B D A ( 006 002 M
0106660 S V E R B 006 001 ) 006 006 006 001
0106700
*
0106740 006 006 ( * ; " E
0106760 d i t e d 2 5 - N o v - 8 6
0107000 2 1 : 0 8 b y l m m " ) 006 001
0107020 \r
0107040
*
0107100 006 006
0107120 ( * l m m % : 1 6 - D E C -
0107140 7 5 1 4 1 ) 006 001 \r (
0107160 C O N D \r [ ( 006 002
0107200 t y p e ? 006 001 C V E R B ( 006
0107220 002 f e t c h 006 001 V P A R T 006
0107240 002 o f 006 001 M S V E R B ) ) \r
0107260 ( 006 002 M S J O I N
0107300 006 001 ( 006 002 f e t c h 006 001 ( C
0107320 V E R B C ) 006 002 o f 006 001 (
0107340 006 002 f e t c h 006 001 V P A R T
0107360 006 002 o f 006 001 M S V E R B ) ) \r
0107400 (
0107420 006 002 M S S U B J T Y P E 006 001 (
0107440 006 002 f e t c h 006 001 ( C V E R B
0107460 V B 1 ) 006 002 o f 006 001 ( 006 002
0107500 f e t c h 006 001 V P A R T 006 002
0107520 o f 006 001 M S V E R B ) ) ) \r
0107540 ( 006
0107560 002 M S S U B J T Y P E 006 001 ( 006
0107600 002 f e t c h 006 001 ( C V E R B
0107620 V B 2 ) 006 002 o f 006 001 ( 006 002 f
0107640 e t c h 006 001 V P A R T 006 002 o
0107660 f 006 001 M S V E R B ] \r
0107700 ( ( E Q ( 006 002 f e t c h
0107720 006 001 ( 006 002 M S V E R B 006 001 R
0107740 O O T ) 006 002 o f 006 001 M S V E
0107760 R B ) \r
0110000 ' C O N T A I N ) \r
0110020 ' F I L E S ) \r
0110040 ( T ' K N O W N ] ) \r \r ( 006
0110060 004 M S O B J T Y P E 006 001 \r [
0110100 L A M B D A ( 006 002 M S V E R B
0110120 006 001 ) 006 006 006 001
0110140
*
0110200 006 006 ( * ; " E d i t e d
0110220 2 5 - N o v - 8 6 2 1 : 0 8
0110240 b y l m m " ) 006 001 \r
0110260 ( C O N D \r [ ( 006
0110300 002 t y p e ? 006 001 C V E R B (
0110320 006 002 f e t c h 006 001 V P A R T
0110340 006 002 o f 006 001 M S V E R B ) ) \r
0110360 ( 006 002 M S J O I
0110400 N 006 001 ( 006 002 f e t c h 006 001 (
0110420 C V E R B C ) 006 002 o f 006 001
0110440 ( 006 002 f e t c h 006 001 V P A R T
0110460 006 002 o f 006 001 M S V E R B ) )
0110500 \r
0110520 ( 006 002 M S O B J T Y P E 006 001 (
0110540 006 002 f e t c h 006 001 ( C V E R B
0110560 V B 1 ) 006 002 o f 006 001 ( 006 002
0110600 f e t c h 006 001 V P A R T 006 002
0110620 o f 006 001 M S V E R B ) ) ) \r
0110640 ( 006
0110660 002 M S O B J T Y P E 006 001 ( 006 002
0110700 f e t c h 006 001 ( C V E R B V
0110720 B 2 ) 006 002 o f 006 001 ( 006 002 f e
0110740 t c h 006 001 V P A R T 006 002 o f
0110760 006 001 M S V E R B ] \r
0111000 ( ( E Q ( 006 002 f e t c h 006
0111020 001 ( 006 002 M S V E R B 006 001 R O
0111040 O T ) 006 002 o f 006 001 M S V E R
0111060 B ) \r '
0111100 C A L L ) \r ' (
0111120 F N S ) ) \r ( ( E
0111140 Q ( 006 002 f e t c h 006 001 ( 006 002
0111160 M S V E R B 006 001 R O O T ) 006
0111200 002 o f 006 001 M S V E R B ) \r
0111220 ' C O N T A
0111240 I N ) \r N I L )
0111260 \r ( ( E Q ( 006 002
0111300 f e t c h 006 001 ( 006 002 M S V E R
0111320 B 006 001 R O O T ) 006 002 o f 006 001
0111340 M S V E R B ) \r
0111360 ' U S E ) \r
0111400 ( S E L E C T Q ( 006 002 f
0111420 e t c h 006 001 ( 006 002 M S V E R B
0111440 006 001 M O D I F I E R ) 006 002 o
0111460 f 006 001 M S V E R B ) \r
0111500 ( ( F R E E L Y
0111520 L O C A L L Y N I L ) \r
0111540
0111560 ' ( V A R S ) ) \r
0111600 ( ( R E C O R D S F
0111620 I E L D S P R O P N A M E S
0111640 I . S . O P R S ) \r
0111660 ( L I S
0111700 T ( 006 002 f e t c h 006 001 ( 006 002
0111720 M S V E R B 006 001 M O D I F I E
0111740 R ) 006 002 o f 006 001 M S V E R B
0111760 ) ) ) \r
0112000 ( S H O U L D N T ) ) ) \r
0112020 ( T ' ( V A R S ] ) \r
0112040 \r ( 006 004 M S V E R B 006 001 \r [
0112060 L A M B D A ( T E N S E ) 006 006
0112100 006 001
0112120
0112140 006 006
0112160 ( * ; " E d i t e d 2 5 -
0112200 N o v - 8 6 2 1 : 0 8 b y
0112220 l m m " ) 006 001 \r ( P R O
0112240 G ( ( R O O T ( 006 002 M S S E
0112260 E K T Y P E 006 001 T E N S E ) )
0112300 \r C ) \r
0112320 [ C O N D \r
0112340 ( ( N U
0112360 L L R O O T ) \r
0112400 ( C O N D \r
0112420 ( (
0112440 A N D ( E Q T E N S E ' E
0112460 D ) \r
0112500 ( S E E K W
0112520 O R D O N ) ) \r
0112540 ( S E T Q
0112560 S ( C O N S ' B Y S ) )
0112600 \r
0112620 ( S E T Q Q R O O T C
0112640 O N T A I N ) ) \r
0112660 ( T ( R E
0112700 T U R N ] \r
0112720 ( R E T U R N ( 006 002 c r e a t
0112740 e 006 001 M S V E R B \r
0112760
0113000 R O O T _ R O O T \r
0113020
0113040 T E N S E _
0113060 T E N S E \r
0113100
0113120 M O D I F I E R _ ( C O N D
0113140 \r
0113160
0113200 ( ( A N D L A
0113220 S T A D V E R B ( F M E M B
0113240 R O O T ( C D R L A S T A D
0113260 V E R B ) ) ) \r
0113300
*
0113340 ( P R O G 1 ( C A R L A S T
0113360 A D V E R B ) \r
0113400
*
0113440 ( S E T Q L A S
0113460 T A D V E R B N I L ] ) \r \r (
0113500 006 004 M S S P L S T 006 001 \r [ L
0113520 A M B D A N I L 006 006 006 001
0113540
*
0113600 006 006 (
0113620 * ; " E d i t e d 2 5 - N
0113640 o v - 8 6 2 1 : 0 8 b y l
0113660 m m " ) 006 001 \r ( O R M
0113700 S S P L S T ( P R O G N ( S
0113720 E T Q M S S P L S T ' ( 006 002
0113740 A S 006 001 006 002 F O R 006 001 ) ) \r
0113760
0114000 [ M A P H A S H M
0114020 S W O R D S ( F U N C T I O N
0114040 ( L A M B D A ( M E A N I N
0114060 G W O R D ) \r
0114100
*
0114140 ( A N D
0114160 [ 006 002 f i n d 006 001 Y 006 002 i
0114200 n 006 001 M E A N I N G \r
0114220
*
0114300 006 002 s u c h t h
0114320 a t 006 001 ( F M E M B ( C A R
0114340 Y ) \r
0114360
*
0114460 ' ( V P H R A S E ] \r
0114500
*
0114560 ( S E T Q M S S P L
0114600 S T ( C O N S W O R D M S
0114620 S P L S T ] \r
0114640 M S
0114660 S P L S T ] ) \r \r ( 006 004 M S W O
0114700 R D ? 006 001 \r [ L A M B D A
0114720 ( X ) 006 006 006 001
0114740
*
0115000 006 006 ( * ; " E
0115020 d i t e d 2 5 - N o v - 8 6
0115040 2 1 : 0 8 b y l m m " ) 006 001
0115060 \r
0115100
*
0115140 006 006
0115160 ( * l m m % : 2 4 - J A N -
0115200 7 6 6 1 4 ) 006 001 \r (
0115220 O R ( N O T ( L I T A T O M
0115240 X ) ) \r ( G E
0115260 T H A S H X M S W O R D S ]
0115300 ) \r \r ( 006 004 M S S E E K - W O R
0115320 D 006 001 \r [ L A M B D A ( L
0115340 S T ) 006 006 006 001
0115360
*
0115420 006 006 ( * ; " E d i
0115440 t e d 2 5 - N o v - 8 6 2 1
0115460 : 0 8 b y l m m " ) 006 001 \r
0115500 ( L E T ( F N D ) \r
0115520 ( C O N D \r
0115540 ( ( S E T Q
0115560 F N D ( C L : M E M B E R (
0115600 006 002 M S N E X T W O R D 006 001 ) \r
0115620
0115640 L S
0115660 T : T E S T ' S T R I N G .
0115700 E Q U A L ) ) \r
0115720 ( S E T Q L A S T P
0115740 A R S E D ( C A R F N D ) )
0115760 \r ( S
0116000 E T Q S ( C D R S ) ) \r
0116020 L A S T
0116040 P A R S E D ) \r
0116060 ( [ A N D ( L I S T P
0116100 S P E L L I N G ) \r
0116120 ( L I
0116140 S T P S ) \r
0116160 ( N O T ( 006
0116200 002 M S W O R D ? 006 001 ( C A R
0116220 S ] \r
0116240 ( M A P C L S T ( F U N C T
0116260 I O N ( L A M B D A ( W O R
0116300 D ) \r
0116320
0116340 ( 006 002 M S T R Y S P
0116360 E L L 006 001 W O R D S ] ) \r \r
0116400 ( 006 004 M S S E E K T Y P E 006 001 \r
0116420 [ L A M B D A ( T Y P E )
0116440 006 006 006 001
0116460
*
0116520 006 006 ( * ; " E d i t e d
0116540 2 5 - N o v - 8 6 2 1 : 0 8
0116560 b y l m m " ) 006 001 \r
0116600
*
0116660 006 006 ( * l m m
0116700 % : 2 4 - J A N - 7 6 6 4
0116720 5 ) 006 001 \r ( C O N D \r
0116740 ( ( S E T Q L A S
0116760 T P A R S E D ( G E T W O R D
0117000 T Y P E ( 006 002 M S N E X T W O
0117020 R D 006 001 ) \r
0117040
0117060 T Y P E ) ) \r
0117100 ( S E T Q S ( C D
0117120 R S ) ) \r L A
0117140 S T P A R S E D ) \r
0117160 ( ( L I S T P S P E L L I N
0117200 G ) \r ( 006 002 M S
0117220 T R Y S P E L L T Y P E 006 001 T
0117240 Y P E ] ) \r \r ( 006 004 M S R E S P
0117260 E L L 006 001 \r [ L A M B D A
0117300 ( W O R D T A I L S P L S T
0117320 ) 006 006 006 001
0117340
0117360 006 006 ( * ; " E
0117400 d i t e d 2 5 - N o v - 8 6
0117420 2 1 : 0 8 b y l m m " ) 006 001
0117440 \r
0117460
*
0117520 006 006
0117540 ( * l m m % : 2 2 - F E B -
0117560 7 6 3 6 ) 006 001 \r ( A
0117600 N D ( L I T A T O M W O R D
0117620 ) \r W O R D \r
0117640 ( S E T Q S
0117660 P L S T ( C H O O Z W O R D
0117700 7 0 S P L S T T A I L ) )
0117720 \r [ C O N D \r
0117740 [ ( L I
0117760 T A T O M S P L S T ) \r
0120000 ( C O N D \r
0120020
0120040 ( ( N E Q S P L S T W O R D
0120060 ) \r
0120100 ( S E T Q S P L S T (
0120120 C O N S N I L ( F R P L A C
0120140 A T A I L S P L S T ] \r
0120160 [ ( L I S T
0120200 P ( C D R S P L S T ) )
0120220
0120240 006 006 ( *
0120260 A l i a s ) 006 001 \r
0120300 ( S E T Q S P L S
0120320 T ( C O N S N I L ( F R P
0120340 L A C A T A I L ( C A R (
0120360 F L A S T S P L S T ] \r
0120400 ( ( C A R S
0120420 P L S T ) \r
0120440 ( S E T Q S P L S T (
0120460 F R P L N O D E T A I L ( C
0120500 A R S P L S T ) \r
0120520
0120540 ( C O N S
0120560 ( C D R S P L S T ) \r
0120600
*
0120640 ( C D R T A I L ] \r
0120660 S P L S T ] ) \r \r (
0120700 006 004 M S J O I N 006 001 \r [ L A
0120720 M B D A ( C X Y ) 006 006 006 001
0120740
*
0121000 006 006 ( *
0121020 ; " E d i t e d 2 5 - N o
0121040 v - 8 6 2 1 : 0 8 b y l m
0121060 m " ) 006 001 \r ( C O N D \r
0121100 ( ( O R ( E Q
0121120 X Y ) \r
0121140 ( N U L L Y ) ) \r
0121160 X ) \r ( ( N
0121200 U L L X ) \r Y
0121220 ) \r ( T ( U N I
0121240 O N ( M K L I S T X ) \r
0121260 (
0121300 M K L I S T Y ] ) \r \r ( 006 004 M
0121320 S S I M P L E S E T 006 001 \r [
0121340 L A M B D A ( X ) 006 006 006 001
0121360
*
0121420 006 006
0121440 ( * ; " E d i t e d 1 2 -
0121460 J a n - 8 7 1 3 : 4 7 b y
0121500 j d s " ) 006 001 \r ( O R
0121520 ( N U L L X ) \r
0121540 ( A N D ( E Q ( 006 002 f e t
0121560 c h 006 001 ( S E N T E N C E I
0121600 D ) 006 002 o f 006 001 X ) \r
0121620 ' Q
0121640 U O T E ) \r
0121660 ( O R ( N L I S T P (
0121700 006 002 f e t c h 006 001 Q U O T E D
0121720 006 002 o f 006 001 X ) ) \r
0121740 ( N U
0121760 L L ( C D R ( 006 002 f e t c h
0122000 006 001 Q U O T E D 006 002 o f 006 001
0122020 X ] ) \r \r ( 006 004 M S M A T C H
0122040 R A T I N G 006 001 \r [ L A M B
0122060 D A ( X Y C O N J ) 006 006 006
0122100 001
0122120
0122140 006 006 ( * ;
0122160 " E d i t e d 1 2 - J a n -
0122200 8 7 0 1 : 2 8 b y j d s "
0122220 ) 006 001 \r ( I P L U S (
0122240 C O N D \r
0122260 ( ( E Q U A L ( 006 002 f e
0122300 t c h 006 001 S O U G H T 006 002 o
0122320 f 006 001 X ) \r
0122340 ( 006 002
0122360 f e t c h 006 001 S O U G H T 006
0122400 002 o f 006 001 Y ) ) \r
0122420 - 2 0 0 ) \r
0122440 ( T
0122460 0 ) ) \r (
0122500 S E L E C T Q ( C A R ( 006 002
0122520 f e t c h 006 001 S O U G H T 006
0122540 002 o f 006 001 X ) ) \r
0122560 ( M S V E R B
0122600 ( C O N D \r
0122620
0122640 [ ( E Q U A L ( C D R ( 006
0122660 002 f e t c h 006 001 S O U G H T
0122700 006 002 o f 006 001 X ) ) \r
0122720
0122740 ( C D
0122760 R ( 006 002 f e t c h 006 001 S O U
0123000 G H T 006 002 o f 006 001 Y ) ) ) \r
0123020
0123040 ( I P L U
0123060 S ( 006 002 M S T Y P E M A T C H
0123100 R A T I N G 006 001 ( 006 002 M S S U
0123120 B J T Y P E 006 001 ( 006 002 f e t c
0123140 h 006 001 I T E M 006 002 o f 006 001
0123160 X ) ) \r
0123200
0123220 ( 006 002
0123240 M S S U B J T Y P E 006 001 ( 006 002
0123260 f e t c h 006 001 I T E M 006 002 o
0123300 f 006 001 Y ) ) ) \r
0123320
0123340 ( 006 002 M S
0123360 T Y P E M A T C H R A T I N G 006
0123400 001 ( 006 002 M S O B J T Y P E 006 001
0123420 ( 006 002 f e t c h 006 001 I T E M
0123440 006 002 o f 006 001 X ) ) \r
0123460
*
0123520 ( 006 002 M S O B J T Y P
0123540 E 006 001 ( 006 002 f e t c h 006 001 I
0123560 T E M 006 002 o f 006 001 Y ] \r
0123600
0123620 ( T 1 0 0 ) )
0123640 ) \r
0123660 ( M S S E T P H R A S E ( I
0123700 P L U S ( C O N D \r
0123720
*
0123760 ( ( E Q U A L ( 006 002 f e t c
0124000 h 006 001 ( 006 002 M S S E T P H R A
0124020 S E 006 001 T Y P E ) 006 002 o f 006
0124040 001 ( 006 002 f e t c h 006 001 I T E
0124060 M 006 002 o f 006 001 X ) ) \r
0124100
*
0124140 ( 006 002 f e
0124160 t c h 006 001 ( 006 002 M S S E T P H
0124200 R A S E 006 001 T Y P E ) 006 002 o
0124220 f 006 001 ( 006 002 f e t c h 006 001 I
0124240 T E M 006 002 o f 006 001 Y ) ) ) \r
0124260
*
0124320 - 1 0 0 ) \r
0124340
*
0124400 ( T 0 ) ) \r
0124420
0124440 ( C O
0124460 N D \r
0124500
0124520 ( [ O R ( 006
0124540 002 M S S I M P L E S E T 006 001 (
0124560 006 002 f e t c h 006 001 R E P 006 002
0124600 o f 006 001 ( 006 002 f e t c h 006 001
0124620 I T E M 006 002 o f 006 001 X ) ) )
0124640 \r
0124660
0124700 ( 006 002 M
0124720 S S I M P L E S E T 006 001 ( 006 002
0124740 f e t c h 006 001 R E P 006 002 o f
0124760 006 001 ( 006 002 f e t c h 006 001 I T
0125000 E M 006 002 o f 006 001 Y ] \r
0125020
*
0125060 ( S E L E C T Q C O N
0125100 J \r
0125120
0125140 ( O R
0125160 5 0 ) \r
0125200
*
0125240 6 0 0 ) ) \r
0125260
0125300 ( T 0
0125320 ) ) ) ) \r
0125340 T ] ) \r \r ( 006 004 M S V E
0125360 R B E D 006 001 \r [ L A M B D A
0125400 N I L 006 006 006 001
0125420
*
0125460 006 006 ( * ; "
0125500 E d i t e d 2 5 - N o v - 8 6
0125520 2 1 : 0 8 b y l m m " ) 006
0125540 001 \r \r
0125560 006 006 ( * H a n d
0125600 l e d s e p a r a t e l y S
0125620 O L E L Y f o r t h e v e
0125640 r b S E T , w h i c h i s
0125660 b o t h p r e s e n t a n
0125700 d p a s t \r 006 001
0125720 006 006 t e n s e ) 006 001 \r \r
0125740 ( A N D ( M S S E E K
0125760 M S V E R B E D ) \r
0126000 ( 006 002 c r e a t e 006 001
0126020 T H A T \r
0126040 M S V E R B _ L
0126060 A S T P A R S E D \r
0126100 O T H E R S
0126120 E T _ ( C O N D \r
0126140
0126160 ( ( S E E K W
0126200 O R D B Y I N ) \r
0126220
0126240 ( O R ( M
0126260 S S E E K M S S E T P H R A S
0126300 E ) \r
0126320
0126340 ( 006 002 M S C A N T 006
0126360 001 ) ) ) \r
0126400
0126420 ( ( 006 002 M S N E X T W O R
0126440 D 006 001 ) \r
0126460
0126500 ( 006 002 M S C A N T 006 001 )
0126520 ) \r
0126540
0126560 ( T
0126600 006
0126620 006 ( * S e t p h r a s e o f
0126640 A N Y ) 006 001 \r
0126660
0126700 ( 006 002 c r e a
0126720 t e 006 001 M S S E T P H R A S E
0126740 \r
0126760
0127000 D E T _ '
0127020 A N Y ] ) \r \r ( 006 004 M S C A N T
0127040 006 001 \r [ L A M B D A N I L
0127060 006 006 006 001
0127100
*
0127140 006 006 ( * ; " E d i t
0127160 e d 2 5 - N o v - 8 6 2 1 :
0127200 0 8 b y l m m " ) 006 001 \r
0127220 ( R E T F R O M ' M S T R
0127240 Y P A R S E ] ) \r \r ( 006 004 M S J
0127260 O I N D E T S 006 001 \r [ L A M
0127300 B D A ( C X Y ) 006 006 006 001
0127320
*
0127360 006 006 ( *
0127400 ; " E d i t e d 2 5 - N o v
0127420 - 8 6 2 1 : 0 8 b y l m m
0127440 " ) 006 001 \r ( C O N D \r
0127460 ( ( N U L L X ) \r
0127500 Y ) \r
0127520 ( ( N U L L Y ) \r
0127540 X ) \r ( (
0127560 E Q X Y ) \r
0127600 X ) \r ( ( O R (
0127620 E Q X ' W H I C H ) \r
0127640 ( E Q Y '
0127660 W H I C H ) ) \r
0127700 ' W H I C H ) \r (
0127720 T ( S H O U L D N T ] ) \r \r (
0127740 006 004 M S N E G A T E S E T 006 001 \r
0127760 [ L A M B D A ( X ) 006 006 006
0130000 001
0130020
*
0130060 006 006 ( * ; " E d i t e d
0130100 2 5 - N o v - 8 6 2 1 : 0 8
0130120 b y l m m " ) 006 001 \r (
0130140 006 002 r e p l a c e 006 001 ( 006 002 M
0130160 S S E T P H R A S E 006 001 R E P
0130200 ) 006 002 o f 006 001 X 006 002 w i t
0130220 h 006 001 ( 006 002 c r e a t e 006 001
0130240 N O T \r
0130260
*
0130320 N E G A T E D _ ( 006
0130340 002 c r e a t e 006 001 M S S E T P
0130360 H R A S E \r
0130400
*
0130460 006 002 u s i n g 006 001 X R
0130500 E P _ ( 006 002 f e t c h 006 001
0130520 ( 006 002 M S S E T P H R A S E 006 001
0130540 R E P ) \r
0130560
*
0130660 006 002 o f 006 001 X ] ) \r \r
0130700 ( 006 004 M S N E X T W O R D 006 001 \r
0130720 [ L A M B D A N I L 006 006 006
0130740 001
0130760
*
0131020 006 006 ( * ; " E d i t e d
0131040 2 5 - N o v - 8 6 2 1 : 0 8
0131060 b y l m m " ) 006 001 \r
0131100
*
0131160 006 006 ( * l m m
0131200 % : 1 6 - M A R - 7 6 1 5
0131220 8 ) 006 001 \r ( P R O G (
0131240 T E M A D V ) \r L
0131260 P X [ C O N D \r
0131300 ( ( E Q N E X T W
0131320 O R D S ) \r
0131340 ( R E T U R N ( C A
0131360 R N E X T W O R D ] \r
0131400 ( C O N D \r
0131420 ( ( N U L L
0131440 ( C A R S ) ) \r
0131460 \r 006 006
0131500 ( * i . e . e i t h e r a
0131520 t e n d o f s e n t e n c
0131540 e o r a t a N I L ) 006 001
0131560 \r \r
0131600 ( R E T U R N N I L ) ) ) \r
0131620 ( C O N D \r
0131640 ( ( N E
0131660 Q S S E N T E N C E ) \r
0131700 \r
0131720 006 006 ( * N o a d v e r
0131740 b s o r A S w o r d s a
0131760 l l o w e d a t b e g i n n
0132000 i n g o f s e n t e n c e )
0132020 006 001 \r \r
0132040 ( C O N D \r
0132060 ( ( S E T Q
0132100 T E M ( G E T W O R D T Y P E
0132120 ( C A R S ) \r
0132140
0132160 ' V ) )
0132200
0132220 006 006 ( * V m e a
0132240 n s A D V E R B ) 006 001 \r
0132260 (
0132300 S E T Q A D V ( C A R T E
0132320 M ) ) \r
0132340 ( G O A D V ) ) )
0132360 \r (
0132400 S E L E C T Q ( S E T Q T E
0132420 M ( C A R S ) ) \r
0132440 ( ( A
0132460 S F O R ) \r
0132500 (
0132520 S E L E C T Q ( C A R ( S E
0132540 T Q S ( C D R S ) ) ) \r
0132560
0132600 ( ( A A N
0132620 )
0132640 006 006 ( *
0132660 S k i p o v e r A a n d
0132700 A N ) 006 001 \r
0132720
0132740 ( S E T Q S (
0132760 C D R S ) ) ) \r
0133000
0133020 N I L ) \r
0133040
0133060 ( 006 002 C H E C K S Y N O N Y M 006
0133100 001 ) \r
0133120 [ S E T Q
0133140 T E M ( O R ( G E T W O R D
0133160 T Y P E ( C A R S ) \r
0133200
*
0133240 T E M ) \r
0133260
*
0133320 ( C O N D \r
0133340
*
0133400 ( ( A N D ( E Q T E M '
0133420 A S ) \r
0133440
*
0133500 [ S O M E P A R S E D (
0133520 F U N C T I O N ( L A M B D A
0133540 ( X ) \r
0133560
*
0133640 ( E Q
0133660 ( C A R ( 006 002 f e t c h 006 001
0133700 ( P A R S E D S O U G H T \r
0133720
*
0134040 ) \r
0134060
*
0134200 006 002 o f 006 001 X ) ) \r
0134220
*
0134320 ' M S V E R B )
0134340 \r
0134360
*
0134440 ( E Q ( 006 002 f
0134460 e t c h 006 001 ( 006 002 M S V E R B
0134500 006 001 R O O T ) \r
0134520
*
0134620 006 002 o f 006 001 ( 006
0134640 002 f e t c h 006 001 ( P A R S E D
0134660 \r
0134700
*
0135000 I T E M ) \r
0135020
*
0135140 006 002 o f 006 001 X ) ) \r
0135160
*
0135260 ' C O N T A
0135300 I N ] \r
0135320
*
0135360 ( S E T Q T E M ( G E T
0135400 F I L E P K G T Y P E ( C A R
0135420 S ) \r
0135440
*
0135520 N I L T ) ) ) \r
0135540
*
0135600 [ 006 002 M S S E T W O R
0135620 D T Y P E 006 001 ( C A R S ) \r
0135640
*
0135720 ' A S \r
0135740
*
0136000 ( S E T Q T E M ( C
0136020 O N S T E M ' ( C O N T A I
0136040 N ] \r
0136060
0136100 T E M )
0136120 \r
0136140
0136160 ( T ( 006 002 M
0136200 S F A I L 006 001 T ] \r
0136220
0136240 ( S E T Q A D V ( C A R
0136260 T E M ) ) \r
0136300 ( G
0136320 O A D V ) ) \r
0136340 N I L ) ) )
0136360 \r ( C O N D
0136400 \r ( (
0136420 006 002 C H E C K S Y N O N Y M 006 001
0136440 ) \r
0136460 ( G O L P X ) ) ) \r
0136500 ( R E T U R N ( C A
0136520 R ( S E T Q N E X T W O R D
0136540 S ) ) ) \r A D V
0136560 ( S E T Q T E M ( C D R T
0136600 E M ) ) \r (
0136620 S E T Q S ( C D R S ) ) \r
0136640 ( 006 002 f o r
0136660 006 001 X 006 002 i n 006 001 P A R S
0136700 E D 006 002 w h e n 006 001 ( A N D
0136720 ( E Q ( C A R ( 006 002 f e t
0136740 c h 006 001 ( P A R S E D S O U
0136760 G H T ) 006 002 o f 006 001 X ) ) \r
0137000
*
0137040 ' M S V E R B
0137060 ) \r
0137100
0137120 ( N U L L ( 006 002
0137140 f e t c h 006 001 ( 006 002 M S V E R
0137160 B 006 001 M O D I F I E R ) 006 002
0137200 o f 006 001 ( 006 002 f e t c h 006 001
0137220 ( P A R S E D I T E M ) \r
0137240
*
0137340 006 002 o f 006 001 X
0137360 ) ) ) \r
0137400
0137420 ( F M E M B
0137440 ( 006 002 f e t c h 006 001 ( 006 002 M S
0137460 V E R B 006 001 R O O T ) 006 002 o
0137500 f 006 001 ( 006 002 f e t c h 006 001 (
0137520 P A R S E D I T E M ) 006 002 o
0137540 f 006 001 X ) ) \r
0137560
*
0137620 T E M ) ) 006 002 d o 006 001
0137640 ( 006 002 r e p l a c e 006 001 ( 006
0137660 002 M S V E R B 006 001 M O D I F I
0137700 E R ) \r
0137720
*
0137760 006 002 o f
0140000 006 001 ( 006 002 f e t c h 006 001 ( P
0140020 A R S E D I T E M ) 006 002 o f
0140040 006 001 X ) 006 002 w i t h 006 001 A
0140060 D V ) \r
0140100
*
0140140 ( S E T Q R
0140160 E S E T S ( C O N S ( 006 002 f
0140200 e t c h 006 001 ( P A R S E D I
0140220 T E M ) \r
0140240
*
0140340 006 002 o f 006 001 X ) \r
0140360
*
0140460 R E S E T S ) ) \r
0140500
*
0140560 ( G O L P X ) ) \r
0140600 [ C O N D \r
0140620 ( L A S T A D V E
0140640 R B ( 006 002 M S F A I L 006 001 T
0140660 ) ) \r
0140700 ( T ( S E T Q L A S T A D V
0140720 E R B ( C O N S A D V T E
0140740 M ] \r ( G O
0140760 L P X ] ) \r \r ( 006 004 M S P R E
0141000 D 006 001 \r [ L A M B D A ( F
0141020 L G ) 006 006 006 001
0141040
*
0141100 006 006 ( * ; " E d i
0141120 t e d 2 5 - N o v - 8 6 2 1
0141140 : 0 8 b y l m m " ) 006 001 \r
0141160 \r
0141200 006 006 ( * F L G i s
0141220 u s e d i n c a l l s f r
0141240 o m E D I T / S H O W w h e
0141260 r e p a s s i v e i s n o
0141300 t a l l o w e d ) 006 001 \r \r
0141320 ( A N D ( S E E K W O R D
0141340 D O E S D O ) \r
0141360 ( S E T Q F L G T ) )
0141400 \r ( C O N D \r
0141420 [ ( S E E K W O R D N O T
0141440 ) \r ( 006 002 c r e
0141460 a t e 006 001 M S S E T P H R A S
0141500 E \r
0141520