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