$ od -c -N 50000 [phylum]<LISP>KOTO>Library>CMLCOMPILE.DCOM!1 0000000 ( F I L E C R E A T E D " 1 5 0000020 - A u g - 8 5 1 6 : 1 5 : 2 5 0000040 " ( " c o m p i l e d o n 0000060 " { E R I S } < L I S P C O R 0000100 E > L I B R A R Y > C M L C O M 0000120 P I L E . ; 6 ) \r " 1 2 - A u 0000140 g - 8 5 1 9 : 3 8 : 4 8 " r 0000160 e c o m p i l e d c h a n g e 0000200 s : N E W D E F C i n " I 0000220 N T E R L I S P - D 1 2 - A u 0000240 g - 8 5 . . . " d a t e d 0000260 \r " 1 2 - A u g - 8 5 1 9 : 5 0000300 1 : 4 0 " ) \r ( F I L E C R E A 0000320 T E D " 1 5 - A u g - 8 5 1 0000340 6 : 1 4 : 4 0 " { E R I S } < 0000360 L I S P C O R E > L I B R A R Y 0000400 > C M L C O M P I L E . ; 6 1 0000420 2 5 4 7 c h a n g e s t o : 0000440 ( F N S N E W D E F C \r ) 0000460 p r e v i o u s d a t e : " 0000500 9 - A u g - 8 5 1 8 : 1 9 : 0000520 2 5 " { E R I S } < L I S P C 0000540 O R E > L I B R A R Y > C M L C 0000560 O M P I L E . ; 5 ) \r C O M P I 0000600 L E - F I L E A 0 0 0 1 D 1 \r 0000620 ( N A M E E R R O R S E T P 0000640 1 0 Q E X P P 7 D E F 0000660 E R R E D . E X P R E S S I O N 0000700 S P 6 F I L E . E X P R E 0000720 S S I O N P 4 R O O T N A 0000740 M E P 3 L S T F I L P 0000760 2 S T R E A M P 1 S P E 0001000 C V A R S P 0 L O C A L V 0001020 A R S F 1 1 Q R E S E T V 0001040 A R S L S T F 1 2 Q O U T 0001060 P U T - F I L E F 1 3 Q F 0001100 I L E N A M E F 1 4 Q F I 0001120 L E R D T B L F 1 5 Q P R 0001140 O C E S S . E N T I R E . F I L 0001160 E F 1 6 Q N L A M L F 0001200 1 7 Q N L A M A F 2 0 Q 0001220 M A K E S Y S D A T E F 2 1 0001240 Q L A M S F 2 2 Q L A M 0001260 A F 2 3 Q R E S E T Y F 0001300 2 4 Q C O M P I L E R - O U 0001320 T P U T F 2 5 Q S A V E - 0001340 E X P R S F 2 6 Q C O M P 0001360 I L E . F I L E . V A L U E F 0001400 2 7 Q S Y S L O C A L V A R 0001420 S F 3 0 Q L A P F 3 1 0001440 Q H E R A L D S T R I N G F 0001460 3 2 Q C O U T F I L E F 0001500 3 3 Q C O M P V E R S I O N 0001520 F 3 4 Q C O M P I L E . E X 0001540 T F 3 5 Q C O M P I L E H 0001560 E A D E R ) 001 256 \t 025 002 \0 g \0 \0 0001600 h 032 h h 032 032 W 022 032 c 022 277 g \0 \0 d 0001620 \t \0 \0 032 g \0 \0 W 034 \n \0 \0 277 W 022 032 0001640 c 022 277 g \0 \0 d \t \0 \0 032 g \0 \0 W 036 0001660 \n \0 \0 277 W 022 032 c 022 277 g \0 \0 d \t \0 0001700 \0 032 g \0 \0 W " \n \0 \0 277 W 022 032 c 022 0001720 277 g \0 \0 d \t \0 \0 032 g \0 \0 W $ \n \0 0001740 \0 277 W 022 032 c 022 277 g \0 \0 d \t \0 \0 032 0001760 g \0 \0 \t \0 \0 277 W 022 032 c 022 277 g \0 \0 0002000 d \t \0 \0 032 g \0 \0 W ( \n \0 \0 277 W 022 0002020 032 c 022 277 g \0 \0 d \t \0 \0 032 g \0 \0 W 0002040 * 264 005 g \0 \0 \n \0 \0 277 W 022 032 c 022 277 0002060 W . i 021 B 005 g \0 \0 W 026 g \0 \0 \n \0 0002100 \0 Z h 032 032 h h 032 032 W 022 032 c 022 277 W 0002120 0 222 W 4 273 J \t \0 \0 c 026 277 g \0 \0 W 0002140 024 265 024 g \0 \0 h g \0 \0 W 8 g \0 \0 W 0002160 026 \r 006 \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 \f 0002200 \0 \0 c 024 J W 026 \t \0 \0 h 032 032 032 032 h 0002220 h 032 032 W 022 032 c 022 277 W 024 262 / g \0 \0 0002240 \b \0 \0 W : W 026 032 W 6 o \0 \0 \0 g \0 0002260 \0 W 2 g \0 \0 W h 032 032 032 032 032 032 032 0002300 032 032 W 024 W 030 \v \0 \0 277 021 \a J W 030 0002320 \n \0 \0 ^ 230 N d g \0 \0 360 262 B 277 W 032 0002340 262 # O 016 \t \0 \0 260 031 d 001 021 001 \b O 020 0002360 001 275 O 020 002 W 024 W 030 l 003 M 017 016 023 002 0002400 003 265 350 J \t \0 \0 023 g \0 \0 W 024 \n \0 \0 0002420 277 W 024 \t \0 \0 c , 022 c & i 020 W 024 h 0002440 d W 032 \r 005 \0 \0 277 260 245 \0 ( 6 5 1 Q 0002460 C O M P I L E - F I L E - E X 0002500 P R E S S I O N 6 3 0 Q C L 0002520 O S E F 6 2 2 Q P R I N T 0002540 6 1 1 Q C L O S E F 5 5 1 Q 0002560 R E V E R S E 5 2 5 Q R E 0002600 A D 5 1 3 Q P R I N T 4 4 0002620 5 Q D A T E 4 1 4 Q R O O 0002640 T F I L E N A M E 4 0 4 Q O 0002660 P E N S T R E A M 3 6 7 Q P 0002700 A C K F I L E N A M E . S T R I 0002720 N G 3 3 3 Q F U L L N A M E 0002740 3 0 3 Q O P E N S T R E A M 0002760 2 5 3 Q S E T T O P V A L 0003000 2 3 5 Q G E T T O P V A L 2 0003020 1 7 Q S E T T O P V A L 2 0 0003040 6 Q G E T T O P V A L 1 7 0 0003060 Q S E T T O P V A L 1 6 1 Q 0003100 G E T T O P V A L 1 4 3 Q 0003120 S E T T O P V A L 1 3 2 Q G 0003140 E T T O P V A L 1 1 4 Q S E 0003160 T T O P V A L 1 0 3 Q G E T 0003200 T O P V A L 6 5 Q S E T T O 0003220 P V A L 5 4 Q G E T T O P V 0003240 A L 3 6 Q S E T T O P V A L 0003260 2 5 Q G E T T O P V A L ) \r 0003300 ( 6 1 5 Q S T O P 5 3 4 Q 0003320 S T O P 4 7 0 Q d a t e d 0003340 4 6 3 Q i n 4 4 2 Q F I L 0003360 E C R E A T E D 3 7 5 Q N E 0003400 W 3 7 2 Q O U T P U T 3 6 0003420 1 Q B O D Y 3 5 4 Q E X T 0003440 E N S I O N 3 5 0 Q V E R S 0003460 I O N 3 4 1 Q C O M P I L E 0003500 . F I L E . R E S E T 3 0 0 Q 0003520 I N P U T 2 7 3 Q C L O S 0003540 E F ? 2 5 0 Q D E F E R 2 0003560 4 1 Q S V F L G 2 3 1 Q S 0003600 V F L G 2 1 2 Q C O U T F I 0003620 L E 2 0 2 Q C O U T F I L E 0003640 1 6 5 Q D F N F L G 1 5 5 0003660 Q D F N F L G 1 3 6 Q L A 0003700 M A 1 2 6 Q L A M A 1 0 7 0003720 Q L A M S 7 7 Q L A M S 0003740 6 0 Q N L A M A 5 0 Q N L 0003760 A M A 3 1 Q N L A M L 2 1 0004000 Q N L A M L 2 R E S E T U 0004020 N D O ) \r ( 4 6 0 Q " C O M 0004040 P I L E . F I L E d " 4 0 1 Q 0004060 ( ( T Y P E B I N A R Y ) ) 0004100 ) \r C O M P I L E - F I L E D 0004120 1 \r ( L ( 0 \ C L : L A M B 0004140 D A . A R G C N T ) P 3 1 Q 0004160 R E S E T Z P 3 0 Q R E 0004200 S E T Y P 2 7 Q L I S P X 0004220 H I S T P 2 6 Q C O M P I 0004240 L E . F I L E . V A L U E P 0004260 2 5 Q V A L U E P 2 4 Q 0004300 C O M P I L E . F I L E . A F T 0004320 E R P 2 3 Q P R O C E S S 0004340 - E N T I R E - F I L E P 2 0004360 0 Q C O M P I L E R - O U T P 0004400 U T P 1 5 Q S A V E - E X 0004420 P R S P 1 2 Q O U T P U T 0004440 - F I L E P 7 R E D E F I 0004460 N E P 4 L A P P 1 F 0004500 I L E N A M E F 3 2 Q L I 0004520 S P X H I S T F 3 3 Q R E 0004540 S E T V A R S L S T ) 001 S 032 002 0004560 002 \0 e 021 001 \0 @ 021 361 020 021 0 023 H l 002 0004600 273 272 K d J 363 226 277 h d 263 026 260 025 a g 0004620 \0 \0 360 224 K k 330 260 362 K l 002 324 [ 260 345 0004640 a 274 H l 002 276 275 N d M 363 226 277 h d 263 0004660 026 260 025 a g \0 \0 360 224 N k 330 260 362 N l 0004700 002 324 ^ 260 345 a _ 016 277 H l 002 _ 022 277 _ 0004720 020 277 O 022 d O 020 363 226 277 h d 263 031 260 030 0004740 a g \0 \0 360 225 O 022 k 330 260 361 O 022 l 002 0004760 324 _ 022 260 341 a _ 024 277 H l 002 _ 030 277 _ 0005000 026 277 O 030 d O 026 363 226 277 h 265 032 i 260 030 0005020 a g \0 \0 360 225 O 030 k 330 260 361 O 030 l 002 0005040 324 _ 030 260 341 a _ 032 277 H l 002 _ 036 277 _ 0005060 034 277 O 036 d O 034 363 226 277 h 265 032 i 260 030 0005100 a g \0 \0 360 225 O 036 k 330 260 361 O 036 l 002 0005120 324 _ 036 260 341 a _ 277 H l 002 _ $ 277 _ 0005140 " 277 O $ d O " 363 226 277 h d 263 031 260 030 0005160 a g \0 \0 360 225 O $ k 330 260 361 O $ l 002 0005200 324 _ $ 260 341 a _ & 277 021 0 026 W 4 021 ! 0005220 031 W 6 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 0005240 g \0 \0 _ 2 \n \0 \0 277 O 2 223 \b \0 \0 277 0005260 023 O ( \t \0 \0 206 d 001 \t \0 \0 277 002 003 265 0005300 370 O , 020 \0 ( 5 1 1 Q E V A L 0005320 5 0 3 Q R E V E R S E 4 7 4 0005340 Q E R R O R ! 4 6 5 Q R E 0005360 S E T R E S T O R E 4 5 2 Q 0005400 C O M P I L E - F I L E A 0 0 0 0005420 1 ) \r ( 4 6 0 Q E R R O R 4 0005440 4 7 Q I N T E R N A L 4 0 1 0005460 Q : P R O C E S S - E N T I R 0005500 E - F I L E 3 2 1 Q : C O M 0005520 P I L E R - O U T P U T 2 4 1 0005540 Q : S A V E - E X P R S 1 6 0005560 1 Q : O U T P U T - F I L E 0005600 1 0 4 Q : R E D E F I N E 3 0005620 7 Q : L A P ) \r ( 4 4 4 Q 0005640 ( C O M P I L E - F I L E A 0 0 0005660 0 1 ) ) \r C O M P I L E - F I L 0005700 E - E X P R E S S I O N D 1 \r 0005720 ( P 6 P R O P P 5 X 0005740 P 4 C O M P T I M E P 3 0005760 C O N D I T I O N S P 2 0006000 F O R M P 1 O R I G . D O 0006020 N T . C O P Y P 0 O R I G 0006040 . C O M P I L E . T I M E . T O 0006060 O I 4 D E F E R I 3 0006100 D O N T . C O P Y I 2 C O 0006120 M P I L E . T I M E . T O O I 0006140 1 C O M P I L E D . F I L E 0006160 I 0 F O R M F 7 C O 0006200 U T F I L E F 1 0 Q C O M 0006220 P I L E R M A C R O P R O P S ) 0006240 001 260 \a 002 \0 005 @ 003 001 d g \0 \0 360 242 0006260 261 \0 346 277 B C @ 002 021 003 002 J 003 265 004 h 0006300 020 001 003 222 261 \0 301 J 001 d g \0 \0 360 226 277 0006320 i b 006 261 \0 274 d g \0 \0 360 245 d g \0 \0 0006340 360 226 277 h b 006 261 \0 251 d g \0 \0 360 236 277 0006360 J 002 Z 001 \t \0 \0 h 360 b 006 261 \0 224 d g 0006400 \0 \0 360 262 035 277 o \0 \0 \0 W 016 \n \0 \0 277 0006420 J 002 001 W 016 \n \0 \0 277 W 016 \t \0 \0 260 q 0006440 d g \0 \0 360 263 j d g \0 \0 360 225 277 h b 0006460 004 260 ^ d g \0 \0 360 245 d g \0 \0 360 225 277 0006500 i b 004 260 L d g \0 \0 360 233 277 J 002 Z 001 0006520 \t \0 \0 b 004 260 : d g \0 \0 360 224 277 J 002 0006540 260 1 d g \0 \0 360 263 ( d g \0 \0 360 263 ! 0006560 d g \0 \0 360 263 032 277 J 001 o \0 \0 \0 032 W 0006600 016 \n \0 \0 211 J 001 A B C D \r 005 \0 \0 277 0006620 J 002 Z 261 377 ) d g \0 \0 360 262 J 277 @ 002 0006640 001 021 021 004 g \0 \0 K 034 265 \n B 264 \a g \0 0006660 \0 K 034 274 g \0 \0 K 034 262 032 @ 002 216 d 001 0006700 021 001 005 M A L C D \r 005 \0 \0 023 002 003 265 0006720 357 h 020 L 264 l @ 002 205 d 001 \t \0 \0 277 002 0006740 003 265 370 h 020 g \0 \0 360 262 031 @ 216 d 001 021 0006760 001 005 M A B C D \r 005 \0 \0 023 002 003 265 357 0007000 h 020 B 224 @ \t \0 \0 277 C 265 6 @ 001 g \0 0007020 \0 033 265 \b @ 001 g \0 \0 033 021 001 006 N 265 # 0007040 @ 001 W 020 \n \0 \0 ^ 262 " @ d N 002 001 \n 0007060 \0 \0 b \0 364 263 025 @ A B C D \r 005 \0 \0 0007100 020 @ B C D \r 005 \0 \0 020 g \0 \0 @ B C 0007120 D \r 005 \0 \0 020 \0 ( 6 5 5 Q C O M 0007140 P I L E . F I L E . A P P L Y 0007160 6 4 1 Q C O M P I L E . F I L 0007200 E . A P P L Y 6 3 0 Q C O M 0007220 P I L E - F I L E - E X P R E S 0007240 S I O N 6 1 2 Q M A C R O E 0007260 X P A N S I O N 5 7 7 Q G E 0007300 T L I S 5 4 0 Q E V A L 5 0007320 2 3 Q C O M P I L E - F I L E 0007340 - E X P R E S S I O N 4 6 6 Q 0007360 E V A L 4 4 4 Q C O M P I 0007400 L E - F I L E - E X P R E S S I 0007420 O N 3 4 7 Q C O M P I L E - 0007440 F I L E - E X P R E S S I O N 0007460 3 3 4 Q P R I N T 2 5 3 Q 0007500 E V A L 1 6 6 Q T E R P R I 0007520 1 6 0 Q P R I N 1 1 4 7 Q 0007540 P R I N 1 1 1 7 Q E V A L 0007560 ) \r ( 6 4 5 Q P R I N T 5 6 0007600 1 Q C O M P I L E . F I L E . 0007620 E X P R E S S I O N 5 5 1 Q 0007640 C O M P I L E - F I L E - E X P 0007660 R E S S I O N 5 0 0 Q P R O 0007700 G N 4 1 7 Q L O A D 4 1 1 0007720 Q E V A L 3 7 7 Q C O M P 0007740 I L E 3 6 2 Q E V A L . W H 0007760 E N 3 1 4 Q E V A L @ L O A 0010000 D 3 0 5 Q D O E V A L @ L O 0010020 A D 2 7 6 Q D O N T E V A L 0010040 @ L O A D 2 6 3 Q E V A L @ 0010060 L O A D W H E N 2 4 1 Q E V 0010100 A L @ C O M P I L E W H E N 2 0010120 2 5 Q E V A L @ C O M P I L E 0010140 2 1 7 Q D O E V A L @ C O M 0010160 P I L E 2 0 3 Q D O N T E V 0010200 A L @ C O M P I L E 1 7 4 Q 0010220 N O T F I R S T 1 3 2 Q F I 0010240 R S T 1 0 5 Q C O P Y W H E 0010260 N 7 0 Q C O P Y 6 2 Q D 0010300 O C O P Y 4 5 Q D O N T C O 0010320 P Y 6 D E C L A R E : ) \r ( 0010340 3 2 6 Q ( U N R E C O G N I 0010360 Z E D D E C L A R E T A G ) 0010400 1 4 2 Q " W a r n i n g : 0010420 ( D E C L A R E : - - F I R 0010440 S T - - - - ) n o t i m 0010460 p l e m e n t e d i n C O M 0010500 P I L E . F I L E : " ) \r C O 0010520 M P I L E . F I L E . E X P R E 0010540 S S I O N D 1 \r ( I 4 D E 0010560 F E R I 3 D O N T . C O P 0010600 Y I 2 C O M P I L E . T I 0010620 M E . T O O I 1 C O M P I 0010640 L E D . F I L E I 0 F O R 0010660 M ) \0 \v \0 \0 \0 005 @ A B C D \r 005 0010700 \0 \0 020 \0 ( 1 0 Q C O M P I L E 0010720 - F I L E - E X P R E S S I O N 0010740 ) \r N I L \r ( ) \r C O M P I L E 0010760 . F I L E . P U T D E F D 1 \r 0011000 ( P 0 F N I 2 R D T B 0011020 L I 1 L C F I L I 0 0011040 F O R M ) \0 034 001 \0 \0 003 021 020 \0 @ 0011060 002 001 \t \0 \0 X d @ 002 002 002 001 \t \0 \0 \n 0011100 \0 \0 \n \0 \0 h 020 \0 ( 3 0 Q B Y T 0011120 E C O M P I L E 2 2 5 Q C O 0011140 M P I L E 1 A 2 2 Q E V A L 0011160 1 0 Q E V A L ) \r N I L \r ( 0011200 ) \r A R G T Y P E . S T A T E 0011220 D 1 \r ( P 0 X F 1 A R 0011240 G T Y P E . V A R S ) \0 + 001 001 0011260 \0 \0 Q 260 $ d 001 021 001 \0 H i \n \0 \0 277 0011300 k i \n \0 \0 277 H 002 001 \t \0 \0 i \n \0 \0 0011320 277 i \t \0 \0 023 002 003 265 335 h 020 \0 ( 4 2 0011340 Q T E R P R I 3 5 Q P R I 0011360 N 1 3 1 Q E V A L 2 2 Q 0011400 S P A C E S 1 4 Q P R I N 1 0011420 ) \r N I L \r ( ) \r C O M P I L E 0011440 . C H E C K . A R G T Y P E D 0011460 1 \r ( P 2 V A L P 1 A 0011500 T Y P E P A I R P 0 B L K 0011520 F L G I 1 A T I 0 X 0011540 F 3 C O U T F I L E F 0011560 4 A R G T Y P E . V A R S ) 0011600 \0 344 003 002 \0 002 A 021 020 \0 @ \t \0 \0 022 360 0011620 222 261 \0 326 T 261 \0 313 d 001 021 001 001 @ I 002 0011640 001 - 034 021 001 002 A I 001 360 262 D J 262 4 o 0011660 \0 \0 \0 S \n \0 \0 277 @ S \n \0 \0 277 o \0 0011700 \0 \0 S \n \0 \0 277 I 002 001 S \n \0 \0 277 o 0011720 \0 \0 \0 S \n \0 \0 277 I 002 002 001 S \n \0 \0 0011740 277 I 002 001 @ I 002 001 \t \0 \0 032 260 m J 262 0011760 n o \0 \0 \0 S \n \0 \0 277 @ S \n \0 \0 277 0012000 o \0 \0 \0 S \n \0 \0 277 g \0 \0 A T 026 002 0012020 002 001 265 006 o \0 \0 \0 g \0 \0 h 032 032 032 S 0012040 \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277 I 002 002 0012060 001 S \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277 I 0012100 002 001 S \n \0 \0 277 S \t \0 \0 277 I 002 001 @ 0012120 I 002 001 \t \0 \0 \n \0 \0 \n \0 \0 277 023 023 002 0012140 003 265 003 202 261 377 4 h 020 \0 ( 3 2 5 Q 0012160 / S E T T O P V A L 3 2 2 Q 0012200 R E M O V E 3 1 7 Q G E T T 0012220 O P V A L 3 0 4 Q T E R P R 0012240 I 2 7 7 Q P R I N 1 2 6 7 0012260 Q P R I N 1 2 5 6 Q P R I 0012300 N 1 2 4 5 Q P R I N 1 2 3 0012320 4 Q P R I N 1 2 0 1 Q P R 0012340 I N 1 1 7 0 Q P R I N 1 1 0012360 6 2 Q P R I N 1 1 4 4 Q G 0012400 E T T O P V A L 1 3 1 Q P R 0012420 I N 1 1 2 0 Q P R I N 1 1 0012440 0 7 Q P R I N 1 7 7 Q P R 0012460 I N 1 6 6 Q P R I N 1 6 0 0012500 Q P R I N 1 7 C O M P . A 0012520 R G T Y P E ) \r ( 2 2 4 Q f u 0012540 n c t i o n 2 0 5 Q a ) \r ( 0012560 2 6 3 Q " b e c a u s e 0012600 i t w a s i n c o r r e c t 0012620 l y o n " 2 4 1 Q " w 0012640 a s a " 2 2 1 Q " L A M 0012660 B D A s p r e a d " 1 7 5 Q 0012700 " " 1 5 6 Q " W a r n i 0012720 n g : c o m p i l e r t h o 0012740 u g h t " 1 1 4 Q " b u 0012760 t c o m p i l e r d o e s n 0013000 ' t t h i n k i t s a " 0013020 7 3 Q " o n " 5 4 Q 0013040 " C o m p i l e r c o n f u s 0013060 e d : " ) \r C O M P I L E . F 0013100 I L E . D E F I N E Q D 1 \r ( 0013120 P 0 D E F I 2 R D T B 0013140 L I 1 L C F I L I 0 0013160 F O R M ) \0 ) 001 \0 \0 003 @ 260 ! d 0013200 001 021 001 \0 H 001 H 002 001 \t \0 \0 \n \0 \0 277 0013220 H 001 H 001 H 002 001 \n \0 \0 \n \0 \0 023 002 003 0013240 265 337 h 020 \0 ( 4 0 Q B Y T E C O 0013260 M P I L E 2 3 5 Q C O M P I 0013300 L E 1 A 2 2 Q C O M P I L E 0013320 . C H E C K . A R G T Y P E 1 0013340 7 Q A R G T Y P E ) \r N I L \r 0013360 ( ) \r C O M P I L E . F I L E . 0013400 D E F U N D 1 \r ( I 2 R D 0013420 T B L I 1 L C F I L I 0013440 0 F O R M F 0 D E F ) 0013460 \0 021 \0 001 \0 003 P 002 001 P 002 001 P 002 001 \n 0013500 \0 \0 \n \0 \0 020 \0 ( 1 6 Q B Y T E 0013520 C O M P I L E 2 1 3 Q C O M 0013540 P I L E 1 A ) \r N I L \r ( ) \r C 0013560 O M P I L E . F I L E . E X P R 0013600 E S S I O N D 1 \r ( I 4 D 0013620 E F E R I 3 D O N T . C O 0013640 P Y I 2 C O M P I L E . T 0013660 I M E . T O O I 1 C O M P 0013700 I L E D . F I L E I 0 F O 0013720 R M ) \0 \v \0 \0 \0 005 @ A B C D \r 0013740 005 \0 \0 020 \0 ( 1 0 Q C O M P I L 0013760 E - F I L E - E X P R E S S I O 0014000 N ) \r N I L \r ( ) \r C O M P I L 0014020 E . F I L E . A P P L Y D 1 \r 0014040 ( I 4 D E F E R I 3 D 0014060 O N T . C O P Y I 2 C O M 0014100 P I L E . T I M E . T O O I 0014120 1 F O R M I 0 P R O P 0014140 F 0 D E F E R R E D . E X P 0014160 R E S S I O N S F 1 C O M 0014200 P I L E D . F I L E ) \0 \0 002 0014220 \0 005 B 224 A \t \0 \0 277 C 265 \v D 227 @ A 0014240 032 P 032 c \0 020 A Q ` \0 \0 l 003 @ 017 016 0014260 020 \0 ( 5 E V A L ) \r ( 3 0 Q 0014300 F I L E R D T B L ) \r ( ) \r C O 0014320 M P I L E . F I L E . R E S E T 0014340 D 1 \r ( I 2 R O O T N A M 0014360 E I 1 S O U R C E F I L E 0014400 I 0 C O M P I L E D . F I 0014420 L E F 0 R E S E T S T A T 0014440 E ) \0 1 \0 001 \0 003 @ 265 037 A 265 026 P 0014460 263 ' g \0 \0 B ` \0 \0 \n \0 \0 \n \0 \0 g 0014500 \0 \0 020 \t \0 \0 277 260 350 \t \0 \0 277 P 262 336 0014520 @ \t \0 \0 277 260 327 h 020 \0 ( 5 2 Q D 0014540 E L F I L E 4 2 Q C L O S E 0014560 F ? 3 4 Q C L O S E F ? 2 0014600 5 Q / S E T A T O M V A L 2 0014620 2 Q R E M O V E ) \r ( 3 0 Q 0014640 R e m o v e s 1 7 Q N O T C 0014660 O M P I L E D F I L E S 1 3 Q 0014700 N O T C O M P I L E D F I L E 0014720 S ) \r ( ) \r N E W D E F C D 1 0014740 \r ( I 1 D F I 0 N M 0014760 F 0 D F N F L G F 1 C 0015000 O M P I L E . F I L E . A F T E 0015020 R F 2 S V F L G ) \0 202 \0 0015040 003 \0 002 R d g \0 \0 360 262 6 277 g \0 \0 @ 0015060 d 236 d i 360 252 3 020 265 \t g \0 \0 @ h 032 0015100 032 A d 236 d i 360 252 3 020 265 \t g \0 \0 A 0015120 h 032 032 i h 032 032 032 032 Q 032 c 002 260 E g 0015140 \0 \0 360 227 @ A i \v \0 \0 260 8 P 224 P i 0015160 360 262 ) @ \t \0 \0 262 034 @ i \n \0 \0 277 P 0015200 263 023 @ o \0 \0 \0 032 i d \v \0 \0 277 @ \t 0015220 \0 \0 277 @ A i \v \0 \0 207 @ g \0 \0 A \v 0015240 \0 \0 A 020 \0 ( 1 7 6 Q / P U T P 0015260 R O P 1 6 5 Q / P U T D 1 0015300 5 6 Q S A V E D E F 1 5 1 Q 0015320 P R I N T 1 3 2 Q V I R G 0015340 I N F N 1 2 3 Q \ D E F I N 0015360 E D P 1 0 6 Q S E L E C T O 0015400 R . P U T D ) \r ( 1 7 2 Q C O 0015420 D E 7 6 Q S E L E C T O R 0015440 5 3 Q Q U O T E 3 1 Q Q U 0015460 O T E 1 3 Q N E W D E F C 0015500 4 D E F E R ) \r ( 1 4 3 Q 0015520 ( r e d e f i n e d ) ) \r ( P R 0015540 E T T Y C O M P R I N T C M L 0015560 C O M P I L E C O M S ) \r ( R P 0015600 A Q Q C M L C O M P I L E C O 0015620 M S ( ( F N S C O M P I L E 0015640 - F I L E C O M P I L E - F I 0015660 L E - E X P R E S S I O N C O 0015700 M P I L E . F I L E . E X P R E 0015720 S S I O N \r C O M P I L E . F 0015740 I L E . P U T D E F A R G T Y 0015760 P E . S T A T E C O M P I L E 0016000 . C H E C K . A R G T Y P E C 0016020 O M P I L E . F I L E . D E F I 0016040 N E Q C O M P I L E . F I L E 0016060 . D E F U N \r C O M P I L E . 0016100 F I L E . E X P R E S S I O N 0016120 C O M P I L E . F I L E . A P P 0016140 L Y C O M P I L E . F I L E . 0016160 R E S E T ) ( V A R S A R G 0016200 T Y P E . V A R S ) ( P R O P 0016220 \r C O M P I L E . F I L E . E 0016240 X P R E S S I O N D E F I N E 0016260 Q * F N S . P U T D E F ) 0016300 ( A D D V A R S ( S Y S P R O 0016320 P S C O M P I L E . F I L E . 0016340 E X P R E S S I O N ) ) ( F N 0016360 S \r N E W D E F C ) ( P ( 0016400 M O V D ( Q U O T E N E W D 0016420 E F C ) ( Q U O T E D E F C 0016440 ) ) ) ( D E C L A R E : D O 0016460 N T E V A L @ L O A D D O E V 0016500 A L @ C O M P I L E D O N T C 0016520 O P Y \r C O M P I L E R V A R 0016540 S ( A D D V A R S ( N L A M 0016560 A ) ( N L A M L ) ( L A M A 0016600 C O M P I L E - F I L E ) ) ) 0016620 ) ) \r ( R P A Q Q A R G T Y P 0016640 E . V A R S ( ( 1 N L A M L 0016660 " N L A M B D A s p r e a d 0016700 " ) ( 2 L A M A " L A M B 0016720 D A n o s p r e a d " ) ( 0 0016740 L A M S " L A M B D A s p 0016760 r e a d " ) ( 3 \r N L A M A 0017000 " N L A M B D A n o - s p r 0017020 e a d " ) ) ) \r ( P U T P R O P 0017040 S D E F I N E Q C O M P I L 0017060 E . F I L E . E X P R E S S I O 0017100 N C O M P I L E . F I L E . D 0017120 E F I N E Q ) \r ( P U T P R O P 0017140 S * C O M P I L E . F I L E 0017160 . E X P R E S S I O N N I L L 0017200 ) \r ( P U T P R O P S F N S . 0017220 P U T D E F C O M P I L E . F 0017240 I L E . E X P R E S S I O N C 0017260 O M P I L E . F I L E . P U T D 0017300 E F ) \r ( A D D T O V A R S Y 0017320 S P R O P S C O M P I L E . F 0017340 I L E . E X P R E S S I O N ) \r 0017360 ( M O V D ( Q U O T E N E W 0017400 D E F C ) ( Q U O T E D E F 0017420 C ) ) \r ( P U T P R O P S C M 0017440 L C O M P I L E C O P Y R I G 0017460 H T ( " X e r o x C o r p o 0017500 r a t i o n " 1 9 8 5 ) ) \r N 0017520 I L \r 0017523