$ od -c -N 50000 [eris]<LispCore>PROLOG>SNAP6>UTIL.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 7 : 3 5
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 > U
0000120 T I L . 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 6 : 5 8 " { 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 > U T I L . L S P ; 3 1
0000400 2 4 2 1 c h a n g e s t o :
0000420 ( V A R S \r U T I L C O M S
0000440 ) ( F N S C A N O N I C A L
0000460 . R E S T D E F M A C R O C .
0000500 A R G L I S T D E F M A C R O
0000520 C . B O D Y ) p r e v i o u s
0000540 d a t e : " 1 3 - N o v - 8
0000560 5 1 4 : 1 5 : 1 2 " \r { D S
0000600 K } < L I S P F I L E S 2 > U T
0000620 I L . L S P ; 2 ) \r C A N O N I
0000640 C A L . R E S T D 1 \r ( L (
0000660 0 A R G S ) ) \0 6 001 \0 \0 001 @
0000700 d \t \0 \0 002 236 277 @ k \n \0 \0 021 001 \0 H
0000720 002 H 001 032 020 l 002 \n \0 \0 021 001 \0 H 002 001
0000740 o \0 \0 \0 \n \0 \0 264 \n H 002 002 001 H 001 032
0000760 020 @ 032 020 \0 ( 4 7 Q M E M B 3
0001000 2 Q L A S T N 1 4 Q L A S
0001020 T N 4 L A S T ) \r N I L \r (
0001040 4 4 Q ( & R E S T & r e s
0001060 t ) ) \r D E F C M D D 1 \r ( I
0001100 0 C M D ) \0 \r \0 \0 001 001 @ g
0001120 \0 \0 \n \0 \0 @ \t \0 \0 020 \0 ( 1 2 Q
0001140 E V A L 6 Q P . A D D T O F
0001160 I L E ) \r ( 3 P ) \r ( ) \r D E
0001200 F F I L E S D 1 \r ( P 0 F
0001220 I L E I 0 F I L E S ) \0
0001240 037 001 \0 003 001 @ \t \0 \0 215 d 001 021 001 \0 H
0001260 g \0 \0 \n \0 \0 023 002 003 265 361 g \0 \0 @ \n
0001300 \0 \0 020 \0 ( 3 4 Q A P P L Y 2
0001320 0 Q Q P . A D D T O F I L E
0001340 3 R E V E R S E ) \r ( 3 0 Q
0001360 F I L E S L O A D 1 5 Q F I
0001400 L E S ) \r ( ) \r D E F M A C R O
0001420 C D 1 \r ( P 4 B O D Y P
0001440 3 R E G . A R G S P 2
0001460 R E S T . A R G P 1 A R G
0001500 S P 0 N A M E I 0 A
0001520 R G L I S T ) \0 = 005 \0 003 001 @ 001
0001540 021 001 \0 @ 002 001 \t \0 \0 021 1 004 I 001 272 I
0001560 002 273 @ 002 002 274 H g \0 \0 g \0 \0 g \0 \0
0001600 K J \n \0 \0 L \t \0 \0 032 032 h 032 032 \v \0
0001620 \0 H g \0 \0 \n \0 \0 H 020 \0 ( 7 1 Q
0001640 Q P . A D D T O F I L E 6 2 Q
0001660 P U T P R O P 5 2 Q \ A P
0001700 P E N D 2 4 6 Q D E F M A C
0001720 R O C . A R G L I S T 1 2 Q
0001740 C A N O N I C A L . R E S T ) \r
0001760 ( 6 6 Q M A C R O S 4 1 Q
0002000 L E T 3 6 Q * * M A C R O A
0002020 R G * * 3 3 Q M A C R O ) \r
0002040 ( ) \r D E F M A C R O C . A R G
0002060 L I S T D 1 \r ( L ( 1 R E
0002100 S T . A R G 0 R E G . A R G
0002120 S ) ) \0 i \b \0 \0 002 @ \t \0 \0 021 !
0002140 002 @ 242 h 260 @ H k 021 2 \a L K 363 263 4
0002160 @ L \n \0 \0 001 g \0 \0 g \0 \0 g \0 \0 L
0002200 h 032 032 032 h 032 032 h 032 032 _ 016 277 N 265 016
0002220 O 016 h 032 ^ 275 L k 324 \ 260 322 O 016 & 276
0002240 260 366 M 022 271 A d 262 024 g \0 \0 g \0 \0 H
0002260 k 330 h 032 032 032 h 032 032 h 032 272 I J \n \0
0002300 \0 020 \0 ( 1 4 6 Q \ N C O N C 2
0002320 3 2 Q N T H 3 L E N G T
0002340 H ) \r ( 1 2 4 Q * * M A C R O
0002360 A R G * * 1 2 1 Q N T H 4
0002400 4 Q * * M A C R O A R G * *
0002420 4 1 Q N T H 3 6 Q C A R )
0002440 \r ( ) \r D E F M A C R O C . B O
0002460 D Y D 1 \r ( L ( 0 A R G B
0002500 O D Y ) ) \0 023 \0 \0 \0 001 @ \t \0 \0
0002520 k \n \0 \0 222 @ 001 020 g \0 \0 @ 032 020 \0 (
0002540 7 E Q P 3 L E N G T H ) \r
0002560 ( 1 6 Q L I S T ) \r ( ) \r D E
0002600 F V A R D 1 \r ( I 1 V a l
0002620 I 0 X F 0 G L O B A
0002640 L V A R S ) \0 ) \0 001 001 002 @ d P
0002660 \n \0 \0 245 P 032 c \0 277 @ A \t \0 \0 \n \0
0002700 \0 @ A h 032 032 g \0 \0 \n \0 \0 @ g \0 \0
0002720 \n \0 \0 @ 020 \0 ( 4 5 Q Q P . A D
0002740 D T O F I L E 3 6 Q Q P . A
0002760 D D T O F I L E 2 3 Q S E T
0003000 T O P V A L 2 0 Q E V A L
0003020 5 M E M B ) \r ( 4 2 Q G L O
0003040 B A L V A R S 3 3 Q V A R S
0003060 ) \r ( ) \r E M A C S . R E A D I
0003100 N D 1 \r ( P 1 F I L E P K
0003120 G F L G P 0 Q P . S O U R
0003140 C E . F I L E ) \0 ! 002 \0 \0 \0 g
0003160 \0 \0 021 021 001 g \0 \0 \t \0 \0 o \0 \0 \0 \t
0003200 \0 \0 g \0 \0 \t \0 \0 g \0 \0 \t \0 \0 020 \0
0003220 ( 3 6 Q P R I N 1 3 0 Q B
0003240 K S Y S B U F 2 2 Q L O A D
0003260 W E L L 1 3 Q P R I N 1 ) \r
0003300 ( 3 3 Q E m a c s % r e a d
0003320 % c o m p l e t e d 2 5 Q
0003340 % \r 1 0 Q E m a c s % r e
0003360 a d % s t a r t e d . . . 2
0003400 . X F E R . L S P ) \r ( 1 7
0003420 Q ( { G O E D E L } / u s r 2
0003440 / x e r o x / d e s c a r t e s
0003460 / . x f e r T T ) ) \r K I L
0003500 L L I N E D 1 \r ( P 0 C
0003520 I 1 R I 0 F ) \0 022 001
0003540 \0 \0 002 021 020 \0 @ A \n \0 \0 X g \0 \0 360
0003560 262 366 h 020 \0 ( 7 R E A D C ) \r (
0003600 1 3 Q % \r ) \r ( ) \r Q P . A D
0003620 D T O F I L E D 1 \r ( I 1
0003640 T Y P E I 0 N A M E F
0003660 0 Q P . S O U R C E . F I L E
0003700 ) \0 023 \0 001 \0 002 g \0 \0 \t \0 \0 264 \v
0003720 P 264 \b @ A P \v \0 \0 020 \0 ( 2 0 Q
0003740 A D D T O F I L E 5 B O U N
0003760 D P ) \r ( 2 Q P . S O U R C E
0004000 . F I L E ) \r ( ) \r S H O W . M
0004020 V A R G S D 1 \r ( F 0 M V
0004040 . N A R G S F 1 I T F
0004060 2 M V . R E T U R N E R 6 F
0004100 3 M V . R E T U R N E R 1
0004120 F 4 M V . R E T U R N E R 2
0004140 F 5 M V . R E T U R N E R
0004160 3 F 6 M V . R E T U R N E
0004200 R 4 F 7 M V . R E T U R N
0004220 E R 5 ) \0 R \0 \b \0 \0 Q \t \0 \0 P
0004240 k 360 227 \b \0 \0 h \t \0 \0 020 S \t \0 \0 P
0004260 l 002 360 263 360 T \t \0 \0 P l 003 360 263 346 U
0004300 \t \0 \0 P l 004 360 263 334 V \t \0 \0 P l 005
0004320 360 263 322 W 016 \t \0 \0 P l 006 360 263 307 R \t
0004340 \0 \0 P l \a 360 264 005 \b \0 \0 020 \0 ( 1 1
0004360 7 Q S H O U L D N T 1 0 6 Q
0004400 P R I N T 7 4 Q P R I N T
0004420 6 1 Q P R I N T 4 7 Q P
0004440 R I N T 3 5 Q P R I N T 2
0004460 3 Q P R I N T 1 6 Q B R E
0004500 A K 1 2 Q T E R P R I 3
0004520 P R I N T ) \r N I L \r ( ) \r ( P
0004540 R E T T Y C O M P R I N T U T
0004560 I L C O M S ) \r ( R P A Q Q U
0004600 T I L C O M S ( ( F N S C A
0004620 N O N I C A L . R E S T D E F
0004640 C M D D E F F I L E S D E F
0004660 M A C R O C D E F M A C R O C
0004700 . A R G L I S T D E F M A C R
0004720 O C . B O D Y D E F V A R \r
0004740 E M A C S . R E A D I N K I L
0004760 L L I N E Q P . A D D T O F I
0005000 L E S H O W . M V A R G S )
0005020 ( M A C R O S D E F R E C O R
0005040 D D E F U N C D E F U N C O
0005060 M P I L E D D E F V A R \r E
0005100 V A L . O N . L O A D I N C F
0005120 I N C R M A K E . S U R E .
0005140 C O M P I L E D M U L T I P L
0005160 E . V A L U E . B I N D M U L
0005200 T I P L E . V A L U E . S E T Q
0005220 P U T P R O P C V A L U E S
0005240 ) ( P \r ( P R O G N ( S E
0005260 T S Y N T A X ( Q U O T E %
0005300 ; ) ( Q U O T E ( S P L I C
0005320 E F I R S T E S C Q U O T E
0005340 N O N I M M E D I A T E K I
0005360 L L L I N E ) ) T ) ( S E T
0005400 S Y N T A X ( \r Q U O T E %
0005420 ; ) ( Q U O T E ( S P L I C
0005440 E F I R S T E S C Q U O T E
0005460 N O N I M M E D I A T E K I
0005500 L L L I N E ) ) F I L E R D T
0005520 B L ) ) ) ( G L O B A L V A R
0005540 S M V . R E T U R N E R . 1 \r
0005560 M V . R E T U R N E R . 1 0
0005600 M V . R E T U R N E R . 1 1 M
0005620 V . R E T U R N E R . 1 2 M V
0005640 . R E T U R N E R . 1 3 M V .
0005660 R E T U R N E R . 1 4 M V . R
0005700 E T U R N E R . 1 5 \r M V . R
0005720 E T U R N E R . 1 6 M V . R E
0005740 T U R N E R . 2 M V . R E T U
0005760 R N E R . 3 M V . R E T U R N
0006000 E R . 4 M V . R E T U R N E R
0006020 . 5 M V . R E T U R N E R . 6
0006040 M V . R E T U R N E R . 7 \r
0006060 M V . R E T U R N E R . 8 M V
0006100 . R E T U R N E R . 9 N V . N
0006120 A R G S ) ( P ( P R O G N
0006140 ( S E T S Y N T A X ( Q U O T
0006160 E % ; ) ( Q U O T E ( S P
0006200 L I C E F I R S T E S C Q U
0006220 O T E \r N O N I M M E D I A T
0006240 E K I L L L I N E ) ) T )
0006260 ( S E T S Y N T A X ( Q U O T
0006300 E % ; ) ( Q U O T E ( S P
0006320 L I C E F I R S T E S C Q U
0006340 O T E N O N I M M E D I A T E
0006360 K I L L L I N E ) ) \r F I L
0006400 E R D T B L ) ) ) ( P ( P R
0006420 O G N ( S E T S Y N T A X (
0006440 Q U O T E % ; ) ( Q U O T E
0006460 ( S P L I C E F I R S T E
0006500 S C Q U O T E N O N I M M E D
0006520 I A T E K I L L L I N E ) )
0006540 T ) \r ( S E T S Y N T A X (
0006560 Q U O T E % ; ) ( Q U O T E
0006600 ( S P L I C E F I R S T E
0006620 S C Q U O T E N O N I M M E D
0006640 I A T E K I L L L I N E ) )
0006660 F I L E R D T B L ) ) ) ( P
0006700 ( P R O G N ( \r S E T S Y N T
0006720 A X ( Q U O T E % ; ) ( Q
0006740 U O T E ( S P L I C E F I R
0006760 S T E S C Q U O T E N O N I
0007000 M M E D I A T E K I L L L I N
0007020 E ) ) T ) ( S E T S Y N T A
0007040 X ( Q U O T E % ; ) ( \r Q
0007060 U O T E ( S P L I C E F I R
0007100 S T E S C Q U O T E N O N I
0007120 M M E D I A T E K I L L L I N
0007140 E ) ) F I L E R D T B L ) ) )
0007160 ( P ( P R O G N ( S E T S
0007200 Y N T A X ( Q U O T E % ; )
0007220 ( \r Q U O T E ( S P L I C E
0007240 F I R S T E S C Q U O T E
0007260 N O N I M M E D I A T E K I L
0007300 L L I N E ) ) T ) ( S E T S
0007320 Y N T A X ( Q U O T E % ; )
0007340 ( Q U O T E ( S P L I C E
0007360 F I R S T \r E S C Q U O T E
0007400 N O N I M M E D I A T E K I L
0007420 L L I N E ) ) F I L E R D T B
0007440 L ) ) ) ( D E C L A R E : D
0007460 O N T E V A L @ L O A D D O E
0007500 V A L @ C O M P I L E D O N T
0007520 C O P Y \r C O M P I L E R V A
0007540 R S ( A D D V A R S ( N L A
0007560 M A D E F M A C R O C D E F
0007600 F I L E S ) ( N L A M L D E
0007620 F V A R D E F C M D ) ( L A
0007640 M A ) ) ) ) ) \r ( P U T P R O P
0007660 S D E F R E C O R D M A C R
0007700 O ( * * M A C R O A R G * *
0007720 ( L E T ( ( N A M E ( C A R
0007740 ( N T H * * M A C R O A R G
0007760 * * 1 ) ) ) ( T Y P E ( C
0010000 A R ( N T H \r * * M A C R O
0010020 A R G * * 2 ) ) ) ( F I E L
0010040 D S ( N T H * * M A C R O A
0010060 R G * * 3 ) ) ) ( L E T *
0010100 ( ( S L O T S ( M A P C A R
0010120 F I E L D S ( Q U O T E ( L
0010140 A M B D A ( F I E L D ) ( \r
0010160 C O N D ( ( A T O M F I E L
0010200 D ) F I E L D ) ( T ( C A
0010220 R F I E L D ) ) ) ) ) ) ) (
0010240 I N I T I A L I Z E R S ( M A
0010260 P C O N C F I E L D S ( Q U
0010300 O T E ( L A M B D A ( F I E
0010320 L D ) ( \r C O N D ( ( A T O
0010340 M F I E L D ) N I L ) ( T
0010360 ( L I S T ( C A R F I E L
0010400 D ) ( Q U O T E _ ) ( C A
0010420 D R F I E L D ) ) ) ) ) ) ) )
0010440 ( A C C E S S O R S ( M A P
0010460 C A R S L O T S ( \r Q U O T
0010500 E ( L A M B D A ( S L O T )
0010520 ( B Q U O T E ( D E F M A C
0010540 R O C ( \ , S L O T ) ( X
0010560 ) ( L I S T ( Q U O T E F
0010600 E T C H ) ( Q U O T E ( \ ,
0010620 S L O T ) ) ( Q U O T E O
0010640 F ) \r X ) ) ) ) ) ) ) ( S E
0010660 T F F O R M S ( M A P C A R
0010700 S L O T S ( Q U O T E ( L A
0010720 M B D A ( S L O T ) ( B Q U
0010740 O T E ( P U T P R O P ( Q U
0010760 O T E ( \ , S L O T ) ) (
0011000 Q U O T E \r S E T F D E F )
0011020 ( Q U O T E ( R E P L A C E
0011040 ( \ , S L O T ) O F D A T
0011060 U M W I T H N E W V A L U E
0011100 ) ) ) ) ) ) ) ) ) ( Q P . A D
0011120 D T O F I L E N A M E ( Q U
0011140 O T E R E C O R D S ) ) \r (
0011160 F O R S L O T I N S L O T
0011200 S D O ( Q P . A D D T O F I
0011220 L E ( L I S T S L O T ( Q
0011240 U O T E S E T F D E F ) ) (
0011260 Q U O T E P R O P S ) ) ) (
0011300 B Q U O T E ( P R O G N ( (
0011320 \ , \r T Y P E ) ( \ , N A
0011340 M E ) ( \ , S L O T S ) (
0011360 \ , @ I N I T I A L I Z E R S
0011400 ) ) ( \ , @ A C C E S S O R
0011420 S ) ( \ , @ S E T F F O R M
0011440 S ) ( Q U O T E ( \ , N A
0011460 M E ) ) ) ) ) ) ) ) \r ( P U T P
0011500 R O P S D E F U N C M A C R
0011520 O ( * * M A C R O A R G * *
0011540 ( L E T ( ( N A M E ( C A R
0011560 ( N T H * * M A C R O A R G
0011600 * * 1 ) ) ) ( A R G S ( C
0011620 A R ( N T H \r * * M A C R O
0011640 A R G * * 2 ) ) ) ( B O D Y
0011660 ( N T H * * M A C R O A R G
0011700 * * 3 ) ) ) ( Q P . A D D T
0011720 O F I L E N A M E ( Q U O T
0011740 E F N S ) ) ( L I S T ( Q
0011760 U O T E P U T D Q ) \r N A M
0012000 E ( C O N D ( ( E Q A R G
0012020 S ( Q U O T E F E X P R ) )
0012040 ( C O N S ( Q U O T E N L
0012060 A M B D A ) B O D Y ) ) ( (
0012100 E Q A R G S ( Q U O T E E
0012120 X P R ) ) ( C O N S ( Q U O
0012140 T E \r L A M B D A ) B O D Y
0012160 ) ) ( T ( C O N S ( Q U O
0012200 T E L A M B D A ) ( C O N S
0012220 A R G S B O D Y ) ) ) ) ) )
0012240 ) ) \r ( P U T P R O P S D E F
0012260 U N C O M P I L E D M A C R O
0012300 ( * * M A C R O A R G * * (
0012320 L E T ( ( N A M E ( C A R
0012340 ( N T H * * M A C R O A R G *
0012360 * 1 ) ) ) ( R E S T ( N T
0012400 H \r * * M A C R O A R G * *
0012420 2 ) ) ) ( L I S T ( Q U O T
0012440 E P R O G N ) ( B Q U O T E
0012460 ( D E F U N C ( \ , N A M
0012500 E ) ( \ , @ R E S T ) ) )
0012520 ( B Q U O T E ( \r M A K E . S
0012540 U R E . C O M P I L E D ( \ ,
0012560 N A M E ) ) ) ) ) ) ) \r ( P U
0012600 T P R O P S D E F V A R M A
0012620 C R O ( * * M A C R O A R G *
0012640 * ( L E T ( ( V A R ( C A
0012660 R ( N T H * * M A C R O A R
0012700 G * * 1 ) ) ) ( B I N D I N
0012720 G ( C A R ( N T H \r * * M
0012740 A C R O A R G * * 2 ) ) ) )
0012760 ( Q P . A D D T O F I L E V A
0013000 R ( Q U O T E V A R S ) )
0013020 ( B Q U O T E ( S E T Q ( \
0013040 , V A R ) ( \ , B I N D I
0013060 N G ) ) ) ) ) ) \r ( P U T P R O
0013100 P S E V A L . O N . L O A D
0013120 M A C R O ( * * M A C R O A R
0013140 G * * ( L E T ( ( F O R M
0013160 ( C A R ( N T H * * M A C R
0013200 O A R G * * 1 ) ) ) ) ( Q P
0013220 . A D D T O F I L E F O R M \r
0013240 ( Q U O T E P ) ) F O R M
0013260 ) ) ) \r ( P U T P R O P S I N
0013300 C F M A C R O ( * * M A C R
0013320 O A R G * * ( L E T ( ( A C
0013340 C E S S ( C A R ( N T H *
0013360 * M A C R O A R G * * 1 ) ) )
0013400 ( A M O U N T ( C A R ( N
0013420 T H \r * * M A C R O A R G * *
0013440 2 ) ) ) ) ( C O N D ( ( E
0013460 Q A M O U N T N I L ) ( S
0013500 E T Q A M O U N T 1 ) ) )
0013520 ( B Q U O T E ( S E T F ( \
0013540 , A C C E S S ) ( I P L U S
0013560 ( \ , \r A C C E S S ) ( \
0013600 , A M O U N T ) ) ) ) ) ) ) \r
0013620 ( P U T P R O P S I N C R M
0013640 A C R O ( * * M A C R O A R G
0013660 * * ( L E T ( ( V A R ( C
0013700 A R ( N T H * * M A C R O A
0013720 R G * * 1 ) ) ) ( C O U N T
0013740 ( C A R ( N T H \r * * M A
0013760 C R O A R G * * 2 ) ) ) ) (
0014000 B Q U O T E ( S E T Q ( \ ,
0014020 V A R ) ( I P L U S ( \ ,
0014040 V A R ) ( \ , ( O R C O
0014060 U N T 1 ) ) ) ) ) ) ) ) \r ( P
0014100 U T P R O P S M A K E . S U R
0014120 E . C O M P I L E D M A C R O
0014140 ( * * M A C R O A R G * * (
0014160 L E T ( ( F U N C T I O N (
0014200 C A R ( N T H * * M A C R O
0014220 A R G * * 1 ) ) ) ) ( B Q U
0014240 O T E \r ( C O N D ( ( N O T
0014260 ( E Q ( T Y P E N A M E (
0014300 G E T D ( Q U O T E ( \ ,
0014320 F U N C T I O N ) ) ) ) ( Q U
0014340 O T E C C O D E P ) ) ) ( C
0014360 O M P I L E ! ( Q U O T E (
0014400 \ , F U N C T I O N \r ) ) ) )
0014420 ) ) ) ) ) \r ( P U T P R O P S
0014440 M U L T I P L E . V A L U E . B
0014460 I N D M A C R O ( * * M A C
0014500 R O A R G * * ( L E T ( ( V
0014520 A R S ( C A R ( N T H * *
0014540 M A C R O A R G * * 1 ) ) )
0014560 ( F O R M ( C A R ( \r N T H
0014600 * * M A C R O A R G * * 2 )
0014620 ) ) ( B O D Y ( N T H * *
0014640 M A C R O A R G * * 3 ) ) )
0014660 ( L E T * ( ( F I R S T ( C
0014700 A R V A R S ) ) ( A L L B U
0014720 T F I R S T ( C D R V A R S
0014740 ) ) \r ( C O U N T E R 0 )
0014760 ( B I N D E R S ( M A P C A R
0015000 A L L B U T F I R S T ( Q U
0015020 O T E ( L A M B D A ( V A R
0015040 ) ( S E T Q C O U N T E R
0015060 ( A D D 1 C O U N T E R ) )
0015100 ( L I S T V A R \r ( P A C K
0015120 ( L I S T ( Q U O T E M V
0015140 . R E T U R N E R ) C O U N T
0015160 E R ) ) ) ) ) ) ) ) ( B Q U O
0015200 T E ( L E T ( ( \ , ( L I
0015220 S T F I R S T F O R M ) )
0015240 ( \ , @ B I N D E R S ) ) (
0015260 \r \ , @ B O D Y ) ) ) ) ) ) )
0015300 \r ( P U T P R O P S M U L T I
0015320 P L E . V A L U E . S E T Q M
0015340 A C R O ( * * M A C R O A R G
0015360 * * ( L E T ( ( V A R S (
0015400 C A R ( N T H * * M A C R O
0015420 A R G * * 1 ) ) ) ( F O R M
0015440 ( C A R ( \r N T H * * M A
0015460 C R O A R G * * 2 ) ) ) ( B
0015500 O D Y ( N T H * * M A C R O
0015520 A R G * * 3 ) ) ) ( L E T *
0015540 ( ( F I R S T ( C A R V A
0015560 R S ) ) ( A L L B U T F I R S
0015600 T ( C D R V A R S ) ) \r (
0015620 C O U N T E R 0 ) ( B I N D
0015640 E R S ( M A P C A R A L L B
0015660 U T F I R S T ( Q U O T E (
0015700 L A M B D A ( V A R ) ( S E
0015720 T Q C O U N T E R ( A D D 1
0015740 C O U N T E R ) ) ( L I S T
0015760 ( \r Q U O T E S E T Q ) V
0016000 A R ( P A C K ( L I S T (
0016020 Q U O T E M V . R E T U R N E
0016040 R ) C O U N T E R ) ) ) ) ) )
0016060 ) ) ( B Q U O T E ( P R O G
0016100 N ( S E T Q ( \ , F I R S
0016120 T ) F O R M ) \r ( \ , @ B
0016140 I N D E R S ) ( \ , @ B O D
0016160 Y ) ) ) ) ) ) ) \r ( P U T P R O
0016200 P S P U T P R O P C M A C R
0016220 O ( * * M A C R O A R G * *
0016240 ( L E T ( ( A T O M ( C A R
0016260 ( N T H * * M A C R O A R G
0016300 * * 1 ) ) ) ( P R O P E R T
0016320 Y ( C A R ( N T H \r * * M
0016340 A C R O A R G * * 2 ) ) ) (
0016360 V A L U E ( C A R ( N T H
0016400 * * M A C R O A R G * * 3 ) )
0016420 ) ) ( Q P . A D D T O F I L E
0016440 ( L I S T ( E V A L A T O
0016460 M ) ( E V A L P R O P E R T
0016500 Y ) ) \r ( Q U O T E P R O P
0016520 S ) ) ( B Q U O T E ( P U T
0016540 P R O P ( \ , A T O M ) (
0016560 \ , P R O P E R T Y ) ( \ ,
0016600 V A L U E ) ) ) ) ) ) \r ( P U
0016620 T P R O P S V A L U E S M A
0016640 C R O ( * * M A C R O A R G *
0016660 * ( L E T ( ( R E T U R N S
0016700 ( N T H * * M A C R O A R G
0016720 * * 1 ) ) ) ( L E T * ( (
0016740 F I R S T ( C A R R E T U R
0016760 N S ) \r ) ( A L L B U T F I R
0017000 S T ( C D R R E T U R N S )
0017020 ) ) ( C O N D ( ( N U L L
0017040 A L L B U T F I R S T ) F I R
0017060 S T ) ( T ( L E T * ( ( C
0017100 O U N T E R 0 ) ( F O R M S
0017120 ( M A P C A R \r A L L B U T
0017140 F I R S T ( Q U O T E ( L A
0017160 M B D A ( V A R ) ( S E T Q
0017200 C O U N T E R ( A D D 1 C
0017220 O U N T E R ) ) ( B Q U O T E
0017240 ( S E T Q ( \ , ( P A C K
0017260 ( L I S T ( Q U O T E \r M
0017300 V . R E T U R N E R ) C O U N
0017320 T E R ) ) ) ( \ , V A R ) )
0017340 ) ) ) ) ) ) ( B Q U O T E (
0017360 P R O G N ( \ , @ F O R M S
0017400 ) ( S E T Q M V . N A R G S
0017420 ( \ , ( L E N G T H R E T
0017440 U R N S ) \r ) ) ( \ , F I R
0017460 S T ) ) ) ) ) ) ) ) ) ) \r ( P R
0017500 O G N ( S E T S Y N T A X (
0017520 Q U O T E % ; ) ( Q U O T E
0017540 ( S P L I C E F I R S T E
0017560 S C Q U O T E N O N I M M E D
0017600 I A T E K I L L L I N E ) )
0017620 T ) ( S E T S Y N T A X ( \r
0017640 Q U O T E % ; ) ( Q U O T E
0017660 ( S P L I C E F I R S T E
0017700 S C Q U O T E N O N I M M E D
0017720 I A T E K I L L L I N E ) )
0017740 F I L E R D T B L ) ) \r ( P R O
0017760 G N ( S E T S Y N T A X ( Q
0020000 U O T E % ; ) ( Q U O T E
0020020 ( S P L I C E F I R S T E S
0020040 C Q U O T E N O N I M M E D I
0020060 A T E K I L L L I N E ) ) T
0020100 ) ( S E T S Y N T A X ( \r Q
0020120 U O T E % ; ) ( Q U O T E
0020140 ( S P L I C E F I R S T E S
0020160 C Q U O T E N O N I M M E D I
0020200 A T E K I L L L I N E ) ) F
0020220 I L E R D T B L ) ) \r ( P R O G
0020240 N ( S E T S Y N T A X ( Q U
0020260 O T E % ; ) ( Q U O T E (
0020300 S P L I C E F I R S T E S C
0020320 Q U O T E N O N I M M E D I A
0020340 T E K I L L L I N E ) ) T )
0020360 ( S E T S Y N T A X ( \r Q U
0020400 O T E % ; ) ( Q U O T E (
0020420 S P L I C E F I R S T E S C
0020440 Q U O T E N O N I M M E D I A
0020460 T E K I L L L I N E ) ) F I
0020500 L E R D T B L ) ) \r ( P R O G N
0020520 ( S E T S Y N T A X ( Q U O
0020540 T E % ; ) ( Q U O T E ( S
0020560 P L I C E F I R S T E S C Q
0020600 U O T E N O N I M M E D I A T
0020620 E K I L L L I N E ) ) T )
0020640 ( S E T S Y N T A X ( \r Q U O
0020660 T E % ; ) ( Q U O T E ( S
0020700 P L I C E F I R S T E S C Q
0020720 U O T E N O N I M M E D I A T
0020740 E K I L L L I N E ) ) F I L
0020760 E R D T B L ) ) \r ( P R O G N
0021000 ( S E T S Y N T A X ( Q U O T
0021020 E % ; ) ( Q U O T E ( S P
0021040 L I C E F I R S T E S C Q U
0021060 O T E N O N I M M E D I A T E
0021100 K I L L L I N E ) ) T ) (
0021120 S E T S Y N T A X ( \r Q U O T
0021140 E % ; ) ( Q U O T E ( S P
0021160 L I C E F I R S T E S C Q U
0021200 O T E N O N I M M E D I A T E
0021220 K I L L L I N E ) ) F I L E
0021240 R D T B L ) ) \r ( P U T P R O P
0021260 S U T I L . L S P C O P Y R
0021300 I G H T ( " X e r o x C o r
0021320 p o r a t i o n " 1 9 8 5 ) )
0021340 \r N I L \r
0021345