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