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