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