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