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