$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>EXECFNS.TEDIT!1
0000000    X   E   R   O   X  \t   E   X   E   C   F   N   S  \r   2  \r
0000020   \r   4  \r  \r   1  \r  \r   E   X   E   C   F   N   S  \r   1
0000040   \r  \r   4  \r  \r   B   y   :           J   e   f   f   r   e
0000060    y       S   .       S   h   u   l   m   a   n       (   S   h
0000100    u   l   m   a   n   @   R   u   t   g   e   r   s   .   a   r
0000120    p   a   )  \r   T   h   e       p   u   r   p   o   s   e    
0000140    o   f       t   h   i   s       p   a   c   k   a   g   e    
0000160    i   s       t   o       e   m   u   l   a   t   e       T   O
0000200    P   S   -   2   0       l   o   g   i   c   a   l       n   a
0000220    m   e   s   .       t   h   e       f   u   l   l       D   E
0000240    F       m   a   c   r   o       i   s   :  \r   D   E   F    
0000260    l   o   g   i   c   a   l   -   n   a   m   e   :  \t  \t  \t
0000300   \t  \t  \t  \t  \t  \t   [   D   e   f   i   n   i   t   i   o
0000320    n   ]  \r   W   h   e   r   e       l   o   g   i   c   a   l
0000340    -   n   a   m   e       i   s       a   n   y       l   o   g
0000360    i   c   a   l       n   a   m   e       y   o   u       w   i
0000400    s   h       a   n   d       t   h   e       o   p   t   i   o
0000420    n   a   l       f   i   e   l   d       d   e   f   i   n   i
0000440    t   i   o   n       i   s       t   h   e       d   e   f   i
0000460    n   i   t   i   o   n   .       I   f       l   o   g   i   c
0000500    a   l   -   n   a   m   e   :       i   s       a   l   r   e
0000520    a   d   y       d   e   f   i   n   e   d       t   h   e   n
0000540        d   e   f   i   n   i   t   i   o   n       w   i   l   l
0000560        r   e   p   l   a   c   e       t   h   e       o   l   d
0000600        d   e   f   i   n   i   t   i   o   n   .       I   f    
0000620    d   e   f   i   n   i   t   i   o   n       i   s       n   o
0000640    t       p   r   e   s   e   n   t       t   h   e   n       l
0000660    o   g   i   c   a   l   -   n   a   m   e   :       w   i   l
0000700    l       b   e       r   e   m   o   v   e   d       f   r   o
0000720    m       t   h   e       d   e   f   i   n   i   t   i   o   n
0000740        l   i   s   t   .       A   l   l       c   u   r   r   e
0000760    n   t       l   o   g   i   c   a   l       d   e   f   i   n
0001000    i   t   i   o   n   s       a   r   e       k   e   p   t    
0001020    i   n       a       l   i   s   t       f   o   r   m   a   t
0001040        o   n       t   h   e       g   l   o   b   a   l       v
0001060    a   r   i   a   b   l   e       *   L   O   G   I   C   A   L
0001100    .   D   E   F   I   N   I   T   I   O   N   S   *   .  \r   T
0001120    h   e       l   i   s   p   x   m   a   c   r   o       D   E
0001140    F   ?       c   a   n       b   e       u   s   e   d       t
0001160    o       s   e   e       w   h   a   t       l   o   g   i   c
0001200    a   l       d   e   f   i   n   i   t   i   o   n   s       a
0001220    r   e       c   u   r   r   e   n   t   l   y       d   e   f
0001240    i   n   e   d   .       T   h   e       f   o   r   m   a   t
0001260        o   f       D   E   F   ?       i   s   :  \r  \t   D   E
0001300    F   ?       [   l   o   g   i   c   a   l   -   n   a   m   e
0001320    :   ]  \t  \t  \t  \t  \t  \t  \t  \t   [   L   i   s   p   x
0001340    m   a   c   r   o   ]  \r   w   h   e   r   e       l   o   g
0001360    i   c   a   l   -   n   a   m   e   :       i   s       e   i
0001400    t   h   e   r       a       l   o   g   i   c   a   l       n
0001420    a   m   e       o   r       a       '   *   '       (   l   e
0001440    a   v   i   n   g       l   o   g   i   c   a   l   -   n   a
0001460    m   e   :       a   b   s   e   n   t       i   s       t   h
0001500    e       s   a   m   e       a   s       '   *   '   )   .    
0001520    Y   o   u       w   i   l   l       b   e       t   o   l   d
0001540        w   h   a   t       l   o   g   i   c   a   l   -   n   a
0001560    m   e   :       i   s       d   e   f   i   n   e   d       a
0001600    s       o   r       g   i   v   e   n       a       l   i   s
0001620    t       o   f       a   l   l       t   h   e       c   u   r
0001640    r   e   n   t   l   y       d   e   f   i   n   e   d       l
0001660    o   g   i   c   a   l       n   a   m   e   s       i   s    
0001700    y   o   u       g   i   v   e       *       (   o   r       n
0001720    o   t   h   i   n   g   )   .  \r   T   h   e       l   i   s
0001740    p   x   m   a   c   r   o   s       T   Y   ,       C   O   N
0001760    N       a   n   d       K   D       (   d   e   f   i   n   e
0002000    d       b   e   l   o   w   )       h   a   v   e       b   e
0002020    e   n       (   r   e   )   d   e   f   i   n   e   d       t
0002040    o       e   x   p   a   n   d       l   o   g   i   c   a   l
0002060        n   a   m   e   s       t   o       t   h   e   i   r    
0002100    f   u   l   l       f   i   l   e       d   e   f   i   n   i
0002120    t   i   o   n   .       I   n       a   d   d   i   t   i   o
0002140    n       t   h   e       f   u   n   c   t   i   o   n   s    
0002160    I   N   F   I   L   E   ,       O   U   T   F   I   L   E   ,
0002200        I   N   F   I   L   E   P   ,       O   U   T   F   I   L
0002220    E   P       a   n   d       C   O   P   Y   F   I   L   E    
0002240    (   s   e   e       f   u   r   t   h   e   r       c   o   m
0002260    m   e   n   t   s       o   n       C   O   P   Y   F   I   L
0002300    E       b   e   l   o   w   )       h   a   v   e       a   l
0002320    s   o       b   e   e   n       m   o   d   i   f   i   e   d
0002340    /   a   d   v   i   s   e   d       t   o       e   x   p   a
0002360    n   d       l   o   g   i   c   a   l       n   a   m   e   s
0002400    .  \r   T   h   e       f   u   n   c   t   i   o   n       t
0002420    h   a   t       i   m   p   l   e   m   e   n   t   s       D
0002440    E   F       i   s   :  \r  \t   (   D   E   F   I   N   E   .
0002460    L   O   G   I   C   A   L   .   D   E   V   I   C   E       l
0002500    o   g   i   c   a   l   -   n   a   m   e       d   e   f   i
0002520    n   i   t   i   o   n   )  \t  \t  \t  \t   [   F   u   n   c
0002540    t   i   o   n   ]  \r  \t  \t   D   E   F   ?       i   s    
0002560    i   m   p   l   e   m   e   n   t   e   d       b   y   :  \r
0002600   \t   (   S   H   O   W   .   L   O   G   I   C   A   L   .   D
0002620    E   F   I   N   I   T   I   O   N   S       l   o   g   i   c
0002640    a   l   -   n   a   m   e   )  \t  \t  \t  \t  \t   [   F   u
0002660    n   c   t   i   o   n   ]  \r  \t  \t   T   h   e       f   u
0002700    n   c   t   i   o   n  \r  \t   (   L   O   G   I   C   A   L
0002720    ?       f   i   l   e   n   a   m   e   )  \t  \t  \t  \t  \t
0002740   \t  \t  \t   [   F   u   n   c   t   i   o   n   ]  \r  \t  \t
0002760    r   e   t   u   r   n   s       t   h   e       f   u   l   l
0003000        f   i   l   e       n   a   m   e       o   f       f   i
0003020    l   e   n   a   m   e       w   i   t   h       a   n   y    
0003040    l   o   g   i   c   a   l       n   a   m   e   s       e   x
0003060    p   a   n   d   e   d   .      \r   T   h   e       l   i   s
0003100    p   x   m   a   c   r   o       K   D       a   n   d       f
0003120    u   n   c   t   i   o   n       K   D   E   L   E   T   E    
0003140    i   m   p   l   e   m   e   n   t       t   h   e       T   O
0003160    P   S   -   2   0       K   D   E   L   E   T   E       c   o
0003200    m   m   a   n   d   .       T   h   e   y       b   o   t   h
0003220        t   a   k   e       a   s       a   r   g   u   m   e   n
0003240    t   s       a       f   i   l   e       n   a   m   e       (
0003260    w   i   t   h       w   i   l   d   c   a   r   d   s   )    
0003300    a   n   d       w   i   l   l       d   e   l   e   t   e    
0003320    a   l   l       b   u   t       t   h   e       m   o   s   t
0003340        r   e   c   e   n   t       v   e   r   s   i   o   n    
0003360    o   f       t   h   e       m   a   t   c   h   i   n   g    
0003400    f   i   l   e   s   .  \r   T   h   e       f   u   n   c   t
0003420    i   o   n       D   E   F   A   U   L   T   F   I   L   E    
0003440    w   i   l   l       f   i   l   l       i   n       p   o   s
0003460    s   i   b   l   e       m   i   s   s   i   n   g       f   i
0003500    l   e       n   a   m   e       a   n   d       e   x   t   e
0003520    n   s   i   o   n       i   n       i   t   s       f   i   r
0003540    s   t       a   r   g   u   m   e   n   t       f   r   o   m
0003560        i   t   s       s   e   c   o   n   d   .       T   h   e
0003600        f   u   n   c   t   i   o   n       C   O   P   Y   F   I
0003620    L   E       h   a   s       b   e   e   n       i   m   p   l
0003640    e   m   e   n   t   e   d       t   o       u   s   e       t
0003660    h   i   s       f   u   n   c   t   i   o   n       t   o    
0003700    d   e   f   a   u   l   t       t   o       T   O   F   I   L
0003720    E       n   a   m   e   .  \r   B   o   t   h       F   R   O
0003740    M   F   I   L   E       a   n   d       T   O   F   I   L   E
0003760        w   i   l   l       e   x   p   a   n   d       l   o   g
0004000    i   c   a   l       n   a   m   e   s   .       T   h   e    
0004020    f   u   n   c   t   i   o   n       C   O   P   Y   F   I   L
0004040    E       h   a   s       b   e   e   n       m   o   d   i   f
0004060    i   e   d       t   o       p   r   e   s   e   r   v   e    
0004100    t   h   e       f   i   l   e       t   y   p   e       b   e
0004120    t   w   e   e   n       f   i   l   e       t   r   a   n   s
0004140    f   e   r   s   .       W   h   e   n       t   r   a   n   s
0004160    f   e   r   r   i   n   g       f   r   o   m       f   i   l
0004200    e       s   e   r   v   e   r       t   o       D   o   l   p
0004220    h   i   n   ,       i   t       u   s   e   s       t   h   e
0004240        G   E   T   F   I   L   E   I   N   F   O       f   u   n
0004260    c   t   i   o   n       t   o       g   e   t       t   h   e
0004300        f   i   l   e       t   y   p   e   .       W   h   e   n
0004320        t   r   a   n   s   f   e   r   r   i   n   g       f   r
0004340    o   m       t   h   e       D   o   l   p   h   i   n   ,    
0004360    i   t       a   c   c   e   p   t   s       a   n       o   p
0004400    t   i   o   n   a   l       t   h   i   r   d       a   r   g
0004420    u   m   e   n   t       b   e   i   n   g       e   i   t   h
0004440    e   r       T   E   X   T       o   r       B   I   N   A   R
0004460    Y       t   o       s   p   e   c   i   f   y       t   h   e
0004500        f   i   l   e       t   y   p   e   .       I   t       d
0004520    e   f   a   u   l   t   s       t   o       T   E   X   T    
0004540    i   f       n   o   t       g   i   v   e   n   .  \0  \0  \0
0004560   \0  \0 003   (   L   I   S   T       (   (   P   A   G   E    
0004600    N   I   L       (   F   O   L   I   O   I   N   F   O       (
0004620    A   R   A   B   I   C   )       S   T   A   R   T   I   N   G
0004640    P   A   G   E   #       1   )       (   0       0       6   1
0004660    2       7   9   2   )       (   (   F   O   L   I   O       N
0004700    I   L       (   P   A   R   A   L   O   O   K   S       (   Q
0004720    U   A   D       C   E   N   T   E   R   E   D   )       C   H
0004740    A   R   L   O   O   K   S       (   S   U   P   E   R   S   C
0004760    R   I   P   T       0       S   I   Z   E       1   0       F
0005000    A   M   I   L   Y       M   O   D   E   R   N       O   V   E
0005020    R   L   I   N   E       O   F   F       S   T   R   I   K   E
0005040    O   U   T       O   F   F       U   N   D   E   R   L   I   N
0005060    E       O   F   F       S   L   O   P   E       R   E   G   U
0005100    L   A   R       W   E   I   G   H   T       M   E   D   I   U
0005120    M   )       F   O   R   M   A   T   I   N   F   O       (   A
0005140    R   A   B   I   C   )   )       (   1   7   4       3   6    
0005160    2   8   8       3   6   )       N   I   L   )       (   H   E
0005200    A   D   I   N   G       N   I   L       (   H   E   A   D   I
0005220    N   G   T   Y   P   E       R   U   N   N   I   N   G   H   E
0005240    A   D   )       (   8   4       7   4   4       4   4   4    
0005260    3   6   )       N   I   L   )       (   T   E   X   T       N
0005300    I   L       N   I   L       (   8   4       9   6       4   5
0005320    6       6   0   0   )       N   I   L   )   )   )       (   P
0005340    A   G   E       N   I   L       N   I   L       (   0       0
0005360        6   1   2       7   9   2   )       (   (   F   O   L   I
0005400    O       N   I   L       (   P   A   R   A   L   O   O   K   S
0005420        (   Q   U   A   D       C   E   N   T   E   R   E   D   )
0005440        C   H   A   R   L   O   O   K   S       (   S   U   P   E
0005460    R   S   C   R   I   P   T       0       S   I   Z   E       1
0005500    0       F   A   M   I   L   Y       M   O   D   E   R   N    
0005520    O   V   E   R   L   I   N   E       O   F   F       S   T   R
0005540    I   K   E   O   U   T       O   F   F       U   N   D   E   R
0005560    L   I   N   E       O   F   F       S   L   O   P   E       R
0005600    E   G   U   L   A   R       W   E   I   G   H   T       M   E
0005620    D   I   U   M   )   )       (   2   8   2       4   2       7
0005640    2       3   6   )       N   I   L   )       (   H   E   A   D
0005660    I   N   G       N   I   L       (   H   E   A   D   I   N   G
0005700    T   Y   P   E       R   U   N   N   I   N   G   H   E   A   D
0005720    )       (   8   4       7   4   4       4   4   4       3   6
0005740    )       N   I   L   )       (   T   E   X   T       N   I   L
0005760        N   I   L       (   8   4       9   6       4   5   6    
0006000    6   0   0   )       N   I   L   )   )   )       (   P   A   G
0006020    E       N   I   L       N   I   L       (   0       0       6
0006040    1   2       7   9   2   )       (   (   F   O   L   I   O    
0006060    N   I   L       (   P   A   R   A   L   O   O   K   S       (
0006100    Q   U   A   D       C   E   N   T   E   R   E   D   )       C
0006120    H   A   R   L   O   O   K   S       (   S   U   P   E   R   S
0006140    C   R   I   P   T       0       S   I   Z   E       1   0    
0006160    F   A   M   I   L   Y       M   O   D   E   R   N       O   V
0006200    E   R   L   I   N   E       O   F   F       S   T   R   I   K
0006220    E   O   U   T       O   F   F       U   N   D   E   R   L   I
0006240    N   E       O   F   F       S   L   O   P   E       R   E   G
0006260    U   L   A   R       W   E   I   G   H   T       M   E   D   I
0006300    U   M   )   )       (   2   8   2       4   2       7   2    
0006320    3   6   )       N   I   L   )       (   H   E   A   D   I   N
0006340    G       N   I   L       (   H   E   A   D   I   N   G   T   Y
0006360    P   E       R   U   N   N   I   N   G   H   E   A   D   )    
0006400    (   8   4       7   4   4       4   4   4       3   6   )    
0006420    N   I   L   )       (   T   E   X   T       N   I   L       N
0006440    I   L       (   8   4       9   6       4   5   6       6   0
0006460    0   )       N   I   L   )   )   )   )   )  \0  \0  \0  \0  \0
0006500  005  \0 005  \0   (  \0  \0  \0  \0 001 310  \0 021  \0  \0  \0
0006520  004 002 003  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0
0006540   \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0   (  \0 212  \0
0006560  212 001   8  \0 006  \0  \0  \0 004 002 003  \0  \0  \0  \0  \0
0006600   \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0
0006620   \0  \0  \0  \0   (  \0  \0  \0  \0 001 310  \0  \v  \0  \0  \0
0006640  004 002 004  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0
0006660   \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0   (  \0 212  \0
0006700  212 001   8  \0  \0  \0  \0  \0 004 002 004  \0  \0  \0  \0  \0
0006720   \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0
0006740   \0  \0  \0  \0   D  \0  \0  \0  \0 001 310  \0  \0  \0  \0  \0
0006760   \0 003 004  \0  \0 001 001 310 001  \0  \0  \0  \0  \0  \0  \0
0007000   \v   P   A   G   E   H   E   A   D   I   N   G  \0  \v   R   U
0007020    N   N   I   N   G   H   E   A   D  \0  \0  \0  \0  \0  \0  \0
0007040   \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0 004  \0 005  \0
0007060  024  \0 006   M   O   D   E   R   N  \0  \n  \0  \0  \0  \0  \0
0007100   \0  \0  \0  \0 024  \0 006   M   O   D   E   R   N  \0  \f  \0
0007120   \0  \0  \0  \0  \0 002  \0  \0 024  \0 006   M   O   D   E   R
0007140    N  \0 006  \0  \0  \0  \0  \0  \0  \0  \0  \0 024  \0 006   M
0007160    O   D   E   R   N  \0  \n  \0  \0  \0  \0  \0  \0 001  \0  \0
0007200  022  \0 004   L   O   G   O  \0 030  \0  \0  \0  \0  \0  \0  \0
0007220   \0  \0  \0  \0  \0  \0 002  \0 005  \0  \0  \0 005  \0  \0  \0
0007240   \0 005  \0  \0  \0 001  \0  \0  \0  \0 003  \0  \0  \0  \b  \0
0007260   \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0 005  \0  \0  \0 002
0007300   \0 001  \0  \v   H   R   U   L   E   .   G   E   T   F   N 001
0007320   \0 024  \0 006   M   O   D   E   R   N  \0  \n  \0  \0  \0  \0
0007340   \0  \0  \0  \0  \0  \0  \0 001  \0  \0  \0  \0 001  \0  \0  \0
0007360   \0  \0 002  \0 004  \0  \0  \0 002  \0 001  \0  \v   H   R   U
0007400    L   E   .   G   E   T   F   N 001  \0 024  \0 006   M   O   D
0007420    E   R   N  \0  \n  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0  \0
0007440  001  \0  \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0 004  \0  \0
0007460   \0 002  \0 001  \0  \v   H   R   U   L   E   .   G   E   T   F
0007500    N 001  \0 024  \0 006   M   O   D   E   R   N  \0  \n  \0  \0
0007520   \0  \0  \0  \0  \0  \0  \0  \0  \0 001  \0  \0  \0  \0 001  \0
0007540   \0  \0  \0  \0 002  \0 002  \0  \0  \0  \b  \0  \0  \0  \0 002
0007560   \0  \0  \0  \0  \0 002  \0 002  \0  \0  \0 002  \0 001  \0  \v
0007600    H   R   U   L   E   .   G   E   T   F   N 001  \0 024  \0 006
0007620    M   O   D   E   R   N  \0  \f  \0  \0  \0  \0  \0  \0 002  \0
0007640   \0  \0  \0 001  \0  \0  \0  \0 002  \0  \0  \0  \0  \0 002  \0
0007660  004  \0  \0  \0 002  \0 001  \0  \v   H   R   U   L   E   .   G
0007700    E   T   F   N 001  \0 024  \0 006   M   O   D   E   R   N  \0
0007720   \f  \0  \0  \0  \0  \0  \0 002  \0  \0  \0  \0 001  \0  \0  \0
0007740   \0 002  \0  \0  \0  \0  \0 002  \0 001  \0  \0  \0   /  \0  \0
0007760   \0  \0 001  \0  \0  \0  \0  \0 002  \0 003  \0  \0  \0   X  \0
0010000   \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0 003  \0  \0  \0   '
0010020   \0  \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0 003  \0  \0 001
0010040    |  \0  \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0 003  \0  \0
0010060   \0   n  \0  \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0 003  \0
0010100   \0  \0   *  \0  \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0 003
0010120   \0  \0  \0 362  \0  \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0
0010140  003  \0  \0 001   )  \0  \0  \0  \0 001  \0  \0  \0  \0  \0 002
0010160   \0 003  \0  \0  \0   %  \0  \0  \0  \0 001  \0  \0  \0  \0  \0
0010200  002  \0 003  \0  \0  \0 030  \0  \0  \0  \0 001  \0  \0  \0 027
0010220   \0  \0  \0  \0 004  \0  \0  \0   E  \0  \0  \0  \0 001  \0  \0
0010240   \0  \f  \0  \0  \0  \0 004  \0  \0  \0   +  \0  \0  \0  \0 001
0010260   \0  \0  \0  \b  \0  \0  \0  \0 004  \0  \0  \0   _  \0  \0  \0
0010300   \0 001  \0  \0  \0  \0  \0 002  \0 003  \0  \0  \0 316  \0  \0
0010320   \0  \0 001  \0  \0  \0  \0  \0 002  \0 003  \0  \0  \0 321  \0
0010340   \0  \0  \0 001  \0  \0  \0  \0  \0 002  \0 003  \0  \0 001 225
0010360   \0  \0  \0  \0 001  \0  \0  \t   m  \0   6   z 272            
0010375