$ od -c -N 50000 [eris]<LispCore>LIBRARY>GIVE-AND-TAKE.DCOM!11
0000000 ( F I L E C R E A T E D " 8
0000020 - S e p - 8 6 1 6 : 4 2 : 0 2
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 > G I V E - A
0000120 N D - T A K E . ; 1 0 ) \r " 2
0000140 9 - A u g - 8 6 2 2 : 2 1 : 5
0000160 6 " " C O M P I L E - F I L E
0000200 d " i n " X e r o x L i s
0000220 p 2 9 - A u g - 8 6 . . . "
0000240 d a t e d " 2 9 - A u g - 8
0000260 6 2 2 : 5 5 : 0 3 " ) \r ( F I
0000300 L E C R E A T E D " 8 - S e
0000320 p - 8 6 1 6 : 4 1 : 1 6 " {
0000340 E R I S } < L I S P C O R E > L
0000360 I B R A R Y > G I V E - A N D -
0000400 T A K E . ; 1 0 1 7 3 2 0 c
0000420 h a n g e s t o : ( \r F U N
0000440 C T I O N S T A K E - F I L E
0000460 ) p r e v i o u s d a t e :
0000500 " 8 - S e p - 8 6 1 6 : 1
0000520 1 : 5 1 " { E R I S } < L I S
0000540 P C O R E > L I B R A R Y > G I
0000560 V E - A N D - T A K E . ; 9 ) \r
0000600 ( R P A Q Q G I V E - A N D -
0000620 T A K E C O M S ( ( F N S G
0000640 I V E T A K E S T E A L G
0000660 I V E - O R - T A K E - F I N D
0000700 A D D - D E F A U L T - R E G
0000720 I S T R Y ) ( F U N C T I O N
0000740 S \r G I V E - F I L E T A K
0000760 E - F I L E T A K E N ? ) (
0001000 I N I T V A R S ( * G I V E -
0001020 A N D - T A K E - D I R E C T O
0001040 R I E S * ( Q U O T E ( { E
0001060 R I S } < L I S P C O R E > S O
0001100 U R C E S > \r { E R I S } < L
0001120 I S P C O R E > L I B R A R Y >
0001140 ) ) ) ) ( G L O B A L V A R S
0001160 * G I V E - A N D - T A K E -
0001200 D I R E C T O R I E S * ) ( L
0001220 I S P X M A C R O S G I V E ?
0001240 T A K E N ? ) ( P R O P \r
0001260 F I L E T Y P E G I V E - A N
0001300 D - T A K E ) ( D E C L A R E
0001320 : D O N T E V A L @ L O A D
0001340 D O E V A L @ C O M P I L E D
0001360 O N T C O P Y C O M P I L E R
0001400 V A R S ( A D D V A R S ( N
0001420 L A M A \r S T E A L T A K E
0001440 G I V E ) ( N L A M L ) (
0001460 L A M A ) ) ) ) ) \r G I V E D
0001500 1 \r ( P 2 F I L E P 0
0001520 S C O R E I 0 F I L E S )
0001540 \0 ( 003 \0 003 001 i 021 001 \0 @ \t \0 \0 021
0001560 021 002 I 265 004 H 020 003 243 I 272 h 204 I 001 272
0001600 I 002 271 J \t \0 \0 264 004 260 351 270 260 346 \0 (
0001620 3 7 Q G I V E - F I L E 7
0001640 N L A M B D A . A R G S ) \r N I
0001660 L \r ( ) \r T A K E D 1 \r ( P
0001700 2 F I L E P 0 S C O R E
0001720 I 0 F I L E S ) \0 ( 003 \0
0001740 003 001 i 021 001 \0 @ \t \0 \0 021 021 002 I 265 004
0001760 H 020 003 243 I 272 h 204 I 001 272 I 002 271 J \t
0002000 \0 \0 264 004 260 351 270 260 346 \0 ( 3 7 Q T
0002020 A K E - F I L E 7 N L A M B
0002040 D A . A R G S ) \r N I L \r ( ) \r
0002060 S T E A L D 1 \r ( P 2 F I
0002100 L E P 0 S C O R E I 0
0002120 F I L E S ) \0 ) 003 \0 003 001 i 021
0002140 001 \0 @ \t \0 \0 021 021 002 I 265 004 H 020 003 243
0002160 I 272 h 204 I 001 272 I 002 271 J i \n \0 \0 264
0002200 004 260 350 270 260 345 \0 ( 4 0 Q T A K E
0002220 - F I L E 7 N L A M B D A .
0002240 A R G S ) \r N I L \r ( ) \r G I V
0002260 E - O R - T A K E - F I N D D
0002300 1 \r ( P 0 N A M E I 0
0002320 F I L E N A M E ) \0 032 001 \0 \0 001
0002340 @ i ` \0 \0 \v \0 \0 021 001 \0 H 265 \f i o
0002360 \0 \0 \0 @ \v \0 \0 h 020 \0 ( 2 6 Q F
0002400 O R M A T 7 F I N D F I L E
0002420 ) \r ( 4 * G I V E - A N D - T
0002440 A K E - D I R E C T O R I E S *
0002460 ) \r ( 2 2 Q " ~ A d o e s
0002500 n o t e x i s t a n d s
0002520 o c a n n o t b e t a k e
0002540 n o r g i v e n . ~ % % " )
0002560 \r A D D - D E F A U L T - R E G
0002600 I S T R Y D 1 \r ( I 0 N A
0002620 M E F 0 D E F A U L T R E
0002640 G I S T R Y ) \0 030 \0 001 \0 001 o \0
0002660 \0 \0 @ \n \0 \0 241 P 241 @ 020 @ o \0 \0 \0
0002700 P \v \0 \0 020 \0 ( 2 5 Q C O N C A
0002720 T 7 S T R P O S ) \r N I L \r
0002740 ( 2 1 Q " . " 3 " . " )
0002760 \r G I V E - F I L E A 0 0 0 1
0003000 D 1 \r ( N A M E E R R O R S E
0003020 T F 0 N A M E ) \0 ! \0 001
0003040 002 \0 g \0 \0 g \0 \0 g \0 \0 k g \0 \0 P
0003060 \r 006 \0 \0 g \0 \0 h o \0 \0 \0 \f \0 \0 h
0003100 032 020 \0 ( 3 4 Q O P E N S T R E
0003120 A M 2 1 Q P A C K F I L E N
0003140 A M E . S T R I N G ) \r ( 2 4 Q
0003160 I N P U T 1 4 Q B O D Y
0003200 1 0 Q V E R S I O N 5 S T
0003220 A T U S 2 E X T E N S I O N
0003240 ) \r ( 3 1 Q ( D O N ' T C A
0003260 C H E ) ) \r G I V E - F I L E
0003300 D 1 \r ( L ( 0 F I L E N A M
0003320 E ) P 0 N A M E ) \0 _ 003
0003340 \0 \0 001 @ \t \0 \0 021 ! 002 H 241 h 020 o \0
0003360 \0 \0 \t \0 \0 001 Y d \t \0 \0 253 277 i o \0
0003400 \0 \0 H \v \0 \0 h 020 \t \0 \0 \t \0 \0 Z \b
0003420 \0 \0 \t \0 \0 \n \0 \0 262 024 I \t \0 \0 \t \0
0003440 \0 i o \0 \0 \0 H \v \0 \0 i 020 i o \0 \0
0003460 \0 H J I \t \0 \0 \r 005 \0 \0 I \t \0 \0 h
0003500 020 \0 ( 1 3 3 Q C L O S E F 1
0003520 2 7 Q F O R M A T 1 2 3 Q
0003540 C L : R E A D 1 0 6 Q F O R
0003560 M A T 7 5 Q D E L F I L E
0003600 7 2 Q C L O S E F 6 4 Q S
0003620 T R I N G - E Q U A L 6 1 Q
0003640 A D D - D E F A U L T - R E G I
0003660 S T R Y 5 6 Q U S E R N A M
0003700 E 5 2 Q A D D - D E F A U L
0003720 T - R E G I S T R Y 4 7 Q C
0003740 L : R E A D 4 2 Q F O R M A
0003760 T 2 7 Q S T R E A M P 2 1
0004000 Q G I V E - F I L E A 0 0 0 1
0004020 3 G I V E - O R - T A K E -
0004040 F I N D ) \r N I L \r ( 1 1 5 Q
0004060 " S o r r y , b u t y o u
0004100 c a n ' t g i v e w h a t
0004120 y o u h a v e n ' t t a k
0004140 e n . ~ % % ~ A w a s t a k
0004160 e n b y ~ A o n ~ A . ~
0004200 % % " 1 0 2 Q " ~ A i s
0004220 n o w u n l o c k e d . ~ % %
0004240 " \r 3 6 Q " S o r r y , b
0004260 u t y o u c a n ' t g i v
0004300 e w h a t y o u h a v e n
0004320 ' t t a k e n . ~ % % ~ A h
0004340 a s n o t b e e n t a k e
0004360 n b y a n y o n e , i n c
0004400 l u d i n g y o u . ~ % % " \r
0004420 1 6 Q ( G I V E - F I L E A
0004440 0 0 0 1 ) ) \r T A K E - F I L E
0004460 A 0 0 0 1 A 0 0 0 2 D 1 \r ( L
0004500 ( 1 G R O S S - L I S T - H
0004520 A C K 0 N A M E ) ) \0 G 002
0004540 \0 \0 002 A 002 002 001 263 @ i o \0 \0 \0 @ \v
0004560 \0 \0 A d 002 001 263 032 d 001 \t \0 \0 262 023 277
0004600 A 021 021 001 A 001 \t \0 \0 271 H 002 I 030 023 A
0004620 001 \t \0 \0 225 A 001 \t \0 \0 277 A 002 001 264 \b
0004640 A 002 001 \t \0 \0 020 h 020 \0 ( 1 0 2 Q
0004660 D E L F I L E 6 6 Q C L O S
0004700 E F ? 6 0 Q S T R E A M P
0004720 4 5 Q F U L L N A M E 3 1 Q
0004740 S T R E A M P 1 6 Q F O R
0004760 M A T ) \r N I L \r ( 1 2 Q "
0005000 I n t e r r u p t e d d u r i
0005020 n g p r o c e s s i n g o f
0005040 ~ A . T a k e a b o r t
0005060 e d . ~ % % " ) \r T A K E - F I
0005100 L E A 0 0 0 1 A 0 0 0 3 D 1 \r
0005120 ( N A M E E R R O R S E T F
0005140 0 G R O S S - L I S T - H A
0005160 C K ) \0 034 \0 001 002 \0 g \0 \0 k g \0
0005200 \0 P 002 001 \f \0 \0 g \0 \0 h o \0 \0 \0 \f
0005220 \0 \0 h 032 020 \0 ( 2 7 Q O P E N S
0005240 T R E A M 1 4 Q P A C K F I
0005260 L E N A M E . S T R I N G ) \r (
0005300 1 7 Q I N P U T 6 B O D Y
0005320 2 V E R S I O N ) \r ( 2 4
0005340 Q ( D O N ' T C A C H E ) ) \r
0005360 T A K E - F I L E A 0 0 0 1 A 0
0005400 0 0 4 D 1 \r ( N A M E E R R
0005420 O R S E T L ( 0 N I L )
0005440 F 2 G R O S S - L I S T - H
0005460 A C K F 3 N A M E ) \0 036
0005500 002 002 002 \0 R 001 \t \0 \0 R 001 \t \0 \0 021 002
0005520 001 i o \0 \0 \0 S H I \r 005 \0 \0 022 h 032
0005540 020 \0 ( 3 0 Q F O R M A T 1 1
0005560 Q C L : R E A D 4 C L : R
0005600 E A D ) \r N I L \r ( 2 1 Q "
0005620 S o r r y , b u t ~ A w a
0005640 s a l r e a d y t a k e n
0005660 b y ~ A o n ~ A . ~ % % "
0005700 ) \r T A K E - F I L E A 0 0 0 1
0005720 D 1 \r ( N A M E E R R O R S
0005740 E T P 1 N A M E P 0
0005760 G R O S S - L I S T - H A C K
0006000 F 1 5 Q F I L E N A M E F
0006020 1 6 Q R E S E T V A R S L S
0006040 T F 1 7 Q S T E A L F
0006060 2 0 Q R E S E T Y ) 001 H \r 004
0006100 002 \0 h d i h 032 032 032 021 301 \f W 032 \t \0
0006120 \0 Y 243 h 261 001 0 g \0 \0 g \0 \0 g \0 \0
0006140 h g \0 \0 I \r 006 \0 \0 272 g \0 \0 I H h
0006160 032 032 032 h h 032 032 W 034 032 c 034 277 H 275 J
0006200 g \0 \0 h o \0 \0 \0 \f \0 \0 274 M L 030 277
0006220 H _ 016 001 \t \0 \0 276 O 016 002 N 030 277 H 002
0006240 001 g \0 \0 \n \0 \0 k \n \0 \0 262 [ \b \0 \0
0006260 \t \0 \0 \b \0 \0 _ 022 277 _ 020 277 H 001 o \0
0006300 \0 \0 O 020 O 022 \f \0 \0 277 H 001 \t \0 \0 277
0006320 i o \0 \0 \0 I O 020 O 022 \r 005 \0 \0 277 I
0006340 \t \0 \0 301 002 311 \0 g \0 \0 ' 001 002 _ 024 277
0006360 I O 024 \n \0 \0 253 i o \0 \0 \0 I O 024 \f
0006400 \0 \0 277 i 260 x H 001 \t \0 \0 277 H 002 001 \t
0006420 \0 \0 277 H _ 030 277 o \0 \0 \0 \t \0 \0 001 _
0006440 026 277 O 030 O 026 030 277 H 001 \t \0 \0 246 i o
0006460 \0 \0 \0 260 D W 036 262 * i o \0 \0 \0 I H
0006500 001 g \0 \0 \n \0 \0 \f \0 \0 277 H 001 \t \0 \0
0006520 277 H 001 \t \0 \0 \t \0 \0 277 W 032 \t \0 \0 260
0006540 035 o \0 \0 \0 \t \0 \0 h 360 H 001 \t \0 \0 277
0006560 264 \f i o \0 \0 \0 \n \0 \0 277 h 273 H 002 002
0006600 i 030 277 K 022 c i 020 \0 ( 4 6 7 Q
0006620 F O R M A T 4 5 4 Q C L O S
0006640 E F 4 4 5 Q T A K E - F I L
0006660 E A 0 0 0 1 A 0 0 0 4 4 3 4 Q
0006700 T A K E - F I L E 4 2 6 Q
0006720 D E L F I L E 4 2 3 Q F U L
0006740 L N A M E 4 1 5 Q C L O S E
0006760 F 4 0 7 Q F O R M A T 4 0
0007000 4 Q G E T F I L E I N F O 3
0007020 5 2 Q S T R E A M P 3 3 3 Q
0007040 T A K E - F I L E A 0 0 0 1 A
0007060 0 0 0 3 3 1 7 Q D E L F I L
0007100 E 3 1 0 Q C L O S E F 2 7
0007120 7 Q F O R M A T 2 6 3 Q S
0007140 T R I N G - E Q U A L 2 4 0 Q
0007160 R O O T F I L E N A M E 2 3
0007200 3 Q F O R M A T 2 1 4 Q C
0007220 L O S E F 2 0 6 Q F O R M A
0007240 T 1 6 3 Q D A T E 1 6 0 Q
0007260 A D D - D E F A U L T - R E G
0007300 I S T R Y 1 5 5 Q U S E R N
0007320 A M E 1 5 0 Q % % = 1 4 4
0007340 Q F I L E N A M E F I E L D
0007360 1 2 4 Q F U L L N A M E 1 1
0007400 0 Q O P E N S T R E A M 4 6
0007420 Q P A C K F I L E N A M E . S
0007440 T R I N G 1 6 Q G I V E - O
0007460 R - T A K E - F I N D ) \r ( 4 0
0007500 1 Q A U T H O R 2 4 7 Q F
0007520 I L E D A T E S 1 4 1 Q V E
0007540 R S I O N 1 0 0 Q O U T P U
0007560 T 5 2 Q T A K E - F I L E A
0007600 0 0 0 1 A 0 0 0 2 4 1 Q B O
0007620 D Y 3 5 Q V E R S I O N 3
0007640 2 Q S T A T U S 2 7 Q E X
0007660 T E N S I O N ) \r ( 4 6 4 Q
0007700 " B a d s i t u a t i o n :
0007720 O n l y a n i l l e g a l
0007740 s t a t u s f i l e e x i s
0007760 t s . ~ % % T r y a g a i n
0010000 i n a m o m e n t o r t
0010020 r y t o f i x t h e p r
0010040 o b l e m . ~ % % " \r 4 4 2 Q
0010060 ( T A K E - F I L E A 0 0 0 1
0010100 A 0 0 0 4 ) 3 7 3 Q " S t e
0010120 a l i n g ~ A f r o m ~ A
0010140 . ~ % % " 3 6 0 Q " B a d
0010160 s i t u a t i o n : I l l e g
0010200 a l v e r s i o n s o f t
0010220 h e s t a t u s f i l e e
0010240 x i s t . ~ & T r y a g a i n
0010260 i n a m o m e n t o r
0010300 t r y t o f i x t h e p
0010320 r o b l e m . ~ % % " \r 3 3 0
0010340 Q ( T A K E - F I L E A 0 0 0
0010360 1 A 0 0 0 3 ) 2 7 1 Q " W a
0010400 r n i n g : F i l e ~ A i
0010420 s d i f f e r e n t f r o m
0010440 l o a d e d f i l e ~ A ~
0010460 % % " 2 2 2 Q " ~ A i s
0010500 n o w l o c k e d b y ~ A
0010520 a t ~ A . ~ % % " \r 1 7 7
0010540 Q " ~ S ~ S ~ % % " 1 0 5
0010560 Q ( D O N ' T C A C H E ) ) \r
0010600 T A K E - F I L E D 1 \r ( P
0010620 1 R E S E T Y P 0 L I S
0010640 P X H I S T I 1 S T E A L
0010660 I 0 F I L E N A M E F
0010700 3 L I S P X H I S T F 4
0010720 R E S E T V A R S L S T ) \0 "
0010740 003 002 \0 002 S 021 ! 002 T o \0 \0 \0 g \0 \0
0010760 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b
0011000 \0 \0 020 I 020 \0 ( 3 5 Q E R R O R
0011020 ! 3 0 Q R E S E T R E S T O
0011040 R E 1 6 Q T A K E - F I L E
0011060 A 0 0 0 1 ) \r ( 2 4 Q E R R O
0011100 R 1 3 Q I N T E R N A L ) \r
0011120 ( 1 0 Q ( T A K E - F I L E
0011140 A 0 0 0 1 ) ) \r T A K E N ? A 0
0011160 0 0 1 D 1 \r ( N A M E E R R
0011200 O R S E T L ( 0 N I L )
0011220 F 4 D I R F 5 A U T H
0011240 O R F 6 R E S E T Y F
0011260 7 G I V E ? ) \0 313 004 004 002 \0 g
0011300 \0 \0 T g \0 \0 o \0 \0 \0 g \0 \0 o \0 \0
0011320 \0 \r 006 \0 \0 o \0 \0 \0 o \0 \0 \0 \v \0 \0
0011340 021 1 003 H \t \0 \0 Y 245 023 h c \f i 020 H
0011360 g \0 \0 \n \0 \0 272 U 236 U J k h i h `
0011400 \0 \0 \r \a \0 \0 262 335 K 263 035 i \t \0 \0 277
0011420 o \0 \0 \0 i \n \0 \0 277 T i \n \0 \0 277 i
0011440 \t \0 \0 277 i 273 I g \0 \0 \n \0 \0 i \n \0
0011460 \0 277 l 020 h i \v \0 \0 277 H g \0 \0 \n \0
0011500 \0 i \n \0 \0 277 l ( h i \v \0 \0 277 J i
0011520 \n \0 \0 277 W 016 246 i \t \0 \0 277 260 207 h d
0011540 o \0 \0 \0 h i \r 005 \0 \0 g \0 \0 360 242 261
0011560 377 t g \0 \0 h g \0 \0 h g \0 \0 I \r 006
0011600 \0 \0 \t \0 \0 277 261 377 ] \0 ( 3 0 5 Q
0011620 G I V E - F I L E 3 0 2 Q P
0011640 A C K F I L E N A M E . S T R I
0011660 N G 2 5 2 Q A S K U S E R
0011700 2 3 3 Q T E R P R I 2 2 3 Q
0011720 P R I N 1 2 1 5 Q T A B
0011740 2 0 5 Q P R I N 1 2 0 1 Q
0011760 \ G E N E R A T E F I L E I N F
0012000 O 1 7 1 Q T A B 1 6 1 Q
0012020 P R I N 1 1 5 5 Q F I L E N
0012040 A M E F I E L D 1 4 3 Q T E
0012060 R P R I 1 3 6 Q P R I N 1
0012100 1 3 0 Q P R I N 1 1 1 7 Q
0012120 T E R P R I 1 0 6 Q S T R P
0012140 O S 6 6 Q \ G E N E R A T E
0012160 F I L E I N F O 4 7 Q \ G E
0012200 N E R A T E N E X T F I L E 4
0012220 0 Q \ G E N E R A T E F I L E
0012240 S 2 5 Q P A C K F I L E N A
0012260 M E . S T R I N G ) \r ( 2 7 5 Q
0012300 B O D Y 2 7 1 Q V E R S I
0012320 O N 2 6 5 Q E X T E N S I O
0012340 N 2 5 5 Q Y 1 7 6 Q C R
0012360 E A T I O N D A T E 1 5 2 Q
0012400 N A M E 1 0 2 Q U P P E R C
0012420 A S E A R R A Y 6 3 Q A U T
0012440 H O R 1 5 Q E X T E N S I O
0012460 N 6 N A M E 2 D I R E C
0012500 T O R Y ) \r ( 2 4 4 Q "
0012520 G i v e ? " 1 2 4 Q "
0012540 " 3 5 Q ( R E S E T L S T
0012560 ) 3 1 Q ( A U T H O R C R
0012600 E A T I O N D A T E ) 2 1 Q
0012620 " S T A T U S " 1 2 Q " * "
0012640 ) \r T A K E N ? D 1 \r ( L (
0012660 0 - a r g s - ) P 1 1 Q
0012700 R E S E T Y P 1 0 Q L I S
0012720 P X H I S T P 7 D I R P
0012740 6 G I V E ? P 3 A U T
0012760 H O R F 1 3 Q L I S P X H
0013000 I S T F 1 4 Q R E S E T V
0013020 A R S L S T ) \0 327 \v 002 002 \0 e 021
0013040 001 \0 H k 021 002 002 J d I 363 262 7 277 h 022
0013060 021 1 006 H k 275 274 M d L 363 262 : 277 h 276
0013100 K 265 G \b \0 \0 273 o \0 \0 \0 K \n \0 \0 262
0013120 V K k o \0 \0 \0 K \n \0 \0 k 331 \v \0 \0
0013140 260 D a g \0 \0 360 225 J k 330 a 260 303 J l
0013160 002 324 Z 260 265 a g \0 \0 360 225 M k 330 a 260
0013200 300 M l 002 324 ] 260 262 o \0 \0 \0 \n \0 \0 263
0013220 024 K o \0 \0 \0 \n \0 \0 250 K o \0 \0 \0 \n
0013240 \0 \0 221 h 273 o \0 \0 \0 i \n \0 \0 277 K 265
0013260 006 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 ` \0
0013300 \0 260 . d 001 021 001 \a W 026 021 ! \n W 030 o
0013320 \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 _
0013340 024 \n \0 \0 277 O 024 223 \b \0 \0 277 023 023 002 003
0013360 265 323 h 020 \0 ( 3 1 4 Q E R R O R
0013400 ! 3 0 5 Q R E S E T R E S T
0013420 O R E 2 7 2 Q T A K E N ? A
0013440 0 0 0 1 2 3 7 Q T E R P R I
0013460 2 3 2 Q P R I N 1 2 1 6 Q
0013500 P R I N 1 2 0 3 Q S T R I
0013520 N G - E Q U A L 1 7 2 Q S T
0013540 R I N G - E Q U A L 1 6 0 Q
0013560 S T R I N G - E Q U A L 1 0 1
0013600 Q S U B S T R I N G 7 4 Q
0013620 S T R P O S 6 0 Q S T R P O
0013640 S 4 7 Q U S E R N A M E ) \r
0013660 ( 3 0 0 Q E R R O R 2 6 7 Q
0013700 I N T E R N A L 2 4 2 Q *
0013720 G I V E - A N D - T A K E - D I
0013740 R E C T O R I E S * 1 3 2 Q
0013760 : G I V E ? 1 0 7 Q : B Y )
0014000 \r ( 2 6 4 Q ( T A K E N ? A
0014020 0 0 0 1 ) 2 2 6 Q " a n y "
0014040 2 1 2 Q " L o o k i n g f
0014060 o r f i l e s t a k e n b
0014100 y " 2 0 0 Q " * " 1 6 7
0014120 Q " A L L " 1 5 5 Q " A N
0014140 Y " 7 0 Q " . " \r 5 4 Q
0014160 " . " ) \r ( R P A Q ? * G I V
0014200 E - A N D - T A K E - D I R E C
0014220 T O R I E S * ( Q U O T E (
0014240 { E R I S } < L I S P C O R E >
0014260 S O U R C E S > { E R I S } <
0014300 L I S P C O R E > L I B R A R Y
0014320 > ) ) ) \r ( A D D T O V A R L
0014340 I S P X M A C R O S ( G I V E
0014360 ? ( T A K E N ? : G I V E ?
0014400 T ) ) ( T A K E N ? ( A P
0014420 P L Y ( F U N C T I O N T A
0014440 K E N ? ) L I S P X L I N E )
0014460 ) ) \r ( P U T P R O P S G I V
0014500 E - A N D - T A K E F I L E T
0014520 Y P E C O M P I L E - F I L E
0014540 ) \r ( P U T P R O P S G I V E
0014560 - A N D - T A K E C O P Y R I
0014600 G H T ( " X e r o x C o r p
0014620 o r a t i o n " 1 9 8 6 ) ) \r
0014640 S T O P \r
0014645