$ od -c -N 50000 [qv]<IDL>NEXT>E-ARRAY-FLOAT.LCOM!2
0000000    (   D   E   F   I   N   E   -   F   I   L   E   -   I   N   F
0000020    O     036   R   E   A   D   T   A   B   L   E       "   X   C
0000040    L   "     036   P   A   C   K   A   G   E       "   E   -   A
0000060    R   R   A   Y   "   )  \r   (   i   l   :   f   i   l   e   c
0000100    r   e   a   t   e   d       "   1   5   -   N   o   v   -   8
0000120    8       1   8   :   4   9   :   2   2   "       (   "   c   o
0000140    m   p   i   l   e   d       o   n       "       i   l   :   {
0000160    q   v   }   <   i   d   l   >   n   e   x   t   >   e   -   a
0000200    r   r   a   y   -   f   l   o   a   t   .   \   ;   2   )    
0000220   \r   "   1   9   -   S   e   p   -   8   8       1   7   :   3
0000240    1   :   5   5   "       "   C   O   M   P   I   L   E   -   F
0000260    I   L   E   d   "       i   l   :   |   i   n   |       "   M
0000300    e   d   l   e   y           9   -   N   o   v   -   8   8    
0000320    .   .   .   "       i   l   :   |   d   a   t   e   d   |    
0000340    "       9   -   N   o   v   -   8   8       1   9   :   5   6
0000360    :   4   6   "   )  \r   (   i   l   :   f   i   l   e   c   r
0000400    e   a   t   e   d       "   1   5   -   N   o   v   -   8   8
0000420        1   8   :   4   9   :   1   8   "       i   l   :   {   q
0000440    v   }   <   i   d   l   >   n   e   x   t   >   e   -   a   r
0000460    r   a   y   -   f   l   o   a   t   .   \   ;   2       3   0
0000500    2   9       i   l   :   |   c   h   a   n   g   e   s   |    
0000520    i   l   :   |   t   o   :   |       (  \r   x   c   l   :   f
0000540    i   l   e   -   e   n   v   i   r   o   n   m   e   n   t   s
0000560        "   E   -   A   R   R   A   Y   -   F   L   O   A   T   "
0000600    )       (   i   l   :   v   a   r   s       i   l   :   e   -
0000620    a   r   r   a   y   -   f   l   o   a   t   c   o   m   s   )
0000640        i   l   :   |   p   r   e   v   i   o   u   s   |       i
0000660    l   :   |   d   a   t   e   :   |      \r   "   1   7   -   J
0000700    a   n   -   8   8       1   4   :   5   8   :   2   0   "    
0000720    i   l   :   {   q   v   }   <   i   d   l   >   n   e   x   t
0000740    >   e   -   a   r   r   a   y   -   f   l   o   a   t   .   \
0000760    ;   1   )  \r   (   i   l   :   r   p   a   q   q       i   l
0001000    :   e   -   a   r   r   a   y   -   f   l   o   a   t   c   o
0001020    m   s       (   (   i   l   :   d   e   c   l   a   r   e   \
0001040    :       i   l   :   d   o   n   t   c   o   p   y       i   l
0001060    :   d   o   e   v   a   l   @   c   o   m   p   i   l   e    
0001100    i   l   :   d   o   e   v   a   l   @   l   o   a   d       (
0001120    i   l   :   f   i   l   e   s      \r   i   l   :   c   m   l
0001140    a   r   r   a   y   -   s   u   p   p   o   r   t   )   )    
0001160    (   i   l   :   f   u   n   c   t   i   o   n   s       m   u
0001200    l   2   )       (   i   l   :   f   u   n   c   t   i   o   n
0001220    s       f   l   o   a   t   -   b   l   t       f   l   o   a
0001240    t   -   f   i   l   l   )       (   x   c   l   :   f   i   l
0001260    e   -   e   n   v   i   r   o   n   m   e   n   t   s      \r
0001300    "   E   -   A   R   R   A   Y   -   F   L   O   A   T   "   )
0001320    )   )  \r   |   e   x   p   a   n   d   -   M   U   L   2   |
0001340        :   d   5  \r   (   i   l   :   l       (   1       s   i
0001360    :   :   $   $   m   a   c   r   o   -   e   n   v   i   r   o
0001400    n   m   e   n   t       0       s   i   :   :   $   $   m   a
0001420    c   r   o   -   f   o   r   m   )   )      \0 022 001  \0  \0
0001440  002   @ 002 001 021 001  \0   g  \0  \0   H   o  \0  \0  \0 032
0001460  032 020  \0   n   i   l  \r   (   8       i   l   :   l   l   s
0001500    h   )  \r   (       1   3       (   1   )   )  \r   (   i   l
0001520    :   s   e   t   f   -   m   a   c   r   o   -   f   u   n   c
0001540    t   i   o   n       (   q   u   o   t   e       m   u   l   2
0001560    )       (   q   u   o   t   e       |   e   x   p   a   n   d
0001600    -   M   U   L   2   |   )   )  \r   f   l   o   a   t   -   b
0001620    l   t       :   d   5  \r   (   i   l   :   l       (   3    
0001640    d   e   s   t   i   n   a   t   i   o   n   -   i   t   e   r
0001660    a   t   o   r       2       d   e   s   t   i   n   a   t   i
0001700    o   n       1       s   o   u   r   c   e   -   i   t   e   r
0001720    a   t   o   r       0       s   o   u   r   c   e   )   )    
0001740  001   6 026  \0  \0 004   @  \t  \0  \0   B  \t  \0  \0   B  \t
0001760   \0  \0 340   @  \t  \0  \0 340 021 364 022 021   0 025   A 263
0002000    g   C 263   .   j   ] 274   L   J 360 263   $   M   K 360 221
0002020    j 275   I   L 320   H   M 320   d 310  \0 375 310 001 321 316
0002040   \0 277   L   l 002 324 274   M   l 002 324 275 260 333   B 020
0002060    j   _ 016 277   C 006  \0  \0 311  \0 276   C   k   N 016   _
0002100  020 262 355   O 016   K 360 223   j   _ 016 277   I   O 020 340
0002120  320   H   O 016 320   d 310  \0 375 310 001 321 316  \0 277   O
0002140  016   l 002 324 260 315   C 263   V   j   _ 032   J 360 263 300
0002160    A 006  \0  \0 311  \0   _ 022 277   A   k   O 022 016   _ 034
0002200  263   #   A 006  \0  \0 311 002   _ 024 277   A   k   O 024 016
0002220    _ 030 006  \0  \0 311  \0   _ 026 277   O 030   k   O 026 016
0002240    _ 034 277   I   O 032 320   H   O 034 340 320   d 310  \0 375
0002260  310 001 321 316  \0 277   O 032   l 002 324 260 257   h 277   C
0002300  006  \0  \0 311  \0   _ 036 277   C   k   O 036 016   _   ( 242
0002320  261 377   ^   A 006  \0  \0 311  \0   _     277   A   k   O    
0002340  016   _   * 263   #   A 006  \0  \0 311 002   _   " 277   A   k
0002360    O   " 016   _   & 006  \0  \0 311  \0   _   $ 277   O   &   k
0002400    O   $ 016   _   * 277   I   O   ( 340 320   H   O   * 340 320
0002420    d 310  \0 375 310 001 321 316  \0 260 245  \0   (   1   6    
0002440    a   r   r   a   y   -   t   o   t   a   l   -   s   i   z   e
0002460        1   1       a   r   r   a   y   -   t   o   t   a   l   -
0002500    s   i   z   e       7       i   l   :   %   a   r   r   a   y
0002520    -   b   a   s   e       3       i   l   :   %   a   r   r   a
0002540    y   -   b   a   s   e   )  \r   (   2   7   3       i   t   e
0002560    r   a   t   o   r       2   5   8       i   t   e   r   a   t
0002600    o   r       2   4   0       i   t   e   r   a   t   o   r    
0002620    2   2   0       i   t   e   r   a   t   o   r       1   7   4
0002640        i   t   e   r   a   t   o   r       1   5   9       i   t
0002660    e   r   a   t   o   r       1   4   1       i   t   e   r   a
0002700    t   o   r       8   1       i   t   e   r   a   t   o   r   )
0002720   \r   (   )  \r   f   l   o   a   t   -   f   i   l   l       :
0002740    d   5  \r   (   i   l   :   l       (   2       d   e   s   t
0002760    i   n   a   t   i   o   n   -   i   t   e   r   a   t   o   r
0003000        1       d   e   s   t   i   n   a   t   i   o   n       0
0003020        s   c   a   l   a   r   )   )      \0   C 006  \0  \0 003
0003040    @ 355 001   A  \t  \0  \0 021   B 005   B 263 036   A  \t  \0
0003060   \0 340   j 273 272   K   J 360 255   I   K 320   H 316  \0 277
0003100    K   l 002 324   [ 260 361   A 020   h 277   B 006  \0  \0 311
0003120   \0 274   B   k   L 016   ] 262 360   I   M 340 320   H 316  \0
0003140  260 352  \0   (   1   6       t   o   t   a   l   -   s   i   z
0003160    e       6       i   l   :   %   a   r   r   a   y   -   b   a
0003200    s   e   )  \r   (   4   6       i   t   e   r   a   t   o   r
0003220    )  \r   (   )  \r   (   i   l   :   p   u   t   p   r   o   p
0003240        (   q   u   o   t   e       i   l   :   e   -   a   r   r
0003260    a   y   -   f   l   o   a   t   )       (   q   u   o   t   e
0003300        i   l   :   m   a   k   e   f   i   l   e   -   e   n   v
0003320    i   r   o   n   m   e   n   t   )       (   q   u   o   t   e
0003340        (   :   r   e   a   d   t   a   b   l   e       "   X   C
0003360    L   "       :   p   a   c   k   a   g   e  \r       "   E   -
0003400    A   R   R   A   Y   "   )   )   )  \r   (   i   l   :   p   u
0003420    t   p   r   o   p       (   q   u   o   t   e       i   l   :
0003440    e   -   a   r   r   a   y   -   f   l   o   a   t   )       (
0003460    q   u   o   t   e       i   l   :   f   i   l   e   t   y   p
0003500    e   )       (   q   u   o   t   e       c   o   m   p   i   l
0003520    e   -   f   i   l   e   )   )  \r   (   i   l   :   p   u   t
0003540    p   r   o   p   s       i   l   :   e   -   a   r   r   a   y
0003560    -   f   l   o   a   t       i   l   :   c   o   p   y   r   i
0003600    g   h   t       (   "   X   e   r   o   x       C   o   r   p
0003620    o   r   a   t   i   o   n   "       1   9   8   8   )   )  \r
0003640    n   i   l  \r                                                
0003644