$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>Numbers.$cheme 0000000 # 001 006 003 005 z e r o ? 001 = 001 x 021 0000020 020 I n t e r p r e t e d C o d 0000040 e 022 \0 017 023 023 001 \a \0 003 037 \b \0 001 ( 001 0000060 $ \0 025 * \a \0 022 001 \a 002 017 024 024 001 \a 0000100 001 002 037 \a \0 003 032 \0 024 \n 023 021 003 ( x 0000120 ) \0 \a \0 021 002 ( ) \0 \n # 001 006 003 \t p 0000140 o s i t i v e ? 001 > 001 x 021 020 I 0000160 n t e r p r e t e d C o d e 022 0000200 \0 017 023 023 001 \a \0 003 037 \b \0 001 ( 001 $ \0 0000220 025 * \a \0 022 001 \a 002 017 024 024 001 \a 001 002 0000240 037 \a \0 003 032 \0 024 \n 023 021 003 ( x ) \0 0000260 \a \0 021 002 ( ) \0 \n # 001 006 003 \t n e g 0000300 a t i v e ? 001 < 001 x 021 020 I n t 0000320 e r p r e t e d C o d e 022 \0 017 0000340 023 023 001 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * 0000360 \a \0 022 001 \a 002 017 024 024 001 \a 001 002 037 \a 0000400 \0 003 032 \0 024 \n 023 021 003 ( x ) \0 \a \0 0000420 021 002 ( ) \0 \n # 001 006 \b 003 m a x 005 a 0000440 p p l y 003 c d r 003 c a r 001 < 001 x 0000460 005 p a i r ? 004 r e s t 021 020 I n 0000500 t e r p r e t e d C o d e 022 \0 0000520 017 023 023 001 \a \0 003 037 \b \0 001 ( 001 $ \0 025 0000540 * \a \0 022 002 \a 005 \a \a 016 024 024 004 \b \a 0000560 006 \a 004 \a 003 \a 001 \a \0 \a 001 \a \0 \a 002 001 0000600 037 ' \0 005 032 001 003 022 $ 033 \0 034 001 0000620 003 004 022 030 035 036 004 001 \n 036 005 036 006 \0 0000640 036 \a 001 003 \v \0 * 021 030 ( x . 0000660 r e s t ) N - a r y m a x i 0000700 m u m \0 \a \0 021 002 ( ) \0 \n # 001 006 \b 0000720 003 m i n 005 a p p l y 003 c d r 003 c 0000740 a r 001 > 001 x 005 p a i r ? 004 r e s 0000760 t 021 020 I n t e r p r e t e d 0001000 C o d e 022 \0 017 023 023 001 \a \0 003 037 \b \0 0001020 001 ( 001 $ \0 025 * \a \0 022 002 \a 005 \a \a 0001040 016 024 024 004 \b \a 006 \a 004 \a 003 \a 001 \a \0 \a 0001060 001 \a \0 \a 002 001 037 ' \0 005 032 001 003 022 $ 0001100 033 \0 034 001 003 004 022 030 035 036 004 001 \n 0001120 036 005 036 006 \0 036 \a 001 003 \v \0 * 021 0001140 030 ( x . r e s t ) N - a r 0001160 y m i n i m u m \0 \a \0 021 002 ( ) 0001200 \0 \n # 001 006 \n 003 a b s \t i m a g - 0001220 p a r t \t r e a l - p a r t 001 * 0001240 001 + 004 s q r t 001 - \t n e g a t i 0001260 v e ? 005 r e a l ? 001 z 021 020 I n 0001300 t e r p r e t e d C o d e 022 \0 0001320 017 023 023 001 \a \0 003 037 \b \0 001 ( 001 $ \0 025 0001340 * \a \0 022 001 \a \t 017 024 024 004 \v \a \b \a 0001360 \a \a 006 \a 005 \a 004 \a 003 \a 002 \a 002 \a 003 \a 0001400 001 \a 001 001 037 4 \0 \a 032 \0 003 022 025 033 0001420 \0 003 022 022 034 \0 \t \0 * 035 036 004 036 005 0001440 036 006 \0 003 036 \a \0 003 004 036 \b 036 \t 0001460 \0 003 036 \n \0 003 004 004 \t 021 022 ( z ) 0001500 A b s o l u t e v a l u e \0 \a 0001520 \0 021 002 ( ) \0 \n # 001 006 \t 006 m o d u 0001540 l o \t n e g a t i v e ? 006 a d j 0001560 u s t 001 y 001 x \t r e m a i n d e 0001600 r 001 + 003 e q ? 001 q 021 020 I n t e 0001620 r p r e t e d C o d e 022 \0 017 023 0001640 023 001 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * 0001660 \a \0 022 003 \a 004 \a 003 \a 002 017 027 002 027 002 001 0001700 \a 005 003 037 026 \0 004 024 & \0 002 ( 002 & \0 002 0001720 002 032 \0 001 004 001 \n 017 \a 002 022 0001740 002 \a \b \a 003 017 027 002 027 002 004 004 \a \a \a 001 0001760 \a 001 \a 006 001 037 027 \0 004 032 033 \0 003 034 0002000 001 003 004 022 021 \0 * 035 \0 001 \n 021 005 0002020 ( q y ) \0 021 * ( x y ) r e 0002040 m a i n d e r w i t h s i g 0002060 n m a t c h i n g d i v i s 0002100 o r \0 \a \0 021 002 ( ) \0 \n # 001 006 \r 003 0002120 c a r 003 l c m 005 n u l l ? \b l c 0002140 m - l i s t 003 c d r 004 c a d r 003 0002160 g c d 001 * 003 a b s 001 / 004 c d d r 0002200 004 r e s t 003 l s t 021 020 I n t e 0002220 r p r e t e d C o d e 022 \0 017 023 0002240 023 001 \a 001 003 037 \b \0 001 ( 001 $ \0 025 * 0002260 \a 001 022 002 \a \v \a 003 016 023 023 \0 003 037 020 \0 0002300 002 024 & \0 001 ( 002 & \0 001 001 \0 \t 017 0002320 \a 003 022 001 \a \f 017 024 024 004 021 \a 002 \a 002 0002340 \a 004 \a \0 \a 002 \a \n \a \t \a \b \a \a \a \0 0002360 \a 005 \a 006 \a \0 \a 005 \a 001 \a \0 \a 004 002 037 0002400 Q \0 006 032 \0 003 022 \n 024 * 033 034 \0 003 0002420 003 022 026 035 \0 \t 036 004 036 005 \0 003 003 022 0002440 @ 036 006 036 \a 036 \b 036 \t \0 003 036 \n \0 0002460 003 004 003 036 \v 036 \f \0 003 036 \r \0 003 004 0002500 \n 036 016 036 017 \0 003 ! 001 001 036 020 \0 003 0002520 003 \n 024 021 005 ( l s t ) \0 021 032 r e s 0002540 t l e a s t c o m m o n m 0002560 u l t i p l e \0 \a 001 021 002 ( ) \0 \n 0002600 # 001 006 006 005 f l o o r \b t r u n c 0002620 a t e 001 - \b i n t e g e r ? \t n 0002640 e g a t i v e ? 001 x 021 020 I n t 0002660 e r p r e t e d C o d e 022 \0 017 0002700 023 023 001 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * 0002720 \a \0 022 001 \a 005 017 024 024 004 005 \a 004 \a 003 0002740 \a 002 \a 001 \a 001 002 037 035 \0 003 032 \0 003 022 0002760 030 033 \0 003 022 021 \0 * 034 035 \0 003 024 0003000 \n 036 004 \0 \t 024 021 $ ( x ) g r e 0003020 a t e s t i n t e g e r n o 0003040 t e x c e e d i n g x \0 \a \0 0003060 021 002 ( ) \0 \n # 001 006 006 \a c e i l i 0003100 n g \b t r u n c a t e \t n e g a 0003120 t i v e ? 001 + \b i n t e g e r ? 0003140 001 x 021 020 I n t e r p r e t e d 0003160 C o d e 022 \0 017 023 023 001 \a \0 003 037 \b 0003200 \0 001 ( 001 $ \0 025 * \a \0 022 001 \a 005 017 0003220 024 024 004 005 \a 002 \a 001 \a 004 \a 003 \a 001 002 037 0003240 035 \0 003 032 \0 003 022 \f 033 \0 \t 034 \0 0003260 003 022 025 \0 * 035 036 004 \0 003 024 \n 024 021 0003300 $ ( x ) s m a l l e s t i n 0003320 t e g e r n o t l e s s t 0003340 h a n x \0 \a \0 021 002 ( ) \0 \n # 001 0003360 006 037 001 - 001 + 001 x \v r a t i o n a 0003400 l i z e 016 i n e x a c t - > e x 0003420 a c t 004 l o o p 001 k 003 e p s 004 r 0003440 a t x 004 r a t 2 004 r a t 1 \b t r 0003460 u n c a t e 001 > 001 * 001 / 003 i n v 0003500 001 a 002 q 2 003 a b s 016 e x a c t - 0003520 > i n e x a c t 006 e x a c t ? 001 0003540 = 002 p 2 002 q 1 002 p 1 001 s 005 n u l 0003560 l ? 004 e p s l \t n e g a t i v e 0003600 ? \t r a t i o n a l ? 003 c a r 0003620 021 020 I n t e r p r e t e d C o 0003640 d e 022 \0 017 023 023 001 \a 003 003 037 \b \0 001 ( 0003660 001 $ \0 025 * \a 003 022 005 \a 002 \a 033 \a \n 0003700 \a \t \a \b 016 024 024 002 \a 032 \a 036 004 \a 037 1 0003720 \0 004 024 & \0 002 025 & \0 003 026 & \0 004 ( 004 0003740 & \0 002 ( 005 & \0 003 ( 006 & \0 004 032 001 0003760 003 022 ( 002 \0 \t 004 \0 033 001 003 0004000 \n 017 017 017 \a \n 022 001 \a 002 017 024 024 003 \a 0004020 035 \a 001 \a 004 002 037 022 \0 003 032 \0 003 022 \v 0004040 \0 * 033 034 \0 003 024 \n 023 021 003 ( x ) 0004060 \0 \a \t 022 004 \a 002 \a \a \a 006 \a 005 017 027 0004100 002 027 002 004 \t \a 034 \a \0 \a \0 \a 025 \a \f \a 0004120 004 \a \v \a 001 \a \0 004 \n 037 Y \0 006 032 \0 0004140 003 022 024 033 ! 001 003 034 \0 003 001 004 \t 035 0004160 \0 024 004 022 035 025 * 036 004 \0 026 004 022 B 0004200 036 005 036 006 \0 003 003 & \0 002 036 \a 002 ! 0004220 001 003 036 \b \0 002 004 001 004 \n 027 & \0 0004240 003 ( 005 & \0 003 003 \0 030 006 030 \a 030 \b 0004260 030 \t \f 005 024 024 024 017 \a 005 022 \b \a 031 \a 0004300 030 \a 027 \a 026 \a 021 \a 020 \a 017 \a 006 017 027 005 0004320 027 005 004 \f \a 016 \a \f \a 022 \a \0 \a 016 \a 004 0004340 \a \v \a \0 \a 001 \a \r \a 001 \a \r 001 037 Y \0 0004360 \t 032 003 004 004 & \0 005 033 034 035 ! 001 \0 0004400 005 004 003 ! 001 001 004 022 V 036 004 \0 003 & 0004420 \0 006 036 005 036 006 006 003 003 & \0 \a ! 001 003 0004440 036 \a 006 \a 004 003 004 036 \b 036 \t 0004460 \a 003 004 001 004 036 \n 036 \v \a 004 004 0004500 002 004 \f 005 005 * 021 017 ( s p 1 0004520 q 1 p 2 q 2 ) \0 024 023 023 024 021 \a 0004540 ( x e p s ) \0 \a \b 022 002 \a 002 \a 0004560 \a 017 027 002 027 002 002 \a 024 \a 023 001 037 032 \0 004 0004600 032 \0 003 022 020 ! 001 003 \0 001 \n 033 ! 0004620 001 003 \0 001 004 \t 021 \a ( x e p s 0004640 ) \0 021 * ( x . e p s l ) o 0004660 n e o r t w o a r g u m e 0004700 n t r a t i o n a l i z e \0 \a 0004720 003 021 002 ( ) \0 \n # 001 006 \a 003 e x p \f 0004740 r e a l - f n s - e x p \n m a k 0004760 e - p o l a r \t i m a g - p a r 0005000 t \t r e a l - p a r t 005 r e a l 0005020 ? 001 z 021 020 I n t e r p r e t e 0005040 d C o d e 022 \0 017 023 023 001 \a \0 003 037 0005060 \b \0 001 ( 001 $ \0 025 * \a \0 022 001 \a 006 0005100 017 024 024 004 006 \a 005 \a 001 \a 002 \a 001 \a 004 \a 0005120 003 001 037 032 \0 004 032 \0 003 022 \f 033 \0 \t 0005140 034 035 036 004 \0 003 003 036 005 \0 003 \n 021 030 0005160 ( z ) e x p o n e n t i a l 0005200 f u n c t i o n \0 \a \0 021 002 ( ) \0 0005220 \n # 001 006 \b 003 l o g \f r e a l - f 0005240 n s - l o g 020 m a k e - r e c t 0005260 a n g u l a r 005 a n g l e \t m a 0005300 g n i t u d e 001 z 002 > = 005 r e a 0005320 l ? 021 020 I n t e r p r e t e d 0005340 C o d e 022 \0 017 023 023 001 \a \0 003 037 \b 0005360 \0 001 ( 001 $ \0 025 * \a \0 022 001 \a 005 017 0005400 024 024 004 \a \a \a \a 006 \a 001 \a 002 \a 001 \a 004 0005420 \a 003 003 037 % \0 004 032 \0 003 022 017 033 \0 0005440 024 004 016 020 025 022 026 034 \0 \t 035 036 004 036 005 0005460 \0 003 003 036 006 \0 003 \n 023 017 021 025 ( z 0005500 ) n a t u r a l l o g a r i 0005520 t h m \0 \a \0 021 002 ( ) \0 \n # 001 006 \b 0005540 003 s i n 001 * 003 e x p 001 - 001 / 001 z 0005560 \f r e a l - f n s - s i n 005 r e 0005600 a l ? 021 020 I n t e r p r e t e 0005620 d C o d e 022 \0 017 023 023 001 \a \0 003 037 0005640 \b \0 001 ( 001 $ \0 025 * \a \0 022 001 \a 005 0005660 017 024 024 004 \b \a \a \a 006 \a 004 \a 003 \a 002 \a 0005700 001 \a 002 \a 001 004 004 037 # \0 \a 032 \0 003 022 0005720 \f 033 \0 \t 034 035 036 004 036 005 \0 024 004 003 0005740 036 006 036 \a \0 025 004 003 004 026 \n 035 027 \0 027 0005760 001 035 027 \0 026 001 035 027 \0 027 002 021 021 ( z ) 0006000 s i n e f u n c t i o n \0 \a 0006020 \0 021 002 ( ) \0 \n # 001 006 \b 003 c o s 001 0006040 * 003 e x p 001 + 001 / 001 z \f r e a l 0006060 - f n s - c o s 005 r e a l ? 021 0006100 020 I n t e r p r e t e d C o d 0006120 e 022 \0 017 023 023 001 \a \0 003 037 \b \0 001 ( 001 0006140 $ \0 025 * \a \0 022 001 \a 005 017 024 024 004 \b 0006160 \a \a \a 006 \a 004 \a 003 \a 002 \a 001 \a 002 \a 001 0006200 004 004 037 # \0 \a 032 \0 003 022 \f 033 \0 \t 0006220 034 035 036 004 036 005 \0 024 004 003 036 006 036 \a 0006240 \0 025 004 003 004 026 \n 035 027 \0 027 001 035 027 \0 026 0006260 001 027 002 021 023 ( z ) c o s i n e 0006300 f u n c t i o n \0 \a \0 021 002 ( ) \0 0006320 \n # 001 006 \a 003 t a n 005 r e a l ? 001 0006340 z 003 c o s 003 s i n 001 / \f r e a l 0006360 - f n s - t a n 021 020 I n t e r 0006400 p r e t e d C o d e 022 \0 017 023 023 0006420 001 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * \a 0006440 \0 022 001 \a 002 017 024 024 004 005 \a 001 \a 006 \a 005 0006460 \a 004 \a 003 001 037 027 \0 004 032 \0 003 022 \f 033 0006500 \0 \t 034 035 \0 003 036 004 \0 003 \n 021 024 0006520 ( z ) t a n g e n t f u n c 0006540 t i o n \0 \a \0 021 002 ( ) \0 \n # 001 006 0006560 \a 001 * 004 a s i n 001 z 001 - 004 s q r 0006600 t 001 + 003 l o g 021 020 I n t e r p 0006620 r e t e d C o d e 022 \0 017 023 023 001 0006640 \a 001 003 037 \b \0 001 ( 001 $ \0 025 * \a 001 0006660 022 001 \a 002 017 024 024 004 \a \a \0 \a 006 \a 005 \a 0006700 \0 \a 004 \a 003 \a \0 004 004 037 034 \0 \v 032 024 033 0006720 034 035 025 \0 004 036 004 036 005 026 036 006 \0 0006740 \0 004 004 003 004 003 \n 035 027 \0 026 001 035 027 \0 027 0006760 001 024 021 \f ( z ) a r c - s i n e 0007000 \0 \a 001 021 002 ( ) \0 \n # 001 006 \a 001 * 004 0007020 a c o s 001 z 001 - 004 s q r t 001 + 003 0007040 l o g 021 020 I n t e r p r e t e 0007060 d C o d e 022 \0 017 023 023 001 \a 001 003 037 0007100 \b \0 001 ( 001 $ \0 025 * \a 001 022 001 \a 002 0007120 017 024 024 004 \b \a \0 \a 006 \a 005 \a \0 \a \0 \a 0007140 004 \a 003 \a \0 004 005 037 \0 \r 032 024 033 034 035 0007160 025 \0 004 036 004 026 036 005 036 006 027 036 \a \0 0007200 \0 004 004 003 004 004 003 \n 035 027 \0 026 001 035 027 0007220 \0 027 001 035 027 \0 027 001 024 021 016 ( z ) a 0007240 r c - c o s i n e \0 \a 001 021 002 ( ) 0007260 \0 \n # 001 006 016 001 * 004 a t a n \r r e 0007300 a l - f n s - a t a n 005 n u l l 0007320 ? 001 + 004 s q r t 003 l o g 005 e r r 0007340 o r 003 c a r 003 c d r 001 / 001 d 005 r 0007360 e a l ? 001 z 021 020 I n t e r p r 0007400 e t e d C o d e 022 \0 017 023 023 001 \a 0007420 001 003 037 \b \0 001 ( 001 $ \0 025 * \a 001 022 0007440 002 \a \r \a \v 016 024 024 004 021 \a 003 \a \f \a 002 0007460 \a \0 \a 006 \a \0 \a 004 \a \0 \a 005 \a \n \a 004 0007500 \a \0 \a 003 \a \t \a 002 \a \b \a \a 004 \b 037 U 0007520 \0 \r 032 001 003 022 8 033 \0 003 022 022 034 0007540 \0 \t 035 024 036 004 036 005 036 006 025 036 \a 026 \0 0007560 004 004 036 \b 036 \t 027 036 \n 030 005 036 \v \0 0007600 \0 004 004 004 003 004 003 \n 036 \f 036 \r 001 003 003 0007620 022 L 036 016 \0 036 017 001 003 \n 036 020 030 006 0007640 001 030 \a \v 035 027 \0 026 001 024 035 027 \0 027 001 0007660 024 024 \a 001 021 022 t o o m a n y a 0007700 r g u m e n t s 021 * ( z . d 0007720 ) a r c - t a n g e n t ( o 0007740 n e o r t w o a r g u m e 0007760 n t s ) \0 \a 001 021 002 ( ) \0 \n # 001 006 0010000 \r 004 s q r t 005 r e a l ? 001 r 004 r 0010020 o o t 001 z 001 * 001 = 016 i n e x a c 0010040 t - > e x a c t 006 e x a c t ? 003 0010060 l o g 001 / 003 e x p \r r e a l - f 0010100 n s - s q r t 021 020 I n t e r p 0010120 r e t e d C o d e 022 \0 017 023 023 001 0010140 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * \a \0 0010160 022 003 \a 004 \a 003 \a 002 017 024 024 004 \t \a 001 \a 0010200 \f \a \v \a \n \a \t \a \b \a \a \a 006 \a 005 002 0010220 037 A \0 005 032 \0 003 022 016 033 \0 003 016 030 0010240 034 035 036 004 \0 003 024 004 003 & \0 001 036 005 0010260 \0 003 022 > 036 006 001 003 & \0 002 036 \a \0 0010300 036 \b 002 002 004 004 022 ; 002 * 001 * 0010320 001 * 027 002 021 017 ( z ) s q u a r 0010340 e r o o t \0 \a \0 021 002 ( ) \0 \n # 0010360 001 006 023 001 * \f i n t e g e r - e x 0010400 p t 004 e x p t \b e x p o n e n t 0010420 004 b a s e 005 z e r o ? 005 r e a l 0010440 ? 001 - \t p o s i t i v e ? 001 / \b 0010460 i n t e g e r ? 001 + 003 l o g 003 e 0010500 x p \r r e a l - f n s - e x p t 0010520 005 e r r o r \b q u o t i e n t 004 0010540 o d d ? 001 b 021 020 I n t e r p r 0010560 e t e d C o d e 022 \0 017 023 023 001 \a 0010600 002 003 037 \b \0 001 ( 001 $ \0 025 * \a 002 022 0010620 003 \a 004 \a 003 \a 001 017 027 002 027 002 004 \f \a 005 0010640 \a \v \a \n \a \b \a \t \a \a \a 006 \a 006 \a 016 0010660 \a \r \a \0 \a \f 004 \a 037 _ \0 \a 024 & \0 002 0010700 ( 002 & \0 002 032 001 003 022 026 033 026 001 \n 0010720 034 001 003 022 9 035 001 003 022 ) 002 \0 0010740 001 \n 036 004 027 002 \0 036 005 030 005 001 0010760 004 004 \n 036 006 001 003 022 G 036 \a \0 003 016 0011000 I 030 006 022 R 036 \b \0 001 \n 036 \t 036 \n 0011020 001 036 \v \0 003 004 \t 017 \a 001 022 003 \a 0011040 004 \a 003 \a 022 017 027 002 027 002 004 \b \a \b \a 021 0011060 \a \0 \a \a \a 020 \a \0 \a 005 \a 017 004 006 037 D 0011100 \0 \a 032 001 003 022 3 033 001 003 022 035 034 0011120 \0 ! 001 002 \0 035 001 024 004 004 \n ! 001 002 0011140 \0 036 004 001 025 004 004 & \0 002 036 005 002 0011160 002 \n 036 006 001 003 022 < 026 * 036 \a 027 0011200 001 030 005 \v 024 027 002 024 \a 001 021 032 n o t 0011220 a n o n - n e g a t i v e i 0011240 n t e g e r 021 @ ( b a s e e x 0011260 p o n e n t ) e x p o n e n t 0011300 i a t i o n f o r n o n - n 0011320 e g a t i v e i n t e g e r 0011340 e x p o n e n t \0 024 024 023 017 021 036 ( 0011360 b a s e e x p o n e n t ) e 0011400 x p o n e n t i a t i o n \0 \a 002 0011420 021 002 ( ) \0 \n # 001 006 002 \t m a g n i 0011440 t u d e 003 a b s 021 020 I n t e r 0011460 p r e t e d C o d e 022 \0 017 023 023 0011500 002 \a 001 \a \0 002 037 \a \0 001 032 $ 001 024 * \a 0011520 \0 021 002 ( ) \0 \n # 001 006 \b 005 a n g l 0011540 e 001 z 003 n o t 005 r e a l ? \t r e 0011560 a l - p a r t \t i m a g - p a r 0011600 t \r r e a l - f n s - a t a n \t 0011620 n e g a t i v e ? 021 020 I n t e 0011640 r p r e t e d C o d e 022 \0 017 023 0011660 023 001 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * 0011700 \a \0 022 001 \a 001 017 024 024 004 006 \a 003 \a 002 \a 0011720 \a \a 006 \a 005 \a 004 003 037 ! \0 004 032 \0 003 0011740 022 020 033 034 \0 003 003 016 021 024 022 025 025 * 035 0011760 036 004 \0 003 036 005 \0 003 \n 017 023 021 ( 0012000 z ) a r g u m e n t o f a 0012020 c o m p l e x n u m b e r \0 0012040 \a \0 021 002 ( ) \0 \n 0012050