$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron2.0>Shared-Derived>SaffronAG5Def.Mesa!17
0000000    -   -       S   a   f   f   r   o   n   A   G   5   D   e   f
0000020    .   m   e   s   a  \r       -   -       C   o   p   y   r   i
0000040    g   h   t     323       1   9   8   7       b   y       X   e
0000060    r   o   x       C   o   r   p   o   r   a   t   i   o   n   .
0000100            A   l   l       r   i   g   h   t   s       r   e   s
0000120    e   r   v   e   d   .  \r       -   -       G   e   n   e   r
0000140    a   t   e   d       b   y       h   e   d   e   r   m   a   n
0000160    .   p   a       a   t       A   u   g   u   s   t       1   7
0000200    ,       1   9   8   7       4   :   3   3   :   1   0       p
0000220    m       P   D   T  \r       -   -           u   s   i   n   g
0000240        T   h   r   e   e   C   a   s   a   b   a   F   o   u   r
0000260        [   1   .   2   ]       o   f       J   u   n   e       1
0000300    ,       1   9   8   7       6   :   0   0   :   0   0       p
0000320    m       P   D   T  \r  \r   D   I   R   E   C   T   O   R   Y
0000340   \r  \t   S   a   f   f   r   o   n   T   r   e   e   D   e   c
0000360    l   s   D   e   f   ,  \r  \t   S   a   f   f   r   o   n   G
0000400    e   n   e   r   i   c   D   e   f   ,  \r  \t   S   a   f   f
0000420    r   o   n   A   T   D   e   f   ;  \r  \r   S   a   f   f   r
0000440    o   n   A   G   5   D   e   f   :       C   E   D   A   R    
0000460    D   E   F   I   N   I   T   I   O   N   S       =      \r   B
0000500    E   G   I   N  \r   O   P   E   N       S   a   f   f   r   o
0000520    n   T   r   e   e   D   e   c   l   s   D   e   f   ,       S
0000540    a   f   f   r   o   n   G   e   n   e   r   i   c   D   e   f
0000560    ,       S   a   f   f   r   o   n   A   T   D   e   f   ;  \r
0000600   \r   -   -       D   e   c   L   i   s   t   o   n   e   P   r
0000620    o   d  \r  \r   D   e   c   L   i   s   t   o   n   e   P   r
0000640    o   d   D   a   t   a   :  \t   T   Y   P   E       =       R
0000660    E   F       D   e   c   L   i   s   t   o   n   e   P   r   o
0000700    d   D   a   t   a   B   o   d   y   ;  \r   D   e   c   L   i
0000720    s   t   o   n   e   P   r   o   d   D   a   t   a   B   o   d
0000740    y   :  \t   T   Y   P   E       =       R   E   C   O   R   D
0000760    [  \r   D   e   c   l   a   r   a   t   i   o   n   :       D
0001000    e   c   l   a   r   a   t   i   o   n   N   o   d   e   ]   ;
0001020   \r  \r   D   e   c   L   i   s   t   o   n   e   P   r   o   d
0001040    P   r   o   c   s   :  \t   D   e   c   L   i   s   t   N   o
0001060    d   e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d   D
0001100    e   c   L   i   s   t   o   n   e   P   r   o   d   N   o   d
0001120    e   :  \t   P   R   O   C   [   p   o   s   i   t   i   o   n
0001140    :       I   N   T   ,       l   e   n   g   t   h   :       I
0001160    N   T   ,       D   e   c   l   a   r   a   t   i   o   n   :
0001200        D   e   c   l   a   r   a   t   i   o   n   N   o   d   e
0001220    ]  \r  \t   R   E   T   U   R   N   S   [   D   e   c   L   i
0001240    s   t   N   o   d   e   ]   ;  \r  \r   D   e   c   L   i   s
0001260    t   o   n   e   P   r   o   d   U   p   d   a   t   e   L   o
0001300    c   a   l   C   o   n   t   e   x   t   :  \t   U   p   d   a
0001320    t   e   L   o   c   a   l   C   o   n   t   e   x   t   P   r
0001340    o   c   T   y   p   e   ;  \r   D   e   c   L   i   s   t   o
0001360    n   e   P   r   o   d   P   u   t   N   e   w   N   a   m   e
0001400    s   I   n   L   o   c   a   l   C   o   n   t   e   x   t   :
0001420   \t   P   u   t   N   e   w   N   a   m   e   s   I   n   L   o
0001440    c   a   l   C   o   n   t   e   x   t   P   r   o   c   T   y
0001460    p   e   ;  \r   D   e   c   L   i   s   t   o   n   e   P   r
0001500    o   d   F   i   l   l   I   n   L   o   c   a   l   C   o   n
0001520    t   e   x   t   :  \t   F   i   l   l   I   n   L   o   c   a
0001540    l   C   o   n   t   e   x   t   P   r   o   c   T   y   p   e
0001560    ;  \r   D   e   c   L   i   s   t   o   n   e   P   r   o   d
0001600    H   a   n   g   C   o   n   t   e   x   t   s   F   r   o   m
0001620    C   o   n   t   e   x   t   T   r   e   e   :  \t   H   a   n
0001640    g   C   o   n   t   e   x   t   s   F   r   o   m   C   o   n
0001660    t   e   x   t   T   r   e   e   P   r   o   c   T   y   p   e
0001700    ;  \r  \r   -   -       D   e   c   L   i   s   t   m   a   n
0001720    y   P   r   o   d  \r  \r   D   e   c   L   i   s   t   m   a
0001740    n   y   P   r   o   d   D   a   t   a   :  \t   T   Y   P   E
0001760        =       R   E   F       D   e   c   L   i   s   t   m   a
0002000    n   y   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r
0002020    D   e   c   L   i   s   t   m   a   n   y   P   r   o   d   D
0002040    a   t   a   B   o   d   y   :  \t   T   Y   P   E       =    
0002060    R   E   C   O   R   D   [  \r   D   e   c   L   i   s   t   h
0002100    e   a   d   :       D   e   c   L   i   s   t   N   o   d   e
0002120    ,       D   e   c   L   i   s   t   t   a   i   l   :       D
0002140    e   c   L   i   s   t   N   o   d   e   ]   ;  \r  \r   D   e
0002160    c   L   i   s   t   m   a   n   y   P   r   o   d   P   r   o
0002200    c   s   :  \t   D   e   c   L   i   s   t   N   o   d   e   P
0002220    r   o   c   s   ;  \r  \r   B   u   i   l   d   D   e   c   L
0002240    i   s   t   m   a   n   y   P   r   o   d   N   o   d   e   :
0002260   \t   P   R   O   C   [   p   o   s   i   t   i   o   n   :    
0002300    I   N   T   ,       l   e   n   g   t   h   :       I   N   T
0002320    ,       D   e   c   L   i   s   t   h   e   a   d   :       D
0002340    e   c   L   i   s   t   N   o   d   e   ,       D   e   c   L
0002360    i   s   t   t   a   i   l   :       D   e   c   L   i   s   t
0002400    N   o   d   e   ]  \r  \t   R   E   T   U   R   N   S   [   D
0002420    e   c   L   i   s   t   N   o   d   e   ]   ;  \r  \r   D   e
0002440    c   L   i   s   t   m   a   n   y   P   r   o   d   U   p   d
0002460    a   t   e   L   o   c   a   l   C   o   n   t   e   x   t   :
0002500   \t   U   p   d   a   t   e   L   o   c   a   l   C   o   n   t
0002520    e   x   t   P   r   o   c   T   y   p   e   ;  \r   D   e   c
0002540    L   i   s   t   m   a   n   y   P   r   o   d   P   u   t   N
0002560    e   w   N   a   m   e   s   I   n   L   o   c   a   l   C   o
0002600    n   t   e   x   t   :  \t   P   u   t   N   e   w   N   a   m
0002620    e   s   I   n   L   o   c   a   l   C   o   n   t   e   x   t
0002640    P   r   o   c   T   y   p   e   ;  \r   D   e   c   L   i   s
0002660    t   m   a   n   y   P   r   o   d   F   i   l   l   I   n   L
0002700    o   c   a   l   C   o   n   t   e   x   t   :  \t   F   i   l
0002720    l   I   n   L   o   c   a   l   C   o   n   t   e   x   t   P
0002740    r   o   c   T   y   p   e   ;  \r   D   e   c   L   i   s   t
0002760    m   a   n   y   P   r   o   d   H   a   n   g   C   o   n   t
0003000    e   x   t   s   F   r   o   m   C   o   n   t   e   x   t   T
0003020    r   e   e   :  \t   H   a   n   g   C   o   n   t   e   x   t
0003040    s   F   r   o   m   C   o   n   t   e   x   t   T   r   e   e
0003060    P   r   o   c   T   y   p   e   ;  \r  \r   -   -       D   e
0003100    c   l   a   r   a   t   i   o   n   v   a   l   u   e   P   r
0003120    o   d  \r  \r   D   e   c   l   a   r   a   t   i   o   n   v
0003140    a   l   u   e   P   r   o   d   D   a   t   a   :  \t   T   Y
0003160    P   E       =       R   E   F       D   e   c   l   a   r   a
0003200    t   i   o   n   v   a   l   u   e   P   r   o   d   D   a   t
0003220    a   B   o   d   y   ;  \r   D   e   c   l   a   r   a   t   i
0003240    o   n   v   a   l   u   e   P   r   o   d   D   a   t   a   B
0003260    o   d   y   :  \t   T   Y   P   E       =       R   E   C   O
0003300    R   D   [  \r   I   d   e   n   t   L   i   s   t   :       I
0003320    d   e   n   t   L   i   s   t   N   o   d   e   ,       A   c
0003340    c   e   s   s   :       A   c   c   e   s   s   N   o   d   e
0003360    ,       E   n   t   r   y   :       E   n   t   r   y   N   o
0003400    d   e   ,       R   e   a   d   O   n   l   y   :       R   e
0003420    a   d   O   n   l   y   N   o   d   e   ,       T   y   p   e
0003440    E   x   p   :       T   y   p   e   E   x   p   N   o   d   e
0003460    ,       I   n   i   t   i   a   l   i   z   a   t   i   o   n
0003500    :       I   n   i   t   i   a   l   i   z   a   t   i   o   n
0003520    N   o   d   e   ]   ;  \r  \r   D   e   c   l   a   r   a   t
0003540    i   o   n   v   a   l   u   e   P   r   o   d   P   r   o   c
0003560    s   :  \t   D   e   c   l   a   r   a   t   i   o   n   N   o
0003600    d   e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d   D
0003620    e   c   l   a   r   a   t   i   o   n   v   a   l   u   e   P
0003640    r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o
0003660    s   i   t   i   o   n   :       I   N   T   ,       l   e   n
0003700    g   t   h   :       I   N   T   ,       I   d   e   n   t   L
0003720    i   s   t   :       I   d   e   n   t   L   i   s   t   N   o
0003740    d   e   ,       A   c   c   e   s   s   :       A   c   c   e
0003760    s   s   N   o   d   e   ,       E   n   t   r   y   :       E
0004000    n   t   r   y   N   o   d   e   ,       R   e   a   d   O   n
0004020    l   y   :       R   e   a   d   O   n   l   y   N   o   d   e
0004040    ,       T   y   p   e   E   x   p   :       T   y   p   e   E
0004060    x   p   N   o   d   e   ,       I   n   i   t   i   a   l   i
0004100    z   a   t   i   o   n   :       I   n   i   t   i   a   l   i
0004120    z   a   t   i   o   n   N   o   d   e   ]  \r  \t   R   E   T
0004140    U   R   N   S   [   D   e   c   l   a   r   a   t   i   o   n
0004160    N   o   d   e   ]   ;  \r  \r   D   e   c   l   a   r   a   t
0004200    i   o   n   v   a   l   u   e   P   r   o   d   P   u   t   N
0004220    e   w   N   a   m   e   s   I   n   L   o   c   a   l   C   o
0004240    n   t   e   x   t   :  \t   P   u   t   N   e   w   N   a   m
0004260    e   s   I   n   L   o   c   a   l   C   o   n   t   e   x   t
0004300    P   r   o   c   T   y   p   e   ;  \r   D   e   c   l   a   r
0004320    a   t   i   o   n   v   a   l   u   e   P   r   o   d   F   i
0004340    l   l   I   n   L   o   c   a   l   C   o   n   t   e   x   t
0004360    :  \t   F   i   l   l   I   n   L   o   c   a   l   C   o   n
0004400    t   e   x   t   P   r   o   c   T   y   p   e   ;  \r   D   e
0004420    c   l   a   r   a   t   i   o   n   v   a   l   u   e   P   r
0004440    o   d   H   a   n   g   C   o   n   t   e   x   t   s   F   r
0004460    o   m   C   o   n   t   e   x   t   T   r   e   e   :  \t   H
0004500    a   n   g   C   o   n   t   e   x   t   s   F   r   o   m   C
0004520    o   n   t   e   x   t   T   r   e   e   P   r   o   c   T   y
0004540    p   e   ;  \r  \r   -   -       D   e   c   l   a   r   a   t
0004560    i   o   n   t   y   p   e   P   r   o   d  \r  \r   D   e   c
0004600    l   a   r   a   t   i   o   n   t   y   p   e   P   r   o   d
0004620    D   a   t   a   :  \t   T   Y   P   E       =       R   E   F
0004640        D   e   c   l   a   r   a   t   i   o   n   t   y   p   e
0004660    P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   D   e
0004700    c   l   a   r   a   t   i   o   n   t   y   p   e   P   r   o
0004720    d   D   a   t   a   B   o   d   y   :  \t   T   Y   P   E    
0004740    =       R   E   C   O   R   D   [  \r   I   d   e   n   t   L
0004760    i   s   t   :       I   d   e   n   t   L   i   s   t   N   o
0005000    d   e   ,       A   c   c   e   s   s   i   d   :       A   c
0005020    c   e   s   s   N   o   d   e   ,       A   c   c   e   s   s
0005040    t   y   p   e   :       A   c   c   e   s   s   N   o   d   e
0005060    ,       T   y   p   e   E   x   p   :       T   y   p   e   E
0005100    x   p   N   o   d   e   ,       D   e   f   a   u   l   t   :
0005120        D   e   f   a   u   l   t   N   o   d   e   ]   ;  \r  \r
0005140    D   e   c   l   a   r   a   t   i   o   n   t   y   p   e   P
0005160    r   o   d   P   r   o   c   s   :  \t   D   e   c   l   a   r
0005200    a   t   i   o   n   N   o   d   e   P   r   o   c   s   ;  \r
0005220   \r   B   u   i   l   d   D   e   c   l   a   r   a   t   i   o
0005240    n   t   y   p   e   P   r   o   d   N   o   d   e   :  \t   P
0005260    R   O   C   [   p   o   s   i   t   i   o   n   :       I   N
0005300    T   ,       l   e   n   g   t   h   :       I   N   T   ,    
0005320    I   d   e   n   t   L   i   s   t   :       I   d   e   n   t
0005340    L   i   s   t   N   o   d   e   ,       A   c   c   e   s   s
0005360    i   d   :       A   c   c   e   s   s   N   o   d   e   ,    
0005400    A   c   c   e   s   s   t   y   p   e   :       A   c   c   e
0005420    s   s   N   o   d   e   ,       T   y   p   e   E   x   p   :
0005440        T   y   p   e   E   x   p   N   o   d   e   ,       D   e
0005460    f   a   u   l   t   :       D   e   f   a   u   l   t   N   o
0005500    d   e   ]  \r  \t   R   E   T   U   R   N   S   [   D   e   c
0005520    l   a   r   a   t   i   o   n   N   o   d   e   ]   ;  \r  \r
0005540    D   e   c   l   a   r   a   t   i   o   n   t   y   p   e   P
0005560    r   o   d   P   u   t   N   e   w   N   a   m   e   s   I   n
0005600    L   o   c   a   l   C   o   n   t   e   x   t   :  \t   P   u
0005620    t   N   e   w   N   a   m   e   s   I   n   L   o   c   a   l
0005640    C   o   n   t   e   x   t   P   r   o   c   T   y   p   e   ;
0005660   \r   D   e   c   l   a   r   a   t   i   o   n   t   y   p   e
0005700    P   r   o   d   F   i   l   l   I   n   L   o   c   a   l   C
0005720    o   n   t   e   x   t   :  \t   F   i   l   l   I   n   L   o
0005740    c   a   l   C   o   n   t   e   x   t   P   r   o   c   T   y
0005760    p   e   ;  \r   D   e   c   l   a   r   a   t   i   o   n   t
0006000    y   p   e   P   r   o   d   H   a   n   g   C   o   n   t   e
0006020    x   t   s   F   r   o   m   C   o   n   t   e   x   t   T   r
0006040    e   e   :  \t   H   a   n   g   C   o   n   t   e   x   t   s
0006060    F   r   o   m   C   o   n   t   e   x   t   T   r   e   e   P
0006100    r   o   c   T   y   p   e   ;  \r  \r   -   -       D   e   c
0006120    l   a   r   a   t   i   o   n   o   p   a   q   u   e   t   y
0006140    p   e   P   r   o   d  \r  \r   D   e   c   l   a   r   a   t
0006160    i   o   n   o   p   a   q   u   e   t   y   p   e   P   r   o
0006200    d   D   a   t   a   :  \t   T   Y   P   E       =       R   E
0006220    F       D   e   c   l   a   r   a   t   i   o   n   o   p   a
0006240    q   u   e   t   y   p   e   P   r   o   d   D   a   t   a   B
0006260    o   d   y   ;  \r   D   e   c   l   a   r   a   t   i   o   n
0006300    o   p   a   q   u   e   t   y   p   e   P   r   o   d   D   a
0006320    t   a   B   o   d   y   :  \t   T   Y   P   E       =       R
0006340    E   C   O   R   D   [  \r   I   d   e   n   t   L   i   s   t
0006360    :       I   d   e   n   t   L   i   s   t   N   o   d   e   ,
0006400        A   c   c   e   s   s   :       A   c   c   e   s   s   N
0006420    o   d   e   ,       O   p   t   S   i   z   e   :       O   p
0006440    t   S   i   z   e   N   o   d   e   ]   ;  \r  \r   D   e   c
0006460    l   a   r   a   t   i   o   n   o   p   a   q   u   e   t   y
0006500    p   e   P   r   o   d   P   r   o   c   s   :  \t   D   e   c
0006520    l   a   r   a   t   i   o   n   N   o   d   e   P   r   o   c
0006540    s   ;  \r  \r   B   u   i   l   d   D   e   c   l   a   r   a
0006560    t   i   o   n   o   p   a   q   u   e   t   y   p   e   P   r
0006600    o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o   s
0006620    i   t   i   o   n   :       I   N   T   ,       l   e   n   g
0006640    t   h   :       I   N   T   ,       I   d   e   n   t   L   i
0006660    s   t   :       I   d   e   n   t   L   i   s   t   N   o   d
0006700    e   ,       A   c   c   e   s   s   :       A   c   c   e   s
0006720    s   N   o   d   e   ,       O   p   t   S   i   z   e   :    
0006740    O   p   t   S   i   z   e   N   o   d   e   ]  \r  \t   R   E
0006760    T   U   R   N   S   [   D   e   c   l   a   r   a   t   i   o
0007000    n   N   o   d   e   ]   ;  \r  \r   D   e   c   l   a   r   a
0007020    t   i   o   n   o   p   a   q   u   e   t   y   p   e   P   r
0007040    o   d   P   u   t   N   e   w   N   a   m   e   s   I   n   L
0007060    o   c   a   l   C   o   n   t   e   x   t   :  \t   P   u   t
0007100    N   e   w   N   a   m   e   s   I   n   L   o   c   a   l   C
0007120    o   n   t   e   x   t   P   r   o   c   T   y   p   e   ;  \r
0007140    D   e   c   l   a   r   a   t   i   o   n   o   p   a   q   u
0007160    e   t   y   p   e   P   r   o   d   F   i   l   l   I   n   L
0007200    o   c   a   l   C   o   n   t   e   x   t   :  \t   F   i   l
0007220    l   I   n   L   o   c   a   l   C   o   n   t   e   x   t   P
0007240    r   o   c   T   y   p   e   ;  \r   D   e   c   l   a   r   a
0007260    t   i   o   n   o   p   a   q   u   e   t   y   p   e   P   r
0007300    o   d   H   a   n   g   C   o   n   t   e   x   t   s   F   r
0007320    o   m   C   o   n   t   e   x   t   T   r   e   e   :  \t   H
0007340    a   n   g   C   o   n   t   e   x   t   s   F   r   o   m   C
0007360    o   n   t   e   x   t   T   r   e   e   P   r   o   c   T   y
0007400    p   e   ;  \r  \r   -   -       O   p   t   S   i   z   e   a
0007420    b   s   e   n   t   P   r   o   d  \r  \r   O   p   t   S   i
0007440    z   e   a   b   s   e   n   t   P   r   o   d   D   a   t   a
0007460    :  \t   T   Y   P   E       =       R   E   F       O   p   t
0007500    S   i   z   e   a   b   s   e   n   t   P   r   o   d   D   a
0007520    t   a   B   o   d   y   ;  \r   O   p   t   S   i   z   e   a
0007540    b   s   e   n   t   P   r   o   d   D   a   t   a   B   o   d
0007560    y   :  \t   T   Y   P   E       =       R   E   C   O   R   D
0007600    [  \r   ]   ;  \r  \r   O   p   t   S   i   z   e   a   b   s
0007620    e   n   t   P   r   o   d   P   r   o   c   s   :  \t   O   p
0007640    t   S   i   z   e   N   o   d   e   P   r   o   c   s   ;  \r
0007660   \r   B   u   i   l   d   O   p   t   S   i   z   e   a   b   s
0007700    e   n   t   P   r   o   d   N   o   d   e   :  \t   P   R   O
0007720    C   [   p   o   s   i   t   i   o   n   :       I   N   T   ,
0007740        l   e   n   g   t   h   :       I   N   T   ]  \r  \t   R
0007760    E   T   U   R   N   S   [   O   p   t   S   i   z   e   N   o
0010000    d   e   ]   ;  \r  \r   O   p   t   S   i   z   e   a   b   s
0010020    e   n   t   P   r   o   d   G   e   t   E   x   p   V   a   l
0010040    :  \t   G   e   t   E   x   p   V   a   l   P   r   o   c   T
0010060    y   p   e   ;  \r  \r   -   -       O   p   t   S   i   z   e
0010100    p   r   e   s   e   n   t   P   r   o   d  \r  \r   O   p   t
0010120    S   i   z   e   p   r   e   s   e   n   t   P   r   o   d   D
0010140    a   t   a   :  \t   T   Y   P   E       =       R   E   F    
0010160    O   p   t   S   i   z   e   p   r   e   s   e   n   t   P   r
0010200    o   d   D   a   t   a   B   o   d   y   ;  \r   O   p   t   S
0010220    i   z   e   p   r   e   s   e   n   t   P   r   o   d   D   a
0010240    t   a   B   o   d   y   :  \t   T   Y   P   E       =       R
0010260    E   C   O   R   D   [  \r   E   x   p   :       E   x   p   N
0010300    o   d   e   ]   ;  \r  \r   O   p   t   S   i   z   e   p   r
0010320    e   s   e   n   t   P   r   o   d   P   r   o   c   s   :  \t
0010340    O   p   t   S   i   z   e   N   o   d   e   P   r   o   c   s
0010360    ;  \r  \r   B   u   i   l   d   O   p   t   S   i   z   e   p
0010400    r   e   s   e   n   t   P   r   o   d   N   o   d   e   :  \t
0010420    P   R   O   C   [   p   o   s   i   t   i   o   n   :       I
0010440    N   T   ,       l   e   n   g   t   h   :       I   N   T   ,
0010460        E   x   p   :       E   x   p   N   o   d   e   ]  \r  \t
0010500    R   E   T   U   R   N   S   [   O   p   t   S   i   z   e   N
0010520    o   d   e   ]   ;  \r  \r   O   p   t   S   i   z   e   p   r
0010540    e   s   e   n   t   P   r   o   d   G   e   t   E   x   p   V
0010560    a   l   :  \t   G   e   t   E   x   p   V   a   l   P   r   o
0010600    c   T   y   p   e   ;  \r  \r   -   -       E   n   t   r   y
0010620    e   n   t   r   y   P   r   o   d  \r  \r   E   n   t   r   y
0010640    e   n   t   r   y   P   r   o   d   D   a   t   a   :  \t   T
0010660    Y   P   E       =       R   E   F       E   n   t   r   y   e
0010700    n   t   r   y   P   r   o   d   D   a   t   a   B   o   d   y
0010720    ;  \r   E   n   t   r   y   e   n   t   r   y   P   r   o   d
0010740    D   a   t   a   B   o   d   y   :  \t   T   Y   P   E       =
0010760        R   E   C   O   R   D   [  \r   ]   ;  \r  \r   E   n   t
0011000    r   y   e   n   t   r   y   P   r   o   d   P   r   o   c   s
0011020    :  \t   E   n   t   r   y   N   o   d   e   P   r   o   c   s
0011040    ;  \r  \r   B   u   i   l   d   E   n   t   r   y   e   n   t
0011060    r   y   P   r   o   d   N   o   d   e   :  \t   P   R   O   C
0011100    [   p   o   s   i   t   i   o   n   :       I   N   T   ,    
0011120    l   e   n   g   t   h   :       I   N   T   ]  \r  \t   R   E
0011140    T   U   R   N   S   [   E   n   t   r   y   N   o   d   e   ]
0011160    ;  \r  \r   E   n   t   r   y   e   n   t   r   y   P   r   o
0011200    d   f   o   o   :  \t   f   o   o   P   r   o   c   T   y   p
0011220    e   ;  \r  \r   -   -       E   n   t   r   y   i   n   t   e
0011240    r   n   a   l   P   r   o   d  \r  \r   E   n   t   r   y   i
0011260    n   t   e   r   n   a   l   P   r   o   d   D   a   t   a   :
0011300   \t   T   Y   P   E       =       R   E   F       E   n   t   r
0011320    y   i   n   t   e   r   n   a   l   P   r   o   d   D   a   t
0011340    a   B   o   d   y   ;  \r   E   n   t   r   y   i   n   t   e
0011360    r   n   a   l   P   r   o   d   D   a   t   a   B   o   d   y
0011400    :  \t   T   Y   P   E       =       R   E   C   O   R   D   [
0011420   \r   ]   ;  \r  \r   E   n   t   r   y   i   n   t   e   r   n
0011440    a   l   P   r   o   d   P   r   o   c   s   :  \t   E   n   t
0011460    r   y   N   o   d   e   P   r   o   c   s   ;  \r  \r   B   u
0011500    i   l   d   E   n   t   r   y   i   n   t   e   r   n   a   l
0011520    P   r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p
0011540    o   s   i   t   i   o   n   :       I   N   T   ,       l   e
0011560    n   g   t   h   :       I   N   T   ]  \r  \t   R   E   T   U
0011600    R   N   S   [   E   n   t   r   y   N   o   d   e   ]   ;  \r
0011620   \r   E   n   t   r   y   i   n   t   e   r   n   a   l   P   r
0011640    o   d   f   o   o   :  \t   f   o   o   P   r   o   c   T   y
0011660    p   e   ;  \r  \r   -   -       E   n   t   r   y   e   m   p
0011700    t   y   P   r   o   d  \r  \r   E   n   t   r   y   e   m   p
0011720    t   y   P   r   o   d   D   a   t   a   :  \t   T   Y   P   E
0011740        =       R   E   F       E   n   t   r   y   e   m   p   t
0011760    y   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   E
0012000    n   t   r   y   e   m   p   t   y   P   r   o   d   D   a   t
0012020    a   B   o   d   y   :  \t   T   Y   P   E       =       R   E
0012040    C   O   R   D   [  \r   ]   ;  \r  \r   E   n   t   r   y   e
0012060    m   p   t   y   P   r   o   d   P   r   o   c   s   :  \t   E
0012100    n   t   r   y   N   o   d   e   P   r   o   c   s   ;  \r  \r
0012120    B   u   i   l   d   E   n   t   r   y   e   m   p   t   y   P
0012140    r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o
0012160    s   i   t   i   o   n   :       I   N   T   ,       l   e   n
0012200    g   t   h   :       I   N   T   ]  \r  \t   R   E   T   U   R
0012220    N   S   [   E   n   t   r   y   N   o   d   e   ]   ;  \r  \r
0012240    E   n   t   r   y   e   m   p   t   y   P   r   o   d   f   o
0012260    o   :  \t   f   o   o   P   r   o   c   T   y   p   e   ;  \r
0012300   \r   -   -       E   x   i   t   L   i   s   t   e   m   p   t
0012320    y   P   r   o   d  \r  \r   E   x   i   t   L   i   s   t   e
0012340    m   p   t   y   P   r   o   d   D   a   t   a   :  \t   T   Y
0012360    P   E       =       R   E   F       E   x   i   t   L   i   s
0012400    t   e   m   p   t   y   P   r   o   d   D   a   t   a   B   o
0012420    d   y   ;  \r   E   x   i   t   L   i   s   t   e   m   p   t
0012440    y   P   r   o   d   D   a   t   a   B   o   d   y   :  \t   T
0012460    Y   P   E       =       R   E   C   O   R   D   [  \r   ]   ;
0012500   \r  \r   E   x   i   t   L   i   s   t   e   m   p   t   y   P
0012520    r   o   d   P   r   o   c   s   :  \t   E   x   i   t   L   i
0012540    s   t   N   o   d   e   P   r   o   c   s   ;  \r  \r   B   u
0012560    i   l   d   E   x   i   t   L   i   s   t   e   m   p   t   y
0012600    P   r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p
0012620    o   s   i   t   i   o   n   :       I   N   T   ,       l   e
0012640    n   g   t   h   :       I   N   T   ]  \r  \t   R   E   T   U
0012660    R   N   S   [   E   x   i   t   L   i   s   t   N   o   d   e
0012700    ]   ;  \r  \r   E   x   i   t   L   i   s   t   e   m   p   t
0012720    y   P   r   o   d   f   o   o   :  \t   f   o   o   P   r   o
0012740    c   T   y   p   e   ;  \r  \r   -   -       E   x   i   t   L
0012760    i   s   t   m   o   r   e   P   r   o   d  \r  \r   E   x   i
0013000    t   L   i   s   t   m   o   r   e   P   r   o   d   D   a   t
0013020    a   :  \t   T   Y   P   E       =       R   E   F       E   x
0013040    i   t   L   i   s   t   m   o   r   e   P   r   o   d   D   a
0013060    t   a   B   o   d   y   ;  \r   E   x   i   t   L   i   s   t
0013100    m   o   r   e   P   r   o   d   D   a   t   a   B   o   d   y
0013120    :  \t   T   Y   P   E       =       R   E   C   O   R   D   [
0013140   \r   E   x   i   t   L   i   s   t   :       E   x   i   t   L
0013160    i   s   t   N   o   d   e   ,       E   x   i   t   I   t   e
0013200    m   :       E   x   i   t   I   t   e   m   N   o   d   e   ]
0013220    ;  \r  \r   E   x   i   t   L   i   s   t   m   o   r   e   P
0013240    r   o   d   P   r   o   c   s   :  \t   E   x   i   t   L   i
0013260    s   t   N   o   d   e   P   r   o   c   s   ;  \r  \r   B   u
0013300    i   l   d   E   x   i   t   L   i   s   t   m   o   r   e   P
0013320    r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o
0013340    s   i   t   i   o   n   :       I   N   T   ,       l   e   n
0013360    g   t   h   :       I   N   T   ,       E   x   i   t   L   i
0013400    s   t   :       E   x   i   t   L   i   s   t   N   o   d   e
0013420    ,       E   x   i   t   I   t   e   m   :       E   x   i   t
0013440    I   t   e   m   N   o   d   e   ]  \r  \t   R   E   T   U   R
0013460    N   S   [   E   x   i   t   L   i   s   t   N   o   d   e   ]
0013500    ;  \r  \r   E   x   i   t   L   i   s   t   m   o   r   e   P
0013520    r   o   d   f   o   o   :  \t   f   o   o   P   r   o   c   T
0013540    y   p   e   ;  \r  \r   -   -       E   x   i   t   I   t   e
0013560    m   P   r   o   d  \r  \r   E   x   i   t   I   t   e   m   P
0013600    r   o   d   D   a   t   a   :  \t   T   Y   P   E       =    
0013620    R   E   F       E   x   i   t   I   t   e   m   P   r   o   d
0013640    D   a   t   a   B   o   d   y   ;  \r   E   x   i   t   I   t
0013660    e   m   P   r   o   d   D   a   t   a   B   o   d   y   :  \t
0013700    T   Y   P   E       =       R   E   C   O   R   D   [  \r   I
0013720    d   L   i   s   t   :       I   d   L   i   s   t   N   o   d
0013740    e   ,       S   t   a   t   e   m   e   n   t   :       S   t
0013760    a   t   e   m   e   n   t   N   o   d   e   ]   ;  \r  \r   E
0014000    x   i   t   I   t   e   m   P   r   o   d   P   r   o   c   s
0014020    :  \t   E   x   i   t   I   t   e   m   N   o   d   e   P   r
0014040    o   c   s   ;  \r  \r   B   u   i   l   d   E   x   i   t   I
0014060    t   e   m   P   r   o   d   N   o   d   e   :  \t   P   R   O
0014100    C   [   p   o   s   i   t   i   o   n   :       I   N   T   ,
0014120        l   e   n   g   t   h   :       I   N   T   ,       I   d
0014140    L   i   s   t   :       I   d   L   i   s   t   N   o   d   e
0014160    ,       S   t   a   t   e   m   e   n   t   :       S   t   a
0014200    t   e   m   e   n   t   N   o   d   e   ]  \r  \t   R   E   T
0014220    U   R   N   S   [   E   x   i   t   I   t   e   m   N   o   d
0014240    e   ]   ;  \r  \r   E   x   i   t   I   t   e   m   P   r   o
0014260    d   f   o   o   :  \t   f   o   o   P   r   o   c   T   y   p
0014300    e   ;  \r  \r   -   -       B   i   n   d   L   i   s   t   e
0014320    m   p   t   y   P   r   o   d  \r  \r   B   i   n   d   L   i
0014340    s   t   e   m   p   t   y   P   r   o   d   D   a   t   a   :
0014360   \t   T   Y   P   E       =       R   E   F       B   i   n   d
0014400    L   i   s   t   e   m   p   t   y   P   r   o   d   D   a   t
0014420    a   B   o   d   y   ;  \r   B   i   n   d   L   i   s   t   e
0014440    m   p   t   y   P   r   o   d   D   a   t   a   B   o   d   y
0014460    :  \t   T   Y   P   E       =       R   E   C   O   R   D   [
0014500   \r   ]   ;  \r  \r   B   i   n   d   L   i   s   t   e   m   p
0014520    t   y   P   r   o   d   P   r   o   c   s   :  \t   B   i   n
0014540    d   L   i   s   t   N   o   d   e   P   r   o   c   s   ;  \r
0014560   \r   B   u   i   l   d   B   i   n   d   L   i   s   t   e   m
0014600    p   t   y   P   r   o   d   N   o   d   e   :  \t   P   R   O
0014620    C   [   p   o   s   i   t   i   o   n   :       I   N   T   ,
0014640        l   e   n   g   t   h   :       I   N   T   ]  \r  \t   R
0014660    E   T   U   R   N   S   [   B   i   n   d   L   i   s   t   N
0014700    o   d   e   ]   ;  \r  \r   B   i   n   d   L   i   s   t   e
0014720    m   p   t   y   P   r   o   d   M   a   k   e   B   i   n   d
0014740    L   i   s   t   C   o   n   t   e   x   t   T   r   e   e   W
0014760    i   t   h   S   c   o   p   e   :  \t   M   a   k   e   B   i
0015000    n   d   L   i   s   t   C   o   n   t   e   x   t   T   r   e
0015020    e   W   i   t   h   S   c   o   p   e   P   r   o   c   T   y
0015040    p   e   ;  \r   B   i   n   d   L   i   s   t   e   m   p   t
0015060    y   P   r   o   d   M   a   k   e   B   i   n   d   L   i   s
0015100    t   C   o   n   t   e   x   t   T   r   e   e   W   i   t   h
0015120    D   e   f   B   o   d   y   :  \t   M   a   k   e   B   i   n
0015140    d   L   i   s   t   C   o   n   t   e   x   t   T   r   e   e
0015160    W   i   t   h   D   e   f   B   o   d   y   P   r   o   c   T
0015200    y   p   e   ;  \r   B   i   n   d   L   i   s   t   e   m   p
0015220    t   y   P   r   o   d   U   p   d   a   t   e   L   o   c   a
0015240    l   C   o   n   t   e   x   t   :  \t   U   p   d   a   t   e
0015260    L   o   c   a   l   C   o   n   t   e   x   t   P   r   o   c
0015300    T   y   p   e   ;  \r  \r   -   -       B   i   n   d   L   i
0015320    s   t   m   o   r   e   P   r   o   d  \r  \r   B   i   n   d
0015340    L   i   s   t   m   o   r   e   P   r   o   d   D   a   t   a
0015360    :  \t   T   Y   P   E       =       R   E   F       B   i   n
0015400    d   L   i   s   t   m   o   r   e   P   r   o   d   D   a   t
0015420    a   B   o   d   y   ;  \r   B   i   n   d   L   i   s   t   m
0015440    o   r   e   P   r   o   d   D   a   t   a   B   o   d   y   :
0015460   \t   T   Y   P   E       =       R   E   C   O   R   D   [  \r
0015500    B   i   n   d   L   i   s   t   :       B   i   n   d   L   i
0015520    s   t   N   o   d   e   ,       B   i   n   d   I   t   e   m
0015540    :       B   i   n   d   I   t   e   m   N   o   d   e   ]   ;
0015560   \r  \r   B   i   n   d   L   i   s   t   m   o   r   e   P   r
0015600    o   d   P   r   o   c   s   :  \t   B   i   n   d   L   i   s
0015620    t   N   o   d   e   P   r   o   c   s   ;  \r  \r   B   u   i
0015640    l   d   B   i   n   d   L   i   s   t   m   o   r   e   P   r
0015660    o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o   s
0015700    i   t   i   o   n   :       I   N   T   ,       l   e   n   g
0015720    t   h   :       I   N   T   ,       B   i   n   d   L   i   s
0015740    t   :       B   i   n   d   L   i   s   t   N   o   d   e   ,
0015760        B   i   n   d   I   t   e   m   :       B   i   n   d   I
0016000    t   e   m   N   o   d   e   ]  \r  \t   R   E   T   U   R   N
0016020    S   [   B   i   n   d   L   i   s   t   N   o   d   e   ]   ;
0016040   \r  \r   B   i   n   d   L   i   s   t   m   o   r   e   P   r
0016060    o   d   M   a   k   e   B   i   n   d   L   i   s   t   C   o
0016100    n   t   e   x   t   T   r   e   e   W   i   t   h   S   c   o
0016120    p   e   :  \t   M   a   k   e   B   i   n   d   L   i   s   t
0016140    C   o   n   t   e   x   t   T   r   e   e   W   i   t   h   S
0016160    c   o   p   e   P   r   o   c   T   y   p   e   ;  \r   B   i
0016200    n   d   L   i   s   t   m   o   r   e   P   r   o   d   M   a
0016220    k   e   B   i   n   d   L   i   s   t   C   o   n   t   e   x
0016240    t   T   r   e   e   W   i   t   h   D   e   f   B   o   d   y
0016260    :  \t   M   a   k   e   B   i   n   d   L   i   s   t   C   o
0016300    n   t   e   x   t   T   r   e   e   W   i   t   h   D   e   f
0016320    B   o   d   y   P   r   o   c   T   y   p   e   ;  \r   B   i
0016340    n   d   L   i   s   t   m   o   r   e   P   r   o   d   U   p
0016360    d   a   t   e   L   o   c   a   l   C   o   n   t   e   x   t
0016400    :  \t   U   p   d   a   t   e   L   o   c   a   l   C   o   n
0016420    t   e   x   t   P   r   o   c   T   y   p   e   ;  \r  \r   -
0016440    -       B   i   n   d   I   t   e   m   n   a   m   e   d   P
0016460    r   o   d  \r  \r   B   i   n   d   I   t   e   m   n   a   m
0016500    e   d   P   r   o   d   D   a   t   a   :  \t   T   Y   P   E
0016520        =       R   E   F       B   i   n   d   I   t   e   m   n
0016540    a   m   e   d   P   r   o   d   D   a   t   a   B   o   d   y
0016560    ;  \r   B   i   n   d   I   t   e   m   n   a   m   e   d   P
0016600    r   o   d   D   a   t   a   B   o   d   y   :  \t   T   Y   P
0016620    E       =       R   E   C   O   R   D   [  \r   I   d   :    
0016640    I   d   N   o   d   e   ,       E   x   p   :       E   x   p
0016660    N   o   d   e   ]   ;  \r  \r   B   i   n   d   I   t   e   m
0016700    n   a   m   e   d   P   r   o   d   P   r   o   c   s   :  \t
0016720    B   i   n   d   I   t   e   m   N   o   d   e   P   r   o   c
0016740    s   ;  \r  \r   B   u   i   l   d   B   i   n   d   I   t   e
0016760    m   n   a   m   e   d   P   r   o   d   N   o   d   e   :  \t
0017000    P   R   O   C   [   p   o   s   i   t   i   o   n   :       I
0017020    N   T   ,       l   e   n   g   t   h   :       I   N   T   ,
0017040        I   d   :       I   d   N   o   d   e   ,       E   x   p
0017060    :       E   x   p   N   o   d   e   ]  \r  \t   R   E   T   U
0017100    R   N   S   [   B   i   n   d   I   t   e   m   N   o   d   e
0017120    ]   ;  \r  \r   B   i   n   d   I   t   e   m   n   a   m   e
0017140    d   P   r   o   d   U   p   d   a   t   e   L   o   c   a   l
0017160    C   o   n   t   e   x   t   :  \t   U   p   d   a   t   e   L
0017200    o   c   a   l   C   o   n   t   e   x   t   P   r   o   c   T
0017220    y   p   e   ;  \r  \r   -   -       B   i   n   d   I   t   e
0017240    m   u   n   n   a   m   e   d   P   r   o   d  \r  \r   B   i
0017260    n   d   I   t   e   m   u   n   n   a   m   e   d   P   r   o
0017300    d   D   a   t   a   :  \t   T   Y   P   E       =       R   E
0017320    F       B   i   n   d   I   t   e   m   u   n   n   a   m   e
0017340    d   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   B
0017360    i   n   d   I   t   e   m   u   n   n   a   m   e   d   P   r
0017400    o   d   D   a   t   a   B   o   d   y   :  \t   T   Y   P   E
0017420        =       R   E   C   O   R   D   [  \r   E   x   p   :    
0017440    E   x   p   N   o   d   e   ]   ;  \r  \r   B   i   n   d   I
0017460    t   e   m   u   n   n   a   m   e   d   P   r   o   d   P   r
0017500    o   c   s   :  \t   B   i   n   d   I   t   e   m   N   o   d
0017520    e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d   B   i
0017540    n   d   I   t   e   m   u   n   n   a   m   e   d   P   r   o
0017560    d   N   o   d   e   :  \t   P   R   O   C   [   p   o   s   i
0017600    t   i   o   n   :       I   N   T   ,       l   e   n   g   t
0017620    h   :       I   N   T   ,       E   x   p   :       E   x   p
0017640    N   o   d   e   ]  \r  \t   R   E   T   U   R   N   S   [   B
0017660    i   n   d   I   t   e   m   N   o   d   e   ]   ;  \r  \r   B
0017700    i   n   d   I   t   e   m   u   n   n   a   m   e   d   P   r
0017720    o   d   U   p   d   a   t   e   L   o   c   a   l   C   o   n
0017740    t   e   x   t   :  \t   U   p   d   a   t   e   L   o   c   a
0017760    l   C   o   n   t   e   x   t   P   r   o   c   T   y   p   e
0020000    ;  \r  \r   -   -       F   o   r   C   l   a   u   s   e   a
0020020    s   s   i   g   n   a   t   i   o   n   P   r   o   d  \r  \r
0020040    F   o   r   C   l   a   u   s   e   a   s   s   i   g   n   a
0020060    t   i   o   n   P   r   o   d   D   a   t   a   :  \t   T   Y
0020100    P   E       =       R   E   F       F   o   r   C   l   a   u
0020120    s   e   a   s   s   i   g   n   a   t   i   o   n   P   r   o
0020140    d   D   a   t   a   B   o   d   y   ;  \r   F   o   r   C   l
0020160    a   u   s   e   a   s   s   i   g   n   a   t   i   o   n   P
0020200    r   o   d   D   a   t   a   B   o   d   y   :  \t   T   Y   P
0020220    E       =       R   E   C   O   R   D   [  \r   C   o   n   t
0020240    r   o   l   I   d   :       C   o   n   t   r   o   l   I   d
0020260    N   o   d   e   ,       E   x   p   i   n   i   t   i   a   l
0020300    :       E   x   p   N   o   d   e   ,       E   x   p   n   e
0020320    x   t   :       E   x   p   N   o   d   e   ]   ;  \r  \r   F
0020340    o   r   C   l   a   u   s   e   a   s   s   i   g   n   a   t
0020360    i   o   n   P   r   o   d   P   r   o   c   s   :  \t   F   o
0020400    r   C   l   a   u   s   e   N   o   d   e   P   r   o   c   s
0020420    ;  \r  \r   B   u   i   l   d   F   o   r   C   l   a   u   s
0020440    e   a   s   s   i   g   n   a   t   i   o   n   P   r   o   d
0020460    N   o   d   e   :  \t   P   R   O   C   [   p   o   s   i   t
0020500    i   o   n   :       I   N   T   ,       l   e   n   g   t   h
0020520    :       I   N   T   ,       C   o   n   t   r   o   l   I   d
0020540    :       C   o   n   t   r   o   l   I   d   N   o   d   e   ,
0020560        E   x   p   i   n   i   t   i   a   l   :       E   x   p
0020600    N   o   d   e   ,       E   x   p   n   e   x   t   :       E
0020620    x   p   N   o   d   e   ]  \r  \t   R   E   T   U   R   N   S
0020640    [   F   o   r   C   l   a   u   s   e   N   o   d   e   ]   ;
0020660   \r  \r   F   o   r   C   l   a   u   s   e   a   s   s   i   g
0020700    n   a   t   i   o   n   P   r   o   d   f   o   o   :  \t   f
0020720    o   o   P   r   o   c   T   y   p   e   ;  \r  \r   -   -    
0020740    F   o   r   C   l   a   u   s   e   i   t   e   r   a   t   i
0020760    o   n   P   r   o   d  \r  \r   F   o   r   C   l   a   u   s
0021000    e   i   t   e   r   a   t   i   o   n   P   r   o   d   D   a
0021020    t   a   :  \t   T   Y   P   E       =       R   E   F       F
0021040    o   r   C   l   a   u   s   e   i   t   e   r   a   t   i   o
0021060    n   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   F
0021100    o   r   C   l   a   u   s   e   i   t   e   r   a   t   i   o
0021120    n   P   r   o   d   D   a   t   a   B   o   d   y   :  \t   T
0021140    Y   P   E       =       R   E   C   O   R   D   [  \r   C   o
0021160    n   t   r   o   l   I   d   :       C   o   n   t   r   o   l
0021200    I   d   N   o   d   e   ,       D   e   c   r   e   a   s   i
0021220    n   g   :       D   e   c   r   e   a   s   i   n   g   N   o
0021240    d   e   ,       R   a   n   g   e   :       R   a   n   g   e
0021260    N   o   d   e   ]   ;  \r  \r   F   o   r   C   l   a   u   s
0021300    e   i   t   e   r   a   t   i   o   n   P   r   o   d   P   r
0021320    o   c   s   :  \t   F   o   r   C   l   a   u   s   e   N   o
0021340    d   e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d   F
0021360    o   r   C   l   a   u   s   e   i   t   e   r   a   t   i   o
0021400    n   P   r   o   d   N   o   d   e   :  \t   P   R   O   C   [
0021420    p   o   s   i   t   i   o   n   :       I   N   T   ,       l
0021440    e   n   g   t   h   :       I   N   T   ,       C   o   n   t
0021460    r   o   l   I   d   :       C   o   n   t   r   o   l   I   d
0021500    N   o   d   e   ,       D   e   c   r   e   a   s   i   n   g
0021520    :       D   e   c   r   e   a   s   i   n   g   N   o   d   e
0021540    ,       R   a   n   g   e   :       R   a   n   g   e   N   o
0021560    d   e   ]  \r  \t   R   E   T   U   R   N   S   [   F   o   r
0021600    C   l   a   u   s   e   N   o   d   e   ]   ;  \r  \r   F   o
0021620    r   C   l   a   u   s   e   i   t   e   r   a   t   i   o   n
0021640    P   r   o   d   f   o   o   :  \t   f   o   o   P   r   o   c
0021660    T   y   p   e   ;  \r  \r   -   -       F   o   r   C   l   a
0021700    u   s   e   r   e   p   e   t   i   t   i   o   n   P   r   o
0021720    d  \r  \r   F   o   r   C   l   a   u   s   e   r   e   p   e
0021740    t   i   t   i   o   n   P   r   o   d   D   a   t   a   :  \t
0021760    T   Y   P   E       =       R   E   F       F   o   r   C   l
0022000    a   u   s   e   r   e   p   e   t   i   t   i   o   n   P   r
0022020    o   d   D   a   t   a   B   o   d   y   ;  \r   F   o   r   C
0022040    l   a   u   s   e   r   e   p   e   t   i   t   i   o   n   P
0022060    r   o   d   D   a   t   a   B   o   d   y   :  \t   T   Y   P
0022100    E       =       R   E   C   O   R   D   [  \r   R   a   n   g
0022120    e   :       R   a   n   g   e   N   o   d   e   ]   ;  \r  \r
0022140    F   o   r   C   l   a   u   s   e   r   e   p   e   t   i   t
0022160    i   o   n   P   r   o   d   P   r   o   c   s   :  \t   F   o
0022200    r   C   l   a   u   s   e   N   o   d   e   P   r   o   c   s
0022220    ;  \r  \r   B   u   i   l   d   F   o   r   C   l   a   u   s
0022240    e   r   e   p   e   t   i   t   i   o   n   P   r   o   d   N
0022260    o   d   e   :  \t   P   R   O   C   [   p   o   s   i   t   i
0022300    o   n   :       I   N   T   ,       l   e   n   g   t   h   :
0022320        I   N   T   ,       R   a   n   g   e   :       R   a   n
0022340    g   e   N   o   d   e   ]  \r  \t   R   E   T   U   R   N   S
0022360    [   F   o   r   C   l   a   u   s   e   N   o   d   e   ]   ;
0022400   \r  \r   F   o   r   C   l   a   u   s   e   r   e   p   e   t
0022420    i   t   i   o   n   P   r   o   d   f   o   o   :  \t   f   o
0022440    o   P   r   o   c   T   y   p   e   ;  \r  \r   -   -       F
0022460    o   r   C   l   a   u   s   e   e   m   p   t   y   P   r   o
0022500    d  \r  \r   F   o   r   C   l   a   u   s   e   e   m   p   t
0022520    y   P   r   o   d   D   a   t   a   :  \t   T   Y   P   E    
0022540    =       R   E   F       F   o   r   C   l   a   u   s   e   e
0022560    m   p   t   y   P   r   o   d   D   a   t   a   B   o   d   y
0022600    ;  \r   F   o   r   C   l   a   u   s   e   e   m   p   t   y
0022620    P   r   o   d   D   a   t   a   B   o   d   y   :  \t   T   Y
0022640    P   E       =       R   E   C   O   R   D   [  \r   ]   ;  \r
0022660   \r   F   o   r   C   l   a   u   s   e   e   m   p   t   y   P
0022700    r   o   d   P   r   o   c   s   :  \t   F   o   r   C   l   a
0022720    u   s   e   N   o   d   e   P   r   o   c   s   ;  \r  \r   B
0022740    u   i   l   d   F   o   r   C   l   a   u   s   e   e   m   p
0022760    t   y   P   r   o   d   N   o   d   e   :  \t   P   R   O   C
0023000    [   p   o   s   i   t   i   o   n   :       I   N   T   ,    
0023020    l   e   n   g   t   h   :       I   N   T   ]  \r  \t   R   E
0023040    T   U   R   N   S   [   F   o   r   C   l   a   u   s   e   N
0023060    o   d   e   ]   ;  \r  \r   F   o   r   C   l   a   u   s   e
0023100    e   m   p   t   y   P   r   o   d   f   o   o   :  \t   f   o
0023120    o   P   r   o   c   T   y   p   e   ;  \r  \r   -   -       C
0023140    o   n   t   r   o   l   I   d   n   e   w   P   r   o   d  \r
0023160   \r   C   o   n   t   r   o   l   I   d   n   e   w   P   r   o
0023200    d   D   a   t   a   :  \t   T   Y   P   E       =       R   E
0023220    F       C   o   n   t   r   o   l   I   d   n   e   w   P   r
0023240    o   d   D   a   t   a   B   o   d   y   ;  \r   C   o   n   t
0023260    r   o   l   I   d   n   e   w   P   r   o   d   D   a   t   a
0023300    B   o   d   y   :  \t   T   Y   P   E       =       R   E   C
0023320    O   R   D   [  \r   I   d   e   n   t   :       I   d   e   n
0023340    t   N   o   d   e   ,       T   y   p   e   E   x   p   :    
0023360    T   y   p   e   E   x   p   N   o   d   e   ]   ;  \r  \r   C
0023400    o   n   t   r   o   l   I   d   n   e   w   P   r   o   d   P
0023420    r   o   c   s   :  \t   C   o   n   t   r   o   l   I   d   N
0023440    o   d   e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d
0023460    C   o   n   t   r   o   l   I   d   n   e   w   P   r   o   d
0023500    N   o   d   e   :  \t   P   R   O   C   [   p   o   s   i   t
0023520    i   o   n   :       I   N   T   ,       l   e   n   g   t   h
0023540    :       I   N   T   ,       I   d   e   n   t   :       I   d
0023560    e   n   t   N   o   d   e   ,       T   y   p   e   E   x   p
0023600    :       T   y   p   e   E   x   p   N   o   d   e   ]  \r  \t
0023620    R   E   T   U   R   N   S   [   C   o   n   t   r   o   l   I
0023640    d   N   o   d   e   ]   ;  \r  \r   C   o   n   t   r   o   l
0023660    I   d   n   e   w   P   r   o   d   f   o   o   :  \t   f   o
0023700    o   P   r   o   c   T   y   p   e   ;  \r  \r   -   -       C
0023720    o   n   t   r   o   l   I   d   o   l   d   P   r   o   d  \r
0023740   \r   C   o   n   t   r   o   l   I   d   o   l   d   P   r   o
0023760    d   D   a   t   a   :  \t   T   Y   P   E       =       R   E
0024000    F       C   o   n   t   r   o   l   I   d   o   l   d   P   r
0024020    o   d   D   a   t   a   B   o   d   y   ;  \r   C   o   n   t
0024040    r   o   l   I   d   o   l   d   P   r   o   d   D   a   t   a
0024060    B   o   d   y   :  \t   T   Y   P   E       =       R   E   C
0024100    O   R   D   [  \r   I   d   :       I   d   N   o   d   e   ]
0024120    ;  \r  \r   C   o   n   t   r   o   l   I   d   o   l   d   P
0024140    r   o   d   P   r   o   c   s   :  \t   C   o   n   t   r   o
0024160    l   I   d   N   o   d   e   P   r   o   c   s   ;  \r  \r   B
0024200    u   i   l   d   C   o   n   t   r   o   l   I   d   o   l   d
0024220    P   r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p
0024240    o   s   i   t   i   o   n   :       I   N   T   ,       l   e
0024260    n   g   t   h   :       I   N   T   ,       I   d   :       I
0024300    d   N   o   d   e   ]  \r  \t   R   E   T   U   R   N   S   [
0024320    C   o   n   t   r   o   l   I   d   N   o   d   e   ]   ;  \r
0024340   \r   C   o   n   t   r   o   l   I   d   o   l   d   P   r   o
0024360    d   f   o   o   :  \t   f   o   o   P   r   o   c   T   y   p
0024400    e   ;  \r  \r   -   -       D   e   c   r   e   a   s   i   n
0024420    g   y   e   s   P   r   o   d  \r  \r   D   e   c   r   e   a
0024440    s   i   n   g   y   e   s   P   r   o   d   D   a   t   a   :
0024460   \t   T   Y   P   E       =       R   E   F       D   e   c   r
0024500    e   a   s   i   n   g   y   e   s   P   r   o   d   D   a   t
0024520    a   B   o   d   y   ;  \r   D   e   c   r   e   a   s   i   n
0024540    g   y   e   s   P   r   o   d   D   a   t   a   B   o   d   y
0024560    :  \t   T   Y   P   E       =       R   E   C   O   R   D   [
0024600   \r   ]   ;  \r  \r   D   e   c   r   e   a   s   i   n   g   y
0024620    e   s   P   r   o   d   P   r   o   c   s   :  \t   D   e   c
0024640    r   e   a   s   i   n   g   N   o   d   e   P   r   o   c   s
0024660    ;  \r  \r   B   u   i   l   d   D   e   c   r   e   a   s   i
0024700    n   g   y   e   s   P   r   o   d   N   o   d   e   :  \t   P
0024720    R   O   C   [   p   o   s   i   t   i   o   n   :       I   N
0024740    T   ,       l   e   n   g   t   h   :       I   N   T   ]  \r
0024760   \t   R   E   T   U   R   N   S   [   D   e   c   r   e   a   s
0025000    i   n   g   N   o   d   e   ]   ;  \r  \r   D   e   c   r   e
0025020    a   s   i   n   g   y   e   s   P   r   o   d   f   o   o   :
0025040   \t   f   o   o   P   r   o   c   T   y   p   e   ;  \r  \r   -
0025060    -       D   e   c   r   e   a   s   i   n   g   n   o   P   r
0025100    o   d  \r  \r   D   e   c   r   e   a   s   i   n   g   n   o
0025120    P   r   o   d   D   a   t   a   :  \t   T   Y   P   E       =
0025140        R   E   F       D   e   c   r   e   a   s   i   n   g   n
0025160    o   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   D
0025200    e   c   r   e   a   s   i   n   g   n   o   P   r   o   d   D
0025220    a   t   a   B   o   d   y   :  \t   T   Y   P   E       =    
0025240    R   E   C   O   R   D   [  \r   ]   ;  \r  \r   D   e   c   r
0025260    e   a   s   i   n   g   n   o   P   r   o   d   P   r   o   c
0025300    s   :  \t   D   e   c   r   e   a   s   i   n   g   N   o   d
0025320    e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d   D   e
0025340    c   r   e   a   s   i   n   g   n   o   P   r   o   d   N   o
0025360    d   e   :  \t   P   R   O   C   [   p   o   s   i   t   i   o
0025400    n   :       I   N   T   ,       l   e   n   g   t   h   :    
0025420    I   N   T   ]  \r  \t   R   E   T   U   R   N   S   [   D   e
0025440    c   r   e   a   s   i   n   g   N   o   d   e   ]   ;  \r  \r
0025460    D   e   c   r   e   a   s   i   n   g   n   o   P   r   o   d
0025500    f   o   o   :  \t   f   o   o   P   r   o   c   T   y   p   e
0025520    ;  \r  \r   -   -       D   o   T   e   s   t   u   n   t   i
0025540    l   P   r   o   d  \r  \r   D   o   T   e   s   t   u   n   t
0025560    i   l   P   r   o   d   D   a   t   a   :  \t   T   Y   P   E
0025600        =       R   E   F       D   o   T   e   s   t   u   n   t
0025620    i   l   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r
0025640    D   o   T   e   s   t   u   n   t   i   l   P   r   o   d   D
0025660    a   t   a   B   o   d   y   :  \t   T   Y   P   E       =    
0025700    R   E   C   O   R   D   [  \r   E   x   p   :       E   x   p
0025720    N   o   d   e   ]   ;  \r  \r   D   o   T   e   s   t   u   n
0025740    t   i   l   P   r   o   d   P   r   o   c   s   :  \t   D   o
0025760    T   e   s   t   N   o   d   e   P   r   o   c   s   ;  \r  \r
0026000    B   u   i   l   d   D   o   T   e   s   t   u   n   t   i   l
0026020    P   r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p
0026040    o   s   i   t   i   o   n   :       I   N   T   ,       l   e
0026060    n   g   t   h   :       I   N   T   ,       E   x   p   :    
0026100    E   x   p   N   o   d   e   ]  \r  \t   R   E   T   U   R   N
0026120    S   [   D   o   T   e   s   t   N   o   d   e   ]   ;  \r  \r
0026140    D   o   T   e   s   t   u   n   t   i   l   P   r   o   d   f
0026160    o   o   :  \t   f   o   o   P   r   o   c   T   y   p   e   ;
0026200   \r  \r   -   -       D   o   T   e   s   t   w   h   i   l   e
0026220    P   r   o   d  \r  \r   D   o   T   e   s   t   w   h   i   l
0026240    e   P   r   o   d   D   a   t   a   :  \t   T   Y   P   E    
0026260    =       R   E   F       D   o   T   e   s   t   w   h   i   l
0026300    e   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   D
0026320    o   T   e   s   t   w   h   i   l   e   P   r   o   d   D   a
0026340    t   a   B   o   d   y   :  \t   T   Y   P   E       =       R
0026360    E   C   O   R   D   [  \r   E   x   p   :       E   x   p   N
0026400    o   d   e   ]   ;  \r  \r   D   o   T   e   s   t   w   h   i
0026420    l   e   P   r   o   d   P   r   o   c   s   :  \t   D   o   T
0026440    e   s   t   N   o   d   e   P   r   o   c   s   ;  \r  \r   B
0026460    u   i   l   d   D   o   T   e   s   t   w   h   i   l   e   P
0026500    r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o
0026520    s   i   t   i   o   n   :       I   N   T   ,       l   e   n
0026540    g   t   h   :       I   N   T   ,       E   x   p   :       E
0026560    x   p   N   o   d   e   ]  \r  \t   R   E   T   U   R   N   S
0026600    [   D   o   T   e   s   t   N   o   d   e   ]   ;  \r  \r   D
0026620    o   T   e   s   t   w   h   i   l   e   P   r   o   d   f   o
0026640    o   :  \t   f   o   o   P   r   o   c   T   y   p   e   ;  \r
0026660   \r   -   -       D   o   T   e   s   t   e   m   p   t   y   P
0026700    r   o   d  \r  \r   D   o   T   e   s   t   e   m   p   t   y
0026720    P   r   o   d   D   a   t   a   :  \t   T   Y   P   E       =
0026740        R   E   F       D   o   T   e   s   t   e   m   p   t   y
0026760    P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   D   o
0027000    T   e   s   t   e   m   p   t   y   P   r   o   d   D   a   t
0027020    a   B   o   d   y   :  \t   T   Y   P   E       =       R   E
0027040    C   O   R   D   [  \r   ]   ;  \r  \r   D   o   T   e   s   t
0027060    e   m   p   t   y   P   r   o   d   P   r   o   c   s   :  \t
0027100    D   o   T   e   s   t   N   o   d   e   P   r   o   c   s   ;
0027120   \r  \r   B   u   i   l   d   D   o   T   e   s   t   e   m   p
0027140    t   y   P   r   o   d   N   o   d   e   :  \t   P   R   O   C
0027160    [   p   o   s   i   t   i   o   n   :       I   N   T   ,    
0027200    l   e   n   g   t   h   :       I   N   T   ]  \r  \t   R   E
0027220    T   U   R   N   S   [   D   o   T   e   s   t   N   o   d   e
0027240    ]   ;  \r  \r   D   o   T   e   s   t   e   m   p   t   y   P
0027260    r   o   d   f   o   o   :  \t   f   o   o   P   r   o   c   T
0027300    y   p   e   ;  \r  \r   -   -       D   o   E   x   i   t   P
0027320    r   o   d  \r  \r   D   o   E   x   i   t   P   r   o   d   D
0027340    a   t   a   :  \t   T   Y   P   E       =       R   E   F    
0027360    D   o   E   x   i   t   P   r   o   d   D   a   t   a   B   o
0027400    d   y   ;  \r   D   o   E   x   i   t   P   r   o   d   D   a
0027420    t   a   B   o   d   y   :  \t   T   Y   P   E       =       R
0027440    E   C   O   R   D   [  \r   E   x   i   t   L   i   s   t   :
0027460        E   x   i   t   L   i   s   t   N   o   d   e   ,       O
0027500    p   t   S   t   a   t   e   m   e   n   t   :       O   p   t
0027520    S   t   a   t   e   m   e   n   t   N   o   d   e   ]   ;  \r
0027540   \r   D   o   E   x   i   t   P   r   o   d   P   r   o   c   s
0027560    :  \t   D   o   E   x   i   t   N   o   d   e   P   r   o   c
0027600    s   ;  \r  \r   B   u   i   l   d   D   o   E   x   i   t   P
0027620    r   o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o
0027640    s   i   t   i   o   n   :       I   N   T   ,       l   e   n
0027660    g   t   h   :       I   N   T   ,       E   x   i   t   L   i
0027700    s   t   :       E   x   i   t   L   i   s   t   N   o   d   e
0027720    ,       O   p   t   S   t   a   t   e   m   e   n   t   :    
0027740    O   p   t   S   t   a   t   e   m   e   n   t   N   o   d   e
0027760    ]  \r  \t   R   E   T   U   R   N   S   [   D   o   E   x   i
0030000    t   N   o   d   e   ]   ;  \r  \r   D   o   E   x   i   t   P
0030020    r   o   d   f   o   o   :  \t   f   o   o   P   r   o   c   T
0030040    y   p   e   ;  \r  \r   -   -       O   p   t   A   r   g   s
0030060    e   x   p   l   i   s   t   P   r   o   d  \r  \r   O   p   t
0030100    A   r   g   s   e   x   p   l   i   s   t   P   r   o   d   D
0030120    a   t   a   :  \t   T   Y   P   E       =       R   E   F    
0030140    O   p   t   A   r   g   s   e   x   p   l   i   s   t   P   r
0030160    o   d   D   a   t   a   B   o   d   y   ;  \r   O   p   t   A
0030200    r   g   s   e   x   p   l   i   s   t   P   r   o   d   D   a
0030220    t   a   B   o   d   y   :  \t   T   Y   P   E       =       R
0030240    E   C   O   R   D   [  \r   E   x   p   L   i   s   t   :    
0030260    E   x   p   L   i   s   t   N   o   d   e   ]   ;  \r  \r   O
0030300    p   t   A   r   g   s   e   x   p   l   i   s   t   P   r   o
0030320    d   P   r   o   c   s   :  \t   O   p   t   A   r   g   s   N
0030340    o   d   e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d
0030360    O   p   t   A   r   g   s   e   x   p   l   i   s   t   P   r
0030400    o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o   s
0030420    i   t   i   o   n   :       I   N   T   ,       l   e   n   g
0030440    t   h   :       I   N   T   ,       E   x   p   L   i   s   t
0030460    :       E   x   p   L   i   s   t   N   o   d   e   ]  \r  \t
0030500    R   E   T   U   R   N   S   [   O   p   t   A   r   g   s   N
0030520    o   d   e   ]   ;  \r  \r   O   p   t   A   r   g   s   e   x
0030540    p   l   i   s   t   P   r   o   d   f   o   o   :  \t   f   o
0030560    o   P   r   o   c   T   y   p   e   ;  \r  \r   -   -       O
0030600    p   t   A   r   g   s   e   x   p   P   r   o   d  \r  \r   O
0030620    p   t   A   r   g   s   e   x   p   P   r   o   d   D   a   t
0030640    a   :  \t   T   Y   P   E       =       R   E   F       O   p
0030660    t   A   r   g   s   e   x   p   P   r   o   d   D   a   t   a
0030700    B   o   d   y   ;  \r   O   p   t   A   r   g   s   e   x   p
0030720    P   r   o   d   D   a   t   a   B   o   d   y   :  \t   T   Y
0030740    P   E       =       R   E   C   O   R   D   [  \r   E   x   p
0030760    :       E   x   p   N   o   d   e   ]   ;  \r  \r   O   p   t
0031000    A   r   g   s   e   x   p   P   r   o   d   P   r   o   c   s
0031020    :  \t   O   p   t   A   r   g   s   N   o   d   e   P   r   o
0031040    c   s   ;  \r  \r   B   u   i   l   d   O   p   t   A   r   g
0031060    s   e   x   p   P   r   o   d   N   o   d   e   :  \t   P   R
0031100    O   C   [   p   o   s   i   t   i   o   n   :       I   N   T
0031120    ,       l   e   n   g   t   h   :       I   N   T   ,       E
0031140    x   p   :       E   x   p   N   o   d   e   ]  \r  \t   R   E
0031160    T   U   R   N   S   [   O   p   t   A   r   g   s   N   o   d
0031200    e   ]   ;  \r  \r   O   p   t   A   r   g   s   e   x   p   P
0031220    r   o   d   f   o   o   :  \t   f   o   o   P   r   o   c   T
0031240    y   p   e   ;  \r  \r   -   -       O   p   t   A   r   g   s
0031260    e   m   p   t   y   P   r   o   d  \r  \r   O   p   t   A   r
0031300    g   s   e   m   p   t   y   P   r   o   d   D   a   t   a   :
0031320   \t   T   Y   P   E       =       R   E   F       O   p   t   A
0031340    r   g   s   e   m   p   t   y   P   r   o   d   D   a   t   a
0031360    B   o   d   y   ;  \r   O   p   t   A   r   g   s   e   m   p
0031400    t   y   P   r   o   d   D   a   t   a   B   o   d   y   :  \t
0031420    T   Y   P   E       =       R   E   C   O   R   D   [  \r   ]
0031440    ;  \r  \r   O   p   t   A   r   g   s   e   m   p   t   y   P
0031460    r   o   d   P   r   o   c   s   :  \t   O   p   t   A   r   g
0031500    s   N   o   d   e   P   r   o   c   s   ;  \r  \r   B   u   i
0031520    l   d   O   p   t   A   r   g   s   e   m   p   t   y   P   r
0031540    o   d   N   o   d   e   :  \t   P   R   O   C   [   p   o   s
0031560    i   t   i   o   n   :       I   N   T   ,       l   e   n   g
0031600    t   h   :       I   N   T   ]  \r  \t   R   E   T   U   R   N
0031620    S   [   O   p   t   A   r   g   s   N   o   d   e   ]   ;  \r
0031640   \r   O   p   t   A   r   g   s   e   m   p   t   y   P   r   o
0031660    d   f   o   o   :  \t   f   o   o   P   r   o   c   T   y   p
0031700    e   ;  \r  \r   -   -       T   r   a   n   s   f   e   r   s
0031720    i   g   n   a   l   P   r   o   d  \r  \r   T   r   a   n   s
0031740    f   e   r   s   i   g   n   a   l   P   r   o   d   D   a   t
0031760    a   :  \t   T   Y   P   E       =       R   E   F       T   r
0032000    a   n   s   f   e   r   s   i   g   n   a   l   P   r   o   d
0032020    D   a   t   a   B   o   d   y   ;  \r   T   r   a   n   s   f
0032040    e   r   s   i   g   n   a   l   P   r   o   d   D   a   t   a
0032060    B   o   d   y   :  \t   T   Y   P   E       =       R   E   C
0032100    O   R   D   [  \r   ]   ;  \r  \r   T   r   a   n   s   f   e
0032120    r   s   i   g   n   a   l   P   r   o   d   P   r   o   c   s
0032140    :  \t   T   r   a   n   s   f   e   r   N   o   d   e   P   r
0032160    o   c   s   ;  \r  \r   B   u   i   l   d   T   r   a   n   s
0032200    f   e   r   s   i   g   n   a   l   P   r   o   d   N   o   d
0032220    e   :  \t   P   R   O   C   [   p   o   s   i   t   i   o   n
0032240    :       I   N   T   ,       l   e   n   g   t   h   :       I
0032260    N   T   ]  \r  \t   R   E   T   U   R   N   S   [   T   r   a
0032300    n   s   f   e   r   N   o   d   e   ]   ;  \r  \r   T   r   a
0032320    n   s   f   e   r   s   i   g   n   a   l   P   r   o   d   f
0032340    o   o   :  \t   f   o   o   P   r   o   c   T   y   p   e   ;
0032360   \r  \r   -   -       T   r   a   n   s   f   e   r   e   r   r
0032400    o   r   P   r   o   d  \r  \r   T   r   a   n   s   f   e   r
0032420    e   r   r   o   r   P   r   o   d   D   a   t   a   :  \t   T
0032440    Y   P   E       =       R   E   F       T   r   a   n   s   f
0032460    e   r   e   r   r   o   r   P   r   o   d   D   a   t   a   B
0032500    o   d   y   ;  \r   T   r   a   n   s   f   e   r   e   r   r
0032520    o   r   P   r   o   d   D   a   t   a   B   o   d   y   :  \t
0032540    T   Y   P   E       =       R   E   C   O   R   D   [  \r   ]
0032560    ;  \r  \r   T   r   a   n   s   f   e   r   e   r   r   o   r
0032600    P   r   o   d   P   r   o   c   s   :  \t   T   r   a   n   s
0032620    f   e   r   N   o   d   e   P   r   o   c   s   ;  \r  \r   B
0032640    u   i   l   d   T   r   a   n   s   f   e   r   e   r   r   o
0032660    r   P   r   o   d   N   o   d   e   :  \t   P   R   O   C   [
0032700    p   o   s   i   t   i   o   n   :       I   N   T   ,       l
0032720    e   n   g   t   h   :       I   N   T   ]  \r  \t   R   E   T
0032740    U   R   N   S   [   T   r   a   n   s   f   e   r   N   o   d
0032760    e   ]   ;  \r  \r   T   r   a   n   s   f   e   r   e   r   r
0033000    o   r   P   r   o   d   f   o   o   :  \t   f   o   o   P   r
0033020    o   c   T   y   p   e   ;  \r  \r   -   -       T   r   a   n
0033040    s   f   e   r   r   e   t   u   r   n   w   i   t   h   e   r
0033060    r   o   r   P   r   o   d  \r  \r   T   r   a   n   s   f   e
0033100    r   r   e   t   u   r   n   w   i   t   h   e   r   r   o   r
0033120    P   r   o   d   D   a   t   a   :  \t   T   Y   P   E       =
0033140        R   E   F       T   r   a   n   s   f   e   r   r   e   t
0033160    u   r   n   w   i   t   h   e   r   r   o   r   P   r   o   d
0033200    D   a   t   a   B   o   d   y   ;  \r   T   r   a   n   s   f
0033220    e   r   r   e   t   u   r   n   w   i   t   h   e   r   r   o
0033240    r   P   r   o   d   D   a   t   a   B   o   d   y   :  \t   T
0033260    Y   P   E       =       R   E   C   O   R   D   [  \r   ]   ;
0033300   \r  \r   T   r   a   n   s   f   e   r   r   e   t   u   r   n
0033320    w   i   t   h   e   r   r   o   r   P   r   o   d   P   r   o
0033340    c   s   :  \t   T   r   a   n   s   f   e   r   N   o   d   e
0033360    P   r   o   c   s   ;  \r  \r   B   u   i   l   d   T   r   a
0033400    n   s   f   e   r   r   e   t   u   r   n   w   i   t   h   e
0033420    r   r   o   r   P   r   o   d   N   o   d   e   :  \t   P   R
0033440    O   C   [   p   o   s   i   t   i   o   n   :       I   N   T
0033460    ,       l   e   n   g   t   h   :       I   N   T   ]  \r  \t
0033500    R   E   T   U   R   N   S   [   T   r   a   n   s   f   e   r
0033520    N   o   d   e   ]   ;  \r  \r   T   r   a   n   s   f   e   r
0033540    r   e   t   u   r   n   w   i   t   h   e   r   r   o   r   P
0033560    r   o   d   f   o   o   :  \t   f   o   o   P   r   o   c   T
0033600    y   p   e   ;  \r  \r   -   -       T   r   a   n   s   f   e
0033620    r   s   t   a   r   t   P   r   o   d  \r  \r   T   r   a   n
0033640    s   f   e   r   s   t   a   r   t   P   r   o   d   D   a   t
0033660    a   :  \t   T   Y   P   E       =       R   E   F       T   r
0033700    a   n   s   f   e   r   s   t   a   r   t   P   r   o   d   D
0033720    a   t   a   B   o   d   y   ;  \r   T   r   a   n   s   f   e
0033740    r   s   t   a   r   t   P   r   o   d   D   a   t   a   B   o
0033760    d   y   :  \t   T   Y   P   E       =       R   E   C   O   R
0034000    D   [  \r   ]   ;  \r  \r   T   r   a   n   s   f   e   r   s
0034020    t   a   r   t   P   r   o   d   P   r   o   c   s   :  \t   T
0034040    r   a   n   s   f   e   r   N   o   d   e   P   r   o   c   s
0034060    ;  \r  \r   B   u   i   l   d   T   r   a   n   s   f   e   r
0034100    s   t   a   r   t   P   r   o   d   N   o   d   e   :  \t   P
0034120    R   O   C   [   p   o   s   i   t   i   o   n   :       I   N
0034140    T   ,       l   e   n   g   t   h   :       I   N   T   ]  \r
0034160   \t   R   E   T   U   R   N   S   [   T   r   a   n   s   f   e
0034200    r   N   o   d   e   ]   ;  \r  \r   T   r   a   n   s   f   e
0034220    r   s   t   a   r   t   P   r   o   d   f   o   o   :  \t   f
0034240    o   o   P   r   o   c   T   y   p   e   ;  \r  \r   -   -    
0034260    T   r   a   n   s   f   e   r   r   e   s   t   a   r   t   P
0034300    r   o   d  \r  \r   T   r   a   n   s   f   e   r   r   e   s
0034320    t   a   r   t   P   r   o   d   D   a   t   a   :  \t   T   Y
0034340    P   E       =       R   E   F       T   r   a   n   s   f   e
0034360    r   r   e   s   t   a   r   t   P   r   o   d   D   a   t   a
0034400    B   o   d   y   ;  \r   T   r   a   n   s   f   e   r   r   e
0034420    s   t   a   r   t   P   r   o   d   D   a   t   a   B   o   d
0034440    y   :  \t   T   Y   P   E       =       R   E   C   O   R   D
0034460    [  \r   ]   ;  \r  \r   T   r   a   n   s   f   e   r   r   e
0034500    s   t   a   r   t   P   r   o   d   P   r   o   c   s   :  \t
0034520    T   r   a   n   s   f   e   r   N   o   d   e   P   r   o   c
0034540    s   ;  \r  \r   B   u   i   l   d   T   r   a   n   s   f   e
0034560    r   r   e   s   t   a   r   t   P   r   o   d   N   o   d   e
0034600    :  \t   P   R   O   C   [   p   o   s   i   t   i   o   n   :
0034620        I   N   T   ,       l   e   n   g   t   h   :       I   N
0034640    T   ]  \r  \t   R   E   T   U   R   N   S   [   T   r   a   n
0034660    s   f   e   r   N   o   d   e   ]   ;  \r  \r   T   r   a   n
0034700    s   f   e   r   r   e   s   t   a   r   t   P   r   o   d   f
0034720    o   o   :  \t   f   o   o   P   r   o   c   T   y   p   e   ;
0034740   \r  \r   -   -       T   r   a   n   s   f   e   r   j   o   i
0034760    n   P   r   o   d  \r  \r   T   r   a   n   s   f   e   r   j
0035000    o   i   n   P   r   o   d   D   a   t   a   :  \t   T   Y   P
0035020    E       =       R   E   F       T   r   a   n   s   f   e   r
0035040    j   o   i   n   P   r   o   d   D   a   t   a   B   o   d   y
0035060    ;  \r   T   r   a   n   s   f   e   r   j   o   i   n   P   r
0035100    o   d   D   a   t   a   B   o   d   y   :  \t   T   Y   P   E
0035120        =       R   E   C   O   R   D   [  \r   ]   ;  \r  \r   T
0035140    r   a   n   s   f   e   r   j   o   i   n   P   r   o   d   P
0035160    r   o   c   s   :  \t   T   r   a   n   s   f   e   r   N   o
0035200    d   e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d   T
0035220    r   a   n   s   f   e   r   j   o   i   n   P   r   o   d   N
0035240    o   d   e   :  \t   P   R   O   C   [   p   o   s   i   t   i
0035260    o   n   :       I   N   T   ,       l   e   n   g   t   h   :
0035300        I   N   T   ]  \r  \t   R   E   T   U   R   N   S   [   T
0035320    r   a   n   s   f   e   r   N   o   d   e   ]   ;  \r  \r   T
0035340    r   a   n   s   f   e   r   j   o   i   n   P   r   o   d   f
0035360    o   o   :  \t   f   o   o   P   r   o   c   T   y   p   e   ;
0035400   \r  \r   -   -       T   r   a   n   s   f   e   r   n   o   t
0035420    i   f   y   P   r   o   d  \r  \r   T   r   a   n   s   f   e
0035440    r   n   o   t   i   f   y   P   r   o   d   D   a   t   a   :
0035460   \t   T   Y   P   E       =       R   E   F       T   r   a   n
0035500    s   f   e   r   n   o   t   i   f   y   P   r   o   d   D   a
0035520    t   a   B   o   d   y   ;  \r   T   r   a   n   s   f   e   r
0035540    n   o   t   i   f   y   P   r   o   d   D   a   t   a   B   o
0035560    d   y   :  \t   T   Y   P   E       =       R   E   C   O   R
0035600    D   [  \r   ]   ;  \r  \r   T   r   a   n   s   f   e   r   n
0035620    o   t   i   f   y   P   r   o   d   P   r   o   c   s   :  \t
0035640    T   r   a   n   s   f   e   r   N   o   d   e   P   r   o   c
0035660    s   ;  \r  \r   B   u   i   l   d   T   r   a   n   s   f   e
0035700    r   n   o   t   i   f   y   P   r   o   d   N   o   d   e   :
0035720   \t   P   R   O   C   [   p   o   s   i   t   i   o   n   :    
0035740    I   N   T   ,       l   e   n   g   t   h   :       I   N   T
0035760    ]  \r  \t   R   E   T   U   R   N   S   [   T   r   a   n   s
0036000    f   e   r   N   o   d   e   ]   ;  \r  \r   T   r   a   n   s
0036020    f   e   r   n   o   t   i   f   y   P   r   o   d   f   o   o
0036040    :  \t   f   o   o   P   r   o   c   T   y   p   e   ;  \r  \r
0036060    -   -       T   r   a   n   s   f   e   r   b   r   o   a   d
0036100    c   a   s   t   P   r   o   d  \r  \r   T   r   a   n   s   f
0036120    e   r   b   r   o   a   d   c   a   s   t   P   r   o   d   D
0036140    a   t   a   :  \t   T   Y   P   E       =       R   E   F    
0036160    T   r   a   n   s   f   e   r   b   r   o   a   d   c   a   s
0036200    t   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   T
0036220    r   a   n   s   f   e   r   b   r   o   a   d   c   a   s   t
0036240    P   r   o   d   D   a   t   a   B   o   d   y   :  \t   T   Y
0036260    P   E       =       R   E   C   O   R   D   [  \r   ]   ;  \r
0036300   \r   T   r   a   n   s   f   e   r   b   r   o   a   d   c   a
0036320    s   t   P   r   o   d   P   r   o   c   s   :  \t   T   r   a
0036340    n   s   f   e   r   N   o   d   e   P   r   o   c   s   ;  \r
0036360   \r   B   u   i   l   d   T   r   a   n   s   f   e   r   b   r
0036400    o   a   d   c   a   s   t   P   r   o   d   N   o   d   e   :
0036420   \t   P   R   O   C   [   p   o   s   i   t   i   o   n   :    
0036440    I   N   T   ,       l   e   n   g   t   h   :       I   N   T
0036460    ]  \r  \t   R   E   T   U   R   N   S   [   T   r   a   n   s
0036500    f   e   r   N   o   d   e   ]   ;  \r  \r   T   r   a   n   s
0036520    f   e   r   b   r   o   a   d   c   a   s   t   P   r   o   d
0036540    f   o   o   :  \t   f   o   o   P   r   o   c   T   y   p   e
0036560    ;  \r  \r   -   -       T   r   a   n   s   f   e   r   t   r
0036600    a   n   s   f   e   r   w   i   t   h   P   r   o   d  \r  \r
0036620    T   r   a   n   s   f   e   r   t   r   a   n   s   f   e   r
0036640    w   i   t   h   P   r   o   d   D   a   t   a   :  \t   T   Y
0036660    P   E       =       R   E   F       T   r   a   n   s   f   e
0036700    r   t   r   a   n   s   f   e   r   w   i   t   h   P   r   o
0036720    d   D   a   t   a   B   o   d   y   ;  \r   T   r   a   n   s
0036740    f   e   r   t   r   a   n   s   f   e   r   w   i   t   h   P
0036760    r   o   d   D   a   t   a   B   o   d   y   :  \t   T   Y   P
0037000    E       =       R   E   C   O   R   D   [  \r   ]   ;  \r  \r
0037020    T   r   a   n   s   f   e   r   t   r   a   n   s   f   e   r
0037040    w   i   t   h   P   r   o   d   P   r   o   c   s   :  \t   T
0037060    r   a   n   s   f   e   r   N   o   d   e   P   r   o   c   s
0037100    ;  \r  \r   B   u   i   l   d   T   r   a   n   s   f   e   r
0037120    t   r   a   n   s   f   e   r   w   i   t   h   P   r   o   d
0037140    N   o   d   e   :  \t   P   R   O   C   [   p   o   s   i   t
0037160    i   o   n   :       I   N   T   ,       l   e   n   g   t   h
0037200    :       I   N   T   ]  \r  \t   R   E   T   U   R   N   S   [
0037220    T   r   a   n   s   f   e   r   N   o   d   e   ]   ;  \r  \r
0037240    T   r   a   n   s   f   e   r   t   r   a   n   s   f   e   r
0037260    w   i   t   h   P   r   o   d   f   o   o   :  \t   f   o   o
0037300    P   r   o   c   T   y   p   e   ;  \r  \r   -   -       T   r
0037320    a   n   s   f   e   r   r   e   t   u   r   n   w   i   t   h
0037340    P   r   o   d  \r  \r   T   r   a   n   s   f   e   r   r   e
0037360    t   u   r   n   w   i   t   h   P   r   o   d   D   a   t   a
0037400    :  \t   T   Y   P   E       =       R   E   F       T   r   a
0037420    n   s   f   e   r   r   e   t   u   r   n   w   i   t   h   P
0037440    r   o   d   D   a   t   a   B   o   d   y   ;  \r   T   r   a
0037460    n   s   f   e   r   r   e   t   u   r   n   w   i   t   h   P
0037500    r   o   d   D   a   t   a   B   o   d   y   :  \t   T   Y   P
0037520    E       =       R   E   C   O   R   D   [  \r   ]   ;  \r  \r
0037540    T   r   a   n   s   f   e   r   r   e   t   u   r   n   w   i
0037560    t   h   P   r   o   d   P   r   o   c   s   :  \t   T   r   a
0037600    n   s   f   e   r   N   o   d   e   P   r   o   c   s   ;  \r
0037620   \r   B   u   i   l   d   T   r   a   n   s   f   e   r   r   e
0037640    t   u   r   n   w   i   t   h   P   r   o   d   N   o   d   e
0037660    :  \t   P   R   O   C   [   p   o   s   i   t   i   o   n   :
0037700        I   N   T   ,       l   e   n   g   t   h   :       I   N
0037720    T   ]  \r  \t   R   E   T   U   R   N   S   [   T   r   a   n
0037740    s   f   e   r   N   o   d   e   ]   ;  \r  \r   T   r   a   n
0037760    s   f   e   r   r   e   t   u   r   n   w   i   t   h   P   r
0040000    o   d   f   o   o   :  \t   f   o   o   P   r   o   c   T   y
0040020    p   e   ;  \r  \r   -   -       F   r   e   e   p   l   a   i
0040040    n   P   r   o   d  \r  \r   F   r   e   e   p   l   a   i   n
0040060    P   r   o   d   D   a   t   a   :  \t   T   Y   P   E       =
0040100        R   E   F       F   r   e   e   p   l   a   i   n   P   r
0040120    o   d   D   a   t   a   B   o   d   y   ;  \r   F   r   e   e
0040140    p   l   a   i   n   P   r   o   d   D   a   t   a   B   o   d
0040160    y   :  \t   T   Y   P   E       =       R   E   C   O   R   D
0040200    [  \r   ]   ;  \r  \r   F   r   e   e   p   l   a   i   n   P
0040220    r   o   d   P   r   o   c   s   :  \t   F   r   e   e   N   o
0040240    d   e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d   F
0040260    r   e   e   p   l   a   i   n   P   r   o   d   N   o   d   e
0040300    :  \t   P   R   O   C   [   p   o   s   i   t   i   o   n   :
0040320        I   N   T   ,       l   e   n   g   t   h   :       I   N
0040340    T   ]  \r  \t   R   E   T   U   R   N   S   [   F   r   e   e
0040360    N   o   d   e   ]   ;  \r  \r   F   r   e   e   p   l   a   i
0040400    n   P   r   o   d   f   o   o   :  \t   f   o   o   P   r   o
0040420    c   T   y   p   e   ;  \r  \r   -   -       F   r   e   e   z
0040440    o   n   e   d   P   r   o   d  \r  \r   F   r   e   e   z   o
0040460    n   e   d   P   r   o   d   D   a   t   a   :  \t   T   Y   P
0040500    E       =       R   E   F       F   r   e   e   z   o   n   e
0040520    d   P   r   o   d   D   a   t   a   B   o   d   y   ;  \r   F
0040540    r   e   e   z   o   n   e   d   P   r   o   d   D   a   t   a
0040560    B   o   d   y   :  \t   T   Y   P   E       =       R   E   C
0040600    O   R   D   [  \r   E   x   p   :       E   x   p   N   o   d
0040620    e   ]   ;  \r  \r   F   r   e   e   z   o   n   e   d   P   r
0040640    o   d   P   r   o   c   s   :  \t   F   r   e   e   N   o   d
0040660    e   P   r   o   c   s   ;  \r  \r   B   u   i   l   d   F   r
0040700    e   e   z   o   n   e   d   P   r   o   d   N   o   d   e   :
0040720   \t   P   R   O   C   [   p   o   s   i   t   i   o   n   :    
0040740    I   N   T   ,       l   e   n   g   t   h   :       I   N   T
0040760    ,       E   x   p   :       E   x   p   N   o   d   e   ]  \r
0041000   \t   R   E   T   U   R   N   S   [   F   r   e   e   N   o   d
0041020    e   ]   ;  \r  \r   F   r   e   e   z   o   n   e   d   P   r
0041040    o   d   f   o   o   :  \t   f   o   o   P   r   o   c   T   y
0041060    p   e   ;  \r   E   N   D   .   .  \r                        
0041072