$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>BMENCODE.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 R E A D T A B L E " I N
0000040 T E R L I S P " 036 P A C K A G
0000060 E " I N T E R L I S P " ) \r (
0000100 F I L E C R E A T E D " 2 9 -
0000120 S e p - 8 7 0 7 : 4 4 : 5 6 "
0000140 ( " c o m p i l e d o n "
0000160 | { M C S : M C S : S T A N F
0000200 O R D } < L A N E > B M E N C O
0000220 D E . ; 1 5 | ) \r " 2 7 - A p
0000240 r - 8 7 1 6 : 4 8 : 4 9 " t
0000260 c o m p l ' d i n " X e r o
0000300 x L i s p 1 0 - A u g - 8 7
0000320 . . . " d a t e d " 1 0 -
0000340 A u g - 8 7 1 0 : 2 1 : 4 0 "
0000360 ) \r ( F I L E C R E A T E D "
0000400 2 9 - S e p - 8 7 0 7 : 4 4 :
0000420 3 1 " | { M C S : M C S : S T
0000440 A N F O R D } < L A N E > B M E
0000460 N C O D E . ; 1 5 | 4 0 8 2
0000500 c h a n g e s t o % : ( F N
0000520 S \r B I T M A P . E N C O D E
0000540 F I L E . T O . B I T M A P
0000560 B I T M A P . T O . F I L E )
0000600 p r e v i o u s d a t e % :
0000620 " 2 2 - J a n - 8 7 0 8 : 0 5
0000640 : 0 9 " \r | { M C S : M C S :
0000660 S T A N F O R D } < L A N E > B
0000700 M E N C O D E . ; 1 4 | ) \r B I
0000720 T M A P . E N C O D E A 0 0 0 1
0000740 : D 4 \r ( N A M E S I : : *
0000760 U N W I N D - P R O T E C T *
0001000 I 0 S I : : * C L E A N U P
0001020 - F O R M S * F 0 F I L E
0001040 N A M E ) \0 020 \0 001 \0 001 g \0 \0 h
0001060 \n \0 \0 P ` \0 \0 \n \0 \0 020 \0 ( 1 3
0001100 M A K E F I L E 6 S E T T O
0001120 P V A L ) \r ( 1 0 B M C . M A
0001140 K E F I L E . O P T I O N S 2
0001160 F O N T C H A N G E F L G ) \r
0001200 ( ) \r B I T M A P . E N C O D E
0001220 : D 4 \r ( P 8 S I : : * R
0001240 E S E T F O R M S * P 7 F
0001260 I L E N A M E P 6 F I L E
0001300 N A M E S P 5 N A M E P
0001320 4 F I L E I 0 F I L E
0001340 S ) \0 232 \t \0 \0 001 @ 021 Q 005 H 265 d
0001360 I 022 021 021 \a g \0 \0 ` \0 \0 g \0 \0 N 001
0001400 \f \0 \0 _ 016 \t \0 \0 \t \0 \0 g \0 \0 N 032
0001420 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 N
0001440 h 032 032 o \0 \0 \0 032 032 032 032 h 032 032 h 032
0001460 032 \n \0 \0 g \0 \0 d \t \0 \0 032 h 032 021 001
0001500 \b g \0 \0 \t \0 \0 \t \0 \0 \b \0 \0 277 \t \0
0001520 \0 020 003 243 H 274 h 204 H 001 274 H 002 270 L i
0001540 \n \0 \0 ] d L \t \0 \0 \n \0 \0 277 273 J 265
0001560 \n K h 032 Z 271 261 377 w K h 032 Z 031 277 261
0001600 377 n \0 ( 1 3 0 S E T T O P V A
0001620 L 1 2 7 F I L E . T O . B I
0001640 T M A P 1 2 1 N A M E F I E
0001660 L D 1 0 3 C L : V A L U E S
0001700 - L I S T 9 9 S I : : R E S
0001720 E T U N W I N D 9 6 \ M V L
0001740 I S T 9 3 B I T M A P . E N
0001760 C O D E A 0 0 0 1 8 1 G E T
0002000 T O P V A L 7 4 S E T T O P
0002020 V A L 3 3 F I L E C O M S
0002040 3 0 N A M E F I E L D 2 5
0002060 P A C K F I L E N A M E ) \r ( 9
0002100 0 S I : : R E S E T U N W I N
0002120 D 7 7 F O N T C H A N G E F
0002140 L G 5 3 Q U O T E 5 0 i
0002160 n 4 7 F I L E 4 4 f o r
0002200 4 1 P 3 6 B I T M A P S
0002220 2 0 B O D Y 1 7 B M C .
0002240 E X T E N S I O N 1 4 E X T
0002260 E N S I O N ) \r ( 6 1 ( d o
0002300 ( P R I N 1 " R e s t o r i
0002320 n g f i l e " ) ( P R I N
0002340 1 ( B I T M A P . T O . F I L
0002360 E ( E V A L V F I L E ) F
0002400 I L E ) ) ( T E R P R I ) ) )
0002420 \r F I L E . T O . B I T M A P A
0002440 0 0 0 1 : D 4 \r ( N A M E S
0002460 I : : * U N W I N D - P R O T E
0002500 C T * P 2 B I T M A P P
0002520 1 B Y T E S P E R L I N E
0002540 P 0 L E N G T H I 0 S
0002560 I : : * C L E A N U P - F O R M
0002600 S * F 7 S T R E A M F
0002620 8 S I : : * R E S E T F O R M
0002640 S * F 9 F I L E ) \0 u \a
0002660 003 \0 001 g \0 \0 W 022 g \0 \0 \n \0 \0 c 016
0002700 h 032 032 h d 032 032 W 020 032 c 020 W 016 g \0
0002720 \0 \n \0 \0 ` \0 \0 l 002 327 021 R 006 I l \b
0002740 326 I H l 004 324 324 I 327 \n \0 \0 Z ^ 006 \0
0002760 \0 311 \0 H n 377 377 345 315 \0 277 N 006 \0 \0 311
0003000 \0 H 343 343 315 001 277 W 016 N 006 \0 \0 311 \0 275
0003020 \ 006 \0 \0 311 \n 006 \0 \0 311 < 273 L M l 004
0003040 H l 004 K 016 J 020 \0 ( 5 6 B I T M
0003060 A P C R E A T E 3 2 G E T F
0003100 I L E I N F O 1 0 O P E N S
0003120 T R E A M ) \r ( 1 0 1 F D E V
0003140 9 6 S T R E A M 8 9 B I
0003160 T M A P 7 5 B I T M A P 6
0003200 1 B I T M A P 3 5 B M C .
0003220 B Y T E S P E R L I N E 2 9
0003240 L E N G T H 7 I N P U T 2
0003260 C L O S E F ? ) \r ( ) \r F I L
0003300 E . T O . B I T M A P : D 4 \r
0003320 ( P 2 S I : : * R E S E T F
0003340 O R M S * P 1 L I S P X H
0003360 I S T P 0 S T R E A M I
0003400 0 F I L E F 3 L I S P
0003420 X H I S T ) \0 031 003 001 \0 001 021 020 \0
0003440 S 021 021 002 g \0 \0 \t \0 \0 \t \0 \0 \b \0 \0
0003460 277 \t \0 \0 020 \0 ( 2 2 C L : V A L
0003500 U E S - L I S T 1 8 S I : :
0003520 R E S E T U N W I N D 1 5 \
0003540 M V L I S T 1 2 F I L E . T
0003560 O . B I T M A P A 0 0 0 1 ) \r (
0003600 9 S I : : R E S E T U N W I N
0003620 D ) \r ( ) \r B I T M A P . T O .
0003640 F I L E A 0 0 0 1 : D 4 \r ( N
0003660 A M E S I : : * U N W I N D -
0003700 P R O T E C T * I 0 S I :
0003720 : * C L E A N U P - F O R M S *
0003740 F 5 S T R E A M F 6
0003760 S I : : * R E S E T F O R M S *
0004000 F 7 F I L E F 8 B I
0004020 T M A P ) \0 Z 005 004 \0 001 g \0 \0 W
0004040 016 g \0 \0 \n \0 \0 c \n h 032 032 h d 032 032
0004060 V 032 c \f W 020 006 \0 \0 021 021 001 U H 006 \0
0004100 \0 311 \0 H 006 \0 \0 311 \0 310 \0 H 006 \0 \0 311
0004120 \0 310 001 341 341 324 021 003 004 J 006 \0 \0 311 \n 006
0004140 \0 \0 311 > 271 J K l 004 L l 004 I 016 023 023
0004160 U \t \0 \0 020 \0 ( 8 7 F U L L N A
0004200 M E 1 0 O P E N S T R E A M
0004220 ) \r ( 6 9 F D E V 6 4 S T
0004240 R E A M 5 0 B I T M A P 4
0004260 2 B I T M A P 3 6 B I T M
0004300 A P 2 8 B I T M A P 7 O
0004320 U T P U T 2 C L O S E F ? )
0004340 \r ( ) \r B I T M A P . T O . F I
0004360 L E : D 4 \r ( P 2 S I : :
0004400 * R E S E T F O R M S * P 1
0004420 L I S P X H I S T P 0 S
0004440 T R E A M I 1 F I L E I
0004460 0 B I T M A P F 3 L I
0004500 S P X H I S T ) \0 031 003 001 \0 002 021
0004520 020 \0 S 021 021 002 g \0 \0 \t \0 \0 \t \0 \0 \b
0004540 \0 \0 277 \t \0 \0 020 \0 ( 2 2 C L : V
0004560 A L U E S - L I S T 1 8 S I
0004600 : : R E S E T U N W I N D 1 5
0004620 \ M V L I S T 1 2 B I T M
0004640 A P . T O . F I L E A 0 0 0 1 )
0004660 \r ( 9 S I : : R E S E T U N W
0004700 I N D ) \r ( ) \r ( P R E T T Y C
0004720 O M P R I N T B M E N C O D E
0004740 C O M S ) \r ( R P A Q Q B M E
0004760 N C O D E C O M S ( ( * U s
0005000 e r f u n c t i o n ) ( F N
0005020 S B I T M A P . E N C O D E )
0005040 ( * I n t e r n a l f u n
0005060 c t i o n s ) ( F N S F I L
0005100 E . T O . B I T M A P \r B I T
0005120 M A P . T O . F I L E ) ( A D
0005140 D V A R S ( B M C . M A K E F
0005160 I L E . O P T I O N S N E W )
0005200 ) ( I N I T V A R S ( B M C
0005220 . E X T E N S I O N ( Q U O T
0005240 E B M C ) ) ( \r B M C . B Y
0005260 T E S P E R L I N E 6 4 ) )
0005300 ( G L O B A L V A R S B M C .
0005320 M A K E F I L E . O P T I O N S
0005340 B M C . E X T E N S I O N B
0005360 M C . B Y T E S P E R L I N E )
0005400 ) ) \r ( A D D T O V A R B M C
0005420 . M A K E F I L E . O P T I O N
0005440 S N E W ) \r ( R P A Q ? B M
0005460 C . E X T E N S I O N ( Q U O
0005500 T E B M C ) ) \r ( R P A Q ?
0005520 B M C . B Y T E S P E R L I N E
0005540 6 4 ) \r ( P U T P R O P S B
0005560 M E N C O D E C O P Y R I G H
0005600 T ( " S t a n f o r d U n i
0005620 v e r s i t y " 1 9 8 6 1 9
0005640 8 7 ) ) \r N I L \r
0005651