$ od -c -N 50000 [eris]<LispCore>PROLOG>SNAP6>PRIM.DCOM!2
0000000 ( F I L E C R E A T E D " 1 9
0000020 - N o v - 8 5 1 4 : 0 5 : 4 6
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 > P R O L O G > S N A P 6 > P
0000120 R I M . L S P ; 3 ) \r " 1 7 -
0000140 O c t - 8 5 1 8 : 5 8 : 4 4 "
0000160 t c o m p l ' d i n " I N
0000200 T E R L I S P - D 1 7 - O c t
0000220 - 8 5 . . . " d a t e d "
0000240 1 7 - O c t - 8 5 1 9 : 1 9 :
0000260 5 8 " ) \r ( F I L E C R E A T E
0000300 D " 1 9 - N o v - 8 5 1 4 :
0000320 0 5 : 0 3 " { E R I S } < L I
0000340 S P C O R E > P R O L O G > S N
0000360 A P 6 > P R I M . L S P ; 3 4
0000400 3 8 6 c h a n g e s t o :
0000420 ( V A R S \r P R I M C O M S )
0000440 p r e v i o u s d a t e :
0000460 " 1 2 - N o v - 8 5 1 2 : 2 4
0000500 : 3 8 " { D S K } < L I S P F
0000520 I L E S 2 > P R I M . L S P ; 8
0000540 ) \r Q P . A T O M . N U M B E R
0000560 D 1 \r ( L ( 0 A T O M ) )
0000600 \0 004 \0 \0 \0 001 @ 323 020 \0 N I L \r N
0000620 I L \r ( ) \r Q P . C H A R S . F
0000640 R O M . B Y T E . B U F F E R
0000660 D 1 \r ( P 1 I ) \0 ( 005 \0 \0
0000700 \0 ` \0 \0 k 021 2 004 I H 363 263 033 ` \0 \0
0000720 I ) 274 K 265 \r L h 032 [ 272 I k 324 Y 260
0000740 352 L & 273 260 367 J 020 \0 N I L \r ( 1 6
0000760 Q B Y T E . B U F F E R 2
0001000 B Y T E . B U F F E R . L E N G
0001020 T H ) \r ( ) \r Q P . C L A U S E
0001040 . A L L O C D 1 \r ( P 1 B
0001060 L O C K P 0 A R R A Y I
0001100 0 L E N G T H ) \0 025 002 \0 \0
0001120 001 @ g \0 \0 \n \0 \0 021 021 001 H 311 \0 271 H
0001140 \t \0 \0 I 020 \0 ( 2 1 Q Q P . L O
0001160 A D . G C . P R O T E C T 6
0001200 A R R A Y ) \r ( 3 W O R D ) \r
0001220 ( ) \r Q P . C L E A R . B Y T E
0001240 . B U F F E R D 1 \r N I L \0
0001260 006 \0 \0 \0 \0 j 027 \0 \0 020 \0 N I L \r (
0001300 3 B Y T E . B U F F E R . L E
0001320 N G T H ) \r ( ) \r Q P . F L O A
0001340 T . F R O M . B Y T E . B U F F
0001360 E R D 1 \r ( P 1 O B J P
0001400 0 S T R ) \0 $ 002 \0 \0 \0 ` \0
0001420 \0 k ` \0 \0 \v \0 \0 g \0 \0 \n \0 \0 021 001
0001440 \0 H \t \0 \0 021 001 001 I 005 003 265 005 \b \0 \0
0001460 020 \0 ( 4 1 Q P A C K 2 6 Q
0001500 R E A D 1 7 Q O P E N S T R
0001520 I N G S T R E A M 1 1 Q S U
0001540 B S T R I N G ) \r ( 1 4 Q I N
0001560 P U T 6 B Y T E . B U F F E
0001600 R . L E N G T H 2 B Y T E .
0001620 B U F F E R ) \r ( ) \r Q P . F L
0001640 O A T . T O . B Y T E . B U F F
0001660 E R D 1 \r ( I 0 F L O A T
0001700 ) \0 027 \0 \0 \0 001 @ 005 003 265 \a j 027 \0
0001720 \0 020 ` \0 \0 \n \0 \0 k 331 027 \0 \0 020 \0 (
0001740 1 7 Q Q P . F L O A T . T O .
0001760 S T R I N G ) \r ( 2 4 Q B Y T
0002000 E . B U F F E R . L E N G T H
0002020 1 4 Q B Y T E . B U F F E R
0002040 1 0 Q B Y T E . B U F F E R .
0002060 L E N G T H ) \r ( ) \r Q P . F L
0002100 O A T . T O . S T R I N G D 1
0002120 \r ( P 2 S C R A T C H 2 P
0002140 1 O L D F O R M A T P 0
0002160 S T R I 1 S T R I N G .
0002200 O U T I 0 F L O A T F
0002220 3 Q P . S C R A T C H . S T R
0002240 I N G F 4 P O S I T ) \0
0002260 N 003 002 \0 002 S g \0 \0 \n \0 \0 \b \0 \0 021
0002300 022 002 i \t \0 \0 @ H \n \0 \0 H \t \0 \0 I
0002320 \t \0 \0 S k g \0 \0 S k \v \0 \0 c \b \v
0002340 \0 \0 Z S k ) l . 364 237 A k l 0 + A
0002360 l 002 J \v \0 \0 T k 330 020 A k J \v \0 \0
0002400 T 020 \0 ( 1 1 2 Q R P L S T R I
0002420 N G 1 0 0 Q R P L S T R I N
0002440 G 5 4 Q S U B S T R I N G
0002460 4 7 Q S T R P O S 3 5 Q F
0002500 L T F M T 3 1 Q C L O S E F
0002520 2 5 Q P R I N T 2 0 Q F
0002540 L T F M T 1 1 Q F L T F M T
0002560 6 O P E N S T R I N G S T R
0002600 E A M ) \r ( 4 2 Q % \r 3 O
0002620 U T P U T ) \r ( ) \r Q P . H A L
0002640 T D 1 \r ( I 0 X ) \0 \t \0
0002660 \0 \0 001 g \0 \0 @ \n \0 \0 020 \0 ( 6 R
0002700 E T F R O M ) \r ( 2 P R O L O
0002720 G ) \r ( ) \r Q P . I N S T R . F
0002740 I E L D S D 1 \r ( L ( 0 I
0002760 N S T R U C T I O N ) ) \0 \f \0
0003000 \0 \0 001 @ ` \0 \0 035 ` \0 \0 035 002 020 \0 N
0003020 I L \r ( 7 Q P . I N S T R U C
0003040 T I O N . H A R R A Y 3 Q P
0003060 . I N S T R U C T I O N . H A R
0003100 R A Y ) \r ( ) \r Q P . I N T E R
0003120 N . S Y M B O L D 1 \r N I L
0003140 \0 017 \0 \0 \0 \0 ` \0 \0 k ` \0 \0 \v \0 \0
0003160 \t \0 \0 020 \0 ( 1 4 Q M K A T O M
0003200 1 1 Q S U B S T R I N G ) \r
0003220 ( 6 B Y T E . B U F F E R . L
0003240 E N G T H 2 B Y T E . B U F
0003260 F E R ) \r ( ) \r Q P . L E F T .
0003300 O P . C O D E D 1 \r ( I 0
0003320 I N S T R U C T I O N ) \0 021 \0
0003340 \0 \0 001 @ \t \0 \0 b \0 n 001 \0 @ 363 240 020
0003360 @ 341 020 \0 ( 3 Q P . O P . C O D
0003400 E ) \r N I L \r ( ) \r Q P . L O A
0003420 D . G C . P R O T E C T D 1 \r
0003440 ( L ( 0 C E L L ) ) \0 005 \0
0003460 \0 \0 001 @ 025 \0 020 \0 N I L \r N I L \r
0003500 ( ) \r Q P . P . T O K E N . T Y
0003520 P E D 1 \r ( I 0 A T O M )
0003540 \0 A 001 \0 \0 001 @ \t \0 \0 j 360 221 k 020
0003560 @ d \t \0 \0 ) 021 001 \0 ` \0 \0 H k 330 (
0003600 d g \0 \0 360 263 351 d g \0 \0 360 263 342 d g
0003620 \0 \0 360 263 333 d g \0 \0 360 263 324 g \0 \0 360
0003640 222 l 002 020 l 003 020 \0 ( 1 5 Q N C H
0003660 A R S 3 N C H A R S ) \r ( 6
0003700 7 Q a g g l u t i n a t i n g
0003720 6 1 Q u n d e r b a r 5 2
0003740 Q d i g i t 4 3 Q c a p i
0003760 t a l _ l e t t e r 3 4 Q s
0004000 m a l l _ l e t t e r 2 4 Q
0004020 Q P . C H A R T Y P E . A R R A
0004040 Y ) \r ( ) \r Q P . P U T . B Y T
0004060 E D 1 \r ( I 0 C H A R )
0004100 \0 023 \0 \0 \0 001 ` \0 \0 k 330 027 \0 \0 ` \0
0004120 \0 ` \0 \0 @ + i 020 \0 N I L \r ( 1 5
0004140 Q B Y T E . B U F F E R . L E
0004160 N G T H 1 2 Q B Y T E . B U
0004200 F F E R 7 B Y T E . B U F F
0004220 E R . L E N G T H 2 B Y T E
0004240 . B U F F E R . L E N G T H ) \r
0004260 ( ) \r Q P . R A W . F R E E . S
0004300 P A C E D 1 \r ( L ( 1 C E
0004320 L L 0 I G N O R E ) ) \0 005
0004340 \0 \0 \0 002 A 025 001 020 \0 N I L \r N I L
0004360 \r ( ) \r Q P . S Y M B O L . C H
0004400 A R D 1 \r ( I 1 S Y M B O
0004420 L I 0 I N D E X ) \0 005 \0
0004440 \0 \0 002 A @ ) 020 \0 N I L \r N I L \r
0004460 ( ) \r Q P . S Y M B O L . C O M
0004500 P A R E D 1 \r ( I 1 S Y M
0004520 B O L 2 I 0 S Y M B O L 1
0004540 ) \0 022 \0 \0 \0 002 @ A 364 221 j 020 @ A
0004560 \n \0 \0 222 m 377 020 k 020 \0 ( 1 2 Q A
0004600 L P H O R D E R ) \r N I L \r ( )
0004620 \r Q P . S Y M B O L . L E N G T
0004640 H D 1 \r ( I 0 S Y M B O L
0004660 ) \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3
0004700 N C H A R S ) \r N I L \r ( ) \r
0004720 Q P . S Y M B O L . T O . B Y T
0004740 E . B U F F E R D 1 \r ( I 0
0004760 S Y M B O L ) \0 031 \0 \0 \0 001 `
0005000 \0 \0 ` \0 \0 k 330 @ \v \0 \0 ` \0 \0 @ \t
0005020 \0 \0 330 027 \0 \0 020 \0 ( 2 2 Q N C H
0005040 A R S 1 3 Q R P L S T R I N
0005060 G ) \r ( 2 6 Q B Y T E . B U F
0005100 F E R . L E N G T H 1 6 Q B
0005120 Y T E . B U F F E R . L E N G T
0005140 H 5 B Y T E . B U F F E R .
0005160 L E N G T H 2 B Y T E . B U
0005200 F F E R ) \r ( ) \r ( P R E T T Y
0005220 C O M P R I N T P R I M C O M
0005240 S ) \r ( R P A Q Q P R I M C O
0005260 M S ( ( V A R S ( B Y T E .
0005300 B U F F E R . L E N G T H 0 )
0005320 ( B Y T E . B U F F E R ( A
0005340 L L O C S T R I N G 4 0 9 6 )
0005360 ) ) ( G L O B A L V A R S \r
0005400 B Y T E . B U F F E R B Y T E
0005420 . B U F F E R . L E N G T H )
0005440 ( F N S Q P . A T O M . N U M
0005460 B E R Q P . C H A R S . F R O
0005500 M . B Y T E . B U F F E R Q P
0005520 . C L A U S E . A L L O C \r Q
0005540 P . C L E A R . B Y T E . B U F
0005560 F E R Q P . F L O A T . F R O
0005600 M . B Y T E . B U F F E R Q P
0005620 . F L O A T . T O . B Y T E . B
0005640 U F F E R Q P . F L O A T . T
0005660 O . S T R I N G Q P . H A L T
0005700 \r Q P . I N S T R . F I E L D
0005720 S Q P . I N T E R N . S Y M B
0005740 O L Q P . L E F T . O P . C O
0005760 D E Q P . L O A D . G C . P R
0006000 O T E C T Q P . P . T O K E N
0006020 . T Y P E Q P . P U T . B Y T
0006040 E \r Q P . R A W . F R E E . S
0006060 P A C E Q P . S Y M B O L . C
0006100 H A R Q P . S Y M B O L . C O
0006120 M P A R E Q P . S Y M B O L .
0006140 L E N G T H Q P . S Y M B O L
0006160 . T O . B Y T E . B U F F E R )
0006200 ) ) \r ( R P A Q Q B Y T E . B
0006220 U F F E R . L E N G T H 0 ) \r
0006240 ( R P A Q B Y T E . B U F F E
0006260 R ( A L L O C S T R I N G 4
0006300 0 9 6 ) ) \r ( P U T P R O P S
0006320 P R I M . L S P C O P Y R I G
0006340 H T ( " X e r o x C o r p o
0006360 r a t i o n " 1 9 8 5 ) ) \r N
0006400 I L \r
0006403