$ od -c -N 50000 [qv]<IDL>koto>ARRAYSUPPORT.DCOM!1 0000000 ( F I L E C R E A T E D " 2 0 0000020 - J u n - 8 6 1 5 : 3 0 : 4 3 0000040 " ( " c o m p i l e d o n 0000060 " { Q V } < P E D E R S E N > 0000100 L I S P > A R R A Y S U P P O R 0000120 T . ; 3 ) \r " 1 2 - N o v - 8 0000140 5 1 4 : 5 9 : 2 3 " r e c o 0000160 m p i l e d c h a n g e s : 0000200 n o t h i n g i n " I N T E 0000220 R L I S P - D 1 1 - M a y - 8 0000240 6 . . . " d a t e d \r " 1 0000260 1 - M a y - 8 6 1 5 : 1 9 : 0 0000300 8 " ) \r ( F I L E C R E A T E D 0000320 " 2 0 - J u n - 8 6 1 5 : 3 0000340 0 : 0 9 " { Q V } < P E D E R 0000360 S E N > L I S P > A R R A Y S U 0000400 P P O R T . ; 3 4 1 9 2 c h 0000420 a n g e s t o : ( V A R S 0000440 \r A R R A Y S U P P O R T C O M 0000460 S ) p r e v i o u s d a t e 0000500 : " 1 7 - J u n - 8 6 1 0 : 0000520 4 5 : 1 6 " { Q V } < P E D E 0000540 R S E N > L I S P > A R R A Y S 0000560 U P P O R T . ; 2 ) \r A R R A Y 0000600 B A S E D 1 \r ( I 0 A ) 0000620 \0 035 \0 \0 \0 001 @ 004 ` \0 \0 360 233 @ 311 004 0000640 @ 310 \n @ 310 \v 365 320 020 o \0 \0 \0 @ \n \0 0000660 \0 020 \0 ( 3 2 Q E R R O R ) \r ( 0000700 4 004 003 A R R A Y T Y P E # ) \r 0000720 ( 2 6 Q " N o t a n a r 0000740 r a y " ) \r \ B L K E X P O N E 0000760 N T D 1 \r ( I 2 C N T I 0001000 1 D E S T I 0 S O U R 0001020 C E ) \0 \a \0 \0 \0 003 @ A B 372 \0 020 0001040 \0 N I L \r N I L \r ( ) \r \ B L K 0001060 F A B S M A X D 1 \r ( I 2 0001100 C N T I 1 Z E R O I 0 0001120 S O U R C E ) \0 \a \0 \0 \0 003 @ 0001140 A B 372 006 020 \0 N I L \r N I L \r ( ) 0001160 \r \ B L K F A B S M I N D 1 \r 0001200 ( I 2 C N T I 1 Z E R 0001220 O I 0 S O U R C E ) \0 \a 0001240 \0 \0 \0 003 @ A B 372 \a 020 \0 N I L \r N 0001260 I L \r ( ) \r \ B L K F D I F F 0001300 D 1 \r ( I 3 C N T I 2 0001320 D E S T I 1 S O U R C E 2 0001340 I 0 S O U R C E 1 ) \0 \b 0001360 \0 \0 \0 004 @ A B C 373 003 020 \0 N I L \r 0001400 N I L \r ( ) \r \ B L K F M A X 0001420 D 1 \r ( I 2 C N T I 1 0001440 Z E R O I 0 S O U R C E ) 0001460 \0 \a \0 \0 \0 003 @ A B 372 004 020 \0 N I 0001500 L \r N I L \r ( ) \r \ B L K F M I 0001520 N D 1 \r ( I 2 C N T I 0001540 1 Z E R O I 0 S O U R C 0001560 E ) \0 \a \0 \0 \0 003 @ A B 372 005 020 \0 0001600 N I L \r N I L \r ( ) \r \ B L K F 0001620 P L U S D 1 \r ( I 3 C N T 0001640 I 2 D E S T I 1 S O 0001660 U R C E 2 I 0 S O U R C E 0001700 1 ) \0 \b \0 \0 \0 004 @ A B C 373 002 020 0001720 \0 N I L \r N I L \r ( ) \r \ B L K 0001740 F T I M E S D 1 \r ( I 3 C 0001760 N T I 2 D E S T I 1 0002000 S O U R C E 2 I 0 S O U R 0002020 C E 1 ) \0 \b \0 \0 \0 004 @ A B C 373 0002040 \0 020 \0 N I L \r N I L \r ( ) \r \ B 0002060 L K P E R M D 1 \r ( I 3 C 0002100 N T I 2 D E S T I N A T I 0002120 O N I 1 P E R M U T A T I 0002140 O N S I 0 O R I G ) \0 \b 0002160 \0 \0 \0 004 @ A B C 373 001 020 \0 N I L \r 0002200 N I L \r ( ) \r \ B L K S M A L L 0002220 P 2 F L O A T D 1 \r ( I 2 0002240 C N T I 1 D E S T I 0 0002260 S O U R C E ) \0 \a \0 \0 \0 003 @ 0002300 A B 372 002 020 \0 N I L \r N I L \r ( ) 0002320 \r \ F L O A T T O B Y T E D 1 0002340 \r ( I 2 C N T I 1 D E 0002360 S T I 0 S O U R C E ) \0 0002400 \a \0 \0 \0 003 @ A B 372 \b 020 \0 N I L \r 0002420 N I L \r ( ) \r \ P O L Y N O M 0002440 D 1 \r ( L ( 2 S I Z E 1 0002460 B A S E 0 X ) ) \0 \v \0 \0 \0 0002500 003 @ 355 001 A B 2 \0 355 \0 020 \0 N I L \r 0002520 N I L \r ( ) \r ( P R E T T Y C O 0002540 M P R I N T A R R A Y S U P P 0002560 O R T C O M S ) \r ( R P A Q Q 0002600 A R R A Y S U P P O R T C O M S 0002620 ( ( F N S A R R A Y B A S E 0002640 \ B L K E X P O N E N T \ B 0002660 L K F A B S M A X \ B L K F A 0002700 B S M I N \ B L K F D I F F 0002720 \ B L K F M A X \r \ B L K F M 0002740 I N \ B L K F P L U S \ B L 0002760 K F T I M E S \ B L K P E R M 0003000 \ B L K S M A L L P 2 F L O A 0003020 T \ F L O A T T O B Y T E \ 0003040 P O L Y N O M ) ( M A C R O S 0003060 M U L 2 \ P O L Y N O M ) 0003100 \r ( P R O P D O P V A L \ B 0003120 L K E X P O N E N T \ B L K F 0003140 A B S M A X \ B L K F A B S M 0003160 I N \ B L K F D I F F \ B L 0003200 K F M A X \ B L K F M I N \ 0003220 B L K F P L U S \ B L K F T I 0003240 M E S \r \ B L K P E R M \ B 0003260 L K S M A L L P 2 F L O A T \ 0003300 F L O A T T O B Y T E ) ( I . 0003320 S . O P R S p r o d u c t u 0003340 p t o ) ) ) \r ( P U T P R O P S 0003360 M U L 2 M A C R O ( O P E 0003400 N L A M B D A ( X ) ( \ A D 0003420 D B A S E X X ) ) ) \r ( P U 0003440 T P R O P S \ P O L Y N O M 0003460 D M A C R O ( ( X B A S E 0003500 S I Z E ) ( * e x e c u t e 0003520 t h e P O L Y E V A L o p 0003540 c o d e o n t h e v a l u 0003560 e X , t h e a r r a y \r 0003600 C O E F F S w i t h d e g r 0003620 e e D E G R E E ) ( \ F L O 0003640 A T B O X ( ( O P C O D E S 0003660 U B F L O A T 3 0 ) ( \ F L 0003700 O A T U N B O X X ) B A S E 0003720 S I Z E ) ) ) ) \r ( P U T P R 0003740 O P S \ B L K E X P O N E N T 0003760 D O P V A L ( 3 M I S C 3 0004000 0 ) ) \r ( P U T P R O P S \ 0004020 B L K F A B S M A X D O P V A 0004040 L ( 3 M I S C 3 6 ) ) \r ( 0004060 P U T P R O P S \ B L K F A B 0004100 S M I N D O P V A L ( 3 M 0004120 I S C 3 7 ) ) \r ( P U T P R O 0004140 P S \ B L K F D I F F D O P 0004160 V A L ( 4 M I S C 4 3 ) ) 0004200 \r ( P U T P R O P S \ B L K F 0004220 M A X D O P V A L ( 3 M I 0004240 S C 3 4 ) ) \r ( P U T P R O P 0004260 S \ B L K F M I N D O P V A 0004300 L ( 3 M I S C 3 5 ) ) \r ( 0004320 P U T P R O P S \ B L K F P L 0004340 U S D O P V A L ( 4 M I S 0004360 C 4 2 ) ) \r ( P U T P R O P S 0004400 \ B L K F T I M E S D O P V 0004420 A L ( 4 M I S C 4 0 ) ) \r 0004440 ( P U T P R O P S \ B L K P E 0004460 R M D O P V A L ( 4 M I S 0004500 C 4 1 ) ) \r ( P U T P R O P S 0004520 \ B L K S M A L L P 2 F L O A 0004540 T D O P V A L ( 3 M I S C 0004560 3 2 ) ) \r ( P U T P R O P S 0004600 \ F L O A T T O B Y T E D O P 0004620 V A L ( 3 M I S C 3 8 ) ) 0004640 \r ( I . S . O P R ( Q U O T E 0004660 p r o d u c t ) ( Q U O T E 0004700 ( S E T Q $ $ V A L ( T I 0004720 M E S $ $ V A L B O D Y ) ) 0004740 ) ( Q U O T E ( B I N D ( 0004760 $ $ V A L _ 1 ) ) ) ) \r ( I 0005000 . S . O P R ( Q U O T E u p 0005020 t o ) N I L ( Q U O T E ( 0005040 T O ( S U B 1 B O D Y ) ) ) 0005060 ) \r ( P U T P R O P S A R R A 0005100 Y S U P P O R T C O P Y R I G 0005120 H T ( " X e r o x C o r p o 0005140 r a t i o n " 1 9 8 6 ) ) \r N 0005160 I L \r 0005163