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