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