$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>CMLFLOATARRAY.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r ( F I L E C R E
0000120 A T E D " 9 - A p r - 8 7
0000140 1 6 : 3 3 : 3 3 " ( " c o m p
0000160 i l e d o n " { E R I S }
0000200 < L I S P C O R E > L I B R A R
0000220 Y > C M L F L O A T A R R A Y .
0000240 ; 6 ) \r " 7 - A p r - 8 7
0000260 1 6 : 0 3 : 2 3 " " C O M P I
0000300 L E - F I L E d " i n " "
0000320 d a t e d " 7 - A p r - 8 7
0000340 1 6 : 2 8 : 2 0 " ) \r ( F I L
0000360 E C R E A T E D " 9 - A p r
0000400 - 8 7 1 6 : 3 2 : 4 5 " { E
0000420 R I S } < L I S P C O R E > L I
0000440 B R A R Y > C M L F L O A T A R
0000460 R A Y . ; 6 4 3 5 5 7 c h a
0000500 n g e s t o % : ( V A R S
0000520 \r C M L F L O A T A R R A Y C O
0000540 M S ) ( F N S M A P - A R R
0000560 A Y ) ( F U N C T I O N S R
0000600 E D U C E - A R R A Y % % M A
0000620 P - F L O A T - A R R A Y - F L
0000640 O A T \r % % M A P - F L O A T
0000660 - A R R A Y - M I N U S % % M
0000700 A P - F L O A T - A R R A Y - P
0000720 L U S % % M A P - F L O A T -
0000740 A R R A Y - Q U O T I E N T %
0000760 % M A P - F L O A T - A R R A Y
0001000 - T I M E S \r M A P - A R R A
0001020 Y - 1 M A P - A R R A Y - 2
0001040 % % M A P - F L O A T - A R R A
0001060 Y - A B S % % M A P - F L O A
0001100 T - A R R A Y - N E G A T E %
0001120 % M A P - F L O A T - A R R A Y
0001140 - T R U N C A T E \r % % R E D
0001160 U C E - F L O A T - A R R A Y -
0001200 T I M E S E V A L U A T E - P
0001220 O L Y N O M I A L F I N D - A
0001240 R R A Y - E L E M E N T - I N D
0001260 E X F L A T T E N - A R G )
0001300 p r e v i o u s d a t e % :
0001320 \r " 9 - A p r - 8 7 1 4 : 5
0001340 0 : 2 6 " { E R I S } < L I S
0001360 P C O R E > L I B R A R Y > C M
0001400 L F L O A T A R R A Y . ; 5 ) \r
0001420 ( R P A Q Q C M L F L O A T A
0001440 R R A Y C O M S ( ( D E C L A
0001460 R E % : D O N T C O P Y D O
0001500 E V A L @ C O M P I L E ( F I
0001520 L E S ( S Y S L O A D F R O
0001540 M V A L U E O F D I R E C T
0001560 O R I E S ) \r U N B O X E D O
0001600 P S F L O A T - A R R A Y - S
0001620 U P P O R T ) ) ( * ; ; "
0001640 M A P A R R A Y f n s a n d
0001660 m a c r o s " ) ( F N S M
0001700 A P - A R R A Y ) ( F U N C T
0001720 I O N S \r M A P - A R R A Y -
0001740 1 M A P - A R R A Y - 2 ) (
0001760 F U N C T I O N S R E D U C E
0002000 - A R R A Y E V A L U A T E -
0002020 P O L Y N O M I A L F I N D -
0002040 A R R A Y - E L E M E N T - I N
0002060 D E X ) ( \r F U N C T I O N S
0002100 F L A T T E N - A R G M A X
0002120 - A B S M I N - A B S ) ( F
0002140 U N C T I O N S % % M A P - F
0002160 L O A T - A R R A Y - A B S %
0002200 % M A P - F L O A T - A R R A Y
0002220 - F L O A T \r % % M A P - F L
0002240 O A T - A R R A Y - M I N U S
0002260 % % M A P - F L O A T - A R R A
0002300 Y - N E G A T E % % M A P - F
0002320 L O A T - A R R A Y - P L U S
0002340 % % M A P - F L O A T - A R R A
0002360 Y - Q U O T I E N T \r % % M A
0002400 P - F L O A T - A R R A Y - T I
0002420 M E S % % M A P - F L O A T -
0002440 A R R A Y - T R U N C A T E %
0002460 % R E D U C E - F L O A T - A R
0002500 R A Y - M A X \r % % R E D U C
0002520 E - F L O A T - A R R A Y - M A
0002540 X - A B S % % R E D U C E - F
0002560 L O A T - A R R A Y - M I N %
0002600 % R E D U C E - F L O A T - A R
0002620 R A Y - M I N - A B S \r % % R
0002640 E D U C E - F L O A T - A R R A
0002660 Y - P L U S % % R E D U C E -
0002700 F L O A T - A R R A Y - T I M E
0002720 S ) ( * ; ; " F o r c o
0002740 n v e n i e n c e " ) ( P R O
0002760 P F I L E T Y P E \r C M L F
0003000 L O A T A R R A Y ) ( D E C L
0003020 A R E % : D O N T E V A L @ L
0003040 O A D D O E V A L @ C O M P I
0003060 L E D O N T C O P Y ( L O C
0003100 A L V A R S . T ) ) ( D E
0003120 C L A R E % : \r D O N T E V A
0003140 L @ L O A D D O E V A L @ C O
0003160 M P I L E D O N T C O P Y C
0003200 O M P I L E R V A R S ( A D D
0003220 V A R S ( N L A M A ) ( N L
0003240 A M L ) ( L A M A M A P - A
0003260 R R A Y ) ) ) ) ) \r M A P - A R
0003300 R A Y : D 4 \r ( L ( 0 A R
0003320 G S ) ) 002 " & \0 002 \0 e 021 001 \0 l
0003340 003 H 363 227 o \0 \0 \0 \t \0 \0 277 k a l 002
0003360 a l 003 a 021 363 022 021 @ 026 J \t \0 \0 250 o
0003400 \0 \0 \0 J \n \0 \0 277 l 003 h 276 ] d H 363
0003420 262 $ 277 I _ 016 d \t \0 \0 262 : 277 I L \n
0003440 \0 \0 263 V L 247 I \t \0 \0 j 360 263 L o \0
0003460 \0 \0 260 A a ^ \t \0 \0 262 026 L 236 N L \n
0003500 \0 \0 253 o \0 \0 \0 N \n \0 \0 201 N \ 277 M
0003520 k 324 260 272 303 \0 \0 245 O 016 303 \0 \0 236 L d
0003540 222 \t \0 \0 g \0 \0 I \v \0 \0 Y 211 I 230 o
0003560 \0 \0 \0 I \n \0 \0 277 L 242 261 \0 343 I 264 5
0003600 l 005 H 363 262 . H _ 020 d l 003 360 227 277 I
0003620 J K \v \0 \0 020 l 004 360 264 \f I J K l 004
0003640 a \f \0 \0 020 g \0 \0 O 020 o \0 \0 \0 \f \0
0003660 \0 020 I \t \0 \0 _ 022 277 I \t \0 \0 _ 024 277
0003700 H l 003 021 2 033 O 0 d O . 363 262 277 O
0003720 2 022 _ 026 \t \0 \0 _ 030 277 O 024 j _ 036 277
0003740 _ 034 277 O 034 O 036 363 263 ) I 020 a \t \0 \0
0003760 _ 6 277 O 4 265 023 O 6 h 032 _ 4 _ 2 277
0004000 O 0 k 324 _ 0 260 302 O 6 h 032 _ 4 031 260
0004020 360 J O 030 O 026 _ " 277 _ 277 O " 265 (
0004040 O 030 \n \0 \0 _ 032 277 I 262 024 O 022 _ & 277
0004060 O 036 _ $ 277 O 032 O & O $ 267 277 O 036 k
0004100 324 _ 036 277 260 237 001 \t \0 \0 231 O O " 001
0004120 O 036 266 030 277 O 002 O " 002 260 273 I 265 036
0004140 J j _ , 277 _ * 277 H l 003 021 2 O :
0004160 d O 8 363 262 H 277 O < 022 260 z _ ( 277 J
0004200 H l 003 021 2 % O D d O B 363 234 277 O F
0004220 022 \n \0 \0 O ( \n \0 \0 020 a _ J 277 O H
0004240 265 023 O J h 032 _ H _ F 277 O D k 324 _
0004260 D 260 327 O J h 032 _ H 031 260 360 a _ @ 277
0004300 O > 265 023 O @ h 032 _ > _ < 277 O : k
0004320 324 _ : 260 235 O @ h 032 _ > 031 260 360 d 001
0004340 375 002 n 002 \0 O , k 330 _ , 361 246 h l 4
0004360 \n \0 \0 277 265 352 O , O * 016 020 \0 ( 5 3
0004400 5 \ L I S P E R R O R 4 4 5
0004420 A S E T 4 4 0 C L : A P P
0004440 L Y 3 6 6 C L : A R R A Y P
0004460 3 2 9 C L : A P P L Y 2 7
0004500 6 F L A T T E N - A R G 2 5
0004520 1 C L : C O P Y - L I S T 2
0004540 2 5 C L : A R R A Y - T O T A
0004560 L - S I Z E 2 1 8 F L A T T
0004600 E N - A R G 2 1 3 E C A S E
0004620 - F A I L 2 0 0 M A P - A R
0004640 R A Y - 2 1 8 5 M A P - A R
0004660 R A Y - 1 1 5 5 C L : E R R
0004700 O R 1 4 3 C L : M A K E - A
0004720 R R A Y 1 3 6 C L : A R R A
0004740 Y - D I M E N S I O N S 1 1 1
0004760 C L : E R R O R 1 0 2 E Q
0005000 U A L - D I M E N S I O N S - P
0005020 9 3 C L : A R R A Y P 7 8
0005040 C L : A R R A Y - R A N K 7
0005060 0 E Q U A L - D I M E N S I O
0005100 N S - P 6 2 C L : A R R A Y
0005120 P 4 3 C L : E R R O R 3 4
0005140 C L : F U N C T I O N P 1 5
0005160 C L : E R R O R ) \r ( 2 0 4
0005200 A R G S 1 3 9 : E L E M E N
0005220 T - T Y P E 1 2 9 L I S T P
0005240 1 2 3 L I T A T O M ) \r (
0005260 2 1 0 ( 3 4 ) 1 5 1 " R
0005300 E S U L T m u s t b e a n
0005320 a r r a y , a n e l e m e
0005340 n t t y p e , o r N I L :
0005360 ~ S " 1 0 7 " D i m e n s
0005400 i o n s m i s m a t c h " 8
0005420 6 " D i m e n s i o n s m i
0005440 s m a t c h : ~ S " \r 3 9
0005460 " N o t a f u n c t i o n :
0005500 ~ S " 1 2 " M A P A R R A
0005520 Y t a k e s a t l e a s t
0005540 t h r e e a r g s " ) \r M A
0005560 P - A R R A Y - 1 : D 4 \r ( L
0005600 ( 2 A R R A Y 1 M A P F
0005620 N 0 R E S U L T ) ) \0 356 \b
0005640 \0 \0 003 @ \t \0 \0 g \0 \0 360 B \t \0 \0 g
0005660 \0 \0 360 021 b \a A d 303 \0 \0 262 033 277 A d
0005700 g \0 \0 360 225 277 g \0 \0 260 W g \0 \0 360 262
0005720 P g \0 \0 260 L 303 \0 \0 262 F A g \0 \0 \n
0005740 \0 \0 251 A d g \0 \0 \n \0 \0 225 277 g \0 \0
0005760 260 0 g \0 \0 \n \0 \0 224 g \0 \0 260 $ A g
0006000 \0 \0 \n \0 \0 251 A d g \0 \0 \n \0 \0 224 277
0006020 g \0 \0 213 g \0 \0 \n \0 \0 223 g \0 \0 200 A
0006040 b 002 d d g \0 \0 360 233 277 H 227 I 225 @ B
0006060 \n \0 \0 020 A g \0 \0 360 231 H 227 I 225 @ B
0006100 \n \0 \0 020 A d g \0 \0 360 231 277 I 225 @ B
0006120 \n \0 \0 020 A g \0 \0 360 227 H 225 @ B \n \0
0006140 \0 020 @ \t \0 \0 B \t \0 \0 273 272 @ \t \0 \0
0006160 j 275 274 L M 363 241 @ 020 J _ 016 277 M 276 K
0006200 M 266 k A 016 O 016 N 267 277 M k 324 275 260 345
0006220 \0 ( 2 0 4 C L : A R R A Y - T
0006240 O T A L - S I Z E 1 9 8 F L
0006260 A T T E N - A R G 1 9 4 F L
0006300 A T T E N - A R G 1 8 9 % %
0006320 M A P - F L O A T - A R R A Y -
0006340 F L O A T 1 7 5 % % M A P -
0006360 F L O A T - A R R A Y - T R U N
0006400 C A T E 1 5 9 % % M A P - F
0006420 L O A T - A R R A Y - A B S 1
0006440 4 3 % % M A P - F L O A T - A
0006460 R R A Y - N E G A T E 1 1 8
0006500 C L : : % % E Q C O D E P 1 0
0006520 6 C L : : % % E Q C O D E P
0006540 9 7 C L : : % % E Q C O D E P
0006560 8 4 C L : : % % E Q C O D E
0006600 P 7 1 C L : : % % E Q C O D
0006620 E P 6 2 C L : : % % E Q C O
0006640 D E P 1 1 C L : A R R A Y -
0006660 E L E M E N T - T Y P E 3 C
0006700 L : A R R A Y - E L E M E N T -
0006720 T Y P E ) \r ( 1 8 0 F L O A T
0006740 1 6 5 C L : T R U N C A T E
0006760 1 4 8 A B S 1 3 1 - 1
0007000 2 2 F L O A T 1 1 5 F L O
0007020 A T 1 1 1 C L : T R U N C A
0007040 T E 1 0 3 C L : T R U N C A
0007060 T E 9 4 F I X 8 8 A B S
0007100 8 1 A B S 7 6 - 6 8
0007120 M I N U S 5 9 - 5 3 C O
0007140 M P I L E D - C L O S U R E 4
0007160 8 C L : T R U N C A T E 4 2
0007200 F I X 3 7 - 3 1 M I N
0007220 U S 2 3 L I T A T O M 1 4
0007240 C L : S I N G L E - F L O A T
0007260 6 C L : S I N G L E - F L O
0007300 A T ) \r ( ) \r M A P - A R R A Y
0007320 - 2 : D 4 \r ( L ( 3 A R R
0007340 A Y - 2 2 A R R A Y - 1 1
0007360 M A P F N 0 R E S U L T )
0007400 ) 001 324 020 \0 \0 004 @ \t \0 \0 g \0 \0 360
0007420 264 L B 021 001 \0 H \t \0 \0 264 \n H \t \0 \0
0007440 g \0 \0 360 022 256 B 303 \0 \0 251 B 303 \0 \0 244
0007460 B 3 264 ) C 021 001 \0 H \t \0 \0 264 \n H
0007500 \t \0 \0 g \0 \0 360 022 265 024 C 303 \0 \0 265 016
0007520 C 303 \0 \0 265 \b C 3 264 003 i 021 301 \f A
0007540 d 303 \0 \0 262 3 277 A d g \0 \0 360 226 277 g
0007560 \0 \0 261 \0 203 g \0 \0 360 224 g \0 \0 260 x A
0007600 d g \0 \0 360 225 277 g \0 \0 260 k g \0 \0 360
0007620 262 d g \0 \0 260 ` 303 \0 \0 262 Z A g \0 \0
0007640 \n \0 \0 251 A d g \0 \0 \n \0 \0 225 277 g \0
0007660 \0 260 D g \0 \0 \n \0 \0 251 A d g \0 \0 \n
0007700 \0 \0 225 277 g \0 \0 260 . g \0 \0 \n \0 \0 251
0007720 A d g \0 \0 \n \0 \0 225 277 g \0 \0 260 030 g
0007740 \0 \0 \n \0 \0 251 A d g \0 \0 \n \0 \0 225 277
0007760 g \0 \0 200 A b 002 d d g \0 \0 360 232 277 H
0010000 226 @ B C \v \0 \0 020 A g \0 \0 360 230 H 226
0010020 @ B C \v \0 \0 020 A d g \0 \0 360 232 277 H
0010040 226 @ B C \v \0 \0 020 A g \0 \0 360 230 H 226
0010060 @ B C \v \0 \0 020 @ \t \0 \0 B \t \0 \0 C
0010100 \t \0 \0 021 003 017 B \t \0 \0 262 [ C \t \0 \0
0010120 262 * @ \t \0 \0 j 272 271 I J 363 241 @ 020 O
0010140 032 274 J 273 O 034 J 266 O 036 J 266 l 002 A 016
0010160 L K 267 277 J k 324 272 260 341 @ \t \0 \0 j 276
0010200 275 M N 363 262 331 O 032 _ 020 277 N _ 016 277 O
0010220 034 N 266 O 036 l 002 A 016 O 020 O 016 267 277 N
0010240 k 324 276 260 336 @ \t \0 \0 j _ 024 277 _ 022 277
0010260 O 022 O 024 363 262 250 O 032 _ 030 277 O 024 _ 026
0010300 277 O 034 O 036 O 024 266 l 002 A 016 O 030 O 026
0010320 267 277 O 024 k 324 _ 024 277 260 327 \0 ( 4 1 6
0010340 C L : A R R A Y - T O T A L -
0010360 S I Z E 3 7 3 C L : A R R A
0010400 Y - T O T A L - S I Z E 3 3 3
0010420 C L : A R R A Y - T O T A L -
0010440 S I Z E 3 2 7 C L : A R R A
0010460 Y P 3 2 1 C L : A R R A Y P
0010500 3 1 4 F L A T T E N - A R G
0010520 3 1 0 F L A T T E N - A R G
0010540 3 0 6 F L A T T E N - A R G
0010560 3 0 1 % % M A P - F L O A T
0010600 - A R R A Y - Q U O T I E N T
0010620 2 8 6 % % M A P - F L O A T -
0010640 A R R A Y - T I M E S 2 6 9
0010660 % % M A P - F L O A T - A R R A
0010700 Y - M I N U S 2 5 4 % % M A
0010720 P - F L O A T - A R R A Y - P L
0010740 U S 2 2 9 C L : : % % E Q C
0010760 O D E P 2 2 0 C L : : % % E
0011000 Q C O D E P 2 0 7 C L : : %
0011020 % E Q C O D E P 1 9 8 C L :
0011040 : % % E Q C O D E P 1 8 5 C
0011060 L : : % % E Q C O D E P 1 7 6
0011100 C L : : % % E Q C O D E P 1
0011120 6 3 C L : : % % E Q C O D E P
0011140 1 5 4 C L : : % % E Q C O D
0011160 E P 5 8 C L : A R R A Y - E
0011200 L E M E N T - T Y P E 5 2 C
0011220 L : A R R A Y P 2 3 C L : A
0011240 R R A Y - E L E M E N T - T Y P
0011260 E 1 7 C L : A R R A Y P 3
0011300 C L : A R R A Y - E L E M E N
0011320 T - T Y P E ) \r ( 2 9 1 / 2
0011340 7 5 C L : * 2 5 9 - 2 4
0011360 3 + 2 3 4 / 2 2 6 Q U
0011400 O T I E N T 2 1 7 / 2 1 2
0011420 C L : * 2 0 4 T I M E S
0011440 1 9 5 C L : * 1 9 0 - 1
0011460 8 2 M I N U S 1 7 3 - 1
0011500 6 8 + 1 6 0 P L U S 1 5
0011520 1 + 1 4 5 C O M P I L E D
0011540 - C L O S U R E 1 4 0 / 1
0011560 3 4 Q U O T I E N T 1 2 9
0011600 C L : * 1 2 3 T I M E S 1
0011620 1 6 - 1 1 1 M I N U S 1
0011640 0 5 + 9 9 P L U S 9 1
0011660 L I T A T O M 7 5 R A T I O
0011700 6 9 F L O A T P 6 1 C L
0011720 : S I N G L E - F L O A T 3 8
0011740 R A T I O 3 3 F L O A T P
0011760 2 6 C L : S I N G L E - F L
0012000 O A T 6 C L : S I N G L E -
0012020 F L O A T ) \r ( ) \r R E D U C E
0012040 - A R R A Y : D 4 \r ( L ( 0
0012060 - a r g s - ) ) 001 u \n \0 002 \0
0012100 e 021 001 \0 k a 021 201 \t l 002 a 272 l 003 H
0012120 361 221 h 204 i 273 l 003 a 274 I d 303 \0 \0 262
0012140 033 277 I d g \0 \0 360 225 277 g \0 \0 260 t g
0012160 \0 \0 360 262 m g \0 \0 260 i 303 \0 \0 262 c I
0012200 g \0 \0 \n \0 \0 251 I d g \0 \0 \n \0 \0 225
0012220 277 g \0 \0 260 M g \0 \0 \n \0 \0 251 I d g
0012240 \0 \0 \n \0 \0 225 277 g \0 \0 260 7 g \0 \0 \n
0012260 \0 \0 224 g \0 \0 260 + I d g \0 \0 \n \0 \0
0012300 225 277 g \0 \0 260 034 g \0 \0 \n \0 \0 223 g \0
0012320 \0 216 I d g \0 \0 \n \0 \0 225 277 g \0 \0 200
0012340 I Y J d \t \0 \0 253 277 K 226 L J l 002 I
0012360 016 020 J 020 \t \0 \0 J \t \0 \0 g \0 \0 360 276
0012400 ] d j 360 230 277 K 221 L 020 j I 016 020 k 360
0012420 262 027 K 233 L J \t \0 \0 j 266 l 002 I 016 020
0012440 J \t \0 \0 j 266 020 I d g \0 \0 360 231 277 N
0012460 225 J L \n \0 \0 020 I g \0 \0 360 227 N 225 J
0012500 L \n \0 \0 020 I d g \0 \0 360 231 277 N 225 J
0012520 L \n \0 \0 020 I g \0 \0 360 227 N 225 J L \n
0012540 \0 \0 020 I d g \0 \0 360 231 277 N 225 J L \n
0012560 \0 \0 020 I g \0 \0 360 227 N 225 J L \n \0 \0
0012600 020 J \t \0 \0 _ 016 277 K 221 L 203 O 016 j 266
0012620 _ 020 277 K 221 j 200 k _ 022 M 360 222 O 020 020
0012640 O 020 O 016 O 022 266 l 002 I 016 _ 020 277 O 022
0012660 k 324 260 346 \0 ( 3 2 4 F L A T T E
0012700 N - A R G 3 1 9 % % R E D U
0012720 C E - F L O A T - A R R A Y - M
0012740 A X - A B S 3 0 5 % % R E D
0012760 U C E - F L O A T - A R R A Y -
0013000 M I N - A B S 2 8 9 % % R E
0013020 D U C E - F L O A T - A R R A Y
0013040 - M A X 2 7 5 % % R E D U C
0013060 E - F L O A T - A R R A Y - M I
0013100 N 2 5 9 % % R E D U C E - F
0013120 L O A T - A R R A Y - T I M E S
0013140 2 4 5 % % R E D U C E - F L
0013160 O A T - A R R A Y - P L U S 2
0013200 2 7 F L A T T E N - A R G 2
0013220 1 6 F L A T T E N - A R G 1
0013240 8 6 C L : A R R A Y - E L E M
0013260 E N T - T Y P E 1 8 2 C L :
0013300 A R R A Y - T O T A L - S I Z E
0013320 1 6 6 C L : A R R A Y P 1
0013340 5 3 C L : : % % E Q C O D E P
0013360 1 4 0 C L : : % % E Q C O D
0013400 E P 1 2 7 C L : : % % E Q C
0013420 O D E P 1 1 3 C L : : % % E
0013440 Q C O D E P 1 0 0 C L : : %
0013460 % E Q C O D E P 9 1 C L : :
0013500 % % E Q C O D E P 7 8 C L :
0013520 : % % E Q C O D E P 6 9 C L
0013540 : : % % E Q C O D E P ) \r ( 3 1
0013560 0 M A X - A B S 2 9 5 M I
0013600 N - A B S 2 8 0 M A X 2 6
0013620 5 M I N 2 5 0 C L : * 2
0013640 3 5 + 1 8 9 C L : S I N G
0013660 L E - F L O A T 1 5 8 M A X
0013700 - A B S 1 5 0 M A X - A B S
0013720 1 4 4 M I N - A B S 1 3 7
0013740 M I N - A B S 1 3 2 M A X
0013760 1 2 4 M A X 1 1 7 M I N
0014000 1 1 0 M I N 1 0 5 C L :
0014020 * 9 7 T I M E S 8 8 C L
0014040 : * 8 3 + 7 5 P L U S
0014060 6 6 + 6 0 C O M P I L E D
0014100 - C L O S U R E 5 5 C L : *
0014120 4 9 T I M E S 4 4 + 3
0014140 8 P L U S 3 0 L I T A T O
0014160 M ) \r ( ) \r E V A L U A T E - P
0014200 O L Y N O M I A L : D 4 \r ( L
0014220 ( 1 C O E F F I C I E N T S
0014240 0 X ) ) \0 U 004 \0 \0 002 A d \t
0014260 \0 \0 251 277 o \0 \0 \0 A \n \0 \0 020 \t \0 \0
0014300 g \0 \0 360 262 032 @ 355 001 A \t \0 \0 A \t \0
0014320 \0 340 320 A \t \0 \0 k 325 2 \0 355 \0 020 A \t
0014340 \0 \0 k A \t \0 \0 A j 266 021 004 003 I J 360
0014360 221 K 020 @ K 326 A I 266 324 273 I k 324 Y 260
0014400 357 \0 ( 5 7 C L : A R R A Y - T
0014420 O T A L - S I Z E 5 2 F L A
0014440 T T E N - A R G 4 1 C L : A
0014460 R R A Y - T O T A L - S I Z E
0014500 3 5 % % A R R A Y - O F F S E
0014520 T 3 1 % % A R R A Y - B A S
0014540 E 1 8 C L : A R R A Y - E L
0014560 E M E N T - T Y P E 1 4 C L
0014600 : E R R O R 4 C L : A R R A
0014620 Y P ) \r ( 2 1 C L : S I N G L
0014640 E - F L O A T ) \r ( 1 0 " N
0014660 o t a n a r r a y : ~ S "
0014700 ) \r F I N D - A R R A Y - E L E
0014720 M E N T - I N D E X : D 4 \r (
0014740 L ( 1 A R R A Y 0 E L E
0014760 M E N T ) ) \0 m 004 \0 \0 002 A d \t
0015000 \0 \0 251 277 o \0 \0 \0 A \n \0 \0 020 \t \0 \0
0015020 g \0 \0 360 262 6 A \t \0 \0 A \t \0 \0 340 320
0015040 j @ 355 001 A \t \0 \0 021 004 003 I K 360 221 h
0015060 020 J H d 310 \0 375 310 001 321 354 001 241 I 020 H
0015100 l 002 320 I k 324 271 270 260 343 A \t \0 \0 j A
0015120 \t \0 \0 021 003 002 I J 360 263 326 @ H I 266 :
0015140 221 I 020 I k 324 Y 260 360 \0 ( 8 5 C L
0015160 : A R R A Y - T O T A L - S I Z
0015200 E 8 0 F L A T T E N - A R G
0015220 4 2 C L : A R R A Y - T O T
0015240 A L - S I Z E 3 2 % % A R R
0015260 A Y - O F F S E T 2 8 % % A
0015300 R R A Y - B A S E 1 8 C L :
0015320 A R R A Y - E L E M E N T - T Y
0015340 P E 1 4 C L : E R R O R 4
0015360 C L : A R R A Y P ) \r ( 2 1
0015400 C L : S I N G L E - F L O A T )
0015420 \r ( 1 0 " N o t a n a r
0015440 r a y : ~ S " ) \r F L A T T E
0015460 N - A R G : D 4 \r ( L ( 0
0015500 A R G ) ) \0 % \0 \0 \0 001 @ d \t \0
0015520 \0 231 277 @ d \t \0 \0 k 360 221 @ 020 \t \0 \0
0015540 g \0 \0 @ \t \0 \0 g \0 \0 @ \r 005 \0 \0 020
0015560 \0 ( 3 4 C L : M A K E - A R R
0015600 A Y 2 6 C L : A R R A Y - E
0015620 L E M E N T - T Y P E 1 9 C
0015640 L : A R R A Y - T O T A L - S I
0015660 Z E 1 1 C L : A R R A Y - R
0015700 A N K 4 C L : A R R A Y P )
0015720 \r ( 2 9 : D I S P L A C E D -
0015740 T O 2 2 : E L E M E N T - T
0015760 Y P E ) \r ( ) \r M A X - A B S
0016000 : D 4 \r ( L ( 1 Y 0 X )
0016020 ) \0 017 \0 \0 \0 002 @ \t \0 \0 A \t \0 \0
0016040 363 221 @ 020 A 020 \0 ( 7 A B S 3
0016060 A B S ) \r N I L \r ( ) \r M I N -
0016100 A B S : D 4 \r ( L ( 1 Y
0016120 0 X ) ) \0 020 \0 \0 \0 002 @ \t \0 \0
0016140 A \t \0 \0 375 363 221 @ 020 A 020 \0 ( 7 A
0016160 B S 3 A B S ) \r N I L \r ( )
0016200 \r % % M A P - F L O A T - A R R
0016220 A Y - A B S : D 4 \r ( L ( 1
0016240 A R R A Y 0 R E S U L T )
0016260 ) \0 A 004 \0 \0 002 @ \t \0 \0 @ \t \0 \0
0016300 @ \t \0 \0 340 320 A \t \0 \0 A \t \0 \0 340 320
0016320 j 021 004 003 K H 360 221 @ 020 I J d 310 \0 375
0016340 310 001 321 355 002 316 \0 277 I l 002 320 J l 002 320
0016360 K k 324 273 272 271 260 336 \0 ( 2 1 % % A
0016400 R R A Y - O F F S E T 1 7 %
0016420 % A R R A Y - B A S E 1 1 %
0016440 % A R R A Y - O F F S E T 7
0016460 % % A R R A Y - B A S E 3 C
0016500 L : A R R A Y - T O T A L - S I
0016520 Z E ) \r N I L \r ( ) \r % % M A P
0016540 - F L O A T - A R R A Y - F L O
0016560 A T : D 4 \r ( L ( 1 A R R
0016600 A Y 0 R E S U L T ) ) \0 P
0016620 003 \0 \0 002 @ \t \0 \0 021 ! 002 A \t \0 \0 o
0016640 \0 \0 \0 364 262 033 A \t \0 \0 A \t \0 \0 340 320
0016660 @ \t \0 \0 @ \t \0 \0 340 320 H 372 002 @ 020 @
0016700 \t \0 \0 @ \t \0 \0 340 320 j 272 271 J H 360 263
0016720 356 I A J 266 355 001 316 \0 277 I l 002 320 J k
0016740 324 260 351 \0 ( 5 0 % % A R R A Y -
0016760 O F F S E T 4 6 % % A R R A
0017000 Y - B A S E 3 5 % % A R R A
0017020 Y - O F F S E T 3 1 % % A R
0017040 R A Y - B A S E 2 5 % % A R
0017060 R A Y - O F F S E T 2 1 % %
0017100 A R R A Y - B A S E 1 0 C L
0017120 : A R R A Y - E L E M E N T - T
0017140 Y P E 3 C L : A R R A Y - T
0017160 O T A L - S I Z E ) \r N I L \r (
0017200 1 4 ( C L : U N S I G N E D
0017220 - B Y T E 1 6 ) ) \r % % M A P
0017240 - F L O A T - A R R A Y - M I N
0017260 U S : D 4 \r ( L ( 2 A R R
0017300 A Y - 2 1 A R R A Y - 1 0
0017320 R E S U L T ) ) \0 271 005 \0 \0 003
0017340 A \t \0 \0 262 q B \t \0 \0 262 ( A \t \0 \0
0017360 A \t \0 \0 340 320 B \t \0 \0 B \t \0 \0 340 320
0017400 @ \t \0 \0 @ \t \0 \0 340 320 @ \t \0 \0 373 003
0017420 @ 020 @ \t \0 \0 @ \t \0 \0 @ \t \0 \0 340 320
0017440 A \t \0 \0 A \t \0 \0 340 320 B 355 001 j 021 005
0017460 004 L H 360 263 334 I J d 310 \0 375 310 001 321 K
0017500 354 001 316 \0 277 I l 002 320 J l 002 320 L k 324
0017520 274 272 271 260 336 @ \t \0 \0 @ \t \0 \0 @ \t \0
0017540 \0 340 320 A 355 001 B \t \0 \0 B \t \0 \0 340 320
0017560 j 021 005 004 L H 360 263 231 I J K d 310 \0 375
0017600 310 001 321 354 001 316 \0 277 I l 002 320 K l 002 320
0017620 L k 324 274 273 271 260 336 \0 ( 1 4 1 % %
0017640 A R R A Y - O F F S E T 1 3 7
0017660 % % A R R A Y - B A S E 1 2
0017700 8 % % A R R A Y - O F F S E T
0017720 1 2 4 % % A R R A Y - B A S
0017740 E 1 2 0 C L : A R R A Y - T
0017760 O T A L - S I Z E 7 1 % % A
0020000 R R A Y - O F F S E T 6 7 %
0020020 % A R R A Y - B A S E 6 1 %
0020040 % A R R A Y - O F F S E T 5 7
0020060 % % A R R A Y - B A S E 5 3
0020100 C L : A R R A Y - T O T A L -
0020120 S I Z E 4 5 C L : A R R A Y
0020140 - T O T A L - S I Z E 3 9 %
0020160 % A R R A Y - O F F S E T 3 5
0020200 % % A R R A Y - B A S E 2 9
0020220 % % A R R A Y - O F F S E T
0020240 2 5 % % A R R A Y - B A S E
0020260 1 9 % % A R R A Y - O F F S E
0020300 T 1 5 % % A R R A Y - B A S
0020320 E 9 C L : A R R A Y P 3
0020340 C L : A R R A Y P ) \r N I L \r (
0020360 ) \r % % M A P - F L O A T - A R
0020400 R A Y - N E G A T E : D 4 \r (
0020420 L ( 1 A R R A Y 0 R E S
0020440 U L T ) ) \0 A 004 \0 \0 002 @ \t \0 \0
0020460 @ \t \0 \0 @ \t \0 \0 340 320 A \t \0 \0 A \t
0020500 \0 \0 340 320 j 021 004 003 K H 360 221 @ 020 I J
0020520 d 310 \0 375 310 001 321 355 003 316 \0 277 I l 002 320
0020540 J l 002 320 K k 324 273 272 271 260 336 \0 ( 2 1
0020560 % % A R R A Y - O F F S E T
0020600 1 7 % % A R R A Y - B A S E
0020620 1 1 % % A R R A Y - O F F S E
0020640 T 7 % % A R R A Y - B A S E
0020660 3 C L : A R R A Y - T O T A
0020700 L - S I Z E ) \r N I L \r ( ) \r %
0020720 % M A P - F L O A T - A R R A Y
0020740 - P L U S : D 4 \r ( L ( 2
0020760 A R R A Y - 2 1 A R R A Y -
0021000 1 0 R E S U L T ) ) \0 201 005
0021020 \0 \0 003 A \t \0 \0 253 A 021 001 \0 B b 002 277
0021040 H b 004 023 B \t \0 \0 262 ( A \t \0 \0 A \t
0021060 \0 \0 340 320 B \t \0 \0 B \t \0 \0 340 320 @ \t
0021100 \0 \0 @ \t \0 \0 340 320 @ \t \0 \0 373 002 @ 020
0021120 @ \t \0 \0 @ \t \0 \0 @ \t \0 \0 340 320 A \t
0021140 \0 \0 A \t \0 \0 340 320 B 355 001 j 021 005 004 L
0021160 H 360 263 334 I J d 310 \0 375 310 001 321 K 354 \0
0021200 316 \0 277 I l 002 320 J l 002 320 L k 324 274 272
0021220 271 260 336 \0 ( 8 2 % % A R R A Y -
0021240 O F F S E T 7 8 % % A R R A
0021260 Y - B A S E 7 2 % % A R R A
0021300 Y - O F F S E T 6 8 % % A R
0021320 R A Y - B A S E 6 4 C L : A
0021340 R R A Y - T O T A L - S I Z E
0021360 5 6 C L : A R R A Y - T O T A
0021400 L - S I Z E 5 0 % % A R R A
0021420 Y - O F F S E T 4 6 % % A R
0021440 R A Y - B A S E 4 0 % % A R
0021460 R A Y - O F F S E T 3 6 % %
0021500 A R R A Y - B A S E 3 0 % %
0021520 A R R A Y - O F F S E T 2 6
0021540 % % A R R A Y - B A S E 2 0
0021560 C L : A R R A Y P 3 C L : A
0021600 R R A Y P ) \r N I L \r ( ) \r % %
0021620 M A P - F L O A T - A R R A Y -
0021640 Q U O T I E N T : D 4 \r ( L
0021660 ( 2 A R R A Y - 2 1 A R R
0021700 A Y - 1 0 R E S U L T ) )
0021720 \0 355 005 \0 \0 003 A \t \0 \0 242 261 \0 244 B \t
0021740 \0 \0 262 Z @ \t \0 \0 @ \t \0 \0 @ \t \0 \0
0021760 340 320 A \t \0 \0 A \t \0 \0 340 320 B \t \0 \0
0022000 B \t \0 \0 340 320 j 021 005 004 L H 360 263 - I
0022020 J d 310 \0 375 310 001 321 K d 310 \0 375 310 001 321
0022040 354 004 316 \0 277 I l 002 320 J l 002 320 J l 002
0022060 320 L k 324 274 273 272 271 260 322 @ 020 @ \t \0 \0
0022100 @ \t \0 \0 @ \t \0 \0 340 320 A \t \0 \0 A \t
0022120 \0 \0 340 320 B 355 001 j 021 005 004 L H 360 263 334
0022140 I J d 310 \0 375 310 001 321 K 354 004 316 \0 277 I
0022160 l 002 320 J l 002 320 L k 324 274 272 271 260 336 @
0022200 \t \0 \0 @ \t \0 \0 @ \t \0 \0 340 320 A 355 001
0022220 B \t \0 \0 B \t \0 \0 340 320 j 021 005 004 L H
0022240 360 263 231 I J K d 310 \0 375 310 001 321 354 004 316
0022260 \0 277 I l 002 320 K l 002 320 L k 324 274 273 271
0022300 260 336 \0 ( 1 9 3 % % A R R A Y -
0022320 O F F S E T 1 8 9 % % A R R
0022340 A Y - B A S E 1 8 0 % % A R
0022360 R A Y - O F F S E T 1 7 6 %
0022400 % A R R A Y - B A S E 1 7 2
0022420 C L : A R R A Y - T O T A L - S
0022440 I Z E 1 2 3 % % A R R A Y -
0022460 O F F S E T 1 1 9 % % A R R
0022500 A Y - B A S E 1 1 3 % % A R
0022520 R A Y - O F F S E T 1 0 9 %
0022540 % A R R A Y - B A S E 1 0 5
0022560 C L : A R R A Y - T O T A L - S
0022600 I Z E 4 5 % % A R R A Y - O
0022620 F F S E T 4 1 % % A R R A Y
0022640 - B A S E 3 5 % % A R R A Y
0022660 - O F F S E T 3 1 % % A R R
0022700 A Y - B A S E 2 5 % % A R R
0022720 A Y - O F F S E T 2 1 % % A
0022740 R R A Y - B A S E 1 7 C L :
0022760 A R R A Y - T O T A L - S I Z E
0023000 1 1 C L : A R R A Y P 3
0023020 C L : A R R A Y P ) \r N I L \r (
0023040 ) \r % % M A P - F L O A T - A R
0023060 R A Y - T I M E S : D 4 \r ( L
0023100 ( 2 A R R A Y - 2 1 A R
0023120 R A Y - 1 0 R E S U L T ) )
0023140 \0 201 005 \0 \0 003 A \t \0 \0 253 A 021 001 \0
0023160 B b 002 277 H b 004 023 B \t \0 \0 262 ( A \t
0023200 \0 \0 A \t \0 \0 340 320 B \t \0 \0 B \t \0 \0
0023220 340 320 @ \t \0 \0 @ \t \0 \0 340 320 @ \t \0 \0
0023240 373 \0 @ 020 @ \t \0 \0 @ \t \0 \0 @ \t \0 \0
0023260 340 320 A \t \0 \0 A \t \0 \0 340 320 B 355 001 j
0023300 021 005 004 L H 360 263 334 I J d 310 \0 375 310 001
0023320 321 K 354 003 316 \0 277 I l 002 320 J l 002 320 L
0023340 k 324 274 272 271 260 336 \0 ( 8 2 % % A R
0023360 R A Y - O F F S E T 7 8 % %
0023400 A R R A Y - B A S E 7 2 % %
0023420 A R R A Y - O F F S E T 6 8
0023440 % % A R R A Y - B A S E 6 4
0023460 C L : A R R A Y - T O T A L - S
0023500 I Z E 5 6 C L : A R R A Y -
0023520 T O T A L - S I Z E 5 0 % %
0023540 A R R A Y - O F F S E T 4 6
0023560 % % A R R A Y - B A S E 4 0
0023600 % % A R R A Y - O F F S E T 3
0023620 6 % % A R R A Y - B A S E 3
0023640 0 % % A R R A Y - O F F S E T
0023660 2 6 % % A R R A Y - B A S E
0023700 2 0 C L : A R R A Y P 3
0023720 C L : A R R A Y P ) \r N I L \r (
0023740 ) \r % % M A P - F L O A T - A R
0023760 R A Y - T R U N C A T E : D 4
0024000 \r ( L ( 1 A R R A Y 0 R
0024020 E S U L T ) ) \0 6 005 \0 \0 002 @ \t
0024040 \0 \0 A \t \0 \0 A \t \0 \0 340 320 j 021 # 004
0024060 J H 360 221 @ 020 @ 274 J 273 I d 310 \0 375 310
0024100 001 321 355 004 L K 267 277 I l 002 320 J k 324 272
0024120 271 260 337 \0 ( 1 1 % % A R R A Y -
0024140 O F F S E T 7 % % A R R A Y
0024160 - B A S E 3 C L : A R R A Y
0024200 - T O T A L - S I Z E ) \r N I L
0024220 \r ( ) \r % % R E D U C E - F L O
0024240 A T - A R R A Y - M A X : D 4
0024260 \r ( L ( 1 I N I T I A L - V
0024300 A L U E 0 A R R A Y ) ) \0
0024320 " 001 \0 \0 002 @ d \t \0 \0 @ \t \0 \0 340 320
0024340 j @ \t \0 \0 372 004 266 021 001 \0 A 265 004 H 020
0024360 H 363 262 374 A 020 \0 ( 1 5 C L : A R
0024400 R A Y - T O T A L - S I Z E 8
0024420 % % A R R A Y - O F F S E T
0024440 4 % % A R R A Y - B A S E ) \r
0024460 N I L \r ( ) \r % % R E D U C E -
0024500 F L O A T - A R R A Y - M A X -
0024520 A B S : D 4 \r ( L ( 1 I N
0024540 I T I A L - V A L U E 0 A R
0024560 R A Y ) ) \0 ! 001 \0 \0 002 @ d \t \0
0024600 \0 @ \t \0 \0 340 320 j @ \t \0 \0 372 006 266 021
0024620 001 \0 A 265 004 H 020 H \n \0 \0 020 \0 ( 3 0
0024640 M A X - A B S 1 5 C L : A
0024660 R R A Y - T O T A L - S I Z E
0024700 8 % % A R R A Y - O F F S E T
0024720 4 % % A R R A Y - B A S E )
0024740 \r N I L \r ( ) \r % % R E D U C E
0024760 - F L O A T - A R R A Y - M I N
0025000 : D 4 \r ( L ( 1 I N I T I
0025020 A L - V A L U E 0 A R R A Y
0025040 ) ) \0 " 001 \0 \0 002 @ d \t \0 \0 @ \t
0025060 \0 \0 340 320 j @ \t \0 \0 372 005 266 021 001 \0 A
0025100 226 H d A 363 220 A 020 H 020 \0 ( 1 5 C
0025120 L : A R R A Y - T O T A L - S I
0025140 Z E 8 % % A R R A Y - O F F
0025160 S E T 4 % % A R R A Y - B A
0025200 S E ) \r N I L \r ( ) \r % % R E D
0025220 U C E - F L O A T - A R R A Y -
0025240 M I N - A B S : D 4 \r ( L (
0025260 1 I N I T I A L - V A L U E
0025300 0 A R R A Y ) ) \0 ! 001 \0 \0 002
0025320 @ d \t \0 \0 @ \t \0 \0 340 320 j @ \t \0 \0
0025340 372 \a 266 021 001 \0 A 265 004 H 020 H \n \0 \0 020
0025360 \0 ( 3 0 M I N - A B S 1 5
0025400 C L : A R R A Y - T O T A L - S
0025420 I Z E 8 % % A R R A Y - O F
0025440 F S E T 4 % % A R R A Y - B
0025460 A S E ) \r N I L \r ( ) \r % % R E
0025500 D U C E - F L O A T - A R R A Y
0025520 - P L U S : D 4 \r ( L ( 1
0025540 I N I T I A L - V A L U E 0
0025560 A R R A Y ) ) \0 % 001 \0 \0 002 n ?
0025600 200 j 321 @ \t \0 \0 @ \t \0 \0 340 320 @ \t \0
0025620 \0 k 325 2 \0 355 \0 021 001 \0 A 265 004 H 020 H
0025640 324 020 \0 ( 1 8 C L : A R R A Y -
0025660 T O T A L - S I Z E 1 2 % %
0025700 A R R A Y - O F F S E T 8 %
0025720 % A R R A Y - B A S E ) \r N I L
0025740 \r ( ) \r % % R E D U C E - F L O
0025760 A T - A R R A Y - T I M E S :
0026000 D 4 \r ( L ( 1 I N I T I A L
0026020 - V A L U E 0 A R R A Y ) )
0026040 \0 D 004 \0 \0 002 n ? 200 j 321 021 001 \0 j
0026060 @ \t \0 \0 @ \t \0 \0 340 320 @ \t \0 \0 021 003
0026100 003 I K 360 263 031 H J d 310 \0 375 310 001 321 354
0026120 003 270 I k 324 J l 002 320 272 Y 260 347 023 A 265
0026140 006 H 355 \0 020 H 355 \0 326 020 \0 ( 2 2 C
0026160 L : A R R A Y - T O T A L - S I
0026200 Z E 1 6 % % A R R A Y - O F
0026220 F S E T 1 2 % % A R R A Y -
0026240 B A S E ) \r N I L \r ( ) \r ( P U
0026260 T P R O P S C M L F L O A T A
0026300 R R A Y F I L E T Y P E C L
0026320 : C O M P I L E - F I L E ) \r (
0026340 P U T P R O P S C M L F L O A
0026360 T A R R A Y C O P Y R I G H T
0026400 ( " X e r o x C o r p o r a
0026420 t i o n " 1 9 8 5 1 9 8 6
0026440 1 9 8 7 ) ) \r N I L \r
0026453