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