$ od -c -N 50000 [eris]<LispCore>SOURCES>CLISP.DCOM!20
0000000 ( F I L E C R E A T E D " 3 0
0000020 - S e p - 8 6 2 1 : 1 2 : 1 1
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > C L I S P .
0000120 ; 2 0 ) \r " 2 9 - S e p - 8 6
0000140 1 5 : 1 3 : 0 9 " i n " X
0000160 e r o x L i s p 2 9 - S e p
0000200 - 8 6 . . . " d a t e d "
0000220 2 9 - S e p - 8 6 1 5 : 4 1 :
0000240 0 4 " ) \r ( F I L E C R E A T E
0000260 D " 3 0 - S e p - 8 6 2 1 :
0000300 0 9 : 2 9 " { E R I S } < L I
0000320 S P C O R E > S O U R C E S > C
0000340 L I S P . ; 2 0 4 4 7 0 8 c
0000360 h a n g e s t o : ( O P T I
0000400 M I Z E R S \r C L I S P % )
0000420 ( V A R S C L I S P C O M S
0000440 ) p r e v i o u s d a t e :
0000460 " 8 - M a y - 8 6 1 7 : 0
0000500 5 : 1 3 " { E R I S } < L I S
0000520 P C O R E > S O U R C E S > C L
0000540 I S P . ; 1 9 ) \r ( R P A Q Q
0000560 C L I S P C O M S ( ( C O M S
0000600 ( * D W I M s t u f f )
0000620 ( I N I T V A R S ( N O F I X
0000640 F N S L S T 0 ) ( N O F I X V
0000660 A R S L S T 0 ) ( N O S P E L
0000700 L F L G ) ( L P A R K E Y \r
0000720 9 ) ( R P A R K E Y 0 ) (
0000740 W T F I X C H C O N L S T ( Q
0000760 U O T E ( N I L N I L N I
0001000 L N I L N I L N I L N I
*
0001060 L N I L \r N I L N I L N
0001100 I L N I L ) ) ) ( W T F I X
0001120 C H C O N L S T 1 ( Q U O T E
0001140 ( N I L N I L N I L N I
0001160 L N I L N I L N I L N I
*
0001220 L N I L N I L N I L \r N
0001240 I L N I L N I L N I L N
0001260 I L ) ) ) ) ( U S E R M A C R
0001300 O S F I X 8 F I X 9 ) ( A
0001320 D D V A R S ( D W I M U S E R
0001340 F O R M S ) ( L A M B D A S P
0001360 L S T L A M B D A N L A M B
0001400 D A ) \r ( O K R E E V A L S T
0001420 A N D O R P R O G N S A
0001440 V E S E T Q C A R C D R A
0001460 D D 1 S U B 1 C O N S L I
0001500 S T E Q E Q U A L P R I N
0001520 T P R I N 1 A P P E N D N
0001540 E Q N O T N U L L \r ) ( N
0001560 O F I X F N S L S T ) ( N O F
0001600 I X V A R S L S T ) ( G L O B
0001620 A L V A R S ) ( L O C A L V A
0001640 R S ) ( S P E C V A R S ) (
0001660 N L A M A ) ( N L A M L ) (
0001700 L A M A ) ( L A M S ) ) ( P
0001720 ( \r M O V D ? ( Q U O T E
0001740 N I L L ) ( Q U O T E F R E
0001760 E V A R S ) ) ) ( P R O P F
0002000 I L E D E F B R E A K D O W N
0002020 C A L L S C L I S P R E C O
0002040 R D S E T U P H A S H A R R A
0002060 Y \r M A K E M A T C H ) ( V
0002100 A R S ( D W I M I F Y F L G
0002120 ( Q U O T E E V A L ) ) ( C
0002140 O M P I L E U S E R F N ( Q U
0002160 O T E C O M P I L E U S E R F
0002200 N ) ) ( C L I S P T R A N F L
0002220 G ( Q U O T E \r C L I S P %
0002240 ) ) ( D W I M E S S G A G )
0002260 ) ( I N I T V A R S ( D W I
0002300 M C H E C K # A R G S F L G T
0002320 ) ( D W I M C H E C K P R O G
0002340 L A B E L S F L G T ) ( # C
0002360 L I S P A R R A Y 2 5 0 ) (
0002400 \r R E C O R D H A S H F L G T
0002420 ) ( C L I S P R E T R A N F L
0002440 G ) ) ( A D D V A R S ( D W
0002460 I M E Q U I V L S T ) ) ( U S
0002500 E R M A C R O S D W ! D W
0002520 C L I S P : N O C L I S P P
0002540 P T ) ) ( \r C O M S ( * C
0002560 L I S P p r o p s ) ( P R O
0002600 P C L I S P T Y P E ' ) (
0002620 E ( S E T Q Q C L I S P C H
0002640 A R S ( ^ * / + - =
0002660 _ : ' ~ + - ~ = <
0002700 > @ ! 254 255 ) ) \r ( C
0002720 L I S P D E C ( Q U O T E (
0002740 S T A N D A R D M I X E D ) )
0002760 ) ) ( V A R S ( C L I S P F
0003000 L G T ) ( C L I S P C H A R
0003020 S ( Q U O T E ( ^ * /
0003040 + - = _ : ' ~ + -
0003060 ~ = \r < > @ ! 254 255
0003100 ) ) ) ) ( I N I T V A R S (
0003120 C L I S P H E L P F L G T )
0003140 ( T R E A T A S C L I S P F L G
0003160 ) ( C L I S P I N F I X S P L
0003200 S T ) ( C L I S P C H A R R A
0003220 Y ( \r M A K E B I T T A B L E
0003240 C L I S P C H A R S ) ) ( L
0003260 E F T . A R R O W S . B I T T A
0003300 B L E ( M A K E B I T T A B L
0003320 E ( Q U O T E ( _ 254 ) ) )
0003340 ) ( L E F T . A R R O W ( Q
0003360 U O T E _ ) ) ( \r C L I S P
0003400 I S W O R D S P L S T ) ( C L
0003420 I S P L A S T S U B ( C O N S
0003440 ) ) ( C H E C K C A R A T O M
0003460 F L G ) ( C L I S P A R I T H
0003500 O P L S T ( Q U O T E ( +
0003520 - * / + - L T G T l
0003540 t \r g t G E Q L E Q G E
0003560 L E g e q l e q g e l
0003600 e ) ) ) ( C L I S P A R I T H
0003620 C L A S S L S T ( Q U O T E
0003640 ( I N T E G E R F I X E D M
0003660 I X E D F L O A T I N G ) ) )
0003700 ( \r D W I M I N M A C R O S F
0003720 L G N I L ) ) ( I F P R O P
0003740 ( C L I S P T Y P E L I S P
0003760 F N U N A R Y O P C L I S P
0004000 C L A S S C L I S P C L A S S
0004020 D E F C L I S P N E G C L I
0004040 S P B R A C K E T \r ) 255 ^
0004060 * / + - = _ 254 :
0004100 ' ~ + - ~ = < > @
0004120 ! ) ( V A R S D E C L W O R
0004140 D S ) ( I F P R O P ( C L I
0004160 S P T Y P E L I S P F N U N
0004200 A R Y O P C L I S P I N F I X
0004220 \r C L I S P C L A S S C L I
0004240 S P C L A S S D E F C L I S P
0004260 N E G B R O A D S C O P E )
0004300 * ( P R O G N D E C L W O R
0004320 D S ) ) ( I F P R O P ( C L
0004340 I S P T Y P E L I S P F N U
0004360 N A R Y O P \r C L I S P I N F
0004400 I X C L I S P C L A S S C L
0004420 I S P C L A S S D E F C L I S
0004440 P N E G B R O A D S C O P E )
0004460 L T l t G T g t L E
0004500 l e G E g e L E Q l e q
0004520 G E Q g e q E Q \r N E Q
0004540 E Q P E Q U A L E Q U A L
0004560 S N O T A N D O R a n d
0004600 o r N O R n o r M E M B
0004620 E R S E T Q I P L U S I M
0004640 I N U S I D I F F E R E N C E
0004660 I T I M E S I Q U O T I E N
0004700 T \r I L E S S P I G R E A T
0004720 E R P F P L U S F M I N U S
0004740 F D I F F E R E N C E F T I
0004760 M E S F Q U O T I E N T F G
0005000 T P P L U S M I N U S D I
0005020 F F E R E N C E T I M E S Q
0005040 U O T I E N T \r L E S S P G
0005060 R E A T E R P E X P T - >
0005100 = > ) ( P R O P S E T F N
0005120 E L T S E T A ) ( O P T I M
0005140 I Z E R S C L I S P % ) )
0005160 ( P R O P C L I S P W O R D
0005200 A N D O R a n d o r ! \r
0005220 ! ! C L I S P c l i s p
0005240 M A T C H m a t c h ) ( C O
0005260 M S ( * I F ) ( V A R S
0005300 C L I S P I F W O R D S P L S T
0005320 ) ( I N I T V A R S ( C L I
0005340 S P I F T R A N F L G T ) )
0005360 ( P R O P \r C L I S P W O R D
0005400 I F T H E N E L S E E L
0005420 S E I F i f t h e n e l s
0005440 e e l s e i f ) ) ( C O M S
0005460 ( * I . S . O P R ) ( V A
0005500 R S ( C L I S P I . S . G A G
0005520 ) ) ( P R O P \r C L I S P W
0005540 O R D * I N I T I S O P R S
0005560 ) ( I F P R O P I . S . O P
0005600 R * ( P R O G N I N I T I
0005620 S O P R S ) ) ( A D D V A R S
0005640 * ( L I S T ( C O N S (
0005660 Q U O T E I . S . O P R L S T
0005700 \r ) I N I T I S O P R S ) (
0005720 C O N S ( Q U O T E C L I S
0005740 P F O R W O R D S P L S T ) (
0005760 S U B S E T I N I T I S O P R
0006000 S ( Q U O T E U - C A S E P
0006020 ) ) ) ) ) ( V A R S ( \r C L
0006040 I S P D U M M Y F O R V A R S
0006060 ( Q U O T E ( $ $ T E M 0 $
0006100 $ T E M 1 $ $ T E M 2 $ $ T
0006120 E M 3 $ $ T E M 4 $ $ T E M
0006140 5 $ $ T E M 6 ) ) ) ) ( A D
0006160 D V A R S * ( L I S T ( C
0006200 O N S \r ( Q U O T E S Y S L
0006220 O C A L V A R S ) C L I S P D
0006240 U M M Y F O R V A R S ) ( C O
0006260 N S ( Q U O T E I N V I S I
0006300 B L E V A R S ) C L I S P D U
0006320 M M Y F O R V A R S ) ) ) ( A
0006340 D D V A R S ( \r S Y S L O C A
0006360 L V A R S $ $ V A L $ $ T E
0006400 M $ $ L S T 1 $ $ L S T 2
0006420 $ $ L S T 3 $ $ L S T 4 $ $
0006440 L S T 5 $ $ L S T 6 $ $ E N
0006460 D $ $ E X T R E M E ) ( I N
0006500 V I S I B L E V A R S \r $ $ V
0006520 A L $ $ E N D $ $ T E M $
0006540 $ L S T 1 $ $ L S T 2 $ $ L
0006560 S T 3 $ $ L S T 4 $ $ L S T
0006600 5 $ $ L S T 6 $ $ E X T R E
0006620 M E ) ) ( F I L E P K G C O M
0006640 S I . S . O P R S ) ( F N S
0006660 \r D U M P I . S . O P R S G
0006700 E T D E F . I . S . O P R ) )
0006720 ( C O M S ( * f o r D u r a
0006740 t i o n ) ( A D D V A R S (
0006760 D U R A T I O N C L I S P W O R
0007000 D S ( T I M E R U N I T S \r
0007020 t i m e r U n i t s t i m e r
0007040 u n i t s ) ( U S I N G B O X
0007060 u s i n g B o x u s i n g b
0007100 o x ) ( U S I N G T I M E R
0007120 u s i n g T i m e r u s i n g
0007140 t i m e r ) ( F O R D U R A T
0007160 I O N \r f o r D u r a t i o n
0007200 f o r d u r a t i o n D U R
0007220 I N G d u r i n g ) ( R E S
0007240 O U R C E N A M E r e s o u r
0007260 c e N a m e r e s o u r c e n
0007300 a m e ) ( U N T I L D A T E
0007320 u n t i l D a t e \r u n t i l
0007340 d a t e ) ) ) ( I F P R O P
0007360 ( C L I S P W O R D \ D U R A
0007400 T I O N T R A N ) * ( A P P
0007420 L Y ( Q U O T E A P P E N D
0007440 ) D U R A T I O N C L I S P W
0007460 O R D S ) ) ( R E S O U R C E
0007500 S \r \ F o r D u r a t i o n O
0007520 f B o x ) ) ( C O M S ( *
0007540 ; ; \r " C u r r e n t l y t
0007560 h e r e a r e f o u r p o
0007600 s s i b l e e n t r i e s f
0007620 o r t h e I N F O p r o p
0007640 e r t y : E V A L , B I N D
0007660 S , L A B E L S , P R O G N
0007700 , o r a l i s t c o n t
0007720 a i n g a n y o r a l l
0007740 o f t h e s e . " \r ) ( *
0007760 ; ; \r " E V A L i s u s e
0010000 d t o i n d i c a t e t h
0010020 a t a n n l a m b d a e v
0010040 a l u a t e s i t s a r g u
0010060 m e n t s . E V A L a f f
0010100 e c t s D W I M I F Y a n d
0010120 C L I S P I F Y : n e i t h
0010140 e r w i l l t o u c h a n
0010160 n l a m b d a t h a t d o
0010200 e s n o t h a v e t h i s
0010220 p r o p e r t y . " \r ) ( *
0010240 ; ; \r " B I N D S t e l l
0010260 s c l i s p i f y a n d d
0010300 w i m i f y t h a t C A D R
0010320 o f t h e f o r m i s
0010340 a l i s t o f v a r i a b
0010360 l e s b e i n g b o u n d ,
0010400 a l a p r o g . " \r ) (
0010420 * ; ; \r " P R O G N s a y
0010440 s t h a t o n l y t h e
0010460 l a s t t o p l e v e l e
0010500 x p r e s s i o n i s b e i
0010520 n g u s e d f o r v a l u
0010540 e . T h i s a f f e c t s
0010560 t h e w a y O R ' s a n d
0010600 A N D ' s a r e c l i s p
0010620 i f i e d , f o r e x a m p
0010640 l e . " \r ) ( * ; ; \r " F
0010660 i n a l l y , L A B E L S i
0010700 n d i c a t e s t h a t t o
0010720 p l e v e l a t o m s i n
0010740 t h i s e x p r e s s i o n
0010760 a r e n o t b e i n g e
0011000 v a l u a t e d . T h i s t
0011020 e l l s c l i s p i f y n o
0011040 t t o c r e a t e a t o m
0011060 s o u t o f l i s t s a
0011100 t t h e t o p l e v e l .
0011120 L A B E L S a l s o i m
0011140 p l i e s t h a t n o n e
0011160 o f t h e t o p l e v e l
0011200 e x p r e s s i o n s a r e
0011220 b e i n g u s e d f o r
0011240 v a l u e . " \r ) ( * ; ;
0011260 \r " F o r e x a m p l e , F
0011300 O R h a s i n f o p r o p
0011320 e r t y j u s t B I N D S ,
0011340 ( E V A L i s u n n e c s
0011360 s a r y s i n c e F O R i
0011400 s n o t a f u n c t i o n
0011420 a n d i t s d w i m i f y
0011440 i n g a n d c l i s p i f y
0011460 i n g a f f e c t e d b y
0011500 i t s c l i s p w o r d p r
0011520 o p e r t y ) , w h e r e a s
0011540 P R O G h a s ( B I N D S
0011560 E V A L L A B E L S ) , a
0011600 n d L A M B D A h a s ( E
0011620 V A L B I N D S P R O G N )
0011640 " \r ) ( P R O P I N F O P
0011660 R O G P R O G * R E S E T V
0011700 A R S R E S E T B U F S R E
0011720 S E T L S T A D V - P R O G
0011740 A D V - S E T Q A N D A R G
0011760 C O N D E R S E T Q N L S
0012000 E T Q O R \r P R O G 1 P R
0012020 O G 2 P R O G N R E S E T F
0012040 O R M R E S E T S A V E R E
0012060 S E T V A R R P A Q R P T Q
0012100 F R P T Q S A V E S E T Q
0012120 S E T N S E T Q U N D O N L
0012140 S E T Q X N L S E T Q \r S E
0012160 T A R G L E T L E T * R E
0012200 T U R N ) ) ( P R O P F I L
0012220 E T Y P E C L I S P ) ( D E
0012240 C L A R E : D O N T E V A L @
0012260 L O A D D O E V A L @ C O M P
0012300 I L E D O N T C O P Y \r C O
0012320 M P I L E R V A R S ( A D D V
0012340 A R S ( N L A M A D U M P I
0012360 . S . O P R S ) ( N L A M L )
0012400 ( L A M A ) ) ) ) ) \r ( R P A
0012420 Q ? N O F I X F N S L S T 0 )
0012440 \r ( R P A Q ? N O F I X V A R
0012460 S L S T 0 ) \r ( R P A Q ? N O
0012500 S P E L L F L G ) \r ( R P A Q ?
0012520 L P A R K E Y 9 ) \r ( R P A
0012540 Q ? R P A R K E Y 0 ) \r ( R
0012560 P A Q ? W T F I X C H C O N L
0012600 S T ( Q U O T E ( N I L N
0012620 I L N I L N I L N I L N
*
0012720 I L \r N I L N I L ) ) ) \r (
0012740 R P A Q ? W T F I X C H C O N
0012760 L S T 1 ( Q U O T E ( N I L
0013000 N I L N I L N I L N I L
*
0013100 N I L \r N I L N I L ) ) )
0013120 \r ( A D D T O V A R E D I T M
0013140 A C R O S ( F I X 8 N I L
0013160 ( F I X 8 ) ) ( F I X 8 ( X
0013200 N ) ( B I N D ( E ( S E
0013220 T Q # 1 ( E D I T F P A T
0013240 ( Q U O T E X ) ) ) T ) (
0013260 I F ( \r L I S T P ( # # ) )
0013300 ( 1 ) ) ( C O M S ( S P L
0013320 I T 8 9 L P A R K E Y N ) )
0013340 ( I F L P A R K E Y T )
0013360 ( 1 ) ( L I 1 ) ( I F
0013400 ( T A I L P ( C A R L ) (
0013420 C A D R L ) ) ( \r ! 0 ) N
0013440 I L ) ( L P Q ( I F ( O R
0013460 ( N U L L # 1 ) ( N O T
0013500 ( E D I T 4 E # 1 ( # # 1
0013520 ) ) ) ) ) U P ( R O 1 )
0013540 ! 0 ) ) ) ( F I X 9 N I L
0013560 ( F I X 9 ) ) ( F I X 9 ( X
0013600 \r N ) ( B I N D ( E ( S
0013620 E T Q # 1 ( E D I T F P A T
0013640 ( Q U O T E X ) ) ) T )
0013660 ( I F ( N O T ( A T O M (
0013700 # # ) ) ) ( 1 ) ) ( C O M S
0013720 ( S P L I T 8 9 R P A R K E
0013740 Y N ) ) ( I \r F R P A R
0013760 K E Y T ) ( E ( S E T Q
0014000 # 2 ( A D D 1 ( L E N G T H
0014020 ( C A R L ) ) ) ) T ) !
0014040 0 M A R K ( L P Q ( I F
0014060 ( O R ( N U L L # 1 ) ( N
0014100 O T ( E D I T 4 E # 1 ( \r
0014120 # # 1 ) ) ) ) ) U P ( E
0014140 ( S E T Q # 3 ( L E N G T H
0014160 ( C A R L ) ) ) T ) ( I
0014200 R I 1 ( M I N U S # 2 )
0014220 ) ( E ( S E T Q # 2 # 3
0014240 ) T ) 1 ! 0 ) _ _ ( D
0014260 E L E T E \r N X ) ) ) ) \r ( A
0014300 D D T O V A R D W I M U S E R
0014320 F O R M S ) \r ( A D D T O V A R
0014340 L A M B D A S P L S T L A M
0014360 B D A N L A M B D A ) \r ( A D
0014400 D T O V A R O K R E E V A L S
0014420 T A N D O R P R O G N S
0014440 A V E S E T Q C A R C D R
0014460 A D D 1 S U B 1 C O N S L
0014500 I S T E Q E Q U A L P R I
0014520 N T P R I N 1 A P P E N D
0014540 N E Q \r N O T N U L L ) \r (
0014560 A D D T O V A R N O F I X F N
0014600 S L S T ) \r ( A D D T O V A R
0014620 N O F I X V A R S L S T ) \r ( A
0014640 D D T O V A R G L O B A L V A
0014660 R S ) \r ( A D D T O V A R L O
0014700 C A L V A R S ) \r ( A D D T O V
0014720 A R S P E C V A R S ) \r ( A D
0014740 D T O V A R N L A M A ) \r ( A
0014760 D D T O V A R N L A M L ) \r (
0015000 A D D T O V A R L A M A ) \r (
0015020 A D D T O V A R L A M S ) \r (
0015040 M O V D ? ( Q U O T E N I L
0015060 L ) ( Q U O T E F R E E V A
0015100 R S ) ) \r ( P U T P R O P S B
0015120 R E A K D O W N F I L E D E F
0015140 B R K D W N ) \r ( P U T P R O
0015160 P S C A L L S F I L E D E F
0015200 M S A N A L Y Z E ) \r ( P U T
0015220 P R O P S C L I S P R E C O R
0015240 D F I L E D E F R E C O R D
0015260 ) \r ( P U T P R O P S S E T U
0015300 P H A S H A R R A Y F I L E D
0015320 E F ( R E C O R D S E T U P
0015340 H A S H A R R A Y ) ) \r ( P U T
0015360 P R O P S M A K E M A T C H
0015400 F I L E D E F M A T C H ) \r (
0015420 R P A Q Q D W I M I F Y F L G
0015440 E V A L ) \r ( R P A Q Q C O
0015460 M P I L E U S E R F N C O M P
0015500 I L E U S E R F N ) \r ( R P A Q
0015520 Q C L I S P T R A N F L G C
0015540 L I S P % ) \r ( R P A Q Q D
0015560 W I M E S S G A G N I L ) \r (
0015600 R P A Q ? D W I M C H E C K #
0015620 A R G S F L G T ) \r ( R P A Q
0015640 ? D W I M C H E C K P R O G L
0015660 A B E L S F L G T ) \r ( R P A
0015700 Q ? # C L I S P A R R A Y 2
0015720 5 0 ) \r ( R P A Q ? R E C O R
0015740 D H A S H F L G T ) \r ( R P A
0015760 Q ? C L I S P R E T R A N F L
0016000 G ) \r ( A D D T O V A R D W I
0016020 M E Q U I V L S T ) \r ( A D D T
0016040 O V A R E D I T M A C R O S
0016060 ( C L I S P : N I L ( B I N
0016100 D ( E ( C O N D ( ( S E T
0016120 Q # 1 ( A N D C L I S P A
0016140 R R A Y ( G E T H A S H ( #
0016160 # ) C L I S P A R R A Y ) ) )
0016200 \r ( S E T Q Q C O M C L I
0016220 S P : ) ( E D I T E # 1 ) )
0016240 ( T ( P R I N 1 ( Q U O T
0016260 E " n o t t r a n s l a t e
0016300 d . \r " ) T ) ) ) T ) ) )
0016320 ( N O C L I S P C O M S ( R
0016340 E S E T V A R C L I S P T R A
0016360 N F L G N I L . C O M S )
0016400 ) ( N O C L I S P N I L (
0016420 N O C L I S P T T Y : ) ) (
0016440 ! D W N I L ( \r R E S E T V
0016460 A R C L I S P R E T R A N F L
0016500 G T D W ) ) ( P P T N I
0016520 L ( R E S E T V A R P R E T
0016540 T Y T R A N F L G T P P ) )
0016560 ( D W N I L ( B I N D (
0016600 E ( P R O G N ( S E T Q \r
0016620 # 1 ( # # ) ) ( A N D ( C
0016640 D R L ) ( # # ! 0 ( E
0016660 ( S E T Q # 2 L ) T ) ) )
0016700 ( A N D ( S E T Q # 3 (
0016720 D W I M I F Y # 1 T ( O R
0016740 # 2 ( Q U O T E ( N I L )
0016760 ) ) ) ) \r E D I T C H A N G E
0017000 S ( R P L A C A ( C D R E
0017020 D I T C H A N G E S ) T ) ) )
0017040 T ) ( I F ( N L I S T P
0017060 # 1 ) ( ( I : # 3 ) ( I
0017100 F ( L I S T P # 3 ) ( 1 )
0017120 N I L ) ) N I L ) ) \r ) ) \r
0017140 ( A D D T O V A R E D I T C O
0017160 M S A P P T D W ! D W C
0017200 L I S P : ) \r ( P U T P R O P S
0017220 ' C L I S P T Y P E 1 5 )
0017240 \r ( R P A Q Q C L I S P F L G
0017260 T ) \r ( R P A Q Q C L I S P
0017300 C H A R S ( ^ * / + -
0017320 = _ : ' ~ + - ~ =
0017340 < > @ ! 254 255 ) ) \r (
0017360 R P A Q ? C L I S P H E L P F
0017400 L G T ) \r ( R P A Q ? T R E
0017420 A T A S C L I S P F L G ) \r ( R
0017440 P A Q ? C L I S P I N F I X S
0017460 P L S T ) \r ( R P A Q ? C L I
0017500 S P C H A R R A Y ( M A K E B
0017520 I T T A B L E C L I S P C H A
0017540 R S ) ) \r ( R P A Q ? L E F T
0017560 . A R R O W S . B I T T A B L E
0017600 ( M A K E B I T T A B L E (
0017620 Q U O T E ( _ 254 ) ) ) ) \r (
0017640 R P A Q ? L E F T . A R R O W
0017660 ( Q U O T E _ ) ) \r ( R P A
0017700 Q ? C L I S P I S W O R D S P
0017720 L S T ) \r ( R P A Q ? C L I S
0017740 P L A S T S U B ( C O N S ) )
0017760 \r ( R P A Q ? C H E C K C A R
0020000 A T O M F L G ) \r ( R P A Q ?
0020020 C L I S P A R I T H O P L S T
0020040 ( Q U O T E ( + - * /
0020060 + - L T G T l t g t G
0020100 E Q L E Q G E L E g e q
0020120 l e q g e l e ) ) ) \r ( R
0020140 P A Q ? C L I S P A R I T H C
0020160 L A S S L S T ( Q U O T E (
0020200 I N T E G E R F I X E D M I
0020220 X E D F L O A T I N G ) ) ) \r
0020240 ( R P A Q ? D W I M I N M A C
0020260 R O S F L G N I L ) \r ( P U T
0020300 P R O P S 255 C L I S P T Y P
0020320 E 6 ) \r ( P U T P R O P S ^
0020340 C L I S P T Y P E 6 ) \r ( P
0020360 U T P R O P S * C L I S P T
0020400 Y P E 4 ) \r ( P U T P R O P S
0020420 / C L I S P T Y P E 4 ) \r
0020440 ( P U T P R O P S + C L I S
0020460 P T Y P E 2 ) \r ( P U T P R O
0020500 P S - C L I S P T Y P E 7
0020520 ) \r ( P U T P R O P S = C L
0020540 I S P T Y P E - 2 0 ) \r ( P U
0020560 T P R O P S _ C L I S P T Y
0020600 P E ( 8 . - 1 2 ) ) \r ( P
0020620 U T P R O P S 254 C L I S P T
0020640 Y P E ( 8 . - 1 2 ) ) \r (
0020660 P U T P R O P S : C L I S P
0020700 T Y P E ( 1 4 . 1 3 ) ) \r
0020720 ( P U T P R O P S ' C L I S
0020740 P T Y P E 1 5 ) \r ( P U T P R
0020760 O P S ~ C L I S P T Y P E
0021000 7 ) \r ( P U T P R O P S + -
0021020 C L I S P T Y P E 2 ) \r ( P U
0021040 T P R O P S < C L I S P T Y
0021060 P E B R A C K E T ) \r ( P U T
0021100 P R O P S > C L I S P T Y P
0021120 E B R A C K E T ) \r ( P U T P
0021140 R O P S 255 L I S P F N E X
0021160 P T ) \r ( P U T P R O P S ^
0021200 L I S P F N E X P T ) \r ( P U
0021220 T P R O P S * L I S P F N
0021240 T I M E S ) \r ( P U T P R O P S
0021260 / L I S P F N Q U O T I E
0021300 N T ) \r ( P U T P R O P S +
0021320 L I S P F N P L U S ) \r ( P U
0021340 T P R O P S - L I S P F N
0021360 M I N U S ) \r ( P U T P R O P S
0021400 = L I S P F N E Q ) \r ( P
0021420 U T P R O P S _ L I S P F N
0021440 S E T Q ) \r ( P U T P R O P S
0021460 254 L I S P F N S E T Q ) \r
0021500 ( P U T P R O P S ' L I S P
0021520 F N Q U O T E ) \r ( P U T P R
0021540 O P S ~ L I S P F N N O T
0021560 ) \r ( P U T P R O P S + - L
0021600 I S P F N D I F F E R E N C E
0021620 ) \r ( P U T P R O P S - U N
0021640 A R Y O P T ) \r ( P U T P R O
0021660 P S ' U N A R Y O P T ) \r
0021700 ( P U T P R O P S ~ U N A R
0021720 Y O P T ) \r ( P U T P R O P S
0021740 < U N A R Y O P T ) \r ( P
0021760 U T P R O P S > U N A R Y O
0022000 P T ) \r ( P U T P R O P S *
0022020 C L I S P C L A S S * ) \r (
0022040 P U T P R O P S / C L I S P
0022060 C L A S S / ) \r ( P U T P R O
0022100 P S + C L I S P C L A S S
0022120 + ) \r ( P U T P R O P S - C
0022140 L I S P C L A S S - ) \r ( P U
0022160 T P R O P S + - C L I S P C
0022200 L A S S + - ) \r ( P U T P R O
0022220 P S * C L I S P C L A S S D
0022240 E F ( A R I T H I T I M E S
0022260 F T I M E S T I M E S ) ) \r
0022300 ( P U T P R O P S / C L I S
0022320 P C L A S S D E F ( A R I T H
0022340 I Q U O T I E N T F Q U O T
0022360 I E N T Q U O T I E N T ) ) \r
0022400 ( P U T P R O P S + C L I S
0022420 P C L A S S D E F ( A R I T H
0022440 I P L U S F P L U S P L U
0022460 S ) ) \r ( P U T P R O P S -
0022500 C L I S P C L A S S D E F ( A
0022520 R I T H I M I N U S F M I N
0022540 U S M I N U S ) ) \r ( P U T P
0022560 R O P S + - C L I S P C L A
0022600 S S D E F ( A R I T H I D I
0022620 F F E R E N C E F D I F F E R
0022640 E N C E D I F F E R E N C E )
0022660 ) \r ( P U T P R O P S = C L
0022700 I S P N E G ~ = ) \r ( P U T P
0022720 R O P S < C L I S P B R A C
0022740 K E T ( < > S E P A R A T
0022760 O R ! D W I M I F Y C L I
0023000 S P A N G L E B R A C K E T S
0023020 C L I S P I F Y S H R I E K I
0023040 F Y ) ) \r ( P U T P R O P S >
0023060 C L I S P B R A C K E T ( <
0023100 > S E P A R A T O R ! D
0023120 W I M I F Y C L I S P A N G L
0023140 E B R A C K E T S C L I S P I
0023160 F Y S H R I E K I F Y ) ) \r (
0023200 R P A Q Q D E C L W O R D S
0023220 ( F L O A T I N G F A S T F
0023240 F E T C H F I E L D F E T C H
0023260 F I E L D R E P L A C E F I E
0023300 L D F R E P L A C E F I E L D
0023320 / R E P L A C E F I E L D \r
0023340 / L I S T P U T / L I S T P U
0023360 T 1 / M A P C O N / M A P C
0023400 O N C / N C O N C / N C O N
0023420 C 1 / P U T / P U T A S S O
0023440 C / P U T H A S H / P U T P
0023460 R O P / R P L A C A / R P L
0023500 A C D \r / R P L N O D E / R
0023520 P L N O D E 2 / S E T A A S
0023540 S O C C L I S P I F Y F A S
0023560 S O C F I X E D F L A S T
0023600 F M E M B F N T H F R P L A
0023620 C A F R P L A C D F R P L N
0023640 O D E \r F R P L N O D E 2 I
0023660 N T E G E R L A S T L I S T
0023700 P U T L I S T P U T 1 M A P
0023720 C O N M A P C O N C M E M B
0023740 M I X E D N C O N C N C O
0023760 N C 1 N T H P U T P U T A
0024000 S S O C \r P U T H A S H P U
0024020 T P R O P R P L A C A R P L
0024040 A C D R P L N O D E R P L N
0024060 O D E 2 S E T A S T A N D A
0024100 R D U N D O A B L E ) ) \r ( P
0024120 U T P R O P S F M E M B C L
0024140 I S P T Y P E - 2 0 ) \r ( P U
0024160 T P R O P S M E M B C L I S
0024200 P T Y P E - 2 0 ) \r ( P U T P
0024220 R O P S F E T C H F I E L D
0024240 L I S P F N F E T C H F I E L
0024260 D ) \r ( P U T P R O P S R E P
0024300 L A C E F I E L D L I S P F N
0024320 R E P L A C E F I E L D ) \r (
0024340 P U T P R O P S F R E P L A C
0024360 E F I E L D L I S P F N F R
0024400 E P L A C E F I E L D ) \r ( P U
0024420 T P R O P S A S S O C L I S
0024440 P F N A S S O C ) \r ( P U T P
0024460 R O P S L A S T L I S P F N
0024500 L A S T ) \r ( P U T P R O P S
0024520 L I S T P U T L I S P F N
0024540 L I S T P U T ) \r ( P U T P R O
0024560 P S L I S T P U T 1 L I S P
0024600 F N L I S T P U T 1 ) \r ( P U
0024620 T P R O P S M A P C O N L I
0024640 S P F N M A P C O N ) \r ( P U
0024660 T P R O P S M A P C O N C L
0024700 I S P F N M A P C O N C ) \r (
0024720 P U T P R O P S M E M B L I
0024740 S P F N M E M B ) \r ( P U T P
0024760 R O P S N C O N C L I S P F
0025000 N N C O N C ) \r ( P U T P R O
0025020 P S N C O N C 1 L I S P F N
0025040 N C O N C 1 ) \r ( P U T P R O
0025060 P S N T H L I S P F N N T
0025100 H ) \r ( P U T P R O P S P U T
0025120 L I S P F N P U T ) \r ( P U
0025140 T P R O P S P U T A S S O C
0025160 L I S P F N P U T A S S O C )
0025200 \r ( P U T P R O P S P U T H A
0025220 S H L I S P F N P U T H A S
0025240 H ) \r ( P U T P R O P S P U T
0025260 P R O P L I S P F N P U T P
0025300 R O P ) \r ( P U T P R O P S R
0025320 P L A C A L I S P F N R P L
0025340 A C A ) \r ( P U T P R O P S R
0025360 P L A C D L I S P F N R P L
0025400 A C D ) \r ( P U T P R O P S R
0025420 P L N O D E L I S P F N R P
0025440 L N O D E ) \r ( P U T P R O P S
0025460 R P L N O D E 2 L I S P F N
0025500 R P L N O D E 2 ) \r ( P U T P
0025520 R O P S S E T A L I S P F N
0025540 S E T A ) \r ( P U T P R O P S
0025560 F L O A T I N G C L I S P C
0025600 L A S S ( A R I T H . 2 )
0025620 ) \r ( P U T P R O P S F A S T
0025640 C L I S P C L A S S ( A C C
0025660 E S S . 3 ) ) \r ( P U T P R
0025700 O P S F F E T C H F I E L D
0025720 C L I S P C L A S S F E T C H
0025740 F I E L D ) \r ( P U T P R O P S
0025760 F E T C H F I E L D C L I S
0026000 P C L A S S F E T C H F I E L
0026020 D ) \r ( P U T P R O P S R E P
0026040 L A C E F I E L D C L I S P C
0026060 L A S S R E P L A C E F I E L
0026100 D ) \r ( P U T P R O P S F R E
0026120 P L A C E F I E L D C L I S P
0026140 C L A S S R E P L A C E F I E
0026160 L D ) \r ( P U T P R O P S / R
0026200 E P L A C E F I E L D C L I S
0026220 P C L A S S R E P L A C E F I
0026240 E L D ) \r ( P U T P R O P S /
0026260 L I S T P U T C L I S P C L A
0026300 S S L I S T P U T ) \r ( P U T
0026320 P R O P S / M A P C O N C L
0026340 I S P C L A S S M A P C O N )
0026360 \r ( P U T P R O P S / M A P C
0026400 O N C C L I S P C L A S S M
0026420 A P C O N C ) \r ( P U T P R O P
0026440 S / N C O N C C L I S P C L
0026460 A S S N C O N C ) \r ( P U T P
0026500 R O P S / N C O N C 1 C L I
0026520 S P C L A S S N C O N C 1 ) \r
0026540 ( P U T P R O P S / P U T C
0026560 L I S P C L A S S P U T ) \r (
0026600 P U T P R O P S / P U T A S S
0026620 O C C L I S P C L A S S P U
0026640 T A S S O C ) \r ( P U T P R O P
0026660 S / P U T H A S H C L I S P
0026700 C L A S S P U T H A S H ) \r (
0026720 P U T P R O P S / P U T P R O
0026740 P C L I S P C L A S S P U T
0026760 P R O P ) \r ( P U T P R O P S
0027000 / R P L A C A C L I S P C L A
0027020 S S R P L A C A ) \r ( P U T P
0027040 R O P S / R P L A C D C L I
0027060 S P C L A S S R P L A C D ) \r
0027100 ( P U T P R O P S / R P L N O
0027120 D E C L I S P C L A S S R P
0027140 L N O D E ) \r ( P U T P R O P S
0027160 / R P L N O D E 2 C L I S P
0027200 C L A S S R P L N O D E 2 ) \r
0027220 ( P U T P R O P S / S E T A
0027240 C L I S P C L A S S S E T A )
0027260 \r ( P U T P R O P S A S S O C
0027300 C L I S P C L A S S A S S O
0027320 C ) \r ( P U T P R O P S F A S
0027340 S O C C L I S P C L A S S A
0027360 S S O C ) \r ( P U T P R O P S
0027400 F I X E D C L I S P C L A S S
0027420 ( A R I T H . 1 ) ) \r ( P
0027440 U T P R O P S F L A S T C L
0027460 I S P C L A S S L A S T ) \r (
0027500 P U T P R O P S F M E M B C
0027520 L I S P C L A S S M E M B ) \r
0027540 ( P U T P R O P S F N T H C
0027560 L I S P C L A S S N T H ) \r (
0027600 P U T P R O P S F R P L A C A
0027620 C L I S P C L A S S R P L A
0027640 C A ) \r ( P U T P R O P S F R
0027660 P L A C D C L I S P C L A S S
0027700 R P L A C D ) \r ( P U T P R O
0027720 P S F R P L N O D E C L I S
0027740 P C L A S S R P L N O D E ) \r
0027760 ( P U T P R O P S F R P L N O
0030000 D E 2 C L I S P C L A S S R
0030020 P L N O D E 2 ) \r ( P U T P R O
0030040 P S I N T E G E R C L I S P
0030060 C L A S S ( A R I T H . 1
0030100 ) ) \r ( P U T P R O P S L A S
0030120 T C L I S P C L A S S L A S
0030140 T ) \r ( P U T P R O P S L I S
0030160 T P U T C L I S P C L A S S
0030200 L I S T P U T ) \r ( P U T P R O
0030220 P S L I S T P U T 1 C L I S
0030240 P C L A S S L I S T P U T 1 )
0030260 \r ( P U T P R O P S M A P C O
0030300 N C L I S P C L A S S M A P
0030320 C O N ) \r ( P U T P R O P S M
0030340 A P C O N C C L I S P C L A S
0030360 S M A P C O N C ) \r ( P U T P
0030400 R O P S M E M B C L I S P C
0030420 L A S S M E M B ) \r ( P U T P
0030440 R O P S M I X E D C L I S P
0030460 C L A S S ( A R I T H . 3
0030500 ) ) \r ( P U T P R O P S N C O
0030520 N C C L I S P C L A S S N C
0030540 O N C ) \r ( P U T P R O P S N
0030560 C O N C 1 C L I S P C L A S S
0030600 N C O N C 1 ) \r ( P U T P R O
0030620 P S N T H C L I S P C L A S
0030640 S N T H ) \r ( P U T P R O P S
0030660 P U T C L I S P C L A S S
0030700 P U T ) \r ( P U T P R O P S P
0030720 U T A S S O C C L I S P C L A
0030740 S S P U T A S S O C ) \r ( P U
0030760 T P R O P S P U T H A S H C
0031000 L I S P C L A S S P U T H A S
0031020 H ) \r ( P U T P R O P S P U T
0031040 P R O P C L I S P C L A S S
0031060 P U T P R O P ) \r ( P U T P R O
0031100 P S R P L A C A C L I S P C
0031120 L A S S R P L A C A ) \r ( P U
0031140 T P R O P S R P L A C D C L
0031160 I S P C L A S S R P L A C D )
0031200 \r ( P U T P R O P S R P L N O
0031220 D E C L I S P C L A S S R P
0031240 L N O D E ) \r ( P U T P R O P S
0031260 R P L N O D E 2 C L I S P C
0031300 L A S S R P L N O D E 2 ) \r (
0031320 P U T P R O P S S E T A C L
0031340 I S P C L A S S S E T A ) \r (
0031360 P U T P R O P S S T A N D A R
0031400 D C L I S P C L A S S ( A C
0031420 C E S S . 1 ) ) \r ( P U T P
0031440 R O P S U N D O A B L E C L
0031460 I S P C L A S S ( A C C E S S
0031500 . 2 ) ) \r ( P U T P R O P S
0031520 F E T C H F I E L D C L I S
0031540 P C L A S S D E F ( A C C E S
0031560 S F E T C H F I E L D N I L
0031600 F F E T C H F I E L D ) ) \r (
0031620 P U T P R O P S R E P L A C E
0031640 F I E L D C L I S P C L A S S
0031660 D E F ( A C C E S S R E P L
0031700 A C E F I E L D / R E P L A C
0031720 E F I E L D F R E P L A C E F
0031740 I E L D ) ) \r ( P U T P R O P S
0031760 A S S O C C L I S P C L A S
0032000 S D E F ( A C C E S S A S S
0032020 O C N I L F A S S O C ) ) \r
0032040 ( P U T P R O P S L A S T C
0032060 L I S P C L A S S D E F ( A C
0032100 C E S S L A S T N I L F L
0032120 A S T ) ) \r ( P U T P R O P S
0032140 L I S T P U T C L I S P C L A
0032160 S S D E F ( A C C E S S L I
0032200 S T P U T / L I S T P U T ) )
0032220 \r ( P U T P R O P S L I S T P
0032240 U T 1 C L I S P C L A S S D E
0032260 F ( A C C E S S L I S T P U
0032300 T 1 / L I S T P U T 1 ) ) \r (
0032320 P U T P R O P S M A P C O N
0032340 C L I S P C L A S S D E F ( A
0032360 C C E S S M A P C O N / M A
0032400 P C O N ) ) \r ( P U T P R O P S
0032420 M A P C O N C C L I S P C L
0032440 A S S D E F ( A C C E S S M
0032460 A P C O N C / M A P C O N C )
0032500 ) \r ( P U T P R O P S M E M B
0032520 C L I S P C L A S S D E F (
0032540 A C C E S S M E M B N I L
0032560 F M E M B ) ) \r ( P U T P R O P
0032600 S N C O N C C L I S P C L A
0032620 S S D E F ( A C C E S S N C
0032640 O N C / N C O N C ) ) \r ( P U
0032660 T P R O P S N C O N C 1 C L
0032700 I S P C L A S S D E F ( A C C
0032720 E S S N C O N C 1 / N C O N
0032740 C 1 ) ) \r ( P U T P R O P S N
0032760 T H C L I S P C L A S S D E F
0033000 ( A C C E S S N T H N I L
0033020 F N T H ) ) \r ( P U T P R O P
0033040 S P U T C L I S P C L A S S
0033060 D E F ( A C C E S S P U T
0033100 / P U T ) ) \r ( P U T P R O P S
0033120 P U T A S S O C C L I S P C
0033140 L A S S D E F ( A C C E S S
0033160 P U T A S S O C / P U T A S S
0033200 O C ) ) \r ( P U T P R O P S P
0033220 U T H A S H C L I S P C L A S
0033240 S D E F ( A C C E S S P U T
0033260 H A S H / P U T H A S H ) ) \r
0033300 ( P U T P R O P S P U T P R O
0033320 P C L I S P C L A S S D E F
0033340 ( A C C E S S P U T P R O P
0033360 / P U T P R O P ) ) \r ( P U T P
0033400 R O P S R P L A C A C L I S
0033420 P C L A S S D E F ( A C C E S
0033440 S R P L A C A / R P L A C A
0033460 F R P L A C A ) ) \r ( P U T P
0033500 R O P S R P L A C D C L I S
0033520 P C L A S S D E F ( A C C E S
0033540 S R P L A C D / R P L A C D
0033560 F R P L A C D ) ) \r ( P U T P
0033600 R O P S R P L N O D E C L I
0033620 S P C L A S S D E F ( A C C E
0033640 S S R P L N O D E / R P L N
0033660 O D E F R P L N O D E ) ) \r (
0033700 P U T P R O P S R P L N O D E
0033720 2 C L I S P C L A S S D E F
0033740 ( A C C E S S R P L N O D E 2
0033760 / R P L N O D E 2 F R P L N
0034000 O D E 2 ) ) \r ( P U T P R O P S
0034020 S E T A C L I S P C L A S S
0034040 D E F ( A C C E S S S E T A
0034060 / S E T A ) ) \r ( P U T P R O
0034100 P S F M E M B C L I S P N E
0034120 G ~ F M E M B ) \r ( P U T P R
0034140 O P S M E M B C L I S P N E
0034160 G ~ M E M B ) \r ( P U T P R O
0034200 P S F M E M B B R O A D S C
0034220 O P E T ) \r ( P U T P R O P S
0034240 M E M B B R O A D S C O P E
0034260 T ) \r ( P U T P R O P S L T
0034300 C L I S P T Y P E - 2 0 ) \r
0034320 ( P U T P R O P S l t C L I
0034340 S P T Y P E - 2 0 ) \r ( P U T
0034360 P R O P S G T C L I S P T Y
0034400 P E - 2 0 ) \r ( P U T P R O P
0034420 S g t C L I S P T Y P E -
0034440 2 0 ) \r ( P U T P R O P S L E
0034460 C L I S P T Y P E - 2 0 ) \r
0034500 ( P U T P R O P S l e C L I
0034520 S P T Y P E - 2 0 ) \r ( P U T
0034540 P R O P S G E C L I S P T Y
0034560 P E - 2 0 ) \r ( P U T P R O P
0034600 S g e C L I S P T Y P E -
0034620 2 0 ) \r ( P U T P R O P S L E
0034640 Q C L I S P T Y P E - 2 0 )
0034660 \r ( P U T P R O P S l e q C
0034700 L I S P T Y P E - 2 0 ) \r ( P
0034720 U T P R O P S G E Q C L I S
0034740 P T Y P E - 2 0 ) \r ( P U T P
0034760 R O P S g e q C L I S P T Y
0035000 P E - 2 0 ) \r ( P U T P R O P
0035020 S E Q C L I S P T Y P E -
0035040 2 0 ) \r ( P U T P R O P S N E
0035060 Q C L I S P T Y P E - 2 0 )
0035100 \r ( P U T P R O P S E Q P C
0035120 L I S P T Y P E - 2 0 ) \r ( P
0035140 U T P R O P S E Q U A L C L
0035160 I S P T Y P E - 2 0 ) \r ( P U
0035200 T P R O P S E Q U A L S C L
0035220 I S P T Y P E - 2 0 ) \r ( P U
0035240 T P R O P S A N D C L I S P
0035260 T Y P E - 2 5 ) \r ( P U T P R
0035300 O P S O R C L I S P T Y P E
0035320 - 2 6 ) \r ( P U T P R O P S
0035340 a n d C L I S P T Y P E - 2
0035360 5 ) \r ( P U T P R O P S o r
0035400 C L I S P T Y P E - 2 6 ) \r (
0035420 P U T P R O P S N O R C L I
0035440 S P T Y P E - 2 5 ) \r ( P U T
0035460 P R O P S n o r C L I S P T
0035500 Y P E - 2 5 ) \r ( P U T P R O
0035520 P S M E M B E R C L I S P T
0035540 Y P E - 2 0 ) \r ( P U T P R O
0035560 P S I L E S S P C L I S P T
0035600 Y P E - 2 0 ) \r ( P U T P R O
0035620 P S I G R E A T E R P C L I
0035640 S P T Y P E - 2 0 ) \r ( P U T
0035660 P R O P S F G T P C L I S P
0035700 T Y P E - 2 0 ) \r ( P U T P R
0035720 O P S M I N U S C L I S P T
0035740 Y P E 8 ) \r ( P U T P R O P S
0035760 L E S S P C L I S P T Y P E
0036000 - 2 0 ) \r ( P U T P R O P S
0036020 G R E A T E R P C L I S P T Y
0036040 P E - 2 0 ) \r ( P U T P R O P
0036060 S - > C L I S P T Y P E 7
0036100 ) \r ( P U T P R O P S = > C
0036120 L I S P T Y P E 7 ) \r ( P U T
0036140 P R O P S L T L I S P F N
0036160 L E S S P ) \r ( P U T P R O P S
0036200 l t L I S P F N L E S S P
0036220 ) \r ( P U T P R O P S G T L
0036240 I S P F N G R E A T E R P ) \r
0036260 ( P U T P R O P S g t L I S
0036300 P F N G R E A T E R P ) \r ( P
0036320 U T P R O P S L E L I S P F
0036340 N L E Q ) \r ( P U T P R O P S
0036360 l e L I S P F N L E Q ) \r
0036400 ( P U T P R O P S G E L I S
0036420 P F N G E Q ) \r ( P U T P R O
0036440 P S g e L I S P F N G E Q
0036460 ) \r ( P U T P R O P S L E Q
0036500 L I S P F N L E Q ) \r ( P U T
0036520 P R O P S l e q L I S P F N
0036540 L E Q ) \r ( P U T P R O P S
0036560 G E Q L I S P F N G E Q ) \r
0036600 ( P U T P R O P S g e q L I
0036620 S P F N G E Q ) \r ( P U T P R
0036640 O P S E Q U A L S L I S P F
0036660 N E Q U A L ) \r ( P U T P R O
0036700 P S A N D L I S P F N A N
0036720 D ) \r ( P U T P R O P S O R
0036740 L I S P F N O R ) \r ( P U T P
0036760 R O P S a n d L I S P F N
0037000 A N D ) \r ( P U T P R O P S o
0037020 r L I S P F N O R ) \r ( P U
0037040 T P R O P S N O R L I S P F
0037060 N A N D ) \r ( P U T P R O P S
0037100 n o r L I S P F N A N D )
0037120 \r ( P U T P R O P S N O T U
0037140 N A R Y O P T ) \r ( P U T P R
0037160 O P S M I N U S U N A R Y O
0037200 P T ) \r ( P U T P R O P S L
0037220 E Q C L I S P I N F I X l e
0037240 ) \r ( P U T P R O P S G E Q
0037260 C L I S P I N F I X g e ) \r (
0037300 P U T P R O P S E Q C L I S
0037320 P I N F I X = ) \r ( P U T P R
0037340 O P S N O T C L I S P I N F
0037360 I X ~ ) \r ( P U T P R O P S
0037400 A N D C L I S P I N F I X a
0037420 n d ) \r ( P U T P R O P S O R
0037440 C L I S P I N F I X o r ) \r
0037460 ( P U T P R O P S S E T Q C
0037500 L I S P I N F I X _ ) \r ( P U
0037520 T P R O P S I P L U S C L I
0037540 S P I N F I X + ) \r ( P U T P
0037560 R O P S I M I N U S C L I S
0037600 P I N F I X - ) \r ( P U T P R
0037620 O P S I D I F F E R E N C E
0037640 C L I S P I N F I X + - ) \r (
0037660 P U T P R O P S I T I M E S
0037700 C L I S P I N F I X * ) \r ( P
0037720 U T P R O P S I Q U O T I E N
0037740 T C L I S P I N F I X / ) \r
0037760 ( P U T P R O P S I L E S S P
0040000 C L I S P I N F I X l t ) \r
0040020 ( P U T P R O P S I G R E A T
0040040 E R P C L I S P I N F I X g
0040060 t ) \r ( P U T P R O P S P L U
0040100 S C L I S P I N F I X + ) \r
0040120 ( P U T P R O P S M I N U S
0040140 C L I S P I N F I X - ) \r ( P
0040160 U T P R O P S D I F F E R E N
0040200 C E C L I S P I N F I X + -
0040220 ) \r ( P U T P R O P S T I M E
0040240 S C L I S P I N F I X * ) \r
0040260 ( P U T P R O P S Q U O T I E
0040300 N T C L I S P I N F I X / )
0040320 \r ( P U T P R O P S L E S S P
0040340 C L I S P I N F I X l t ) \r
0040360 ( P U T P R O P S G R E A T E
0040400 R P C L I S P I N F I X g t
0040420 ) \r ( P U T P R O P S E X P T
0040440 C L I S P I N F I X ^ ) \r (
0040460 P U T P R O P S L T C L I S
0040500 P C L A S S L T ) \r ( P U T P
0040520 R O P S l t C L I S P C L A
0040540 S S L T ) \r ( P U T P R O P S
0040560 G T C L I S P C L A S S G
0040600 T ) \r ( P U T P R O P S g t
0040620 C L I S P C L A S S G T ) \r (
0040640 P U T P R O P S L E C L I S
0040660 P C L A S S L E Q ) \r ( P U T
0040700 P R O P S l e C L I S P C L
0040720 A S S L E Q ) \r ( P U T P R O
0040740 P S G E C L I S P C L A S S
0040760 G E Q ) \r ( P U T P R O P S
0041000 g e C L I S P C L A S S G E
0041020 Q ) \r ( P U T P R O P S L E Q
0041040 C L I S P C L A S S L E Q )
0041060 \r ( P U T P R O P S l e q C
0041100 L I S P C L A S S L E Q ) \r (
0041120 P U T P R O P S G E Q C L I
0041140 S P C L A S S G E Q ) \r ( P U
0041160 T P R O P S g e q C L I S P
0041200 C L A S S G E Q ) \r ( P U T P
0041220 R O P S I P L U S C L I S P
0041240 C L A S S + ) \r ( P U T P R O
0041260 P S I M I N U S C L I S P C
0041300 L A S S - ) \r ( P U T P R O P
0041320 S I D I F F E R E N C E C L
0041340 I S P C L A S S + - ) \r ( P U
0041360 T P R O P S I T I M E S C L
0041400 I S P C L A S S * ) \r ( P U T
0041420 P R O P S I Q U O T I E N T
0041440 C L I S P C L A S S / ) \r ( P
0041460 U T P R O P S I L E S S P C
0041500 L I S P C L A S S L T ) \r ( P
0041520 U T P R O P S I G R E A T E R
0041540 P C L I S P C L A S S G T )
0041560 \r ( P U T P R O P S F P L U S
0041600 C L I S P C L A S S + ) \r (
0041620 P U T P R O P S F M I N U S
0041640 C L I S P C L A S S - ) \r ( P
0041660 U T P R O P S F D I F F E R E
0041700 N C E C L I S P C L A S S +
0041720 - ) \r ( P U T P R O P S F T I
0041740 M E S C L I S P C L A S S *
0041760 ) \r ( P U T P R O P S F Q U O
0042000 T I E N T C L I S P C L A S S
0042020 / ) \r ( P U T P R O P S F G
0042040 T P C L I S P C L A S S G T
0042060 ) \r ( P U T P R O P S P L U S
0042100 C L I S P C L A S S + ) \r (
0042120 P U T P R O P S M I N U S C
0042140 L I S P C L A S S - ) \r ( P U
0042160 T P R O P S D I F F E R E N C
0042200 E C L I S P C L A S S + - )
0042220 \r ( P U T P R O P S T I M E S
0042240 C L I S P C L A S S * ) \r (
0042260 P U T P R O P S Q U O T I E N
0042300 T C L I S P C L A S S / ) \r
0042320 ( P U T P R O P S L E S S P
0042340 C L I S P C L A S S L T ) \r (
0042360 P U T P R O P S G R E A T E R
0042400 P C L I S P C L A S S G T )
0042420 \r ( P U T P R O P S L T C L
0042440 I S P C L A S S D E F ( A R I
0042460 T H I L E S S P L E S S P
0042500 L E S S P ) ) \r ( P U T P R O P
0042520 S G T C L I S P C L A S S D
0042540 E F ( A R I T H I G R E A T
0042560 E R P F G T P G R E A T E R
0042600 P ) ) \r ( P U T P R O P S L E
0042620 C L I S P C L A S S D E F (
0042640 A R I T H I L E Q L E Q L
0042660 E Q ) ) \r ( P U T P R O P S G
0042700 E C L I S P C L A S S D E F
0042720 ( A R I T H I G E Q G E Q
0042740 G E Q ) ) \r ( P U T P R O P S
0042760 L E Q C L I S P C L A S S D E
0043000 F ( A R I T H I L E Q L E
0043020 Q L E Q ) ) \r ( P U T P R O P
0043040 S G E Q C L I S P C L A S S
0043060 D E F ( A R I T H I G E Q
0043100 G E Q G E Q ) ) \r ( P U T P R
0043120 O P S L T C L I S P N E G
0043140 G E Q ) \r ( P U T P R O P S G
0043160 T C L I S P N E G L E Q ) \r
0043200 ( P U T P R O P S E Q U A L S
0043220 C L I S P N E G ~ E Q U A L
0043240 ) \r ( P U T P R O P S M E M B
0043260 E R C L I S P N E G ~ M E M
0043300 B E R ) \r ( P U T P R O P S L
0043320 T B R O A D S C O P E T ) \r
0043340 ( P U T P R O P S l t B R O
0043360 A D S C O P E T ) \r ( P U T P
0043400 R O P S G T B R O A D S C O
0043420 P E T ) \r ( P U T P R O P S
0043440 g t B R O A D S C O P E T )
0043460 \r ( P U T P R O P S L E B R
0043500 O A D S C O P E T ) \r ( P U T
0043520 P R O P S l e B R O A D S C
0043540 O P E T ) \r ( P U T P R O P S
0043560 G E B R O A D S C O P E T
0043600 ) \r ( P U T P R O P S g e B
0043620 R O A D S C O P E T ) \r ( P U
0043640 T P R O P S L E Q B R O A D
0043660 S C O P E T ) \r ( P U T P R O
0043700 P S l e q B R O A D S C O P
0043720 E T ) \r ( P U T P R O P S G
0043740 E Q B R O A D S C O P E T )
0043760 \r ( P U T P R O P S g e q B
0044000 R O A D S C O P E T ) \r ( P U
0044020 T P R O P S E Q B R O A D S
0044040 C O P E T ) \r ( P U T P R O P
0044060 S N E Q B R O A D S C O P E
0044100 T ) \r ( P U T P R O P S E Q
0044120 P B R O A D S C O P E T ) \r
0044140 ( P U T P R O P S E Q U A L
0044160 B R O A D S C O P E T ) \r ( P
0044200 U T P R O P S E Q U A L S B
0044220 R O A D S C O P E T ) \r ( P U
0044240 T P R O P S N O T B R O A D
0044260 S C O P E T ) \r ( P U T P R O
0044300 P S A N D B R O A D S C O P
0044320 E T ) \r ( P U T P R O P S O
0044340 R B R O A D S C O P E T ) \r
0044360 ( P U T P R O P S a n d B R
0044400 O A D S C O P E T ) \r ( P U T
0044420 P R O P S o r B R O A D S C
0044440 O P E T ) \r ( P U T P R O P S
0044460 N O R B R O A D S C O P E
0044500 T ) \r ( P U T P R O P S n o r
0044520 B R O A D S C O P E T ) \r (
0044540 P U T P R O P S M E M B E R
0044560 B R O A D S C O P E T ) \r ( P
0044600 U T P R O P S I L E S S P B
0044620 R O A D S C O P E T ) \r ( P U
0044640 T P R O P S I G R E A T E R P
0044660 B R O A D S C O P E T ) \r (
0044700 P U T P R O P S F G T P B R
0044720 O A D S C O P E T ) \r ( P U T
0044740 P R O P S L E S S P B R O A
0044760 D S C O P E T ) \r ( P U T P R
0045000 O P S G R E A T E R P B R O
0045020 A D S C O P E T ) \r ( P U T P
0045040 R O P S E L T S E T F N S
0045060 E T A ) \r ( P U T P R O P S S
0045100 E T A S E T F N ( E L T ) )
0045120 \r o p t i m i z e - C L I S P %
0045140 D 1 \r ( L ( 2 $ $ C T X
0045160 1 $ $ E N V 0 $ $ W H O
0045200 L E ) ) \0 005 \0 \0 \0 003 @ 002 001 020 \0
0045220 N I L \r N I L \r ( ) \r ( P U T P
0045240 R O P ( Q U O T E C L I S P
0045260 % ) ( Q U O T E C O M P I
0045300 L E R : O P T I M I Z E R - L I
0045320 S T ) ( U N I O N ( G E T P
0045340 R O P ( Q U O T E C L I S P
0045360 % ) ( Q U O T E \r C O M P
0045400 I L E R : O P T I M I Z E R - L
0045420 I S T ) ) ( L I S T ( Q U O
0045440 T E o p t i m i z e - C L I S
0045460 P % ) ) ) ) \r ( P U T P R O P
0045500 S A N D C L I S P W O R D
0045520 T ) \r ( P U T P R O P S O R
0045540 C L I S P W O R D T ) \r ( P U
0045560 T P R O P S a n d C L I S P
0045600 W O R D T ) \r ( P U T P R O P
0045620 S o r C L I S P W O R D T
0045640 ) \r ( P U T P R O P S ! C L
0045660 I S P W O R D T ) \r ( P U T P
0045700 R O P S ! ! C L I S P W O R
0045720 D T ) \r ( P U T P R O P S C
0045740 L I S P C L I S P W O R D (
0045760 P R E F I X F N . c l i s p
0046000 ) ) \r ( P U T P R O P S c l i
0046020 s p C L I S P W O R D ( P R
0046040 E F I X F N . c l i s p ) )
0046060 \r ( P U T P R O P S M A T C H
0046100 C L I S P W O R D ( M A T C
0046120 H W O R D . m a t c h ) ) \r
0046140 ( P U T P R O P S m a t c h
0046160 C L I S P W O R D ( M A T C H
0046200 W O R D . m a t c h ) ) \r (
0046220 R P A Q Q C L I S P I F W O R
0046240 D S P L S T ( T H E N E L S
0046260 E E L S E I F I F ) ) \r ( R
0046300 P A Q ? C L I S P I F T R A N
0046320 F L G T ) \r ( P U T P R O P S
0046340 I F C L I S P W O R D ( I
0046360 F W O R D . i f ) ) \r ( P U
0046400 T P R O P S T H E N C L I S
0046420 P W O R D ( I F W O R D .
0046440 t h e n ) ) \r ( P U T P R O P S
0046460 E L S E C L I S P W O R D
0046500 ( I F W O R D . e l s e ) )
0046520 \r ( P U T P R O P S E L S E I
0046540 F C L I S P W O R D ( I F W
0046560 O R D . e l s e i f ) ) \r (
0046600 P U T P R O P S i f C L I S
0046620 P W O R D ( I F W O R D .
0046640 i f ) ) \r ( P U T P R O P S t
0046660 h e n C L I S P W O R D ( I
0046700 F W O R D . t h e n ) ) \r (
0046720 P U T P R O P S e l s e C L
0046740 I S P W O R D ( I F W O R D
0046760 . e l s e ) ) \r ( P U T P R O
0047000 P S e l s e i f C L I S P W
0047020 O R D ( I F W O R D . e l
0047040 s e i f ) ) \r ( R P A Q Q C L
0047060 I S P I . S . G A G N I L ) \r
0047100 ( R P A Q Q I N I T I S O P R
0047120 S ( A L W A Y S A S B I N
0047140 D B Y C O L L E C T C O U
0047160 N T D E C L A R E D E C L A
0047200 R E : D O E A C H T I M E
0047220 F C O L L E C T F I N A L L Y
0047240 F I N D \r F I R S T F O R
0047260 F R O M I N I N S I D E
0047300 I S T H E R E J O I N L A R
0047320 G E S T N E V E R O L D O
0047340 N O R I G I N A L R E P E A
0047360 T U N T I L R E P E A T W H I
0047400 L E S M A L L E S T \r S U C
0047420 H T H A T S U M T H E R E I
0047440 S T H R U T O U N L E S S
0047460 U N T I L W H E N W H E R
0047500 E W H I L E a l w a y s a
0047520 s b i n d b y c o l l e c
0047540 t c o u n t d e c l a r e
0047560 \r d e c l a r e : d o e a c
0047600 h t i m e f c o l l e c t f
0047620 i n a l l y f i n d f i r s
0047640 t f o r f r o m i n i n
0047660 s i d e i s t h e r e j o i
0047700 n l a r g e s t n e v e r
0047720 o l d o n \r o r i g i n a l
0047740 r e p e a t u n t i l r e p
0047760 e a t w h i l e s m a l l e s
0050000 t s u c h t h a t s u m t
0050020 h e r e i s t h r u t o u
0050040 n l e s s u n t i l w h e n
0050060 w h e r e w h i l e ) ) \r (
0050100 P U T P R O P S A L W A Y S
0050120 C L I S P W O R D ( F O R W O
0050140 R D . a l w a y s ) ) \r ( P
0050160 U T P R O P S A S C L I S P
0050200 W O R D ( F O R W O R D .
0050220 a s ) ) \r ( P U T P R O P S B
0050240 I N D C L I S P W O R D ( F
0050260 O R W O R D . b i n d ) ) \r
0050300 ( P U T P R O P S B Y C L I
0050320 S P W O R D ( F O R W O R D
0050340 . b y ) ) \r ( P U T P R O P S
0050360 C O L L E C T C L I S P W O
0050400 R D ( F O R W O R D . c o
0050420 l l e c t ) ) \r ( P U T P R O P
0050440 S C O U N T C L I S P W O R
0050460 D ( F O R W O R D . c o u
0050500 n t ) ) \r ( P U T P R O P S D
0050520 E C L A R E C L I S P W O R D
0050540 ( F O R W O R D . d e c l
0050560 a r e ) ) \r ( P U T P R O P S
0050600 D E C L A R E : C L I S P W O
0050620 R D ( F O R W O R D d e c l
0050640 a r e : D E C L A R E ) ) \r (
0050660 P U T P R O P S D O C L I S
0050700 P W O R D ( F O R W O R D .
0050720 d o ) ) \r ( P U T P R O P S
0050740 E A C H T I M E C L I S P W O
0050760 R D ( F O R W O R D . e a
0051000 c h t i m e ) ) \r ( P U T P R O
0051020 P S F C O L L E C T C L I S
0051040 P W O R D ( F O R W O R D .
0051060 f c o l l e c t ) ) \r ( P U T
0051100 P R O P S F I N A L L Y C L
0051120 I S P W O R D ( F O R W O R D
0051140 . f i n a l l y ) ) \r ( P U
0051160 T P R O P S F I N D C L I S
0051200 P W O R D ( F O R W O R D f
0051220 i n d F O R ) ) \r ( P U T P R
0051240 O P S F I R S T C L I S P W
0051260 O R D ( F O R W O R D . f
0051300 i r s t ) ) \r ( P U T P R O P S
0051320 F O R C L I S P W O R D (
0051340 F O R W O R D . f o r ) ) \r
0051360 ( P U T P R O P S F R O M C
0051400 L I S P W O R D ( F O R W O R
0051420 D . f r o m ) ) \r ( P U T P
0051440 R O P S I N C L I S P W O R
0051460 D ( F O R W O R D . i n )
0051500 ) \r ( P U T P R O P S I N S I
0051520 D E C L I S P W O R D ( F O
0051540 R W O R D . i n s i d e ) )
0051560 \r ( P U T P R O P S I S T H E
0051600 R E C L I S P W O R D ( F O
0051620 R W O R D i s t h e r e T H
0051640 E R E I S ) ) \r ( P U T P R O P
0051660 S J O I N C L I S P W O R D
0051700 ( F O R W O R D . j o i n
0051720 ) ) \r ( P U T P R O P S L A R
0051740 G E S T C L I S P W O R D (
0051760 F O R W O R D . l a r g e s
0052000 t ) ) \r ( P U T P R O P S N E
0052020 V E R C L I S P W O R D ( F
0052040 O R W O R D . n e v e r ) )
0052060 \r ( P U T P R O P S O L D C
0052100 L I S P W O R D ( F O R W O R
0052120 D . o l d ) ) \r ( P U T P R
0052140 O P S O N C L I S P W O R D
0052160 ( F O R W O R D . o n ) )
0052200 \r ( P U T P R O P S O R I G I
0052220 N A L C L I S P W O R D ( F
0052240 O R W O R D . o r i g i n a
0052260 l ) ) \r ( P U T P R O P S R E
0052300 P E A T U N T I L C L I S P W
0052320 O R D ( F O R W O R D . r
0052340 e p e a t u n t i l ) ) \r ( P U
0052360 T P R O P S R E P E A T W H I
0052400 L E C L I S P W O R D ( F O
0052420 R W O R D . r e p e a t w h
0052440 i l e ) ) \r ( P U T P R O P S
0052460 S M A L L E S T C L I S P W O
0052500 R D ( F O R W O R D . s m
0052520 a l l e s t ) ) \r ( P U T P R O
0052540 P S S U C H T H A T C L I S
0052560 P W O R D ( F O R W O R D s
0052600 u c h t h a t T H E R E I S )
0052620 ) \r ( P U T P R O P S S U M
0052640 C L I S P W O R D ( F O R W O
0052660 R D . s u m ) ) \r ( P U T P
0052700 R O P S T H E R E I S C L I
0052720 S P W O R D ( F O R W O R D
0052740 . t h e r e i s ) ) \r ( P U T
0052760 P R O P S T H R U C L I S P
0053000 W O R D ( F O R W O R D t h
0053020 r u T O ) ) \r ( P U T P R O P
0053040 S T O C L I S P W O R D (
0053060 F O R W O R D . t o ) ) \r (
0053100 P U T P R O P S U N L E S S
0053120 C L I S P W O R D ( F O R W O
0053140 R D . u n l e s s ) ) \r ( P
0053160 U T P R O P S U N T I L C L
0053200 I S P W O R D ( F O R W O R D
0053220 . u n t i l ) ) \r ( P U T P
0053240 R O P S W H E N C L I S P W
0053260 O R D ( F O R W O R D . w
0053300 h e n ) ) \r ( P U T P R O P S
0053320 W H E R E C L I S P W O R D
0053340 ( F O R W O R D w h e r e W
0053360 H E N ) ) \r ( P U T P R O P S
0053400 W H I L E C L I S P W O R D
0053420 ( F O R W O R D . w h i l e
0053440 ) ) \r ( P U T P R O P S a l w
0053460 a y s C L I S P W O R D ( F
0053500 O R W O R D . a l w a y s )
0053520 ) \r ( P U T P R O P S a s C
0053540 L I S P W O R D ( F O R W O R
0053560 D . a s ) ) \r ( P U T P R O
0053600 P S b i n d C L I S P W O R
0053620 D ( F O R W O R D . b i n
0053640 d ) ) \r ( P U T P R O P S b y
0053660 C L I S P W O R D ( F O R W
0053700 O R D . b y ) ) \r ( P U T P
0053720 R O P S c o l l e c t C L I
0053740 S P W O R D ( F O R W O R D
0053760 . c o l l e c t ) ) \r ( P U T
0054000 P R O P S c o u n t C L I S
0054020 P W O R D ( F O R W O R D .
0054040 c o u n t ) ) \r ( P U T P R O
0054060 P S d e c l a r e C L I S P
0054100 W O R D ( F O R W O R D .
0054120 d e c l a r e ) ) \r ( P U T P R
0054140 O P S d e c l a r e : C L I
0054160 S P W O R D ( F O R W O R D
0054200 d e c l a r e : D E C L A R E
0054220 ) ) \r ( P U T P R O P S d o
0054240 C L I S P W O R D ( F O R W O
0054260 R D . d o ) ) \r ( P U T P R
0054300 O P S e a c h t i m e C L I
0054320 S P W O R D ( F O R W O R D
0054340 . e a c h t i m e ) ) \r ( P U
0054360 T P R O P S f c o l l e c t
0054400 C L I S P W O R D ( F O R W O
0054420 R D . f c o l l e c t ) ) \r
0054440 ( P U T P R O P S f i n a l l
0054460 y C L I S P W O R D ( F O R
0054500 W O R D . f i n a l l y ) )
0054520 \r ( P U T P R O P S f i n d
0054540 C L I S P W O R D ( F O R W O
0054560 R D f i n d F O R ) ) \r ( P
0054600 U T P R O P S f i r s t C L
0054620 I S P W O R D ( F O R W O R D
0054640 . f i r s t ) ) \r ( P U T P
0054660 R O P S f o r C L I S P W O
0054700 R D ( F O R W O R D . f o
0054720 r ) ) \r ( P U T P R O P S f r
0054740 o m C L I S P W O R D ( F O
0054760 R W O R D . f r o m ) ) \r (
0055000 P U T P R O P S i n C L I S
0055020 P W O R D ( F O R W O R D .
0055040 i n ) ) \r ( P U T P R O P S
0055060 i n s i d e C L I S P W O R D
0055100 ( F O R W O R D . i n s i
0055120 d e ) ) \r ( P U T P R O P S i
0055140 s t h e r e C L I S P W O R D
0055160 ( F O R W O R D i s t h e r
0055200 e t h e r e i s ) ) \r ( P U T
0055220 P R O P S j o i n C L I S P
0055240 W O R D ( F O R W O R D .
0055260 j o i n ) ) \r ( P U T P R O P S
0055300 l a r g e s t C L I S P W O
0055320 R D ( F O R W O R D . l a
0055340 r g e s t ) ) \r ( P U T P R O P
0055360 S n e v e r C L I S P W O R
0055400 D ( F O R W O R D . n e v
0055420 e r ) ) \r ( P U T P R O P S o
0055440 l d C L I S P W O R D ( F O
0055460 R W O R D . o l d ) ) \r ( P
0055500 U T P R O P S o n C L I S P
0055520 W O R D ( F O R W O R D .
0055540 o n ) ) \r ( P U T P R O P S o
0055560 r i g i n a l C L I S P W O R
0055600 D ( F O R W O R D . o r i
0055620 g i n a l ) ) \r ( P U T P R O P
0055640 S r e p e a t u n t i l C L
0055660 I S P W O R D ( F O R W O R D
0055700 . r e p e a t u n t i l ) )
0055720 \r ( P U T P R O P S r e p e a
0055740 t w h i l e C L I S P W O R D
0055760 ( F O R W O R D . r e p e
0056000 a t w h i l e ) ) \r ( P U T P R
0056020 O P S s m a l l e s t C L I
0056040 S P W O R D ( F O R W O R D
0056060 . s m a l l e s t ) ) \r ( P U
0056100 T P R O P S s u c h t h a t
0056120 C L I S P W O R D ( F O R W O
0056140 R D s u c h t h a t T H E R
0056160 E I S ) ) \r ( P U T P R O P S
0056200 s u m C L I S P W O R D ( F
0056220 O R W O R D . s u m ) ) \r (
0056240 P U T P R O P S t h e r e i s
0056260 C L I S P W O R D ( F O R W
0056300 O R D . t h e r e i s ) ) \r
0056320 ( P U T P R O P S t h r u C
0056340 L I S P W O R D ( F O R W O R
0056360 D t h r u T O ) ) \r ( P U T
0056400 P R O P S t o C L I S P W O
0056420 R D ( F O R W O R D . t o
0056440 ) ) \r ( P U T P R O P S u n l
0056460 e s s C L I S P W O R D ( F
0056500 O R W O R D . u n l e s s )
0056520 ) \r ( P U T P R O P S u n t i
0056540 l C L I S P W O R D ( F O R
0056560 W O R D . u n t i l ) ) \r (
0056600 P U T P R O P S w h e n C L
0056620 I S P W O R D ( F O R W O R D
0056640 . w h e n ) ) \r ( P U T P R
0056660 O P S w h e r e C L I S P W
0056700 O R D ( F O R W O R D w h e
0056720 r e W H E N ) ) \r ( P U T P R
0056740 O P S w h i l e C L I S P W
0056760 O R D ( F O R W O R D . w
0057000 h i l e ) ) \r ( P U T P R O P S
0057020 a l w a y s I . S . O P R
0057040 ( ( C O N D ( ( N U L L B O
0057060 D Y ) ( S E T Q $ $ V A L
0057100 N I L ) ( G O $ $ O U T ) )
0057120 ) B I N D ( S E T Q $ $ V
0057140 A L T ) ) ) \r ( P U T P R O P
0057160 S c o l l e c t I . S . O P
0057200 R ( ( S E T Q $ $ V A L (
0057220 N C O N C 1 $ $ V A L B O D
0057240 Y ) ) ) ) \r ( P U T P R O P S
0057260 c o u n t I . S . O P R ( (
0057300 A N D B O D Y ( S E T Q $
0057320 $ V A L ( A D D 1 $ $ V A L
0057340 ) ) ) B I N D ( $ $ V A L
0057360 _ 0 ) ) ) \r ( P U T P R O P S
0057400 d o I . S . O P R ( B O D
0057420 Y ) ) \r ( P U T P R O P S f c
0057440 o l l e c t I . S . O P R (
0057460 ( = S U B P A I R ( Q U O T
0057500 E ( V A R 1 V A R 2 ) ) (
0057520 L I S T ( G E T D U M M Y V A
0057540 R T ) ( G E T D U M M Y V A
0057560 R T ) ) ( \r Q U O T E ( P
0057600 R O G N ( S E T Q V A R 1
0057620 B O D Y ) ( C O N D ( V A R
0057640 2 ( F R P L A C D V A R 2
0057660 ( S E T Q V A R 2 ( L I S T
0057700 V A R 1 ) ) ) ) ( T ( S E
0057720 T Q $ $ V A L ( S E T Q \r
0057740 V A R 2 ( L I S T V A R 1 )
0057760 ) ) ) ) ) ) ) ) ) \r ( P U T P R
0060000 O P S i n s i d e I . S . O
0060020 P R ( N I L = S U B S T
0060040 ( G E T D U M M Y V A R ) ( Q
0060060 U O T E V A R ) ( Q U O T E
0060100 ( b i n d ( V A R _ B O
0060120 D Y ) e a c h t i m e ( \r C
0060140 O N D ( ( N U L L V A R )
0060160 ( G O $ $ O U T ) ) ( ( N L
0060200 I S T P V A R ) ( S E T Q
0060220 I . V . V A R ) ( S E T Q
0060240 V A R N I L ) ) ( T ( S E
0060260 T Q I . V . ( C A R V A R
0060300 ) ) ( \r S E T Q V A R ( C
0060320 D R V A R ) ) ) ) ) ) ) ) \r (
0060340 P U T P R O P S j o i n I .
0060360 S . O P R ( ( S E T Q $ $ V
0060400 A L ( N C O N C $ $ V A L
0060420 B O D Y ) ) ) ) \r ( P U T P R O
0060440 P S l a r g e s t I . S . O
0060460 P R ( N I L = S U B S T
0060500 ( G E T D U M M Y V A R ) ( Q
0060520 U O T E $ $ T E M P ) ( Q U
0060540 O T E ( B I N D $ $ E X T R
0060560 E M E $ $ T E M P D O ( \r
0060600 S E T Q $ $ T E M P B O D Y
0060620 ) ( C O N D ( ( O R ( N U
0060640 L L $ $ E X T R E M E ) ( G
0060660 R E A T E R P $ $ T E M P $
0060700 $ E X T R E M E ) ) ( S E T Q
0060720 $ $ E X T R E M E $ $ T E M
0060740 P ) ( \r S E T Q $ $ V A L
0060760 I . V . ) ) ) ) ) ) ) \r ( P U T
0061000 P R O P S n e v e r I . S .
0061020 O P R ( ( C O N D ( B O D Y
0061040 ( S E T Q $ $ V A L N I L
0061060 ) ( G O $ $ O U T ) ) ) B
0061100 I N D ( $ $ V A L _ T ) )
0061120 ) \r ( P U T P R O P S o l d
0061140 I . S . O P R M O D I F I E R
0061160 ) \r ( P U T P R O P S s m a l
0061200 l e s t I . S . O P R ( N I
0061220 L = S U B S T ( G E T D U
0061240 M M Y V A R ) ( Q U O T E $
0061260 $ T E M P ) ( Q U O T E ( B
0061300 I N D $ $ E X T R E M E $ $
0061320 T E M P D O \r ( S E T Q $
0061340 $ T E M P B O D Y ) ( C O N
0061360 D ( ( O R ( N U L L $ $ E
0061400 X T R E M E ) ( L E S S P $
0061420 $ T E M P $ $ E X T R E M E )
0061440 ) ( S E T Q $ $ E X T R E M
0061460 E $ $ T E M P ) ( S E T Q \r
0061500 $ $ V A L I . V . ) ) ) ) )
0061520 ) ) \r ( P U T P R O P S s u m
0061540 I . S . O P R ( ( S E T Q
0061560 $ $ V A L ( P L U S $ $ V A
0061600 L B O D Y ) ) B I N D ( $
0061620 $ V A L _ 0 ) ) ) \r ( P U T
0061640 P R O P S t h e r e i s I .
0061660 S . O P R ( ( C O N D ( B O
0061700 D Y ( S E T Q $ $ V A L (
0061720 O R I . V . T ) ) ( G O
0061740 $ $ O U T ) ) ) ) ) \r ( A D D T
0061760 O V A R I . S . O P R L S T
0062000 A L W A Y S A S B I N D B
0062020 Y C O L L E C T C O U N T
0062040 D E C L A R E D E C L A R E :
0062060 D O E A C H T I M E F C O
0062100 L L E C T F I N A L L Y \r F
0062120 I N D F I R S T F O R F R
0062140 O M I N I N S I D E I S T
0062160 H E R E J O I N L A R G E S
0062200 T N E V E R O L D O N O
0062220 R I G I N A L R E P E A T U N
0062240 T I L R E P E A T W H I L E
0062260 \r S M A L L E S T S U C H T H
0062300 A T S U M T H E R E I S T
0062320 H R U T O U N L E S S U N
0062340 T I L W H E N W H E R E W
0062360 H I L E a l w a y s a s b
0062400 i n d b y c o l l e c t c
0062420 o u n t \r d e c l a r e d e
0062440 c l a r e : d o e a c h t i
0062460 m e f c o l l e c t f i n a
0062500 l l y f i n d f i r s t f
0062520 o r f r o m i n i n s i d
0062540 e i s t h e r e j o i n l
0062560 a r g e s t n e v e r \r o l
0062600 d o n o r i g i n a l r e
0062620 p e a t u n t i l r e p e a t
0062640 w h i l e s m a l l e s t s
0062660 u c h t h a t s u m t h e r
0062700 e i s t h r u t o u n l e
0062720 s s u n t i l w h e n w h
0062740 e r e \r w h i l e ) \r ( A D D
0062760 T O V A R C L I S P F O R W O
0063000 R D S P L S T A L W A Y S A
0063020 S B I N D B Y C O L L E C
0063040 T C O U N T D E C L A R E
0063060 D E C L A R E : D O E A C H
0063100 T I M E F C O L L E C T \r F
0063120 I N A L L Y F I N D F I R S
0063140 T F O R F R O M I N I N
0063160 S I D E I S T H E R E J O I
0063200 N L A R G E S T N E V E R
0063220 O L D O N O R I G I N A L
0063240 R E P E A T U N T I L \r R E P
0063260 E A T W H I L E S M A L L E S
0063300 T S U C H T H A T S U M T
0063320 H E R E I S T H R U T O U
0063340 N L E S S U N T I L W H E N
0063360 W H E R E W H I L E ) \r ( R
0063400 P A Q Q C L I S P D U M M Y F
0063420 O R V A R S ( $ $ T E M 0 $
0063440 $ T E M 1 $ $ T E M 2 $ $ T
0063460 E M 3 $ $ T E M 4 $ $ T E M
0063500 5 $ $ T E M 6 ) ) \r ( A D D T
0063520 O V A R S Y S L O C A L V A R
0063540 S $ $ T E M 0 $ $ T E M 1
0063560 $ $ T E M 2 $ $ T E M 3 $ $
0063600 T E M 4 $ $ T E M 5 $ $ T E
0063620 M 6 ) \r ( A D D T O V A R I N
0063640 V I S I B L E V A R S $ $ T E
0063660 M 0 $ $ T E M 1 $ $ T E M 2
0063700 $ $ T E M 3 $ $ T E M 4 $
0063720 $ T E M 5 $ $ T E M 6 ) \r ( A
0063740 D D T O V A R S Y S L O C A L
0063760 V A R S $ $ V A L $ $ T E M
0064000 $ $ L S T 1 $ $ L S T 2 $
0064020 $ L S T 3 $ $ L S T 4 $ $ L
0064040 S T 5 $ $ L S T 6 $ $ E N D
0064060 $ $ E X T R E M E ) \r ( A D D
0064100 T O V A R I N V I S I B L E V
0064120 A R S $ $ V A L $ $ E N D
0064140 $ $ T E M $ $ L S T 1 $ $ L
0064160 S T 2 $ $ L S T 3 $ $ L S T
0064200 4 $ $ L S T 5 $ $ L S T 6
0064220 $ $ E X T R E M E ) \r ( P U T D
0064240 E F ( Q U O T E I . S . O P
0064260 R S ) ( Q U O T E F I L E P
0064300 K G C O M S ) ( Q U O T E (
0064320 ( C O M M A C R O ( X ( D
0064340 E C L A R E : E V A L @ C O M
0064360 P I L E ( P * ( \r D U M P
0064400 I . S . O P R S . X ) ) ) )
0064420 C O N T E N T S N I L L )
0064440 ( T Y P E D E S C R I P T I O
0064460 N " i . s . o p e r a t o r
0064500 s " G E T D E F G E T D E F
0064520 . I . S . O P R \r W H E N C H
0064540 A N G E D ( C L E A R C L I S
0064560 P A R R A Y ) ) ) ) ) \r D U M P
0064600 I . S . O P R S D 1 \r ( P 3
0064620 Y I 0 X ) \0 ; 004 \0 003 001
0064640 021 @ 003 @ 260 1 d 001 [ \t \0 \0 d 263 027 g
0064660 \0 \0 K g \0 \0 g \0 \0 h 032 032 032 032 i d
0064700 \v \0 \0 277 270 I 221 h 200 i 224 H h 032 Z 202
0064720 I H & 271 002 003 265 320 J 020 \0 ( 4 2 Q
0064740 L I S P X P R I N T 1 3 Q G
0064760 E T D E F . I . S . O P R ) \r (
0065000 3 0 Q d e f i n e d 2 5 Q
0065020 n o t 2 1 Q I . S . O P R )
0065040 \r ( ) \r G E T D E F . I . S . O
0065060 P R D 1 \r ( P 2 E V A L F
0065100 L G P 1 B O D Y P 0
0065120 T E M I 0 Y ) 001 / \a \0 \0
0065140 001 021 p 006 g \0 \0 @ d 264 034 d d i 360 263
0065160 026 277 277 @ 3 020 221 h 200 i 227 g \0 \0 @ h
0065200 032 032 200 @ @ g \0 \0 \n \0 \0 003 X d 242 261
0065220 \0 374 001 g \0 \0 360 264 003 202 261 \0 361 H d 002
0065240 003 252 002 g \0 \0 \n \0 \0 Y 265 0 H 002 003 264
0065260 003 202 261 \0 331 H 002 002 001 264 003 202 261 \0 317 H
0065300 002 002 001 ^ d 242 261 \0 301 d i 360 222 261 \0 272
0065320 3 020 242 261 \0 251 h 261 \0 246 d 003 242 261 \0 206
0065340 d 001 003 001 g \0 \0 360 226 277 i 272 I 001 002 200
0065360 001 [ d 262 026 d i 360 257 3 020 221 h 200 i 227
0065400 g \0 \0 K h 032 032 200 K I d 002 001 g \0 \0
0065420 360 262 " 002 002 \ d 262 026 d i 360 257 3 020 221
0065440 h 200 i 227 g \0 \0 L h 032 032 200 L i h 032
0065460 032 260 / 002 262 % J 223 \b \0 \0 277 I 002 ] d
0065500 262 026 d i 360 257 3 020 221 h 200 i 227 g \0 \0
0065520 M h 032 032 200 M h 032 206 J 264 006 o \0 \0 \0
0065540 032 260 ( 262 027 I d i 360 263 036 3 020 221 h 200
0065560 i 227 g \0 \0 I h 032 032 214 I 212 i 227 g \0
0065600 \0 N h 032 032 200 N h 032 d 240 020 032 032 020 \0
0065620 ( 3 3 1 Q S H O U L D N T 1
0065640 0 7 Q G E T P R O P 5 1 Q
0065660 G E T P R O P ) \r ( 4 3 7 Q Q
0065700 U O T E 4 2 3 Q Q U O T E
0065720 3 5 6 Q Q U O T E 3 0 5 Q
0065740 Q U O T E 2 5 6 Q = 2 4 1
0065760 Q Q U O T E 2 0 5 Q = 1
0066000 0 4 Q I . S . O P R 6 4 Q
0066020 F O R W O R D 4 6 Q C L I S
0066040 P W O R D 3 4 Q Q U O T E
0066060 5 I . S . O P R ) \r ( 3 7 6
0066100 Q ( N I L T ) ) \r ( A D D T
0066120 O V A R D U R A T I O N C L I
0066140 S P W O R D S ( T I M E R U N
0066160 I T S t i m e r U n i t s t
0066200 i m e r u n i t s ) ( U S I N
0066220 G B O X u s i n g B o x u s
0066240 i n g b o x ) ( \r U S I N G T
0066260 I M E R u s i n g T i m e r
0066300 u s i n g t i m e r ) ( F O R
0066320 D U R A T I O N f o r D u r a
0066340 t i o n f o r d u r a t i o n
0066360 D U R I N G d u r i n g )
0066400 ( R E S O U R C E N A M E \r r
0066420 e s o u r c e N a m e r e s o
0066440 u r c e n a m e ) ( U N T I L
0066460 D A T E u n t i l D a t e u
0066500 n t i l d a t e ) ) \r ( P U T P
0066520 R O P S T I M E R U N I T S
0066540 C L I S P W O R D ( F O R W O
0066560 R D . t i m e r U n i t s )
0066600 ) \r ( P U T P R O P S t i m e
0066620 r U n i t s C L I S P W O R D
0066640 ( F O R W O R D . t i m e
0066660 r U n i t s ) ) \r ( P U T P R O
0066700 P S t i m e r u n i t s C L
0066720 I S P W O R D ( F O R W O R D
0066740 . t i m e r U n i t s ) ) \r
0066760 ( P U T P R O P S U S I N G B
0067000 O X C L I S P W O R D ( F O
0067020 R W O R D . u s i n g B o x
0067040 ) ) \r ( P U T P R O P S u s i
0067060 n g B o x C L I S P W O R D
0067100 ( F O R W O R D . u s i n g
0067120 B o x ) ) \r ( P U T P R O P S
0067140 u s i n g b o x C L I S P W O
0067160 R D ( F O R W O R D . u s
0067200 i n g B o x ) ) \r ( P U T P R O
0067220 P S U S I N G T I M E R C L
0067240 I S P W O R D ( F O R W O R D
0067260 . u s i n g T i m e r ) ) \r
0067300 ( P U T P R O P S u s i n g T
0067320 i m e r C L I S P W O R D (
0067340 F O R W O R D . u s i n g T
0067360 i m e r ) ) \r ( P U T P R O P S
0067400 u s i n g t i m e r C L I S
0067420 P W O R D ( F O R W O R D .
0067440 u s i n g T i m e r ) ) \r ( P
0067460 U T P R O P S F O R D U R A T
0067500 I O N C L I S P W O R D ( F
0067520 O R W O R D . f o r D u r a
0067540 t i o n ) ) \r ( P U T P R O P S
0067560 f o r D u r a t i o n C L I
0067600 S P W O R D ( F O R W O R D
0067620 . f o r D u r a t i o n ) ) \r
0067640 ( P U T P R O P S f o r d u r
0067660 a t i o n C L I S P W O R D
0067700 ( F O R W O R D . f o r D u
0067720 r a t i o n ) ) \r ( P U T P R O
0067740 P S D U R I N G C L I S P W
0067760 O R D ( F O R W O R D . d
0070000 u r i n g ) ) \r ( P U T P R O P
0070020 S d u r i n g C L I S P W O
0070040 R D ( F O R W O R D . d u
0070060 r i n g ) ) \r ( P U T P R O P S
0070100 R E S O U R C E N A M E C L
0070120 I S P W O R D ( F O R W O R D
0070140 . r e s o u r c e N a m e )
0070160 ) \r ( P U T P R O P S r e s o
0070200 u r c e N a m e C L I S P W O
0070220 R D ( F O R W O R D . r e
0070240 s o u r c e N a m e ) ) \r ( P U
0070260 T P R O P S r e s o u r c e n
0070300 a m e C L I S P W O R D ( F
0070320 O R W O R D . r e s o u r c
0070340 e N a m e ) ) \r ( P U T P R O P
0070360 S U N T I L D A T E C L I S
0070400 P W O R D ( F O R W O R D .
0070420 u n t i l d a t e ) ) \r ( P U
0070440 T P R O P S u n t i l D a t e
0070460 C L I S P W O R D ( F O R W
0070500 O R D . u n t i l D a t e )
0070520 ) \r ( P U T P R O P S u n t i
0070540 l d a t e C L I S P W O R D
0070560 ( F O R W O R D . u n t i l
0070600 d a t e ) ) \r ( P U T P R O P S
0070620 t i m e r U n i t s \ D U R
0070640 A T I O N T R A N T ) \r ( P U
0070660 T P R O P S u s i n g B o x
0070700 \ D U R A T I O N T R A N T )
0070720 \r ( P U T P R O P S u s i n g
0070740 T i m e r \ D U R A T I O N T
0070760 R A N T ) \r ( P U T P R O P S
0071000 f o r D u r a t i o n \ D U
0071020 R A T I O N T R A N T ) \r ( P
0071040 U T P R O P S d u r i n g \
0071060 D U R A T I O N T R A N T ) \r
0071100 ( P U T P R O P S r e s o u r
0071120 c e N a m e \ D U R A T I O N
0071140 T R A N T ) \r ( P U T P R O P
0071160 S u n t i l D a t e \ D U R
0071200 A T I O N T R A N T ) \r ( P U
0071220 T P R O P S u n t i l d a t e
0071240 \ D U R A T I O N T R A N T
0071260 ) \r ( P U T D E F ( Q U O T E
0071300 \ F o r D u r a t i o n O f B
0071320 o x ) ( Q U O T E R E S O U
0071340 R C E S ) ( Q U O T E ( N E
0071360 W ( \ T I M E R . M A K E T I
0071400 M E R ) ) ) ) \r ( P U T P R O P
0071420 S P R O G I N F O ( E V A
0071440 L B I N D S L A B E L S ) )
0071460 \r ( P U T P R O P S P R O G *
0071500 I N F O ( E V A L B I N D
0071520 S L A B E L S ) ) \r ( P U T P
0071540 R O P S R E S E T V A R S I
0071560 N F O ( E V A L B I N D S
0071600 L A B E L S ) ) \r ( P U T P R O
0071620 P S R E S E T B U F S I N F
0071640 O E V A L ) \r ( P U T P R O P
0071660 S R E S E T L S T I N F O
0071700 ( E V A L P R O G N ) ) \r ( P
0071720 U T P R O P S A D V - P R O G
0071740 I N F O ( E V A L B I N D
0071760 S L A B E L S ) ) \r ( P U T P
0072000 R O P S A D V - S E T Q I N
0072020 F O E V A L ) \r ( P U T P R O
0072040 P S A N D I N F O E V A L
0072060 ) \r ( P U T P R O P S A R G
0072100 I N F O E V A L ) \r ( P U T P
0072120 R O P S C O N D I N F O E
0072140 V A L ) \r ( P U T P R O P S E
0072160 R S E T Q I N F O E V A L )
0072200 \r ( P U T P R O P S N L S E T
0072220 Q I N F O E V A L ) \r ( P U
0072240 T P R O P S O R I N F O E
0072260 V A L ) \r ( P U T P R O P S P
0072300 R O G 1 I N F O E V A L ) \r
0072320 ( P U T P R O P S P R O G 2
0072340 I N F O E V A L ) \r ( P U T P
0072360 R O P S P R O G N I N F O
0072400 ( E V A L P R O G N ) ) \r ( P
0072420 U T P R O P S R E S E T F O R
0072440 M I N F O E V A L ) \r ( P U
0072460 T P R O P S R E S E T S A V E
0072500 I N F O E V A L ) \r ( P U T
0072520 P R O P S R E S E T V A R I
0072540 N F O E V A L ) \r ( P U T P R
0072560 O P S R P A Q I N F O E V
0072600 A L ) \r ( P U T P R O P S R P
0072620 T Q I N F O E V A L ) \r ( P
0072640 U T P R O P S F R P T Q I N
0072660 F O E V A L ) \r ( P U T P R O
0072700 P S S A V E S E T Q I N F O
0072720 E V A L ) \r ( P U T P R O P S
0072740 S E T N I N F O E V A L )
0072760 \r ( P U T P R O P S S E T Q
0073000 I N F O E V A L ) \r ( P U T P
0073020 R O P S U N D O N L S E T Q
0073040 I N F O E V A L ) \r ( P U T P
0073060 R O P S X N L S E T Q I N F
0073100 O E V A L ) \r ( P U T P R O P
0073120 S S E T A R G I N F O E V
0073140 A L ) \r ( P U T P R O P S L E
0073160 T I N F O ( B I N D S E V
0073200 A L ) ) \r ( P U T P R O P S L
0073220 E T * I N F O ( B I N D S
0073240 E V A L ) ) \r ( P U T P R O P S
0073260 R E T U R N I N F O E V A
0073300 L ) \r ( P U T P R O P S C L I
0073320 S P F I L E T Y P E C O M P
0073340 I L E - F I L E ) \r ( P U T P R
0073360 O P S C L I S P C O P Y R I
0073400 G H T ( " X e r o x C o r p
0073420 o r a t i o n " T 1 9 8 2
0073440 1 9 8 3 1 9 8 4 1 9 8 5 1
0073460 9 8 6 ) ) \r N I L \r
0073472