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