$ od -c -N 50000 [eris]<Lisp>JCAI>sources>MACROS.DCOM!1
0000000 ( F I L E C R E A T E D " 2 2
0000020 - J u l - 8 5 1 9 : 0 4 : 2 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 S
0000120 . ; 3 1 ) \r " 2 1 - J u l - 8
0000140 5 1 9 : 4 1 : 0 7 " b r e c
0000160 o m p i l e d c h a n g e s :
0000200 n o t h i n g i n " I N T
0000220 E R L I S P - D 2 1 - J u l -
0000240 8 5 . . . " d a t e d \r "
0000260 2 1 - J u l - 8 5 1 9 : 5 5 :
0000300 1 8 " ) \r ( F I L E C R E A T E
0000320 D " 2 2 - J u l - 8 5 1 9 :
0000340 0 3 : 2 2 " { E R I S } < L I
0000360 S P C O R E > S O U R C E S > M
0000400 A C R O S . ; 3 1 2 9 3 9 1
0000420 c h a n g e s t o : ( F I L
0000440 E P K G C O M S \r M A C R O S
0000460 ) p r e v i o u s d a t e :
0000500 " 1 8 - J u l - 8 5 2 1 : 3
0000520 6 : 4 4 " { E R I S } < L I S
0000540 P C O R E > S O U R C E S > M A
0000560 C R O S . ; 3 0 ) \r G E T M A C
0000600 R O P R O P D 1 \r ( L ( 1
0000620 P R O P S 0 F N ) ) \0 027 002
0000640 \0 \0 002 A 021 021 001 H 003 265 004 h 020 001 271 @
0000660 I 033 265 372 H 002 X 260 361 \0 N I L \r N I
0000700 L \r ( ) \r M A C R O E X P A N S
0000720 I O N D 1 \r ( P 5 P R E D
0000740 F P 4 P C F P 3 N C
0000760 F P 2 V C F P 1 E F
0001000 F P 0 E X P I 3 C O
0001020 M P I L E . C O N T E X T I
0001040 2 C O M P F L G I 1 M A
0001060 C R O D E F I 0 E X P R
0001100 F 6 L A M B D A S P L S T )
0001120 \0 323 006 001 \0 004 A 003 265 004 @ 020 001 265 022
0001140 A d 002 002 227 277 g \0 \0 A 002 032 020 002 001 020
0001160 d g \0 \0 360 245 d g \0 \0 360 225 277 A @ 002
0001200 032 020 d g \0 \0 360 225 A 002 @ 002 032 020 d g
0001220 \0 \0 360 227 277 A @ 002 \n \0 \0 020 d g \0 \0
0001240 360 263 272 d g \0 \0 360 263 263 g \0 \0 360 235 A
0001260 002 001 @ A 002 002 \t \0 \0 \v \0 \0 020 A d 001
0001300 003 262 030 001 @ 002 A d 002 002 227 277 g \0 \0 A
0001320 002 032 201 002 001 \v \0 \0 020 001 004 l 004 360 242 261
0001340 377 | A d 001 V 034 263 227 277 B 251 A \t \0 \0
0001360 222 261 377 j B 233 g \0 \0 A 032 @ 002 \n \0 \0
0001400 260 035 @ C g \0 \0 360 C g \0 \0 360 h 360 021
0001420 3 005 g \0 \0 A 032 @ 002 \n \0 \0 022 b 002 g
0001440 \0 \0 360 222 261 377 7 A 020 \0 ( 3 0 4 Q
0001460 A P P L Y 2 5 0 Q A P P L Y
0001500 2 3 0 Q M U S T C O M P I L
0001520 E M A C R O P 2 0 0 Q S U B
0001540 P A I R 1 4 4 Q D E F M A C
0001560 R O . E X P A N D 1 4 1 Q M
0001600 K P R O G N 1 0 3 Q E X P A
0001620 N D O P E N L A M B D A ) \r ( 3
0001640 1 2 Q I G N O R E M A C R O
0001660 2 7 5 Q N L A M B D A 2 6 4
0001700 Q E F F E C T 2 5 7 Q E F
0001720 F E C T 2 4 1 Q N L A M B D
0001740 A 1 6 7 Q P R O G N 1 2 5
0001760 Q D E F M A C R O 1 1 7 Q
0002000 A P P L Y * 1 1 0 Q A P P L
0002020 Y 7 2 Q O P E N L A M B D A
0002040 5 6 Q = 4 2 Q N L A M B
0002060 D A 3 4 Q L A M B D A 2 1
0002100 Q P R O G N ) \r ( ) \r E X P A
0002120 N D M A C R O A 0 0 0 1 D 1 \r
0002140 ( N A M E E R R O R S E T F
0002160 0 E X P F 1 M A C R O
0002200 Y ) \0 020 \0 002 002 \0 P h i \v \0 \0 277
0002220 i \t \0 \0 c 002 i 020 \0 ( 1 2 Q T E
0002240 R P R I 5 P R I N T D E F )
0002260 \r N I L \r ( ) \r E X P A N D M A
0002300 C R O D 1 \r ( P 1 1 Q R E
0002320 S E T S T A T E P 1 0 Q M
0002340 A C R O Y P 6 O L D V A L
0002360 U E P 5 P C F P 4 N
0002400 C F P 3 M A C R O D E F
0002420 P 2 A L L F L G P 1 E
0002440 F F P 0 V C F I 3 C
0002460 O M P I L E . C O N T E X T I
0002500 2 O P T I O N S I 1 Q
0002520 U I E T F L G I 0 E X P
0002540 F 1 2 Q R E S E T V A R S L
0002560 S T F 1 3 Q C O M P I L E
0002600 R M A C R O P R O P S ) \0 206 \n
0002620 002 \0 004 C g \0 \0 360 h 360 C g \0 \0 360 021
0002640 B 005 @ 003 262 , J g \0 \0 360 236 @ d ` \0
0002660 \0 035 230 ` \0 \0 035 b \0 260 352 @ 001 W 026 \n
0002700 \0 \0 273 @ d K \n \0 \0 b \0 360 242 J 263 324
0002720 A 221 @ 020 i \t \0 \0 021 1 \t g \0 \0 N h
0002740 032 032 h 032 W 024 032 c 024 _ 016 277 o \0 \0 \0
0002760 g \0 \0 \n \0 \0 245 g \0 \0 _ 022 277 O 016 002
0003000 c 024 277 g \0 \0 O 016 001 001 002 \n \0 \0 277 O
0003020 022 264 006 \b \0 \0 h 020 \0 ( 2 0 2 Q E
0003040 R R O R ! 1 7 2 Q A P P L Y
0003060 1 4 2 Q E X P A N D M A C R
0003100 O A 0 0 0 1 1 0 4 Q O U T P
0003120 U T 6 5 Q M A C R O E X P A
0003140 N S I O N 5 6 Q G E T M A C
0003160 R O P R O P ) \r ( 1 6 2 Q O U
0003200 T P U T 1 4 6 Q E R R O R
0003220 1 3 7 Q I N T E R N A L 1 1
0003240 2 Q O U T P U T 4 2 Q C L
0003260 I S P A R R A Y 3 5 Q C L I
0003300 S P A R R A Y 2 6 Q C L I S
0003320 P 1 2 Q E F F E C T 3 E
0003340 F F E C T ) \r ( 1 3 4 Q ( E
0003360 X P A N D M A C R O A 0 0 0 1 )
0003400 ) \r M U S T C O M P I L E M A C
0003420 R O P D 1 \r ( P 0 Y I
0003440 1 S A F E F L G I 0 X
0003460 F 1 U N S A F E M A C R O A
0003500 T O M S F 2 S H O U L D C
0003520 O M P I L E M A C R O A T O M S
0003540 ) \0 ; 001 002 \0 002 @ 003 262 , @ d 001 g
0003560 \0 \0 360 262 036 277 A 264 * @ 002 001 i b 002 277
0003600 b \0 260 347 d 001 021 001 \0 H A \n \0 \0 022 244
0003620 002 003 265 362 h 020 @ Q 034 265 \b A 264 005 @ R
0003640 034 020 \0 ( 4 5 Q M U S T C O M P
0003660 I L E M A C R O P ) \r ( 1 1 Q
0003700 Q U O T E ) \r ( ) \r E X P A N D
0003720 O P E N L A M B D A D 1 \r ( P
0003740 1 5 Q A P 7 T M P P
0003760 6 G E N A R G S P 5 V
0004000 A L P 4 S U B S T P A I R
0004020 S P 3 V A L S P 2 A
0004040 R G S P 1 A P 0 F O
0004060 R M A L S I 1 A C T U A L
0004100 S I 0 O P E N L A M ) \0
0004120 376 016 \0 \0 002 @ 002 001 021 221 \t H 003 265 004 260
0004140 025 001 271 A 003 265 w H 207 d 001 h 032 L 032 274
0004160 002 003 265 367 K 265 D @ 002 002 b \0 277 L 232 J
0004200 265 V L @ \n \0 \0 b \0 277 J 242 261 \0 275 g
0004220 \0 \0 J \t \0 \0 Z g \0 \0 g \0 \0 J \t \0
0004240 \0 032 h 032 032 @ \t \0 \0 032 032 032 K \t \0 \0
0004260 A \t \0 \0 \n \0 \0 032 020 001 _ 022 230 O 022 l
0004300 \b \n \0 \0 262 263 J 001 J 002 272 K 001 K 002 273
0004320 032 L 032 274 260 240 021 0 \f J 260 ^ 001 ] \t \0
0004340 \0 _ 016 262 037 I O 016 001 _ 020 d 237 d i 360
0004360 253 3 020 265 \n g \0 \0 O 020 h 032 032 032 L 032
0004400 274 207 I J 032 272 M K 032 273 H 002 270 A 002 b
0004420 002 277 261 377 I d 001 021 001 \r O 032 \b \0 \0 \n
0004440 \0 \0 022 _ 024 277 O 026 265 \t O 024 h 032 _ 030
0004460 202 O 024 & _ 026 277 002 003 265 334 O 030 022 Z @
0004500 \v \0 \0 b \0 277 261 377 < A @ \n \0 \0 \t \0
0004520 \0 020 \0 ( 3 7 3 Q M K P R O G N
0004540 3 7 0 Q \ N C O N C 2 3 5
0004560 5 Q S U B P A I R 3 1 4 Q
0004600 P A C K * 3 1 1 Q G E N S Y
0004620 M 2 1 3 Q C O N S T A N T E
0004640 X P R E S S I O N P 1 5 6 Q
0004660 \ T Y P E M A S K . U F N 1 4
0004700 1 Q \ A P P E N D 2 1 3 6 Q
0004720 \ A P P E N D 2 1 3 2 Q R
0004740 E V E R S E 1 2 3 Q \ A P P
0004760 E N D 2 1 1 3 Q \ A P P E N
0005000 D 2 1 0 0 Q R E V E R S E
0005020 6 1 Q S U B L I S ) \r ( 2 4 2
0005040 Q Q U O T E 1 0 7 Q L O C
0005060 A L V A R S 1 0 4 Q D E C L
0005100 A R E 7 4 Q L A M B D A ) \r
0005120 ( ) \r \ L E T t r a n D 1 \r (
0005140 L ( 1 S E Q U E N T I A L P
0005160 0 L E T T A I L ) ) 001 034 \t
0005200 \0 \0 002 021 @ 003 @ 001 260 : d 001 [ d 003 221
0005220 001 [ 234 K d i 360 250 d 004 l 004 360 263 030 277
0005240 K 004 l 004 360 224 o \0 \0 \0 203 o \0 \0 \0 K
0005260 \n \0 \0 277 K 270 I 265 \a H h 032 Z 201 H &
0005300 271 002 003 265 307 J 022 021 @ 003 @ 001 260 $ d 001
0005320 [ 003 264 021 K d 002 002 227 277 g \0 \0 K 002 032
0005340 201 002 001 270 I 265 \a H h 032 Z 201 H & 271 002
0005360 003 265 335 J 022 @ 002 021 # 004 A 251 g \0 \0 H
0005400 J 032 032 I 032 020 H 002 263 036 A g \0 \0 360 225
0005420 g \0 \0 @ 032 020 g \0 \0 H J \t \0 \0 032 032
0005440 I \t \0 \0 032 020 J \t \0 \0 Z d 001 J 002 272
0005460 [ J 001 J 002 272 \ A g \0 \0 360 231 g \0 \0
0005500 h J 032 032 h 032 272 I 002 \t \0 \0 H 002 \t \0
0005520 \0 021 " \b N 003 265 003 207 001 _ 016 277 M 003 265
0005540 ! 023 g \0 \0 H 001 h 032 K \t \0 \0 L \t \0
0005560 \0 J \n \0 \0 \n \0 \0 032 032 I 001 h 032 032 020
0005600 001 _ 020 277 g \0 \0 O 016 h 032 J 032 032 O 020
0005620 h 032 032 h 032 272 N 002 276 M 002 275 260 270 \0 (
0005640 3 6 4 Q \ N C O N C 2 3 6 1
0005660 Q \ N C O N C 2 3 5 5 Q D
0005700 R E V E R S E 3 5 1 Q D R E
0005720 V E R S E 3 1 5 Q D R E V E
0005740 R S E 3 1 0 Q D R E V E R S
0005760 E 2 4 6 Q \ D E C L . C O M
0006000 N T . P R O C E S S 2 4 0 Q
0006020 \ A P P E N D 2 2 3 2 Q \ A
0006040 P P E N D 2 5 7 Q L I S P E
0006060 R R O R ) \r ( 4 0 3 Q L A M B
0006100 D A 3 4 1 Q L A M B D A 2
0006120 7 4 Q P R O G 2 6 7 Q P R
0006140 O G * 2 2 5 Q L A M B D A
0006160 2 1 7 Q P R O G 2 1 2 Q P
0006200 R O G * 1 7 3 Q L A M B D A
0006220 1 3 1 Q P R O G 1 ) \r ( 5
0006240 3 Q " A R G N O T L I T A
0006260 T O M " 4 6 Q " A T T E M P
0006300 T T O B I N D N I L O R
0006320 T " ) \r D E F M A C R O D 1
0006340 \r ( I 0 L ) \0 022 \0 \0 003 001 @
0006360 001 g \0 \0 g \0 \0 @ 002 032 \v \0 \0 @ 001 020
0006400 \0 ( 1 5 Q S A V E P U T ) \r (
0006420 7 D E F M A C R O 4 M A C
0006440 R O ) \r ( ) \r D E F M A C R O .
0006460 E X P A N D D 1 \r ( I 3 D
0006500 E F A U L T . V A L U E I 2
0006520 M A C R O . B O D Y I 1
0006540 M A C R O . E X P R E S S I O N
0006560 I 0 M A C R O . V A R S )
0006600 \0 023 \0 \0 \0 004 B @ A 002 \n \0 \0 \n \0
0006620 \0 d g \0 \0 360 220 A 020 \0 ( 1 1 Q E
0006640 V A L A 6 D E S T R U C T U
0006660 R E . A L I S T ) \r ( 1 5 Q I
0006700 G N O R E M A C R O ) \r ( ) \r D
0006720 E S T R U C T U R E . A L I S T
0006740 D 1 \r ( P 7 F M V P 6
0006760 F M V P 5 F M P 3
0007000 K E Y P 2 S V A R P 1
0007020 I N I T P 0 B I N D I N
0007040 G I 3 I N O P T I O N A L
0007060 I 2 T A I L I 1 F O
0007100 R M I 0 V A R S F 1 0
0007120 Q M A C R O . E X P R E S S I
0007140 O N F 1 1 Q D E F A U L T
0007160 . V A L U E ) 001 231 \b 002 \0 004 @ 265
0007200 004 B 020 003 245 @ A 032 B 032 020 @ 001 d g \0
0007220 \0 360 246 d g \0 \0 360 262 024 277 @ 002 002 @ 002
0007240 001 A 032 B 032 b 004 277 b \0 260 325 d g \0 \0
0007260 360 262 025 277 @ 002 002 @ 002 001 W 020 032 B 032 b
0007300 004 277 b \0 260 273 d g \0 \0 360 232 277 @ 002 i
0007320 b 006 277 b \0 260 252 d g \0 \0 360 262 277 @
0007340 002 A d 226 o \0 \0 \0 \n \0 \0 B g \0 \0 b
0007360 006 277 b 004 277 b 002 277 b \0 260 205 g \0 \0 360
0007400 242 261 \0 253 @ 002 b \0 d 265 004 B 020 001 d g
0007420 \0 \0 360 245 d g \0 \0 360 230 277 h b 006 277 277
0007440 261 377 ^ 277 @ 001 021 ! 002 H 003 264 \r H 002 001
0007460 H 002 002 001 272 H 001 270 271 H d 003 225 001 H 002
0007500 001 270 202 \t \0 \0 021 001 003 A 021 021 005 L ] 003
0007520 265 / h 022 021 001 006 J 265 033 H N 265 024 I \t
0007540 \0 \0 032 B 032 b 004 023 023 023 @ 002 b \0 260 233
0007560 001 260 361 N 264 003 i 032 B 032 b 004 277 260 335 001
0007600 \t \0 \0 221 M 204 M 001 \t \0 \0 021 001 \a O 016
0007620 265 \r g \0 \0 W 020 \n \0 \0 277 O 016 001 K 360
0007640 224 M 022 002 260 257 023 M 002 002 260 244 @ 002 A 002
0007660 C 262 F A 003 263 ' @ d 001 003 262 034 001 001 @
0007700 001 002 001 \t \0 \0 @ 001 002 002 262 = @ 001 002 002
0007720 001 h 032 B 032 260 3 001 W 022 260 - @ d 001 003
0007740 262 $ 001 001 A 001 @ 001 002 002 262 035 @ 001 002 002
0007760 001 i 032 B 032 260 023 A 003 250 o \0 \0 \0 @ \n
0010000 \0 \0 207 @ 001 A 001 B \v \0 \0 b 004 277 b 002
0010020 277 b \0 261 376 l \0 ( 6 1 4 Q D E S
0010040 T R U C T U R E . A L I S T 6
0010060 0 3 Q E R R O R 5 0 7 Q E
0010100 V A L 4 3 3 Q R E T F R O M
0010120 4 1 4 Q C O N S T A N T E X
0010140 P R E S S I O N P 4 0 4 Q \
0010160 K E Y W O R D P 3 4 3 Q E V
0010200 A L 3 0 7 Q \ M A K E . K E
0010220 Y W O R D 1 5 4 Q E R R O R
0010240 ) \r ( 4 2 6 Q D E F M A C R O
0010260 . E X P A N D 2 3 1 Q & A L
0010300 L O W - O T H E R - K E Y S 2
0010320 2 3 Q & R E S T 2 0 0 Q &
0010340 K E Y 1 6 0 Q A U X 1 3 4
0010360 Q & A U X 1 1 3 Q & O P T
0010400 I O N A L 6 1 Q & W H O L E
0010420 3 0 Q & B O D Y 2 2 Q &
0010440 R E S T ) \r ( 5 7 7 Q " m a
0010460 c r o b o d y m i s s i n g
0010500 v a l u e f o r " 1 5 1 Q
0010520 " t o o m a n y e x p r e
0010540 s s i o n s s u p p l i e d
0010560 t o m a c r o " ) \r M A C R O
0010600 S . G E T D E F D 1 \r ( P 4
0010620 X I 2 O P T I O N S I
0010640 1 T Y P E I 0 N A M E
0010660 F 5 M A C R O P R O P S )
0010700 \0 V 005 001 \0 003 @ \t \0 \0 021 A 004 H \
0010720 003 265 \b I 022 \t \0 \0 020 001 U 034 262 6 L 001
0010740 g \0 \0 360 262 027 L 002 001 001 g \0 \0 360 233 g
0010760 \0 \0 @ L 002 001 002 \t \0 \0 213 g \0 \0 @ L
0011000 001 L 002 001 h 032 032 032 032 273 J 265 \f K h 032
0011020 Z 271 L 002 002 260 272 K & 272 260 370 \0 ( 6 2
0011040 Q \ A P P E N D 2 2 0 Q M
0011060 K P R O G N 3 G E T P R O P
0011100 L I S T ) \r ( 6 6 Q P U T P R
0011120 O P S 5 2 Q D E F M A C R O
0011140 4 5 Q D E F M A C R O 3 3
0011160 Q M A C R O ) \r ( ) \r \ M A K
0011200 E . K E Y W O R D D 1 \r ( I
0011220 0 X ) \0 031 \0 \0 \0 001 @ k ) l :
0011240 360 252 o \0 \0 \0 @ \n \0 \0 b \0 200 @ d \n
0011260 \0 \0 020 \0 ( 2 6 Q S E T 1 6 Q
0011300 P A C K * ) \r N I L \r ( 1 2
0011320 Q " : " ) \r \ K E Y W O R D P
0011340 D 1 \r ( I 0 X ) \0 \b \0 \0
0011360 \0 001 @ k ) l : 360 020 \0 N I L \r N I
0011400 L \r ( ) \r C S E L E C T D 1 \r
0011420 ( L ( 0 L ) ) \0 262 \v \0 \0 001
0011440 021 0 002 @ d 002 241 001 020 001 005 001 252 @ 001 004
0011460 l 004 360 243 g \0 \0 270 g \0 \0 021 P \a @ 002
0011500 \ 003 265 " K 022 032 Y H 242 261 \0 205 g \0 \0
0011520 o \0 \0 \0 o \0 \0 \0 I h 032 032 032 032 @ 001
0011540 h 032 032 020 002 246 i L 001 h 032 260 M 021 0 \n
0011560 L 001 001 003 265 . L 001 001 h 032 260 ' d 001 272
0011600 g \0 \0 J H 265 004 @ 001 h 032 032 032 _ 020 277
0011620 O 022 265 \t O 020 h 032 _ 024 202 O 020 & _ 022
0011640 277 002 003 265 332 O 024 022 ] d 002 226 277 g \0 \0
0011660 M 032 200 001 ] L 001 002 032 276 O 016 265 \f N h
0011700 032 _ 016 273 L 261 377 z N & _ 016 277 260 367 I
0011720 020 \0 N I L \r ( 2 1 7 Q O R 1
0011740 4 2 Q E Q 5 7 Q L A M B D
0011760 A 3 2 Q C O N D 2 6 Q .
0012000 S E L E C . ) \r ( 6 7 Q ( D
0012020 E C L A R E ( L O C A L V A R
0012040 S . S E L E C . ) ) 6 3 Q
0012060 ( . S E L E C . ) ) \r P R I N T
0012100 C O M S T R A N D 1 \r ( P 2
0012120 3 Q R E S E T O U T P 2 2
0012140 Q T E M P P 2 1 Q A R G
0012160 P 1 5 Q W I D T H P 1
0012200 4 Q P O I N T P 1 3 Q T
0012220 Y P E P 1 2 Q A R G P
0012240 4 F O R M A T L I S T P 3
0012260 V A R S I 4 F R O M D W
0012300 I M I 3 F I L E F O R M
0012320 I 2 M A C R O S I 1 T
0012340 A I L I 0 F O R M F 2
0012360 4 Q P R I N T O U T T O K E N
0012400 S F 2 5 Q V A R S F 2
0012420 6 Q F A U L T F N ) 004 321 024 003
0012440 \0 005 D 264 & 021 0 002 B 217 d 001 001 270 I 265
0012460 \a H h 032 Z 201 H & 271 002 003 265 357 J 022 W
0012500 ( W * \n \0 \0 \n \0 \0 021 Q \b @ 002 021 A
0012520 \r O 022 003 265 U 023 D 234 @ 002 @ h d d W
0012540 , \r 006 \0 \0 277 C 265 8 @ k A 017 016 b 002
0012560 021 ` 023 A 265 003 202 261 \0 371 C d 001 242 261 004
0012600 J 277 O & 242 261 004 B g \0 \0 g \0 \0 C 001
0012620 C h 030 277 h 032 032 O 034 \t \0 \0 032 032 020 i
0012640 360 242 261 \0 301 i 261 \0 302 001 _ 024 004 l 004 360
0012660 242 261 \0 252 O 024 L 026 222 261 \0 242 O 024 \t \0
0012700 \0 l . 360 242 261 \0 226 O 024 l 002 ) _ 026 l
0012720 I 360 250 O 026 l F 360 242 261 \0 202 O 024 l 003
0012740 g \0 \0 O 024 l 003 \v \0 \0 _ 030 d 221 k 331
0012760 \v \0 \0 _ 032 3 262 d O 024 K 032 273 O 024
0013000 O 026 l I 360 223 g \0 \0 202 g \0 \0 O 032 021
0013020 0 002 O 030 262 - O 024 O 030 k 330 g \0 \0 O
0013040 024 O 030 k 330 \v \0 \0 _ 030 d 221 k 331 \v \0
0013060 \0 272 I 265 \t J h 032 Y 270 260 330 J & 271 260
0013100 323 H 022 032 032 ] d 236 d i 360 252 3 020 265 \t
0013120 g \0 \0 M h 032 032 032 L 032 274 O 022 002 _ 022
0013140 261 376 363 @ k C 017 016 h 032 b 006 277 261 376 374
0013160 001 B 026 _ $ 262 033 i _ & 277 O $ 002 001 276
0013200 A k N 017 016 b 002 001 A 002 b 002 277 261 003 036
0013220 A 001 A 002 b 002 277 _ " d g \0 \0 360 236 277
0013240 g \0 \0 A 001 A 002 b 002 277 j 261 002 371 g \0
0013260 \0 360 234 g \0 \0 A 001 A 002 b 002 277 261 002 346
0013300 O " j 360 246 O " d i 360 232 277 g \0 \0 C
0013320 \t \0 \0 261 002 327 g \0 \0 360 235 g \0 \0 o \0
0013340 \0 \0 C \t \0 \0 261 002 303 O " d g \0 \0 360
0013360 236 277 i _ & 277 A 001 A 002 b 002 277 261 002 256
0013400 g \0 \0 360 262 023 g \0 \0 A 001 A 002 b 002 277
0013420 C \t \0 \0 261 002 225 O " g \0 \0 360 263 033 O
0013440 " g \0 \0 360 263 023 O " g \0 \0 360 251 O "
0013460 d g \0 \0 360 262 < 277 g \0 \0 A 001 A 002 b
0013500 002 277 g \0 \0 C \t \0 \0 032 O " g \0 \0 360
0013520 265 \b O " g \0 \0 360 O " g \0 \0 360 265 \b
0013540 O " g \0 \0 360 h C \t \0 \0 032 032 032 261 002
0013560 : g \0 \0 360 262 % A 001 A 002 b 002 277 _ "
0013600 277 g \0 \0 O " d 3 230 277 g \0 \0 O "
0013620 \n \0 \0 C \t \0 \0 261 002 022 O " g \0 \0 360
0013640 263 023 O " g \0 \0 360 251 O " d g \0 \0 360
0013660 262 ` 277 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g
0013700 \0 \0 C \t \0 \0 032 032 g \0 \0 O " d g \0
0013720 \0 360 225 277 g \0 \0 260 026 g \0 \0 360 223 g \0
0013740 \0 212 O " g \0 \0 360 264 005 g \0 \0 _ 016 d
0013760 237 d i 360 253 3 020 265 \n g \0 \0 O 016 h 032
0014000 032 C \t \0 \0 032 032 h 032 032 032 h 032 261 001 234
0014020 g \0 \0 360 232 g \0 \0 k C \t \0 \0 261 001 214
0014040 O " d g \0 \0 360 234 277 g \0 \0 l 002 C \t
0014060 \0 \0 261 001 w g \0 \0 360 233 g \0 \0 l 003 C
0014100 \t \0 \0 261 001 f O " d g \0 \0 360 262 024 277
0014120 g \0 \0 A 001 A 002 b 002 277 C \t \0 \0 261 001
0014140 K g \0 \0 360 262 031 g \0 \0 A 001 A 002 b 002
0014160 277 g \0 \0 C \t \0 \0 032 h 032 261 001 . O "
0014200 d g \0 \0 360 262 025 277 g \0 \0 A 001 A 002 b
0014220 002 001 A 002 b 002 277 261 001 \r g \0 \0 360 263 033
0014240 O " g \0 \0 360 263 023 O " g \0 \0 360 251 O
0014260 " d g \0 \0 360 262 = 277 g \0 \0 A 001 A 002
0014300 b 002 001 A 002 b 002 277 j O " g \0 \0 360 247
0014320 O " g \0 \0 360 264 003 i O " g \0 \0 360 247
0014340 O " g \0 \0 360 264 003 i C \t \0 \0 032 032 032
0014360 261 \0 270 g \0 \0 360 251 O " d g \0 \0 360 262
0014400 ( 277 g \0 \0 A 001 A 002 b 002 001 A 002 b 002
0014420 001 A 002 b 002 277 O " g \0 \0 360 h C \t \0
0014440 \0 032 032 032 261 \0 204 g \0 \0 360 262 < g \0 \0
0014460 g \0 \0 l \f \t \0 \0 _ 020 d 237 d i 360 253
0014500 3 020 265 \n g \0 \0 O 020 h 032 032 C \t \0 \0
0014520 032 032 g \0 \0 g \0 \0 C \t \0 \0 032 o \0 \0
0014540 \0 032 032 h 032 260 D O " L 026 002 _ $ 235 g
0014560 \0 \0 O $ A 001 A 002 b 002 277 260 ) O " 3
0014600 252 g \0 \0 O " C \t \0 \0 260 036 j O "
0014620 363 233 g \0 \0 j O " 331 C \t \0 \0 212 g \0
0014640 \0 O " h C \t \0 \0 032 032 032 _ 277 O 036
0014660 265 016 O h 032 _ 036 _ 034 277 261 373 270 O
0014700 & _ 036 277 261 373 257 C 001 003 262 ! g \0 \0 o
0014720 \0 \0 \0 o \0 \0 \0 O 034 \t \0 \0 032 032 032 C
0014740 001 C g \0 \0 030 277 h 032 032 020 g \0 \0 O 034
0014760 032 020 \0 ( 2 2 7 1 Q \ A P P E N
0015000 D 2 2 2 0 5 Q \ A P P E N D
0015020 2 2 1 7 2 Q \ A P P E N D 2
0015040 2 1 5 0 Q \ A P P E N D 2
0015060 2 0 7 1 Q \ A P P E N D 2 2
0015100 0 5 5 Q \ A P P E N D 2 2 0
0015120 2 5 Q C H A R A C T E R 1 7
0015140 7 6 Q \ A P P E N D 2 1 7 1
0015160 2 Q \ A P P E N D 2 1 5 2 5
0015200 Q \ A P P E N D 2 1 4 7 3 Q
0015220 \ A P P E N D 2 1 4 4 0 Q
0015240 \ A P P E N D 2 1 4 1 7 Q \
0015260 A P P E N D 2 1 3 7 2 Q \ A
0015300 P P E N D 2 1 3 4 2 Q \ A P
0015320 P E N D 2 1 2 4 3 Q \ A P P
0015340 E N D 2 1 1 6 4 Q \ A P P E
0015360 N D 2 1 1 6 0 Q P A C K *
0015400 1 1 1 0 Q \ A P P E N D 2 1
0015420 0 4 6 Q \ A P P E N D 2 7 6
0015440 1 Q \ A P P E N D 2 7 0 3 Q
0015460 \ A P P E N D 2 6 6 0 Q \
0015500 A P P E N D 2 4 1 6 Q S U B
0015520 A T O M 4 0 5 Q S T R P O S
0015540 3 2 0 Q S U B A T O M 3 0
0015560 7 Q S T R P O S 2 3 6 Q C
0015600 H C O N 1 1 7 1 Q \ A P P E
0015620 N D 2 1 0 2 Q D W I M I F Y
0015640 0 ? 4 6 Q \ A P P E N D 2
0015660 4 3 Q \ A P P E N D 2 ) \r ( 2
0015700 3 1 3 Q P R O G N 2 3 0 2 Q
0015720 $ $ O U T P U T 2 2 5 4 Q
0015740 L A M B D A 2 1 7 6 Q T A B
0015760 2 1 6 2 Q S P A C E S 2 1
0016000 4 2 Q P R I N 1 2 1 1 7 Q
0016020 P R I N T N U M 2 0 6 5 Q P
0016040 R O G N 2 0 6 2 Q P O S I T
0016060 I O N 2 0 4 4 Q Q U O T E
0016100 2 0 2 0 Q P R I N 3 2 0 1 5
0016120 Q P R O G N 2 0 0 7 Q . P
0016140 A G E 1 7 7 0 Q . P A R A 2
0016160 1 7 4 2 Q P R I N T P A R A
0016200 1 7 3 3 Q . P A R A 2 1 7
0016220 2 3 Q . P A R A 1 7 0 2 Q
0016240 . C E N T E R 2 1 6 7 3 Q .
0016260 C E N T E R 1 6 6 2 Q . C E
0016300 N T E R 2 1 6 5 3 Q . F R 2
0016320 1 6 3 1 Q F L U S H R I G H
0016340 T 1 6 2 2 Q . C E N T E R 2
0016360 1 6 1 2 Q . C E N T E R 1
0016400 6 0 2 Q . F R 2 1 5 7 2 Q
0016420 . F R 1 5 5 0 Q P R I N T N
0016440 U M 1 5 4 1 Q . N 1 5 2 1
0016460 Q T E R P R I 1 5 0 7 Q F
0016500 R P T Q 1 5 0 1 Q . S K I P
0016520 1 4 6 0 Q S P A C E S 1 4
0016540 5 1 Q . S P 1 4 3 2 Q S P
0016560 A C E S 1 4 2 5 Q , , , 1
0016600 4 1 1 Q S P A C E S 1 4 0 3
0016620 Q , , 1 3 6 5 Q S P A C E
0016640 S 1 3 6 0 Q , 1 3 3 1 Q
0016660 Q U O T E 1 3 1 2 Q 016 1 3
0016700 0 4 Q . B A S E 1 2 7 6 Q
0016720 \b 1 2 7 1 Q . S U P 1 2 6
0016740 4 Q 024 1 2 5 6 Q . S U B
0016760 1 2 5 0 Q P R I N 3 1 2 3 7
0017000 Q S U P E R S C R I P T F O N
0017020 T 1 2 3 4 Q C H A N G E F O
0017040 N T 1 2 3 1 Q P R O G N 1
0017060 2 2 6 Q F O N T C H A N G E F
0017100 L G 1 2 2 3 Q A N D 1 2 1
0017120 4 Q . B A S E 1 2 0 4 Q .
0017140 S U P 1 1 7 4 Q . S U B 1
0017160 1 5 3 Q F O N T 1 1 4 1 Q
0017200 C H A N G E F O N T 1 1 2 1 Q
0017220 . F O N T 1 1 0 2 Q . P P
0017240 F T L 1 0 7 2 Q . P P V T L
0017260 1 0 6 4 Q . P P F T L 1 0
0017300 5 4 Q . P P F 1 0 4 2 Q P
0017320 O S I T I O N 1 0 3 0 Q P R
0017340 I N T D E F 1 0 2 1 Q . P P
0017360 V T L 1 0 1 1 Q . P P F T L
0017400 1 0 0 1 Q . P P V 7 7 1 Q
0017420 . P P F 7 4 6 Q P R I N 2
0017440 7 4 0 Q . P 2 7 1 4 Q #
0017460 6 7 3 Q P R I N 1 6 6 6 Q
0017500 . R E S E T 6 5 4 Q T E R
0017520 P R I 6 2 3 Q T A B 6 1 6
0017540 Q . T A B 6 0 0 Q T A B
0017560 5 7 2 Q . T A B 0 4 6 0 Q
0017600 Q U O T E 3 7 4 Q % . 3 5
0017620 2 Q F L O A T 3 4 6 Q F I
0017640 X 3 0 0 Q % . 1 5 3 Q O
0017660 U T P U T 1 5 0 Q R E S E T
0017700 F O R M ) \r ( 2 2 6 4 Q ( D
0017720 E C L A R E ( L O C A L V A R
0017740 S $ $ O U T P U T ) ) 2 2 6
0017760 0 Q ( $ $ O U T P U T ) 2 0
0020000 7 6 Q ( 0 ) 6 7 7 Q ( C O
0020020 N S T A N T ( C H A R A C T E
0020040 R ( C H A R C O D E C R ) )
0020060 ) ) \r ( P R E T T Y C O M P R I
0020100 N T M A C R O S C O M S ) \r (
0020120 R P A Q Q M A C R O S C O M S
0020140 ( ( P R O P M A C R O N E
0020160 Q N L I S T P Z E R O P A
0020200 D D 1 S U B 1 S E T Q Q E
0020220 R S E T Q N L S E T Q R P T
0020240 Q N C O N C 1 X N L S E T Q
0020260 \r U N D O N L S E T Q R E S
0020300 E T V A R R E S E T F O R M
0020320 R E S E T L S T R E S E T S A
0020340 V E R E S E T T O P V A L S
0020360 R E S E T B U F S S E L E C T
0020400 S E L E C T C I G E Q I L
0020420 E Q G E Q \r L E Q F L E S
0020440 S P I M I N I M A X P R O
0020460 G 2 E V E N P O D D P S I
0020500 G N E D U N S I G N E D B Q
0020520 U O T E L I S T * L E T L
0020540 E T * P R O G * P S E T Q )
0020560 ( A L I S T S ( \r P R E T T
0020600 Y E Q U I V L S T L E T L E
0020620 T * P R O G * ) ) ( C O M S
0020640 ( * M A C R O t r a n s l
0020660 a t i o n s ) ( F N S E X P
0020700 A N D M A C R O D E F M A C R
0020720 O D E F M A C R O . E X P A N
0020740 D \r D E S T R U C T U R E . A
0020760 L I S T M A C R O E X P A N S
0021000 I O N M A C R O S . G E T D E
0021020 F G E T M A C R O P R O P M
0021040 U S T C O M P I L E M A C R O P
0021060 E X P A N D O P E N L A M B D
0021100 A \r \ L E T t r a n \ M A K
0021120 E . K E Y W O R D \ K E Y W O
0021140 R D P ) ( B L O C K S ( N I
0021160 L G E T M A C R O P R O P M
0021200 A C R O E X P A N S I O N E X
0021220 P A N D M A C R O \r M U S T C
0021240 O M P I L E M A C R O P E X P
0021260 A N D O P E N L A M B D A \ L
0021300 E T t r a n ( L O C A L V A R
0021320 S . T ) ( S P E C V A R S
0021340 F A U L T X F A U L T A P P
0021360 L Y F L G E X P V C F P C
0021400 F \r N C F F A U L T F N E
0021420 X P R D W I M I F Y F L G )
0021440 ( G L O B A L V A R S N O F I
0021460 X F N S L S T B Y T E C O M P
0021500 F L G C L I S P A R R A Y B
0021520 Y T E M A C R O P R O P ) ( L
0021540 I N K F N S \r . T ) ) ) )
0021560 ( F I L E P K G C O M S M A C
0021600 R O S ) ( P R O P M A C R O
0021620 C O N S T A N T L O A D T I
0021640 M E C O N S T A N T D E F E R
0021660 R E D C O N S T A N T ) ( F N
0021700 S C S E L E C T ) ( \r C O M
0021720 S ( F N S P R I N T C O M S
0021740 T R A N ) ( G L O B A L V A R
0021760 S C O M M E N T F L G L C A
0022000 S E F L G P R I N T O U T M A
0022020 C R O S ) ( A D D V A R S (
0022040 P R I N T O U T M A C R O S ) )
0022060 ( \r V A R S P R I N T O U T
0022100 T O K E N S ) ( M A C R O S
0022120 P R I N T O U T p r i n t o u
0022140 t ) ) ( A D D V A R S * (
0022160 L I S T ( C O N S ( Q U O T
0022200 E S Y S P R O P S ) M A C R
0022220 O P R O P S ) ) ) \r ( P R O P
0022240 P R O P T Y P E * ( P R O
0022260 G N M A C R O P R O P S ) )
0022300 ( P R O P S E T F N G E T T
0022320 O P V A L ) ( D E C L A R E :
0022340 D O N T E V A L @ L O A D D
0022360 O E V A L @ C O M P I L E \r D
0022400 O N T C O P Y C O M P I L E R
0022420 V A R S ( A D D V A R S ( N
0022440 L A M A D E F M A C R O ) (
0022460 N L A M L ) ( L A M A ) ) ) )
0022500 ) \r ( P U T P R O P S N E Q
0022520 M A C R O ( ( X Y ) ( N U
0022540 L L ( E Q X Y ) ) ) ) \r (
0022560 P U T P R O P S N L I S T P
0022600 M A C R O ( ( X ) ( N U L L
0022620 ( L I S T P X ) ) ) ) \r ( P
0022640 U T P R O P S Z E R O P M A
0022660 C R O ( O P E N L A M B D A
0022700 ( X ) ( C O N D ( ( E Q X
0022720 0 ) ) ( ( F L O A T P X )
0022740 ( F E Q P X 0 . 0 ) ) ) )
0022760 ) \r ( P U T P R O P S A D D 1
0023000 M A C R O ( ( X ) ( I P L
0023020 U S X 1 ) ) ) \r ( P U T P R
0023040 O P S S U B 1 M A C R O (
0023060 ( X ) ( I D I F F E R E N C E
0023100 X 1 ) ) ) \r ( P U T P R O P
0023120 S S E T Q Q M A C R O ( (
0023140 X V ) ( S E T Q X ( Q U
0023160 O T E V ) ) ) ) \r ( P U T P R
0023200 O P S E R S E T Q M A C R O
0023220 ( ( X ) ( . E R R S E T Q .
0023240 X T ) ) ) \r ( P U T P R O P
0023260 S N L S E T Q M A C R O (
0023300 ( X . Y ) ( . E R R S E T
0023320 Q . ( P R O G N X . Y )
0023340 N I L ) ) ) \r ( P U T P R O P
0023360 S R P T Q M A C R O ( ( N
0023400 . F O R M S ) ( P R O G
0023420 ( ( R P T N N ) R P T V )
0023440 ( D E C L A R E ( L O C A L V
0023460 A R S R P T N R P T V ) )
0023500 R P T Q L A B ( C O N D \r (
0023520 ( I G R E A T E R P R P T N
0023540 0 ) ( S E T Q R P T V ( P
0023560 R O G N . F O R M S ) ) (
0023600 S E T Q R P T N ( S U B 1
0023620 R P T N ) ) ( G O R P T Q L
0023640 A B ) ) ) ( R E T U R N R P
0023660 T V ) ) ) \r ) \r ( P U T P R O P
0023700 S N C O N C 1 M A C R O (
0023720 ( L S T X ) ( N C O N C L
0023740 S T ( C O N S X ) ) ) ) \r (
0023760 P U T P R O P S X N L S E T Q
0024000 M A C R O ( ( X F L G F
0024020 N ) ( . E R R S E T Q . X
0024040 F L G F N ) ) ) \r ( P U T P R
0024060 O P S U N D O N L S E T Q M
0024100 A C R O ( ( U N D O F O R M
0024120 U N D O F N ) ( P R O G ( (
0024140 L I S P X H I S T L I S P X H
0024160 I S T ) U N D O S I D E 0 U
0024200 N D O S I D E U N D O T E M )
0024220 \r ( D E C L A R E ( S P E C
0024240 V A R S L I S P X H I S T ) )
0024260 ( C O N D ( ( L I S T P (
0024300 S E T Q U N D O S I D E ( L
0024320 I S T G E T 1 L I S P X H I S
0024340 T ( Q U O T E S I D E ) ) )
0024360 ) ( S E T Q \r U N D O S I D
0024400 E 0 ( C D R U N D O S I D E
0024420 ) ) ) ( T ( S E T Q U N D
0024440 O S I D E 0 U N D O S I D E )
0024460 ( S E T Q U N D O S I D E
0024500 ( L I S T 0 ) ) ( C O N D
0024520 ( L I S P X H I S T ( \r L I S
0024540 T P U T 1 L I S P X H I S T
0024560 ( Q U O T E S I D E ) U N D
0024600 O S I D E ) ) ( T ( S E T Q
0024620 L I S P X H I S T ( L I S T
0024640 ( Q U O T E S I D E ) U N
0024660 D O S I D E ) ) ) ) ) ) ( \r R
0024700 E S E T V A R S ( # U N D O S
0024720 A V E S ) ( S E T Q U N D O
0024740 T E M ( X N L S E T Q U N D
0024760 O F O R M N I L U N D O F N
0025000 ) ) ) ( C O N D ( ( E Q U
0025020 N D O S I D E 0 ( Q U O T E
0025040 \r N O S A V E ) ) ( L I S T P
0025060 U T 1 L I S P X H I S T ( Q
0025100 U O T E S I D E ) ( Q U O T
0025120 E N O S A V E ) ) ) ( T (
0025140 U N D O S A V E ) ) ) ( C O N
0025160 D ( U N D O T E M ( R E T U
0025200 R N \r U N D O T E M ) ) ) (
0025220 U N D O N L S E T Q 1 ( C D R
0025240 U N D O S I D E ) ( L I S T
0025260 P U N D O S I D E 0 ) ) ( R
0025300 E T U R N ) ) ) ) \r ( P U T P R
0025320 O P S R E S E T V A R M A C
0025340 R O ( ( V A R V A L F O R
0025360 M ) ( P R O G ( M A C R O X
0025400 M A C R O Y ) ( S E T Q M
0025420 A C R O X ( S E T Q R E S E
0025440 T V A R S L S T ( C O N S (
0025460 \r C O N S ( Q U O T E V A R
0025500 ) ( C O N S ( S T K S C A N
0025520 ( Q U O T E V A R ) ) ( G
0025540 E T A T O M V A L ( Q U O T E
0025560 V A R ) ) ) ) R E S E T V A
0025600 R S L S T ) ) ) ( S E T Q M
0025620 A C R O Y ( \r X N L S E T Q
0025640 ( P R O G N ( S E T A T O M V
0025660 A L ( Q U O T E V A R ) V
0025700 A L ) F O R M ) ( Q U O T E
0025720 I N T E R N A L ) ) ) ( S E
0025740 T A T O M V A L ( Q U O T E
0025760 V A R ) ( C D D A R \r M A C
0026000 R O X ) ) ( S E T Q R E S E
0026020 T V A R S L S T ( C D R M A
0026040 C R O X ) ) ( C O N D ( M A
0026060 C R O Y ( R E T U R N ( C A
0026100 R M A C R O Y ) ) ) ) ( E R
0026120 R O R ! ) ) ) ) \r ( P U T P R O
0026140 P S R E S E T F O R M M A C
0026160 R O ( O P E N X ( S U B P A
0026200 I R ( Q U O T E ( F N F O
0026220 R M . E X P R E S S I O N S
0026240 ) ) ( C O N S ( C A A R O
0026260 P E N X ) O P E N X ) ( \r Q
0026300 U O T E ( P R O G ( ( O L D
0026320 V A L U E F O R M ) M A C R
0026340 O X M A C R O Y R E S E T S
0026360 T A T E ) ( D E C L A R E (
0026400 L O C A L V A R S M A C R O X
0026420 M A C R O Y ) ) ( S E T Q
0026440 \r M A C R O X ( S E T Q R E
0026460 S E T V A R S L S T ( C O N S
0026500 ( L I S T ( L I S T ( Q U
0026520 O T E F N ) O L D V A L U E
0026540 ) ) R E S E T V A R S L S T )
0026560 ) ) ( C O N D ( ( N O T (
0026600 X N L S E T Q \r ( S E T Q M
0026620 A C R O Y ( P R O G N . E
0026640 X P R E S S I O N S ) ) I N T
0026660 E R N A L ) ) ( S E T Q R E
0026700 S E T S T A T E ( Q U O T E
0026720 E R R O R ) ) ) ) ( S E T Q
0026740 R E S E T V A R S L S T ( \r C
0026760 D R M A C R O X ) ) ( A P P
0027000 L Y ( Q U O T E F N ) ( C
0027020 D A A R M A C R O X ) ) ( R
0027040 E T U R N ( C O N D ( R E S
0027060 E T S T A T E ( E R R O R ! )
0027100 ) ( T M A C R O Y ) ) ) ) )
0027120 ) ) ) \r ( P U T P R O P S R E
0027140 S E T L S T M A C R O ( ( X
0027160 . Y ) ( P R O G ( R E S
0027200 E T Y R E S E T Z ( L I S P
0027220 X H I S T L I S P X H I S T )
0027240 ) ( R E S E T R E S T O R E
0027260 \r R E S E T V A R S L S T ( S
0027300 E T Q R E S E T Z ( C O N D
0027320 ( ( X N L S E T Q ( S E T Q
0027340 R E S E T Y ( P R O G N X
0027360 . Y ) ) I N T E R N A L )
0027400 N I L ) ( T ( Q U O T E
0027420 E R R O R ) ) \r ) ) ) ( R E T
0027440 U R N ( C O N D ( R E S E T
0027460 Z ( E R R O R ! ) ) ( T R
0027500 E S E T Y ) ) ) ) ) ) \r ( P U T
0027520 P R O P S R E S E T S A V E
0027540 M A C R O ( X ( L I S T (
0027560 Q U O T E S E T Q ) ( Q U O
0027600 T E R E S E T V A R S L S T )
0027620 ( L I S T ( Q U O T E C O
0027640 N S ) ( C O N D ( ( A N D
0027660 ( \r A T O M ( C A R X ) )
0027700 ( C A R X ) ) ( S U B P A I
0027720 R ( Q U O T E ( V A R V A
0027740 L ) ) X ( Q U O T E ( P R
0027760 O G 1 ( C O N S ( Q U O T E
0030000 V A R ) ( C O N S ( S T K
0030020 S C A N ( \r Q U O T E V A R
0030040 ) ) ( G E T A T O M V A L (
0030060 Q U O T E V A R ) ) ) ) ( S
0030100 E T A T O M V A L ( Q U O T E
0030120 V A R ) V A L ) ) ) ) ) (
0030140 ( C D R X ) ( L I S T ( Q
0030160 U O T E L I S T ) ( \r C A D
0030200 R X ) ( C A R X ) ) ) (
0030220 T ( L I S T ( Q U O T E L
0030240 I S T ) ( L I S T ( Q U O T
0030260 E L I S T ) ( L I S T ( Q
0030300 U O T E Q U O T E ) ( C O N
0030320 D ( ( E Q ( C A A R X )
0030340 ( \r Q U O T E S E T Q ) ) (
0030360 C A R ( C A D D A R X ) ) )
0030400 ( T ( C A A R X ) ) ) )
0030420 ( C A R X ) ) ) ) ) ( Q U O
0030440 T E R E S E T V A R S L S T )
0030460 ) ) ) ) \r ( P U T P R O P S R
0030500 E S E T T O P V A L S M A C R
0030520 O ( A R G S ( C O N S ( Q
0030540 U O T E R E S E T L S T ) (
0030560 N C O N C ( M A P C A R ( C
0030600 A R A R G S ) ( F U N C T I
0030620 O N ( L A M B D A \r ( V )
0030640 ( C O N S ( Q U O T E R E S
0030660 E T S A V E ) V ) ) ) ) ( C
0030700 D R A R G S ) ) ) ) ) \r ( P U
0030720 T P R O P S R E S E T B U F S
0030740 M A C R O ( ( A . B )
0030760 ( ( L A M B D A ( $ $ B U F S
0031000 ) ( D E C L A R E ( L O C A
0031020 L V A R S $ $ B U F S ) ) (
0031040 P R O G 1 ( P R O G N A .
0031060 B ) \r ( A N D $ $ B U F S
0031100 ( B K B U F S $ $ B U F S )
0031120 ) ) ) ( P R O G N ( L I N B
0031140 U F ) ( S Y S B U F ) ( C L
0031160 B U F S N I L T R E A D B
0031200 U F ) ) ) ) ) \r ( P U T P R O P
0031220 S S E L E C T M A C R O (
0031240 X ( C S E L E C T X ) ) ) \r
0031260 ( P U T P R O P S S E L E C T
0031300 C M A C R O ( F ( C O N S
0031320 ( Q U O T E S E L E C T Q )
0031340 ( C O N S ( C A R F ) (
0031360 M A P L I S T ( C D R F )
0031400 ( F U N C T I O N ( L A M B D
0031420 A ( I ) \r ( C O N D ( ( C
0031440 D R I ) ( C O N S ( C O N
0031460 S T A N T ( E V A L ( C A A
0031500 R I ) ) ) ( C D A R I ) )
0031520 ) ( T ( C A R I ) ) ) ) )
0031540 ) ) ) ) ) \r ( P U T P R O P S
0031560 I G E Q M A C R O ( ( X Y
0031600 ) ( N O T ( I L E S S P X
0031620 Y ) ) ) ) \r ( P U T P R O P S
0031640 I L E Q M A C R O ( ( X
0031660 Y ) ( N O T ( I G R E A T E
0031700 R P X Y ) ) ) ) \r ( P U T P
0031720 R O P S G E Q M A C R O (
0031740 ( X Y ) ( N O T ( L E S S
0031760 P X Y ) ) ) ) \r ( P U T P R
0032000 O P S L E Q M A C R O ( (
0032020 X Y ) ( N O T ( G R E A T
0032040 E R P X Y ) ) ) ) \r ( P U T
0032060 P R O P S F L E S S P M A C
0032100 R O ( L A M B D A ( X Y )
0032120 ( F G R E A T E R P Y X )
0032140 ) ) \r ( P U T P R O P S I M I
0032160 N M A C R O ( D E F M A C R
0032200 O ( & W H O L E O R I G I N
0032220 A L & O P T I O N A L ( A R
0032240 G 1 N I L A R G 1 G I V E N
0032260 ) ( A R G 2 N I L A R G 2
0032300 G I V E N ) \r & R E S T R E
0032320 S T A R G S ) ( C O N D ( (
0032340 N O T A R G 1 G I V E N ) (
0032360 Q U O T E M A X . I N T E G E
0032400 R ) ) ( ( N O T A R G 2 G I
0032420 V E N ) ( B Q U O T E ( F I
0032440 X , A R G 1 ) ) ) ( \r R E
0032460 S T A R G S ( B Q U O T E (
0032500 I M I N ( I M I N 2 , A R
0032520 G 1 , A R G 2 ) . , R E
0032540 S T A R G S ) ) ) ( T ( L I
0032560 S T ( Q U O T E I M I N 2 )
0032600 A R G 1 A R G 2 ) ) ) ) ) \r
0032620 ( P U T P R O P S I M A X M
0032640 A C R O ( D E F M A C R O (
0032660 & O P T I O N A L ( A R G 1
0032700 N I L A R G 1 G I V E N ) (
0032720 A R G 2 N I L A R G 2 G I V
0032740 E N ) & R E S T R E S T A R
0032760 G S ) ( \r C O N D ( ( N O T
0033000 A R G 1 G I V E N ) ( Q U O
0033020 T E M I N . I N T E G E R ) )
0033040 ( ( N O T A R G 2 G I V E N
0033060 ) ( B Q U O T E ( F I X ,
0033100 A R G 1 ) ) ) ( R E S T A R
0033120 G S ( B Q U O T E ( \r I M A
0033140 X ( I M A X 2 , A R G 1
0033160 , A R G 2 ) . , R E S T A
0033200 R G S ) ) ) ( T ( B Q U O T
0033220 E ( I M A X 2 , A R G 1
0033240 , A R G 2 ) ) ) ) ) ) \r ( P U
0033260 T P R O P S P R O G 2 M A C
0033300 R O ( ( X . Y ) ( P R O
0033320 G N X ( P R O G 1 . Y )
0033340 ) ) ) \r ( P U T P R O P S E V
0033360 E N P M A C R O ( D E F M A
0033400 C R O ( N & O P T I O N A L
0033420 ( M O D U L U S 2 ) ) ( B
0033440 Q U O T E ( E Q 0 ( I M O
0033460 D , N , M O D U L U S )
0033500 ) ) ) ) \r ( P U T P R O P S O
0033520 D D P M A C R O ( ( X .
0033540 T A I L ) ( N O T ( E V E N
0033560 P X . T A I L ) ) ) ) \r (
0033600 P U T P R O P S S I G N E D
0033620 M A C R O ( A R G S ( C O N
0033640 D ( ( E Q C O M P I L E . C
0033660 O N T E X T ( Q U O T E E F
0033700 F E C T ) ) ( C A R A R G S
0033720 ) ) ( T ( C O N S ( Q U O
0033740 T E ( \r O P E N L A M B D A
0033760 ( N W I D T H ) ( C O N D
0034000 ( ( I G R E A T E R P N ( S
0034020 U B 1 ( L L S H 1 ( S U B
0034040 1 W I D T H ) ) ) ) ( * d
0034060 o n e t h i s w a y j u s
0034100 t s o t h a t ( \r S I G N
0034120 E D X 2 ^ 1 6 ) d o e s n
0034140 ' t b o x ) ( S U B 1 ( I
0034160 D I F F E R E N C E N ( S U
0034200 B 1 ( L L S H 1 W I D T H
0034220 ) ) ) ) ) ( T N ) ) ) ) A
0034240 R G S ) ) ) ) ) \r ( P U T P R O
0034260 P S U N S I G N E D M A C R
0034300 O ( ( X W I D T H ) ( L O
0034320 G A N D X ( S U B 1 ( L L
0034340 S H 1 W I D T H ) ) ) ) ) \r
0034360 ( P U T P R O P S B Q U O T E
0034400 M A C R O ( F O R M ( \ B
0034420 Q U O T E . E X P A N D ( \ U
0034440 N C O M M A ( C A R F O R M
0034460 ) ) 1 ) ) ) \r ( P U T P R O P
0034500 S L I S T * M A C R O ( X
0034520 ( C O N D ( ( N U L L X )
0034540 N I L ) ( ( N U L L ( C D
0034560 R X ) ) ( C A R X ) ) (
0034600 ( N U L L ( C D D R X ) )
0034620 ( C O N S ( Q U O T E \r C O
0034640 N S ) X ) ) ( T ( L I S T
0034660 ( Q U O T E C O N S ) ( C
0034700 A R X ) ( C O N S ( Q U O
0034720 T E L I S T * ) ( C D R X
0034740 ) ) ) ) ) ) ) \r ( P U T P R O P
0034760 S L E T M A C R O ( X (
0035000 \ L E T t r a n X ) ) ) \r ( P
0035020 U T P R O P S L E T * M A C
0035040 R O ( X ( \ L E T t r a n
0035060 X T ) ) ) \r ( P U T P R O P S
0035100 P R O G * M A C R O ( X
0035120 ( \ L E T t r a n X ( Q U O
0035140 T E P R O G * ) ) ) ) \r ( P U
0035160 T P R O P S P S E T Q M A C
0035200 R O ( D E F M A C R O ( V A
0035220 R V A L & R E S T T A I L
0035240 ) ( B Q U O T E ( P R O G N
0035260 ( S E T Q , V A R , (
0035300 i f T A I L t h e n ( \r B
0035320 Q U O T E ( P R O G 1 , V
0035340 A L ( P S E T Q , . T A I
0035360 L ) ) ) e l s e V A L ) )
0035400 N I L ) ) ) ) \r ( A D D T O V A
0035420 R P R E T T Y E Q U I V L S T
0035440 ( L E T . P R O G ) ( L
0035460 E T * . P R O G ) ( P R O
0035500 G * . P R O G ) ) \r ( P U T
0035520 D E F ( Q U O T E M A C R O
0035540 S ) ( Q U O T E F I L E P K
0035560 G C O M S ) ( Q U O T E ( (
0035600 C O M M A C R O ( X ( D E
0035620 C L A R E : E V A L @ C O M P
0035640 I L E ( P * ( M A P C A R
0035660 ( \r Q U O T E X ) ( F U N
0035700 C T I O N ( L A M B D A ( Y
0035720 ) ( O R ( G E T D E F Y
0035740 ( Q U O T E M A C R O S ) (
0035760 Q U O T E C U R R E N T ) (
0036000 Q U O T E ( N O C O P Y N O
0036020 E R R O R ) ) ) \r ( K W O T E
0036040 ( P R I N T ( C O N S Y
0036060 ( Q U O T E ( - - n o M A
0036100 C R O d e f i n i t i o n ) )
0036120 ) T ) ) ) ) ) ) ) ) ) C O N
0036140 T E N T S N I L L ) ( T Y P
0036160 E D E S C R I P T I O N \r "
0036200 m a c r o s " G E T D E F M
0036220 A C R O S . G E T D E F W H E
0036240 N C H A N G E D ( C L E A R C
0036260 L I S P A R R A Y ) E D I T D
0036300 E F N I L L ) ) ) ) \r ( P U T
0036320 P R O P S C O N S T A N T M
0036340 A C R O ( M A C R O X ( P R
0036360 O G ( ( V A L ( A P P L Y
0036400 ( Q U O T E P R O G 1 ) M A
0036420 C R O X ) ) ) ( R E T U R N
0036440 ( C O N D ( ( C O N S T A N T
0036460 O K \r V A L ) ( K W O T E
0036500 V A L ) ) ( T ( C O N S (
0036520 Q U O T E L O A D T I M E C O
0036540 N S T A N T ) M A C R O X ) )
0036560 ) ) ) ) ) \r ( P U T P R O P S
0036600 L O A D T I M E C O N S T A N T
0036620 M A C R O ( ( X ) ( D E F
0036640 E R R E D C O N S T A N T X )
0036660 ) ) \r ( P U T P R O P S D E F
0036700 E R R E D C O N S T A N T M A
0036720 C R O ( X ( L I S T ( S U
0036740 B S T ( C A R X ) ( Q U O
0036760 T E F O R M ) ( Q U O T E
0037000 ( L A M B D A ( M A C R O X )
0037020 ( D E C L A R E \r ( L O C A
0037040 L V A R S M A C R O X ) ) (
0037060 O R ( C D R M A C R O X )
0037100 ( F R P L A C D ( F R P L A C
0037120 A M A C R O X ( E V Q F O
0037140 R M ) ) T ) ) ( C A R M A
0037160 C R O X ) ) ) ) ( K W O T E
0037200 \r ( C O N S ) ) ) ) ) \r ( A D D
0037220 T O V A R P R I N T O U T M A
0037240 C R O S ) \r ( R P A Q Q P R I
0037260 N T O U T T O K E N S ( . R E
0037300 S E T . T A B # , , ,
0037320 , , , . P 2 . P P F . P P
0037340 V . P P F T L . P P V T L
0037360 . T A B 0 . F R . F R 2 .
0037400 C E N T E R \r . C E N T E R 2
0037420 . P A R A . P A R A 2 . P
0037440 A G E . F O N T . S U P .
0037460 S U B . B A S E . S P . S
0037500 K I P . N ) ) \r ( D E F M A C
0037520 R O P R I N T O U T ( & W H
0037540 O L E X ) ( P R I N T C O M
0037560 S T R A N X ( F U N C T I O
0037600 N C D D R ) P R I N T O U T
0037620 M A C R O S ( F U N C T I O N
0037640 C A D R ) ) ) \r ( P U T P R O
0037660 P S p r i n t o u t M A C R
0037700 O ( = . P R I N T O U T )
0037720 ) \r ( A D D T O V A R S Y S P
0037740 R O P S A L T O M A C R O M
0037760 A C R O B Y T E M A C R O D
0040000 M A C R O ) \r ( P U T P R O P S
0040020 A L T O M A C R O P R O P T
0040040 Y P E M A C R O S ) \r ( P U T
0040060 P R O P S M A C R O P R O P
0040100 T Y P E M A C R O S ) \r ( P U
0040120 T P R O P S B Y T E M A C R O
0040140 P R O P T Y P E M A C R O S
0040160 ) \r ( P U T P R O P S D M A C
0040200 R O P R O P T Y P E M A C R
0040220 O S ) \r ( P U T P R O P S G E
0040240 T T O P V A L S E T F N S E
0040260 T T O P V A L ) \r ( P U T P R O
0040300 P S M A C R O S C O P Y R I
0040320 G H T ( " X e r o x C o r p
0040340 o r a t i o n " 1 9 8 4 1 9
0040360 8 5 ) ) \r N I L \r
0040371