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