$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAG7Def.Mesa!18 0000000 - - S a f f r o n A G 7 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 R a u e n . p a 0000160 a t A u g u s t 3 , 1 9 0000200 8 8 1 0 : 5 2 : 3 8 a m P 0000220 D T \r - - u s i n g T h 0000240 r e e C a s a b a F o u r [ 1 0000260 . 2 ] o f J u n e 1 , 1 0000300 9 8 7 6 : 0 0 : 0 0 p m P 0000320 D T \r \r D I R E C T O R Y \r \t S 0000340 a f f r o n T r e e D e c l s D 0000360 e f , \r \t S a f f r o n G e n e 0000400 r i c D e f , \r \t S a f f r o n 0000420 A T D e f ; \r \r S a f f r o n A 0000440 G 7 D e f : C E D A R D E F 0000460 I N I T I O N S = \r B E G I 0000500 N \r O P E N S a f f r o n T r 0000520 e e D e c l s D e f , S a f f 0000540 r o n G e n e r i c D e f , S 0000560 a f f r o n A T D e f ; \r \r - - 0000600 A c c e s s e m p t y P r o d 0000620 \r \r A c c e s s e m p t y P r o 0000640 d D a t a : \t T Y P E = R E 0000660 F A c c e s s e m p t y P r o 0000700 d D a t a B o d y ; \r A c c e s 0000720 s e m p t y P r o d D a t a B o 0000740 d y : \t T Y P E = R E C O R 0000760 D [ \r ] ; \r \r A c c e s s e m p 0001000 t y P r o d P r o c s : \t A c c 0001020 e s s N o d e P r o c s ; \r \r B 0001040 u i l d A c c e s s e m p t y P 0001060 r o d N o d e : \t P R O C [ p o 0001100 s i t i o n : I N T , l e n 0001120 g t h : I N T ] \r \t R E T U R 0001140 N S [ A c c e s s N o d e ] ; \r 0001160 \r A c c e s s e m p t y P r o d 0001200 G e t A c c e s s V a l : \t G e 0001220 t A c c e s s V a l P r o c T y 0001240 p e ; \r \r - - A c c e s s p u 0001260 b l i c P r o d \r \r A c c e s s 0001300 p u b l i c P r o d D a t a : \t 0001320 T Y P E = R E F A c c e s 0001340 s p u b l i c P r o d D a t a B 0001360 o d y ; \r A c c e s s p u b l i 0001400 c P r o d D a t a B o d y : \t T 0001420 Y P E = R E C O R D [ \r ] ; 0001440 \r \r A c c e s s p u b l i c P r 0001460 o d P r o c s : \t A c c e s s N 0001500 o d e P r o c s ; \r \r B u i l d 0001520 A c c e s s p u b l i c P r o d 0001540 N o d e : \t P R O C [ p o s i t 0001560 i o n : I N T , l e n g t h 0001600 : I N T ] \r \t R E T U R N S [ 0001620 A c c e s s N o d e ] ; \r \r A c 0001640 c e s s p u b l i c P r o d G e 0001660 t A c c e s s V a l : \t G e t A 0001700 c c e s s V a l P r o c T y p e 0001720 ; \r \r - - A c c e s s p r i v 0001740 a t e P r o d \r \r A c c e s s p 0001760 r i v a t e P r o d D a t a : \t 0002000 T Y P E = R E F A c c e s 0002020 s p r i v a t e P r o d D a t a 0002040 B o d y ; \r A c c e s s p r i v 0002060 a t e P r o d D a t a B o d y : 0002100 \t T Y P E = R E C O R D [ \r 0002120 ] ; \r \r A c c e s s p r i v a t 0002140 e P r o d P r o c s : \t A c c e 0002160 s s N o d e P r o c s ; \r \r B u 0002200 i l d A c c e s s p r i v a t e 0002220 P r o d N o d e : \t P R O C [ p 0002240 o s i t i o n : I N T , l e 0002260 n g t h : I N T ] \r \t R E T U 0002300 R N S [ A c c e s s N o d e ] ; 0002320 \r \r A c c e s s p r i v a t e P 0002340 r o d G e t A c c e s s V a l : 0002360 \t G e t A c c e s s V a l P r o 0002400 c T y p e ; \r \r - - D e f a u 0002420 l t e m p t y P r o d \r \r D e f 0002440 a u l t e m p t y P r o d D a t 0002460 a : \t T Y P E = R E F D e 0002500 f a u l t e m p t y P r o d D a 0002520 t a B o d y ; \r D e f a u l t e 0002540 m p t y P r o d D a t a B o d y 0002560 : \t T Y P E = R E C O R D [ 0002600 \r ] ; \r \r D e f a u l t e m p t 0002620 y P r o d P r o c s : \t D e f a 0002640 u l t N o d e P r o c s ; \r \r B 0002660 u i l d D e f a u l t e m p t y 0002700 P r o d N o d e : \t P R O C [ p 0002720 o s i t i o n : I N T , l e 0002740 n g t h : I N T ] \r \t R E T U 0002760 R N S [ D e f a u l t N o d e ] 0003000 ; \r \r D e f a u l t e m p t y P 0003020 r o d G e t D e f a u l t E x p 0003040 V a l : \t G e t D e f a u l t E 0003060 x p V a l P r o c T y p e ; \r \r 0003100 - - D e f a u l t g e t s P r 0003120 o d \r \r D e f a u l t g e t s P 0003140 r o d D a t a : \t T Y P E = 0003160 R E F D e f a u l t g e t s P 0003200 r o d D a t a B o d y ; \r D e f 0003220 a u l t g e t s P r o d D a t a 0003240 B o d y : \t T Y P E = R E C 0003260 O R D [ \r ] ; \r \r D e f a u l t 0003300 g e t s P r o d P r o c s : \t D 0003320 e f a u l t N o d e P r o c s ; 0003340 \r \r B u i l d D e f a u l t g e 0003360 t s P r o d N o d e : \t P R O C 0003400 [ p o s i t i o n : I N T , 0003420 l e n g t h : I N T ] \r \t R E 0003440 T U R N S [ D e f a u l t N o d 0003460 e ] ; \r \r D e f a u l t g e t s 0003500 P r o d G e t D e f a u l t E x 0003520 p V a l : \t G e t D e f a u l t 0003540 E x p V a l P r o c T y p e ; \r 0003560 \r - - D e f a u l t g e t s e 0003600 x p P r o d \r \r D e f a u l t g 0003620 e t s e x p P r o d D a t a : \t 0003640 T Y P E = R E F D e f a u 0003660 l t g e t s e x p P r o d D a t 0003700 a B o d y ; \r D e f a u l t g e 0003720 t s e x p P r o d D a t a B o d 0003740 y : \t T Y P E = R E C O R D 0003760 [ \r E x p : E x p N o d e ] ; 0004000 \r \r D e f a u l t g e t s e x p 0004020 P r o d P r o c s : \t D e f a u 0004040 l t N o d e P r o c s ; \r \r B u 0004060 i l d D e f a u l t g e t s e x 0004100 p P r o d N o d e : \t P R O C [ 0004120 p o s i t i o n : I N T , l 0004140 e n g t h : I N T , E x p : 0004160 E x p N o d e ] \r \t R E T U R 0004200 N S [ D e f a u l t N o d e ] ; 0004220 \r \r D e f a u l t g e t s e x p 0004240 P r o d G e t D e f a u l t E x 0004260 p V a l : \t G e t D e f a u l t 0004300 E x p V a l P r o c T y p e ; \r 0004320 \r - - D e f a u l t g e t s t 0004340 r a s h P r o d \r \r D e f a u l 0004360 t g e t s t r a s h P r o d D a 0004400 t a : \t T Y P E = R E F D 0004420 e f a u l t g e t s t r a s h P 0004440 r o d D a t a B o d y ; \r D e f 0004460 a u l t g e t s t r a s h P r o 0004500 d D a t a B o d y : \t T Y P E 0004520 = R E C O R D [ \r ] ; \r \r D e 0004540 f a u l t g e t s t r a s h P r 0004560 o d P r o c s : \t D e f a u l t 0004600 N o d e P r o c s ; \r \r B u i l 0004620 d D e f a u l t g e t s t r a s 0004640 h P r o d N o d e : \t P R O C [ 0004660 p o s i t i o n : I N T , l 0004700 e n g t h : I N T ] \r \t R E T 0004720 U R N S [ D e f a u l t N o d e 0004740 ] ; \r \r D e f a u l t g e t s t 0004760 r a s h P r o d G e t D e f a u 0005000 l t E x p V a l : \t G e t D e f 0005020 a u l t E x p V a l P r o c T y 0005040 p e ; \r \r - - D e f a u l t g 0005060 e t s e x p o r t r a s h P r o 0005100 d \r \r D e f a u l t g e t s e x 0005120 p o r t r a s h P r o d D a t a 0005140 : \t T Y P E = R E F D e f 0005160 a u l t g e t s e x p o r t r a 0005200 s h P r o d D a t a B o d y ; \r 0005220 D e f a u l t g e t s e x p o r 0005240 t r a s h P r o d D a t a B o d 0005260 y : \t T Y P E = R E C O R D 0005300 [ \r E x p : E x p N o d e ] ; 0005320 \r \r D e f a u l t g e t s e x p 0005340 o r t r a s h P r o d P r o c s 0005360 : \t D e f a u l t N o d e P r o 0005400 c s ; \r \r B u i l d D e f a u l 0005420 t g e t s e x p o r t r a s h P 0005440 r o d N o d e : \t P R O C [ p o 0005460 s i t i o n : I N T , l e n 0005500 g t h : I N T , E x p : E 0005520 x p N o d e ] \r \t R E T U R N S 0005540 [ D e f a u l t N o d e ] ; \r \r 0005560 D e f a u l t g e t s e x p o r 0005600 t r a s h P r o d G e t D e f a 0005620 u l t E x p V a l : \t G e t D e 0005640 f a u l t E x p V a l P r o c T 0005660 y p e ; \r \r - - I d e n t i d 0005700 P r o d \r \r I d e n t i d P r o 0005720 d D a t a : \t T Y P E = R E 0005740 F I d e n t i d P r o d D a t 0005760 a B o d y ; \r I d e n t i d P r 0006000 o d D a t a B o d y : \t T Y P E 0006020 = R E C O R D [ \r I d : I 0006040 d N o d e ] ; \r \r I d e n t i d 0006060 P r o d P r o c s : \t I d e n t 0006100 N o d e P r o c s ; \r \r B u i l 0006120 d I d e n t i d P r o d N o d e 0006140 : \t P R O C [ p o s i t i o n : 0006160 I N T , l e n g t h : I N 0006200 T , I d : I d N o d e ] \r \t 0006220 R E T U R N S [ I d e n t N o d 0006240 e ] ; \r \r I d e n t i d P r o d 0006260 A d d N a m e s T o F i e l d L 0006300 i s t : \t A d d N a m e s T o F 0006320 i e l d L i s t P r o c T y p e 0006340 ; \r I d e n t i d P r o d G e t 0006360 I d e n t I n f o : \t G e t I d 0006400 e n t I n f o P r o c T y p e ; 0006420 \r I d e n t i d P r o d A d d N 0006440 a m e s T o S e q u e n c e : \t 0006460 A d d N a m e s T o S e q u e n 0006500 c e P r o c T y p e ; \r I d e n 0006520 t i d P r o d A d d V a l u e D 0006540 e c l a r a t i o n T o F i e l 0006560 d L i s t : \t A d d V a l u e D 0006600 e c l a r a t i o n T o F i e l 0006620 d L i s t P r o c T y p e ; \r I 0006640 d e n t i d P r o d A d d T y p 0006660 e D e c l a r a t i o n T o F i 0006700 e l d L i s t : \t A d d T y p e 0006720 D e c l a r a t i o n T o F i e 0006740 l d L i s t P r o c T y p e ; \r 0006760 \r - - I d e n t i d p o s i t 0007000 i o n P r o d \r \r I d e n t i d 0007020 p o s i t i o n P r o d D a t a 0007040 : \t T Y P E = R E F I d e 0007060 n t i d p o s i t i o n P r o d 0007100 D a t a B o d y ; \r I d e n t i 0007120 d p o s i t i o n P r o d D a t 0007140 a B o d y : \t T Y P E = R E 0007160 C O R D [ \r I d : I d N o d e 0007200 , P o s i t i o n : P o s i 0007220 t i o n N o d e ] ; \r \r I d e n 0007240 t i d p o s i t i o n P r o d P 0007260 r o c s : \t I d e n t N o d e P 0007300 r o c s ; \r \r B u i l d I d e n 0007320 t i d p o s i t i o n P r o d N 0007340 o d e : \t P R O C [ p o s i t i 0007360 o n : I N T , l e n g t h : 0007400 I N T , I d : I d N o d e 0007420 , P o s i t i o n : P o s i 0007440 t i o n N o d e ] \r \t R E T U R 0007460 N S [ I d e n t N o d e ] ; \r \r 0007500 I d e n t i d p o s i t i o n P 0007520 r o d A d d N a m e s T o F i e 0007540 l d L i s t : \t A d d N a m e s 0007560 T o F i e l d L i s t P r o c T 0007600 y p e ; \r I d e n t i d p o s i 0007620 t i o n P r o d G e t I d e n t 0007640 I n f o : \t G e t I d e n t I n 0007660 f o P r o c T y p e ; \r I d e n 0007700 t i d p o s i t i o n P r o d A 0007720 d d N a m e s T o S e q u e n c 0007740 e : \t A d d N a m e s T o S e q 0007760 u e n c e P r o c T y p e ; \r I 0010000 d e n t i d p o s i t i o n P r 0010020 o d A d d V a l u e D e c l a r 0010040 a t i o n T o F i e l d L i s t 0010060 : \t A d d V a l u e D e c l a r 0010100 a t i o n T o F i e l d L i s t 0010120 P r o c T y p e ; \r I d e n t i 0010140 d p o s i t i o n P r o d A d d 0010160 T y p e D e c l a r a t i o n T 0010200 o F i e l d L i s t : \t A d d T 0010220 y p e D e c l a r a t i o n T o 0010240 F i e l d L i s t P r o c T y p 0010260 e ; \r \r - - P o s i t i o n P 0010300 r o d \r \r P o s i t i o n P r o 0010320 d D a t a : \t T Y P E = R E 0010340 F P o s i t i o n P r o d D a 0010360 t a B o d y ; \r P o s i t i o n 0010400 P r o d D a t a B o d y : \t T Y 0010420 P E = R E C O R D [ \r E x p 0010440 : E x p N o d e , O p t B i 0010460 t s : O p t B i t s N o d e ] 0010500 ; \r \r P o s i t i o n P r o d P 0010520 r o c s : \t P o s i t i o n N o 0010540 d e P r o c s ; \r \r B u i l d P 0010560 o s i t i o n P r o d N o d e : 0010600 \t P R O C [ p o s i t i o n : 0010620 I N T , l e n g t h : I N T 0010640 , E x p : E x p N o d e , 0010660 O p t B i t s : O p t B i t s 0010700 N o d e ] \r \t R E T U R N S [ P 0010720 o s i t i o n N o d e ] ; \r \r P 0010740 o s i t i o n P r o d G e t P o 0010760 s i t i o n V a l : \t G e t P o 0011000 s i t i o n V a l P r o c T y p 0011020 e ; \r \r - - O p t B i t s a b 0011040 s e n t P r o d \r \r O p t B i t 0011060 s a b s e n t P r o d D a t a : 0011100 \t T Y P E = R E F O p t B 0011120 i t s a b s e n t P r o d D a t 0011140 a B o d y ; \r O p t B i t s a b 0011160 s e n t P r o d D a t a B o d y 0011200 : \t T Y P E = R E C O R D [ 0011220 \r ] ; \r \r O p t B i t s a b s e 0011240 n t P r o d P r o c s : \t O p t 0011260 B i t s N o d e P r o c s ; \r \r 0011300 B u i l d O p t B i t s a b s e 0011320 n t P r o d N o d e : \t P R O C 0011340 [ p o s i t i o n : I N T , 0011360 l e n g t h : I N T ] \r \t R E 0011400 T U R N S [ O p t B i t s N o d 0011420 e ] ; \r \r O p t B i t s a b s e 0011440 n t P r o d G e t B o u n d s V 0011460 a l : \t G e t B o u n d s V a l 0011500 P r o c T y p e ; \r \r - - O p 0011520 t B i t s p r e s e n t P r o d 0011540 \r \r O p t B i t s p r e s e n t 0011560 P r o d D a t a : \t T Y P E = 0011600 R E F O p t B i t s p r e s 0011620 e n t P r o d D a t a B o d y ; 0011640 \r O p t B i t s p r e s e n t P 0011660 r o d D a t a B o d y : \t T Y P 0011700 E = R E C O R D [ \r B o u n 0011720 d s : B o u n d s N o d e ] ; 0011740 \r \r O p t B i t s p r e s e n t 0011760 P r o d P r o c s : \t O p t B i 0012000 t s N o d e P r o c s ; \r \r B u 0012020 i l d O p t B i t s p r e s e n 0012040 t P r o d N o d e : \t P R O C [ 0012060 p o s i t i o n : I N T , l 0012100 e n g t h : I N T , B o u n 0012120 d s : B o u n d s N o d e ] \r 0012140 \t R E T U R N S [ O p t B i t s 0012160 N o d e ] ; \r \r O p t B i t s p 0012200 r e s e n t P r o d G e t B o u 0012220 n d s V a l : \t G e t B o u n d 0012240 s V a l P r o c T y p e ; \r \r - 0012260 - I d e n t L i s t o n e P r 0012300 o d \r \r I d e n t L i s t o n e 0012320 P r o d D a t a : \t T Y P E = 0012340 R E F I d e n t L i s t o n 0012360 e P r o d D a t a B o d y ; \r I 0012400 d e n t L i s t o n e P r o d D 0012420 a t a B o d y : \t T Y P E = 0012440 R E C O R D [ \r I d e n t : I 0012460 d e n t N o d e ] ; \r \r I d e n 0012500 t L i s t o n e P r o d P r o c 0012520 s : \t I d e n t L i s t N o d e 0012540 P r o c s ; \r \r B u i l d I d e 0012560 n t L i s t o n e P r o d N o d 0012600 e : \t P R O C [ p o s i t i o n 0012620 : I N T , l e n g t h : I 0012640 N T , I d e n t : I d e n t 0012660 N o d e ] \r \t R E T U R N S [ I 0012700 d e n t L i s t N o d e ] ; \r \r 0012720 I d e n t L i s t o n e P r o d 0012740 A d d N a m e s T o F i e l d L 0012760 i s t : \t A d d N a m e s T o F 0013000 i e l d L i s t P r o c T y p e 0013020 ; \r I d e n t L i s t o n e P r 0013040 o d M a k e N a m e S e q u e n 0013060 c e : \t M a k e N a m e S e q u 0013100 e n c e P r o c T y p e ; \r I d 0013120 e n t L i s t o n e P r o d A d 0013140 d N a m e s T o S e q u e n c e 0013160 : \t A d d N a m e s T o S e q u 0013200 e n c e P r o c T y p e ; \r I d 0013220 e n t L i s t o n e P r o d A d 0013240 d V a l u e D e c l a r a t i o 0013260 n T o F i e l d L i s t : \t A d 0013300 d V a l u e D e c l a r a t i o 0013320 n T o F i e l d L i s t P r o c 0013340 T y p e ; \r I d e n t L i s t o 0013360 n e P r o d A d d T y p e D e c 0013400 l a r a t i o n T o F i e l d L 0013420 i s t : \t A d d T y p e D e c l 0013440 a r a t i o n T o F i e l d L i 0013460 s t P r o c T y p e ; \r \r - - 0013500 I d e n t L i s t m a n y P r o 0013520 d \r \r I d e n t L i s t m a n y 0013540 P r o d D a t a : \t T Y P E = 0013560 R E F I d e n t L i s t m a 0013600 n y P r o d D a t a B o d y ; \r 0013620 I d e n t L i s t m a n y P r o 0013640 d D a t a B o d y : \t T Y P E 0013660 = R E C O R D [ \r I d e n t L 0013700 i s t h e a d : I d e n t L i 0013720 s t N o d e , I d e n t L i s 0013740 t t a i l : I d e n t L i s t 0013760 N o d e ] ; \r \r I d e n t L i s 0014000 t m a n y P r o d P r o c s : \t 0014020 I d e n t L i s t N o d e P r o 0014040 c s ; \r \r B u i l d I d e n t L 0014060 i s t m a n y P r o d N o d e : 0014100 \t P R O C [ p o s i t i o n : 0014120 I N T , l e n g t h : I N T 0014140 , I d e n t L i s t h e a d : 0014160 I d e n t L i s t N o d e , 0014200 I d e n t L i s t t a i l : I 0014220 d e n t L i s t N o d e ] \r \t R 0014240 E T U R N S [ I d e n t L i s t 0014260 N o d e ] ; \r \r I d e n t L i s 0014300 t m a n y P r o d A d d N a m e 0014320 s T o F i e l d L i s t : \t A d 0014340 d N a m e s T o F i e l d L i s 0014360 t P r o c T y p e ; \r I d e n t 0014400 L i s t m a n y P r o d M a k e 0014420 N a m e S e q u e n c e : \t M a 0014440 k e N a m e S e q u e n c e P r 0014460 o c T y p e ; \r I d e n t L i s 0014500 t m a n y P r o d A d d N a m e 0014520 s T o S e q u e n c e : \t A d d 0014540 N a m e s T o S e q u e n c e P 0014560 r o c T y p e ; \r I d e n t L i 0014600 s t m a n y P r o d A d d V a l 0014620 u e D e c l a r a t i o n T o F 0014640 i e l d L i s t : \t A d d V a l 0014660 u e D e c l a r a t i o n T o F 0014700 i e l d L i s t P r o c T y p e 0014720 ; \r I d e n t L i s t m a n y P 0014740 r o d A d d T y p e D e c l a r 0014760 a t i o n T o F i e l d L i s t 0015000 : \t A d d T y p e D e c l a r a 0015020 t i o n T o F i e l d L i s t P 0015040 r o c T y p e ; \r \r - - T a g 0015060 i d e n t P r o d \r \r T a g i d 0015100 e n t P r o d D a t a : \t T Y P 0015120 E = R E F T a g i d e n t 0015140 P r o d D a t a B o d y ; \r T a 0015160 g i d e n t P r o d D a t a B o 0015200 d y : \t T Y P E = R E C O R 0015220 D [ \r I d e n t : I d e n t N 0015240 o d e , A c c e s s : A c c 0015260 e s s N o d e , T a g T y p e 0015300 : T a g T y p e N o d e ] ; \r 0015320 \r T a g i d e n t P r o d P r o 0015340 c s : \t T a g N o d e P r o c s 0015360 ; \r \r B u i l d T a g i d e n t 0015400 P r o d N o d e : \t P R O C [ p 0015420 o s i t i o n : I N T , l e 0015440 n g t h : I N T , I d e n t 0015460 : I d e n t N o d e , A c c 0015500 e s s : A c c e s s N o d e , 0015520 T a g T y p e : T a g T y p 0015540 e N o d e ] \r \t R E T U R N S [ 0015560 T a g N o d e ] ; \r \r T a g i d 0015600 e n t P r o d M a k e V a r i a 0015620 n t F l a v o r : \t M a k e V a 0015640 r i a n t F l a v o r P r o c T 0015660 y p e ; \r T a g i d e n t P r o 0015700 d M a k e T a g T y p e : \t M a 0015720 k e T a g T y p e P r o c T y p 0015740 e ; \r T a g i d e n t P r o d G 0015760 e t S e q u e n c e T a g I n f 0016000 o : \t G e t S e q u e n c e T a 0016020 g I n f o P r o c T y p e ; \r \r 0016040 - - T a g c o m p u t e d P r 0016060 o d \r \r T a g c o m p u t e d P 0016100 r o d D a t a : \t T Y P E = 0016120 R E F T a g c o m p u t e d P 0016140 r o d D a t a B o d y ; \r T a g 0016160 c o m p u t e d P r o d D a t a 0016200 B o d y : \t T Y P E = R E C 0016220 O R D [ \r T a g T y p e : T a 0016240 g T y p e N o d e ] ; \r \r T a g 0016260 c o m p u t e d P r o d P r o c 0016300 s : \t T a g N o d e P r o c s ; 0016320 \r \r B u i l d T a g c o m p u t 0016340 e d P r o d N o d e : \t P R O C 0016360 [ p o s i t i o n : I N T , 0016400 l e n g t h : I N T , T a g 0016420 T y p e : T a g T y p e N o d 0016440 e ] \r \t R E T U R N S [ T a g N 0016460 o d e ] ; \r \r T a g c o m p u t 0016500 e d P r o d M a k e V a r i a n 0016520 t F l a v o r : \t M a k e V a r 0016540 i a n t F l a v o r P r o c T y 0016560 p e ; \r T a g c o m p u t e d P 0016600 r o d M a k e T a g T y p e : \t 0016620 M a k e T a g T y p e P r o c T 0016640 y p e ; \r T a g c o m p u t e d 0016660 P r o d G e t S e q u e n c e T 0016700 a g I n f o : \t G e t S e q u e 0016720 n c e T a g I n f o P r o c T y 0016740 p e ; \r \r - - T a g o v e r l 0016760 a i d P r o d \r \r T a g o v e r 0017000 l a i d P r o d D a t a : \t T Y 0017020 P E = R E F T a g o v e r 0017040 l a i d P r o d D a t a B o d y 0017060 ; \r T a g o v e r l a i d P r o 0017100 d D a t a B o d y : \t T Y P E 0017120 = R E C O R D [ \r T a g T y p 0017140 e : T a g T y p e N o d e ] ; 0017160 \r \r T a g o v e r l a i d P r o 0017200 d P r o c s : \t T a g N o d e P 0017220 r o c s ; \r \r B u i l d T a g o 0017240 v e r l a i d P r o d N o d e : 0017260 \t P R O C [ p o s i t i o n : 0017300 I N T , l e n g t h : I N T 0017320 , T a g T y p e : T a g T y 0017340 p e N o d e ] \r \t R E T U R N S 0017360 [ T a g N o d e ] ; \r \r T a g o 0017400 v e r l a i d P r o d M a k e V 0017420 a r i a n t F l a v o r : \t M a 0017440 k e V a r i a n t F l a v o r P 0017460 r o c T y p e ; \r T a g o v e r 0017500 l a i d P r o d M a k e T a g T 0017520 y p e : \t M a k e T a g T y p e 0017540 P r o c T y p e ; \r T a g o v e 0017560 r l a i d P r o d G e t S e q u 0017600 e n c e T a g I n f o : \t G e t 0017620 S e q u e n c e T a g I n f o P 0017640 r o c T y p e ; \r \r - - T a g 0017660 T y p e s t a r P r o d \r \r T a 0017700 g T y p e s t a r P r o d D a t 0017720 a : \t T Y P E = R E F T a 0017740 g T y p e s t a r P r o d D a t 0017760 a B o d y ; \r T a g T y p e s t 0020000 a r P r o d D a t a B o d y : \t 0020020 T Y P E = R E C O R D [ \r ] 0020040 ; \r \r T a g T y p e s t a r P r 0020060 o d P r o c s : \t T a g T y p e 0020100 N o d e P r o c s ; \r \r B u i l 0020120 d T a g T y p e s t a r P r o d 0020140 N o d e : \t P R O C [ p o s i t 0020160 i o n : I N T , l e n g t h 0020200 : I N T ] \r \t R E T U R N S [ 0020220 T a g T y p e N o d e ] ; \r \r T 0020240 a g T y p e s t a r P r o d M a 0020260 k e T a g T y p e : \t M a k e T 0020300 a g T y p e P r o c T y p e ; \r 0020320 \r - - T a g T y p e t y p e e 0020340 x p P r o d \r \r T a g T y p e t 0020360 y p e e x p P r o d D a t a : \t 0020400 T Y P E = R E F T a g T y 0020420 p e t y p e e x p P r o d D a t 0020440 a B o d y ; \r T a g T y p e t y 0020460 p e e x p P r o d D a t a B o d 0020500 y : \t T Y P E = R E C O R D 0020520 [ \r T y p e E x p : T y p e E 0020540 x p N o d e ] ; \r \r T a g T y p 0020560 e t y p e e x p P r o d P r o c 0020600 s : \t T a g T y p e N o d e P r 0020620 o c s ; \r \r B u i l d T a g T y 0020640 p e t y p e e x p P r o d N o d 0020660 e : \t P R O C [ p o s i t i o n 0020700 : I N T , l e n g t h : I 0020720 N T , T y p e E x p : T y p 0020740 e E x p N o d e ] \r \t R E T U R 0020760 N S [ T a g T y p e N o d e ] ; 0021000 \r \r T a g T y p e t y p e e x p 0021020 P r o d M a k e T a g T y p e : 0021040 \t M a k e T a g T y p e P r o c 0021060 T y p e ; \r \r - - V a r i a n 0021100 t L i s t o n e P r o d \r \r V a 0021120 r i a n t L i s t o n e P r o d 0021140 D a t a : \t T Y P E = R E F 0021160 V a r i a n t L i s t o n e P 0021200 r o d D a t a B o d y ; \r V a r 0021220 i a n t L i s t o n e P r o d D 0021240 a t a B o d y : \t T Y P E = 0021260 R E C O R D [ \r V a r i a n t I 0021300 t e m : V a r i a n t I t e m 0021320 N o d e ] ; \r \r V a r i a n t L 0021340 i s t o n e P r o d P r o c s : 0021360 \t V a r i a n t L i s t N o d e 0021400 P r o c s ; \r \r B u i l d V a r 0021420 i a n t L i s t o n e P r o d N 0021440 o d e : \t P R O C [ p o s i t i 0021460 o n : I N T , l e n g t h : 0021500 I N T , V a r i a n t I t e 0021520 m : V a r i a n t I t e m N o 0021540 d e ] \r \t R E T U R N S [ V a r 0021560 i a n t L i s t N o d e ] ; \r \r 0021600 V a r i a n t L i s t o n e P r 0021620 o d M a k e U n i o n L i s t : 0021640 \t M a k e U n i o n L i s t P r 0021660 o c T y p e ; \r V a r i a n t L 0021700 i s t o n e P r o d A d d V a r 0021720 i a n t s T o U n i o n L i s t 0021740 : \t A d d V a r i a n t s T o U 0021760 n i o n L i s t P r o c T y p e 0022000 ; \r V a r i a n t L i s t o n e 0022020 P r o d M a k e S t a r T a g T 0022040 y p e : \t M a k e S t a r T a g 0022060 T y p e P r o c T y p e ; \r V a 0022100 r i a n t L i s t o n e P r o d 0022120 A d d V a r i a n t N a m e s T 0022140 o E n u m T y p e T G N : \t A d 0022160 d V a r i a n t N a m e s T o E 0022200 n u m T y p e T G N P r o c T y 0022220 p e ; \r \r - - V a r i a n t L 0022240 i s t m o r e P r o d \r \r V a r 0022260 i a n t L i s t m o r e P r o d 0022300 D a t a : \t T Y P E = R E F 0022320 V a r i a n t L i s t m o r e 0022340 P r o d D a t a B o d y ; \r V a 0022360 r i a n t L i s t m o r e P r o 0022400 d D a t a B o d y : \t T Y P E 0022420 = R E C O R D [ \r V a r i a n 0022440 t L i s t : V a r i a n t L i 0022460 s t N o d e , V a r i a n t I 0022500 t e m : V a r i a n t I t e m 0022520 N o d e ] ; \r \r V a r i a n t L 0022540 i s t m o r e P r o d P r o c s 0022560 : \t V a r i a n t L i s t N o d 0022600 e P r o c s ; \r \r B u i l d V a 0022620 r i a n t L i s t m o r e P r o 0022640 d N o d e : \t P R O C [ p o s i 0022660 t i o n : I N T , l e n g t 0022700 h : I N T , V a r i a n t L 0022720 i s t : V a r i a n t L i s t 0022740 N o d e , V a r i a n t I t e 0022760 m : V a r i a n t I t e m N o 0023000 d e ] \r \t R E T U R N S [ V a r 0023020 i a n t L i s t N o d e ] ; \r \r 0023040 V a r i a n t L i s t m o r e P 0023060 r o d M a k e U n i o n L i s t 0023100 : \t M a k e U n i o n L i s t P 0023120 r o c T y p e ; \r V a r i a n t 0023140 L i s t m o r e P r o d A d d V 0023160 a r i a n t s T o U n i o n L i 0023200 s t : \t A d d V a r i a n t s T 0023220 o U n i o n L i s t P r o c T y 0023240 p e ; \r V a r i a n t L i s t m 0023260 o r e P r o d M a k e S t a r T 0023300 a g T y p e : \t M a k e S t a r 0023320 T a g T y p e P r o c T y p e ; 0023340 \r V a r i a n t L i s t m o r e 0023360 P r o d A d d V a r i a n t N a 0023400 m e s T o E n u m T y p e T G N 0023420 : \t A d d V a r i a n t N a m e 0023440 s T o E n u m T y p e T G N P r 0023460 o c T y p e ; \r \r - - V a r i 0023500 a n t I t e m P r o d \r \r V a r 0023520 i a n t I t e m P r o d D a t a 0023540 : \t T Y P E = R E F V a r 0023560 i a n t I t e m P r o d D a t a 0023600 B o d y ; \r V a r i a n t I t e 0023620 m P r o d D a t a B o d y : \t T 0023640 Y P E = R E C O R D [ \r I d 0023660 L i s t : I d L i s t N o d e 0023700 , R e c L i s t : R e c L i 0023720 s t N o d e ] ; \r \r V a r i a n 0023740 t I t e m P r o d P r o c s : \t 0023760 V a r i a n t I t e m N o d e P 0024000 r o c s ; \r \r B u i l d V a r i 0024020 a n t I t e m P r o d N o d e : 0024040 \t P R O C [ p o s i t i o n : 0024060 I N T , l e n g t h : I N T 0024100 , I d L i s t : I d L i s t 0024120 N o d e , R e c L i s t : R 0024140 e c L i s t N o d e ] \r \t R E T 0024160 U R N S [ V a r i a n t I t e m 0024200 N o d e ] ; \r \r V a r i a n t I 0024220 t e m P r o d A d d V a r i a n 0024240 t s T o U n i o n L i s t : \t A 0024260 d d V a r i a n t s T o U n i o 0024300 n L i s t P r o c T y p e ; \r V 0024320 a r i a n t I t e m P r o d A d 0024340 d V a r i a n t N a m e s T o E 0024360 n u m T y p e T G N : \t A d d V 0024400 a r i a n t N a m e s T o E n u 0024420 m T y p e T G N P r o c T y p e 0024440 ; \r \r - - P a c k e d y e s P 0024460 r o d \r \r P a c k e d y e s P r 0024500 o d D a t a : \t T Y P E = R 0024520 E F P a c k e d y e s P r o d 0024540 D a t a B o d y ; \r P a c k e d 0024560 y e s P r o d D a t a B o d y : 0024600 \t T Y P E = R E C O R D [ \r 0024620 ] ; \r \r P a c k e d y e s P r o 0024640 d P r o c s : \t P a c k e d N o 0024660 d e P r o c s ; \r \r B u i l d P 0024700 a c k e d y e s P r o d N o d e 0024720 : \t P R O C [ p o s i t i o n : 0024740 I N T , l e n g t h : I N 0024760 T ] \r \t R E T U R N S [ P a c k 0025000 e d N o d e ] ; \r \r P a c k e d 0025020 y e s P r o d G e t B o o l e a 0025040 n V a l : \t G e t B o o l e a n 0025060 V a l P r o c T y p e ; \r \r - - 0025100 P a c k e d n o P r o d \r \r P 0025120 a c k e d n o P r o d D a t a : 0025140 \t T Y P E = R E F P a c k 0025160 e d n o P r o d D a t a B o d y 0025200 ; \r P a c k e d n o P r o d D a 0025220 t a B o d y : \t T Y P E = R 0025240 E C O R D [ \r ] ; \r \r P a c k e 0025260 d n o P r o d P r o c s : \t P a 0025300 c k e d N o d e P r o c s ; \r \r 0025320 B u i l d P a c k e d n o P r o 0025340 d N o d e : \t P R O C [ p o s i 0025360 t i o n : I N T , l e n g t 0025400 h : I N T ] \r \t R E T U R N S 0025420 [ P a c k e d N o d e ] ; \r \r P 0025440 a c k e d n o P r o d G e t B o 0025460 o l e a n V a l : \t G e t B o o 0025500 l e a n V a l P r o c T y p e ; 0025520 \r E N D . . \r 0025527