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