$ od -c -N 50000 [phylum]<LISP>KOTO>Library>LAMBDATRAN.DCOM!2
0000000 ( F I L E C R E A T E D " 9
0000020 - S e p - 8 7 1 4 : 0 8 : 0 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P > K O
0000100 T O > L I B R A R Y > L A M B D
0000120 A T R A N . ; 1 ) \r " 1 2 - N
0000140 o v - 8 5 1 4 : 5 9 : 2 3 "
0000160 t c o m p l ' d i n " I N T
0000200 E R L I S P - D 2 - S e p -
0000220 8 7 . . . " d a t e d "
0000240 2 - S e p - 8 7 1 2 : 2 5 : 2
0000260 8 " ) \r ( F I L E C R E A T E D
0000300 " 8 - D e c - 8 4 1 2 : 0
0000320 1 : 3 2 " { E R I S } < L I S
0000340 P C O R E > L I B R A R Y > L A
0000360 M B D A T R A N . ; 2 7 1 4 3
0000400 c h a n g e s t o : ( V A
0000420 R S \r L A M B D A T R A N C O
0000440 M S ) p r e v i o u s d a t
0000460 e : " 1 8 - N O V - 7 9 2 2
0000500 : 4 5 : 2 2 " { E R I S } < L
0000520 I S P C O R E > L I B R A R Y >
0000540 L A M B D A T R A N . ; 1 ) \r (
0000560 V I R G I N F N ( Q U O T E
0000600 A R G L I S T ) T ) \r ( M O V
0000620 D ? ( Q U O T E A R G L I S
0000640 T ) ( Q U O T E O L D A R G
0000660 L I S T ) ) \r ( V I R G I N F N
0000700 ( Q U O T E N A R G S ) T
0000720 ) \r ( M O V D ? ( Q U O T E
0000740 N A R G S ) ( Q U O T E O L
0000760 D N A R G S ) ) \r ( V I R G I N
0001000 F N ( Q U O T E A R G T Y P
0001020 E ) T ) \r ( M O V D ? ( Q U
0001040 O T E A R G T Y P E ) ( Q U
0001060 O T E O L D A R G T Y P E ) )
0001100 \r ( M O V D ? ( Q U O T E N
0001120 I L L ) ( Q U O T E L T D W
0001140 I M U S E R F N ) ) \r A R G L I
0001160 S T D 1 \r ( L ( 0 F N ) )
0001200 \0 Z 002 \0 \0 001 @ \t \0 \0 021 021 001 H \t
0001220 \0 \0 263 H 003 262 034 H 001 d g \0 \0 360 253
0001240 d g \0 \0 360 245 d g \0 \0 360 222 277 i 201 277
0001260 h 224 @ \t \0 \0 020 ` \0 \0 226 H ` \0 \0 035
0001300 265 033 H 001 ` \0 \0 026 002 002 002 001 Y 262 345 H
0001320 k I 017 016 Y i 360 263 333 I 020 b \0 023 260 251
0001340 \0 ( 5 6 Q O L D A R G L I S T
0001360 1 2 Q S U B R P 3 C G E
0001400 T D ) \r ( 7 7 Q L A M B D A T
0001420 R A N F N S 6 7 Q C L I S P
0001440 A R R A Y 6 2 Q C L I S P A
0001460 R R A Y 4 2 Q F U N A R G
0001500 3 4 Q N L A M B D A 2 6 Q
0001520 L A M B D A ) \r ( ) \r A R G T Y
0001540 P E D 1 \r ( L ( 0 F N ) )
0001560 \0 - \0 \0 \0 001 @ \t \0 \0 265 ' @ \t \0
0001600 \0 d g \0 \0 360 221 j 020 d g \0 \0 360 221 k
0001620 020 d g \0 \0 360 222 l 002 020 g \0 \0 360 264 004
0001640 l 003 020 \0 ( 1 1 Q F N T Y P 3
0001660 O L D A R G T Y P E ) \r ( 4 5
0001700 Q F E X P R * 3 5 Q E X P
0001720 R * 2 5 Q F E X P R 1 5 Q
0001740 E X P R ) \r ( ) \r F N T Y P 1
0001760 D 1 \r ( L ( 0 X ) ) \0 E
0002000 001 \0 \0 001 021 020 \0 ` \0 \0 226 @ ` \0 \0 035
0002020 265 ) @ 001 ` \0 \0 026 002 d 262 036 002 001 X d
0002040 g \0 \0 360 263 024 d g \0 \0 360 253 d g \0 \0
0002060 360 245 d g \0 \0 360 224 020 \t \0 \0 020 243 g \0
0002100 \0 020 @ k H 017 016 020 \0 ( 6 7 Q F N
0002120 T Y P ) \r ( 7 4 Q E X P R 6
0002140 1 Q F E X P R * 5 3 Q F E
0002160 X P R 4 5 Q E X P R * 3 6
0002200 Q E X P R 2 2 Q L A M B D
0002220 A T R A N F N S 1 2 Q C L I
0002240 S P A R R A Y 5 C L I S P A
0002260 R R A Y ) \r ( ) \r L T D W I M U
0002300 S E R F N D 1 \r ( P 1 F A
0002320 U L T F N P 0 E X P R F
0002340 1 0 Q F A U L T X F 1 1
0002360 Q F A U L T A P P L Y F L G
0002400 F 1 2 Q E X P R F 1 3 Q
0002420 F A U L T F N F 1 4 Q F
0002440 A U L T A R G S F 1 5 Q C
0002460 L I S P C H A N G E ) \0 346 \b 006
0002500 \0 \0 W 024 W 026 021 2 004 W 020 003 265 027 W 022
0002520 264 2 W 020 004 l 004 360 264 * W 020 Y \t \0 \0
0002540 X 260 ! d 001 ` \0 \0 034 224 277 W 020 260 025 001
0002560 004 l 004 360 230 W 020 001 Y \t \0 \0 X 203 W 020
0002600 001 003 Z d 001 ` \0 \0 026 002 001 \ 264 003 202 261
0002620 \0 225 i c 032 J k L 017 016 [ 003 264 003 202 261
0002640 \0 205 J I \t \0 \0 360 251 J d I g \0 \0 033
0002660 360 236 277 K 002 003 002 021 ! \a M ^ 003 265 026 023
0002700 J K \n \0 \0 W 022 262 8 g \0 \0 K W 030 \v
0002720 \0 \0 020 001 003 001 _ 016 g \0 \0 360 250 O 016 d
0002740 g \0 \0 360 222 277 i 203 ` \0 \0 360 255 g \0 \0
0002760 I h 032 032 N \n \0 \0 277 260 306 N 002 260 276 K
0003000 001 d g \0 \0 360 246 d g \0 \0 360 262 031 277 J
0003020 W 020 001 360 234 W 020 002 W 020 h d d I \r 006
0003040 \0 \0 W 020 020 K 020 \0 ( 3 3 7 Q D W
0003060 I M I F Y 0 ? 2 6 5 Q A T T
0003100 A C H 2 1 7 Q R E T A P P L
0003120 Y 2 0 2 Q C L I S P T R A N
0003140 1 4 4 Q G E T D 7 1 Q G
0003160 E T D 3 5 Q G E T D ) \r ( 3
0003200 1 0 Q N L A M B D A 3 0 2 Q
0003220 L A M B D A 2 5 5 Q L T S
0003240 T K N A M E 2 5 0 Q C O M M
0003260 E N T F L G 2 4 0 Q C L I S
0003300 P : 2 3 0 Q D E C L A R E
0003320 2 1 1 Q F A U L T A P P L Y
0003340 1 5 4 Q E X P R 1 0 5 Q L
0003360 A M B D A T R A N F N S 4 5 Q
0003400 L A M B D A S P L S T ) \r ( )
0003420 \r L T S T K N A M E D 1 \r ( L
0003440 ( 0 N A M E ) ) \0 033 001 \0 001
0003460 001 021 020 \0 m 377 g \0 \0 i ` \0 \0 \f \0 \0
0003500 X @ \n \0 \0 H \t \0 \0 h 020 \0 ( 2 7 Q
0003520 R E L S T K 2 3 Q S E T S
0003540 T K N A M E 1 6 Q R E A L S
0003560 T K N T H ) \r ( 1 3 Q B O U N
0003600 D P D U M M Y 7 L T S T K N
0003620 A M E ) \r ( ) \r N A R G S A 0 0
0003640 0 1 D 1 \r ( N A M E E R R O
0003660 R S E T F 0 X ) \0 \n \0 001
0003700 002 \0 P \t \0 \0 c \0 h 032 020 \0 ( 3 A
0003720 R G L I S T ) \r N I L \r ( ) \r N
0003740 A R G S D 1 \r ( I 0 X )
0003760 \0 036 \0 \0 \0 001 @ \t \0 \0 265 017 o \0 \0 \0
0004000 \t \0 \0 264 006 @ 265 004 j 020 003 224 @ \t \0 \0
0004020 020 k 020 \0 ( 3 1 Q L E N G T H
0004040 1 4 Q N A R G S A 0 0 0 1 3
0004060 O L D N A R G S ) \r N I L \r (
0004100 1 1 Q ( N A R G S A 0 0 0 1
0004120 ) ) \r ( P R E T T Y C O M P R I
0004140 N T L A M B D A T R A N C O M
0004160 S ) \r ( R P A Q Q L A M B D A
0004200 T R A N C O M S ( ( * T r a
0004220 n s l a t i o n m a c h i n e
0004240 r y f o r n e w L A M B D
0004260 A w o r d s ) ( L O C A L V
0004300 A R S . T ) ( D E C L A R
0004320 E : F I R S T \r ( P ( V I
0004340 R G I N F N ( Q U O T E A R
0004360 G L I S T ) T ) ( M O V D ?
0004400 ( Q U O T E A R G L I S T )
0004420 ( Q U O T E O L D A R G L I
0004440 S T ) ) ( V I R G I N F N (
0004460 Q U O T E N A R G S ) T )
0004500 \r ( M O V D ? ( Q U O T E N
0004520 A R G S ) ( Q U O T E O L D
0004540 N A R G S ) ) ( V I R G I N F
0004560 N ( Q U O T E A R G T Y P E
0004600 ) T ) ( M O V D ? ( Q U O
0004620 T E A R G T Y P E ) ( Q U O
0004640 T E \r O L D A R G T Y P E ) )
0004660 ( M O V D ? ( Q U O T E N
0004700 I L L ) ( Q U O T E L T D W
0004720 I M U S E R F N ) ) ) ) ( F N
0004740 S A R G L I S T A R G T Y P
0004760 E F N T Y P 1 L T D W I M U
0005000 S E R F N \r L T S T K N A M E
0005020 N A R G S ) ( A D D V A R S
0005040 ( D W I M U S E R F O R M S
0005060 ( L T D W I M U S E R F N ) ) )
0005100 ( P R O P V A R T Y P E L
0005120 A M B D A T R A N F N S ) ( A
0005140 L I S T S ( \r L A M B D A T R
0005160 A N F N S ) ) ( P R O P M A
0005200 C R O L T S T K N A M E ) (
0005220 P ( P U T H A S H ( Q U O T
0005240 E L T S T K N A M E ) ( Q U
0005260 O T E ( N I L ) ) M S T E M
0005300 P L A T E S ) ) ( P ( \r R E
0005320 L I N K ( Q U O T E W O R L
0005340 D ) ) ) ( D E C L A R E : E
0005360 V A L @ C O M P I L E D O N T
0005400 C O P Y ( P ( R E S E T S A
0005420 V E D W I M I F Y C O M P F L
0005440 G T ) ) ( G L O B A L V A R
0005460 S \r C L I S P A R R A Y C O
0005500 M M E N T F L G L A M B D A S
0005520 P L S T L A M B D A T R A N F
0005540 N S B O U N D P D U M M Y ) )
0005560 ( D E C L A R E : D O N T C
0005600 O P Y ( R E C O R D S L A M
0005620 B D A W O R D ) ) \r ( D E C L
0005640 A R E : D O N T E V A L @ L O
0005660 A D D O E V A L @ C O M P I L
0005700 E D O N T C O P Y C O M P I
0005720 L E R V A R S ( A D D V A R S
0005740 ( N L A M A ) ( N L A M L
0005760 L T S T K N A M E ) ( L A M A
0006000 \r ) ) ) ) ) \r ( A D D T O V A R
0006020 D W I M U S E R F O R M S (
0006040 L T D W I M U S E R F N ) ) \r (
0006060 P U T P R O P S L A M B D A T
0006100 R A N F N S V A R T Y P E A
0006120 L I S T ) \r ( A D D T O V A R
0006140 L A M B D A T R A N F N S ) \r (
0006160 P U T P R O P S L T S T K N A
0006200 M E M A C R O ( X ( C O N
0006220 S C O M M E N T F L G X ) )
0006240 ) \r ( P U T H A S H ( Q U O T
0006260 E L T S T K N A M E ) ( Q U
0006300 O T E ( N I L ) ) M S T E M
0006320 P L A T E S ) \r ( R E L I N K
0006340 ( Q U O T E W O R L D ) ) \r (
0006360 P U T P R O P S L A M B D A T
0006400 R A N C O P Y R I G H T ( "
0006420 X e r o x C o r p o r a t i o
0006440 n " 1 9 8 4 ) ) \r N I L \r
0006456