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