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