$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLARITH.DCOM!2
0000000 ( F I L E C R E A T E D " 1 1
0000020 - S e p - 8 6 1 6 : 4 7 : 0 3
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 > L I B R A R Y > C M L A R I
0000120 T H . ; 3 9 ) \r " 8 - S e p
0000140 - 8 6 1 6 : 1 4 : 1 3 " " C
0000160 O M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 8 -
0000220 S e p - 8 6 . . . " d a t e
0000240 d " 8 - S e p - 8 6 1 7 :
0000260 3 2 : 0 9 " ) \r ( F I L E C R E
0000300 A T E D " 1 1 - S e p - 8 6
0000320 1 6 : 4 2 : 4 0 " { E R I S }
0000340 < L I S P C O R E > L I B R A R
0000360 Y > C M L A R I T H . ; 3 9 1
0000400 2 3 9 8 4 c h a n g e s t o
0000420 : ( S T R U C T U R E S \r R
0000440 A T I O C O M P L E X ) ( V
0000460 A R S C M L A R I T H C O M S
0000500 ) ( M A C R O S . C M L U N
0000520 B O X . . C M L I Q U O T R E
0000540 M . ) ( F N S I S Q R T P
0000560 R I M E P P H A S E S I G N
0000600 U M \r % % S I G N U M N U M
0000620 E R A T O R D E N O M I N A T
0000640 O R R A T I O N A L P R A T
0000660 I O N A L R A T I O N A L I Z
0000700 E % % R A T I O - P R I N T
0000720 % % B U I L D - R A T I O \r %
0000740 % R A T I O N A L I Z E - F L O
0000760 A T % % R A T I O * % % R A
0001000 T I O / % % R A T I O - T I M
0001020 E S - Q U O T I E N T % % R A
0001040 T I O + % % R A T I O - % %
0001060 R A T I O - P L U S - D I F F E
0001100 R E N C E \r % % R A T I O - I
0001120 N T E G E R * % % R A T I O -
0001140 I N T E G E R + % % R A T I O
0001160 - I N T E G E R - C O M P L E
0001200 X R E A L P A R T I M A G P
0001220 A R T % % C O M P L E X + %
0001240 % C O M P L E X - \r % % C O M
0001260 P L E X * % % C O M P L E X /
0001300 % % C O M P L E X - A B S %
0001320 % C O M P L E X - M I N U S %
0001340 % C O M P L E X - T I M E S I
0001360 C O N J U G A T E % % C O M P
0001400 L E X - P R I N T \r N E W - M
0001420 I N U S P C L : Z E R O P E
0001440 V E N P O D D P P L U S P
0001460 % % = % % > = / = < >
0001500 < = > = + - C L : *
0001520 / % % / 1 + 1 - C L : G
0001540 C D % % G C D L C M \r F L
0001560 O A T \ F L O A T C L : F L
0001600 O O R T R U N C A T E C E I
0001620 L I N G R O U N D C L : M O
0001640 D R E M F F L O O R F C E
0001660 I L I N G F T R U N C A T E
0001700 F R O U N D D E C O D E - F L
0001720 O A T \r S C A L E - F L O A T
0001740 F L O A T - R A D I X F L O
0001760 A T - S I G N F L O A T - D I
0002000 G I T S F L O A T - P R E C I
0002020 S I O N I N T E G E R - D E C
0002040 O D E - F L O A T N E W - L E
0002060 S S P N E W - E Q P \r N E W
0002100 - A B S N E W - M I N U S N
0002120 E W - S L O W I P L U S 2 N E
0002140 W - S L O W I D I F F E R E N C
0002160 E N E W - S L O W I T I M E S
0002200 2 N E W - S L O W I Q U O T I
0002220 E N T N E W - I R E M A I N D
0002240 E R \r N E W - S L O W I G R E
0002260 A T E R P % % + % % - % %
0002300 * L O G I O R L O G E Q V
0002320 L O G N A N D L O G N O R L
0002340 O G A N D C 1 L O G A N D C 2
0002360 L O G O R C 1 L O G O R C 2
0002400 B O O L E \r L O G T E S T
0002420 L O G B I T P A S H L O G C
0002440 O U N T % % L O G C O U N T
0002460 I N T E G E R - L E N G T H B
0002500 Y T E - S I Z E B Y T E - P O
0002520 S I T I O N L D B - T E S T
0002540 M A S K - F I E L D \r D E P O
0002560 S I T - F I E L D ) p r e v i
0002600 o u s d a t e : " 2 0 - A u
0002620 g - 8 6 2 0 : 3 3 : 5 8 " {
0002640 E R I S } < L I S P C O R E > L
0002660 I B R A R Y > C M L A R I T H .
0002700 ; 3 8 ) \r ( R P A Q Q C M L A
0002720 R I T H C O M S ( ( * * C
0002740 M L A R I T H . C o m m o n
0002760 L i s p A r i t h m e t i c .
0003000 C o v e r s a l l o f C
0003020 o m m o n L i s p a r i t h
0003040 m e t i c \r e x c e p t f o
0003060 r h i g h e r m a t h f u
0003100 n c t i o n s . C o v e r s
0003120 s e c t i o n s 2 . 1 - 2 . 1
0003140 . 4 , 1 2 . 1 - 1 2 . 4 , a
0003160 n d % 1 2 . 6 - 1 2 . 1 0 D
0003200 o e s n ' t c o v e r \r s e
0003220 c t i o n s % 1 2 . 5 - 1 2 .
0003240 5 . 3 . - - B y K e l l y
0003260 R o a c h * ) ( C O M S
0003300 ( * M i s c e l l a n e o u s
0003320 . * ) ( F N S I S Q R T
0003340 P R I M E P P H A S E S I G
0003360 N U M \r % % S I G N U M ) )
0003400 ( C O M S ( * S e c t i o n
0003420 % 2 . 1 . 2 R a t i o s .
0003440 * ) ( S T R U C T U R E S R
0003460 A T I O ) ( D E C L A R E :
0003500 D O N T E V A L @ L O A D D O
0003520 C O P Y ( P ( * \r T h e
0003540 f o l l o w i n g m a k e s
0003560 N U M B E R P t r u e o n
0003600 r a t i o s * ) ( \ S E T T
0003620 Y P E M A S K ( \ T Y P E N U
0003640 M B E R F R O M N A M E ( Q U
0003660 O T E R A T I O ) ) ( L O G
0003700 O R \r \ T T . N U M B E R P
0003720 \ T T . A T O M ) ) ) ) ( F N
0003740 S N U M E R A T O R D E N O
0003760 M I N A T O R R A T I O N A L
0004000 P R A T I O N A L R A T I O
0004020 N A L I Z E % % R A T I O - P
0004040 R I N T \r % % B U I L D - R A
0004060 T I O % % R A T I O N A L I Z
0004100 E - F L O A T % % R A T I O *
0004120 % % R A T I O / % % R A T I
0004140 O - T I M E S - Q U O T I E N T
0004160 % % R A T I O + % % R A T I
0004200 O - \r % % R A T I O - P L U S
0004220 - D I F F E R E N C E % % R A
0004240 T I O - I N T E G E R * % % R
0004260 A T I O - I N T E G E R + % %
0004300 R A T I O - I N T E G E R - ) )
0004320 ( C O M S ( * S e c t i o
0004340 n % 2 . 1 . 4 \r C o m p l e
0004360 x N u m b e r s . * ) ( S
0004400 T R U C T U R E S C O M P L E
0004420 X ) ( D E C L A R E : D O N
0004440 T E V A L @ L O A D D O C O P
0004460 Y ( P ( * M a k e i t
0004500 s o t h a t C O M P L E X
0004520 \r i s N U M B E R P * ) (
0004540 \ S E T T Y P E M A S K ( \ T
0004560 Y P E N U M B E R F R O M N A M
0004600 E ( Q U O T E C O M P L E X
0004620 ) ) ( L O G O R \ T T . N U
0004640 M B E R P \ T T . A T O M ) )
0004660 ) ) ( F N S \r C O M P L E X
0004700 R E A L P A R T I M A G P A
0004720 R T % % C O M P L E X + % %
0004740 C O M P L E X - % % C O M P L
0004760 E X * % % C O M P L E X / %
0005000 % C O M P L E X - A B S % % C
0005020 O M P L E X - M I N U S \r % %
0005040 C O M P L E X - T I M E S I C
0005060 O N J U G A T E % % C O M P L
0005100 E X - P R I N T ) ) ( C O M S
0005120 ( * S e c t i o n 1 2 . 2
0005140 P r e d i c a t e s o n N
0005160 u m b e r s . * ) ( * M I
0005200 N U S P \r i s m a d e t o
0005220 w o r k o n r a t i o s .
0005240 O t h e r w i s e , b a c k
0005260 w a r d s c o m p a t i b l e
0005300 . * ) ( F N S N E W - M I
0005320 N U S P ) ( D E C L A R E :
0005340 \r D O N T E V A L @ L O A D D
0005360 O C O P Y ( P ( M O V D (
0005400 Q U O T E N E W - M I N U S P
0005420 ) ( Q U O T E M I N U S P )
0005440 ) ) ) ( F N S C L : Z E R O
0005460 P ) ( F N S E V E N P O D
0005500 D P \r P L U S P ) ) ( C O M
0005520 S ( * S e c t i o n 1 2 .
0005540 3 C o m p a r i s o n s o n
0005560 N u m b e r s . * ) ( F N
0005600 S % % = % % > ) ( F N S
0005620 = % % = / = < > < =
0005640 > = ) ( P R O P \r D M A C R
0005660 O = / = < > < = > =
0005700 ) ( * M A X a n d M I N
0005720 a r e O K b e c a u s e
0005740 t h e y u s e G R E A T E R
0005760 P a n d G R E A T E R P i
0006000 s f i x e d b y t h i s
0006020 \r f i l e t o w o r k o n
0006040 r a t i o s . * ) ) ( C O
0006060 M S ( * S e c t i o n 1 2
0006100 . 4 A r i t h m e t i c O p
0006120 e r a t i o n s . * ) ( F N
0006140 S + - C L : * / % % /
0006160 1 + 1 - ) \r ( P R O P D
0006200 M A C R O + - C L : * /
0006220 1 + 1 - ) ( D E C L A R E
0006240 : D O N T E V A L @ L O A D
0006260 D O C O P Y ( P ( M O V D
0006300 ( Q U O T E + ) ( Q U O T E
0006320 P L U S ) ) ( M O V D \r (
0006340 Q U O T E - ) ( Q U O T E
0006360 D I F F E R E N C E ) ) ( M O
0006400 V D ( Q U O T E 1 + ) ( Q
0006420 U O T E A D D 1 ) ) ( M O V
0006440 D ( Q U O T E 1 - ) ( Q U
0006460 O T E S U B 1 ) ) ( M O V D
0006500 ( \r Q U O T E C L : * ) (
0006520 Q U O T E T I M E S ) ) ) )
0006540 ( * I N C F a n d D E C F
0006560 i m p l e m e n t e d b y
0006600 C M L S E T F . * ) ( * C
0006620 O N J U G A T E i m p l e m e
0006640 n t e d i n \r s e c t i o n
0006660 % 2 . 1 . 4 a b o v e . *
0006700 ) ( F N S C L : G C D % %
0006720 G C D L C M ) ) ( C O M S
0006740 ( * S e c t i o n 1 2 . 6
0006760 T y p e C o n v e r s i o n s
0007000 a n d C o m p o n e n t \r
0007020 E x t r a c t i o n s o n N
0007040 u m b e r s . * ) ( * *
0007060 L L F L O A T r e p l a c e m
0007100 e n t s . L L F L O A T u f
0007120 n s s e e m O K o n c e
0007140 w e m o d i f y \ F L O A T
0007160 \r a p p r o p r i a t e l y .
0007200 * ) ( F N S F L O A T \
0007220 F L O A T ) ( * N U M E R A
0007240 T O R a n d D E N O M I N A
0007260 T O R i m p l e m e n t e d
0007300 i n s e c t i o n % 2 . 1 .
0007320 2 a b o v e . \r * ) ( F N
0007340 S C L : F L O O R T R U N C
0007360 A T E C E I L I N G R O U N
0007400 D C L : M O D R E M F F L
0007420 O O R F C E I L I N G F T R
0007440 U N C A T E F R O U N D ) (
0007460 * P a g e 2 1 8 \r f u n c
0007500 t i o n s . * ) ( F N S D
0007520 E C O D E - F L O A T S C A L
0007540 E - F L O A T F L O A T - R A
0007560 D I X F L O A T - S I G N F
0007600 L O A T - D I G I T S F L O A
0007620 T - P R E C I S I O N \r I N T
0007640 E G E R - D E C O D E - F L O A
0007660 T ) ( * E X P T C O M P L
0007700 E X R E A L P A R T a n d
0007720 I M A G P A R T a r e d e f
0007740 i n e d b y C M L F L O A T
0007760 . * ) ) ( C O M S ( * *
0010000 \r L L A R I T H r e p l a c
0010020 e m e n t s . E i t h e r y
0010040 o u h a v e t o l i v e
0010060 w i t h t h e s e r e p l a
0010100 c e m e n t s o r y o u h
0010120 a v e t o s t a r t f i x
0010140 i n g \r C L I S P f o r l
0010160 o o p s , t h e h i s t o r
0010200 y m e c h a n i s m e t c .
0010220 L a r r y t r i e d t a k
0010240 i n g t h e s e o u t a n
0010260 d t h e t h i n g s I h
0010300 a d f i x e d b y \r p u t
0010320 t i n g t h e s e r e p l a
0010340 c e m e n t s i n s t a r t
0010360 e d b r e a k i n g a g a i
0010400 n . T h e s e r e p l a c e
0010420 m e n t s a r e s u p p o s
0010440 e d t o b e g o o d f o
0010460 r \r y o u i n a n y c a
0010500 s e . * ) ( C O M S ( *
0010520 N o n u f n s * ) ( * G
0010540 R E A T E R P a n d L E S S
0010560 P a r e m a d e t o w o
0010600 r k o n r a t i o s . E Q
0010620 P , A B S , \r a n d M I N
0010640 U S i s f i x e d t o w
0010660 o r k o n r a t i o s a n
0010700 d c o m p l e x s . * ) (
0010720 F N S N E W - L E S S P N E
0010740 W - E Q P N E W - A B S N E
0010760 W - M I N U S ) ( \r D E C L A
0011000 R E : D O N T E V A L @ L O A
0011020 D D O C O P Y ( P ( M O V
0011040 D ( Q U O T E % % > ) ( Q
0011060 U O T E G R E A T E R P ) )
0011100 ( M O V D ( Q U O T E N E W
0011120 - L E S S P ) ( Q U O T E \r
0011140 L E S S P ) ) ( M O V D ( Q
0011160 U O T E N E W - E Q P ) ( Q
0011200 U O T E E Q P ) ) ( M O V D
0011220 ( Q U O T E N E W - A B S )
0011240 ( Q U O T E A B S ) ) ( M
0011260 O V D ( Q U O T E N E W - M
0011300 I N U S ) \r ( Q U O T E M I
0011320 N U S ) ) ) ) ) ( C O M S (
0011340 * N e w L L A R I T H U F
0011360 N S * ) ( C O M S ( * I
0011400 N T E G E R A R I T H U F N
0011420 S . U N B O X . i s m a d
0011440 e t o \r u n d e r s t a n d
0011460 R A T I O s s o i n t e g
0011500 e r a r i t h u f n s m u
0011520 s t b e r e c o m p i l e d
0011540 . \ I Q U O T R E M h a s
0011560 n o t c h a n g e d , b u t
0011600 \ I Q U O T R E M \r u s e s
0011620 . U N B O X . a n d N E W
0011640 - S L O W I Q U O T I E N T a
0011660 n d N E W - I R E M A I N D E
0011700 R u s e \ I Q U O T R E M .
0011720 * ) ( D E C L A R E : E V
0011740 A L @ C O M P I L E \r D O N T
0011760 C O P Y ( M A C R O S . C M
0012000 L U N B O X . . C M L I Q U O
0012020 T R E M . ) ) ( F N S N E W
0012040 - S L O W I P L U S 2 N E W -
0012060 S L O W I D I F F E R E N C E
0012100 N E W - S L O W I T I M E S 2
0012120 \r N E W - S L O W I Q U O T I E
0012140 N T N E W - I R E M A I N D E
0012160 R N E W - S L O W I G R E A T
0012200 E R P ) ) ( D E C L A R E :
0012220 D O N T E V A L @ L O A D D O
0012240 C O P Y ( P ( \ S E T U F N
0012260 E N T R Y ( \r C A R ( \ F I
0012300 N D O P ( Q U O T E I P L U
0012320 S 2 ) ) ) ( Q U O T E N E W
0012340 - S L O W I P L U S 2 ) 2 0
0012360 ) ( \ S E T U F N E N T R Y
0012400 ( C A R ( \ F I N D O P ( Q
0012420 U O T E \r I D I F F E R E N C
0012440 E ) ) ) ( Q U O T E N E W -
0012460 S L O W I D I F F E R E N C E )
0012500 2 0 ) ( \ S E T U F N E N
0012520 T R Y ( C A R ( \ F I N D O
0012540 P ( Q U O T E I T I M E S 2
0012560 ) ) ) ( Q U O T E \r N E W -
0012600 S L O W I T I M E S 2 ) 2 0
0012620 ) ( \ S E T U F N E N T R Y
0012640 ( C A R ( \ F I N D O P ( Q
0012660 U O T E I Q U O T I E N T ) )
0012700 ) ( Q U O T E N E W - S L O
0012720 W I Q U O T I E N T ) 2 0 )
0012740 ( \r \ S E T U F N E N T R Y
0012760 ( C A R ( \ F I N D O P ( Q
0013000 U O T E I R E M A I N D E R )
0013020 ) ) ( Q U O T E N E W - I R
0013040 E M A I N D E R ) 2 0 ) (
0013060 \ S E T U F N E N T R Y ( C A
0013100 R ( \r \ F I N D O P ( Q U O
0013120 T E I G R E A T E R P ) ) )
0013140 ( Q U O T E N E W - S L O W I
0013160 G R E A T E R P ) 2 0 ) ) )
0013200 ) ) ( C O M S ( * N e w
0013220 g e n e r a l a r i t h m e t
0013240 i c U F N s \r w h i c h k
0013260 n o w a b o u t r a t i o
0013300 a n d c o m p l e x * ) (
0013320 * N O T E : % % / C A N
0013340 N O T C O M P I L E I N T O
0013360 T H E E X I S T I N G Q U
0013400 O T I E N T O P C O D E . \r
0013420 T h i s i s b e c a u s e
0013440 % % / i s s u p p o s e d
0013460 t o p r o d u c e a r a t
0013500 i o n a l w h e n n u m e r
0013520 a t o r i s n o t e v e n
0013540 l y d i v i s i b l e b y
0013560 \r d e n o m i n a t o r . T h
0013600 e r e f o r e , t h e r e i
0013620 s n o M A C R O f o r %
0013640 % / b e l o w . * ) ( P R
0013660 O P D O P V A L % % + % %
0013700 - % % * % % > ) ( F N S
0013720 % % + % % - \r % % * % % /
0013740 ) ( D E C L A R E : D O N T
0013760 E V A L @ L O A D D O C O P Y
0014000 ( P ( \ S E T U F N E N T R
0014020 Y ( C A R ( \ F I N D O P
0014040 ( Q U O T E P L U S 2 ) ) )
0014060 ( Q U O T E % % + ) 2 \r 0
0014100 ) ( \ S E T U F N E N T R Y
0014120 ( C A R ( \ F I N D O P ( Q
0014140 U O T E D I F F E R E N C E )
0014160 ) ) ( Q U O T E % % - ) 2
0014200 0 ) ( \ S E T U F N E N T R
0014220 Y ( C A R ( \ F I N D O P
0014240 ( \r Q U O T E T I M E S 2 ) )
0014260 ) ( Q U O T E % % * ) 2
0014300 0 ) ( \ S E T U F N E N T R Y
0014320 ( C A R ( \ F I N D O P (
0014340 Q U O T E G R E A T E R P ) )
0014360 ) ( Q U O T E % % > ) 2
0014400 0 ) ) ) ) ( \r C O M S ( *
0014420 S e c t i o n 1 2 . 7 L o g
0014440 i c a l O p e r a t i o n s
0014460 o n N u m b e r s . * ) (
0014500 * P a g e 2 2 1 f u n c t
0014520 i o n s . L O G A N D L O G
0014540 X O R a r e O K . * ) \r
0014560 ( F N S L O G I O R L O G E
0014600 Q V L O G N A N D L O G N O
0014620 R L O G A N D C 1 L O G A N
0014640 D C 2 L O G O R C 1 L O G O
0014660 R C 2 ) ( * P a g e 2 2 2
0014700 . 0 B O O L E a n d \r c o
0014720 n s t a n t s . * ) ( F N S
0014740 B O O L E ) ( I N I T V A R
0014760 S ( B O O L E - C L R 0 )
0015000 ( B O O L E - S E T 1 ) ( B
0015020 O O L E - 1 2 ) ( B O O L E
0015040 - 2 3 ) ( B O O L E - C 1
0015060 4 ) ( \r B O O L E - C 2 5 )
0015100 ( B O O L E - A N D 6 ) (
0015120 B O O L E - I O R 7 ) ( B O
0015140 O L E - X O R 8 ) ( B O O L
0015160 E - E Q V 9 ) ( B O O L E -
0015200 N A N D 1 0 ) ( B O O L E -
0015220 N O R 1 1 ) ( \r B O O L E -
0015240 A N D C 1 1 2 ) ( B O O L E
0015260 - A N D C 2 1 3 ) ( B O O L
0015300 E - O R C 1 1 4 ) ( B O O L
0015320 E - O R C 2 1 5 ) ) ( * R
0015340 e m a i n d e r o f s e c t
0015360 i o n 1 2 . 7 L O G N O T
0015400 \r i s O K . * ) ( F N S
0015420 L O G T E S T L O G B I T P )
0015440 ( F N S A S H ) ( F N S
0015460 L O G C O U N T % % L O G C O
0015500 U N T ) ( F N S I N T E G E
0015520 R - L E N G T H ) ) ( C O M S
0015540 ( * \r S e c t i o n 1 2 .
0015560 8 B y t e M a n i p u l a t
0015600 i o n s F u n c t i o n s .
0015620 * ) ( * B Y T E m a c r o
0015640 a l r e a d y i m p l e m e
0015660 n t e d . S h o u l d b e
0015700 f u n c t i o n . * \r ) ( F
0015720 N S B Y T E - S I Z E B Y T
0015740 E - P O S I T I O N ) ( * L
0015760 D B m a c r o a l r e a d y
0016000 i m p l e m e n t e d . S h
0016020 o u l d b e f u n c t i o n
0016040 . * ) ( F N S L D B - T E
0016060 S T \r M A S K - F I E L D )
0016100 ( * D P B m a c r o a l r
0016120 e a d y i m p l e m e n t e d
0016140 . S h o u l d b e f u n c
0016160 t i o n . * ) ( F N S D E
0016200 P O S I T - F I E L D ) ) ( D
0016220 E C L A R E : \r E V A L @ C O
0016240 M P I L E D O N T C O P Y (
0016260 F I L E S ( L O A D C O M P )
0016300 L L F L O A T L L C O D E
0016320 L L B I G N U M ) ) ( P R O P
0016340 F I L E T Y P E C M L A R I
0016360 T H ) ( D E C L A R E : \r D
0016400 O N T E V A L @ L O A D D O E
0016420 V A L @ C O M P I L E D O N T
0016440 C O P Y C O M P I L E R V A R
0016460 S ( A D D V A R S ( N L A M
0016500 A ) ( N L A M L ) ( L A M A
0016520 D E P O S I T - F I E L D \r
0016540 M A S K - F I E L D L D B - T
0016560 E S T B Y T E - P O S I T I O
0016600 N B Y T E - S I Z E L O G C
0016620 O U N T L O G B I T P L O G
0016640 T E S T B O O L E L O G O R
0016660 C 2 L O G O R C 1 L O G A N
0016700 D C 2 \r L O G A N D C 1 L O
0016720 G N O R L O G N A N D L O G
0016740 E Q V L O G I O R I N T E G
0016760 E R - D E C O D E - F L O A T
0017000 F L O A T - P R E C I S I O N
0017020 F L O A T - D I G I T S F L O
0017040 A T - S I G N \r F L O A T - R
0017060 A D I X D E C O D E - F L O A
0017100 T F R O U N D F T R U N C A
0017120 T E F C E I L I N G F F L O
0017140 O R R E M C L : M O D R O
0017160 U N D C E I L I N G T R U N
0017200 C A T E C L : F L O O R \r F
0017220 L O A T L C M % % G C D C
0017240 L : G C D / C L : * - +
0017260 > = < = > < / = =
0017300 P L U S P O D D P E V E N P
0017320 C L : Z E R O P % % C O M P
0017340 L E X - P R I N T \r % % C O M
0017360 P L E X - T I M E S I % % C O
0017400 M P L E X - M I N U S % % C O
0017420 M P L E X - A B S % % C O M P
0017440 L E X / % % C O M P L E X *
0017460 % % C O M P L E X - % % C O M
0017500 P L E X + I M A G P A R T \r
0017520 R E A L P A R T C O M P L E X
0017540 % % R A T I O - I N T E G E R
0017560 - % % R A T I O - I N T E G E
0017600 R + % % R A T I O - I N T E G
0017620 E R * % % R A T I O - P L U S
0017640 - D I F F E R E N C E % % R A
0017660 T I O - \r % % R A T I O + %
0017700 % R A T I O - T I M E S - Q U O
0017720 T I E N T % % R A T I O / %
0017740 % R A T I O * % % B U I L D -
0017760 R A T I O R A T I O N A L I Z
0020000 E R A T I O N A L D E N O M
0020020 I N A T O R \r N U M E R A T O
0020040 R % % S I G N U M S I G N U
0020060 M P H A S E P R I M E P I
0020100 S Q R T ) ) ) ) ) \r I S Q R T
0020120 D 1 \r ( L ( 0 I N T E G E R
0020140 ) ) \0 W 004 \0 \0 001 @ 3 262 J j @
0020160 363 263 E @ \t \0 \0 021 1 003 k H k 325 m 377
0020200 \n \0 \0 \n \0 \0 Y d H k 345 j 360 242 m 377
0020220 200 j \n \0 \0 324 272 J k 325 I 363 241 I 020 I
0020240 J 324 m 377 \n \0 \0 [ d d 326 @ 363 244 277 K
0020260 271 260 346 Z 260 344 o \0 \0 \0 @ \n \0 \0 020 \0
0020300 ( 1 2 4 Q C L : E R R O R 7
0020320 5 Q A S H 5 3 Q A S H 3
0020340 4 Q A S H 3 1 Q A S H 1
0020360 5 Q I N T E G E R - L E N G T
0020400 H ) \r N I L \r ( 1 2 0 Q " I
0020420 s q r t : ~ S a r g u m e n
0020440 t m u s t b e a n o n n
0020460 e g a t i v e i n t e g e r "
0020500 ) \r P R I M E P D 1 \r ( L (
0020520 0 X ) ) \0 h 005 \0 \0 001 @ d l 005
0020540 363 263 024 277 l 002 @ 363 h 360 264 \n @ l 004 \n
0020560 \0 \0 h 360 020 k 345 j 360 h 360 264 371 j @ l
0020600 003 \n \0 \0 \n \0 \0 h 360 264 353 l 006 k l 002
0020620 l 005 021 024 004 I d j \n \0 \0 245 277 K H 363
0020640 227 I j \n \0 \0 h 360 020 @ K \n \0 \0 \t \0
0020660 \0 \ 001 270 L 002 001 271 J l 006 346 K J 324 273
0020700 272 260 324 \0 ( 1 2 4 Q \ M V L I S
0020720 T 1 2 1 Q T R U N C A T E
0020740 1 1 1 Q % % = 7 6 Q % % =
0020760 5 2 Q % % = 4 7 Q R E M
0021000 2 5 Q % % = ) \r N I L \r ( )
0021020 \r P H A S E D 1 \r ( L ( 0
0021040 N U M B E R ) F 0 % % P I
0021060 ) \0 035 \0 001 \0 001 @ \t \0 \0 233 @ \t \0
0021100 \0 @ \t \0 \0 \n \0 \0 020 j @ 363 221 P 020 o
0021120 \0 \0 \0 020 \0 ( 1 7 Q C L : A T A
0021140 N 1 4 Q C O M P L E X - R E
0021160 A L P A R T 1 0 Q C O M P L
0021200 E X - I M A G P A R T 3 C O
0021220 M P L E X P ) \r N I L \r ( 3 2
0021240 Q 0 . 0 ) \r S I G N U M D 1
0021260 \r ( L ( 0 N U M B E R ) )
0021300 \0 ( \0 \0 \0 001 @ d j 360 251 d 005 003 226 d
0021320 \t \0 \0 221 @ 020 \t \0 \0 231 @ \t \0 \0 221 k
0021340 020 m 377 020 @ d \t \0 \0 \n \0 \0 020 \0 ( 4
0021360 5 Q % % / 4 2 Q A B S 2
0021400 7 Q P L U S P 2 2 Q R A T
0021420 I O N A L P 1 4 Q \ F Z E R
0021440 O P ) \r N I L \r ( ) \r % % S I G
0021460 N U M D 1 \r ( L ( 0 X ) )
0021500 \0 - 001 \0 \0 001 @ d \t \0 \0 222 277 k 212
0021520 j 360 263 034 @ 005 003 265 022 m 377 021 001 \0 @ 005
0021540 003 236 H @ 277 006 \0 \0 020 \t \0 \0 262 355 j 260
0021560 354 H 020 \0 ( 4 4 Q \ F Z E R O P
0021600 4 P L U S P ) \r ( 4 0 Q F
0021620 L O A T P ) \r ( ) \r R A T I O -
0021640 D E N O M I N A T O R D 1 \r (
0021660 L ( 0 O B J E C T ) ) \0 \b
0021700 \0 \0 \0 001 @ 006 \0 \0 311 002 020 \0 N I L \r
0021720 ( 3 R A T I O ) \r ( ) \r s e t
0021740 f - R A T I O - D E N O M I N A
0021760 T O R D 1 \r ( L ( 1 V A L
0022000 U E 0 O B J E C T ) ) \0 \n
0022020 \0 \0 \0 002 @ 006 \0 \0 A 024 002 A 020 \0 N I
0022040 L \r ( 3 R A T I O ) \r ( ) \r (
0022060 R E M P R O P ( Q U O T E R
0022100 A T I O - D E N O M I N A T O R
0022120 ) ( Q U O T E S E T F - M E
0022140 T H O D - E X P A N D E R ) ) \r
0022160 ( P U T P R O P S R A T I O -
0022200 D E N O M I N A T O R S E T F
0022220 - I N V E R S E s e t f - R A
0022240 T I O - D E N O M I N A T O R )
0022260 \r R A T I O - N U M E R A T O R
0022300 D 1 \r ( L ( 0 O B J E C T
0022320 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 \0 020
0022340 \0 N I L \r ( 3 R A T I O ) \r (
0022360 ) \r s e t f - R A T I O - N U M
0022400 E R A T O R D 1 \r ( L ( 1
0022420 V A L U E 0 O B J E C T ) )
0022440 \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \0 A 020
0022460 \0 N I L \r ( 3 R A T I O ) \r (
0022500 ) \r ( R E M P R O P ( Q U O T
0022520 E R A T I O - N U M E R A T O
0022540 R ) ( Q U O T E S E T F - M
0022560 E T H O D - E X P A N D E R ) )
0022600 \r ( P U T P R O P S R A T I O
0022620 - N U M E R A T O R S E T F -
0022640 I N V E R S E s e t f - R A T
0022660 I O - N U M E R A T O R ) \r R A
0022700 T I O - P D 1 \r ( L ( 0 O
0022720 B J E C T ) ) \0 \b \0 \0 \0 001 @ 004
0022740 ` \0 \0 360 020 \0 N I L \r ( 4 004 003 R
0022760 A T I O T Y P E # ) \r ( ) \r C O
0023000 P Y - R A T I O D 1 \r ( L (
0023020 0 O B J E C T ) ) \0 \t \0 \0 \0
0023040 001 ` \0 \0 @ \n \0 \0 020 \0 ( 6 N C R
0023060 E A T E 2 ) \r ( 2 004 003 R A T I
0023100 O T Y P E # ) \r ( ) \r ( D E F P
0023120 R I N T ( Q U O T E R A T I
0023140 O ) ( F U N C T I O N ( L A
0023160 M B D A ( X S T R E A M )
0023200 ( A P P L Y * ( F U N C T I O
0023220 N % % R A T I O - P R I N T )
0023240 X S T R E A M 0 ) T ) )
0023260 ) \r % % i n t e r n a l - m a k
0023300 e - R A T I O D 1 \r ( L ( 0
0023320 - a r g s - ) ) \0 \ 005 \0 002 \0
0023340 e 021 001 \0 H k 021 002 002 J d I 363 262 ( 277
0023360 g \0 \0 022 021 1 004 H k 273 272 K d J 363 262
0023400 ) 277 g \0 \0 274 ` \0 \0 037 d I 024 \0 277 d
0023420 L 024 002 277 020 a g \0 \0 360 225 J k 330 a 260
0023440 324 J l 002 324 Z 260 304 a g \0 \0 360 225 K k
0023460 330 a 260 323 K l 002 324 [ 260 303 \0 N I L \r
0023500 ( 1 1 3 Q : D E N O M I N A T
0023520 O R 7 0 Q : N U M E R A T O
0023540 R 5 0 Q 004 003 R A T I O T Y P
0023560 E # 4 4 Q : R E A D - O N L
0023600 Y 2 2 Q : R E A D - O N L Y
0023620 ) \r ( ) \r % % M A K E - R A T I
0023640 O D 1 \r ( L ( 1 D E N O M
0023660 I N A T O R 0 N U M E R A T
0023700 O R ) ) \0 020 \0 \0 \0 002 ` \0 \0 037 d
0023720 @ 024 \0 277 d A 024 002 277 020 \0 N I L \r (
0023740 2 004 003 R A T I O T Y P E # ) \r
0023760 ( ) \r ( P U T P R O P ( Q U O
0024000 T E R A T I O ) ( Q U O T E
0024020 S T R U C T U R E - C O N S T
0024040 R U C T O R ) ( Q U O T E %
0024060 % i n t e r n a l - m a k e - R
0024100 A T I O ) ) \r ( P U T P R O P
0024120 ( Q U O T E R A T I O ) ( Q
0024140 U O T E % % S L O T - D E S C
0024160 R I P T I O N S ) ( Q U O T E
0024200 ( ( N U M E R A T O R : R E
0024220 A D - O N L Y ) ( D E N O M I
0024240 N A T O R \r : R E A D - O N L
0024260 Y ) ) ) ) \r ( / D E C L A R E D
0024300 A T A T Y P E ( Q U O T E R
0024320 A T I O ) ( Q U O T E ( P O
0024340 I N T E R P O I N T E R ) )
0024360 ( Q U O T E ( ( R A T I O 0
0024400 P O I N T E R ) ( R A T I O
0024420 2 P O I N T E R ) ) \r ) (
0024440 Q U O T E 4 ) ) \r ( \ S E T T
0024460 Y P E M A S K ( \ T Y P E N U
0024500 M B E R F R O M N A M E ( Q U
0024520 O T E R A T I O ) ) ( L O G
0024540 O R \ T T . N U M B E R P \
0024560 T T . A T O M ) ) \r N U M E R A
0024600 T O R D 1 \r ( L ( 0 R A T
0024620 I O N A L ) ) \0 $ 001 \0 \0 001 @ 021
0024640 001 \0 H d 3 221 @ 020 004 ` \0 \0 360 264 \a
0024660 @ \t \0 \0 020 g \0 \0 H o \0 \0 \0 \f \0 \0
0024700 020 \0 ( 4 1 Q C H E C K - T Y P
0024720 E - F A I L 2 5 Q R A T I O
0024740 - N U M E R A T O R ) \r ( 3 1 Q
0024760 R A T I O N A L 1 6 Q 004 003
0025000 R A T I O T Y P E # ) \r ( 3 6
0025020 Q ( O R I N T E G E R R A
0025040 T I O ) ) \r D E N O M I N A T O
0025060 R D 1 \r ( L ( 0 R A T I O
0025100 N A L ) ) \0 $ 001 \0 \0 001 @ 021 001 \0
0025120 H d 3 221 k 020 004 ` \0 \0 360 264 \a @ \t
0025140 \0 \0 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0
0025160 ( 4 1 Q C H E C K - T Y P E -
0025200 F A I L 2 5 Q R A T I O - D
0025220 E N O M I N A T O R ) \r ( 3 1 Q
0025240 R A T I O N A L 1 6 Q 004 003
0025260 R A T I O T Y P E # ) \r ( 3 6
0025300 Q ( O R I N T E G E R R A
0025320 T I O ) ) \r R A T I O N A L P
0025340 D 1 \r ( I 0 N U M B E R )
0025360 \0 \f \0 \0 \0 001 @ d 3 221 i 020 \t \0 \0
0025400 020 \0 ( 1 1 Q R A T I O - P ) \r
0025420 N I L \r ( ) \r R A T I O N A L
0025440 D 1 \r ( L ( 0 N U M B E R )
0025460 ) \0 { \a \0 \0 001 @ 021 a 006 H Y d 3
0025500 221 @ 020 004 l 003 360 262 < @ \t \0 \0 \t \0
0025520 \0 Z 001 273 J 002 001 274 K \t \0 \0 275 K M \n
0025540 \0 \0 \t \0 \0 276 j L 363 233 N k M L 325 \n
0025560 \0 \0 \n \0 \0 020 N L \n \0 \0 k M \n \0 \0
0025600 \n \0 \0 020 I d 004 ` \0 \0 360 263 267 004 ` \0
0025620 \0 360 264 024 @ \t \0 \0 \t \0 \0 @ \t \0 \0 \t
0025640 \0 \0 \n \0 \0 020 g \0 \0 H o \0 \0 \0 \f \0
0025660 \0 020 \0 ( 1 7 0 Q C H E C K - T
0025700 Y P E - F A I L 1 5 4 Q % %
0025720 M A K E - C O M P L E X 1 5 1
0025740 Q R A T I O N A L 1 4 6 Q
0025760 I M A G P A R T 1 4 2 Q R A
0026000 T I O N A L 1 3 7 Q R E A L
0026020 P A R T 1 1 2 Q % % B U I L
0026040 D - R A T I O 1 0 7 Q A S H
0026060 1 0 2 Q A S H 7 4 Q % %
0026100 B U I L D - R A T I O 7 1 Q
0026120 A S H 5 4 Q T R U N C A T E
0026140 5 1 Q S C A L E - F L O A T
0026160 4 3 Q F L O A T - P R E C I
0026200 S I O N 3 0 Q \ M V L I S T
0026220 2 5 Q D E C O D E - F L O A
0026240 T ) \r ( 1 6 0 Q N U M B E R
0026260 1 3 0 Q 004 003 C O M P L E X T Y
0026300 P E # 1 2 1 Q 004 003 R A T I O
0026320 T Y P E # ) \r ( 1 6 5 Q ( O
0026340 R I N T E G E R F L O A T
0026360 R A T I O C O M P L E X ) ) \r
0026400 R A T I O N A L I Z E D 1 \r (
0026420 L ( 0 N U M B E R ) ) \0 G
0026440 002 \0 \0 001 @ 021 021 001 H Y d 3 221 277 205
0026460 004 ` \0 \0 360 221 @ 020 I d 004 l 003 360 225 277
0026500 @ \t \0 \0 020 004 ` \0 \0 360 264 024 @ \t \0 \0
0026520 \t \0 \0 @ \t \0 \0 \t \0 \0 \n \0 \0 020 g \0
0026540 \0 H o \0 \0 \0 \f \0 \0 020 \0 ( 1 0 4 Q
0026560 C H E C K - T Y P E - F A I L
0026600 7 0 Q % % M A K E - C O M P
0026620 L E X 6 5 Q R A T I O N A L
0026640 I Z E 6 2 Q I M A G P A R T
0026660 5 6 Q R A T I O N A L I Z E
0026700 5 3 Q R E A L P A R T 3 7
0026720 Q % % R A T I O N A L I Z E -
0026740 F L O A T ) \r ( 7 4 Q N U M B
0026760 E R 4 4 Q 004 003 C O M P L E X
0027000 T Y P E # 1 7 Q 004 003 R A T I
0027020 O T Y P E # ) \r ( 1 0 1 Q (
0027040 O R O R I N T E G E R R A
0027060 T I O F L O A T C O M P L E
0027100 X ) ) \r % % R A T I O - P R I N
0027120 T D 1 \r ( P 3 \ T H I S F
0027140 I L E L I N E L E N G T H P
0027160 2 * P R I N T - R A D I X *
0027200 P 1 B O T T O M P 0 T
0027220 O P I 1 S T R E A M I
0027240 0 N U M B E R F 4 \ T H
0027260 I S F I L E L I N E L E N G T H
0027300 F 5 * R E A D T A B L E *
0027320 ) \0 i 004 002 \0 002 @ \t \0 \0 @ \t \0 \0
0027340 021 002 001 U 006 \0 \0 312 \0 020 j 360 262 033 o \0
0027360 \0 \0 A \n \0 \0 277 g \0 \0 H I h 032 032 032
0027400 A \n \0 \0 277 260 9 021 020 002 T 262 034 H \t \0
0027420 \0 I \t \0 \0 A 006 \0 \0 310 035 k 330 330 330 T
0027440 361 224 A \t \0 \0 277 021 020 003 H A \n \0 \0 277
0027460 o \0 \0 \0 A \n \0 \0 277 I A \n \0 \0 i 020
0027500 \0 ( 1 4 5 Q \ P R I N D A T U
0027520 M 1 3 7 Q P R I N 3 1 2 6
0027540 Q \ P R I N D A T U M 1 1 5
0027560 Q F R E S H L I N E 7 4 Q
0027600 N C H A R S 7 0 Q N C H A R
0027620 S 5 3 Q \ P R I N D A T U M
0027640 3 5 Q P R I N 1 7 D E N
0027660 O M I N A T O R 3 N U M E R
0027700 A T O R ) \r ( 1 0 0 Q S T R E
0027720 A M 4 1 Q / 1 6 Q R E A
0027740 D T A B L E P ) \r ( 1 3 3 Q
0027760 " / " 3 1 Q " | . " ) \r % %
0030000 B U I L D - R A T I O D 1 \r (
0030020 L ( 1 Y 0 X ) ) \0 S 004
0030040 \0 \0 002 @ A \n \0 \0 \t \0 \0 021 1 003 H 001
0030060 271 H 002 001 Z j 360 263 6 J 005 003 265 , @ A
0030100 \n \0 \0 [ k \n \0 \0 257 @ K \n \0 \0 b \0
0030120 277 A K \n \0 \0 b 002 277 j A 363 262 023 j @
0030140 325 j A 325 \n \0 \0 020 \t \0 \0 262 323 I 020 @
0030160 A \n \0 \0 020 \0 ( 1 2 0 Q % % M A
0030200 K E - R A T I O 1 0 7 Q \ F
0030220 Z E R O P 1 0 3 Q % % M A K
0030240 E - R A T I O 6 2 Q % % /
0030260 5 2 Q % % / 4 4 Q % % =
0030300 3 7 Q % % G C D 7 \ M V L
0030320 I S T 4 T R U N C A T E ) \r
0030340 N I L \r ( ) \r % % R A T I O N A
0030360 L I Z E - F L O A T D 1 \r ( P
0030400 1 1 Q D E N P 1 0 Q N
0030420 U M P 7 O L D D E N P
0030440 6 O L D N U M P 5 F P
0030460 4 R P 3 E X P T P
0030500 2 X D E N P 1 X N U M
0030520 P 0 S I G N I 0 X )
0030540 \0 255 \r \0 \0 001 021 320 \f @ \t \0 \0 \t \0 \0
0030560 _ 026 001 271 O 026 002 _ 024 001 273 O 024 002 001 270
0030600 I j 360 221 j 020 o \0 \0 \0 272 K l 030 324 273
0030620 @ \t \0 \0 274 o \0 \0 \0 I 363 233 J 342 272 K
0030640 k 325 273 L l 002 326 274 k 276 j _ 016 _ 020 277
0030660 k _ 022 j 360 263 4 O 020 O 022 353 L \n \0 \0
0030700 262 ) K j 363 231 O 020 K \n \0 \0 _ 020 277 216
0030720 j K 363 232 O 022 j K 325 \n \0 \0 _ 022 277 H
0030740 O 020 326 O 022 \n \0 \0 020 J I 272 Y J \n \0
0030760 \0 \t \0 \0 _ 030 001 275 O 030 002 001 271 N M O
0031000 020 ^ 326 324 _ 020 277 O 016 M O 022 _ 016 326 324
0031020 260 241 \0 ( 2 1 5 Q \ M V L I S T
0031040 2 1 2 Q T R U N C A T E 2
0031060 0 1 Q % % / 1 6 5 Q A S H
0031100 1 4 5 Q A S H 1 3 1 Q %
0031120 % = 5 5 Q D E C O D E - F L
0031140 O A T 1 1 Q \ M V L I S T
0031160 6 I N T E G E R - D E C O D E
0031200 - F L O A T ) \r N I L \r ( 6 2
0031220 Q 5 5 2 0 2 3 6 3 Q 4 3 Q
0031240 1 0 0 0 0 0 0 0 0 Q ) \r % % R A
0031260 T I O * D 1 \r ( L ( 1 Y
0031300 0 X ) ) \0 037 004 \0 \0 002 @ \t \0 \0
0031320 021 1 003 A \t \0 \0 271 @ \t \0 \0 272 A \t \0
0031340 \0 273 H J I K \f \0 \0 020 \0 ( 3 4 Q
0031360 % % R A T I O - T I M E S - Q U
0031400 O T I E N T 2 4 Q D E N O M
0031420 I N A T O R 1 7 Q D E N O M
0031440 I N A T O R 1 2 Q N U M E R
0031460 A T O R 3 N U M E R A T O R
0031500 ) \r N I L \r ( ) \r % % R A T I O
0031520 / D 1 \r ( L ( 1 Y 0 X
0031540 ) ) \0 / 004 \0 \0 002 @ \t \0 \0 021 1 003
0031560 A \t \0 \0 271 @ \t \0 \0 272 A \t \0 \0 273 j
0031600 I 363 233 H J j K 325 j I 325 \f \0 \0 020 H
0031620 J K I \f \0 \0 020 \0 ( 5 4 Q % % R
0031640 A T I O - T I M E S - Q U O T I
0031660 E N T 4 4 Q % % R A T I O -
0031700 T I M E S - Q U O T I E N T 2
0031720 4 Q D E N O M I N A T O R 1
0031740 7 Q D E N O M I N A T O R 1
0031760 2 Q N U M E R A T O R 3 N
0032000 U M E R A T O R ) \r N I L \r ( )
0032020 \r % % R A T I O - T I M E S - Q
0032040 U O T I E N T D 1 \r ( L ( 3
0032060 K 2 2 H 2 1 K 1 0
0032100 H 1 ) ) \0 R 002 \0 \0 004 @ C \n \0 \0
0032120 B A \n \0 \0 021 002 001 H k \n \0 \0 257 @ H
0032140 \n \0 \0 b \0 277 C H \n \0 \0 b 006 277 I k
0032160 \n \0 \0 257 B I \n \0 \0 b 004 277 A I \n \0
0032200 \0 b 002 277 023 @ B 326 A C 326 021 002 001 I k
0032220 \n \0 \0 221 H 020 H I \n \0 \0 020 \0 ( 1 1
0032240 7 Q % % M A K E - R A T I O
0032260 1 0 7 Q % % = 6 5 Q % % /
0032300 5 5 Q % % / 4 7 Q % % =
0032320 3 7 Q % % / 2 7 Q % % /
0032340 2 1 Q % % = 1 1 Q % % G
0032360 C D 4 % % G C D ) \r N I L \r
0032400 ( ) \r % % R A T I O + D 1 \r (
0032420 L ( 1 Y 0 X ) ) \0 \b \0
0032440 \0 \0 002 @ A h \v \0 \0 020 \0 ( 5 % %
0032460 R A T I O - P L U S - D I F F E
0032500 R E N C E ) \r N I L \r ( ) \r % %
0032520 R A T I O - D 1 \r ( L ( 1
0032540 Y 0 X ) ) \0 \b \0 \0 \0 002 @ A
0032560 i \v \0 \0 020 \0 ( 5 % % R A T I O
0032600 - P L U S - D I F F E R E N C E
0032620 ) \r N I L \r ( ) \r % % R A T I O
0032640 - P L U S - D I F F E R E N C E
0032660 D 1 \r ( L ( 2 D I F F E R
0032700 E N C E F L G 1 Y 0 X )
0032720 ) \0 206 \n \0 \0 003 @ \t \0 \0 021 221 \t @
0032740 \t \0 \0 271 A \t \0 \0 272 A \t \0 \0 273 I K
0032760 \n \0 \0 274 B 223 j J 325 272 L k \n \0 \0 235
0033000 H K 326 J I 326 324 I K 326 \n \0 \0 020 I L
0033020 \n \0 \0 275 H K L \n \0 \0 326 J M 326 324 ^
0033040 L \n \0 \0 _ 016 277 K _ 020 277 O 016 k \n \0
0033060 \0 257 K O 016 \n \0 \0 _ 020 277 N O 016 \n \0
0033100 \0 276 M _ 022 k \n \0 \0 231 O 022 O 020 \n \0
0033120 \0 221 N 020 N M O 020 326 \n \0 \0 020 \0 ( 2
0033140 0 3 Q % % M A K E - R A T I O
0033160 1 7 0 Q % % = 1 6 0 Q %
0033200 % = 1 5 0 Q % % / 1 3 7 Q
0033220 % % / 1 3 0 Q % % = 1 1
0033240 3 Q % % G C D 1 0 1 Q % %
0033260 / 7 2 Q % % / 6 4 Q % %
0033300 M A K E - R A T I O 4 6 Q %
0033320 % = 3 2 Q % % G C D 2 4 Q
0033340 D E N O M I N A T O R 1 7 Q
0033360 N U M E R A T O R 1 2 Q D
0033400 E N O M I N A T O R 3 N U M
0033420 E R A T O R ) \r N I L \r ( ) \r %
0033440 % R A T I O - I N T E G E R *
0033460 D 1 \r ( L ( 1 Y 0 X ) )
0033500 \0 L 002 \0 \0 002 A j 360 263 . A 005 003 265
0033520 $ @ \t \0 \0 021 021 001 H A \n \0 \0 Y k \n
0033540 \0 \0 263 030 A I \n \0 \0 b 002 277 H I \n \0
0033560 \0 X 207 \t \0 \0 262 333 j 020 H k \n \0 \0 226
0033600 @ \t \0 \0 A 326 020 @ \t \0 \0 A 326 H \n \0
0033620 \0 020 \0 ( 1 1 1 Q % % M A K E -
0033640 R A T I O 1 0 3 Q N U M E R
0033660 A T O R 7 4 Q N U M E R A T
0033700 O R 6 7 Q % % = 5 6 Q \
0033720 F Z E R O P 5 1 Q % % / 4
0033740 1 Q % % / 3 2 Q % % = 2
0033760 5 Q % % G C D 1 5 Q D E N
0034000 O M I N A T O R ) \r N I L \r ( )
0034020 \r % % R A T I O - I N T E G E R
0034040 + D 1 \r ( L ( 1 Y 0 X
0034060 ) ) \0 025 001 \0 \0 002 @ \t \0 \0 021 001 \0
0034100 @ \t \0 \0 H A 326 324 H \n \0 \0 020 \0 ( 2
0034120 2 Q % % M A K E - R A T I O
0034140 1 2 Q R A T I O - N U M E R A
0034160 T O R 3 R A T I O - D E N O
0034200 M I N A T O R ) \r N I L \r ( ) \r
0034220 % % R A T I O - I N T E G E R -
0034240 D 1 \r ( L ( 1 Y 0 X )
0034260 ) \0 025 001 \0 \0 002 @ \t \0 \0 021 001 \0 @
0034300 \t \0 \0 H A 326 325 H \n \0 \0 020 \0 ( 2 2
0034320 Q % % M A K E - R A T I O 1
0034340 2 Q R A T I O - N U M E R A T
0034360 O R 3 R A T I O - D E N O M
0034400 I N A T O R ) \r N I L \r ( ) \r C
0034420 O M P L E X - I M A G P A R T
0034440 D 1 \r ( L ( 0 O B J E C T )
0034460 ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 002 020 \0
0034500 N I L \r ( 3 C O M P L E X ) \r
0034520 ( ) \r s e t f - C O M P L E X -
0034540 I M A G P A R T D 1 \r ( L (
0034560 1 V A L U E 0 O B J E C T
0034600 ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 002
0034620 A 020 \0 N I L \r ( 3 C O M P L E
0034640 X ) \r ( ) \r ( R E M P R O P (
0034660 Q U O T E C O M P L E X - I M
0034700 A G P A R T ) ( Q U O T E S
0034720 E T F - M E T H O D - E X P A N
0034740 D E R ) ) \r ( P U T P R O P S
0034760 C O M P L E X - I M A G P A R T
0035000 S E T F - I N V E R S E s e
0035020 t f - C O M P L E X - I M A G P
0035040 A R T ) \r C O M P L E X - R E A
0035060 L P A R T D 1 \r ( L ( 0 O
0035100 B J E C T ) ) \0 \b \0 \0 \0 001 @ 006
0035120 \0 \0 311 \0 020 \0 N I L \r ( 3 C O M
0035140 P L E X ) \r ( ) \r s e t f - C O
0035160 M P L E X - R E A L P A R T D
0035200 1 \r ( L ( 1 V A L U E 0
0035220 O B J E C T ) ) \0 \n \0 \0 \0 002 @
0035240 006 \0 \0 A 024 \0 A 020 \0 N I L \r ( 3
0035260 C O M P L E X ) \r ( ) \r ( R E M
0035300 P R O P ( Q U O T E C O M P
0035320 L E X - R E A L P A R T ) ( Q
0035340 U O T E S E T F - M E T H O D
0035360 - E X P A N D E R ) ) \r ( P U T
0035400 P R O P S C O M P L E X - R E
0035420 A L P A R T S E T F - I N V E
0035440 R S E s e t f - C O M P L E X
0035460 - R E A L P A R T ) \r C O M P L
0035500 E X P D 1 \r ( L ( 0 O B J
0035520 E C T ) ) \0 \b \0 \0 \0 001 @ 004 ` \0
0035540 \0 360 020 \0 N I L \r ( 4 004 003 C O M
0035560 P L E X T Y P E # ) \r ( ) \r C O
0035600 P Y - C O M P L E X D 1 \r ( L
0035620 ( 0 O B J E C T ) ) \0 \t \0
0035640 \0 \0 001 ` \0 \0 @ \n \0 \0 020 \0 ( 6 N
0035660 C R E A T E 2 ) \r ( 2 004 003 C O
0035700 M P L E X T Y P E # ) \r ( ) \r (
0035720 D E F P R I N T ( Q U O T E
0035740 C O M P L E X ) ( F U N C T I
0035760 O N ( L A M B D A ( X S T
0036000 R E A M ) ( A P P L Y * ( F
0036020 U N C T I O N % % C O M P L E
0036040 X - P R I N T ) X S T R E A
0036060 M 0 ) \r T ) ) ) \r % % i n t
0036100 e r n a l - m a k e - C O M P L
0036120 E X D 1 \r ( L ( 0 - a r g
0036140 s - ) ) \0 \ 005 \0 002 \0 e 021 001 \0 H
0036160 k 021 002 002 J d I 363 262 ( 277 g \0 \0 022 021
0036200 1 004 H k 273 272 K d J 363 262 ) 277 g \0 \0
0036220 274 ` \0 \0 037 d I 024 \0 277 d L 024 002 277 020
0036240 a g \0 \0 360 225 J k 330 a 260 324 J l 002 324
0036260 Z 260 304 a g \0 \0 360 225 K k 330 a 260 323 K
0036300 l 002 324 [ 260 303 \0 N I L \r ( 1 1 3 Q
0036320 : I M A G P A R T 7 0 Q :
0036340 R E A L P A R T 5 0 Q 004 003 C
0036360 O M P L E X T Y P E # 4 4 Q
0036400 : R E A D - O N L Y 2 2 Q :
0036420 R E A D - O N L Y ) \r ( ) \r % %
0036440 M A K E - C O M P L E X D 1 \r
0036460 ( L ( 1 I M A G P A R T 0
0036500 R E A L P A R T ) ) \0 020 \0 \0
0036520 \0 002 ` \0 \0 037 d @ 024 \0 277 d A 024 002 277
0036540 020 \0 N I L \r ( 2 004 003 C O M P L
0036560 E X T Y P E # ) \r ( ) \r ( P U T
0036600 P R O P ( Q U O T E C O M P
0036620 L E X ) ( Q U O T E S T R U
0036640 C T U R E - C O N S T R U C T O
0036660 R ) ( Q U O T E % % i n t e
0036700 r n a l - m a k e - C O M P L E
0036720 X ) ) \r ( P U T P R O P ( Q U
0036740 O T E C O M P L E X ) ( Q U
0036760 O T E % % S L O T - D E S C R
0037000 I P T I O N S ) ( Q U O T E
0037020 ( ( R E A L P A R T : R E A D
0037040 - O N L Y ) ( I M A G P A R T
0037060 \r : R E A D - O N L Y ) ) ) )
0037100 \r ( / D E C L A R E D A T A T Y
0037120 P E ( Q U O T E C O M P L E
0037140 X ) ( Q U O T E ( P O I N T
0037160 E R P O I N T E R ) ) ( Q U
0037200 O T E ( ( C O M P L E X 0
0037220 P O I N T E R ) ( C O M P L E
0037240 X 2 \r P O I N T E R ) ) )
0037260 ( Q U O T E 4 ) ) \r ( \ S E T
0037300 T Y P E M A S K ( \ T Y P E N
0037320 U M B E R F R O M N A M E ( Q
0037340 U O T E C O M P L E X ) ) (
0037360 L O G O R \ T T . N U M B E R
0037400 P \ T T . A T O M ) ) \r C O M
0037420 P L E X D 1 \r ( L ( 0 - a
0037440 r g s - ) ) \0 z \a \0 002 \0 e 021 001
0037460 \0 k a 021 Q 006 l 002 H 361 221 j 202 l 002 a
0037500 272 I ^ ] 004 ` \0 \0 360 246 M d 3 262 ;
0037520 277 J d j : 262 037 I 020 004 l 003 360 230 I 006
0037540 \0 \0 J \n \0 \0 020 i g \0 \0 L o \0 \0 \0
0037560 \f \0 \0 Z \ [ 004 ` \0 \0 360 246 K d 3
0037600 262 331 277 I J \n \0 \0 020 004 l 003 360 230 I J
0037620 006 \0 \0 \n \0 \0 020 i g \0 \0 N o \0 \0 \0
0037640 \f \0 \0 Y 260 236 \0 ( 1 6 5 Q C H E
0037660 C K - T Y P E - F A I L 1 5 0
0037700 Q % % M A K E - C O M P L E X
0037720 1 3 2 Q % % M A K E - C O M
0037740 P L E X 1 0 5 Q C H E C K -
0037760 T Y P E - F A I L 7 0 Q % %
0040000 M A K E - C O M P L E X ) \r ( 1
0040020 5 5 Q R E A L P A R T 1 4 5
0040040 Q F L O A T P 1 1 4 Q 004 003
0040060 R A T I O T Y P E # 7 5 Q I
0040100 M A G P A R T 6 4 Q F L O A
0040120 T P 3 2 Q 004 003 R A T I O T Y
0040140 P E # ) \r ( 1 6 2 Q ( O R
0040160 R A T I O N A L F L O A T )
0040200 1 0 2 Q ( O R R A T I O N A
0040220 L F L O A T ) ) \r R E A L P A
0040240 R T D 1 \r ( L ( 0 N U M B
0040260 E R ) ) \0 % 001 \0 \0 001 @ 021 001 \0 H
0040300 d 004 ` \0 \0 360 225 277 @ \t \0 \0 020 3 020 264
0040320 004 @ 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0
0040340 ( 4 2 Q C H E C K - T Y P E -
0040360 F A I L 2 0 Q C O M P L E X
0040400 - R E A L P A R T ) \r ( 3 2 Q
0040420 N U M B E R 1 1 Q 004 003 C O M
0040440 P L E X T Y P E # ) \r ( 3 7 Q
0040460 ( O R C O M P L E X N U M
0040500 B E R ) ) \r I M A G P A R T D
0040520 1 \r ( L ( 0 N U M B E R ) )
0040540 \0 1 002 \0 \0 001 @ 021 021 001 H Y d 004 `
0040560 \0 \0 360 225 277 @ \t \0 \0 020 004 l 003 360 224 o
0040600 \0 \0 \0 020 I 3 020 264 004 j 020 g \0 \0 H o
0040620 \0 \0 \0 \f \0 \0 020 \0 ( 5 6 Q C H E
0040640 C K - T Y P E - F A I L 2 1 Q
0040660 C O M P L E X - I M A G P A R
0040700 T ) \r ( 4 6 Q N U M B E R 1
0040720 2 Q 004 003 C O M P L E X T Y P E
0040740 # ) \r ( 5 3 Q ( O R C O M
0040760 P L E X F L O A T N U M B E
0041000 R ) 3 3 Q 0 . 0 ) \r % % C O
0041020 M P L E X + D 1 \r ( L ( 1
0041040 Y 0 X ) ) \0 027 \0 \0 \0 002 @ \t
0041060 \0 \0 A \t \0 \0 324 @ \t \0 \0 A \t \0 \0 324
0041100 \n \0 \0 020 \0 ( 2 4 Q C O M P L E
0041120 X 2 0 Q I M A G P A R T 1
0041140 4 Q I M A G P A R T 7 R E
0041160 A L P A R T 3 R E A L P A R
0041200 T ) \r N I L \r ( ) \r % % C O M P
0041220 L E X - D 1 \r ( L ( 1 Y
0041240 0 X ) ) \0 027 \0 \0 \0 002 @ \t \0 \0
0041260 A \t \0 \0 325 @ \t \0 \0 A \t \0 \0 325 \n \0
0041300 \0 020 \0 ( 2 4 Q C O M P L E X
0041320 2 0 Q I M A G P A R T 1 4 Q
0041340 I M A G P A R T 7 R E A L
0041360 P A R T 3 R E A L P A R T )
0041400 \r N I L \r ( ) \r % % C O M P L E
0041420 X * D 1 \r ( L ( 1 Z 2 0
0041440 Z 1 ) ) \0 ) 004 \0 \0 002 @ \t \0 \0
0041460 021 1 003 @ \t \0 \0 271 A \t \0 \0 272 A \t \0
0041500 \0 273 H J 326 I K 326 325 I J 326 H K 326 324
0041520 \n \0 \0 020 \0 ( 4 6 Q C O M P L E
0041540 X 2 4 Q I M A G P A R T 1
0041560 7 Q R E A L P A R T 1 2 Q
0041600 I M A G P A R T 3 R E A L P
0041620 A R T ) \r N I L \r ( ) \r % % C O
0041640 M P L E X / D 1 \r ( L ( 1
0041660 Z 2 0 Z 1 ) ) \0 = 006 \0 \0 002
0041700 @ \t \0 \0 021 Q 005 @ \t \0 \0 271 A \t \0 \0
0041720 272 A \t \0 \0 273 J d 326 274 K d 326 275 H J
0041740 326 I K 326 324 L M 324 \n \0 \0 I J 326 H K
0041760 326 325 L M 324 \n \0 \0 \n \0 \0 020 \0 ( 7 2
0042000 Q C O M P L E X 6 7 Q % %
0042020 / 5 2 Q % % / 2 4 Q I M
0042040 A G P A R T 1 7 Q R E A L P
0042060 A R T 1 2 Q I M A G P A R T
0042100 3 R E A L P A R T ) \r N I L
0042120 \r ( ) \r % % C O M P L E X - A B
0042140 S D 1 \r ( L ( 0 Z ) ) \0
0042160 027 002 \0 \0 001 @ \t \0 \0 @ \t \0 \0 021 002 001
0042200 H d 326 I d 326 324 \t \0 \0 020 \0 ( 2 4 Q
0042220 C L : S Q R T 7 C O M P L
0042240 E X - I M A G P A R T 3 C O
0042260 M P L E X - R E A L P A R T ) \r
0042300 N I L \r ( ) \r % % C O M P L E X
0042320 - M I N U S D 1 \r ( L ( 0
0042340 Z ) ) \0 021 \0 \0 \0 001 j @ \t \0 \0 325
0042360 j @ \t \0 \0 325 \n \0 \0 020 \0 ( 1 6 Q
0042400 C O M P L E X 1 2 Q I M A G
0042420 P A R T 4 R E A L P A R T )
0042440 \r N I L \r ( ) \r % % C O M P L E
0042460 X - T I M E S I D 1 \r ( L (
0042500 0 Z ) ) \0 017 \0 \0 \0 001 j @ \t \0
0042520 \0 325 @ \t \0 \0 \n \0 \0 020 \0 ( 1 4 Q
0042540 C O M P L E X 1 1 Q R E A L
0042560 P A R T 4 I M A G P A R T )
0042600 \r N I L \r ( ) \r C O N J U G A T
0042620 E D 1 \r ( P 1 $ $ T Y P E
0042640 - V A L U E P 0 E T Y P E
0042660 C A S E 0 3 4 8 I 0 N U M
0042700 B E R ) \0 / 002 \0 \0 001 @ 021 021 001 H
0042720 Y d 004 ` \0 \0 360 236 277 @ \t \0 \0 j @ \t
0042740 \0 \0 325 \n \0 \0 020 3 020 264 004 @ 020 g \0 \0
0042760 H o \0 \0 \0 \f \0 \0 020 \0 ( 5 4 Q C
0043000 H E C K - T Y P E - F A I L 3
0043020 2 Q % % M A K E - C O M P L E
0043040 X 2 6 Q C O M P L E X - I M
0043060 A G P A R T 2 1 Q C O M P L
0043100 E X - R E A L P A R T ) \r ( 4 4
0043120 Q N U M B E R 1 2 Q 004 003 C
0043140 O M P L E X T Y P E # ) \r ( 5
0043160 1 Q ( O R C O M P L E X N
0043200 U M B E R ) ) \r % % C O M P L E
0043220 X - P R I N T D 1 \r ( L ( 1
0043240 S T R E A M 0 C O M P L E
0043260 X ) F 1 * R E A D T A B L
0043300 E * ) \0 0 001 001 \0 002 A o \0 \0 \0 Q
0043320 006 \0 \0 312 004 \a 021 001 \0 H m 377 363 264 016 o
0043340 \0 \0 \0 H 363 264 006 l \a H 321 022 @ \t \0 \0
0043360 @ \t \0 \0 \r 005 \0 \0 020 \0 ( 5 5 Q F
0043400 O R M A T 5 1 Q C O M P L E
0043420 X - I M A G P A R T 4 5 Q C
0043440 O M P L E X - R E A L P A R T )
0043460 \r ( 1 0 Q R E A D T A B L E P
0043500 ) \r ( 3 0 Q 2 0 0 0 0 0 Q
0043520 4 " ~ C C ( ~ S ~ S ) " ) \r
0043540 N E W - M I N U S P D 1 \r ( I
0043560 0 N U M B E R ) \0 005 \0 \0 \0
0043600 001 j @ 363 020 \0 N I L \r N I L \r ( )
0043620 \r ( M O V D ( Q U O T E N E
0043640 W - M I N U S P ) ( Q U O T E
0043660 M I N U S P ) ) \r C L : Z E R
0043700 O P D 1 \r ( L ( 0 N U M B
0043720 E R ) ) \0 \a \0 \0 \0 001 @ j \n \0 \0
0043740 020 \0 ( 4 % % = ) \r N I L \r ( )
0043760 \r E V E N P D 1 \r ( L ( 0
0044000 - a r g s - ) ) \0 & 004 \0 002 \0 e
0044020 021 001 \0 k a 021 ! 003 l 002 d H 361 240 a 272
0044040 I J \n \0 \0 [ j 360 265 \v K 005 003 264 006 K
0044060 \t \0 \0 020 \0 ( 4 3 Q \ F Z E R O
0044100 P 2 5 Q C L : M O D ) \r N I
0044120 L \r ( ) \r O D D P D 1 \r ( L
0044140 ( 0 - a r g s - ) ) \0 ( 004 \0
0044160 002 \0 e 021 001 \0 k a 021 ! 003 l 002 d H 361
0044200 240 a 272 I J \n \0 \0 [ j 360 265 \v K 005 003
0044220 264 006 K \t \0 \0 h 360 020 \0 ( 4 3 Q \
0044240 F Z E R O P 2 5 Q C L : M O
0044260 D ) \r N I L \r ( ) \r P L U S P
0044300 D 1 \r ( L ( 0 N U M B E R )
0044320 ) \0 005 \0 \0 \0 001 @ j 363 020 \0 N I L
0044340 \r N I L \r ( ) \r % % = D 1 \r (
0044360 N A M E = P 1 1 Q $ $ T
0044400 Y P E - V A L U E P 1 0 Q
0044420 C T Y P E C A S E 0 3 6 4 P
0044440 7 $ $ T Y P E - V A L U E P
0044460 6 C T Y P E C A S E 0 3 6 1
0044500 P 5 $ $ T Y P E - V A L U
0044520 E P 4 C T Y P E C A S E 0
0044540 3 5 8 P 3 $ $ T Y P E - V
0044560 A L U E P 2 C T Y P E C A
0044600 S E 0 3 5 5 P 1 $ $ T Y P
0044620 E - V A L U E P 0 C T Y P
0044640 E C A S E 0 3 5 2 I 1 Y
0044660 I 0 X ) 001 245 \n \0 \0 002 @ A :
0044700 265 003 202 261 001 w @ 021 001 \0 H 021 001 001 I d
0044720 3 262 O 277 A 021 001 002 J 021 001 003 K d 004
0044740 l 003 360 226 277 @ A \n \0 \0 020 004 ` \0 \0 360
0044760 262 031 @ A \t \0 \0 \n \0 \0 264 003 202 261 001 =
0045000 j A \t \0 \0 \n \0 \0 020 K 3 020 221 h 020 i
0045020 g \0 \0 J o \0 \0 \0 \f \0 \0 b 002 023 023 260
0045040 266 004 ` \0 \0 360 262 o A 021 001 004 L 021 001 005
0045060 M d 004 ` \0 \0 360 262 034 277 @ \t \0 \0 A \t
0045100 \0 \0 : 264 003 202 261 \0 364 @ \t \0 \0 A \t \0
0045120 \0 : 020 004 l 003 360 226 @ 006 \0 \0 A : 020 M
0045140 d 3 263 252 004 ` \0 \0 360 262 031 @ A \t \0
0045160 \0 \n \0 \0 264 003 202 261 \0 303 A \t \0 \0 j \n
0045200 \0 \0 020 i g \0 \0 L o \0 \0 \0 \f \0 \0 b
0045220 002 023 023 260 225 I d 004 l 003 360 262 U 277 A 021
0045240 001 006 N 021 001 \a O 016 d 004 l 003 360 222 261 377
0045260 _ 3 251 O 016 d 004 ` \0 \0 360 226 277 @ A
0045300 \n \0 \0 020 004 ` \0 \0 360 262 025 @ A \t \0 \0
0045320 \n \0 \0 264 g A \t \0 \0 j \n \0 \0 020 i g
0045340 \0 \0 N o \0 \0 \0 \f \0 \0 b 002 023 023 260 260
0045360 004 ` \0 \0 360 262 Y A 021 001 \b O 020 021 001 \t
0045400 O 022 d 004 ` \0 \0 360 262 034 277 @ \t \0 \0 A
0045420 \t \0 \0 \n \0 \0 264 $ @ \t \0 \0 A \t \0 \0
0045440 \n \0 \0 020 3 020 262 025 @ \t \0 \0 A \n \0 \0
0045460 264 \n @ \t \0 \0 j \n \0 \0 020 i g \0 \0 O
0045500 020 o \0 \0 \0 \f \0 \0 b 002 023 023 260 253 i g
0045520 \0 \0 H o \0 \0 \0 \f \0 \0 b \0 023 023 261 376
0045540 h \0 ( 6 3 4 Q C H E C K - T Y
0045560 P E - F A I L 6 1 2 Q C H E
0045600 C K - T Y P E - F A I L 5 7 4
0045620 Q % % = 5 7 0 Q C O M P L
0045640 E X - I M A G P A R T 5 6 2 Q
0045660 % % = 5 5 6 Q C O M P L E
0045700 X - R E A L P A R T 5 4 5 Q
0045720 % % = 5 4 2 Q C O M P L E X
0045740 - I M A G P A R T 5 3 6 Q C
0045760 O M P L E X - I M A G P A R T
0046000 5 3 0 Q % % = 5 2 5 Q C O
0046020 M P L E X - R E A L P A R T 5
0046040 2 1 Q C O M P L E X - R E A L
0046060 P A R T 4 5 4 Q C H E C K -
0046100 T Y P E - F A I L 4 3 7 Q %
0046120 % = 4 3 3 Q C O M P L E X -
0046140 I M A G P A R T 4 2 5 Q % %
0046160 = 4 2 2 Q C O M P L E X - R
0046200 E A L P A R T 4 0 5 Q F E Q
0046220 P 3 2 1 Q C H E C K - T Y P
0046240 E - F A I L 3 0 4 Q % % =
0046260 3 0 0 Q C O M P L E X - I M A
0046300 G P A R T 2 6 6 Q % % = 2
0046320 6 3 Q C O M P L E X - R E A L
0046340 P A R T 2 2 3 Q R A T I O -
0046360 D E N O M I N A T O R 2 1 7 Q
0046400 R A T I O - D E N O M I N A T
0046420 O R 2 0 4 Q R A T I O - N U
0046440 M E R A T O R 2 0 0 Q R A T
0046460 I O - N U M E R A T O R 1 3 5
0046500 Q C H E C K - T Y P E - F A I
0046520 L 1 1 2 Q % % = 1 0 7 Q
0046540 C O M P L E X - I M A G P A R T
0046560 7 4 Q % % = 7 1 Q C O M
0046600 P L E X - R E A L P A R T 5 4
0046620 Q F E Q P ) \r ( 6 2 4 Q X
0046640 6 0 1 Q Y 5 1 1 Q 004 003 C O
0046660 M P L E X T Y P E # 4 6 6 Q
0046700 004 003 C O M P L E X T Y P E # 4
0046720 4 4 Q Y 4 1 2 Q 004 003 C O M
0046740 P L E X T Y P E # 3 7 5 Q 004
0046760 003 R A T I O T Y P E # 3 1 1 Q
0047000 Y 2 5 3 Q 004 003 C O M P L E
0047020 X T Y P E # 2 3 6 Q F L O A
0047040 T P 1 7 0 Q 004 003 R A T I O T
0047060 Y P E # 1 4 7 Q 004 003 R A T I
0047100 O T Y P E # 1 2 5 Q Y 6 1
0047120 Q 004 003 C O M P L E X T Y P E #
0047140 ) \r ( 6 3 1 Q ( O R I N T
0047160 E G E R R A T I O F L O A T
0047200 C O M P L E X ) 6 0 7 Q (
0047220 O R C O M P L E X N U M B E
0047240 R ) 4 5 1 Q ( O R F L O A
0047260 T O R I N T E G E R R A T
0047300 I O C O M P L E X ) \r 3 1 6
0047320 Q ( O R R A T I O F L O A
0047340 T I N T E G E R C O M P L E
0047360 X ) 1 3 2 Q ( O R F L O A
0047400 T C O M P L E X N U M B E R
0047420 ) ) \r % % > D 1 \r ( N A M E
0047440 > P 7 $ $ T Y P E - V A L
0047460 U E P 6 C T Y P E C A S E
0047500 0 3 7 6 P 5 $ $ T Y P E -
0047520 V A L U E P 4 C T Y P E C
0047540 A S E 0 3 7 3 P 3 $ $ T Y
0047560 P E - V A L U E P 2 C T Y
0047600 P E C A S E 0 3 7 0 P 1 $
0047620 $ T Y P E - V A L U E P 0
0047640 C T Y P E C A S E 0 3 6 7 I
0047660 1 Y I 0 X ) 001 \t \b \0 \0
0047700 002 @ 021 001 \0 H 021 001 001 I d 3 262 C 277
0047720 A 021 001 002 J 021 001 003 K d 3 224 277 @ A
0047740 361 020 004 l 003 360 223 @ A 362 020 K 004 ` \0 \0
0047760 360 233 A \t \0 \0 @ 326 A \t \0 \0 361 020 i g
0050000 \0 \0 J o \0 \0 \0 \f \0 \0 b 002 023 023 260 302
0050020 004 l 003 360 262 ? A 021 001 004 L 021 001 005 M d
0050040 3 221 277 204 004 l 003 360 223 @ A 362 020 M 004
0050060 ` \0 \0 360 233 A \t \0 \0 @ 326 A \t \0 \0 362
0050100 020 i g \0 \0 L o \0 \0 \0 \f \0 \0 b 002 023
0050120 023 260 305 I 004 ` \0 \0 360 262 ] A 021 001 006 N
0050140 021 001 \a O 016 d 3 234 277 @ \t \0 \0 @ \t
0050160 \0 \0 A 326 361 020 004 l 003 360 233 @ \t \0 \0 @
0050200 \t \0 \0 353 A 362 020 O 016 004 ` \0 \0 360 262 026
0050220 @ \t \0 \0 A \t \0 \0 326 A \t \0 \0 @ \t \0
0050240 \0 326 361 020 i g \0 \0 N o \0 \0 \0 \f \0 \0
0050260 b 002 023 023 260 247 i g \0 \0 H o \0 \0 \0 \f
0050300 \0 \0 b \0 023 023 261 376 373 \0 ( 4 0 0 Q
0050320 C H E C K - T Y P E - F A I L
0050340 3 5 6 Q C H E C K - T Y P E -
0050360 F A I L 3 3 7 Q D E N O M I
0050400 N A T O R 3 3 3 Q N U M E R
0050420 A T O R 3 2 6 Q D E N O M I
0050440 N A T O R 3 2 2 Q N U M E R
0050460 A T O R 3 0 1 Q D E N O M I
0050500 N A T O R 2 7 5 Q N U M E R
0050520 A T O R 2 6 0 Q D E N O M I
0050540 N A T O R 2 5 4 Q N U M E R
0050560 A T O R 2 1 3 Q C H E C K -
0050600 T Y P E - F A I L 1 7 5 Q N
0050620 U M E R A T O R 1 6 7 Q D E
0050640 N O M I N A T O R 1 1 0 Q C
0050660 H E C K - T Y P E - F A I L 7
0050700 2 Q N U M E R A T O R 6 4 Q
0050720 D E N O M I N A T O R ) \r ( 3
0050740 7 0 Q X 3 4 6 Q Y 3 1 3
0050760 Q 004 003 R A T I O T Y P E # 2
0051000 2 6 Q 004 003 R A T I O T Y P E #
0051020 2 0 3 Q Y 1 6 1 Q 004 003 R
0051040 A T I O T Y P E # 1 0 0 Q Y
0051060 5 6 Q 004 003 R A T I O T Y P E
0051100 # ) \r ( 3 7 5 Q ( O R I N
0051120 T E G E R F L O A T R A T I
0051140 O ) 3 5 3 Q ( O R I N T E
0051160 G E R F L O A T R A T I O )
0051200 2 1 0 Q ( O R O R I N T
0051220 E G E R F L O A T R A T I O
0051240 ) 1 0 5 Q ( O R I N T E G
0051260 E R F L O A T R A T I O ) )
0051300 \r = D 1 \r ( L ( 0 - a r g
0051320 s - ) ) \0 I \t \0 002 \0 e 021 001 \0 k
0051340 a 021 ! 003 H l 002 021 2 \b M d L 363 230 277
0051360 N 022 Z 003 265 ! i 020 a _ 020 277 O 016 265 017
0051400 O 020 h 032 _ 016 276 M k 324 ] 260 340 O 020 &
0051420 _ 016 277 260 364 001 273 I K \n \0 \0 241 h 020 J
0051440 002 260 321 \0 ( 1 0 0 Q % % = ) \r N
0051460 I L \r ( ) \r % % = D 1 \r ( N A
0051500 M E = P 1 1 Q $ $ T Y P
0051520 E - V A L U E P 1 0 Q C T
0051540 Y P E C A S E 0 3 9 1 P 7
0051560 $ $ T Y P E - V A L U E P 6
0051600 C T Y P E C A S E 0 3 8 8 P
0051620 5 $ $ T Y P E - V A L U E
0051640 P 4 C T Y P E C A S E 0 3 8
0051660 5 P 3 $ $ T Y P E - V A L
0051700 U E P 2 C T Y P E C A S E
0051720 0 3 8 2 P 1 $ $ T Y P E -
0051740 V A L U E P 0 C T Y P E C
0051760 A S E 0 3 7 9 I 1 Y I
0052000 0 X ) 001 245 \n \0 \0 002 @ A : 265 003
0052020 202 261 001 w @ 021 001 \0 H 021 001 001 I d 3
0052040 262 O 277 A 021 001 002 J 021 001 003 K d 004 l 003
0052060 360 226 277 @ A \n \0 \0 020 004 ` \0 \0 360 262 031
0052100 @ A \t \0 \0 \n \0 \0 264 003 202 261 001 = j A
0052120 \t \0 \0 \n \0 \0 020 K 3 020 221 h 020 i g \0
0052140 \0 J o \0 \0 \0 \f \0 \0 b 002 023 023 260 266 004
0052160 ` \0 \0 360 262 o A 021 001 004 L 021 001 005 M d
0052200 004 ` \0 \0 360 262 034 277 @ \t \0 \0 A \t \0 \0
0052220 : 264 003 202 261 \0 364 @ \t \0 \0 A \t \0 \0 :
0052240 020 004 l 003 360 226 @ 006 \0 \0 A : 020 M d 3
0052260 263 252 004 ` \0 \0 360 262 031 @ A \t \0 \0 \n
0052300 \0 \0 264 003 202 261 \0 303 A \t \0 \0 j \n \0 \0
0052320 020 i g \0 \0 L o \0 \0 \0 \f \0 \0 b 002 023
0052340 023 260 225 I d 004 l 003 360 262 U 277 A 021 001 006
0052360 N 021 001 \a O 016 d 004 l 003 360 222 261 377 _ 3
0052400 251 O 016 d 004 ` \0 \0 360 226 277 @ A \n \0
0052420 \0 020 004 ` \0 \0 360 262 025 @ A \t \0 \0 \n \0
0052440 \0 264 g A \t \0 \0 j \n \0 \0 020 i g \0 \0
0052460 N o \0 \0 \0 \f \0 \0 b 002 023 023 260 260 004 `
0052500 \0 \0 360 262 Y A 021 001 \b O 020 021 001 \t O 022
0052520 d 004 ` \0 \0 360 262 034 277 @ \t \0 \0 A \t \0
0052540 \0 \n \0 \0 264 $ @ \t \0 \0 A \t \0 \0 \n \0
0052560 \0 020 3 020 262 025 @ \t \0 \0 A \n \0 \0 264 \n
0052600 @ \t \0 \0 j \n \0 \0 020 i g \0 \0 O 020 o
0052620 \0 \0 \0 \f \0 \0 b 002 023 023 260 253 i g \0 \0
0052640 H o \0 \0 \0 \f \0 \0 b \0 023 023 261 376 h \0
0052660 ( 6 3 4 Q C H E C K - T Y P E
0052700 - F A I L 6 1 2 Q C H E C K
0052720 - T Y P E - F A I L 5 7 4 Q
0052740 % % = 5 7 0 Q C O M P L E X
0052760 - I M A G P A R T 5 6 2 Q %
0053000 % = 5 5 6 Q C O M P L E X -
0053020 R E A L P A R T 5 4 5 Q % %
0053040 = 5 4 2 Q C O M P L E X - I
0053060 M A G P A R T 5 3 6 Q C O M
0053100 P L E X - I M A G P A R T 5 3
0053120 0 Q % % = 5 2 5 Q C O M P
0053140 L E X - R E A L P A R T 5 2 1
0053160 Q C O M P L E X - R E A L P A
0053200 R T 4 5 4 Q C H E C K - T Y
0053220 P E - F A I L 4 3 7 Q % % =
0053240 4 3 3 Q C O M P L E X - I M
0053260 A G P A R T 4 2 5 Q % % =
0053300 4 2 2 Q C O M P L E X - R E A
0053320 L P A R T 4 0 5 Q F E Q P
0053340 3 2 1 Q C H E C K - T Y P E -
0053360 F A I L 3 0 4 Q % % = 3 0
0053400 0 Q C O M P L E X - I M A G P
0053420 A R T 2 6 6 Q % % = 2 6 3
0053440 Q C O M P L E X - R E A L P A
0053460 R T 2 2 3 Q R A T I O - D E
0053500 N O M I N A T O R 2 1 7 Q R
0053520 A T I O - D E N O M I N A T O R
0053540 2 0 4 Q R A T I O - N U M E
0053560 R A T O R 2 0 0 Q R A T I O
0053600 - N U M E R A T O R 1 3 5 Q
0053620 C H E C K - T Y P E - F A I L
0053640 1 1 2 Q % % = 1 0 7 Q C O
0053660 M P L E X - I M A G P A R T 7
0053700 4 Q % % = 7 1 Q C O M P L
0053720 E X - R E A L P A R T 5 4 Q
0053740 F E Q P ) \r ( 6 2 4 Q X 6 0
0053760 1 Q Y 5 1 1 Q 004 003 C O M P
0054000 L E X T Y P E # 4 6 6 Q 004 003
0054020 C O M P L E X T Y P E # 4 4 4
0054040 Q Y 4 1 2 Q 004 003 C O M P L
0054060 E X T Y P E # 3 7 5 Q 004 003 R
0054100 A T I O T Y P E # 3 1 1 Q Y
0054120 2 5 3 Q 004 003 C O M P L E X T
0054140 Y P E # 2 3 6 Q F L O A T P
0054160 1 7 0 Q 004 003 R A T I O T Y P
0054200 E # 1 4 7 Q 004 003 R A T I O T
0054220 Y P E # 1 2 5 Q Y 6 1 Q
0054240 004 003 C O M P L E X T Y P E # ) \r
0054260 ( 6 3 1 Q ( O R I N T E G
0054300 E R R A T I O F L O A T C
0054320 O M P L E X ) 6 0 7 Q ( O R
0054340 C O M P L E X N U M B E R )
0054360 4 5 1 Q ( O R F L O A T
0054400 O R I N T E G E R R A T I O
0054420 C O M P L E X ) \r 3 1 6 Q
0054440 ( O R R A T I O F L O A T
0054460 I N T E G E R C O M P L E X )
0054500 1 3 2 Q ( O R F L O A T
0054520 C O M P L E X N U M B E R ) )
0054540 \r / = D 1 \r ( L ( 0 - a r
0054560 g s - ) ) \0 J 006 \0 002 \0 e 021 001 \0
0054600 H k 021 2 005 J d I 363 234 277 K 022 021 1 004
0054620 I Z 003 265 % i 020 a 275 L 265 \r M h 032 \
0054640 273 J k 324 Z 260 341 M & 274 260 367 001 274 J 001
0054660 L \n \0 \0 221 h 206 K 002 [ 003 265 361 i 241 h
0054700 020 J 002 260 316 \0 ( 6 7 Q % % = ) \r
0054720 N I L \r ( ) \r < D 1 \r ( L (
0054740 0 - a r g s - ) ) \0 X \t \0 002
0054760 \0 e 021 001 \0 k a 021 ! 003 H l 002 021 2 \b
0055000 M d L 363 262 033 277 N 022 Z h 360 265 022 J 001
0055020 I 363 264 \f J [ 003 224 K d 002 263 ! i 020 a
0055040 _ 020 277 O 016 265 017 O 020 h 032 _ 016 276 M k
0055060 324 ] 260 317 O 020 & _ 016 277 260 364 002 001 K 001
0055100 363 241 h 020 K 002 260 317 \0 N I L \r N I L
0055120 \r ( ) \r > D 1 \r ( L ( 0 -
0055140 a r g s - ) ) \0 X \t \0 002 \0 e 021
0055160 001 \0 k a 021 ! 003 H l 002 021 2 \b M d L
0055200 363 262 033 277 N 022 Z h 360 265 022 I J 001 363 264
0055220 \f J [ 003 224 K d 002 263 ! i 020 a _ 020 277
0055240 O 016 265 017 O 020 h 032 _ 016 276 M k 324 ] 260
0055260 317 O 020 & _ 016 277 260 364 001 K 002 001 363 241 h
0055300 020 K 002 260 317 \0 N I L \r N I L \r ( )
0055320 \r < = D 1 \r ( L ( 0 - a r
0055340 g s - ) ) \0 Z \t \0 002 \0 e 021 001 \0
0055360 k a 021 ! 003 H l 002 021 2 \b M d L 363 262
0055400 035 277 N 022 Z h 360 265 024 I J 001 363 h 360 264
0055420 \f J [ 003 224 K d 002 263 ! i 020 a _ 020 277
0055440 O 016 265 017 O 020 h 032 _ 016 276 M k 324 ] 260
0055460 315 O 020 & _ 016 277 260 364 001 K 002 001 363 221 h
0055500 020 K 002 260 317 \0 N I L \r N I L \r ( )
0055520 \r > = D 1 \r ( L ( 0 - a r
0055540 g s - ) ) \0 Z \t \0 002 \0 e 021 001 \0
0055560 k a 021 ! 003 H l 002 021 2 \b M d L 363 262
0055600 035 277 N 022 Z h 360 265 024 J 001 I 363 h 360 264
0055620 \f J [ 003 224 K d 002 263 ! i 020 a _ 020 277
0055640 O 016 265 017 O 020 h 032 _ 016 276 M k 324 ] 260
0055660 315 O 020 & _ 016 277 260 364 002 001 K 001 363 221 h
0055700 020 K 002 260 317 \0 N I L \r N I L \r ( )
0055720 \r ( P U T P R O P S = D M A
0055740 C R O ( D E F M A C R O ( N
0055760 & R E S T N S ) ( C O N D
0056000 ( ( C D R N S ) ( L E T
0056020 ( ( N N A M E ( G E N S Y M )
0056040 ) ) ( B Q U O T E ( L E T
0056060 ( ( ( \ , \r N N A M E ) ( \
0056100 , N ) ) ) ( A N D ( \ , @
0056120 ( f o r X i n N S c o
0056140 l l e c t ( B Q U O T E ( %
0056160 % = ( \ , N N A M E ) ( \
0056200 , X ) ) ) ) ) ) ) ) ) ) ( T
0056220 ( B Q U O T E ( % % = \r (
0056240 \ , N ) ( \ , ( C A R N
0056260 S ) ) ) ) ) ) ) ) \r ( P U T P R
0056300 O P S / = D M A C R O ( D
0056320 E F M A C R O ( N & R E S T
0056340 N S ) ( C O N D ( N S (
0056360 C O N D ( ( C D R N S ) (
0056400 L E T ( ( V A R S ( f o r
0056420 X i n ( C O N S N N S )
0056440 \r c o l l e c t ( L I S T
0056460 ( G E N S Y M ( Q U O T E /
0056500 = ) ) X ) ) ) ) ( B Q U O T
0056520 E ( L E T ( \ , V A R S )
0056540 ( A N D ( \ , @ ( f o r
0056560 X o n V A R S j o i n (
0056600 f o r Y \r o n ( C D R V
0056620 A R S ) c o l l e c t ( B Q
0056640 U O T E ( N O T ( = ( \ ,
0056660 ( C A A R X ) ) ( \ , (
0056700 C A A R Y ) ) ) ) ) ) ) ) ) )
0056720 ) ) ) ( T ( B Q U O T E (
0056740 N O T ( = ( \ , N ) \r (
0056760 \ , ( C A R N S ) ) ) ) ) )
0057000 ) ) ( T T ) ) ) ) \r ( P U T
0057020 P R O P S < D M A C R O (
0057040 D E F M A C R O ( N & R E S
0057060 T N S ) ( C O N D ( ( N U
0057100 L L N S ) T ) ( ( C D R
0057120 N S ) ( L E T ( ( V A R S
0057140 ( F O R X I N ( C O N S
0057160 N \r N S ) C O L L E C T (
0057200 L I S T ( G E N S Y M ( Q U
0057220 O T E / = ) ) X ) ) ) ) (
0057240 B Q U O T E ( ( O P E N L A M
0057260 B D A ( \ , ( M A P C A R
0057300 V A R S ( Q U O T E C A R )
0057320 ) ) ( A N D ( \r \ , @ ( f
0057340 o r X o n V A R S w h i
0057360 l e ( C D R X ) c o l l e
0057400 c t ( B Q U O T E ( L E S S
0057420 P ( \ , ( C A A R X ) )
0057440 ( \ , ( C A A D R X ) ) ) )
0057460 ) ) ) ) ( \ , @ ( \r M A P C
0057500 A R V A R S ( Q U O T E C
0057520 A D R ) ) ) ) ) ) ) ( T ( B
0057540 Q U O T E ( L E S S P ( \ ,
0057560 N ) ( \ , ( C A R N S )
0057600 ) ) ) ) ) ) ) \r ( P U T P R O P
0057620 S > D M A C R O ( D E F M
0057640 A C R O ( N & R E S T N S
0057660 ) ( C O N D ( ( N U L L N
0057700 S ) T ) ( ( C D R N S )
0057720 ( L E T ( ( V A R S ( F O R
0057740 X I N ( C O N S N \r N
0057760 S ) C O L L E C T ( L I S T
0060000 ( G E N S Y M ( Q U O T E
0060020 / = ) ) X ) ) ) ) ( B Q U O
0060040 T E ( ( O P E N L A M B D A
0060060 ( \ , ( M A P C A R V A R S
0060100 ( Q U O T E C A R ) ) ) (
0060120 A N D ( \r \ , @ ( f o r X
0060140 o n V A R S w h i l e (
0060160 C D R X ) c o l l e c t (
0060200 B Q U O T E ( G R E A T E R P
0060220 ( \ , ( C A A R X ) ) (
0060240 \ , ( C A A D R X ) ) ) ) )
0060260 ) ) ) ( \ , @ ( \r M A P C A
0060300 R V A R S ( Q U O T E C A
0060320 D R ) ) ) ) ) ) ) ( T ( B Q
0060340 U O T E ( G R E A T E R P (
0060360 \ , N ) ( \ , ( C A R N
0060400 S ) ) ) ) ) ) ) ) \r ( P U T P R
0060420 O P S < = D M A C R O ( D
0060440 E F M A C R O ( N & R E S T
0060460 N S ) ( C O N D ( ( N U L
0060500 L N S ) T ) ( ( C D R N
0060520 S ) ( L E T ( ( V A R S (
0060540 F O R X I N ( C O N S N
0060560 \r N S ) C O L L E C T ( L
0060600 I S T ( G E N S Y M ( Q U O
0060620 T E / = ) ) X ) ) ) ) ( B
0060640 Q U O T E ( ( O P E N L A M B
0060660 D A ( \ , ( M A P C A R V
0060700 A R S ( Q U O T E C A R ) )
0060720 ) ( A N D \r ( \ , @ ( f o
0060740 r X o n V A R S w h i l
0060760 e ( C D R X ) c o l l e c
0061000 t ( B Q U O T E ( L E Q (
0061020 \ , ( C A A R X ) ) ( \ ,
0061040 ( C A A D R X ) ) ) ) ) ) )
0061060 ) ( \ , @ ( M A P C A R \r
0061100 V A R S ( Q U O T E C A D R
0061120 ) ) ) ) ) ) ) ( T ( B Q U O
0061140 T E ( L E Q ( \ , N ) (
0061160 \ , ( C A R N S ) ) ) ) ) )
0061200 ) ) \r ( P U T P R O P S > =
0061220 D M A C R O ( D E F M A C R O
0061240 ( N & R E S T N S ) ( C
0061260 O N D ( ( N U L L N S ) T
0061300 ) ( ( C D R N S ) ( L E T
0061320 ( ( V A R S ( F O R X I
0061340 N ( C O N S N \r N S ) C
0061360 O L L E C T ( L I S T ( G E
0061400 N S Y M ( Q U O T E > = ) )
0061420 X ) ) ) ) ( B Q U O T E (
0061440 ( O P E N L A M B D A ( \ ,
0061460 ( M A P C A R V A R S ( Q U
0061500 O T E C A R ) ) ) ( A N D
0061520 \r ( \ , @ ( f o r X o n
0061540 V A R S w h i l e ( C D R
0061560 X ) c o l l e c t ( B Q U O
0061600 T E ( N O T ( < ( \ , (
0061620 C A A R X ) ) ( \ , ( C A
0061640 A D R X ) ) ) ) ) ) ) ) ) (
0061660 \ , @ ( \r M A P C A R V A R
0061700 S ( F U N C T I O N C A D R
0061720 ) ) ) ) ) ) ) ( T ( B Q U O
0061740 T E ( G E Q ( \ , N ) (
0061760 \ , ( C A R N S ) ) ) ) ) )
0062000 ) ) \r + D 1 \r ( P 3 J P
0062020 2 R P 1 A P 0 N
0062040 ) \0 % 004 \0 002 \0 e 021 001 \0 021 0 003 H
0062060 j 360 221 j 020 k a 272 k 273 K H 360 253 K k
0062100 330 [ a 271 J I 324 272 260 362 J 020 \0 N I L
0062120 \r N I L \r ( ) \r - D 1 \r ( P
0062140 3 J P 2 R P 1 A
0062160 P 0 N ) \0 * 004 \0 002 \0 e 021 001
0062200 \0 021 0 003 H k 360 226 k a 271 j I 325 020 k
0062220 a 272 k 273 K H 360 253 K k 330 [ a 271 J I
0062240 325 272 260 362 J 020 \0 N I L \r N I L \r (
0062260 ) \r C L : * D 1 \r ( P 3 J
0062300 P 2 R P 1 A P 0
0062320 N ) \0 % 004 \0 002 \0 e 021 001 \0 021 0
0062340 003 H j 360 221 k 020 k a 272 k 273 K H 360 253
0062360 K k 330 [ a 271 J I 326 272 260 362 J 020 \0 N
0062400 I L \r N I L \r ( ) \r / D 1 \r (
0062420 L ( 0 - a r g s - ) ) \0 M
0062440 \t \0 002 \0 e 021 001 \0 k a 021 ! 003 H l 002
0062460 021 2 \b M d L 363 232 277 N 022 265 / k I \n
0062500 \0 \0 020 a _ 020 277 O 016 265 017 O 020 h 032 _
0062520 016 276 M k 324 ] 260 336 O 020 & _ 016 277 260 364
0062540 001 273 I K \n \0 \0 271 J 002 Z 003 265 364 I 020
0062560 \0 ( 1 0 2 Q % % / 3 5 Q %
0062600 % / ) \r N I L \r ( ) \r % % / D
0062620 1 \r ( N A M E / P 1 1 Q
0062640 $ $ T Y P E - V A L U E P 1
0062660 0 Q C T Y P E C A S E 0 4 0 6
0062700 P 7 $ $ T Y P E - V A L U
0062720 E P 6 C T Y P E C A S E 0
0062740 4 0 3 P 5 $ $ T Y P E - V
0062760 A L U E P 4 C T Y P E C A
0063000 S E 0 4 0 0 P 3 $ $ T Y P
0063020 E - V A L U E P 2 C T Y P
0063040 E C A S E 0 3 9 7 P 1 $ $
0063060 T Y P E - V A L U E P 0 C
0063100 T Y P E C A S E 0 3 9 4 I 1
0063120 N 2 I 0 N 1 ) 001 312 \n \0
0063140 \0 002 @ 021 001 \0 H 021 001 001 I d 3 242 261
0063160 \0 203 277 A 021 001 002 J 021 001 003 K d 3 262
0063200 1 277 @ d ` \0 \0 360 263 037 d ` \0 \0 360 263
0063220 030 277 A ` \0 \0 360 255 A ` \0 \0 360 247 @ A
0063240 \n \0 \0 j 360 223 @ A 333 020 @ A \n \0 \0 020
0063260 004 l 003 360 223 @ A 353 020 K d 004 ` \0 \0 360
0063300 236 277 A \t \0 \0 @ 326 A \t \0 \0 \n \0 \0 020
0063320 004 ` \0 \0 360 231 @ j \n \0 \0 A \n \0 \0 020
0063340 i g \0 \0 J o \0 \0 \0 \f \0 \0 b 002 023 023
0063360 260 203 004 l 003 360 262 V A 021 001 004 L 021 001 005
0063400 M d 3 221 277 204 004 l 003 360 223 @ A 353 020
0063420 M d 004 ` \0 \0 360 236 277 A \t \0 \0 @ 326 A
0063440 \t \0 \0 \n \0 \0 020 004 ` \0 \0 360 234 @ o \0
0063460 \0 \0 \n \0 \0 A \n \0 \0 020 i g \0 \0 L o
0063500 \0 \0 \0 \f \0 \0 b 002 023 023 260 256 I d 004 `
0063520 \0 \0 360 262 [ 277 A 021 001 006 N 021 001 \a O 016
0063540 d 3 236 277 @ \t \0 \0 @ \t \0 \0 A 326 \n
0063560 \0 \0 020 004 l 003 360 223 @ A 353 020 O 016 d 004
0063600 ` \0 \0 360 226 277 @ A \n \0 \0 020 004 ` \0 \0
0063620 360 231 @ j \n \0 \0 A \n \0 \0 020 i g \0 \0
0063640 N o \0 \0 \0 \f \0 \0 b 002 023 023 260 252 004 `
0063660 \0 \0 360 262 e A 021 001 \b O 020 021 001 \t O 022
0063700 d 3 232 277 @ A j \n \0 \0 \n \0 \0 020 004
0063720 l 003 360 234 @ A o \0 \0 \0 \n \0 \0 \n \0 \0
0063740 020 O 022 d 004 ` \0 \0 360 236 277 A \t \0 \0 @
0063760 326 A \t \0 \0 \n \0 \0 020 004 ` \0 \0 360 225 @
0064000 A \n \0 \0 020 i g \0 \0 O 020 o \0 \0 \0 \f
0064020 \0 \0 b 002 023 023 260 237 i g \0 \0 H o \0 \0
0064040 \0 \f \0 \0 b \0 023 023 261 376 : \0 ( 7 0 1
0064060 Q C H E C K - T Y P E - F A I
0064100 L 6 5 7 Q C H E C K - T Y P
0064120 E - F A I L 6 4 1 Q % % C O
0064140 M P L E X / 6 2 5 Q % % /
0064160 6 2 2 Q N U M E R A T O R 6
0064200 1 4 Q D E N O M I N A T O R
0064220 5 7 5 Q % % C O M P L E X /
0064240 5 7 2 Q % % M A K E - C O M P
0064260 L E X 5 5 3 Q % % C O M P L
0064300 E X / 5 5 0 Q % % M A K E -
0064320 C O M P L E X 5 0 5 Q C H E
0064340 C K - T Y P E - F A I L 4 7 0
0064360 Q % % C O M P L E X / 4 6 4
0064400 Q % % M A K E - C O M P L E X
0064420 4 5 0 Q % % R A T I O / 4
0064440 1 7 Q % % B U I L D - R A T I
0064460 O 4 1 2 Q D E N O M I N A T
0064500 O R 4 0 6 Q N U M E R A T O
0064520 R 3 4 3 Q C H E C K - T Y P
0064540 E - F A I L 3 2 6 Q % % C O
0064560 M P L E X / 3 2 2 Q % % M A
0064600 K E - C O M P L E X 3 0 3 Q
0064620 % % / 3 0 0 Q N U M E R A T
0064640 O R 2 7 2 Q D E N O M I N A
0064660 T O R 2 1 1 Q C H E C K - T
0064700 Y P E - F A I L 1 7 4 Q % %
0064720 C O M P L E X / 1 7 0 Q % %
0064740 M A K E - C O M P L E X 1 5 4
0064760 Q % % / 1 5 1 Q N U M E R
0065000 A T O R 1 4 3 Q D E N O M I
0065020 N A T O R 1 1 4 Q % % B U I
0065040 L D - R A T I O 1 0 0 Q I M
0065060 O D ) \r ( 6 7 1 Q N 1 6 4 6
0065100 Q N 2 6 3 2 Q 004 003 C O M P
0065120 L E X T Y P E # 6 0 5 Q 004 003
0065140 R A T I O T Y P E # 5 1 7 Q
0065160 004 003 C O M P L E X T Y P E # 4
0065200 7 5 Q N 2 4 5 5 Q 004 003 C O
0065220 M P L E X T Y P E # 4 4 0 Q
0065240 004 003 R A T I O T Y P E # 3 5 7
0065260 Q 004 003 R A T I O T Y P E # 3
0065300 3 3 Q N 2 3 1 0 Q 004 003 C O
0065320 M P L E X T Y P E # 2 6 3 Q
0065340 004 003 R A T I O T Y P E # 2 0 1
0065360 Q N 2 1 6 1 Q 004 003 C O M P
0065400 L E X T Y P E # 1 3 4 Q 004 003
0065420 R A T I O T Y P E # 7 1 Q M
0065440 A X . I N T E G E R 6 3 Q M
0065460 I N . I N T E G E R 5 3 Q M
0065500 A X . I N T E G E R 4 4 Q M
0065520 I N . I N T E G E R ) \r ( 6 7
0065540 6 Q ( O R I N T E G E R F
0065560 L O A T R A T I O C O M P L
0065600 E X ) 6 5 4 Q ( O R I N T
0065620 E G E R F L O A T R A T I O
0065640 C O M P L E X ) 5 6 7 Q 0
0065660 . 0 5 0 2 Q ( O R I N T E
0065700 G E R F L O A T R A T I O
0065720 C O M P L E X ) \r 3 4 0 Q (
0065740 O R O R I N T E G E R F L
0065760 O A T R A T I O C O M P L E
0066000 X ) 3 1 7 Q 0 . 0 2 0 6 Q
0066020 ( O R I N T E G E R F L O
0066040 A T R A T I O C O M P L E X
0066060 ) ) \r 1 + D 1 \r ( L ( 0 N
0066100 U M B E R ) ) \0 005 \0 \0 \0 001 @ k
0066120 324 020 \0 N I L \r N I L \r ( ) \r 1 -
0066140 D 1 \r ( L ( 0 N U M B E R
0066160 ) ) \0 005 \0 \0 \0 001 @ k 325 020 \0 N I
0066200 L \r N I L \r ( ) \r ( P U T P R O
0066220 P S + D M A C R O ( D E F
0066240 M A C R O ( & R E S T N U M
0066260 B E R S ) ( C O N D ( ( N U
0066300 L L N U M B E R S ) 0 ) (
0066320 T ( B Q U O T E ( P L U S
0066340 ( \ . , N U M B E R S ) ) ) \r
0066360 ) ) ) ) \r ( P U T P R O P S -
0066400 D M A C R O ( D E F M A C R
0066420 O ( N U M B E R & R E S T
0066440 N U M B E R S ) ( C O N D (
0066460 ( N U L L N U M B E R S ) (
0066500 B Q U O T E ( D I F F E R E N
0066520 C E 0 ( \ , \r N U M B E R
0066540 ) ) ) ) ( T ( f o r X i
0066560 n N U M B E R S d o ( S E
0066600 T Q N U M B E R ( B Q U O T
0066620 E ( D I F F E R E N C E ( \
0066640 , N U M B E R ) ( \ , X )
0066660 ) ) ) f i n a l l y ( \r R E
0066700 T U R N N U M B E R ) ) ) ) )
0066720 ) \r ( P U T P R O P S C L : *
0066740 D M A C R O ( D E F M A C R
0066760 O ( & R E S T N U M B E R S
0067000 ) ( C O N D ( ( N U L L N
0067020 U M B E R S ) 1 ) ( T ( B
0067040 Q U O T E ( T I M E S ( \ .
0067060 , \r N U M B E R S ) ) ) ) ) )
0067100 ) \r ( P U T P R O P S / D M
0067120 A C R O ( D E F M A C R O (
0067140 N U M B E R & R E S T N U M
0067160 B E R S ) ( C O N D ( ( N U
0067200 L L N U M B E R S ) ( B Q U
0067220 O T E ( % % / 1 ( \ , N
0067240 U M B E R ) ) ) \r ) ( T ( f
0067260 o r X i n N U M B E R S
0067300 d o ( S E T Q N U M B E R
0067320 ( B Q U O T E ( % % / ( \ ,
0067340 N U M B E R ) ( \ , X ) )
0067360 ) ) f i n a l l y ( R E T U
0067400 R N N U M B E R ) ) ) ) ) ) \r
0067420 ( P U T P R O P S 1 + D M A
0067440 C R O ( D E F M A C R O ( X
0067460 ) ( B Q U O T E ( P L U S
0067500 ( \ , X ) 1 ) ) ) ) \r ( P U
0067520 T P R O P S 1 - D M A C R O
0067540 ( D E F M A C R O ( X ) (
0067560 B Q U O T E ( D I F F E R E N
0067600 C E ( \ , X ) 1 ) ) ) ) \r
0067620 ( M O V D ( Q U O T E + )
0067640 ( Q U O T E P L U S ) ) \r ( M
0067660 O V D ( Q U O T E - ) ( Q
0067700 U O T E D I F F E R E N C E )
0067720 ) \r ( M O V D ( Q U O T E 1
0067740 + ) ( Q U O T E A D D 1 ) )
0067760 \r ( M O V D ( Q U O T E 1 -
0070000 ) ( Q U O T E S U B 1 ) ) \r
0070020 ( M O V D ( Q U O T E C L :
0070040 * ) ( Q U O T E T I M E S )
0070060 ) \r C L : G C D D 1 \r ( L (
0070100 0 - a r g s - ) ) \0 h 006 \0 002
0070120 \0 e 021 001 \0 H k 021 2 005 J d I 363 232 277
0070140 K 022 021 1 004 I 265 031 j 020 a 275 L 265 \r M
0070160 h 032 \ 273 J k 324 Z 260 343 M & 274 260 367 001
0070200 3 251 o \0 \0 \0 I 001 \n \0 \0 277 I 001 \t
0070220 \0 \0 Z I 002 [ 003 265 004 J 020 001 \ 3 250
0070240 o \0 \0 \0 L \n \0 \0 277 J L \n \0 \0 Z d
0070260 k 360 263 350 277 K 260 336 \0 ( 1 3 4 Q %
0070300 % G C D 1 2 6 Q C L : E R R
0070320 O R 1 0 0 Q A B S 7 2 Q
0070340 C L : E R R O R ) \r N I L \r (
0070360 1 2 2 Q " G C D : ~ S i s
0070400 n o t a n i n t e g e r .
0070420 " 6 5 Q " G C D : ~ S i
0070440 s n o t a n i n t e g e r
0070460 . " ) \r % % G C D D 1 \r ( L
0070500 ( 1 V 0 U ) ) \0 225 005 \0 \0
0070520 002 @ \t \0 \0 A \t \0 \0 021 2 004 H j 360 263
0070540 032 H 005 003 265 020 k I \n \0 \0 245 k H \n \0
0070560 \0 230 k 020 \t \0 \0 262 357 I 020 j 272 H k 345
0070600 j 360 225 I k 345 j 360 257 J 273 H d k 345 j
0070620 360 263 033 277 j I 325 260 032 H m 377 \n \0 \0 270
0070640 I m 377 \n \0 \0 271 J k 324 260 322 m 377 \n \0
0070660 \0 \ j 360 252 L d 005 003 233 d \t \0 \0 226 277
0070700 H K \n \0 \0 020 k 345 j 360 230 L m 377 \n \0
0070720 \0 \ 260 364 L \t \0 \0 222 L X 204 j L 325 271
0070740 H I 325 260 316 \0 ( 2 0 6 Q P L U S
0070760 P 1 7 7 Q A S H 1 6 3 Q
0071000 A S H 1 5 4 Q \ F Z E R O P
0071020 1 3 7 Q A S H 1 2 4 Q A
0071040 S H 1 1 5 Q A S H 4 5 Q
0071060 \ F Z E R O P 3 7 Q % % =
0071100 3 1 Q % % = 7 A B S 3
0071120 A B S ) \r N I L \r ( ) \r L C M
0071140 D 1 \r ( L ( 0 - a r g s - )
0071160 ) \0 200 \v \0 002 \0 e 021 001 \0 k a 021 A
0071200 005 H l 002 021 2 \n O 016 d N 363 233 277 O 020
0071220 022 272 I 3 262 % 260 , a _ 024 277 O 022 265
0071240 023 O 024 h 032 _ 022 _ 020 277 O 016 k 324 _ 016
0071260 260 331 O 024 & _ 022 277 260 362 o \0 \0 \0 I \n
0071300 \0 \0 277 I \t \0 \0 [ J \ 003 265 004 K 020 001
0071320 ] 3 265 \f o \0 \0 \0 M \n \0 \0 277 M \t
0071340 \0 \0 K M \n \0 \0 \n \0 \0 K 326 [ d j 360
0071360 263 336 277 L 002 260 324 \0 ( 1 6 1 Q % %
0071400 / 1 5 6 Q % % G C D 1 5 1
0071420 Q A B S 1 4 4 Q C L : E R
0071440 R O R 1 1 6 Q A B S 1 1 1
0071460 Q C L : E R R O R ) \r N I L \r
0071500 ( 1 4 0 Q " L C M : ~ S
0071520 i s n o t a n i n t e g e
0071540 r . " 1 0 5 Q " L C M : ~
0071560 S i s n o t a n i n t e
0071600 g e r . " ) \r F L O A T D 1 \r
0071620 ( L ( 1 O T H E R 0 N U
0071640 M B E R ) ) \0 006 \0 \0 \0 002 @ 006 \0
0071660 \0 020 \0 N I L \r ( 3 F L O A T P
0071700 ) \r ( ) \r \ F L O A T D 1 \r (
0071720 P 2 S I G N P 1 L O
0071740 P 0 H I I 0 X ) \0 254
0071760 003 \0 \0 001 @ 005 003 265 003 202 261 \0 205 @ d 3
0072000 242 261 \0 203 004 d l 002 360 262 B 277 @ 310 \0
0072020 @ 310 001 j 021 003 002 H n 177 377 361 262 % I j
0072040 360 235 H j 360 263 031 n 377 377 H 331 k 330 270 215
0072060 n 377 377 H 331 270 n 377 377 I 331 k 330 271 k Z
0072100 200 J l 236 H I i \r 005 \0 \0 020 k 360 262 2
0072120 j 021 001 \0 j 021 001 002 j @ 361 242 @ 260 025 k
0072140 272 @ 323 j 360 223 k 270 j 207 n 377 377 @ 323 331
0072160 k 330 021 001 001 J l 236 H I i \r 005 \0 \0 020
0072200 @ \t \0 \0 020 \t \0 \0 231 @ \t \0 \0 @ \t \0
0072220 \0 353 020 @ l \n i \v \0 \0 b \0 261 377 Y \0
0072240 ( 2 4 5 Q \ L I S P E R R O R
0072260 2 3 4 Q R A T I O - D E N O
0072300 M I N A T O R 2 3 0 Q R A T
0072320 I O - N U M E R A T O R 2 2 3
0072340 Q R A T I O - P 2 1 7 Q \
0072360 B I G N U M . T O . F L O A T
0072400 2 1 2 Q \ M A K E F L O A T
0072420 1 2 6 Q \ M A K E F L O A T )
0072440 \r N I L \r ( ) \r C L : F L O O R
0072460 D 1 \r ( L ( 0 - a r g s -
0072500 ) ) \0 O 006 \0 002 \0 e 021 001 \0 k a 021
0072520 A 005 l 002 H 361 221 k 202 l 002 a 272 I J \n
0072540 \0 \0 \t \0 \0 [ 001 274 K 002 001 ] j 360 263 #
0072560 M 005 003 225 M \t \0 \0 263 031 j J 363 224 I \t
0072600 \0 \0 202 j I 363 231 L k 325 M J 324 \n \0 \0
0072620 020 L M \n \0 \0 020 \0 ( 1 1 4 Q V A
0072640 L U E S 1 0 6 Q V A L U E S
0072660 7 0 Q P L U S P 5 6 Q \
0072700 F Z E R O P 3 3 Q \ M V L I
0072720 S T 3 0 Q T R U N C A T E )
0072740 \r N I L \r ( ) \r T R U N C A T E
0072760 D 1 \r ( L ( 0 - a r g s -
0073000 ) ) \0 361 \r \0 002 \0 e 021 001 \0 k a 021
0073020 261 \f l 002 H 361 221 k 202 l 002 a 272 h [ 274
0073040 J k 360 242 261 \0 270 I ^ ] d 3 223 277 I
0073060 260 o 004 l 003 360 222 I 260 d M 004 ` \0 \0 360
0073100 232 I \t \0 \0 I \t \0 \0 333 260 U i g \0 \0
0073120 N o \0 \0 \0 \f \0 \0 Y 260 317 004 l 003 360 263
0073140 : O 016 004 ` \0 \0 360 230 I J \n \0 \0 \t \0
0073160 \0 020 i g \0 \0 O 020 o \0 \0 \0 \f \0 \0 Z
0073200 260 h 004 l 003 360 262 ? J _ 024 _ 022 d 3
0073220 221 277 205 004 l 003 360 262 025 I J 353 \t \0 \0 [
0073240 I K J 326 325 \ K L \n \0 \0 020 O 022 004 `
0073260 \0 \0 360 263 266 i g \0 \0 O 024 o \0 \0 \0 \f
0073300 \0 \0 Z 260 306 O 026 004 ` \0 \0 360 263 235 i g
0073320 \0 \0 O 030 o \0 \0 \0 \f \0 \0 271 I _ 030 _
0073340 026 d 3 262 236 277 J _ 020 _ 016 d 3 242
0073360 261 377 k 277 I J 333 260 250 \0 ( 3 2 1 Q
0073400 C H E C K - T Y P E - F A I L
0073420 2 7 0 Q C H E C K - T Y P E -
0073440 F A I L 2 4 1 Q V A L U E S
0073460 2 2 5 Q \ F I X P . F R O M
0073500 . F L O A T P 1 6 5 Q C H E
0073520 C K - T Y P E - F A I L 1 4 7
0073540 Q T R U N C A T E 1 4 4 Q
0073560 % % / 1 1 6 Q C H E C K - T
0073600 Y P E - F A I L 7 7 Q R A T
0073620 I O - D E N O M I N A T O R 7
0073640 3 Q R A T I O - N U M E R A T
0073660 O R ) \r ( 3 1 0 Q N U M B E R
0073700 3 0 1 Q 004 003 R A T I O T Y P
0073720 E # 2 5 7 Q D I V I S O R
0073740 2 5 0 Q 004 003 R A T I O T Y P E
0073760 # 1 5 4 Q D I V I S O R 1
0074000 3 5 Q 004 003 R A T I O T Y P E #
0074020 1 0 6 Q N U M B E R 6 5 Q
0074040 004 003 R A T I O T Y P E # ) \r (
0074060 3 1 6 Q ( O R I N T E G E
0074100 R F L O A T R A T I O ) 2
0074120 6 5 Q ( O R O R I N T E G
0074140 E R F L O A T R A T I O )
0074160 1 6 2 Q ( O R I N T E G E R
0074200 F L O A T R A T I O ) 1 1
0074220 3 Q ( O R I N T E G E R F
0074240 L O A T R A T I O ) ) \r C E I
0074260 L I N G D 1 \r ( L ( 0 - a
0074300 r g s - ) ) \0 O 006 \0 002 \0 e 021 001
0074320 \0 k a 021 A 005 l 002 H 361 221 k 202 l 002 a
0074340 272 I J \n \0 \0 \t \0 \0 [ 001 274 K 002 001 ]
0074360 j 360 263 # M 005 003 225 M \t \0 \0 263 031 j J
0074400 363 223 j I 363 203 I \t \0 \0 231 L k 324 M J
0074420 325 \n \0 \0 020 L M \n \0 \0 020 \0 ( 1 1 4
0074440 Q V A L U E S 1 0 6 Q V A
0074460 L U E S 7 4 Q P L U S P 5
0074500 6 Q \ F Z E R O P 3 3 Q \
0074520 M V L I S T 3 0 Q T R U N C
0074540 A T E ) \r N I L \r ( ) \r R O U N
0074560 D D 1 \r ( L ( 0 - a r g s
0074600 - ) ) \0 214 \t \0 002 \0 e 021 001 \0 k a
0074620 021 q \b l 002 H 361 221 k 204 i 272 l 002 a 273
0074640 J 231 K \t \0 \0 l 002 \n \0 \0 203 o \0 \0 \0
0074660 274 I K \n \0 \0 \t \0 \0 ] 001 276 M 002 001 _
0074700 016 L 363 255 O 016 L \n \0 \0 262 030 N k 345 j
0074720 360 257 j K 363 262 . N k 325 O 016 K 324 \n \0
0074740 \0 020 j L 325 _ 020 O 016 363 263 024 O 016 O 020
0074760 \n \0 \0 262 033 N d k 345 j 360 263 024 277 j K
0075000 363 262 326 N k 324 O 016 K 325 \n \0 \0 020 N O
0075020 016 \n \0 \0 020 \0 ( 2 1 1 Q V A L U
0075040 E S 2 0 2 Q V A L U E S 1
0075060 5 0 Q % % = 1 2 6 Q V A L
0075100 U E S 7 7 Q % % = 5 6 Q
0075120 \ M V L I S T 5 3 Q T R U N
0075140 C A T E 4 0 Q % % / 3 3 Q
0075160 A B S ) \r N I L \r ( 4 5 Q
0075200 . 5 ) \r C L : M O D D 1 \r ( L
0075220 ( 1 D I V I S O R 0 N U
0075240 M B E R ) ) \0 - 001 \0 \0 002 @ A \n
0075260 \0 \0 021 001 \0 H d j 360 263 037 005 003 227 H d
0075300 \t \0 \0 263 025 277 j A 363 224 @ \t \0 \0 202 j
0075320 @ 363 223 H A 324 020 H 020 \0 ( 4 0 Q P
0075340 L U S P 2 5 Q \ F Z E R O P
0075360 4 R E M ) \r N I L \r ( ) \r R
0075400 E M D 1 \r ( L ( 1 D I V I
0075420 S O R 0 N U M B E R ) ) \0
0075440 027 001 \0 \0 002 @ A \n \0 \0 \t \0 \0 002 001 021
0075460 001 \0 o \0 \0 \0 \t \0 \0 H 020 \0 ( 2 3 Q
0075500 C L : D E C L A R E 7 \ M
0075520 V L I S T 4 T R U N C A T E
0075540 ) \r N I L \r ( 2 0 Q ( I G N
0075560 O R E T R U ) ) \r F F L O O R
0075600 D 1 \r ( L ( 0 - a r g s -
0075620 ) ) \0 - 006 \0 002 \0 e 021 001 \0 k a 021
0075640 A 005 l 002 H 361 221 k 202 l 002 a 272 I J \n
0075660 \0 \0 \t \0 \0 [ 001 274 K 002 001 275 L 006 \0 \0
0075700 M \n \0 \0 020 \0 ( 5 2 Q V A L U E
0075720 S 3 3 Q \ M V L I S T 3 0
0075740 Q C L : F L O O R ) \r ( 4 6 Q
0075760 F L O A T P ) \r ( ) \r F C E I
0076000 L I N G D 1 \r ( L ( 0 - a
0076020 r g s - ) ) \0 - 006 \0 002 \0 e 021 001
0076040 \0 k a 021 A 005 l 002 H 361 221 k 202 l 002 a
0076060 272 I J \n \0 \0 \t \0 \0 [ 001 274 K 002 001 275
0076100 L 006 \0 \0 M \n \0 \0 020 \0 ( 5 2 Q V
0076120 A L U E S 3 3 Q \ M V L I S
0076140 T 3 0 Q C E I L I N G ) \r (
0076160 4 6 Q F L O A T P ) \r ( ) \r F
0076200 T R U N C A T E D 1 \r ( L (
0076220 0 - a r g s - ) ) \0 - 006 \0 002
0076240 \0 e 021 001 \0 k a 021 A 005 l 002 H 361 221 k
0076260 202 l 002 a 272 I J \n \0 \0 \t \0 \0 [ 001 274
0076300 K 002 001 275 L 006 \0 \0 M \n \0 \0 020 \0 ( 5
0076320 2 Q V A L U E S 3 3 Q \ M
0076340 V L I S T 3 0 Q T R U N C A
0076360 T E ) \r ( 4 6 Q F L O A T P )
0076400 \r ( ) \r F R O U N D D 1 \r ( L
0076420 ( 0 - a r g s - ) ) \0 - 006
0076440 \0 002 \0 e 021 001 \0 k a 021 A 005 l 002 H 361
0076460 221 k 202 l 002 a 272 I J \n \0 \0 \t \0 \0 [
0076500 001 274 K 002 001 275 L 006 \0 \0 M \n \0 \0 020 \0
0076520 ( 5 2 Q V A L U E S 3 3 Q
0076540 \ M V L I S T 3 0 Q R O U N
0076560 D ) \r ( 4 6 Q F L O A T P ) \r
0076600 ( ) \r D E C O D E - F L O A T
0076620 D 1 \r ( L ( 0 F L O A T ) )
0076640 \0 G \0 \0 \0 001 @ 006 \0 \0 b \0 d d o
0076660 \0 \0 \0 \n \0 \0 235 277 o \0 \0 \0 j o \0 \0
0076700 \0 \v \0 \0 020 312 \0 226 n ? \0 344 @ 310 001 321
0076720 355 \0 @ 312 \0 027 l ~ 331 @ 312 \0 \0 j 360 224
0076740 o \0 \0 \0 203 o \0 \0 \0 \v \0 \0 020 \0 ( 1
0076760 0 4 Q V A L U E S 3 4 Q V
0077000 A L U E S 1 6 Q % % = ) \r (
0077020 3 F L O A T P ) \r ( 1 0 1 Q
0077040 - 1 . 0 7 4 Q 1 . 0 3 1
0077060 Q 1 . 0 2 4 Q 0 . 0 1 3
0077100 Q 0 . 0 ) \r S C A L E - F L O
0077120 A T D 1 \r ( I 1 I N T E G
0077140 E R I 0 F L O A T ) \0 2
0077160 \0 \0 \0 002 @ 006 \0 \0 b \0 d o \0 \0 \0 \n
0077200 \0 \0 224 o \0 \0 \0 020 @ 312 \0 \0 @ 312 \0 027
0077220 A l \b 330 330 @ 312 \0 226 l 200 330 @ 310 001 i
0077240 \r 005 \0 \0 020 \0 ( 5 7 Q \ M A K E
0077260 F L O A T 1 5 Q % % = ) \r (
0077300 3 F L O A T P ) \r ( 2 2 Q
0077320 0 . 0 1 2 Q 0 . 0 ) \r F L O
0077340 A T - R A D I X D 1 \r ( L (
0077360 0 F L O A T ) ) \0 \v \0 \0 \0 001
0077400 o \0 \0 \0 \t \0 \0 l 002 020 \0 ( 6 C L
0077420 : D E C L A R E ) \r N I L \r (
0077440 3 ( I G N O R E F L O A T )
0077460 ) \r F L O A T - S I G N D 1 \r
0077500 ( L ( 0 - a r g s - ) ) \0
0077520 ( 003 \0 002 \0 e 021 001 \0 k a 021 021 002 l 002
0077540 H 361 226 k I 277 006 \0 \0 202 l 002 a 272 j I
0077560 363 j J 363 360 221 J 020 j J 325 020 \0 N I L
0077600 \r ( 2 3 Q F L O A T P ) \r ( )
0077620 \r F L O A T - D I G I T S D 1
0077640 \r ( L ( 0 F L O A T ) ) \0
0077660 023 \0 \0 \0 001 @ 004 l 003 360 222 l 030 020 o \0
0077700 \0 \0 @ \n \0 \0 020 \0 ( 2 0 Q C L :
0077720 E R R O R ) \r N I L \r ( 1 4 Q
0077740 " F l o a t - d i g i t s :
0077760 ~ A n o t a f l o a t " )
0100000 \r F L O A T - P R E C I S I O N
0100020 D 1 \r ( L ( 0 F L O A T )
0100040 ) \0 025 \0 \0 \0 001 @ j 360 251 @ d 005 003
0100060 226 d \t \0 \0 221 j 020 \t \0 \0 020 \0 ( 2 2
0100100 Q F L O A T - D I G I T S 1
0100120 4 Q \ F Z E R O P ) \r N I L \r
0100140 ( ) \r I N T E G E R - D E C O D
0100160 E - F L O A T D 1 \r ( L ( 0
0100200 F L O A T ) ) \0 ; \0 \0 \0 001 @
0100220 006 \0 \0 b \0 d d o \0 \0 \0 \n \0 \0 227 277
0100240 j d k \v \0 \0 020 312 \0 226 l 200 330 341 341 @
0100260 310 001 330 @ 312 \0 027 l 226 331 @ 312 \0 \0 j 360
0100300 221 k 201 m 377 \v \0 \0 020 \0 ( 7 0 Q V
0100320 A L U E S 2 6 Q V A L U E S
0100340 1 6 Q % % = ) \r ( 3 F L O
0100360 A T P ) \r ( 1 3 Q 0 . 0 ) \r
0100400 N E W - L E S S P D 1 \r ( I
0100420 1 Y I 0 X ) \0 005 \0 \0 \0
0100440 002 A @ 363 020 \0 N I L \r N I L \r ( )
0100460 \r N E W - E Q P D 1 \r ( I 1
0100500 Y I 0 X ) \0 8 \0 \0 \0 002
0100520 @ A 360 265 3 @ d 3 020 233 277 A 3 020 225 @
0100540 A \n \0 \0 020 @ 004 A 004 360 264 034 @ 004 d l
0100560 \b 360 230 277 @ 310 001 A 310 001 360 020 l \r 360 264
0100600 \a @ A \n \0 \0 020 \0 ( 6 5 Q E Q D
0100620 E F P 2 3 Q % % = ) \r N I L
0100640 \r ( ) \r N E W - A B S D 1 \r (
0100660 P 1 $ $ T Y P E - V A L U E
0100700 P 0 C T Y P E C A S E 0 4
0100720 3 3 I 0 X ) \0 f 002 \0 \0 001
0100740 @ 021 021 001 H Y d 3 232 277 j @ 361 223 j
0100760 @ 331 020 @ 020 004 l 003 360 236 o \0 \0 \0 @ 362
0101000 262 363 o \0 \0 \0 @ 351 020 I d 004 ` \0 \0 360
0101020 262 031 277 j @ \t \0 \0 361 262 332 j @ \t \0 \0
0101040 331 @ \t \0 \0 \n \0 \0 020 004 ` \0 \0 360 224 @
0101060 \t \0 \0 020 i g \0 \0 H o \0 \0 \0 \f \0 \0
0101100 b \0 023 260 235 \0 ( 1 3 7 Q C H E C
0101120 K - T Y P E - F A I L 1 2 2 Q
0101140 % % C O M P L E X - A B S 1
0101160 0 7 Q % % M A K E - R A T I O
0101200 1 0 4 Q D E N O M I N A T O
0101220 R 7 7 Q N U M E R A T O R
0101240 6 7 Q N U M E R A T O R ) \r (
0101260 1 2 7 Q X 1 1 4 Q 004 003 C O
0101300 M P L E X T Y P E # 5 6 Q 004
0101320 003 R A T I O T Y P E # ) \r ( 1
0101340 3 4 Q ( O R I N T E G E R
0101360 S I N G L E - F L O A T R A T
0101400 I O C O M P L E X ) 4 5 Q
0101420 0 . 0 3 5 Q 0 . 0 ) \r N E W
0101440 - M I N U S D 1 \r ( I 0 N
0101460 ) \0 005 \0 \0 \0 001 j @ 325 020 \0 N I L
0101500 \r N I L \r ( ) \r ( M O V D ( Q
0101520 U O T E % % > ) ( Q U O T E
0101540 G R E A T E R P ) ) \r ( M O V
0101560 D ( Q U O T E N E W - L E S
0101600 S P ) ( Q U O T E L E S S P
0101620 ) ) \r ( M O V D ( Q U O T E
0101640 N E W - E Q P ) ( Q U O T E
0101660 E Q P ) ) \r ( M O V D ( Q U O
0101700 T E N E W - A B S ) ( Q U O
0101720 T E A B S ) ) \r ( M O V D (
0101740 Q U O T E N E W - M I N U S )
0101760 ( Q U O T E M I N U S ) ) \r
0102000 N E W - S L O W I P L U S 2 D
0102020 1 \r ( N A M E I P L U S P
0102040 5 $ $ T Y P E - V A L U E P
0102060 4 S I G N X P 3 L Y
0102100 P 2 H Y P 1 L X P
0102120 0 H X I 1 Y I 0 X
0102140 ) 001 030 006 \0 \0 002 021 P 004 @ 004 d l 002
0102160 360 231 277 @ 310 \0 270 @ 310 001 260 026 d k 360 262
0102200 $ 277 j @ 361 243 j 270 @ 205 n 377 377 270 @ 323
0102220 271 A 004 d l 002 360 262 A 277 A 310 \0 272 A 310
0102240 001 260 K l 003 360 227 @ \t \0 \0 b \0 260 277 @
0102260 \t \0 \0 234 @ \t \0 \0 @ \t \0 \0 333 b \0 260
0102300 255 @ 021 001 005 M 3 020 222 023 260 e @ l \n i
0102320 \v \0 \0 b \0 023 260 225 d k 360 262 , 277 j A
0102340 361 243 j 272 A 205 n 377 377 272 A 323 273 H n 177
0102360 377 361 274 H d n 377 377 J 331 361 262 G n 377 377
0102400 J 331 k 330 331 260 ? l 003 360 227 A \t \0 \0 b
0102420 002 260 201 A \t \0 \0 235 A \t \0 \0 A \t \0 \0
0102440 333 b 002 261 377 o A 021 001 005 M 3 020 226 023 @
0102460 A \n \0 \0 020 A l \n i \v \0 \0 b 002 023 261
0102500 377 R J 330 270 I d n 377 377 K 331 361 262 032 277
0102520 H d n 377 377 360 222 277 j 201 k 330 270 I n 377
0102540 377 K 331 k 330 331 201 K 330 271 L J n 177 377 361
0102560 360 230 L H n 177 377 361 360 262 266 H I 365 020 \0
0102600 ( 3 2 3 Q \ L I S P E R R O R
0102620 3 1 3 Q \ B I G N U M . P L
0102640 U S 2 6 7 Q R A T I O - D E
0102660 N O M I N A T O R 2 6 3 Q R
0102700 A T I O - N U M E R A T O R 2
0102720 5 6 Q R A T I O - P 2 4 6 Q
0102740 \ F I X P . F R O M . F L O A
0102760 T P 1 5 2 Q \ L I S P E R R
0103000 O R 1 2 3 Q R A T I O - D E
0103020 N O M I N A T O R 1 1 7 Q R
0103040 A T I O - N U M E R A T O R 1
0103060 1 2 Q R A T I O - P 1 0 2 Q
0103100 \ F I X P . F R O M . F L O A
0103120 T P ) \r N I L \r ( ) \r N E W - S
0103140 L O W I D I F F E R E N C E D
0103160 1 \r ( N A M E I D I F F E R E
0103200 N C E P 5 $ $ T Y P E - V
0103220 A L U E P 4 S I G N X P
0103240 3 L Y P 2 H Y P 1
0103260 L X P 0 H X I 1 Y
0103300 I 0 X ) 001 b 006 \0 \0 002 021 P
0103320 004 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001
0103340 260 026 d k 360 262 $ 277 j @ 361 243 j 270 @ 205
0103360 n 377 377 270 @ 323 271 A 004 d l 002 360 262 A 277
0103400 A 310 \0 272 A 310 001 260 L l 003 360 227 @ \t \0
0103420 \0 b \0 260 277 @ \t \0 \0 234 @ \t \0 \0 @ \t
0103440 \0 \0 333 b \0 260 255 @ 021 001 005 M 3 020 222 023
0103460 260 h @ l \n i \v \0 \0 b \0 023 260 225 d k
0103500 360 262 . 277 j A 361 244 j 272 A [ 207 n 377 377
0103520 272 A 323 273 A j 360 222 261 \0 323 K j 360 262 M
0103540 J j 360 263 V n 377 377 J 331 k 330 272 260 L l
0103560 003 360 230 A \t \0 \0 b 002 261 377 177 A \t \0 \0
0103600 235 A \t \0 \0 A \t \0 \0 333 b 002 261 377 l A
0103620 021 001 005 M 3 020 226 023 @ A \n \0 \0 020 A l
0103640 \n i \v \0 \0 b 002 023 261 377 O n 377 377 J 331
0103660 272 n 377 377 K 331 k 330 273 H n 177 377 361 274 K
0103700 j 360 263 K 005 003 265 026 H d n 377 377 J 331
0103720 361 262 037 n 377 377 J 331 k 330 331 260 027 \t \0 \0
0103740 262 351 J n 200 \0 360 262 342 H J 346 270 L 260 9
0103760 J 330 270 I d n 377 377 K 331 361 262 032 277 H d
0104000 n 377 377 360 222 277 j 201 k 330 270 I n 377 377 K
0104020 331 k 330 331 201 K 330 271 L J n 177 377 361 360 232
0104040 L H n 177 377 361 360 242 261 377 p H I 365 020 \0
0104060 ( 4 2 1 Q \ F Z E R O P 3 2
0104100 6 Q \ L I S P E R R O R 3 1
0104120 6 Q \ B I G N U M . D I F F E
0104140 R E N C E 2 7 2 Q R A T I O
0104160 - D E N O M I N A T O R 2 6 6
0104200 Q R A T I O - N U M E R A T O
0104220 R 2 6 1 Q R A T I O - P 2
0104240 5 0 Q \ F I X P . F R O M . F
0104260 L O A T P 1 5 2 Q \ L I S P
0104300 E R R O R 1 2 3 Q R A T I O
0104320 - D E N O M I N A T O R 1 1 7
0104340 Q R A T I O - N U M E R A T O
0104360 R 1 1 2 Q R A T I O - P 1
0104400 0 2 Q \ F I X P . F R O M . F
0104420 L O A T P ) \r N I L \r ( ) \r N E
0104440 W - S L O W I T I M E S 2 D 1
0104460 \r ( N A M E I T I M E S P
0104500 1 0 Q $ $ T Y P E - V A L U E
0104520 P 7 C A R R Y P 6 L
0104540 R P 5 H R P 4 S I G
0104560 N P 3 L Y P 2 L X
0104600 P 1 H Y P 0 H X I
0104620 1 Y I 0 X ) 002 2 \t \0 \0
0104640 002 @ j 360 243 A j 360 221 j 020 021 200 \a j ]
0104660 276 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001
0104700 260 026 d k 360 262 $ 277 j @ 361 243 j 270 @ 205
0104720 n 377 377 270 @ 323 272 A 004 d l 002 360 262 B 277
0104740 A 310 \0 271 A 310 001 260 L l 003 360 227 @ \t \0
0104760 \0 b \0 260 277 @ \t \0 \0 234 @ \t \0 \0 @ \t
0105000 \0 \0 333 b \0 260 255 @ 021 001 \b O 020 3 020 222
0105020 023 260 p @ l \n i \v \0 \0 b \0 023 260 224 d
0105040 k 360 262 5 277 j A 361 243 j 271 A 205 n 377 377
0105060 271 A 323 273 H n 177 377 361 262 k @ o \0 \0 \0
0105100 364 263 @ J j 360 262 N H j 360 263 W n 377 377
0105120 H 331 k 330 270 260 M l 003 360 230 A \t \0 \0 b
0105140 002 261 377 w A \t \0 \0 235 A \t \0 \0 A \t \0
0105160 \0 333 b 002 261 377 d A 021 001 \b O 020 3 020 226
0105200 023 @ A \n \0 \0 020 A l \n i \v \0 \0 b 002
0105220 023 261 377 F n 377 377 H 331 270 n 377 377 J 331 k
0105240 330 272 i 274 I d n 177 377 361 262 0 277 A o \0
0105260 \0 \0 364 263 316 K j 360 235 I j 360 263 031 n 377
0105300 377 I 331 k 330 271 215 n 377 377 I 331 271 n 377 377
0105320 K 331 k 330 273 L h 360 274 I j 360 254 H j 360
0105340 262 241 K J 273 272 I H 271 270 K d 342 273 k 345
0105360 j 360 263 K N d n 377 377 J 331 361 232 n 377 377
0105400 J k 331 331 331 276 k 203 J 330 276 j _ 016 277 M
0105420 H O 016 330 330 ] n 177 377 361 262 # K j 360 242
0105440 261 377 a L 242 261 377 \ M n 200 \0 360 242 261 377
0105460 S N j 360 242 261 377 L o \0 \0 \0 020 K j 360
0105500 263 N K 005 003 265 D n @ \0 H 361 263 [ H n
0105520 @ \0 360 242 261 377 - J j 360 256 J 005 003 242 261
0105540 377 " J \t \0 \0 242 261 377 032 L 242 261 377 025 K
0105560 k 360 242 261 377 016 M j 360 242 261 377 \a N j 360
0105600 242 261 377 \0 o \0 \0 \0 020 \t \0 \0 262 273 L 262
0105620 ? N j 360 262 , M d j 360 263 5 277 n 377 377
0105640 M 331 k 330 ] 260 * H 340 270 J d n 177 377 361
0105660 231 277 H k 324 270 J n 177 377 345 340 272 261 377 -
0105700 n 377 377 M 331 275 n 377 377 N 331 k 330 276 M N
0105720 365 020 \0 ( 7 5 2 Q \ F Z E R O P
0105740 7 0 4 Q \ F Z E R O P 3 5
0105760 4 Q \ L I S P E R R O R 3 4
0106000 4 Q \ B I G N U M . T I M E S
0106020 3 1 7 Q R A T I O - D E N O
0106040 M I N A T O R 3 1 3 Q R A T
0106060 I O - N U M E R A T O R 3 0 6
0106100 Q R A T I O - P 2 7 5 Q \
0106120 F I X P . F R O M . F L O A T P
0106140 1 7 0 Q \ L I S P E R R O R
0106160 1 4 0 Q R A T I O - D E N O
0106200 M I N A T O R 1 3 4 Q R A T
0106220 I O - N U M E R A T O R 1 2 7
0106240 Q R A T I O - P 1 1 7 Q \
0106260 F I X P . F R O M . F L O A T P
0106300 ) \r N I L \r ( 7 4 6 Q - 2 0
0106320 0 0 0 0 0 0 0 0 0 Q 6 3 2 Q
0106340 - 2 0 0 0 0 0 0 0 0 0 0 Q 4 2
0106360 0 Q - 2 0 0 0 0 0 0 0 0 0 0 Q
0106400 2 3 6 Q - 2 0 0 0 0 0 0 0 0
0106420 0 0 Q ) \r N E W - S L O W I Q U
0106440 O T I E N T D 1 \r ( N A M E
0106460 I Q U O T I E N T P 1 1 Q
0106500 $ $ T Y P E - V A L U E P 1
0106520 0 Q S I G N R E M A I N D E R
0106540 P 7 S I G N Q U O T I E N
0106560 T P 6 L Y P 5 H Y
0106600 P 4 L X P 3 H X P
0106620 2 L Z P 1 H Z P 0
0106640 C N T I 1 Y I 0 X
0106660 F 1 2 Q \ O V E R F L O W )
0106700 002 227 \n 001 \0 002 j d d 021 c \b @ 004 d
0106720 l 002 360 231 277 @ 310 \0 273 @ 310 001 260 026 d k
0106740 360 262 $ 277 j @ 361 243 j 273 @ 205 n 377 377 273
0106760 @ 323 274 A 004 d l 002 360 262 C 277 A 310 \0 275
0107000 A 310 001 260 M l 003 360 227 @ \t \0 \0 b \0 260
0107020 277 @ \t \0 \0 234 @ \t \0 \0 @ \t \0 \0 333 b
0107040 \0 260 255 @ 021 001 \t O 022 3 020 223 023 261 001 263
0107060 @ l \n i \v \0 \0 b \0 023 260 223 d k 360 262
0107100 - 277 j A 361 243 j 275 A 205 n 377 377 275 A 323
0107120 276 K n 177 377 361 262 d L j 360 262 K K j 360
0107140 263 T n 377 377 K 331 k 330 273 260 J l 003 360 230
0107160 A \t \0 \0 b 002 261 377 ~ A \t \0 \0 235 A \t
0107200 \0 \0 A \t \0 \0 333 b 002 261 377 k A 021 001 \t
0107220 O 022 3 020 223 023 261 001 J A l \n i \v \0 \0
0107240 b 002 023 261 377 P n 377 377 K 331 273 n 377 377 L
0107260 331 k 330 274 i _ 020 _ 016 277 M n 177 377 361 262
0107300 ) N j 360 235 M j 360 263 031 n 377 377 M 331 k
0107320 330 275 215 n 377 377 M 331 275 n 377 377 N 331 k 330
0107340 276 O 016 h 360 _ 016 277 K j 360 262 z M j 360
0107360 262 $ L j 360 263 025 N d j 360 237 277 W 024 i
0107400 360 227 o \0 \0 \0 A \n \0 \0 j 020 k 360 262 '
0107420 L 272 j 274 O 016 242 261 001 B J j 360 242 261 001
0107440 - I d j 360 222 261 001 4 277 n 377 377 I 331 k
0107460 330 Y 261 001 ( L N 361 236 N d n 177 377 361 250
0107500 340 276 H k 330 270 260 357 N L 361 247 L N 331 274
0107520 J k 330 272 N 342 276 H k 331 270 j H 361 263 266
0107540 J 340 272 260 345 M j 360 262 X N ] j 360 263 217
0107560 O 020 262 024 O 016 256 N k 360 232 K n 200 \0 360
0107600 224 L j 360 263 \ j 276 l 020 270 M K 360 223 L
0107620 N 361 250 K d M 361 242 261 \0 225 277 n 177 377 M
0107640 361 242 261 \0 212 M 340 275 N d n 177 377 361 231 277
0107660 M k 324 275 N n 177 377 345 340 276 H k 330 260 314
0107700 O 020 262 311 O 016 263 305 L j 360 262 300 K n 200
0107720 \0 360 262 271 M d j 360 262 264 277 N k 360 262 255
0107740 @ A \n \0 \0 020 n 377 377 N L 331 331 k 330 274
0107760 k 331 273 J k 330 272 N 342 276 M d k 345 j 360
0110000 247 277 N n 200 \0 330 276 M 342 275 H k 331 270 j
0110020 H 361 222 261 377 001 I 340 271 J d n 177 377 361 231
0110040 277 I k 324 271 J n 177 377 345 340 272 K M 361 253
0110060 M K 360 262 304 N d L 361 263 277 277 K M 331 N
0110100 L 361 263 244 L N 331 274 j 260 250 n 377 377 I 331
0110120 271 n 377 377 J 331 k 330 272 I J 365 020 \0 ( 1
0110140 0 3 5 Q \ B I G N U M . Q U O
0110160 T I E N T 5 0 2 Q E R R O R
0110200 3 3 0 Q \ L I S P E R R O R
0110220 2 7 6 Q R A T I O - D E N O
0110240 M I N A T O R 2 7 2 Q R A T
0110260 I O - N U M E R A T O R 2 6 5
0110300 Q R A T I O - P 2 5 4 Q \
0110320 F I X P . F R O M . F L O A T P
0110340 1 5 7 Q \ L I S P E R R O R
0110360 1 2 6 Q R A T I O - D E N O
0110400 M I N A T O R 1 2 2 Q R A T
0110420 I O - N U M E R A T O R 1 1 5
0110440 Q R A T I O - P 1 0 5 Q \
0110460 F I X P . F R O M . F L O A T P
0110500 ) \r N I L \r ( 4 7 6 Q " D I
0110520 V I D E B Y Z E R O " ) \r N
0110540 E W - I R E M A I N D E R D 1
0110560 \r ( P 1 1 Q $ $ T Y P E - V
0110600 A L U E P 1 0 Q S I G N R
0110620 E M A I N D E R P 7 S I G
0110640 N Q U O T I E N T P 6 L Y
0110660 P 5 H Y P 4 L X P
0110700 3 H X P 2 L Z P 1
0110720 H Z P 0 C N T I 1
0110740 Y I 0 X F 1 2 Q \ O
0110760 V E R F L O W ) 002 227 \n 001 \0 002 j
0111000 d d 021 c \b @ 004 d l 002 360 231 277 @ 310 \0
0111020 273 @ 310 001 260 026 d k 360 262 $ 277 j @ 361 243
0111040 j 273 @ 205 n 377 377 273 @ 323 274 A 004 d l 002
0111060 360 262 C 277 A 310 \0 275 A 310 001 260 M l 003 360
0111100 227 @ \t \0 \0 b \0 260 277 @ \t \0 \0 234 @ \t
0111120 \0 \0 @ \t \0 \0 333 b \0 260 255 @ 021 001 \t O
0111140 022 3 020 223 023 261 001 263 @ l \n i \v \0 \0 b
0111160 \0 023 260 223 d k 360 262 - 277 j A 361 243 j 275
0111200 A 205 n 377 377 275 A 323 276 K n 177 377 361 262 d
0111220 L j 360 262 K K j 360 263 T n 377 377 K 331 k
0111240 330 273 260 J l 003 360 230 A \t \0 \0 b 002 261 377
0111260 ~ A \t \0 \0 235 A \t \0 \0 A \t \0 \0 333 b
0111300 002 261 377 k A 021 001 \t O 022 3 020 223 023 261 001
0111320 J A l \n i \v \0 \0 b 002 023 261 377 P n 377
0111340 377 K 331 273 n 377 377 L 331 k 330 274 i _ 020 _
0111360 016 277 M n 177 377 361 262 ) N j 360 235 M j 360
0111400 263 031 n 377 377 M 331 k 330 275 215 n 377 377 M 331
0111420 275 n 377 377 N 331 k 330 276 O 016 h 360 _ 016 277
0111440 K j 360 262 z M j 360 262 $ L j 360 263 025 N
0111460 d j 360 237 277 W 024 i 360 227 o \0 \0 \0 A \n
0111500 \0 \0 j 020 k 360 262 ' L 272 j 274 O 020 242 261
0111520 001 B L j 360 242 261 001 - K d j 360 222 261 001
0111540 4 277 n 377 377 K 331 k 330 [ 261 001 ( L N 361
0111560 236 N d n 177 377 361 250 340 276 H k 330 270 260 357
0111600 N L 361 247 L N 331 274 J k 330 272 N 342 276 H
0111620 k 331 270 j H 361 263 266 J 340 272 260 345 M j 360
0111640 262 X N ] j 360 263 217 O 020 262 024 O 016 256 N
0111660 k 360 232 K n 200 \0 360 224 L j 360 263 \ j 276
0111700 l 020 270 M K 360 223 L N 361 250 K d M 361 242
0111720 261 \0 225 277 n 177 377 M 361 242 261 \0 212 M 340 275
0111740 N d n 177 377 361 231 277 M k 324 275 N n 177 377
0111760 345 340 276 H k 330 260 314 O 020 262 311 O 016 263 305
0112000 L j 360 262 300 K n 200 \0 360 262 271 M d j 360
0112020 262 264 277 N k 360 262 255 @ A \n \0 \0 020 n 377
0112040 377 N L 331 331 k 330 274 k 331 273 J k 330 272 N
0112060 342 276 M d k 345 j 360 247 277 N n 200 \0 330 276
0112100 M 342 275 H k 331 270 j H 361 222 261 377 001 I 340
0112120 271 J d n 177 377 361 231 277 I k 324 271 J n 177
0112140 377 345 340 272 K M 361 253 M K 360 262 304 N d L
0112160 361 263 277 277 K M 331 N L 361 263 244 L N 331 274
0112200 j 260 250 n 377 377 K 331 273 n 377 377 L 331 k 330
0112220 274 K L 365 020 \0 ( 1 0 3 5 Q \ B I
0112240 G N U M . R E M A I N D E R 5
0112260 0 2 Q E R R O R 3 3 0 Q \
0112300 L I S P E R R O R 2 7 6 Q R
0112320 A T I O - D E N O M I N A T O R
0112340 2 7 2 Q R A T I O - N U M E
0112360 R A T O R 2 6 5 Q R A T I O
0112400 - P 2 5 4 Q \ F I X P . F R
0112420 O M . F L O A T P 1 5 7 Q \
0112440 L I S P E R R O R 1 2 6 Q R
0112460 A T I O - D E N O M I N A T O R
0112500 1 2 2 Q R A T I O - N U M E
0112520 R A T O R 1 1 5 Q R A T I O
0112540 - P 1 0 5 Q \ F I X P . F R
0112560 O M . F L O A T P ) \r N I L \r (
0112600 4 7 6 Q " D I V I D E B Y
0112620 Z E R O " ) \r N E W - S L O W
0112640 I G R E A T E R P D 1 \r ( N A
0112660 M E I G R E A T E R P P 4
0112700 $ $ T Y P E - V A L U E P
0112720 3 L Y P 2 H Y P 1
0112740 L X P 0 H X I 1 Y
0112760 I 0 X ) \0 331 005 \0 \0 002 021 @ 003
0113000 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001 260
0113020 026 d k 360 262 $ 277 j @ 361 243 j 270 @ 205 n
0113040 377 377 270 @ 323 271 A 004 d l 002 360 262 A 277 A
0113060 310 \0 272 A 310 001 260 K l 003 360 227 @ \t \0 \0
0113100 b \0 260 277 @ \t \0 \0 234 @ \t \0 \0 @ \t \0
0113120 \0 333 b \0 260 255 @ 021 001 004 L 3 020 222 023 260
0113140 V @ l \n i \v \0 \0 b \0 023 260 225 d k 360
0113160 262 035 277 j A 361 243 j 272 A 205 n 377 377 272 A
0113200 323 273 H d J 360 262 D 277 I K 361 020 l 003 360
0113220 227 A \t \0 \0 b 002 260 220 A \t \0 \0 235 A \t
0113240 \0 \0 A \t \0 \0 333 b 002 261 377 ~ A 021 001 004
0113260 L 3 020 230 023 @ A \n \0 \0 k 360 020 A l \n
0113300 i \v \0 \0 b 002 023 261 377 _ n 200 \0 346 J n
0113320 200 \0 346 361 020 \0 ( 3 0 6 Q \ L I S
0113340 P E R R O R 2 7 4 Q \ B I G
0113360 N U M . C O M P A R E 2 5 0 Q
0113400 R A T I O - D E N O M I N A T
0113420 O R 2 4 4 Q R A T I O - N U
0113440 M E R A T O R 2 3 7 Q R A T
0113460 I O - P 2 2 7 Q \ F I X P .
0113500 F R O M . F L O A T P 1 5 2 Q
0113520 \ L I S P E R R O R 1 2 3 Q
0113540 R A T I O - D E N O M I N A T
0113560 O R 1 1 7 Q R A T I O - N U
0113600 M E R A T O R 1 1 2 Q R A T
0113620 I O - P 1 0 2 Q \ F I X P .
0113640 F R O M . F L O A T P ) \r N I L
0113660 \r ( ) \r ( \ S E T U F N E N T R
0113700 Y ( C A R ( \ F I N D O P
0113720 ( Q U O T E I P L U S 2 ) ) )
0113740 ( Q U O T E N E W - S L O W
0113760 I P L U S 2 ) 2 0 ) \r ( \ S
0114000 E T U F N E N T R Y ( C A R
0114020 ( \ F I N D O P ( Q U O T E
0114040 I D I F F E R E N C E ) ) ) (
0114060 Q U O T E N E W - S L O W I D
0114100 I F F E R E N C E ) 2 0 ) \r
0114120 ( \ S E T U F N E N T R Y ( C
0114140 A R ( \ F I N D O P ( Q U O
0114160 T E I T I M E S 2 ) ) ) ( Q
0114200 U O T E N E W - S L O W I T I
0114220 M E S 2 ) 2 0 ) \r ( \ S E T
0114240 U F N E N T R Y ( C A R ( \
0114260 F I N D O P ( Q U O T E I Q
0114300 U O T I E N T ) ) ) ( Q U O T
0114320 E N E W - S L O W I Q U O T I
0114340 E N T ) 2 0 ) \r ( \ S E T U
0114360 F N E N T R Y ( C A R ( \ F
0114400 I N D O P ( Q U O T E I R E
0114420 M A I N D E R ) ) ) ( Q U O T
0114440 E N E W - I R E M A I N D E R
0114460 ) 2 0 ) \r ( \ S E T U F N E
0114500 N T R Y ( C A R ( \ F I N D
0114520 O P ( Q U O T E I G R E A T
0114540 E R P ) ) ) ( Q U O T E N E
0114560 W - S L O W I G R E A T E R P )
0114600 2 0 ) \r ( P U T P R O P S
0114620 % % + D O P V A L ( 2 P L
0114640 U S 2 ) ) \r ( P U T P R O P S
0114660 % % - D O P V A L ( 2 D I
0114700 F F E R E N C E ) ) \r ( P U T P
0114720 R O P S % % * D O P V A L
0114740 ( 2 T I M E S 2 ) ) \r ( P U T
0114760 P R O P S % % > D O P V A L
0115000 ( 2 G R E A T E R P ) ) \r %
0115020 % + D 1 \r ( N A M E + P
0115040 1 1 Q $ $ T Y P E - V A L U E
0115060 P 1 0 Q C T Y P E C A S E
0115100 0 4 4 8 P 7 $ $ T Y P E -
0115120 V A L U E P 6 C T Y P E C
0115140 A S E 0 4 4 5 P 5 $ $ T Y
0115160 P E - V A L U E P 4 C T Y
0115200 P E C A S E 0 4 4 2 P 3 $
0115220 $ T Y P E - V A L U E P 2
0115240 C T Y P E C A S E 0 4 3 9 P
0115260 1 $ $ T Y P E - V A L U E P
0115300 0 C T Y P E C A S E 0 4 3 6
0115320 I 1 N 2 I 0 N 1 )
0115340 001 205 \n \0 \0 002 @ 021 001 \0 H 021 001 001 I d
0115360 3 262 O 277 A 021 001 002 J 021 001 003 K d 3
0115400 224 277 @ A 330 020 004 l 003 360 223 @ A 350 020
0115420 K d 004 ` \0 \0 360 226 277 A @ \n \0 \0 020 004
0115440 ` \0 \0 360 231 @ j \n \0 \0 A \n \0 \0 020 i
0115460 g \0 \0 J o \0 \0 \0 \f \0 \0 b 002 023 023 260
0115500 266 004 l 003 360 262 T A 021 001 004 L 021 001 005 M
0115520 d 3 221 277 204 004 l 003 360 223 @ A 350 020 M
0115540 d 004 ` \0 \0 360 234 277 @ A \t \0 \0 A \t \0
0115560 \0 353 350 020 004 ` \0 \0 360 234 @ o \0 \0 \0 \n
0115600 \0 \0 A \n \0 \0 020 i g \0 \0 L o \0 \0 \0
0115620 \f \0 \0 b 002 023 023 260 260 I d 004 ` \0 \0 360
0115640 262 [ 277 A 021 001 006 N 021 001 \a O 016 d 3
0115660 226 277 @ A \n \0 \0 020 004 l 003 360 233 @ \t \0
0115700 \0 @ \t \0 \0 353 A 350 020 O 016 d 004 ` \0 \0
0115720 360 226 277 @ A \n \0 \0 020 004 ` \0 \0 360 231 @
0115740 j \n \0 \0 A \n \0 \0 020 i g \0 \0 N o \0
0115760 \0 \0 \f \0 \0 b 002 023 023 260 252 004 ` \0 \0 360
0116000 262 W A 021 001 \b O 020 021 001 \t O 022 d 3
0116020 232 277 @ A j \n \0 \0 \n \0 \0 020 004 l 003 360
0116040 234 @ A o \0 \0 \0 \n \0 \0 \n \0 \0 020 O 022
0116060 d 004 ` \0 \0 360 263 333 004 ` \0 \0 360 225 @ A
0116100 \n \0 \0 020 i g \0 \0 O 020 o \0 \0 \0 \f \0
0116120 \0 b 002 023 023 260 255 i g \0 \0 H o \0 \0 \0
0116140 \f \0 \0 b \0 023 023 261 376 177 \0 ( 5 7 4 Q
0116160 C H E C K - T Y P E - F A I L
0116200 5 5 2 Q C H E C K - T Y P E
0116220 - F A I L 5 3 4 Q % % C O M
0116240 P L E X + 5 0 6 Q % % C O M
0116260 P L E X + 5 0 3 Q % % M A K
0116300 E - C O M P L E X 4 6 4 Q %
0116320 % C O M P L E X + 4 6 1 Q %
0116340 % M A K E - C O M P L E X 4 1
0116360 6 Q C H E C K - T Y P E - F A
0116400 I L 4 0 1 Q % % C O M P L E
0116420 X + 3 7 5 Q % % M A K E - C
0116440 O M P L E X 3 6 1 Q % % R A
0116460 T I O + 3 3 6 Q D E N O M I
0116500 N A T O R 3 3 2 Q N U M E R
0116520 A T O R 3 2 0 Q % % R A T I
0116540 O - I N T E G E R + 2 5 4 Q
0116560 C H E C K - T Y P E - F A I L
0116600 2 3 7 Q % % C O M P L E X +
0116620 2 3 3 Q % % M A K E - C O M P
0116640 L E X 2 1 2 Q D E N O M I N
0116660 A T O R 2 0 6 Q N U M E R A
0116700 T O R 1 2 4 Q C H E C K - T
0116720 Y P E - F A I L 1 0 7 Q % %
0116740 C O M P L E X + 1 0 3 Q % %
0116760 M A K E - C O M P L E X 6 7 Q
0117000 % % R A T I O - I N T E G E R
0117020 + ) \r ( 5 6 4 Q N 1 5 4 1 Q
0117040 N 2 5 2 5 Q 004 003 C O M P L
0117060 E X T Y P E # 5 1 6 Q 004 003 R
0117100 A T I O T Y P E # 4 3 0 Q 004
0117120 003 C O M P L E X T Y P E # 4 0
0117140 6 Q N 2 3 6 6 Q 004 003 C O M
0117160 P L E X T Y P E # 3 5 1 Q 004
0117200 003 R A T I O T Y P E # 2 7 0 Q
0117220 004 003 R A T I O T Y P E # 2 4
0117240 4 Q N 2 2 2 1 Q 004 003 C O M
0117260 P L E X T Y P E # 1 7 6 Q 004
0117300 003 R A T I O T Y P E # 1 1 4 Q
0117320 N 2 7 4 Q 004 003 C O M P L E
0117340 X T Y P E # 5 7 Q 004 003 R A T
0117360 I O T Y P E # ) \r ( 5 7 1 Q
0117400 ( O R I N T E G E R F L O A
0117420 T R A T I O C O M P L E X )
0117440 5 4 7 Q ( O R I N T E G E
0117460 R F L O A T R A T I O C O
0117500 M P L E X ) 5 0 0 Q 0 . 0
0117520 4 1 3 Q ( O R I N T E G E R
0117540 F L O A T R A T I O C O M
0117560 P L E X ) \r 2 5 1 Q ( O R
0117600 O R I N T E G E R F L O A T
0117620 R A T I O C O M P L E X )
0117640 2 3 0 Q 0 . 0 1 2 1 Q ( O
0117660 R I N T E G E R F L O A T
0117700 R A T I O C O M P L E X ) ) \r
0117720 % % - D 1 \r ( N A M E - P
0117740 1 1 Q $ $ T Y P E - V A L U
0117760 E P 1 0 Q C T Y P E C A S
0120000 E 0 4 6 3 P 7 $ $ T Y P E
0120020 - V A L U E P 6 C T Y P E
0120040 C A S E 0 4 6 0 P 5 $ $ T
0120060 Y P E - V A L U E P 4 C T
0120100 Y P E C A S E 0 4 5 7 P 3
0120120 $ $ T Y P E - V A L U E P 2
0120140 C T Y P E C A S E 0 4 5 4 P
0120160 1 $ $ T Y P E - V A L U E
0120200 P 0 C T Y P E C A S E 0 4 5
0120220 1 I 1 N 2 I 0 N 1 )
0120240 001 211 \n \0 \0 002 @ 021 001 \0 H 021 001 001 I
0120260 d 3 262 S 277 A 021 001 002 J 021 001 003 K d
0120300 3 224 277 @ A 331 020 004 l 003 360 223 @ A 351
0120320 020 K d 004 ` \0 \0 360 232 277 @ k \n \0 \0 A
0120340 \n \0 \0 020 004 ` \0 \0 360 231 @ j \n \0 \0 A
0120360 \n \0 \0 020 i g \0 \0 J o \0 \0 \0 \f \0 \0
0120400 b 002 023 023 260 262 004 l 003 360 262 T A 021 001 004
0120420 L 021 001 005 M d 3 221 277 204 004 l 003 360 223
0120440 @ A 351 020 M d 004 ` \0 \0 360 234 277 @ A \t
0120460 \0 \0 A \t \0 \0 353 351 020 004 ` \0 \0 360 234 @
0120500 o \0 \0 \0 \n \0 \0 A \n \0 \0 020 i g \0 \0
0120520 L o \0 \0 \0 \f \0 \0 b 002 023 023 260 260 I d
0120540 004 ` \0 \0 360 262 [ 277 A 021 001 006 N 021 001 \a
0120560 O 016 d 3 226 277 @ A \n \0 \0 020 004 l 003
0120600 360 233 @ \t \0 \0 @ \t \0 \0 353 A 351 020 O 016
0120620 d 004 ` \0 \0 360 226 277 @ A \n \0 \0 020 004 `
0120640 \0 \0 360 231 @ j \n \0 \0 A \n \0 \0 020 i g
0120660 \0 \0 N o \0 \0 \0 \f \0 \0 b 002 023 023 260 252
0120700 004 ` \0 \0 360 262 W A 021 001 \b O 020 021 001 \t
0120720 O 022 d 3 232 277 @ A j \n \0 \0 \n \0 \0
0120740 020 004 l 003 360 234 @ A o \0 \0 \0 \n \0 \0 \n
0120760 \0 \0 020 O 022 d 004 ` \0 \0 360 263 333 004 ` \0
0121000 \0 360 225 @ A \n \0 \0 020 i g \0 \0 O 020 o
0121020 \0 \0 \0 \f \0 \0 b 002 023 023 260 255 i g \0 \0
0121040 H o \0 \0 \0 \f \0 \0 b \0 023 023 261 376 { \0
0121060 ( 6 0 0 Q C H E C K - T Y P E
0121100 - F A I L 5 5 6 Q C H E C K
0121120 - T Y P E - F A I L 5 4 0 Q
0121140 % % C O M P L E X - 5 1 2 Q
0121160 % % C O M P L E X - 5 0 7 Q
0121200 % % M A K E - C O M P L E X 4
0121220 7 0 Q % % C O M P L E X - 4
0121240 6 5 Q % % M A K E - C O M P L
0121260 E X 4 2 2 Q C H E C K - T Y
0121300 P E - F A I L 4 0 5 Q % % C
0121320 O M P L E X - 4 0 1 Q % % M
0121340 A K E - C O M P L E X 3 6 5 Q
0121360 % % R A T I O - 3 4 2 Q D
0121400 E N O M I N A T O R 3 3 6 Q
0121420 N U M E R A T O R 3 2 4 Q %
0121440 % R A T I O - I N T E G E R -
0121460 2 6 0 Q C H E C K - T Y P E -
0121500 F A I L 2 4 3 Q % % C O M P
0121520 L E X - 2 3 7 Q % % M A K E
0121540 - C O M P L E X 2 1 6 Q D E
0121560 N O M I N A T O R 2 1 2 Q N
0121600 U M E R A T O R 1 3 0 Q C H
0121620 E C K - T Y P E - F A I L 1 1
0121640 3 Q % % C O M P L E X - 1 0
0121660 7 Q % % M A K E - C O M P L E
0121700 X 7 3 Q % % R A T I O - 6
0121720 7 Q % % M A K E - R A T I O )
0121740 \r ( 5 7 0 Q N 1 5 4 5 Q N
0121760 2 5 3 1 Q 004 003 C O M P L E X
0122000 T Y P E # 5 2 2 Q 004 003 R A T
0122020 I O T Y P E # 4 3 4 Q 004 003 C
0122040 O M P L E X T Y P E # 4 1 2 Q
0122060 N 2 3 7 2 Q 004 003 C O M P L
0122100 E X T Y P E # 3 5 5 Q 004 003 R
0122120 A T I O T Y P E # 2 7 4 Q 004
0122140 003 R A T I O T Y P E # 2 5 0 Q
0122160 N 2 2 2 5 Q 004 003 C O M P L
0122200 E X T Y P E # 2 0 2 Q 004 003 R
0122220 A T I O T Y P E # 1 2 0 Q N
0122240 2 1 0 0 Q 004 003 C O M P L E X
0122260 T Y P E # 5 7 Q 004 003 R A T I
0122300 O T Y P E # ) \r ( 5 7 5 Q (
0122320 O R I N T E G E R F L O A T
0122340 R A T I O C O M P L E X )
0122360 5 5 3 Q ( O R I N T E G E R
0122400 F L O A T R A T I O C O M
0122420 P L E X ) 5 0 4 Q 0 . 0 4
0122440 1 7 Q ( O R I N T E G E R
0122460 F L O A T R A T I O C O M P
0122500 L E X ) \r 2 5 5 Q ( O R O
0122520 R I N T E G E R F L O A T
0122540 R A T I O C O M P L E X ) 2
0122560 3 4 Q 0 . 0 1 2 5 Q ( O R
0122600 I N T E G E R F L O A T R
0122620 A T I O C O M P L E X ) ) \r %
0122640 % * D 1 \r ( N A M E C L : *
0122660 P 1 1 Q $ $ T Y P E - V A
0122700 L U E P 1 0 Q C T Y P E C
0122720 A S E 0 4 7 8 P 7 $ $ T Y
0122740 P E - V A L U E P 6 C T Y
0122760 P E C A S E 0 4 7 5 P 5 $
0123000 $ T Y P E - V A L U E P 4
0123020 C T Y P E C A S E 0 4 7 2 P
0123040 3 $ $ T Y P E - V A L U E P
0123060 2 C T Y P E C A S E 0 4 6 9
0123100 P 1 $ $ T Y P E - V A L U
0123120 E P 0 C T Y P E C A S E 0
0123140 4 6 6 I 1 N 2 I 0 N
0123160 1 ) 001 206 \n \0 \0 002 A 021 001 \0 H 021 001
0123200 001 I d 3 262 O 277 @ 021 001 002 J 021 001 003
0123220 K d 3 224 277 @ A 332 020 004 l 003 360 223 @
0123240 A 352 020 K d 004 ` \0 \0 360 226 277 @ A \n \0
0123260 \0 020 004 ` \0 \0 360 231 @ A j \n \0 \0 \n \0
0123300 \0 020 i g \0 \0 J o \0 \0 \0 \f \0 \0 b \0
0123320 023 023 260 266 004 l 003 360 262 T @ 021 001 004 L 021
0123340 001 005 M d 3 221 277 204 004 l 003 360 223 @ A
0123360 352 020 M d 004 ` \0 \0 360 234 277 @ \t \0 \0 @
0123400 \t \0 \0 353 A 352 020 004 ` \0 \0 360 234 @ A o
0123420 \0 \0 \0 \n \0 \0 \n \0 \0 020 i g \0 \0 L o
0123440 \0 \0 \0 \f \0 \0 b \0 023 023 260 260 I d 004 `
0123460 \0 \0 360 262 [ 277 @ 021 001 006 N 021 001 \a O 016
0123500 d 3 226 277 A @ \n \0 \0 020 004 l 003 360 233
0123520 @ A \t \0 \0 A \t \0 \0 353 352 020 O 016 d 004
0123540 ` \0 \0 360 226 277 A @ \n \0 \0 020 004 ` \0 \0
0123560 360 231 @ A j \n \0 \0 \n \0 \0 020 i g \0 \0
0123600 N o \0 \0 \0 \f \0 \0 b \0 023 023 260 252 004 `
0123620 \0 \0 360 262 X @ 021 001 \b O 020 021 001 \t O 022
0123640 d 3 221 277 205 004 ` \0 \0 360 231 @ j \n \0
0123660 \0 A \n \0 \0 020 O 022 d 004 l 003 360 235 277 @
0123700 o \0 \0 \0 \n \0 \0 A \n \0 \0 020 004 ` \0 \0
0123720 360 225 @ A \n \0 \0 020 i g \0 \0 O 020 o \0
0123740 \0 \0 \f \0 \0 b \0 023 023 260 254 i g \0 \0 H
0123760 o \0 \0 \0 \f \0 \0 b 002 023 023 261 376 ~ \0 (
0124000 5 7 5 Q C H E C K - T Y P E -
0124020 F A I L 5 5 3 Q C H E C K -
0124040 T Y P E - F A I L 5 3 5 Q %
0124060 % C O M P L E X * 5 2 1 Q %
0124100 % C O M P L E X * 5 1 5 Q %
0124120 % M A K E - C O M P L E X 4 7
0124140 3 Q % % C O M P L E X * 4 6
0124160 7 Q % % M A K E - C O M P L E
0124200 X 4 1 6 Q C H E C K - T Y P
0124220 E - F A I L 4 0 1 Q % % C O
0124240 M P L E X * 3 7 6 Q % % M A
0124260 K E - C O M P L E X 3 6 1 Q
0124300 % % R A T I O * 3 3 7 Q D E
0124320 N O M I N A T O R 3 3 3 Q N
0124340 U M E R A T O R 3 2 0 Q % %
0124360 R A T I O - I N T E G E R * 2
0124400 5 4 Q C H E C K - T Y P E - F
0124420 A I L 2 3 7 Q % % C O M P L
0124440 E X * 2 3 4 Q % % M A K E -
0124460 C O M P L E X 2 1 1 Q D E N
0124500 O M I N A T O R 2 0 5 Q N U
0124520 M E R A T O R 1 2 4 Q C H E
0124540 C K - T Y P E - F A I L 1 0 7
0124560 Q % % C O M P L E X * 1 0 4
0124600 Q % % M A K E - C O M P L E X
0124620 6 7 Q % % R A T I O - I N T
0124640 E G E R * ) \r ( 5 6 5 Q N 2
0124660 5 4 2 Q N 1 5 2 6 Q 004 003 C
0124700 O M P L E X T Y P E # 4 6 0 Q
0124720 004 003 R A T I O T Y P E # 4 3
0124740 0 Q 004 003 C O M P L E X T Y P E
0124760 # 4 0 6 Q N 1 3 6 6 Q 004
0125000 003 C O M P L E X T Y P E # 3 5
0125020 1 Q 004 003 R A T I O T Y P E #
0125040 2 7 0 Q 004 003 R A T I O T Y P E
0125060 # 2 4 4 Q N 1 2 2 1 Q 004
0125100 003 C O M P L E X T Y P E # 1 7
0125120 6 Q 004 003 R A T I O T Y P E #
0125140 1 1 4 Q N 1 7 4 Q 004 003 C O
0125160 M P L E X T Y P E # 5 7 Q 004
0125200 003 R A T I O T Y P E # ) \r ( 5
0125220 7 2 Q ( O R I N T E G E R
0125240 F L O A T R A T I O C O M P
0125260 L E X ) 5 5 0 Q ( O R O R
0125300 I N T E G E R R A T I O F
0125320 L O A T C O M P L E X ) 5 1
0125340 2 Q 0 . 0 4 1 3 Q ( O R
0125360 I N T E G E R F L O A T R A
0125400 T I O C O M P L E X ) \r 2 5
0125420 1 Q ( O R O R I N T E G E
0125440 R F L O A T R A T I O C O
0125460 M P L E X ) 2 3 1 Q 0 . 0
0125500 1 2 1 Q ( O R I N T E G E R
0125520 F L O A T R A T I O C O M
0125540 P L E X ) ) \r % % / D 1 \r ( N
0125560 A M E / P 1 1 Q $ $ T Y
0125600 P E - V A L U E P 1 0 Q C
0125620 T Y P E C A S E 0 4 9 3 P 7
0125640 $ $ T Y P E - V A L U E P
0125660 6 C T Y P E C A S E 0 4 9 0
0125700 P 5 $ $ T Y P E - V A L U E
0125720 P 4 C T Y P E C A S E 0 4
0125740 8 7 P 3 $ $ T Y P E - V A
0125760 L U E P 2 C T Y P E C A S
0126000 E 0 4 8 4 P 1 $ $ T Y P E
0126020 - V A L U E P 0 C T Y P E
0126040 C A S E 0 4 8 1 I 1 N 2
0126060 I 0 N 1 ) 001 312 \n \0 \0 002 @ 021
0126100 001 \0 H 021 001 001 I d 3 242 261 \0 203 277 A
0126120 021 001 002 J 021 001 003 K d 3 262 1 277 @ d
0126140 ` \0 \0 360 263 037 d ` \0 \0 360 263 030 277 A `
0126160 \0 \0 360 255 A ` \0 \0 360 247 @ A \n \0 \0 j
0126200 360 223 @ A 333 020 @ A \n \0 \0 020 004 l 003 360
0126220 223 @ A 353 020 K d 004 ` \0 \0 360 236 277 A \t
0126240 \0 \0 @ 326 A \t \0 \0 \n \0 \0 020 004 ` \0 \0
0126260 360 231 @ j \n \0 \0 A \n \0 \0 020 i g \0 \0
0126300 J o \0 \0 \0 \f \0 \0 b 002 023 023 260 203 004 l
0126320 003 360 262 V A 021 001 004 L 021 001 005 M d 3
0126340 221 277 204 004 l 003 360 223 @ A 353 020 M d 004 `
0126360 \0 \0 360 236 277 A \t \0 \0 @ 326 A \t \0 \0 \n
0126400 \0 \0 020 004 ` \0 \0 360 234 @ o \0 \0 \0 \n \0
0126420 \0 A \n \0 \0 020 i g \0 \0 L o \0 \0 \0 \f
0126440 \0 \0 b 002 023 023 260 256 I d 004 ` \0 \0 360 262
0126460 [ 277 A 021 001 006 N 021 001 \a O 016 d 3 236
0126500 277 @ \t \0 \0 @ \t \0 \0 A 326 \n \0 \0 020 004
0126520 l 003 360 223 @ A 353 020 O 016 d 004 ` \0 \0 360
0126540 226 277 @ A \n \0 \0 020 004 ` \0 \0 360 231 @ j
0126560 \n \0 \0 A \n \0 \0 020 i g \0 \0 N o \0 \0
0126600 \0 \f \0 \0 b 002 023 023 260 252 004 ` \0 \0 360 262
0126620 e A 021 001 \b O 020 021 001 \t O 022 d 3 232
0126640 277 @ A j \n \0 \0 \n \0 \0 020 004 l 003 360 234
0126660 @ A o \0 \0 \0 \n \0 \0 \n \0 \0 020 O 022 d
0126700 004 ` \0 \0 360 236 277 A \t \0 \0 @ 326 A \t \0
0126720 \0 \n \0 \0 020 004 ` \0 \0 360 225 @ A \n \0 \0
0126740 020 i g \0 \0 O 020 o \0 \0 \0 \f \0 \0 b 002
0126760 023 023 260 237 i g \0 \0 H o \0 \0 \0 \f \0 \0
0127000 b \0 023 023 261 376 : \0 ( 7 0 1 Q C H
0127020 E C K - T Y P E - F A I L 6 5
0127040 7 Q C H E C K - T Y P E - F A
0127060 I L 6 4 1 Q % % C O M P L E
0127100 X / 6 2 5 Q % % / 6 2 2 Q
0127120 N U M E R A T O R 6 1 4 Q
0127140 D E N O M I N A T O R 5 7 5 Q
0127160 % % C O M P L E X / 5 7 2 Q
0127200 % % M A K E - C O M P L E X
0127220 5 5 3 Q % % C O M P L E X /
0127240 5 5 0 Q % % M A K E - C O M P
0127260 L E X 5 0 5 Q C H E C K - T
0127300 Y P E - F A I L 4 7 0 Q % %
0127320 C O M P L E X / 4 6 4 Q % %
0127340 M A K E - C O M P L E X 4 5 0
0127360 Q % % R A T I O / 4 1 7 Q
0127400 % % B U I L D - R A T I O 4 1
0127420 2 Q D E N O M I N A T O R 4
0127440 0 6 Q N U M E R A T O R 3 4
0127460 3 Q C H E C K - T Y P E - F A
0127500 I L 3 2 6 Q % % C O M P L E
0127520 X / 3 2 2 Q % % M A K E - C
0127540 O M P L E X 3 0 3 Q % % /
0127560 3 0 0 Q N U M E R A T O R 2
0127600 7 2 Q D E N O M I N A T O R
0127620 2 1 1 Q C H E C K - T Y P E -
0127640 F A I L 1 7 4 Q % % C O M P
0127660 L E X / 1 7 0 Q % % M A K E
0127700 - C O M P L E X 1 5 4 Q % %
0127720 / 1 5 1 Q N U M E R A T O R
0127740 1 4 3 Q D E N O M I N A T O
0127760 R 1 1 4 Q % % B U I L D - R
0130000 A T I O 1 0 0 Q I M O D ) \r
0130020 ( 6 7 1 Q N 1 6 4 6 Q N 2
0130040 6 3 2 Q 004 003 C O M P L E X T
0130060 Y P E # 6 0 5 Q 004 003 R A T I
0130100 O T Y P E # 5 1 7 Q 004 003 C O
0130120 M P L E X T Y P E # 4 7 5 Q
0130140 N 2 4 5 5 Q 004 003 C O M P L E
0130160 X T Y P E # 4 4 0 Q 004 003 R A
0130200 T I O T Y P E # 3 5 7 Q 004 003
0130220 R A T I O T Y P E # 3 3 3 Q
0130240 N 2 3 1 0 Q 004 003 C O M P L E
0130260 X T Y P E # 2 6 3 Q 004 003 R A
0130300 T I O T Y P E # 2 0 1 Q N 2
0130320 1 6 1 Q 004 003 C O M P L E X T
0130340 Y P E # 1 3 4 Q 004 003 R A T I
0130360 O T Y P E # 7 1 Q M A X . I
0130400 N T E G E R 6 3 Q M I N . I
0130420 N T E G E R 5 3 Q M A X . I
0130440 N T E G E R 4 4 Q M I N . I
0130460 N T E G E R ) \r ( 6 7 6 Q (
0130500 O R I N T E G E R F L O A T
0130520 R A T I O C O M P L E X )
0130540 6 5 4 Q ( O R I N T E G E R
0130560 F L O A T R A T I O C O M
0130600 P L E X ) 5 6 7 Q 0 . 0 5
0130620 0 2 Q ( O R I N T E G E R
0130640 F L O A T R A T I O C O M P
0130660 L E X ) \r 3 4 0 Q ( O R O
0130700 R I N T E G E R F L O A T
0130720 R A T I O C O M P L E X ) 3
0130740 1 7 Q 0 . 0 2 0 6 Q ( O R
0130760 I N T E G E R F L O A T R
0131000 A T I O C O M P L E X ) ) \r (
0131020 \ S E T U F N E N T R Y ( C A
0131040 R ( \ F I N D O P ( Q U O T
0131060 E P L U S 2 ) ) ) ( Q U O T
0131100 E % % + ) 2 0 ) \r ( \ S E
0131120 T U F N E N T R Y ( C A R (
0131140 \ F I N D O P ( Q U O T E D
0131160 I F F E R E N C E ) ) ) ( Q U
0131200 O T E % % - ) 2 0 ) \r ( \
0131220 S E T U F N E N T R Y ( C A R
0131240 ( \ F I N D O P ( Q U O T E
0131260 T I M E S 2 ) ) ) ( Q U O T
0131300 E % % * ) 2 0 ) \r ( \ S E
0131320 T U F N E N T R Y ( C A R (
0131340 \ F I N D O P ( Q U O T E G
0131360 R E A T E R P ) ) ) ( Q U O T
0131400 E % % > ) 2 0 ) \r L O G I
0131420 O R D 1 \r ( L ( 0 N ) )
0131440 \0 A 003 \0 002 \0 e 021 001 \0 H d l 002 360 227
0131460 277 k a l 002 a 344 020 k 360 224 k a j 330 020
0131500 H j 360 221 j 020 k a l 002 a l 003 a 344 344
0131520 l 004 021 002 002 J H 361 252 I J a 344 271 J k
0131540 330 Z 260 364 I 020 \0 N I L \r N I L \r (
0131560 ) \r L O G E Q V D 1 \r ( L (
0131600 0 - a r g s - ) ) \0 G 006 \0 002
0131620 \0 e 021 001 \0 H k 021 2 005 J d I 363 262 030
0131640 277 K 022 021 021 002 I 265 005 m 377 020 001 I 002 271
0131660 272 I 263 031 J 020 a 275 L 265 \r M h 032 \ 273
0131700 J k 324 Z 260 327 M & 274 260 367 J I 001 I 002
0131720 271 m 377 346 346 260 333 \0 N I L \r N I L \r
0131740 ( ) \r L O G N A N D D 1 \r ( L
0131760 ( 1 I N T E G E R 2 0 I
0132000 N T E G E R 1 ) ) \0 \b \0 \0 \0 002
0132020 @ A 345 m 377 346 020 \0 N I L \r N I L \r
0132040 ( ) \r L O G N O R D 1 \r ( L
0132060 ( 1 I N T E G E R 2 0 I N
0132100 T E G E R 1 ) ) \0 \b \0 \0 \0 002 @
0132120 A 344 m 377 346 020 \0 N I L \r N I L \r (
0132140 ) \r L O G A N D C 1 D 1 \r ( L
0132160 ( 1 I N T E G E R 2 0 I
0132200 N T E G E R 1 ) ) \0 \b \0 \0 \0 002
0132220 @ m 377 346 A 345 020 \0 N I L \r N I L \r
0132240 ( ) \r L O G A N D C 2 D 1 \r (
0132260 L ( 1 I N T E G E R 2 0
0132300 I N T E G E R 1 ) ) \0 \b \0 \0 \0
0132320 002 @ A m 377 346 345 020 \0 N I L \r N I L
0132340 \r ( ) \r L O G O R C 1 D 1 \r (
0132360 L ( 1 I N T E G E R 2 0
0132400 I N T E G E R 1 ) ) \0 \b \0 \0 \0
0132420 002 @ m 377 346 A 344 020 \0 N I L \r N I L
0132440 \r ( ) \r L O G O R C 2 D 1 \r (
0132460 L ( 1 I N T E G E R 2 0
0132500 I N T E G E R 1 ) ) \0 \b \0 \0 \0
0132520 002 @ A m 377 346 344 020 \0 N I L \r N I L
0132540 \r ( ) \r B O O L E D 1 \r ( L
0132560 ( 2 I N T E G E R 2 1 I N
0132600 T E G E R 1 0 O P ) ) \0 251
0132620 \0 \0 \0 003 @ d j 360 221 j 020 k 360 222 m 377
0132640 020 @ d l 002 360 221 A 020 l 003 360 221 B 020 @
0132660 d l 004 360 225 277 A m 377 346 020 l 005 360 224 B
0132700 m 377 346 020 @ d l 006 360 224 277 A B 345 020 l
0132720 \a 360 225 A B \n \0 \0 020 @ d l \b 360 224 277
0132740 A B 346 020 l \t 360 225 A B \n \0 \0 020 @ d
0132760 l \n 360 226 277 A B \n \0 \0 020 l \v 360 225 A
0133000 B \n \0 \0 020 @ d l \f 360 226 277 A B \n \0
0133020 \0 020 l \r 360 225 A B \n \0 \0 020 @ d l 016
0133040 360 226 277 A B \n \0 \0 020 l 017 360 225 A B \n
0133060 \0 \0 020 o \0 \0 \0 @ \n \0 \0 020 \0 ( 2 4
0133100 6 Q C L : E R R O R 2 3 5 Q
0133120 L O G O R C 2 2 2 3 Q L O
0133140 G O R C 1 2 0 6 Q L O G A N
0133160 D C 2 1 7 4 Q L O G A N D C
0133200 1 1 5 7 Q L O G N O R 1 4
0133220 5 Q L O G N A N D 1 3 0 Q
0133240 L O G E Q V 1 0 3 Q L O G I
0133260 O R ) \r N I L \r ( 2 4 2 Q "
0133300 ~ S i s n o t o f t y p
0133320 e ( m o d 1 6 ) . " ) \r ( R
0133340 P A Q ? B O O L E - C L R 0
0133360 ) \r ( R P A Q ? B O O L E - S
0133400 E T 1 ) \r ( R P A Q ? B O O
0133420 L E - 1 2 ) \r ( R P A Q ? B
0133440 O O L E - 2 3 ) \r ( R P A Q ?
0133460 B O O L E - C 1 4 ) \r ( R P
0133500 A Q ? B O O L E - C 2 5 ) \r
0133520 ( R P A Q ? B O O L E - A N D
0133540 6 ) \r ( R P A Q ? B O O L E
0133560 - I O R 7 ) \r ( R P A Q ? B
0133600 O O L E - X O R 8 ) \r ( R P A
0133620 Q ? B O O L E - E Q V 9 ) \r
0133640 ( R P A Q ? B O O L E - N A N
0133660 D 1 0 ) \r ( R P A Q ? B O O
0133700 L E - N O R 1 1 ) \r ( R P A Q
0133720 ? B O O L E - A N D C 1 1 2
0133740 ) \r ( R P A Q ? B O O L E - A
0133760 N D C 2 1 3 ) \r ( R P A Q ?
0134000 B O O L E - O R C 1 1 4 ) \r (
0134020 R P A Q ? B O O L E - O R C 2
0134040 1 5 ) \r L O G T E S T D 1 \r
0134060 ( L ( 1 I N T E G E R 2 0
0134100 I N T E G E R 1 ) ) \0 \t \0 \0
0134120 \0 002 @ A 345 j 360 h 360 020 \0 N I L \r N
0134140 I L \r ( ) \r L O G B I T P D 1
0134160 \r ( L ( 1 I N T E G E R 0
0134200 I N D E X ) ) \0 \v \0 \0 \0 002 A
0134220 @ \n \0 \0 k 345 k 360 020 \0 ( 4 R S H
0134240 ) \r N I L \r ( ) \r A S H D 1 \r
0134260 ( I 1 C O U N T I 0 I
0134300 N T E G E R ) \0 5 \0 \0 \0 002 A j
0134320 361 255 A j 360 221 @ 020 @ j A 331 \n \0 \0 020
0134340 @ j 360 221 j 020 A d l 037 361 226 277 @ A \n
0134360 \0 \0 020 d j 361 262 340 @ d 330 b \0 277 k 331
0134400 260 363 \0 ( 4 3 Q \ B I G N U M .
0134420 L S H 2 0 Q R S H ) \r N I L
0134440 \r ( ) \r L O G C O U N T D 1 \r
0134460 ( L ( 0 I N T E G E R ) )
0134500 \0 P 003 \0 \0 001 @ 005 001 245 @ d 3 236 277
0134520 j @ 363 224 @ m 377 346 200 @ \t \0 \0 020 004 `
0134540 \0 \0 360 262 ) j @ 363 224 @ m 377 346 200 @ 006
0134560 \0 \0 311 \0 j 021 022 002 H 003 265 004 I 020 001 272
0134600 I J \t \0 \0 324 271 H 002 X 260 357 o \0 \0 \0
0134620 @ \n \0 \0 020 \0 ( 1 1 5 Q C L : E
0134640 R R O R 7 6 Q % % L O G C O
0134660 U N T 2 6 Q % % L O G C O U
0134700 N T ) \r ( 5 3 Q B I G N U M
0134720 3 3 Q 004 003 B I G N U M T Y P E
0134740 # ) \r ( 1 1 1 Q " A r g u m
0134760 e n t n o t i n t e g e r ,
0135000 ~ A . " ) \r % % L O G C O U N
0135020 T D 1 \r ( L ( 0 N ) ) \0
0135040 032 001 \0 \0 001 021 020 \0 j X @ d j 360 221 H
0135060 020 d k 325 345 b \0 277 H k 324 270 260 356 \0 N
0135100 I L \r N I L \r ( ) \r I N T E G E
0135120 R - L E N G T H D 1 \r ( I 0
0135140 I N T E G E R ) \0 256 \0 \0 \0 001
0135160 j @ 363 226 m 377 @ 325 b \0 277 o \0 \0 \0 @
0135200 363 242 261 \0 216 n 001 \0 @ 363 262 C l 020 @ 363
0135220 262 " l 004 @ 363 237 l 002 @ 363 227 @ j 360 221
0135240 j 020 k 020 l 002 020 l \b @ 363 222 l 003 020 l
0135260 004 020 l @ @ 363 232 l @ 363 222 l 005 020 l
0135300 006 020 l 200 @ 363 222 l \a 020 l \b 020 n 020 \0
0135320 @ 363 262 n 004 \0 @ 363 233 n 002 \0 @ 363 222
0135340 l \t 020 l \n 020 n \b \0 @ 363 222 l \v 020 l
0135360 \f 020 n @ \0 @ 363 233 n \0 @ 363 222 l \r
0135400 020 l 016 020 n 200 \0 @ 363 222 l 017 020 l 020 020
0135420 @ m 360 \n \0 \0 \t \0 \0 l 020 324 020 \0 ( 2
0135440 5 0 Q I N T E G E R - L E N G
0135460 T H 2 4 5 Q A S H ) \r N I L
0135500 \r ( 1 6 Q 2 0 0 0 0 0 Q ) \r
0135520 B Y T E - S I Z E D 1 \r ( L
0135540 ( 0 B Y T E S P E C ) ) \0 005
0135560 \0 \0 \0 001 @ 002 001 020 \0 N I L \r N I L
0135600 \r ( ) \r B Y T E - P O S I T I O
0135620 N D 1 \r ( L ( 0 B Y T E S
0135640 P E C ) ) \0 006 \0 \0 \0 001 @ 002 002 001
0135660 020 \0 N I L \r N I L \r ( ) \r L D B
0135700 - T E S T D 1 \r ( L ( 1 I
0135720 N T E G E R 0 B Y T E S P E
0135740 C ) ) \0 \v \0 \0 \0 002 @ A \n \0 \0 j
0135760 360 h 360 020 \0 ( 4 M A S K - F I E
0136000 L D ) \r N I L \r ( ) \r M A S K -
0136020 F I E L D D 1 \r ( L ( 1 I
0136040 N T E G E R 0 B Y T E S P E
0136060 C ) ) \0 026 002 \0 \0 002 @ 002 002 001 @ 002
0136100 001 021 002 001 k I 347 k 331 H 347 022 A 345 020 \0
0136120 N I L \r N I L \r ( ) \r D E P O S
0136140 I T - F I E L D D 1 \r ( L (
0136160 2 I N T E G E R 1 B Y T E
0136200 S P E C 0 N E W B Y T E ) )
0136220 \0 037 002 \0 \0 003 B A 002 002 001 A 002 001 021
0136240 002 001 k I 347 k 331 H 347 022 \n \0 \0 @ A 002
0136260 002 001 347 344 020 \0 ( 2 5 Q L O G A N
0136300 D C 2 ) \r N I L \r ( ) \r ( P U T
0136320 P R O P S C M L A R I T H F
0136340 I L E T Y P E C O M P I L E -
0136360 F I L E ) \r ( P U T P R O P S
0136400 C M L A R I T H C O P Y R I G
0136420 H T ( " X e r o x C o r p o
0136440 r a t i o n " 1 9 8 5 1 9 8
0136460 6 ) ) \r S T O P \r
0136471