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