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