$ od -c -N 50000 [phylum]<LISP>Lyric>Sources>CMLARRAY-SUPPORT.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " X C L " 247 B A S E 1 0
0000100 ) \r ( F I L E C R E A T E D "
0000120 1 8 - D e c - 8 6 1 8 : 2 7 :
0000140 2 8 " ( " c o m p i l e d o
0000160 n " { Q V } < P E D E R S E
0000200 N > L I S P > C M L A R R A Y -
0000220 S U P P O R T . \ ; 2 ) \r " 1
0000240 8 - D e c - 8 6 1 1 : 4 2 : 3
0000260 7 " " C O M P I L E - F I L E
0000300 d " | i n | " X e r o x L
0000320 i s p 1 8 - D e c - 8 6 . .
0000340 . " | d a t e d | " 1 8 - D
0000360 e c - 8 6 1 2 : 1 7 : 2 0 " )
0000400 \r ( F I L E C R E A T E D " 1
0000420 8 - D e c - 8 6 1 8 : 2 4 : 5
0000440 7 " { Q V } < P E D E R S E N
0000460 > L I S P > C M L A R R A Y - S
0000500 U P P O R T . \ ; 2 3 8 2 9 6
0000520 | c h a n g e s | | t o : |
0000540 ( V A R S \r C M L A R R A Y
0000560 - S U P P O R T C O M S ) ( F
0000600 U N C T I O N S % V E C T O R
0000620 P % S T R I N G P % S I M P
0000640 L E - S T R I N G - P % S I M
0000660 P L E - A R R A Y - P % A R R
0000700 A Y P ) \r | p r e v i o u s |
0000720 | d a t e : | " 1 6 - D e c
0000740 - 8 6 2 1 : 1 0 : 3 3 " { Q
0000760 V } < P E D E R S E N > L I S P
0001000 > C M L A R R A Y - S U P P O R
0001020 T . \ ; 1 ) \r ( R P A Q Q C M
0001040 L A R R A Y - S U P P O R T C O
0001060 M S ( ( * | ; ; | " R e c
0001100 o r d d e f ' s " ) ( R E C
0001120 O R D S A R R A Y - H E A D E
0001140 R G E N E R A L - A R R A Y
0001160 O N E D - A R R A Y \r T W O D
0001200 - A R R A Y ) ( * | ; ; |
0001220 " C m l a r r a y s u p p o r
0001240 t m a c r o s a n d f u n
0001260 c t i o n s " ) ( * \ ; "
0001300 F a s t p r e d i c a t e s "
0001320 ) ( F U N C T I O N S \r % A
0001340 R R A Y P % S I M P L E - A R
0001360 R A Y - P % S I M P L E - S T
0001400 R I N G - P % S T R I N G P
0001420 % V E C T O R P ) ( F U N C T
0001440 I O N S % C H E C K - C I R C
0001460 L E - P R I N T \r % C H E C K
0001500 - I N D I C E S % C H E C K -
0001520 N O T - W R I T E A B L E % E
0001540 X P A N D - B I T - O P % G E
0001560 N E R A L - A R R A Y - A D J U
0001600 S T - B A S E % G E T - A R R
0001620 A Y - O F F S E T \r % G E T -
0001640 B A S E - A R R A Y ) ( F U N
0001660 C T I O N S % B I T - T Y P E
0001700 - P % C H A R - T Y P E - P
0001720 % C M L - T Y P E - T O - T Y P
0001740 E N U M B E R - E X P A N D E R
0001760 % F A T - C H A R - T Y P E -
0002000 P \r % F A T - S T R I N G - C
0002020 H A R - P % G E T - T Y P E -
0002040 T A B L E - E N T R Y % L I T
0002060 - S I Z E - T O - S I Z E % L
0002100 I T - T Y P E - T O - T Y P E
0002120 \r % L L A R R A Y - M A K E - A
0002140 C C E S S O R - E X P R % L L
0002160 A R R A Y - M A K E - S E T T O
0002200 R - E X P R % L L A R R A Y -
0002220 T Y P E D - G E T % L L A R R
0002240 A Y - T Y P E D - P U T \r % L
0002260 L A R R A Y - T Y P E P % M A
0002300 K E - A R R A Y - T Y P E - T A
0002320 B L E % M A K E - C M L - T Y
0002340 P E - T A B L E % P A C K - T
0002360 Y P E N U M B E R % S M A L L
0002400 F I X P - S M A L L P O S P \r
0002420 % S M A L L P O S P - S M A L L
0002440 F I X P % T H I N - C H A R -
0002460 T Y P E - P % T H I N - S T R
0002500 I N G - C H A R - P % T Y P E
0002520 - S I Z E - T O - T Y P E N U M
0002540 B E R \r % T Y P E N U M B E R
0002560 - T O - B I T S - P E R - E L E
0002600 M E N T % T Y P E N U M B E R
0002620 - T O - C M L - T Y P E % T Y
0002640 P E N U M B E R - T O - D E F A
0002660 U L T - V A L U E \r % T Y P E
0002700 N U M B E R - T O - G C - T Y P
0002720 E % T Y P E N U M B E R - T O
0002740 - S I Z E % T Y P E N U M B E
0002760 R - T O - T Y P E \ \ G E T B
0003000 A S E S M A L L - F I X P \r \
0003020 \ G E T B A S E S T R I N G - C
0003040 H A R \ \ G E T B A S E T H I
0003060 N S T R I N G - C H A R \ \ P
0003100 U T B A S E S M A L L - F I X P
0003120 \ \ P U T B A S E S T R I N G
0003140 - C H A R \r \ \ P U T B A S E
0003160 T H I N S T R I N G - C H A R )
0003200 ( * | ; ; ; | " D e s c r
0003220 i b e s e a c h e n t r y
0003240 o f \ \ A R R A Y - T Y P E -
0003260 T A B L E " ) ( S T R U C T U
0003300 R E S \r A R R A Y - T A B L E
0003320 - E N T R Y ) ( * | ; ; ; |
0003340 " T h e s e v a r s c o n
0003360 t a i n a l l t h e n e c
0003400 e s s a r y i n f o f o r
0003420 t y p e d a r r a y s " ) (
0003440 V A R I A B L E S \r % L I T -
0003460 A R R A Y - S I Z E S % L I T
0003500 - A R R A Y - T A B L E % L I
0003520 T - A R R A Y - T Y P E S ) (
0003540 * | ; ; ; | " T a b l e s
0003560 t h a t d r i v e s v a r i
0003600 o u s m a c r o s " ) ( \r V
0003620 A R I A B L E S % A R R A Y -
0003640 T Y P E - T A B L E % C A N O
0003660 N I C A L - C M L - T Y P E S )
0003700 ( * | ; ; ; | " C o n s t
0003720 a n t s f o r ( S I G N E D
0003740 - B Y T E 1 6 ) " ) ( \r V A
0003760 R I A B L E S M A X . S M A L
0004000 L F I X P M I N . S M A L L F
0004020 I X P ) ( * | ; ; ; | " C
0004040 o n s t a n t s f o r S T R
0004060 I N G - C H A R S " ) ( V A R
0004100 I A B L E S % C H A R - T Y P
0004120 E \r % B I T - T Y P E % T H
0004140 I N - C H A R - T Y P E N U M B
0004160 E R % F A T - C H A R - T Y P
0004200 E N U M B E R % M A X T H I N
0004220 C H A R ) ( * | ; ; ; | "
0004240 A r r a y d a t a - t y p e
0004260 n u m b e r s " ) \r ( V A R I
0004300 A B L E S % G E N E R A L - A
0004320 R R A Y % O N E D - A R R A Y
0004340 % T W O D - A R R A Y ) ( *
0004360 | ; ; ; | " C o m p i l e r
0004400 o p t i o n s " ) ( D E C L
0004420 A R E \ : \r D O N T E V A L @
0004440 L O A D D O E V A L @ C O M P
0004460 I L E D O N T C O P Y ( L O
0004500 C A L V A R S . T ) ) ( P
0004520 R O P F I L E T Y P E C M L
0004540 A R R A Y - S U P P O R T ) ) )
0004560 \r ( B L O C K R E C O R D A R
0004600 R A Y - H E A D E R ( ( * |
0004620 ; ; ; | " D e s c r i b e s
0004640 c o m m o n s l o t s o f
0004660 a l l a r r a y h e a d e r
0004700 s " ) ( * \ ; \r " F i r s
0004720 t 8 b i t s a r e u n u
0004740 s e d " ) ( B A S E P O I N
0004760 T E R ) ( * \ ; \r " 2 4
0005000 b i t s o f p o i n t e r .
0005020 P o i n t s a t r a w s
0005040 t o r a g e o r , i n t h
0005060 e i n d i r e c t c a s e ,
0005100 a t a n o t h e r a r r a
0005120 y h e a d e r " ) ( * \ ;
0005140 \r " 8 b i t s o f f l a
0005160 g s " ) ( R E A D - O N L Y -
0005200 P F L A G ) ( * \ ; " U
0005220 s e d f o r h e a d e r s
0005240 p o i n t i n g a t s y m b
0005260 o l s p n a m e s " ) ( I N
0005300 D I R E C T - P \r F L A G )
0005320 ( * \ ; " P o i n t s a t
0005340 a n a r r a y h e a d e r
0005360 r a t h e r t h a n a r
0005400 a w s t o r a g e b l o c k
0005420 " ) ( B I T - P F L A G )
0005440 ( * \ ; \r " I s a b i t
0005460 a r r a y " ) ( S T R I N G
0005500 - P F L A G ) ( * \ ; "
0005520 I s a s t r i n g ( i m p
0005540 l i e s i s a v e c t o r
0005560 ) " ) ( * \ ; \r " I f a
0005600 n y o f t h e f o l l o w
0005620 i n g f l a g s a r e s e
0005640 t , t h e a r r a y i n
0005660 n o n - s i m p l e " ) ( A D
0005700 J U S T A B L E - P F L A G )
0005720 ( D I S P L A C E D - P \r F
0005740 L A G ) ( F I L L - P O I N T
0005760 E R - P F L A G ) ( E X T E
0006000 N D A B L E - P F L A G ) (
0006020 T Y P E - N U M B E R B I T S
0006040 8 ) ( * \ ; " 8 b i t
0006060 s o f t y p e + s i z e
0006100 " ) ( \r O F F S E T W O R D
0006120 ) ( * \ ; " F o r o n e
0006140 d a n d g e n e r a l a r
0006160 r a y s " ) ( F I L L - P O I
0006200 N T E R W O R D ) ( * \ ;
0006220 \r " F o r o n e d a n d
0006240 g e n e r a l a r r a y s " )
0006260 ( T O T A L - S I Z E W O R
0006300 D ) ) ( B L O C K R E C O R D
0006320 A R R A Y - H E A D E R ( (
0006340 N I L P O I N T E R ) ( F L
0006360 A G S B I T S \r 8 ) ( T Y
0006400 P E B I T S 4 ) ( S I Z E
0006420 B I T S 4 ) ) ) ( A C C E
0006440 S S F N S ( S I M P L E - P
0006460 ( E Q 0 ( L O G A N D ( |
0006500 f e t c h | ( A R R A Y - H E
0006520 A D E R F L A G S ) \r | o f
0006540 | D A T U M ) 1 5 ) ) ) )
0006560 ( S Y S T E M ) ) \r ( D A T A T
0006600 Y P E G E N E R A L - A R R A
0006620 Y ( ( N I L B I T S 8 )
0006640 ( * \ ; " F o r a l i g n
0006660 m e n t " ) ( S T O R A G E
0006700 P O I N T E R ) ( * \ ; \r
0006720 " 2 4 b i t s o f p o i n
0006740 t e r " ) ( R E A D - O N L Y
0006760 - P F L A G ) ( * \ ; "
0007000 8 b i t s o f f l a g s "
0007020 ) ( I N D I R E C T - P F L
0007040 A G ) ( B I T - P F L A G )
0007060 ( \r S T R I N G - P F L A G
0007100 ) ( A D J U S T A B L E - P
0007120 F L A G ) ( D I S P L A C E D
0007140 - P F L A G ) ( F I L L - P
0007160 O I N T E R - P F L A G ) (
0007200 E X T E N D A B L E - P F L A
0007220 G ) ( \r T Y P E - N U M B E R
0007240 B I T S 8 ) ( * \ ; "
0007260 8 b i t s o f t y p e n u
0007300 m b e r " ) ( O F F S E T W
0007320 O R D ) ( F I L L - P O I N T
0007340 E R W O R D ) ( T O T A L -
0007360 S I Z E W O R D ) \r ( D I M
0007400 S P O I N T E R ) ) ) \r ( D A
0007420 T A T Y P E O N E D - A R R A
0007440 Y ( ( N I L B I T S 8 )
0007460 ( * \ ; " D o n ' t u s e
0007500 h i g h 8 b i t s " ) (
0007520 B A S E P O I N T E R ) ( *
0007540 \ ; \r " T h e r a w s t
0007560 o r a g e b a s e " ) ( R E
0007600 A D - O N L Y - P F L A G )
0007620 ( * \ ; " 8 b i t s w o
0007640 r t h o f f l a g s " ) (
0007660 N I L B I T S 1 ) ( * \
0007700 ; \r " O n e d a r r a y ' s
0007720 c a n n ' t b e i n d i r
0007740 e c t " ) ( B I T - P F L A
0007760 G ) ( S T R I N G - P F L A
0010000 G ) ( N I L B I T S 1 )
0010020 ( * \ ; \r " O n e d - a r r
0010040 a y ' s c a n n ' t b e a
0010060 d j u s t a b l e " ) ( D I S
0010100 P L A C E D - P F L A G ) (
0010120 F I L L - P O I N T E R - P F
0010140 L A G ) ( E X T E N D A B L E
0010160 - P F L A G ) ( \r T Y P E -
0010200 N U M B E R B I T S 8 ) (
0010220 * \ ; " 4 b i t s o f
0010240 t y p e a n d 4 b i t s
0010260 o f s i z e " ) ( O F F S E
0010300 T W O R D ) ( * \ ; \r "
0010320 F o r d i s p l a c e d a r
0010340 r a y s " ) ( F I L L - P O I
0010360 N T E R W O R D ) ( * \ ;
0010400 " F o r f i l l e d a r r
0010420 a y s " ) ( T O T A L - S I Z
0010440 E W O R D ) ( * \ ; \r "
0010460 T o t a l n u m b e r o f
0010500 e l e m e n t s " ) ) ) \r ( D A
0010520 T A T Y P E T W O D - A R R A
0010540 Y ( ( N I L B I T S 8 )
0010560 ( * " F o r a l i g n m n e
0010600 t " ) ( B A S E P O I N T E
0010620 R ) ( * " R a w s t o r a
0010640 g e p o i n t e r " ) ( \r R
0010660 E A D - O N L Y - P F L A G )
0010700 ( * " 8 b i t s o f f
0010720 l a g s " ) ( N I L B I T S
0010740 1 ) ( * " T w o d a r r
0010760 a y s c a n n ' t b e i n
0011000 d i r e c t " ) ( B I T - P
0011020 F L A G ) \r ( N I L B I T S
0011040 4 ) ( * \r " T w o d a r
0011060 r a y s c a n n ' t b e s
0011100 t r i n g s , n o r c a n
0011120 t h e y b e a d j u s t a b
0011140 l e , d i s p l a c e d , o
0011160 r h a v e f i l l p o i n
0011200 t e r s " ) ( \r E X T E N D A
0011220 B L E - P F L A G ) ( T Y P
0011240 E - N U M B E R B I T S 8 )
0011260 ( B O U N D 0 W O R D ) (
0011300 * " Z e r o d i m e n s i o
0011320 n b o u n d " ) ( B O U N D
0011340 1 W O R D ) ( * \r " O n e
0011360 d i m e n s i o n b o u n d
0011400 " ) ( T O T A L - S I Z E W
0011420 O R D ) ) ) \r ( / D E C L A R E
0011440 D A T A T Y P E ( Q U O T E
0011460 G E N E R A L - A R R A Y ) (
0011500 Q U O T E ( ( B I T S 8 )
0011520 P O I N T E R F L A G F L A
0011540 G F L A G F L A G F L A G
0011560 F L A G F L A G \r F L A G
0011600 ( B I T S 8 ) W O R D W
0011620 O R D W O R D P O I N T E R
0011640 ) ) ( Q U O T E ( ( G E N E
0011660 R A L - A R R A Y 0 ( B I T
0011700 S . 7 ) ) ( G E N E R A L
0011720 - A R R A Y 0 P O I N T E R
0011740 ) \r ( G E N E R A L - A R R A
0011760 Y 2 ( F L A G B I T S .
0012000 0 ) ) ( G E N E R A L - A R R
0012020 A Y 2 ( F L A G B I T S .
0012040 1 6 ) ) ( G E N E R A L - A
0012060 R R A Y 2 ( F L A G B I T S
0012100 . 3 2 ) ) ( \r G E N E R A
0012120 L - A R R A Y 2 ( F L A G B
0012140 I T S . 4 8 ) ) ( G E N E
0012160 R A L - A R R A Y 2 ( F L A
0012200 G B I T S . 6 4 ) ) ( G E
0012220 N E R A L - A R R A Y 2 ( F
0012240 L A G B I T S . 8 0 ) ) (
0012260 \r G E N E R A L - A R R A Y 2
0012300 ( F L A G B I T S . 9 6 )
0012320 ) ( G E N E R A L - A R R A Y
0012340 2 ( F L A G B I T S . 1
0012360 1 2 ) ) ( G E N E R A L - A R
0012400 R A Y 2 ( B I T S . 1 3
0012420 5 ) ) ( \r G E N E R A L - A R
0012440 R A Y 3 ( B I T S . 1 5
0012460 ) ) ( G E N E R A L - A R R A
0012500 Y 4 ( B I T S . 1 5 ) )
0012520 ( G E N E R A L - A R R A Y
0012540 5 ( B I T S . 1 5 ) ) (
0012560 \r G E N E R A L - A R R A Y 6
0012600 P O I N T E R ) ) ) ( Q U O
0012620 T E 8 ) ) \r ( / D E C L A R E
0012640 D A T A T Y P E ( Q U O T E
0012660 O N E D - A R R A Y ) ( Q U O
0012700 T E ( ( B I T S 8 ) P O I
0012720 N T E R F L A G ( B I T S
0012740 1 ) F L A G F L A G ( B I
0012760 T S 1 ) F L A G \r F L A G
0013000 F L A G ( B I T S 8 ) W
0013020 O R D W O R D W O R D ) )
0013040 ( Q U O T E ( ( O N E D - A R
0013060 R A Y 0 ( B I T S . 7 )
0013100 ) ( O N E D - A R R A Y 0
0013120 P O I N T E R ) ( \r O N E D -
0013140 A R R A Y 2 ( F L A G B I T
0013160 S . 0 ) ) ( O N E D - A R
0013200 R A Y 2 ( B I T S . 1 6
0013220 ) ) ( O N E D - A R R A Y 2
0013240 ( F L A G B I T S . 3 2 )
0013260 ) ( O N E D - A R R A Y 2
0013300 ( \r F L A G B I T S . 4 8 )
0013320 ) ( O N E D - A R R A Y 2
0013340 ( B I T S . 6 4 ) ) ( O N
0013360 E D - A R R A Y 2 ( F L A G
0013400 B I T S . 8 0 ) ) ( O N E
0013420 D - A R R A Y 2 ( F L A G B
0013440 I T S . 9 6 \r ) ) ( O N E
0013460 D - A R R A Y 2 ( F L A G B
0013500 I T S . 1 1 2 ) ) ( O N E
0013520 D - A R R A Y 2 ( B I T S
0013540 . 1 3 5 ) ) ( O N E D - A R
0013560 R A Y 3 ( B I T S . 1 5
0013600 ) ) ( O N E D - A R R A Y \r
0013620 4 ( B I T S . 1 5 ) ) (
0013640 O N E D - A R R A Y 5 ( B I
0013660 T S . 1 5 ) ) ) ) ( Q U O
0013700 T E 6 ) ) \r ( / D E C L A R E
0013720 D A T A T Y P E ( Q U O T E
0013740 T W O D - A R R A Y ) ( Q U O
0013760 T E ( ( B I T S 8 ) P O I
0014000 N T E R F L A G ( B I T S
0014020 1 ) F L A G ( B I T S 4 )
0014040 F L A G ( B I T S 8 \r )
0014060 W O R D W O R D W O R D ) )
0014100 ( Q U O T E ( ( T W O D - A
0014120 R R A Y 0 ( B I T S . 7
0014140 ) ) ( T W O D - A R R A Y 0
0014160 P O I N T E R ) ( T W O D -
0014200 A R R A Y 2 ( F L A G B I T
0014220 S . \r 0 ) ) ( T W O D - A
0014240 R R A Y 2 ( B I T S . 1
0014260 6 ) ) ( T W O D - A R R A Y
0014300 2 ( F L A G B I T S . 3 2
0014320 ) ) ( T W O D - A R R A Y 2
0014340 ( B I T S . 5 1 ) ) ( T
0014360 W O D - A R R A Y 2 \r ( F L
0014400 A G B I T S . 1 1 2 ) ) (
0014420 T W O D - A R R A Y 2 ( B I
0014440 T S . 1 3 5 ) ) ( T W O D
0014460 - A R R A Y 3 ( B I T S .
0014500 1 5 ) ) ( T W O D - A R R A
0014520 Y 4 ( B I T S . 1 5 ) )
0014540 ( \r T W O D - A R R A Y 5
0014560 ( B I T S . 1 5 ) ) ) ) (
0014600 Q U O T E 6 ) ) \r | e x p a n
0014620 d - % A R R A Y P | : D 4 \r (
0014640 L ( 1 S I : : $ $ M A C R O
0014660 - E N V I R O N M E N T 0 S
0014700 I : : $ $ M A C R O - F O R M )
0014720 ) \0 \ 002 \0 \0 002 @ 002 001 021 021 001 H 004
0014740 l 004 360 262 g \0 \0 g \0 \0 H h 032 032 g
0014760 \0 \0 H h 032 032 g \0 \0 H h 032 032 h 032 032
0015000 032 032 020 \b \0 \0 271 g \0 \0 I H h 032 032 h
0015020 032 g \0 \0 g \0 \0 I h 032 032 g \0 \0 I h
0015040 032 032 g \0 \0 I h 032 032 h 032 032 032 032 h 032
0015060 032 032 020 \0 ( 4 5 G E N S Y M ) \r
0015100 ( 7 6 % G E N E R A L - A R R
0015120 A Y - P 6 9 % T W O D - A R
0015140 R A Y - P 6 2 % O N E D - A
0015160 R R A Y - P 5 9 O R 4 9
0015200 L E T 3 2 % G E N E R A L -
0015220 A R R A Y - P 2 5 % T W O D
0015240 - A R R A Y - P 1 8 % O N E
0015260 D - A R R A Y - P 1 5 O R )
0015300 \r ( ) \r ( S E T F - M A C R O -
0015320 F U N C T I O N ( Q U O T E
0015340 % A R R A Y P ) ( Q U O T E
0015360 | e x p a n d - % A R R A Y P |
0015400 ) ) \r | e x p a n d - % S I M P
0015420 L E - A R R A Y - P | : D 4 \r
0015440 ( L ( 1 S I : : $ $ M A C R
0015460 O - E N V I R O N M E N T 0
0015500 S I : : $ $ M A C R O - F O R M
0015520 ) ) \0 ^ 002 \0 \0 002 @ 002 001 021 021 001 H
0015540 004 l 004 360 262 ! g \0 \0 g \0 \0 H h 032 032
0015560 g \0 \0 o \0 \0 \0 g \0 \0 H h 032 032 032 032
0015600 h 032 032 032 020 \b \0 \0 271 g \0 \0 I H h 032
0015620 032 h 032 g \0 \0 g \0 \0 I h 032 032 g \0 \0
0015640 o \0 \0 \0 g \0 \0 I h 032 032 032 032 h 032 032
0015660 032 h 032 032 032 020 \0 ( 4 6 G E N S Y
0015700 M ) \r ( 7 7 | o f | 7 0 |
0015720 f e t c h | 6 3 % A R R A Y
0015740 P 6 0 A N D 5 0 L E T
0015760 3 2 | o f | 2 5 | f e t c
0016000 h | 1 8 % A R R A Y P 1 5
0016020 A N D ) \r ( 7 4 ( A R R A
0016040 Y - H E A D E R S I M P L E -
0016060 P ) 2 9 ( A R R A Y - H E A
0016100 D E R S I M P L E - P ) ) \r (
0016120 S E T F - M A C R O - F U N C T
0016140 I O N ( Q U O T E % S I M P
0016160 L E - A R R A Y - P ) ( Q U O
0016200 T E | e x p a n d - % S I M P
0016220 L E - A R R A Y - P | ) ) \r | e
0016240 x p a n d - % S I M P L E - S T
0016260 R I N G - P | : D 4 \r ( L (
0016300 1 S I : : $ $ M A C R O - E N
0016320 V I R O N M E N T 0 S I : :
0016340 $ $ M A C R O - F O R M ) ) \0
0016360 200 002 \0 \0 002 @ 002 001 021 021 001 H 004 l 004 360
0016400 262 2 g \0 \0 g \0 \0 H h 032 032 g \0 \0 o
0016420 \0 \0 \0 g \0 \0 H h 032 032 032 032 g \0 \0 o
0016440 \0 \0 \0 g \0 \0 H h 032 032 032 032 h 032 032 032
0016460 032 020 \b \0 \0 271 g \0 \0 I H h 032 032 h 032
0016500 g \0 \0 g \0 \0 I h 032 032 g \0 \0 o \0 \0
0016520 \0 g \0 \0 I h 032 032 032 032 g \0 \0 o \0 \0
0016540 \0 g \0 \0 I h 032 032 032 032 h 032 032 032 032 h
0016560 032 032 032 020 \0 ( 6 3 G E N S Y M )
0016600 \r ( 1 1 0 | o f | 1 0 3 |
0016620 f e t c h | 9 4 | o f | 8
0016640 7 | f e t c h | 8 0 % O N
0016660 E D - A R R A Y - P 7 7 A N
0016700 D 6 7 L E T 4 8 | o f |
0016720 4 1 | f e t c h | 3 2 |
0016740 o f | 2 5 | f e t c h | 1
0016760 8 % O N E D - A R R A Y - P
0017000 1 5 A N D ) \r ( 1 0 7 ( A
0017020 R R A Y - H E A D E R S T R I
0017040 N G - P ) 9 1 ( A R R A Y -
0017060 H E A D E R S I M P L E - P )
0017100 4 5 ( A R R A Y - H E A D E
0017120 R S T R I N G - P ) 2 9 (
0017140 A R R A Y - H E A D E R S I M
0017160 P L E - P ) ) \r ( S E T F - M A
0017200 C R O - F U N C T I O N ( Q U
0017220 O T E % S I M P L E - S T R I
0017240 N G - P ) ( Q U O T E | e x
0017260 p a n d - % S I M P L E - S T R
0017300 I N G - P | ) ) \r | e x p a n d
0017320 - % S T R I N G P | : D 4 \r (
0017340 L ( 1 S I : : $ $ M A C R O
0017360 - E N V I R O N M E N T 0 S
0017400 I : : $ $ M A C R O - F O R M )
0017420 ) \0 z 002 \0 \0 002 @ 002 001 021 021 001 H 004
0017440 l 004 360 262 / g \0 \0 g \0 \0 g \0 \0 H h
0017460 032 032 g \0 \0 H h 032 032 h 032 032 032 g \0 \0
0017500 o \0 \0 \0 g \0 \0 H h 032 032 032 032 h 032 032
0017520 032 020 \b \0 \0 271 g \0 \0 I H h 032 032 h 032
0017540 g \0 \0 g \0 \0 g \0 \0 I h 032 032 g \0 \0
0017560 I h 032 032 h 032 032 032 g \0 \0 o \0 \0 \0 g
0017600 \0 \0 I h 032 032 032 032 h 032 032 032 h 032 032 032
0017620 020 \0 ( 6 0 G E N S Y M ) \r ( 1
0017640 0 5 | o f | 9 8 | f e t c
0017660 h | 8 7 % G E N E R A L - A
0017700 R R A Y - P 8 0 % O N E D -
0017720 A R R A Y - P 7 7 O R 7 4
0017740 A N D 6 4 L E T 4 6 |
0017760 o f | 3 9 | f e t c h | 2
0020000 8 % G E N E R A L - A R R A Y
0020020 - P 2 1 % O N E D - A R R A
0020040 Y - P 1 8 O R 1 5 A N D
0020060 ) \r ( 1 0 2 ( A R R A Y - H
0020100 E A D E R S T R I N G - P )
0020120 4 3 ( A R R A Y - H E A D E R
0020140 S T R I N G - P ) ) \r ( S E T
0020160 F - M A C R O - F U N C T I O N
0020200 ( Q U O T E % S T R I N G P
0020220 ) ( Q U O T E | e x p a n d
0020240 - % S T R I N G P | ) ) \r | e x
0020260 p a n d - % V E C T O R P | :
0020300 D 4 \r ( L ( 1 S I : : $ $ M
0020320 A C R O - E N V I R O N M E N T
0020340 0 S I : : $ $ M A C R O - F
0020360 O R M ) ) \0 226 002 \0 \0 002 @ 002 001 021
0020400 021 001 H 004 l 004 360 262 = g \0 \0 g \0 \0 H
0020420 h 032 032 g \0 \0 g \0 \0 H h 032 032 g \0 \0
0020440 k g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 H h
0020460 032 032 032 032 h 032 032 h 032 032 032 h 032 032 032 h
0020500 032 032 032 020 \b \0 \0 271 g \0 \0 I H h 032 032
0020520 h 032 g \0 \0 g \0 \0 I h 032 032 g \0 \0 g
0020540 \0 \0 I h 032 032 g \0 \0 k g \0 \0 g \0 \0
0020560 o \0 \0 \0 g \0 \0 I h 032 032 032 032 h 032 032
0020600 h 032 032 032 h 032 032 032 h 032 032 032 h 032 032 032
0020620 020 \0 ( 7 4 G E N S Y M ) \r ( 1
0020640 2 2 | o f | 1 1 5 | f f e
0020660 t c h | 1 1 2 L E N G T H
0020700 1 0 8 E Q L 1 0 1 % G E N
0020720 E R A L - A R R A Y - P 9 8
0020740 A N D 9 1 % O N E D - A R R
0020760 A Y - P 8 8 O R 7 8 L E
0021000 T 4 9 | o f | 4 2 | f f
0021020 e t c h | 3 9 L E N G T H
0021040 3 5 E Q L 2 8 % G E N E R
0021060 A L - A R R A Y - P 2 5 A N
0021100 D 1 8 % O N E D - A R R A Y
0021120 - P 1 5 O R ) \r ( 1 1 9
0021140 ( G E N E R A L - A R R A Y D
0021160 I M S ) 4 6 ( G E N E R A L
0021200 - A R R A Y D I M S ) ) \r ( S
0021220 E T F - M A C R O - F U N C T I
0021240 O N ( Q U O T E % V E C T O
0021260 R P ) ( Q U O T E | e x p a
0021300 n d - % V E C T O R P | ) ) \r |
0021320 e x p a n d - % C H E C K - C I
0021340 R C L E - P R I N T | : D 4 \r
0021360 ( L ( 1 S I : : $ $ M A C R
0021400 O - E N V I R O N M E N T 0
0021420 S I : : $ $ M A C R O - F O R M
0021440 ) ) \0 227 005 \0 \0 002 @ 002 021 A 004 H 001
0021460 271 H 002 Z 001 273 J 002 274 g \0 \0 o \0 \0 \0
0021500 g \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0021520 I h 032 032 h 032 032 032 h 032 032 032 g \0 \0 g
0021540 \0 \0 g \0 \0 K o \0 \0 \0 032 032 g \0 \0 o
0021560 \0 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 K h 032
0021600 032 032 h 032 032 032 032 g \0 \0 g \0 \0 g \0 \0
0021620 K o \0 \0 \0 032 032 g \0 \0 o \0 \0 \0 K h
0021640 032 032 032 h 032 032 032 032 h 032 032 032 032 032 g \0
0021660 \0 o \0 \0 \0 L 032 032 h 032 032 032 032 032 020 \0
0021700 N I L \r ( 1 3 5 C L : W H E N
0021720 1 1 2 C L : W R I T E - C H
0021740 A R 1 0 2 . S P A C E C H E
0021760 C K . 9 9 F I R S T T I M E
0022000 9 6 C L : W H E N 8 3 C
0022020 I R C L E L A B E L 8 0 C L
0022040 : W R I T E - S T R I N G 6 9
0022060 L E T 5 9 . S P A C E C H
0022100 E C K . 5 6 C I R C L E L A
0022120 B E L 5 3 C L : W H E N 3
0022140 8 P R I N T - C I R C L E - L
0022160 O O K U P 3 1 C L : M U L T
0022200 I P L E - V A L U E - S E T Q
0022220 2 8 * P R I N T - C I R C L E
0022240 - H A S H T A B L E * 2 5 A
0022260 N D 1 8 L E T ) \r ( 1 3 9
0022300 ( O R ( N O T C I R C L E
0022320 L A B E L ) F I R S T T I M E
0022340 ) 1 1 6 # \ S p a c e 1 0
0022360 7 ( 1 ) 7 7 ( D E C L A R
0022400 E ( C L : S P E C I A L * P
0022420 R I N T - C I R C L E - H A S H
0022440 T A B L E * ) ) \r 7 3 ( * P
0022460 R I N T - C I R C L E - H A S H
0022500 T A B L E * ) 6 4 ( ( V E C
0022520 T O R - L E N G T H C I R C L
0022540 E L A B E L ) ) 3 5 ( C I R
0022560 C L E L A B E L F I R S T T I
0022600 M E ) 2 2 ( C I R C L E L A
0022620 B E L F I R S T T I M E ) ) \r
0022640 ( S E T F - M A C R O - F U N C
0022660 T I O N ( Q U O T E % C H E
0022700 C K - C I R C L E - P R I N T )
0022720 ( Q U O T E | e x p a n d -
0022740 % C H E C K - C I R C L E - P R
0022760 I N T | ) ) \r | e x p a n d - %
0023000 C H E C K - I N D I C E S | :
0023020 D 4 \r ( L ( 1 S I : : $ $ M
0023040 A C R O - E N V I R O N M E N T
0023060 0 S I : : $ $ M A C R O - F
0023100 O R M ) ) \0 w 005 \0 \0 002 @ 002 021 A
0023120 004 H 001 271 H 002 Z 001 273 J 002 001 274 g \0 \0
0023140 g \0 \0 K o \0 \0 \0 032 032 o \0 \0 \0 032 g
0023160 \0 \0 g \0 \0 L h 032 032 032 o \0 \0 \0 032 g
0023200 \0 \0 g \0 \0 g \0 \0 L o \0 \0 \0 032 032 h
0023220 032 032 032 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0023240 g \0 \0 g \0 \0 I o \0 \0 \0 032 032 h 032 032
0023260 032 h 032 032 032 o \0 \0 \0 032 032 h 032 032 032 032
0023300 032 020 \0 N I L \r ( 8 9 C L : A R
0023320 R A Y - D I M E N S I O N 8 6
0023340 I N D E X 8 3 > = 7 6
0023360 O R 7 3 C L : I F 5 9 A
0023400 R G 5 6 I N D E X 5 3 S
0023420 E T Q 4 0 I 3 7 > 2 2
0023440 I 1 9 C L : D O ) \r ( 1
0023460 0 8 ( ( R E T U R N N I L )
0023500 ) 9 4 ( D I M ) 8 0 ( <
0023520 I N D E X 0 ) 6 4 ( I )
0023540 4 9 ( T ) 3 3 ( ( D I M
0023560 0 ( C L : 1 + D I M ) )
0023600 I N D E X ) 2 7 ( ( C L : 1
0023620 + I ) ) ) \r ( S E T F - M A C
0023640 R O - F U N C T I O N ( Q U O
0023660 T E % C H E C K - I N D I C E
0023700 S ) ( Q U O T E | e x p a n
0023720 d - % C H E C K - I N D I C E S
0023740 | ) ) \r | e x p a n d - % C H E
0023760 C K - N O T - W R I T E A B L E
0024000 | : D 4 \r ( L ( 1 S I : :
0024020 $ $ M A C R O - E N V I R O N M
0024040 E N T 0 S I : : $ $ M A C R
0024060 O - F O R M ) ) \0 S 005 \0 \0 002 @
0024100 002 021 A 004 H 001 271 H 002 Z 001 273 J 002 001 274
0024120 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 I h 032
0024140 032 032 032 g \0 \0 I h 032 032 h 032 032 g \0 \0
0024160 g \0 \0 K h 032 032 g \0 \0 L h 032 032 h 032
0024200 032 032 g \0 \0 I h 032 032 h 032 032 h 032 032 032
0024220 020 \0 N I L \r ( 6 9 % M A K E -
0024240 S T R I N G - A R R A Y - F A T
0024260 5 8 % F A T - S T R I N G -
0024300 C H A R - P 5 1 % T H I N -
0024320 C H A R - T Y P E - P 4 8 A
0024340 N D 3 8 % M A K E - A R R A
0024360 Y - W R I T E A B L E 2 9 |
0024400 o f | 2 2 | f e t c h | 1
0024420 9 C O N D ) \r ( 2 6 ( A R
0024440 R A Y - H E A D E R R E A D -
0024460 O N L Y - P ) ) \r ( S E T F - M
0024500 A C R O - F U N C T I O N ( Q
0024520 U O T E % C H E C K - N O T -
0024540 W R I T E A B L E ) ( Q U O T
0024560 E | e x p a n d - % C H E C K
0024600 - N O T - W R I T E A B L E | )
0024620 ) \r | e x p a n d - % E X P A N
0024640 D - B I T - O P | : D 4 \r ( L
0024660 ( 1 S I : : $ $ M A C R O -
0024700 E N V I R O N M E N T 0 S I
0024720 : : $ $ M A C R O - F O R M ) )
0024740 002 g \t \0 \0 002 @ 002 021 201 \b H 001 271 H
0024760 002 Z 001 273 J 002 \ 001 275 L 002 001 276 g \0 \0
0025000 g \0 \0 g \0 \0 g \0 \0 K h 032 032 h 032 032
0025020 g \0 \0 o \0 \0 \0 K h 032 032 032 h 032 032 032
0025040 g \0 \0 g \0 \0 g \0 \0 M h 032 032 h 032 032
0025060 g \0 \0 o \0 \0 \0 M h 032 032 032 h 032 032 032
0025100 g \0 \0 g \0 \0 g \0 \0 K M h 032 032 032 h
0025120 032 032 o \0 \0 \0 032 032 g \0 \0 g \0 \0 N h
0025140 032 032 g \0 \0 N g \0 \0 g \0 \0 K h 032 032
0025160 o \0 \0 \0 032 032 h 032 032 032 h 032 032 g \0 \0
0025200 N o \0 \0 \0 032 032 g \0 \0 N K h 032 032 032
0025220 h 032 032 g \0 \0 g \0 \0 g \0 \0 N h 032 032
0025240 g \0 \0 K N h 032 032 032 h 032 032 032 h 032 032
0025260 o \0 \0 \0 032 h 032 032 032 032 I _ 016 g \0 \0
0025300 360 263 # O 016 g \0 \0 360 263 033 O 016 g \0 \0
0025320 360 263 023 O 016 g \0 \0 360 251 O 016 d g \0 \0
0025340 360 262 # 277 g \0 \0 g \0 \0 K N h 032 032 032
0025360 g \0 \0 o \0 \0 \0 K N h 032 032 032 032 h 032
0025400 032 032 260 A g \0 \0 360 263 O 016 g \0 \0 360
0025420 263 030 O 016 g \0 \0 360 256 O 016 g \0 \0 360 247
0025440 O 016 g \0 \0 360 264 021 g \0 \0 o \0 \0 \0 K
0025460 N h 032 032 032 032 213 g \0 \0 O 016 o \0 \0 \0
0025500 \f \0 \0 I _ 020 d g \0 \0 360 262 024 277 g \0
0025520 \0 o \0 \0 \0 M N h 032 032 032 032 261 \0 346 g
0025540 \0 \0 360 262 023 g \0 \0 o \0 \0 \0 M N h 032
0025560 032 032 032 261 \0 317 O 020 d g \0 \0 360 262 024 277
0025600 g \0 \0 o \0 \0 \0 M N h 032 032 032 032 261 \0
0025620 264 g \0 \0 360 262 023 g \0 \0 o \0 \0 \0 M N
0025640 h 032 032 032 032 261 \0 235 O 020 d g \0 \0 360 262
0025660 024 277 g \0 \0 o \0 \0 \0 M N h 032 032 032 032
0025700 261 \0 202 g \0 \0 360 237 g \0 \0 o \0 \0 \0 M
0025720 N h 032 032 032 032 260 l O 020 d g \0 \0 360 262
0025740 023 277 g \0 \0 o \0 \0 \0 M N h 032 032 032 032
0025760 260 R g \0 \0 360 237 g \0 \0 o \0 \0 \0 M N
0026000 h 032 032 032 032 260 = O 020 d g \0 \0 360 262 023
0026020 277 g \0 \0 o \0 \0 \0 M N h 032 032 032 032 260
0026040 # g \0 \0 360 264 021 g \0 \0 o \0 \0 \0 M N
0026060 h 032 032 032 032 213 g \0 \0 O 020 o \0 \0 \0 \f
0026100 \0 \0 N h 032 032 032 032 032 032 032 032 020 \0 ( 6
0026120 0 2 E C A S E - F A I L 3 4
0026140 7 E C A S E - F A I L ) \r ( 5
0026160 9 3 O P 5 7 8 % D O - L O
0026200 G I C A L - O P 5 7 2 O R C
0026220 2 5 5 6 % D O - L O G I C A
0026240 L - O P 5 4 9 O R C 1 5 3
0026260 0 % D O - L O G I C A L - O P
0026300 5 2 5 A N D C 2 5 0 9 %
0026320 D O - L O G I C A L - O P 5 0
0026340 2 A N D C 1 4 8 3 % D O -
0026360 L O G I C A L - O P 4 7 8 N
0026400 O R 4 6 1 % D O - L O G I C
0026420 A L - O P 4 5 4 N A N D 4
0026440 3 4 % D O - L O G I C A L - O
0026460 P 4 2 8 E Q V 4 1 1 % D
0026500 O - L O G I C A L - O P 4 0 4
0026520 X O R 3 8 4 % D O - L O G
0026540 I C A L - O P 3 7 8 I O R
0026560 3 6 1 % D O - L O G I C A L -
0026600 O P 3 5 4 A N D 3 3 8 O
0026620 P 3 2 3 % D O - L O G I C A
0026640 L - O P 3 1 7 O R C 1 3 1
0026660 0 A N D C 1 3 0 3 N O R
0026700 2 9 5 N A N D 2 8 7 E Q V
0026720 2 6 7 % D O - L O G I C A L
0026740 - O P 2 5 8 E Q 2 5 5 O
0026760 R 2 4 8 O R C 2 2 4 0 A
0027000 N D C 2 2 3 2 X O R 2 2 4
0027020 I O R 2 1 6 A N D 1 8 7
0027040 E Q U A L - D I M E N S I O N
0027060 S - P 1 8 0 B I T - A R R A
0027100 Y - P 1 7 7 A N D 1 7 4
0027120 N O T 1 6 2 S E T Q 1 5 2
0027140 E Q 1 3 2 C L : A R R A Y
0027160 - D I M E N S I O N S 1 2 9
0027200 C L : M A K E - A R R A Y 1 2
0027220 5 S E T Q 1 1 8 N U L L
0027240 1 1 5 C O N D 9 7 E Q U A
0027260 L - D I M E N S I O N S - P 9
0027300 4 N O T 9 1 C L : I F 7
0027320 5 C L : E R R O R 6 5 B I
0027340 T - A R R A Y - P 6 2 N O T
0027360 5 9 C L : I F 4 3 C L :
0027400 E R R O R 3 3 B I T - A R R
0027420 A Y - P 3 0 N O T 2 7 C
0027440 L : I F 2 4 P R O G N ) \r (
0027460 5 9 9 ( A N D I O R X O
0027500 R E Q V N A N D N O R A
0027520 N D C 1 A N D C 2 O R C 1
0027540 O R C 2 ) 5 8 2 ( Q U O T E
0027560 C O R ) 5 6 0 ( Q U O T E
0027600 O R ) 5 3 4 ( Q U O T E
0027620 C A N D ) \r 5 1 3 ( Q U O T
0027640 E A N D ) 4 8 7 ( Q U O T
0027660 E C A N D ) 4 6 5 ( Q U O
0027700 T E C O R ) 4 3 8 ( Q U O
0027720 T E X O R ) 4 1 5 ( Q U O
0027740 T E X O R ) 3 8 8 ( Q U O
0027760 T E O R ) 3 6 5 ( Q U O T
0030000 E A N D ) \r 3 4 4 ( A N D
0030020 I O R X O R A N D C 2 O
0030040 R C 2 E Q V N A N D N O R
0030060 A N D C 1 O R C 1 ) 3 2 7
0030100 ( Q U O T E N O T ) 2 7 1
0030120 ( Q U O T E C O P Y ) 2 0
0030140 4 ( ( C L : E R R O R " I l
0030160 l e g a l r e s u l t a r r
0030200 a y " ) ) \r 1 5 7 ( T ) 1
0030220 4 0 ( : E L E M E N T - T Y P
0030240 E ( Q U O T E B I T ) ) 1
0030260 1 0 ( ( C L : E R R O R " B
0030300 i t - a r r a y s n o t o f
0030320 s a m e d i m e n s i o n s
0030340 " ) ) 7 9 " B I T - A R R A
0030360 Y 2 n o t a b i t a r r
0030400 a y : ~ S " \r 4 7 " B I T
0030420 - A R R A Y 1 n o t a b i
0030440 t a r r a y : ~ S " ) \r ( S
0030460 E T F - M A C R O - F U N C T I
0030500 O N ( Q U O T E % E X P A N
0030520 D - B I T - O P ) ( Q U O T E
0030540 | e x p a n d - % E X P A N D
0030560 - B I T - O P | ) ) \r | e x p a
0030600 n d - % G E N E R A L - A R R A
0030620 Y - A D J U S T - B A S E | :
0030640 D 4 \r ( L ( 1 S I : : $ $ M
0030660 A C R O - E N V I R O N M E N T
0030700 0 S I : : $ $ M A C R O - F
0030720 O R M ) ) \0 } 003 \0 \0 002 @ 002 021 !
0030740 002 H 001 271 H 002 001 272 g \0 \0 g \0 \0 o \0
0030760 \0 \0 g \0 \0 I h 032 032 032 032 g \0 \0 o \0
0031000 \0 \0 g \0 \0 I g \0 \0 I o \0 \0 \0 032 032
0031020 h 032 032 032 g \0 \0 J g \0 \0 J o \0 \0 \0
0031040 032 032 h 032 032 032 g \0 \0 g \0 \0 g \0 \0 J
0031060 g \0 \0 o \0 \0 \0 g \0 \0 I h 032 032 032 032
0031100 h 032 032 032 h 032 032 o \0 \0 \0 032 032 h 032 032
0031120 032 032 032 h 032 032 032 020 \0 N I L \r ( 9 3
0031140 | o f | 8 6 | f e t c h |
0031160 8 2 < 7 9 N O T 7 6
0031200 C L : I F 6 2 + 5 8 S E
0031220 T Q 4 4 % G E T - B A S E -
0031240 A R R A Y 4 0 S E T Q 3 3
0031260 L E T 2 4 | o f | 1 7
0031300 | f f e t c h | 1 4 C L : I
0031320 F ) \r ( 1 1 0 ( ( C L : E R
0031340 R O R " R o w - m a j o r - i
0031360 n d e x o u t o f b o u n
0031400 d s ( d i s p l a c e d t o
0031420 a d j u s t a b l e ? ) " ) )
0031440 9 0 ( A R R A Y - H E A D E
0031460 R T O T A L - S I Z E ) \r 6
0031500 7 ( % O F F S E T ) 4 9 (
0031520 % O F F S E T ) 3 7 ( ( % O
0031540 F F S E T 0 ) ) 2 1 ( G E
0031560 N E R A L - A R R A Y I N D I
0031600 R E C T - P ) ) \r ( S E T F - M
0031620 A C R O - F U N C T I O N ( Q
0031640 U O T E % G E N E R A L - A R
0031660 R A Y - A D J U S T - B A S E )
0031700 ( Q U O T E | e x p a n d -
0031720 % G E N E R A L - A R R A Y - A
0031740 D J U S T - B A S E | ) ) \r | e
0031760 x p a n d - % G E T - A R R A Y
0032000 - O F F S E T | : D 4 \r ( L
0032020 ( 1 S I : : $ $ M A C R O - E
0032040 N V I R O N M E N T 0 S I :
0032060 : $ $ M A C R O - F O R M ) )
0032100 \0 C 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 g
0032120 \0 \0 g \0 \0 H h 032 032 g \0 \0 H h 032 032
0032140 h 032 032 032 g \0 \0 o \0 \0 \0 g \0 \0 H h
0032160 032 032 032 032 h 032 032 g \0 \0 H h 032 032 o \0
0032200 \0 \0 032 h 032 032 032 020 \0 N I L \r ( 5 1
0032220 % T W O D - A R R A Y - P 3
0032240 9 | o f | 3 2 | f e t c h
0032260 | 2 1 % G E N E R A L - A R
0032300 R A Y - P 1 4 % O N E D - A
0032320 R R A Y - P 1 1 O R 8 C
0032340 O N D ) \r ( 5 9 ( 0 ) 3 6
0032360 ( A R R A Y - H E A D E R O
0032400 F F S E T ) ) \r ( S E T F - M A
0032420 C R O - F U N C T I O N ( Q U
0032440 O T E % G E T - A R R A Y - O
0032460 F F S E T ) ( Q U O T E | e
0032500 x p a n d - % G E T - A R R A Y
0032520 - O F F S E T | ) ) \r | e x p a
0032540 n d - % G E T - B A S E - A R R
0032560 A Y | : D 4 \r ( L ( 1 S I
0032600 : : $ $ M A C R O - E N V I R O
0032620 N M E N T 0 S I : : $ $ M A
0032640 C R O - F O R M ) ) \0 8 003 \0 \0
0032660 002 @ 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0
0032700 g \0 \0 I o \0 \0 \0 032 032 h 032 o \0 \0 \0
0032720 g \0 \0 J g \0 \0 J o \0 \0 \0 032 032 h 032
0032740 032 032 h 032 032 032 032 020 \0 N I L \r ( 3 7
0032760 + 3 3 S E T Q 1 7 % B
0033000 A S E - A R R A Y 1 4 C L :
0033020 D O ) \r ( 4 2 ( ( % G E T -
0033040 A R R A Y - O F F S E T % B A
0033060 S E - A R R A Y ) ) 3 0 ( (
0033100 N O T ( | f e t c h | ( A R
0033120 R A Y - H E A D E R I N D I R
0033140 E C T - P ) | o f | % B A S
0033160 E - A R R A Y ) ) % B A S E -
0033200 A R R A Y ) \r 2 2 ( ( | f e
0033220 t c h | ( A R R A Y - H E A D
0033240 E R B A S E ) | o f | % B
0033260 A S E - A R R A Y ) ) ) \r ( S E
0033300 T F - M A C R O - F U N C T I O
0033320 N ( Q U O T E % G E T - B A
0033340 S E - A R R A Y ) ( Q U O T E
0033360 | e x p a n d - % G E T - B A
0033400 S E - A R R A Y | ) ) \r | e x p
0033420 a n d - % B I T - T Y P E - P |
0033440 : D 4 \r ( L ( 1 S I : : $
0033460 $ M A C R O - E N V I R O N M E
0033500 N T 0 S I : : $ $ M A C R O
0033520 - F O R M ) ) \0 022 001 \0 \0 002 @ 002
0033540 001 021 001 \0 g \0 \0 H o \0 \0 \0 032 032 020 \0
0033560 N I L \r ( 8 E Q ) \r ( 1 3
0033600 ( % B I T - T Y P E ) ) \r ( S E
0033620 T F - M A C R O - F U N C T I O
0033640 N ( Q U O T E % B I T - T Y
0033660 P E - P ) ( Q U O T E | e x
0033700 p a n d - % B I T - T Y P E - P
0033720 | ) ) \r | e x p a n d - % C H A
0033740 R - T Y P E - P | : D 4 \r ( L
0033760 ( 1 S I : : $ $ M A C R O -
0034000 E N V I R O N M E N T 0 S I
0034020 : : $ $ M A C R O - F O R M ) )
0034040 \0 030 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0
0034060 g \0 \0 H h 032 032 o \0 \0 \0 032 032 020 \0 N
0034100 I L \r ( 1 1 % T Y P E N U M B
0034120 E R - T O - T Y P E 8 E Q )
0034140 \r ( 1 9 ( % C H A R - T Y P
0034160 E ) ) \r ( S E T F - M A C R O -
0034200 F U N C T I O N ( Q U O T E
0034220 % C H A R - T Y P E - P ) ( Q
0034240 U O T E | e x p a n d - % C H
0034260 A R - T Y P E - P | ) ) \r | e x
0034300 p a n d - % C M L - T Y P E - T
0034320 O - T Y P E N U M B E R - E X P
0034340 A N D E R A 0 0 0 1 | : D 4 \r
0034360 ( L ( 0 E N T R Y ) ) \0 \f
0034400 \0 \0 \0 001 @ 001 003 244 @ 001 h 032 020 h 020 \0
0034420 N I L \r N I L \r ( ) \r | e x p a
0034440 n d - % C M L - T Y P E - T O -
0034460 T Y P E N U M B E R - E X P A N
0034500 D E R A 0 0 0 2 | : D 4 \r ( L
0034520 ( 0 E N T R Y ) ) \0 \f \0 \0
0034540 \0 001 @ 001 003 264 \a @ 001 001 h 032 020 \0 N I
0034560 L \r N I L \r ( ) \r | e x p a n d
0034600 - % C M L - T Y P E - T O - T Y
0034620 P E N U M B E R - E X P A N D E
0034640 R A 0 0 0 3 A 0 0 0 4 | : D 4
0034660 \r ( L ( 0 E N T R Y ) F
0034700 0 T Y P E ) \0 032 \0 001 \0 001 @ 001
0034720 003 264 025 @ 001 001 P 360 264 016 @ 001 002 001 @ 002
0034740 001 h 032 032 h 032 020 \0 N I L \r N I L \r
0034760 ( ) \r | e x p a n d - % C M L -
0035000 T Y P E - T O - T Y P E N U M B
0035020 E R - E X P A N D E R A 0 0 0 3
0035040 | : D 4 \r ( I 0 T Y P E
0035060 F 0 C M L - T Y P E F 1
0035100 % C A N O N I C A L - C M L -
0035120 T Y P E S ) \0 031 \0 002 \0 001 @ g \0
0035140 \0 g \0 \0 P h 032 032 g \0 \0 Q \n \0 \0 032
0035160 032 h 032 032 020 \0 ( 1 7 C L : M A P
0035200 C A N ) \r ( 1 3 | e x p a n d
0035220 - % C M L - T Y P E - T O - T Y
0035240 P E N U M B E R - E X P A N D E
0035260 R A 0 0 0 3 A 0 0 0 4 | 6 C
0035300 A D R 3 C L : E C A S E ) \r
0035320 ( ) \r | e x p a n d - % C M L -
0035340 T Y P E - T O - T Y P E N U M B
0035360 E R - E X P A N D E R A 0 0 0 5
0035400 | : D 4 \r ( L ( 0 T Y P E
0035420 ) F 0 % C A N O N I C A L
0035440 - C M L - T Y P E S ) \0 \a \0 001
0035460 \0 001 @ P \n \0 \0 020 \0 ( 4 C L : A
0035500 S S O C ) \r N I L \r ( ) \r | e x
0035520 p a n d - % C M L - T Y P E - T
0035540 O - T Y P E N U M B E R - E X P
0035560 A N D E R | : D 4 \r ( L ( 1
0035600 S I : : $ $ M A C R O - E N V
0035620 I R O N M E N T 0 S I : : $
0035640 $ M A C R O - F O R M ) P 0
0035660 C M L - T Y P E F 3 % C
0035700 A N O N I C A L - C M L - T Y P
0035720 E S ) \0 g 003 001 \0 002 @ 002 001 021 ! 002
0035740 i g \0 \0 S \n \0 \0 \n \0 \0 g \0 \0 S \n
0035760 \0 \0 \t \0 \0 272 271 g \0 \0 g \0 \0 H o \0
0036000 \0 \0 032 032 i S \n \0 \0 002 001 g \0 \0 g \0
0036020 \0 H h 032 032 g \0 \0 g \0 \0 H h 032 032 g
0036040 \0 \0 J \n \0 \0 032 032 g \0 \0 H g \0 \0 I
0036060 \n \0 \0 032 032 h 032 032 032 032 h 032 032 032 032 020
0036100 \0 ( 8 8 C L : M A P C A R 7
0036120 5 C L : M A P C A R 4 6 C
0036140 L : A S S O C 2 6 C L : R E
0036160 M O V E - D U P L I C A T E S
0036200 2 3 C L : M A P C A N 1 6
0036220 R E M O V E 1 3 C L : M A P
0036240 C A N ) \r ( 8 4 | e x p a n d
0036260 - % C M L - T Y P E - T O - T Y
0036300 P E N U M B E R - E X P A N D E
0036320 R A 0 0 0 5 | 8 0 C L : E C
0036340 A S E 7 1 | e x p a n d - %
0036360 C M L - T Y P E - T O - T Y P E
0036400 N U M B E R - E X P A N D E R A
0036420 0 0 0 3 | 6 4 C A R 6 1
0036440 C L : E C A S E 5 4 L I S T
0036460 P 5 1 C L : I F 3 4 E Q
0036500 3 1 C L : I F 1 9 | e x
0036520 p a n d - % C M L - T Y P E - T
0036540 O - T Y P E N U M B E R - E X P
0036560 A N D E R A 0 0 0 2 | 9 | e
0036600 x p a n d - % C M L - T Y P E -
0036620 T O - T Y P E N U M B E R - E X
0036640 P A N D E R A 0 0 0 1 | ) \r (
0036660 3 9 ( T ) ) \r ( S E T F - M A
0036700 C R O - F U N C T I O N ( Q U
0036720 O T E % C M L - T Y P E - T O
0036740 - T Y P E N U M B E R - E X P A
0036760 N D E R ) ( Q U O T E \r | e
0037000 x p a n d - % C M L - T Y P E -
0037020 T O - T Y P E N U M B E R - E X
0037040 P A N D E R | ) ) \r | e x p a n
0037060 d - % F A T - C H A R - T Y P E
0037100 - P | : D 4 \r ( L ( 1 S I
0037120 : : $ $ M A C R O - E N V I R O
0037140 N M E N T 0 S I : : $ $ M A
0037160 C R O - F O R M ) ) \0 022 001 \0 \0
0037200 002 @ 002 001 021 001 \0 g \0 \0 H o \0 \0 \0 032
0037220 032 020 \0 N I L \r ( 8 E Q ) \r (
0037240 1 3 ( % F A T - C H A R - T Y
0037260 P E N U M B E R ) ) \r ( S E T F
0037300 - M A C R O - F U N C T I O N
0037320 ( Q U O T E % F A T - C H A R
0037340 - T Y P E - P ) ( Q U O T E
0037360 | e x p a n d - % F A T - C H A
0037400 R - T Y P E - P | ) ) \r | e x p
0037420 a n d - % F A T - S T R I N G -
0037440 C H A R - P | : D 4 \r ( L (
0037460 1 S I : : $ $ M A C R O - E N
0037500 V I R O N M E N T 0 S I : :
0037520 $ $ M A C R O - F O R M ) ) \0
0037540 030 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 g \0
0037560 \0 H h 032 032 o \0 \0 \0 032 032 020 \0 N I L
0037600 \r ( 1 1 C L : C H A R - C O D
0037620 E 8 > ) \r ( 1 9 ( % M A
0037640 X T H I N C H A R ) ) \r ( S E T
0037660 F - M A C R O - F U N C T I O N
0037700 ( Q U O T E % F A T - S T R
0037720 I N G - C H A R - P ) ( Q U O
0037740 T E | e x p a n d - % F A T -
0037760 S T R I N G - C H A R - P | ) )
0040000 \r % G E T - T Y P E - T A B L E
0040020 - E N T R Y : D 4 \r ( L ( 0
0040040 T Y P E N U M B E R ) F 0
0040060 % A R R A Y - T Y P E - T A B
0040100 L E ) \0 \t \0 001 \0 001 @ P \n \0 \0 002
0040120 001 020 \0 ( 4 C L : A S S O C ) \r
0040140 N I L \r ( ) \r % L I T - S I Z E
0040160 - T O - S I Z E : D 4 \r ( L
0040200 ( 0 L I T - S I Z E ) F 0
0040220 % L I T - A R R A Y - S I Z E
0040240 S ) \0 \t \0 001 \0 001 @ P \n \0 \0 002 001
0040260 020 \0 ( 4 C L : A S S O C ) \r N
0040300 I L \r ( ) \r % L I T - T Y P E -
0040320 T O - T Y P E : D 4 \r ( L (
0040340 0 L I T - T Y P E ) F 0
0040360 % L I T - A R R A Y - T Y P E S
0040400 ) \0 \t \0 001 \0 001 @ P \n \0 \0 002 001 020
0040420 \0 ( 4 C L : A S S O C ) \r N I
0040440 L \r ( ) \r % L L A R R A Y - M A
0040460 K E - A C C E S S O R - E X P R
0040500 : D 4 \r ( L ( 2 O F F S E
0040520 T 1 B A S E 0 T Y P E N
0040540 U M B E R ) ) \0 6 006 \0 \0 003 @ \t
0040560 \0 \0 021 Q 005 H 271 k I \n \0 \0 272 H 273 l
0040600 003 K \n \0 \0 277 H 274 l 006 L \n \0 \0 275 J
0040620 A M 231 g \0 \0 B M h 032 032 032 200 B h 032
0040640 032 032 020 \0 ( 3 1 C L : N T H 2
0040660 2 C L : N T H 1 3 C L : N
0040700 T H 3 % G E T - T Y P E - T
0040720 A B L E - E N T R Y ) \r ( 3 9
0040740 L L S H ) \r ( ) \r % L L A R R A
0040760 Y - M A K E - S E T T O R - E X
0041000 P R : D 4 \r ( L ( 3 N E W
0041020 V A L U E 2 O F F S E T 1
0041040 B A S E 0 T Y P E N U M B
0041060 E R ) ) \0 9 006 \0 \0 004 @ \t \0 \0 021
0041100 Q 005 H 271 l 002 I \n \0 \0 272 H 273 l 003 K
0041120 \n \0 \0 277 H 274 l 006 L \n \0 \0 275 J A M
0041140 231 g \0 \0 B M h 032 032 032 200 B C h 032 032
0041160 032 032 020 \0 ( 3 2 C L : N T H 2
0041200 3 C L : N T H 1 4 C L : N
0041220 T H 3 % G E T - T Y P E - T
0041240 A B L E - E N T R Y ) \r ( 4 0
0041260 L L S H ) \r ( ) \r | e x p a n d
0041300 - % L L A R R A Y - T Y P E D -
0041320 G E T A 0 0 0 1 | : D 4 \r ( L
0041340 ( 0 T Y P E E N T R Y ) F
0041360 0 B A S E F 1 O F F S
0041400 E T ) \0 016 \0 002 \0 001 @ 001 @ 001 P Q
0041420 \v \0 \0 h 032 032 020 \0 ( 8 % L L A R
0041440 R A Y - M A K E - A C C E S S O
0041460 R - E X P R ) \r N I L \r ( ) \r |
0041500 e x p a n d - % L L A R R A Y -
0041520 T Y P E D - G E T | : D 4 \r (
0041540 L ( 1 S I : : $ $ M A C R O
0041560 - E N V I R O N M E N T 0 S
0041600 I : : $ $ M A C R O - F O R M )
0041620 P 4 O F F S E T P 1
0041640 B A S E F 5 % A R R A Y -
0041660 T Y P E - T A B L E ) \0 005 001
0041700 \0 002 @ 002 021 A 004 H 001 271 H 002 Z 001 273 J
0041720 002 001 274 g \0 \0 K g \0 \0 U \n \0 \0 032 032
0041740 020 \0 ( 2 7 C L : M A P C A R )
0041760 \r ( 2 3 | e x p a n d - % L L
0042000 A R R A Y - T Y P E D - G E T A
0042020 0 0 0 1 | 1 9 C L : E C A S
0042040 E ) \r ( ) \r ( S E T F - M A C R
0042060 O - F U N C T I O N ( Q U O T
0042100 E % L L A R R A Y - T Y P E D
0042120 - G E T ) ( Q U O T E | e x
0042140 p a n d - % L L A R R A Y - T Y
0042160 P E D - G E T | ) ) \r | e x p a
0042200 n d - % L L A R R A Y - T Y P E
0042220 D - P U T A 0 0 0 1 | : D 4 \r
0042240 ( L ( 0 T Y P E E N T R Y )
0042260 F 0 B A S E F 1 O F
0042300 F S E T F 2 N E W V A L U
0042320 E ) \0 017 \0 003 \0 001 @ 001 @ 001 P Q R
0042340 \f \0 \0 h 032 032 020 \0 ( 9 % L L A R
0042360 R A Y - M A K E - S E T T O R -
0042400 E X P R ) \r N I L \r ( ) \r | e x
0042420 p a n d - % L L A R R A Y - T Y
0042440 P E D - P U T | : D 4 \r ( L
0042460 ( 1 S I : : $ $ M A C R O - E
0042500 N V I R O N M E N T 0 S I :
0042520 : $ $ M A C R O - F O R M ) P
0042540 6 N E W V A L U E P 5
0042560 O F F S E T P 1 B A S E
0042600 F 7 % A R R A Y - T Y P E -
0042620 T A B L E ) \0 & \a 001 \0 002 @ 002 021
0042640 a 006 H 001 271 H 002 Z 001 273 J 002 \ 001 275 L
0042660 002 001 276 g \0 \0 K g \0 \0 W 016 \n \0 \0 032
0042700 032 020 \0 ( 3 3 C L : M A P C A R
0042720 ) \r ( 2 8 | e x p a n d - % L
0042740 L A R R A Y - T Y P E D - P U T
0042760 A 0 0 0 1 | 2 4 C L : E C A
0043000 S E ) \r ( ) \r ( S E T F - M A C
0043020 R O - F U N C T I O N ( Q U O
0043040 T E % L L A R R A Y - T Y P E
0043060 D - P U T ) ( Q U O T E | e
0043100 x p a n d - % L L A R R A Y - T
0043120 Y P E D - P U T | ) ) \r | e x p
0043140 a n d - % L L A R R A Y - T Y P
0043160 E P A 0 0 0 1 | : D 4 \r ( L
0043200 ( 0 T Y P E E N T R Y ) F
0043220 1 V A L U E ) \0 030 001 001 \0 001 @
0043240 001 @ 002 001 021 001 \0 l \a H \n \0 \0 022 Q h
0043260 032 032 h 032 032 020 \0 ( 1 3 C L : N T
0043300 H ) \r N I L \r ( ) \r | e x p a n
0043320 d - % L L A R R A Y - T Y P E P
0043340 | : D 4 \r ( L ( 1 S I : :
0043360 $ $ M A C R O - E N V I R O N M
0043400 E N T 0 S I : : $ $ M A C R
0043420 O - F O R M ) P 2 V A L U
0043440 E F 3 % A R R A Y - T Y P
0043460 E - T A B L E ) \0 033 003 001 \0 002 @
0043500 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0 I g
0043520 \0 \0 S \n \0 \0 032 032 020 \0 ( 2 2 C L
0043540 : M A P C A R ) \r ( 1 8 | e x
0043560 p a n d - % L L A R R A Y - T Y
0043600 P E P A 0 0 0 1 | 1 4 C L :
0043620 E C A S E ) \r ( ) \r ( S E T F -
0043640 M A C R O - F U N C T I O N (
0043660 Q U O T E % L L A R R A Y - T
0043700 Y P E P ) ( Q U O T E | e x
0043720 p a n d - % L L A R R A Y - T Y
0043740 P E P | ) ) \r % M A K E - A R R
0043760 A Y - T Y P E - T A B L E A 0 0
0044000 0 1 A 0 0 0 2 : D 4 \r ( L (
0044020 0 S I Z E - E N T R Y ) F
0044040 0 L I T - T Y P E ) \0 016 \0 001
0044060 \0 001 P @ 001 \n \0 \0 @ 002 001 h 032 032 020 \0
0044100 ( 5 % T Y P E - S I Z E - T O
0044120 - T Y P E N U M B E R ) \r N I L
0044140 \r ( ) \r % M A K E - A R R A Y -
0044160 T Y P E - T A B L E A 0 0 0 1
0044200 : D 4 \r ( L ( 0 T Y P E - E
0044220 N T R Y ) P 0 L I T - T Y
0044240 P E ) \0 020 001 \0 \0 001 @ 001 021 001 \0 g
0044260 \0 \0 @ 002 001 \n \0 \0 020 \0 ( 1 3 C L
0044300 : M A P C A R ) \r ( 7 % M A K
0044320 E - A R R A Y - T Y P E - T A B
0044340 L E A 0 0 0 1 A 0 0 0 2 ) \r ( )
0044360 \r % M A K E - A R R A Y - T Y P
0044400 E - T A B L E : D 4 \r ( L (
0044420 2 S I Z E S 1 T Y P E S
0044440 0 L I T - T A B L E ) ) \0 \t
0044460 \0 \0 \0 003 g \0 \0 @ \n \0 \0 020 \0 ( 6
0044500 C L : M A P C A N ) \r ( 2 % M
0044520 A K E - A R R A Y - T Y P E - T
0044540 A B L E A 0 0 0 1 ) \r ( ) \r % M
0044560 A K E - C M L - T Y P E - T A B
0044600 L E A 0 0 0 1 : D 4 \r ( L (
0044620 0 T Y P E - E N T R Y ) ) \0
0044640 023 001 \0 \0 001 @ 002 001 021 001 \0 j H \n \0 \0
0044660 022 @ 001 h 032 032 020 \0 ( 1 0 C L : N
0044700 T H ) \r N I L \r ( ) \r % M A K E
0044720 - C M L - T Y P E - T A B L E
0044740 : D 4 \r ( L ( 0 A R R A Y -
0044760 T A B L E ) ) \0 \t \0 \0 \0 001 g \0
0045000 \0 @ \n \0 \0 020 \0 ( 6 C L : M A P
0045020 C A R ) \r ( 2 % M A K E - C M
0045040 L - T Y P E - T A B L E A 0 0 0
0045060 1 ) \r ( ) \r | e x p a n d - % P
0045100 A C K - T Y P E N U M B E R |
0045120 : D 4 \r ( L ( 1 S I : : $ $
0045140 M A C R O - E N V I R O N M E N
0045160 T 0 S I : : $ $ M A C R O -
0045200 F O R M ) ) \0 003 \0 \0 002 @ 002 021
0045220 ! 002 H 001 271 H 002 001 272 g \0 \0 g \0 \0 I
0045240 o \0 \0 \0 032 032 J h 032 032 032 020 \0 N I L
0045260 \r ( 1 7 L L S H 1 4 \ \ A
0045300 D D B A S E ) \r ( 2 2 ( 4 )
0045320 ) \r ( S E T F - M A C R O - F U
0045340 N C T I O N ( Q U O T E % P
0045360 A C K - T Y P E N U M B E R )
0045400 ( Q U O T E | e x p a n d - %
0045420 P A C K - T Y P E N U M B E R |
0045440 ) ) \r | e x p a n d - % S M A L
0045460 L F I X P - S M A L L P O S P |
0045500 : D 4 \r ( L ( 1 S I : : $
0045520 $ M A C R O - E N V I R O N M E
0045540 N T 0 S I : : $ $ M A C R O
0045560 - F O R M ) ) \0 017 001 \0 \0 002 @ 002
0045600 001 021 001 \0 g \0 \0 H h 032 032 020 \0 N I L
0045620 \r ( 8 \ \ L O L O C ) \r ( ) \r
0045640 ( S E T F - M A C R O - F U N C
0045660 T I O N ( Q U O T E % S M A
0045700 L L F I X P - S M A L L P O S P
0045720 ) ( Q U O T E | e x p a n d
0045740 - % S M A L L F I X P - S M A L
0045760 L P O S P | ) ) \r | e x p a n d
0046000 - % S M A L L P O S P - S M A L
0046020 L F I X P | : D 4 \r ( L ( 1
0046040 S I : : $ $ M A C R O - E N V
0046060 I R O N M E N T 0 S I : : $
0046100 $ M A C R O - F O R M ) ) \0 8
0046120 002 \0 \0 002 @ 002 001 021 021 001 \b \0 \0 271 g \0
0046140 \0 I H h 032 032 h 032 g \0 \0 g \0 \0 I o
0046160 \0 \0 \0 032 032 g \0 \0 g \0 \0 I h 032 032 032
0046200 I h 032 032 032 032 h 032 032 032 020 \0 ( 8 G
0046220 E N S Y M ) \r ( 3 8 | \ \ S m
0046240 a l l N e g H i | 3 5 \ \ V
0046260 A G 2 2 5 > 2 2 C L : I
0046300 F 1 2 L E T ) \r ( 3 0 (
0046320 M A X . S M A L L F I X P ) ) \r
0046340 ( S E T F - M A C R O - F U N C
0046360 T I O N ( Q U O T E % S M A
0046400 L L P O S P - S M A L L F I X P
0046420 ) ( Q U O T E | e x p a n d
0046440 - % S M A L L P O S P - S M A L
0046460 L F I X P | ) ) \r | e x p a n d
0046500 - % T H I N - C H A R - T Y P E
0046520 - P | : D 4 \r ( L ( 1 S I
0046540 : : $ $ M A C R O - E N V I R O
0046560 N M E N T 0 S I : : $ $ M A
0046600 C R O - F O R M ) ) \0 022 001 \0 \0
0046620 002 @ 002 001 021 001 \0 g \0 \0 H o \0 \0 \0 032
0046640 032 020 \0 N I L \r ( 8 E Q ) \r (
0046660 1 3 ( % T H I N - C H A R - T
0046700 Y P E N U M B E R ) ) \r ( S E T
0046720 F - M A C R O - F U N C T I O N
0046740 ( Q U O T E % T H I N - C H
0046760 A R - T Y P E - P ) ( Q U O T
0047000 E | e x p a n d - % T H I N -
0047020 C H A R - T Y P E - P | ) ) \r |
0047040 e x p a n d - % T H I N - S T R
0047060 I N G - C H A R - P | : D 4 \r
0047100 ( L ( 1 S I : : $ $ M A C R
0047120 O - E N V I R O N M E N T 0
0047140 S I : : $ $ M A C R O - F O R M
0047160 ) ) \0 030 001 \0 \0 002 @ 002 001 021 001 \0 g
0047200 \0 \0 g \0 \0 H h 032 032 o \0 \0 \0 032 032 020
0047220 \0 N I L \r ( 1 1 C L : C H A R
0047240 - C O D E 8 < = ) \r ( 1 9
0047260 ( % M A X T H I N C H A R ) )
0047300 \r ( S E T F - M A C R O - F U N
0047320 C T I O N ( Q U O T E % T H
0047340 I N - S T R I N G - C H A R - P
0047360 ) ( Q U O T E | e x p a n d
0047400 - % T H I N - S T R I N G - C H
0047420 A R - P | ) ) \r % T Y P E - S I
0047440 Z E - T O - T Y P E N U M B E R
0047460 : D 4 \r ( L ( 1 L I T - S
0047500 I Z E 0 L I T - T Y P E )
0047520 F 2 % L I T - A R R A Y - T
0047540 Y P E S F 3 % L I T - A R
0047560 R A Y - S I Z E S ) \0 032 002 002 \0
0047600 002 @ R \n \0 \0 002 001 A S \n \0 \0 002 001 021
0047620 002 001 H 340 340 340 340 I 320 020 \0 ( 1 1 C
0047640 L : A S S O C 4 C L : A S S
0047660 O C ) \r N I L \r ( ) \r | e x p a
0047700 n d - % T Y P E N U M B E R - T
0047720 O - B I T S - P E R - E L E M E
0047740 N T A 0 0 0 1 | : D 4 \r ( L
0047760 ( 0 T Y P E E N T R Y ) ) \0
0050000 024 001 \0 \0 001 @ 001 @ 002 001 021 001 \0 l 003 H
0050020 \n \0 \0 022 h 032 032 020 \0 ( 1 3 C L :
0050040 N T H ) \r N I L \r ( ) \r | e x p
0050060 a n d - % T Y P E N U M B E R -
0050100 T O - B I T S - P E R - E L E M
0050120 E N T | : D 4 \r ( L ( 1 S
0050140 I : : $ $ M A C R O - E N V I R
0050160 O N M E N T 0 S I : : $ $ M
0050200 A C R O - F O R M ) F 1 %
0050220 A R R A Y - T Y P E - T A B L E
0050240 ) \0 025 001 001 \0 002 @ 002 001 021 001 \0 g \0
0050260 \0 H g \0 \0 Q \n \0 \0 032 032 020 \0 ( 1 6
0050300 C L : M A P C A R ) \r ( 1 2
0050320 | e x p a n d - % T Y P E N U M
0050340 B E R - T O - B I T S - P E R -
0050360 E L E M E N T A 0 0 0 1 | 8
0050400 C L : E C A S E ) \r ( ) \r ( S E
0050420 T F - M A C R O - F U N C T I O
0050440 N ( Q U O T E % T Y P E N U
0050460 M B E R - T O - B I T S - P E R
0050500 - E L E M E N T ) ( Q U O T E
0050520 \r | e x p a n d - % T Y P E N
0050540 U M B E R - T O - B I T S - P E
0050560 R - E L E M E N T | ) ) \r | e x
0050600 p a n d - % T Y P E N U M B E R
0050620 - T O - C M L - T Y P E A 0 0 0
0050640 1 | : D 4 \r ( L ( 0 T Y P
0050660 E E N T R Y ) ) \0 031 001 \0 \0 001 @
0050700 001 g \0 \0 @ 002 001 021 001 \0 j H \n \0 \0 022
0050720 h 032 032 h 032 032 020 \0 ( 1 5 C L : N
0050740 T H ) \r ( 4 Q U O T E ) \r ( )
0050760 \r | e x p a n d - % T Y P E N U
0051000 M B E R - T O - C M L - T Y P E
0051020 | : D 4 \r ( L ( 1 S I : :
0051040 $ $ M A C R O - E N V I R O N M
0051060 E N T 0 S I : : $ $ M A C R
0051100 O - F O R M ) F 1 % A R R
0051120 A Y - T Y P E - T A B L E ) \0
0051140 025 001 001 \0 002 @ 002 001 021 001 \0 g \0 \0 H g
0051160 \0 \0 Q \n \0 \0 032 032 020 \0 ( 1 6 C L
0051200 : M A P C A R ) \r ( 1 2 | e x
0051220 p a n d - % T Y P E N U M B E R
0051240 - T O - C M L - T Y P E A 0 0 0
0051260 1 | 8 C L : E C A S E ) \r (
0051300 ) \r ( S E T F - M A C R O - F U
0051320 N C T I O N ( Q U O T E % T
0051340 Y P E N U M B E R - T O - C M L
0051360 - T Y P E ) ( Q U O T E | e
0051400 x p a n d - % T Y P E N U M B E
0051420 R - T O - C M L - T Y P E | ) )
0051440 \r | e x p a n d - % T Y P E N U
0051460 M B E R - T O - D E F A U L T -
0051500 V A L U E A 0 0 0 1 | : D 4 \r
0051520 ( L ( 0 T Y P E E N T R Y )
0051540 ) \0 024 001 \0 \0 001 @ 001 @ 002 001 021 001 \0
0051560 l 005 H \n \0 \0 022 h 032 032 020 \0 ( 1 3
0051600 C L : N T H ) \r N I L \r ( ) \r |
0051620 e x p a n d - % T Y P E N U M B
0051640 E R - T O - D E F A U L T - V A
0051660 L U E | : D 4 \r ( L ( 1 S
0051700 I : : $ $ M A C R O - E N V I R
0051720 O N M E N T 0 S I : : $ $ M
0051740 A C R O - F O R M ) F 1 %
0051760 A R R A Y - T Y P E - T A B L E
0052000 ) \0 025 001 001 \0 002 @ 002 001 021 001 \0 g \0
0052020 \0 H g \0 \0 Q \n \0 \0 032 032 020 \0 ( 1 6
0052040 C L : M A P C A R ) \r ( 1 2
0052060 | e x p a n d - % T Y P E N U M
0052100 B E R - T O - D E F A U L T - V
0052120 A L U E A 0 0 0 1 | 8 C L :
0052140 E C A S E ) \r ( ) \r ( S E T F -
0052160 M A C R O - F U N C T I O N (
0052200 Q U O T E % T Y P E N U M B E
0052220 R - T O - D E F A U L T - V A L
0052240 U E ) ( Q U O T E | e x p a
0052260 n d - % T Y P E N U M B E R - T
0052300 O - D E F A U L T - V A L U E |
0052320 \r ) ) \r | e x p a n d - % T Y P
0052340 E N U M B E R - T O - G C - T Y
0052360 P E A 0 0 0 1 | : D 4 \r ( L
0052400 ( 0 T Y P E E N T R Y ) ) \0
0052420 024 001 \0 \0 001 @ 001 @ 002 001 021 001 \0 l 004 H
0052440 \n \0 \0 022 h 032 032 020 \0 ( 1 3 C L :
0052460 N T H ) \r N I L \r ( ) \r | e x p
0052500 a n d - % T Y P E N U M B E R -
0052520 T O - G C - T Y P E | : D 4 \r
0052540 ( L ( 1 S I : : $ $ M A C R
0052560 O - E N V I R O N M E N T 0
0052600 S I : : $ $ M A C R O - F O R M
0052620 ) F 1 % A R R A Y - T Y P
0052640 E - T A B L E ) \0 025 001 001 \0 002 @
0052660 002 001 021 001 \0 g \0 \0 H g \0 \0 Q \n \0 \0
0052700 032 032 020 \0 ( 1 6 C L : M A P C A
0052720 R ) \r ( 1 2 | e x p a n d - %
0052740 T Y P E N U M B E R - T O - G C
0052760 - T Y P E A 0 0 0 1 | 8 C L
0053000 : E C A S E ) \r ( ) \r ( S E T F
0053020 - M A C R O - F U N C T I O N
0053040 ( Q U O T E % T Y P E N U M B
0053060 E R - T O - G C - T Y P E ) (
0053100 Q U O T E | e x p a n d - % T
0053120 Y P E N U M B E R - T O - G C -
0053140 T Y P E | ) ) \r | e x p a n d -
0053160 % T Y P E N U M B E R - T O - S
0053200 I Z E | : D 4 \r ( L ( 1 S
0053220 I : : $ $ M A C R O - E N V I R
0053240 O N M E N T 0 S I : : $ $ M
0053260 A C R O - F O R M ) ) \0 022 001 \0
0053300 \0 002 @ 002 001 021 001 \0 g \0 \0 H o \0 \0 \0
0053320 032 032 020 \0 N I L \r ( 8 L O G A N
0053340 D ) \r ( 1 3 ( 1 5 ) ) \r ( S
0053360 E T F - M A C R O - F U N C T I
0053400 O N ( Q U O T E % T Y P E N
0053420 U M B E R - T O - S I Z E ) (
0053440 Q U O T E | e x p a n d - % T
0053460 Y P E N U M B E R - T O - S I Z
0053500 E | ) ) \r | e x p a n d - % T Y
0053520 P E N U M B E R - T O - T Y P E
0053540 | : D 4 \r ( L ( 1 S I : :
0053560 $ $ M A C R O - E N V I R O N M
0053600 E N T 0 S I : : $ $ M A C R
0053620 O - F O R M ) ) \0 022 001 \0 \0 002 @
0053640 002 001 021 001 \0 g \0 \0 H o \0 \0 \0 032 032 020
0053660 \0 N I L \r ( 8 L R S H ) \r (
0053700 1 3 ( 4 ) ) \r ( S E T F - M A
0053720 C R O - F U N C T I O N ( Q U
0053740 O T E % T Y P E N U M B E R -
0053760 T O - T Y P E ) ( Q U O T E
0054000 | e x p a n d - % T Y P E N U M
0054020 B E R - T O - T Y P E | ) ) \r |
0054040 e x p a n d - \ \ G E T B A S E
0054060 S M A L L - F I X P | : D 4 \r
0054100 ( L ( 1 S I : : $ $ M A C R
0054120 O - E N V I R O N M E N T 0
0054140 S I : : $ $ M A C R O - F O R M
0054160 ) ) \0 035 003 \0 \0 002 @ 002 021 ! 002 H 001
0054200 271 H 002 001 272 g \0 \0 g \0 \0 I J h 032 032
0054220 032 h 032 032 020 \0 N I L \r ( 1 7 \ \
0054240 G E T B A S E 1 4 % S M A L
0054260 L P O S P - S M A L L F I X P )
0054300 \r ( ) \r ( S E T F - M A C R O -
0054320 F U N C T I O N ( Q U O T E
0054340 \ \ G E T B A S E S M A L L - F
0054360 I X P ) ( Q U O T E | e x p
0054400 a n d - \ \ G E T B A S E S M A
0054420 L L - F I X P | ) ) \r | e x p a
0054440 n d - \ \ G E T B A S E S T R I
0054460 N G - C H A R | : D 4 \r ( L
0054500 ( 1 S I : : $ $ M A C R O - E
0054520 N V I R O N M E N T 0 S I :
0054540 : $ $ M A C R O - F O R M ) )
0054560 \0 035 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H 002
0054600 001 272 g \0 \0 g \0 \0 I J h 032 032 032 h 032
0054620 032 020 \0 N I L \r ( 1 7 \ \ G E T
0054640 B A S E 1 4 C L : C O D E -
0054660 C H A R ) \r ( ) \r ( S E T F - M
0054700 A C R O - F U N C T I O N ( Q
0054720 U O T E \ \ G E T B A S E S T
0054740 R I N G - C H A R ) ( Q U O T
0054760 E | e x p a n d - \ \ G E T B
0055000 A S E S T R I N G - C H A R | )
0055020 ) \r | e x p a n d - \ \ G E T B
0055040 A S E T H I N S T R I N G - C H
0055060 A R | : D 4 \r ( L ( 1 S I
0055100 : : $ $ M A C R O - E N V I R O
0055120 N M E N T 0 S I : : $ $ M A
0055140 C R O - F O R M ) ) \0 035 003 \0 \0
0055160 002 @ 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0
0055200 g \0 \0 I J h 032 032 032 h 032 032 020 \0 N I
0055220 L \r ( 1 7 \ \ G E T B A S E B
0055240 Y T E 1 4 C L : C O D E - C
0055260 H A R ) \r ( ) \r ( S E T F - M A
0055300 C R O - F U N C T I O N ( Q U
0055320 O T E \ \ G E T B A S E T H I
0055340 N S T R I N G - C H A R ) ( Q
0055360 U O T E | e x p a n d - \ \ G
0055400 E T B A S E T H I N S T R I N G
0055420 - C H A R | ) ) \r | e x p a n d
0055440 - \ \ P U T B A S E S M A L L -
0055460 F I X P | : D 4 \r ( L ( 1
0055500 S I : : $ $ M A C R O - E N V I
0055520 R O N M E N T 0 S I : : $ $
0055540 M A C R O - F O R M ) ) \0 $ 005
0055560 \0 \0 002 @ 002 021 A 004 H 001 271 H 002 Z 001 273
0055600 J 002 001 274 g \0 \0 I K g \0 \0 L h 032 032
0055620 h 032 032 032 032 020 \0 N I L \r ( 2 4 %
0055640 S M A L L F I X P - S M A L L P
0055660 O S P 1 9 \ \ P U T B A S E
0055700 ) \r ( ) \r ( S E T F - M A C R O
0055720 - F U N C T I O N ( Q U O T E
0055740 \ \ P U T B A S E S M A L L -
0055760 F I X P ) ( Q U O T E | e x
0056000 p a n d - \ \ P U T B A S E S M
0056020 A L L - F I X P | ) ) \r | e x p
0056040 a n d - \ \ P U T B A S E S T R
0056060 I N G - C H A R | : D 4 \r ( L
0056100 ( 1 S I : : $ $ M A C R O -
0056120 E N V I R O N M E N T 0 S I
0056140 : : $ $ M A C R O - F O R M ) )
0056160 \0 $ 005 \0 \0 002 @ 002 021 A 004 H 001 271 H
0056200 002 Z 001 273 J 002 001 274 g \0 \0 I K g \0 \0
0056220 L h 032 032 h 032 032 032 032 020 \0 N I L \r (
0056240 2 4 C L : C H A R - C O D E
0056260 1 9 \ \ P U T B A S E ) \r ( )
0056300 \r ( S E T F - M A C R O - F U N
0056320 C T I O N ( Q U O T E \ \ P
0056340 U T B A S E S T R I N G - C H A
0056360 R ) ( Q U O T E | e x p a n
0056400 d - \ \ P U T B A S E S T R I N
0056420 G - C H A R | ) ) \r | e x p a n
0056440 d - \ \ P U T B A S E T H I N S
0056460 T R I N G - C H A R | : D 4 \r
0056500 ( L ( 1 S I : : $ $ M A C R
0056520 O - E N V I R O N M E N T 0
0056540 S I : : $ $ M A C R O - F O R M
0056560 ) ) \0 $ 005 \0 \0 002 @ 002 021 A 004 H 001
0056600 271 H 002 Z 001 273 J 002 001 274 g \0 \0 I K g
0056620 \0 \0 L h 032 032 h 032 032 032 032 020 \0 N I L
0056640 \r ( 2 4 C L : C H A R - C O D
0056660 E 1 9 \ \ P U T B A S E B Y
0056700 T E ) \r ( ) \r ( S E T F - M A C
0056720 R O - F U N C T I O N ( Q U O
0056740 T E \ \ P U T B A S E T H I N
0056760 S T R I N G - C H A R ) ( Q U
0057000 O T E | e x p a n d - \ \ P U
0057020 T B A S E T H I N S T R I N G -
0057040 C H A R | ) ) \r ( L E T * ( (
0057060 A 0 8 1 6 ( Q U O T E A R R
0057100 A Y - T A B L E - E N T R Y ) )
0057120 ( A 0 8 1 7 T ) ( A 0 8 1
0057140 8 ( Q U O T E ( C L : : P S
0057160 A R R A Y - T A B L E - E N T
0057200 R Y N I L ( \r C M L - T Y P
0057220 E A C C E S S O R S E T T O
0057240 R B I T S - P E R - E L E M E
0057260 N T G C - T Y P E D E F A U
0057300 L T - V A L U E N E E D S - S
0057320 H I F T - P T Y P E - T E S T
0057340 ) L I S T N I L N I L \r
0057360 A R R A Y - T A B L E - E N T R
0057400 Y - N I L N I L C L : : D
0057420 E F A U L T - S T R U C T U R E
0057440 - P R I N T E R N I L N I L
0057460 0 ( ( C M L - T Y P E N I
0057500 L T N I L 0 \r A R R A Y
0057520 - T A B L E - E N T R Y - C M L
0057540 - T Y P E ) ( A C C E S S O R
0057560 N I L T N I L 1 A R R
0057600 A Y - T A B L E - E N T R Y - A
0057620 C C E S S O R ) ( S E T T O R
0057640 N I L T N I L 2 \r A R
0057660 R A Y - T A B L E - E N T R Y -
0057700 S E T T O R ) ( B I T S - P E
0057720 R - E L E M E N T N I L T
0057740 N I L 3 A R R A Y - T A B L
0057760 E - E N T R Y - B I T S - P E R
0060000 - E L E M E N T ) ( G C - T Y
0060020 P E \r N I L T N I L 4
0060040 A R R A Y - T A B L E - E N T R
0060060 Y - G C - T Y P E ) ( D E F A
0060100 U L T - V A L U E N I L T
0060120 N I L 5 A R R A Y - T A B L
0060140 E - E N T R Y - D E F A U L T -
0060160 V A L U E ) ( \r N E E D S - S
0060200 H I F T - P N I L T N I L
0060220 6 A R R A Y - T A B L E - E
0060240 N T R Y - N E E D S - S H I F T
0060260 - P ) ( T Y P E - T E S T N
0060300 I L T N I L 7 \r A R R A
0060320 Y - T A B L E - E N T R Y - T Y
0060340 P E - T E S T ) ) ( ( C M L -
0060360 T Y P E N I L T N I L 0
0060400 A R R A Y - T A B L E - E N T
0060420 R Y - C M L - T Y P E ) ( A C
0060440 C E S S O R N I L T N I L
0060460 1 \r A R R A Y - T A B L E -
0060500 E N T R Y - A C C E S S O R )
0060520 ( S E T T O R N I L T N I
0060540 L 2 A R R A Y - T A B L E -
0060560 E N T R Y - S E T T O R ) ( B
0060600 I T S - P E R - E L E M E N T
0060620 N I L T N I L \r 3 A R R
0060640 A Y - T A B L E - E N T R Y - B
0060660 I T S - P E R - E L E M E N T )
0060700 ( G C - T Y P E N I L T
0060720 N I L 4 A R R A Y - T A B L
0060740 E - E N T R Y - G C - T Y P E )
0060760 ( D E F A U L T - V A L U E
0061000 \r N I L T N I L 5 A R R
0061020 A Y - T A B L E - E N T R Y - D
0061040 E F A U L T - V A L U E ) ( N
0061060 E E D S - S H I F T - P N I L
0061100 T N I L 6 \r A R R A Y -
0061120 T A B L E - E N T R Y - N E E D
0061140 S - S H I F T - P ) ( T Y P E
0061160 - T E S T N I L T N I L
0061200 7 A R R A Y - T A B L E - E N
0061220 T R Y - T Y P E - T E S T ) )
0061240 N I L N I L N I L N I L
0061260 \r T ) ) ) ) ( C L : : S E T -
0061300 P A R S E D - S T R U C T U R E
0061320 A 0 8 1 6 A 0 8 1 8 ) ) \r A
0061340 R R A Y - T A B L E - E N T R Y
0061360 - C M L - T Y P E : D 4 \r ( L
0061400 ( 0 A R R A Y - T A B L E -
0061420 E N T R Y ) ) \0 \a \0 \0 \0 001 j @
0061440 \n \0 \0 020 \0 ( 4 C L : N T H ) \r
0061460 N I L \r ( ) \r | d e f i n l i n
0061500 e - A R R A Y - T A B L E - E N
0061520 T R Y - C M L - T Y P E | : D
0061540 4 \r ( L ( 2 $ $ C T X 1
0061560 $ $ E N V 0 $ $ W H O L E )
0061600 ) \0 \r 001 \0 \0 003 @ 002 021 001 \0 o \0 \0
0061620 \0 H 032 020 \0 N I L \r N I L \r ( 8
0061640 ( C L : L A M B D A ( A R R
0061660 A Y - T A B L E - E N T R Y )
0061700 ( C L : B L O C K A R R A Y -
0061720 T A B L E - E N T R Y - C M L -
0061740 T Y P E ( C L : N T H 0 A
0061760 R R A Y - T A B L E - E N T R Y
0062000 ) ) ) ) \r ( L E T * ( ( A 0 8
0062020 2 0 ( Q U O T E A R R A Y -
0062040 T A B L E - E N T R Y - C M L -
0062060 T Y P E ) ) ( A 0 8 2 1 ( Q
0062100 U O T E C O M P I L E R : O P
0062120 T I M I Z E R - L I S T ) ) (
0062140 A 0 8 2 3 ( \r C L : A D J O I
0062160 N ( Q U O T E | d e f i n l
0062200 i n e - A R R A Y - T A B L E -
0062220 E N T R Y - C M L - T Y P E | )
0062240 ( G E T A 0 8 2 0 A 0 8 2
0062260 1 ) ) ) ) ( P U T P R O P A
0062300 0 8 2 0 A 0 8 2 1 \r A 0 8 2
0062320 3 ) ) \r A R R A Y - T A B L E -
0062340 E N T R Y - A C C E S S O R :
0062360 D 4 \r ( L ( 0 A R R A Y - T
0062400 A B L E - E N T R Y ) ) \0 \a \0
0062420 \0 \0 001 k @ \n \0 \0 020 \0 ( 4 C L :
0062440 N T H ) \r N I L \r ( ) \r | d e f
0062460 i n l i n e - A R R A Y - T A B
0062500 L E - E N T R Y - A C C E S S O
0062520 R | : D 4 \r ( L ( 2 $ $ C
0062540 T X 1 $ $ E N V 0 $ $ W
0062560 H O L E ) ) \0 \r 001 \0 \0 003 @ 002 021
0062600 001 \0 o \0 \0 \0 H 032 020 \0 N I L \r N I
0062620 L \r ( 8 ( C L : L A M B D A
0062640 ( A R R A Y - T A B L E - E N
0062660 T R Y ) ( C L : B L O C K A
0062700 R R A Y - T A B L E - E N T R Y
0062720 - A C C E S S O R ( C L : N T
0062740 H 1 A R R A Y - T A B L E -
0062760 E N T R Y ) ) ) ) \r ( L E T *
0063000 ( ( A 0 8 2 5 ( Q U O T E A
0063020 R R A Y - T A B L E - E N T R Y
0063040 - A C C E S S O R ) ) ( A 0 8
0063060 2 6 ( Q U O T E C O M P I L
0063100 E R : O P T I M I Z E R - L I S
0063120 T ) ) ( A 0 8 2 8 ( \r C L :
0063140 A D J O I N ( Q U O T E | d
0063160 e f i n l i n e - A R R A Y - T
0063200 A B L E - E N T R Y - A C C E S
0063220 S O R | ) ( G E T A 0 8 2 5
0063240 A 0 8 2 6 ) ) ) ) ( P U T P
0063260 R O P A 0 8 2 5 A 0 8 2 6
0063300 \r A 0 8 2 8 ) ) \r A R R A Y - T
0063320 A B L E - E N T R Y - S E T T O
0063340 R : D 4 \r ( L ( 0 A R R A
0063360 Y - T A B L E - E N T R Y ) )
0063400 \0 \b \0 \0 \0 001 l 002 @ \n \0 \0 020 \0 ( 5
0063420 C L : N T H ) \r N I L \r ( ) \r
0063440 | d e f i n l i n e - A R R A Y
0063460 - T A B L E - E N T R Y - S E T
0063500 T O R | : D 4 \r ( L ( 2 $
0063520 $ C T X 1 $ $ E N V 0 $
0063540 $ W H O L E ) ) \0 \r 001 \0 \0 003 @
0063560 002 021 001 \0 o \0 \0 \0 H 032 020 \0 N I L \r
0063600 N I L \r ( 8 ( C L : L A M B
0063620 D A ( A R R A Y - T A B L E -
0063640 E N T R Y ) ( C L : B L O C K
0063660 A R R A Y - T A B L E - E N T
0063700 R Y - S E T T O R ( C L : N T
0063720 H 2 A R R A Y - T A B L E -
0063740 E N T R Y ) ) ) ) \r ( L E T *
0063760 ( ( A 0 8 3 0 ( Q U O T E A
0064000 R R A Y - T A B L E - E N T R Y
0064020 - S E T T O R ) ) ( A 0 8 3 1
0064040 ( Q U O T E C O M P I L E R
0064060 : O P T I M I Z E R - L I S T )
0064100 ) ( A 0 8 3 3 ( \r C L : A D
0064120 J O I N ( Q U O T E | d e f
0064140 i n l i n e - A R R A Y - T A B
0064160 L E - E N T R Y - S E T T O R |
0064200 ) ( G E T A 0 8 3 0 A 0 8
0064220 3 1 ) ) ) ) ( P U T P R O P
0064240 A 0 8 3 0 A 0 8 3 1 A 0 8 3
0064260 3 \r ) ) \r A R R A Y - T A B L E
0064300 - E N T R Y - B I T S - P E R -
0064320 E L E M E N T : D 4 \r ( L (
0064340 0 A R R A Y - T A B L E - E N
0064360 T R Y ) ) \0 \b \0 \0 \0 001 l 003 @ \n
0064400 \0 \0 020 \0 ( 5 C L : N T H ) \r N
0064420 I L \r ( ) \r | d e f i n l i n e
0064440 - A R R A Y - T A B L E - E N T
0064460 R Y - B I T S - P E R - E L E M
0064500 E N T | : D 4 \r ( L ( 2 $
0064520 $ C T X 1 $ $ E N V 0 $
0064540 $ W H O L E ) ) \0 \r 001 \0 \0 003 @
0064560 002 021 001 \0 o \0 \0 \0 H 032 020 \0 N I L \r
0064600 N I L \r ( 8 ( C L : L A M B
0064620 D A ( A R R A Y - T A B L E -
0064640 E N T R Y ) ( C L : B L O C K
0064660 A R R A Y - T A B L E - E N T
0064700 R Y - B I T S - P E R - E L E M
0064720 E N T ( C L : N T H 3 A R
0064740 R A Y - T A B L E - E N T R Y )
0064760 ) ) ) \r ( L E T * ( ( A 0 8 3
0065000 5 ( Q U O T E A R R A Y - T
0065020 A B L E - E N T R Y - B I T S -
0065040 P E R - E L E M E N T ) ) ( A
0065060 0 8 3 6 ( Q U O T E C O M P
0065100 I L E R : O P T I M I Z E R - L
0065120 I S T ) ) ( \r A 0 8 3 8 ( C
0065140 L : A D J O I N ( Q U O T E
0065160 | d e f i n l i n e - A R R A Y
0065200 - T A B L E - E N T R Y - B I T
0065220 S - P E R - E L E M E N T | )
0065240 ( G E T A 0 8 3 5 A 0 8 3 6
0065260 ) ) ) ) ( P U T P R O P \r A
0065300 0 8 3 5 A 0 8 3 6 A 0 8 3 8
0065320 ) ) \r A R R A Y - T A B L E - E
0065340 N T R Y - G C - T Y P E : D 4
0065360 \r ( L ( 0 A R R A Y - T A B
0065400 L E - E N T R Y ) ) \0 \b \0 \0 \0
0065420 001 l 004 @ \n \0 \0 020 \0 ( 5 C L : N
0065440 T H ) \r N I L \r ( ) \r | d e f i
0065460 n l i n e - A R R A Y - T A B L
0065500 E - E N T R Y - G C - T Y P E |
0065520 : D 4 \r ( L ( 2 $ $ C T X
0065540 1 $ $ E N V 0 $ $ W H O
0065560 L E ) ) \0 \r 001 \0 \0 003 @ 002 021 001 \0
0065600 o \0 \0 \0 H 032 020 \0 N I L \r N I L \r
0065620 ( 8 ( C L : L A M B D A (
0065640 A R R A Y - T A B L E - E N T R
0065660 Y ) ( C L : B L O C K A R R
0065700 A Y - T A B L E - E N T R Y - G
0065720 C - T Y P E ( C L : N T H 4
0065740 A R R A Y - T A B L E - E N T
0065760 R Y ) ) ) ) \r ( L E T * ( ( A
0066000 0 8 4 0 ( Q U O T E A R R A
0066020 Y - T A B L E - E N T R Y - G C
0066040 - T Y P E ) ) ( A 0 8 4 1 (
0066060 Q U O T E C O M P I L E R : O
0066100 P T I M I Z E R - L I S T ) )
0066120 ( A 0 8 4 3 ( \r C L : A D J O
0066140 I N ( Q U O T E | d e f i n
0066160 l i n e - A R R A Y - T A B L E
0066200 - E N T R Y - G C - T Y P E | )
0066220 ( G E T A 0 8 4 0 A 0 8 4
0066240 1 ) ) ) ) ( P U T P R O P A
0066260 0 8 4 0 A 0 8 4 1 \r A 0 8 4
0066300 3 ) ) \r A R R A Y - T A B L E -
0066320 E N T R Y - D E F A U L T - V A
0066340 L U E : D 4 \r ( L ( 0 A R
0066360 R A Y - T A B L E - E N T R Y )
0066400 ) \0 \b \0 \0 \0 001 l 005 @ \n \0 \0 020 \0
0066420 ( 5 C L : N T H ) \r N I L \r (
0066440 ) \r | d e f i n l i n e - A R R
0066460 A Y - T A B L E - E N T R Y - D
0066500 E F A U L T - V A L U E | : D
0066520 4 \r ( L ( 2 $ $ C T X 1
0066540 $ $ E N V 0 $ $ W H O L E )
0066560 ) \0 \r 001 \0 \0 003 @ 002 021 001 \0 o \0 \0
0066600 \0 H 032 020 \0 N I L \r N I L \r ( 8
0066620 ( C L : L A M B D A ( A R R
0066640 A Y - T A B L E - E N T R Y )
0066660 ( C L : B L O C K A R R A Y -
0066700 T A B L E - E N T R Y - D E F A
0066720 U L T - V A L U E ( C L : N T
0066740 H 5 A R R A Y - T A B L E -
0066760 E N T R Y ) ) ) ) \r ( L E T *
0067000 ( ( A 0 8 4 5 ( Q U O T E A
0067020 R R A Y - T A B L E - E N T R Y
0067040 - D E F A U L T - V A L U E ) )
0067060 ( A 0 8 4 6 ( Q U O T E C
0067100 O M P I L E R : O P T I M I Z E
0067120 R - L I S T ) ) ( A 0 8 4 8
0067140 \r ( C L : A D J O I N ( Q U O
0067160 T E | d e f i n l i n e - A R
0067200 R A Y - T A B L E - E N T R Y -
0067220 D E F A U L T - V A L U E | )
0067240 ( G E T A 0 8 4 5 A 0 8 4 6
0067260 ) ) ) ) ( P U T P R O P A 0
0067300 8 4 5 \r A 0 8 4 6 A 0 8 4 8
0067320 ) ) \r A R R A Y - T A B L E - E
0067340 N T R Y - N E E D S - S H I F T
0067360 - P : D 4 \r ( L ( 0 A R R
0067400 A Y - T A B L E - E N T R Y ) )
0067420 \0 \b \0 \0 \0 001 l 006 @ \n \0 \0 020 \0 (
0067440 5 C L : N T H ) \r N I L \r ( )
0067460 \r | d e f i n l i n e - A R R A
0067500 Y - T A B L E - E N T R Y - N E
0067520 E D S - S H I F T - P | : D 4
0067540 \r ( L ( 2 $ $ C T X 1 $
0067560 $ E N V 0 $ $ W H O L E ) )
0067600 \0 \r 001 \0 \0 003 @ 002 021 001 \0 o \0 \0 \0
0067620 H 032 020 \0 N I L \r N I L \r ( 8
0067640 ( C L : L A M B D A ( A R R A
0067660 Y - T A B L E - E N T R Y ) (
0067700 C L : B L O C K A R R A Y - T
0067720 A B L E - E N T R Y - N E E D S
0067740 - S H I F T - P ( C L : N T H
0067760 6 A R R A Y - T A B L E - E
0070000 N T R Y ) ) ) ) \r ( L E T * (
0070020 ( A 0 8 5 0 ( Q U O T E A R
0070040 R A Y - T A B L E - E N T R Y -
0070060 N E E D S - S H I F T - P ) )
0070100 ( A 0 8 5 1 ( Q U O T E C O
0070120 M P I L E R : O P T I M I Z E R
0070140 - L I S T ) ) ( A 0 8 5 3 \r
0070160 ( C L : A D J O I N ( Q U O T
0070200 E | d e f i n l i n e - A R R
0070220 A Y - T A B L E - E N T R Y - N
0070240 E E D S - S H I F T - P | ) (
0070260 G E T A 0 8 5 0 A 0 8 5 1 )
0070300 ) ) ) ( P U T P R O P A 0 8
0070320 5 0 \r A 0 8 5 1 A 0 8 5 3 )
0070340 ) \r A R R A Y - T A B L E - E N
0070360 T R Y - T Y P E - T E S T : D
0070400 4 \r ( L ( 0 A R R A Y - T A
0070420 B L E - E N T R Y ) ) \0 \b \0 \0
0070440 \0 001 l \a @ \n \0 \0 020 \0 ( 5 C L :
0070460 N T H ) \r N I L \r ( ) \r | d e f
0070500 i n l i n e - A R R A Y - T A B
0070520 L E - E N T R Y - T Y P E - T E
0070540 S T | : D 4 \r ( L ( 2 $ $
0070560 C T X 1 $ $ E N V 0 $ $
0070600 W H O L E ) ) \0 \r 001 \0 \0 003 @ 002
0070620 021 001 \0 o \0 \0 \0 H 032 020 \0 N I L \r N
0070640 I L \r ( 8 ( C L : L A M B D
0070660 A ( A R R A Y - T A B L E - E
0070700 N T R Y ) ( C L : B L O C K
0070720 A R R A Y - T A B L E - E N T R
0070740 Y - T Y P E - T E S T ( C L :
0070760 N T H 7 A R R A Y - T A B L
0071000 E - E N T R Y ) ) ) ) \r ( L E T
0071020 * ( ( A 0 8 5 5 ( Q U O T E
0071040 A R R A Y - T A B L E - E N T
0071060 R Y - T Y P E - T E S T ) ) (
0071100 A 0 8 5 6 ( Q U O T E C O M
0071120 P I L E R : O P T I M I Z E R -
0071140 L I S T ) ) ( A 0 8 5 8 ( \r
0071160 C L : A D J O I N ( Q U O T E
0071200 | d e f i n l i n e - A R R A
0071220 Y - T A B L E - E N T R Y - T Y
0071240 P E - T E S T | ) ( G E T A
0071260 0 8 5 5 A 0 8 5 6 ) ) ) ) (
0071300 P U T P R O P A 0 8 5 5 A 0
0071320 8 5 6 \r A 0 8 5 8 ) ) \r ( R E
0071340 M P R O P ( Q U O T E A R R
0071360 A Y - T A B L E - E N T R Y - C
0071400 M L - T Y P E ) ( Q U O T E
0071420 S E T F - M E T H O D - E X P A
0071440 N D E R ) ) \r ( P U T P R O P
0071460 ( Q U O T E A R R A Y - T A B
0071500 L E - E N T R Y - C M L - T Y P
0071520 E ) ( Q U O T E S E T F - I
0071540 N V E R S E ) ( Q U O T E \r
0071560 % % S E T F - A R R A Y - T A B
0071600 L E - E N T R Y - C M L - T Y P
0071620 E ) ) \r % % S E T F - A R R A Y
0071640 - T A B L E - E N T R Y - C M L
0071660 - T Y P E : D 4 \r ( L ( 1
0071700 C L : : V A L U E 0 A R R A
0071720 Y - T A B L E - E N T R Y ) )
0071740 \0 \b \0 \0 \0 002 j @ A \v \0 \0 020 \0 ( 5
0071760 % S E T N T H ) \r N I L \r ( )
0072000 \r | d e f i n l i n e - % % S E
0072020 T F - A R R A Y - T A B L E - E
0072040 N T R Y - C M L - T Y P E | :
0072060 D 4 \r ( L ( 2 $ $ C T X 1
0072100 $ $ E N V 0 $ $ W H O L E
0072120 ) ) \0 \r 001 \0 \0 003 @ 002 021 001 \0 o \0
0072140 \0 \0 H 032 020 \0 N I L \r N I L \r (
0072160 8 ( C L : L A M B D A ( A R
0072200 R A Y - T A B L E - E N T R Y
0072220 C L : : V A L U E ) ( C L : B
0072240 L O C K % % S E T F - A R R A
0072260 Y - T A B L E - E N T R Y - C M
0072300 L - T Y P E ( C L : S E T F
0072320 ( C L : N T H 0 A R R A Y -
0072340 T A B L E - E N T R Y ) C L :
0072360 : V A L U E ) ) ) ) \r ( L E T *
0072400 ( ( A 0 8 6 0 ( Q U O T E
0072420 % % S E T F - A R R A Y - T A B
0072440 L E - E N T R Y - C M L - T Y P
0072460 E ) ) ( A 0 8 6 1 ( Q U O T
0072500 E C O M P I L E R : O P T I M
0072520 I Z E R - L I S T ) ) ( \r A 0
0072540 8 6 3 ( C L : A D J O I N (
0072560 Q U O T E | d e f i n l i n e
0072600 - % % S E T F - A R R A Y - T A
0072620 B L E - E N T R Y - C M L - T Y
0072640 P E | ) ( G E T A 0 8 6 0
0072660 A 0 8 6 1 ) ) ) ) ( P U T P R
0072700 O P \r A 0 8 6 0 A 0 8 6 1
0072720 A 0 8 6 3 ) ) \r ( R E M P R O P
0072740 ( Q U O T E A R R A Y - T A
0072760 B L E - E N T R Y - A C C E S S
0073000 O R ) ( Q U O T E S E T F -
0073020 M E T H O D - E X P A N D E R )
0073040 ) \r ( P U T P R O P ( Q U O T
0073060 E A R R A Y - T A B L E - E N
0073100 T R Y - A C C E S S O R ) ( Q
0073120 U O T E S E T F - I N V E R S
0073140 E ) ( Q U O T E \r % % S E T
0073160 F - A R R A Y - T A B L E - E N
0073200 T R Y - A C C E S S O R ) ) \r %
0073220 % S E T F - A R R A Y - T A B L
0073240 E - E N T R Y - A C C E S S O R
0073260 : D 4 \r ( L ( 1 C L : : V
0073300 A L U E 0 A R R A Y - T A B
0073320 L E - E N T R Y ) ) \0 \b \0 \0 \0
0073340 002 k @ A \v \0 \0 020 \0 ( 5 % S E T
0073360 N T H ) \r N I L \r ( ) \r | d e f
0073400 i n l i n e - % % S E T F - A R
0073420 R A Y - T A B L E - E N T R Y -
0073440 A C C E S S O R | : D 4 \r ( L
0073460 ( 2 $ $ C T X 1 $ $ E N
0073500 V 0 $ $ W H O L E ) ) \0 \r
0073520 001 \0 \0 003 @ 002 021 001 \0 o \0 \0 \0 H 032 020
0073540 \0 N I L \r N I L \r ( 8 ( C L
0073560 : L A M B D A ( A R R A Y - T
0073600 A B L E - E N T R Y C L : : V
0073620 A L U E ) ( C L : B L O C K
0073640 % % S E T F - A R R A Y - T A B
0073660 L E - E N T R Y - A C C E S S O
0073700 R ( C L : S E T F ( C L : N
0073720 T H 1 A R R A Y - T A B L E
0073740 - E N T R Y ) C L : : V A L U
0073760 E ) ) ) ) \r ( L E T * ( ( A 0
0074000 8 6 5 ( Q U O T E % % S E T
0074020 F - A R R A Y - T A B L E - E N
0074040 T R Y - A C C E S S O R ) ) (
0074060 A 0 8 6 6 ( Q U O T E C O M
0074100 P I L E R : O P T I M I Z E R -
0074120 L I S T ) ) ( \r A 0 8 6 8 (
0074140 C L : A D J O I N ( Q U O T E
0074160 | d e f i n l i n e - % % S E
0074200 T F - A R R A Y - T A B L E - E
0074220 N T R Y - A C C E S S O R | )
0074240 ( G E T A 0 8 6 5 A 0 8 6 6
0074260 ) ) ) ) ( P U T P R O P \r A
0074300 0 8 6 5 A 0 8 6 6 A 0 8 6 8
0074320 ) ) \r ( R E M P R O P ( Q U O
0074340 T E A R R A Y - T A B L E - E
0074360 N T R Y - S E T T O R ) ( Q U
0074400 O T E S E T F - M E T H O D -
0074420 E X P A N D E R ) ) \r ( P U T P
0074440 R O P ( Q U O T E A R R A Y
0074460 - T A B L E - E N T R Y - S E T
0074500 T O R ) ( Q U O T E S E T F
0074520 - I N V E R S E ) ( Q U O T E
0074540 % % S E T F - A R R A Y - T A
0074560 B L E - E N T R Y - S E T T O R
0074600 ) \r ) \r % % S E T F - A R R A Y
0074620 - T A B L E - E N T R Y - S E T
0074640 T O R : D 4 \r ( L ( 1 C L
0074660 : : V A L U E 0 A R R A Y -
0074700 T A B L E - E N T R Y ) ) \0 \t
0074720 \0 \0 \0 002 l 002 @ A \v \0 \0 020 \0 ( 6
0074740 % S E T N T H ) \r N I L \r ( ) \r
0074760 | d e f i n l i n e - % % S E T
0075000 F - A R R A Y - T A B L E - E N
0075020 T R Y - S E T T O R | : D 4 \r
0075040 ( L ( 2 $ $ C T X 1 $ $
0075060 E N V 0 $ $ W H O L E ) )
0075100 \0 \r 001 \0 \0 003 @ 002 021 001 \0 o \0 \0 \0 H
0075120 032 020 \0 N I L \r N I L \r ( 8 (
0075140 C L : L A M B D A ( A R R A Y
0075160 - T A B L E - E N T R Y C L :
0075200 : V A L U E ) ( C L : B L O C
0075220 K % % S E T F - A R R A Y - T
0075240 A B L E - E N T R Y - S E T T O
0075260 R ( C L : S E T F ( C L : N
0075300 T H 2 A R R A Y - T A B L E
0075320 - E N T R Y ) C L : : V A L U
0075340 E ) ) ) ) \r ( L E T * ( ( A 0
0075360 8 7 0 ( Q U O T E % % S E T
0075400 F - A R R A Y - T A B L E - E N
0075420 T R Y - S E T T O R ) ) ( A 0
0075440 8 7 1 ( Q U O T E C O M P I
0075460 L E R : O P T I M I Z E R - L I
0075500 S T ) ) ( A 0 8 7 3 \r ( C L
0075520 : A D J O I N ( Q U O T E |
0075540 d e f i n l i n e - % % S E T F
0075560 - A R R A Y - T A B L E - E N T
0075600 R Y - S E T T O R | ) ( G E T
0075620 A 0 8 7 0 A 0 8 7 1 ) ) ) )
0075640 ( P U T P R O P A 0 8 7 0
0075660 \r A 0 8 7 1 A 0 8 7 3 ) ) \r (
0075700 R E M P R O P ( Q U O T E A
0075720 R R A Y - T A B L E - E N T R Y
0075740 - B I T S - P E R - E L E M E N
0075760 T ) ( Q U O T E S E T F - M
0076000 E T H O D - E X P A N D E R ) )
0076020 \r ( P U T P R O P ( Q U O T E
0076040 A R R A Y - T A B L E - E N T
0076060 R Y - B I T S - P E R - E L E M
0076100 E N T ) ( Q U O T E S E T F
0076120 - I N V E R S E ) ( Q U O T E
0076140 \r % % S E T F - A R R A Y - T
0076160 A B L E - E N T R Y - B I T S -
0076200 P E R - E L E M E N T ) ) \r % %
0076220 S E T F - A R R A Y - T A B L E
0076240 - E N T R Y - B I T S - P E R -
0076260 E L E M E N T : D 4 \r ( L (
0076300 1 C L : : V A L U E 0 A R
0076320 R A Y - T A B L E - E N T R Y )
0076340 ) \0 \t \0 \0 \0 002 l 003 @ A \v \0 \0 020
0076360 \0 ( 6 % S E T N T H ) \r N I L
0076400 \r ( ) \r | d e f i n l i n e - %
0076420 % S E T F - A R R A Y - T A B L
0076440 E - E N T R Y - B I T S - P E R
0076460 - E L E M E N T | : D 4 \r ( L
0076500 ( 2 $ $ C T X 1 $ $ E N
0076520 V 0 $ $ W H O L E ) ) \0 \r
0076540 001 \0 \0 003 @ 002 021 001 \0 o \0 \0 \0 H 032 020
0076560 \0 N I L \r N I L \r ( 8 ( C L
0076600 : L A M B D A ( A R R A Y - T
0076620 A B L E - E N T R Y C L : : V
0076640 A L U E ) ( C L : B L O C K
0076660 % % S E T F - A R R A Y - T A B
0076700 L E - E N T R Y - B I T S - P E
0076720 R - E L E M E N T ( C L : S E
0076740 T F ( C L : N T H 3 A R R
0076760 A Y - T A B L E - E N T R Y )
0077000 C L : : V A L U E ) ) ) ) \r ( L
0077020 E T * ( ( A 0 8 7 5 ( Q U O
0077040 T E % % S E T F - A R R A Y -
0077060 T A B L E - E N T R Y - B I T S
0077100 - P E R - E L E M E N T ) ) (
0077120 A 0 8 7 6 ( Q U O T E C O M
0077140 P I L E R : O P T I M I Z E R -
0077160 L I S T \r ) ) ( A 0 8 7 8 (
0077200 C L : A D J O I N ( Q U O T E
0077220 | d e f i n l i n e - % % S E
0077240 T F - A R R A Y - T A B L E - E
0077260 N T R Y - B I T S - P E R - E L
0077300 E M E N T | ) ( G E T A 0 8
0077320 7 5 A 0 8 7 6 ) ) ) \r ) ( P
0077340 U T P R O P A 0 8 7 5 A 0 8
0077360 7 6 A 0 8 7 8 ) ) \r ( R E M P
0077400 R O P ( Q U O T E A R R A Y
0077420 - T A B L E - E N T R Y - G C -
0077440 T Y P E ) ( Q U O T E S E T
0077460 F - M E T H O D - E X P A N D E
0077500 R ) ) \r ( P U T P R O P ( Q U
0077520 O T E A R R A Y - T A B L E -
0077540 E N T R Y - G C - T Y P E ) (
0077560 Q U O T E S E T F - I N V E R
0077600 S E ) ( Q U O T E \r % % S E
0077620 T F - A R R A Y - T A B L E - E
0077640 N T R Y - G C - T Y P E ) ) \r %
0077660 % S E T F - A R R A Y - T A B L
0077700 E - E N T R Y - G C - T Y P E
0077720 : D 4 \r ( L ( 1 C L : : V A
0077740 L U E 0 A R R A Y - T A B L
0077760 E - E N T R Y ) ) \0 \t \0 \0 \0 002
0100000 l 004 @ A \v \0 \0 020 \0 ( 6 % S E T
0100020 N T H ) \r N I L \r ( ) \r | d e f
0100040 i n l i n e - % % S E T F - A R
0100060 R A Y - T A B L E - E N T R Y -
0100100 G C - T Y P E | : D 4 \r ( L
0100120 ( 2 $ $ C T X 1 $ $ E N V
0100140 0 $ $ W H O L E ) ) \0 \r 001
0100160 \0 \0 003 @ 002 021 001 \0 o \0 \0 \0 H 032 020 \0
0100200 N I L \r N I L \r ( 8 ( C L :
0100220 L A M B D A ( A R R A Y - T A
0100240 B L E - E N T R Y C L : : V A
0100260 L U E ) ( C L : B L O C K %
0100300 % S E T F - A R R A Y - T A B L
0100320 E - E N T R Y - G C - T Y P E
0100340 ( C L : S E T F ( C L : N T H
0100360 4 A R R A Y - T A B L E - E
0100400 N T R Y ) C L : : V A L U E )
0100420 ) ) ) \r ( L E T * ( ( A 0 8 8
0100440 0 ( Q U O T E % % S E T F -
0100460 A R R A Y - T A B L E - E N T R
0100500 Y - G C - T Y P E ) ) ( A 0 8
0100520 8 1 ( Q U O T E C O M P I L
0100540 E R : O P T I M I Z E R - L I S
0100560 T ) ) ( A 0 8 8 3 \r ( C L :
0100600 A D J O I N ( Q U O T E | d
0100620 e f i n l i n e - % % S E T F -
0100640 A R R A Y - T A B L E - E N T R
0100660 Y - G C - T Y P E | ) ( G E T
0100700 A 0 8 8 0 A 0 8 8 1 ) ) ) )
0100720 ( P U T P R O P A 0 8 8 0
0100740 \r A 0 8 8 1 A 0 8 8 3 ) ) \r (
0100760 R E M P R O P ( Q U O T E A
0101000 R R A Y - T A B L E - E N T R Y
0101020 - D E F A U L T - V A L U E )
0101040 ( Q U O T E S E T F - M E T H
0101060 O D - E X P A N D E R ) ) \r ( P
0101100 U T P R O P ( Q U O T E A R
0101120 R A Y - T A B L E - E N T R Y -
0101140 D E F A U L T - V A L U E ) (
0101160 Q U O T E S E T F - I N V E R
0101200 S E ) ( Q U O T E \r % % S E
0101220 T F - A R R A Y - T A B L E - E
0101240 N T R Y - D E F A U L T - V A L
0101260 U E ) ) \r % % S E T F - A R R A
0101300 Y - T A B L E - E N T R Y - D E
0101320 F A U L T - V A L U E : D 4 \r
0101340 ( L ( 1 C L : : V A L U E
0101360 0 A R R A Y - T A B L E - E N
0101400 T R Y ) ) \0 \t \0 \0 \0 002 l 005 @ A
0101420 \v \0 \0 020 \0 ( 6 % S E T N T H )
0101440 \r N I L \r ( ) \r | d e f i n l i
0101460 n e - % % S E T F - A R R A Y -
0101500 T A B L E - E N T R Y - D E F A
0101520 U L T - V A L U E | : D 4 \r (
0101540 L ( 2 $ $ C T X 1 $ $ E
0101560 N V 0 $ $ W H O L E ) ) \0
0101600 \r 001 \0 \0 003 @ 002 021 001 \0 o \0 \0 \0 H 032
0101620 020 \0 N I L \r N I L \r ( 8 ( C
0101640 L : L A M B D A ( A R R A Y -
0101660 T A B L E - E N T R Y C L : :
0101700 V A L U E ) ( C L : B L O C K
0101720 % % S E T F - A R R A Y - T A
0101740 B L E - E N T R Y - D E F A U L
0101760 T - V A L U E ( C L : S E T F
0102000 ( C L : N T H 5 A R R A Y
0102020 - T A B L E - E N T R Y ) C L
0102040 : : V A L U E ) ) ) ) \r ( L E T
0102060 * ( ( A 0 8 8 5 ( Q U O T E
0102100 % % S E T F - A R R A Y - T A
0102120 B L E - E N T R Y - D E F A U L
0102140 T - V A L U E ) ) ( A 0 8 8 6
0102160 ( Q U O T E C O M P I L E R
0102200 : O P T I M I Z E R - L I S T )
0102220 ) \r ( A 0 8 8 8 ( C L : A D
0102240 J O I N ( Q U O T E | d e f
0102260 i n l i n e - % % S E T F - A R
0102300 R A Y - T A B L E - E N T R Y -
0102320 D E F A U L T - V A L U E | )
0102340 ( G E T A 0 8 8 5 A 0 8 8 6
0102360 ) ) ) ) ( \r P U T P R O P A
0102400 0 8 8 5 A 0 8 8 6 A 0 8 8 8
0102420 ) ) \r ( R E M P R O P ( Q U O
0102440 T E A R R A Y - T A B L E - E
0102460 N T R Y - N E E D S - S H I F T
0102500 - P ) ( Q U O T E S E T F -
0102520 M E T H O D - E X P A N D E R )
0102540 ) \r ( P U T P R O P ( Q U O T
0102560 E A R R A Y - T A B L E - E N
0102600 T R Y - N E E D S - S H I F T -
0102620 P ) ( Q U O T E S E T F - I
0102640 N V E R S E ) ( Q U O T E \r
0102660 % % S E T F - A R R A Y - T A B
0102700 L E - E N T R Y - N E E D S - S
0102720 H I F T - P ) ) \r % % S E T F -
0102740 A R R A Y - T A B L E - E N T R
0102760 Y - N E E D S - S H I F T - P
0103000 : D 4 \r ( L ( 1 C L : : V A
0103020 L U E 0 A R R A Y - T A B L
0103040 E - E N T R Y ) ) \0 \t \0 \0 \0 002
0103060 l 006 @ A \v \0 \0 020 \0 ( 6 % S E T
0103100 N T H ) \r N I L \r ( ) \r | d e f
0103120 i n l i n e - % % S E T F - A R
0103140 R A Y - T A B L E - E N T R Y -
0103160 N E E D S - S H I F T - P | :
0103200 D 4 \r ( L ( 2 $ $ C T X 1
0103220 $ $ E N V 0 $ $ W H O L E
0103240 ) ) \0 \r 001 \0 \0 003 @ 002 021 001 \0 o \0
0103260 \0 \0 H 032 020 \0 N I L \r N I L \r (
0103300 8 ( C L : L A M B D A ( A R
0103320 R A Y - T A B L E - E N T R Y
0103340 C L : : V A L U E ) ( C L : B
0103360 L O C K % % S E T F - A R R A
0103400 Y - T A B L E - E N T R Y - N E
0103420 E D S - S H I F T - P ( C L :
0103440 S E T F ( C L : N T H 6 A
0103460 R R A Y - T A B L E - E N T R Y
0103500 ) C L : : V A L U E ) ) ) ) \r
0103520 ( L E T * ( ( A 0 8 9 0 ( Q
0103540 U O T E % % S E T F - A R R A
0103560 Y - T A B L E - E N T R Y - N E
0103600 E D S - S H I F T - P ) ) ( A
0103620 0 8 9 1 ( Q U O T E C O M P
0103640 I L E R : O P T I M I Z E R - L
0103660 I S T ) ) \r ( A 0 8 9 3 ( C
0103700 L : A D J O I N ( Q U O T E
0103720 | d e f i n l i n e - % % S E T
0103740 F - A R R A Y - T A B L E - E N
0103760 T R Y - N E E D S - S H I F T -
0104000 P | ) ( G E T A 0 8 9 0 A
0104020 0 8 9 1 ) ) ) ) ( \r P U T P R
0104040 O P A 0 8 9 0 A 0 8 9 1 A
0104060 0 8 9 3 ) ) \r ( R E M P R O P
0104100 ( Q U O T E A R R A Y - T A B
0104120 L E - E N T R Y - T Y P E - T E
0104140 S T ) ( Q U O T E S E T F -
0104160 M E T H O D - E X P A N D E R )
0104200 ) \r ( P U T P R O P ( Q U O T
0104220 E A R R A Y - T A B L E - E N
0104240 T R Y - T Y P E - T E S T ) (
0104260 Q U O T E S E T F - I N V E R
0104300 S E ) ( Q U O T E \r % % S E
0104320 T F - A R R A Y - T A B L E - E
0104340 N T R Y - T Y P E - T E S T ) )
0104360 \r % % S E T F - A R R A Y - T A
0104400 B L E - E N T R Y - T Y P E - T
0104420 E S T : D 4 \r ( L ( 1 C L
0104440 : : V A L U E 0 A R R A Y -
0104460 T A B L E - E N T R Y ) ) \0 \t
0104500 \0 \0 \0 002 l \a @ A \v \0 \0 020 \0 ( 6
0104520 % S E T N T H ) \r N I L \r ( ) \r
0104540 | d e f i n l i n e - % % S E T
0104560 F - A R R A Y - T A B L E - E N
0104600 T R Y - T Y P E - T E S T | :
0104620 D 4 \r ( L ( 2 $ $ C T X 1
0104640 $ $ E N V 0 $ $ W H O L E
0104660 ) ) \0 \r 001 \0 \0 003 @ 002 021 001 \0 o \0
0104700 \0 \0 H 032 020 \0 N I L \r N I L \r (
0104720 8 ( C L : L A M B D A ( A R
0104740 R A Y - T A B L E - E N T R Y
0104760 C L : : V A L U E ) ( C L : B
0105000 L O C K % % S E T F - A R R A
0105020 Y - T A B L E - E N T R Y - T Y
0105040 P E - T E S T ( C L : S E T F
0105060 ( C L : N T H 7 A R R A Y
0105100 - T A B L E - E N T R Y ) C L
0105120 : : V A L U E ) ) ) ) \r ( L E T
0105140 * ( ( A 0 8 9 5 ( Q U O T E
0105160 % % S E T F - A R R A Y - T A
0105200 B L E - E N T R Y - T Y P E - T
0105220 E S T ) ) ( A 0 8 9 6 ( Q U
0105240 O T E C O M P I L E R : O P T
0105260 I M I Z E R - L I S T ) ) ( \r
0105300 A 0 8 9 8 ( C L : A D J O I N
0105320 ( Q U O T E | d e f i n l i
0105340 n e - % % S E T F - A R R A Y -
0105360 T A B L E - E N T R Y - T Y P E
0105400 - T E S T | ) ( G E T A 0 8
0105420 9 5 A 0 8 9 6 ) ) ) ) ( P U
0105440 T P R O P \r A 0 8 9 5 A 0 8
0105460 9 6 A 0 8 9 8 ) ) \r ( C L : P
0105500 R O C L A I M ( Q U O T E (
0105520 C L : S P E C I A L % L I T -
0105540 A R R A Y - S I Z E S ) ) ) \r (
0105560 S E T Q % L I T - A R R A Y -
0105600 S I Z E S ( Q U O T E ( ( 1
0105620 B I T 0 ) ( 8 B I T 3 )
0105640 ( 1 6 B I T 4 ) ( 3 2 B I T
0105660 6 ) ) ) ) \r ( L E T * ( ( A
0105700 0 8 9 9 ( Q U O T E % L I T
0105720 - A R R A Y - S I Z E S ) ) (
0105740 A 0 9 0 0 ( Q U O T E C L :
0105760 V A R I A B L E ) ) ( A 0 9 0
0106000 1 " S i z e c o d e s " ) )
0106020 ( \r S E T - D O C U M E N T A
0106040 T I O N A 0 8 9 9 A 0 9 0 0
0106060 A 0 9 0 1 ) ) \r ( C L : P R O
0106100 C L A I M ( Q U O T E ( C L
0106120 : S P E C I A L % L I T - A R
0106140 R A Y - T A B L E ) ) ) \r ( S E
0106160 T Q % L I T - A R R A Y - T A
0106200 B L E ( Q U O T E ( ( C L :
0106220 S T R I N G - C H A R ( ( 8 B
0106240 I T ( C L : S T R I N G - C H
0106260 A R \ \ G E T B A S E T H I N
0106300 S T R I N G - C H A R \r \ \ P
0106320 U T B A S E T H I N S T R I N G
0106340 - C H A R 8 U N B O X E D B
0106360 L O C K . G C T # \ N u l l
0106400 N I L ( C L : L A M B D A (
0106420 O B J E C T ) ( % T H I N - S
0106440 T R I N G - C H A R - P O B J
0106460 E C T \r ) ) ) ) ( 1 6 B I T
0106500 ( C L : S T R I N G - C H A R
0106520 \ \ G E T B A S E S T R I N G -
0106540 C H A R \ \ P U T B A S E S T
0106560 R I N G - C H A R 1 6 U N B
0106600 O X E D B L O C K . G C T # \
0106620 N u l l N I L ( \r C L : L A
0106640 M B D A ( O B J E C T ) ( C
0106660 L : S T R I N G - C H A R - P
0106700 O B J E C T ) ) ) ) ) ) ( T
0106720 ( ( 3 2 B I T ( T \ \ G E T
0106740 B A S E P T R \ \ R P L P T R
0106760 3 2 P T R B L O C K . G C T
0107000 \r N I L 1 ( C L : L A M B
0107020 D A ( O B J E C T ) T ) ) )
0107040 ) ) ( X P O I N T E R ( ( 3
0107060 2 B I T ( X P O I N T E R \
0107100 \ G E T B A S E P T R \ \ P U
0107120 T B A S E P T R 3 2 \r U N B
0107140 O X E D B L O C K . G C T N I
0107160 L 1 ( C L : L A M B D A (
0107200 O B J E C T ) T ) ) ) ) ) (
0107220 C L : S I N G L E - F L O A T
0107240 ( ( 3 2 B I T ( C L : S I N G
0107260 L E - F L O A T \r \ \ G E T B
0107300 A S E F L O A T P \ \ P U T B
0107320 A S E F L O A T P 3 2 U N B
0107340 O X E D B L O C K . G C T 0 .
0107360 0 1 ( C L : L A M B D A (
0107400 O B J E C T ) ( F L O A T P
0107420 O B J E C T ) ) ) ) ) ) ( \r C
0107440 L : U N S I G N E D - B Y T E
0107460 ( ( 1 B I T ( ( C L : U N S I
0107500 G N E D - B Y T E 1 ) \ \ G
0107520 E T B A S E B I T \ \ P U T B
0107540 A S E B I T 1 U N B O X E D
0107560 B L O C K . G C T 0 N I L
0107600 ( \r C L : L A M B D A ( O B J
0107620 E C T ) ( A N D ( > = O B
0107640 J E C T 0 ) ( < = O B J E
0107660 C T 1 ) ) ) ) ) ( 8 B I T
0107700 ( ( C L : U N S I G N E D - B Y
0107720 T E 8 ) \ \ G E T B A S E B
0107740 Y T E \r \ \ P U T B A S E B Y
0107760 T E 8 U N B O X E D B L O C
0110000 K . G C T 0 N I L ( C L :
0110020 L A M B D A ( O B J E C T )
0110040 ( A N D ( > = O B J E C T
0110060 0 ) ( < O B J E C T 2 5 6
0110100 ) ) ) ) ) ( \r 1 6 B I T ( (
0110120 C L : U N S I G N E D - B Y T E
0110140 1 6 ) \ \ G E T B A S E \
0110160 \ P U T B A S E 1 6 U N B O
0110200 X E D B L O C K . G C T 0 N
0110220 I L ( C L : L A M B D A ( O
0110240 B J E C T ) ( \r S M A L L P O
0110260 S P O B J E C T ) ) ) ) ) )
0110300 ( C L : S I G N E D - B Y T E
0110320 ( ( 1 6 B I T ( ( C L : S I G
0110340 N E D - B Y T E 1 6 ) \ \ G
0110360 E T B A S E S M A L L - F I X P
0110400 \r \ \ P U T B A S E S M A L L
0110420 - F I X P 1 6 U N B O X E D
0110440 B L O C K . G C T 0 N I L
0110460 ( C L : L A M B D A ( O B J E
0110500 C T ) ( A N D ( > = O B J
0110520 E C T M I N . S M A L L F I X
0110540 P ) ( < = \r O B J E C T M
0110560 A X . S M A L L F I X P ) ) ) )
0110600 ) ( 3 2 B I T ( ( C L : S I
0110620 G N E D - B Y T E 3 2 ) \ \
0110640 G E T B A S E F I X P \ \ P U
0110660 T B A S E F I X P 3 2 U N B
0110700 O X E D B L O C K . G C T \r 0
0110720 1 ( C L : L A M B D A ( O
0110740 B J E C T ) ( A N D ( > =
0110760 O B J E C T M I N . F I X P )
0111000 ( < = O B J E C T M A X .
0111020 F I X P ) ) ) ) ) ) ) ) ) ) \r (
0111040 L E T * ( ( A 0 9 0 2 ( Q U
0111060 O T E % L I T - A R R A Y - T
0111100 A B L E ) ) ( A 0 9 0 3 ( Q
0111120 U O T E C L : V A R I A B L E
0111140 ) ) ( A 0 9 0 4 \r " F i e l
0111160 d s d e s c r i b e d b y
0111200 r e c o r d A R R A Y - T Y P
0111220 E - T A B L E - E N T R Y " ) )
0111240 ( S E T - D O C U M E N T A T
0111260 I O N A 0 9 0 2 A 0 9 0 3
0111300 A 0 9 0 4 ) ) \r ( C L : P R O C
0111320 L A I M ( Q U O T E ( C L :
0111340 S P E C I A L % L I T - A R R
0111360 A Y - T Y P E S ) ) ) \r ( S E T
0111400 Q % L I T - A R R A Y - T Y P
0111420 E S ( Q U O T E ( ( C L : U
0111440 N S I G N E D - B Y T E 0 )
0111460 ( C L : S I G N E D - B Y T E
0111500 1 ) ( T 2 ) ( C L : S I N
0111520 G L E - F L O A T 3 ) ( \r C
0111540 L : S T R I N G - C H A R 4 )
0111560 ( X P O I N T E R 5 ) ) ) )
0111600 \r ( L E T * ( ( A 0 9 0 5 (
0111620 Q U O T E % L I T - A R R A Y
0111640 - T Y P E S ) ) ( A 0 9 0 6
0111660 ( Q U O T E C L : V A R I A B
0111700 L E ) ) ( A 0 9 0 7 " T y p
0111720 e c o d e s " ) ) ( \r S E T
0111740 - D O C U M E N T A T I O N A
0111760 0 9 0 5 A 0 9 0 6 A 0 9 0 7
0112000 ) ) \r ( C L : P R O C L A I M
0112020 ( Q U O T E ( C L : S P E C I
0112040 A L % A R R A Y - T Y P E - T
0112060 A B L E ) ) ) \r ( S E T Q % A
0112100 R R A Y - T Y P E - T A B L E
0112120 ( % M A K E - A R R A Y - T Y P
0112140 E - T A B L E % L I T - A R R
0112160 A Y - T A B L E % L I T - A R
0112200 R A Y - T Y P E S % L I T - A
0112220 R R A Y - S I Z E S ) ) \r ( L E
0112240 T * ( ( A 0 9 0 8 ( Q U O T
0112260 E % A R R A Y - T Y P E - T A
0112300 B L E ) ) ( A 0 9 0 9 ( Q U
0112320 O T E C L : V A R I A B L E )
0112340 ) ( A 0 9 1 0 " D r i v e s
0112360 v a r i o u s m a c r o s "
0112400 ) ) \r ( S E T - D O C U M E N
0112420 T A T I O N A 0 9 0 8 A 0 9
0112440 0 9 A 0 9 1 0 ) ) \r ( C L : P
0112460 R O C L A I M ( Q U O T E (
0112500 C L : S P E C I A L % C A N O
0112520 N I C A L - C M L - T Y P E S )
0112540 ) ) \r ( S E T Q % C A N O N I
0112560 C A L - C M L - T Y P E S ( %
0112600 M A K E - C M L - T Y P E - T A
0112620 B L E % A R R A Y - T Y P E -
0112640 T A B L E ) ) \r ( S E T Q M A
0112660 X . S M A L L F I X P ( C L :
0112700 1 - ( E X P T 2 1 5 ) ) )
0112720 \r ( P U T H A S H ( Q U O T E
0112740 M A X . S M A L L F I X P )
0112760 ( Q U O T E ( C O N S T A N T
0113000 M A X . S M A L L F I X P ) )
0113020 C O M P V A R M A C R O H A S
0113040 H ) \r ( S E T Q M I N . S M A
0113060 L L F I X P ( - ( E X P T
0113100 2 1 5 ) ) ) \r ( P U T H A S H
0113120 ( Q U O T E M I N . S M A L
0113140 L F I X P ) ( Q U O T E ( C
0113160 O N S T A N T M I N . S M A L
0113200 L F I X P ) ) C O M P V A R M
0113220 A C R O H A S H ) \r ( S E T Q
0113240 % C H A R - T Y P E ( % L I T
0113260 - T Y P E - T O - T Y P E ( Q
0113300 U O T E C L : S T R I N G - C
0113320 H A R ) ) ) \r ( P U T H A S H
0113340 ( Q U O T E % C H A R - T Y P
0113360 E ) ( Q U O T E ( C O N S T
0113400 A N T % C H A R - T Y P E ) )
0113420 C O M P V A R M A C R O H A S
0113440 H ) \r ( S E T Q % B I T - T Y
0113460 P E ( % T Y P E - S I Z E - T
0113500 O - T Y P E N U M B E R ( Q U
0113520 O T E C L : U N S I G N E D -
0113540 B Y T E ) ( Q U O T E 1 B I
0113560 T ) ) ) \r ( P U T H A S H ( Q
0113600 U O T E % B I T - T Y P E )
0113620 ( Q U O T E ( C O N S T A N T
0113640 % B I T - T Y P E ) ) C O M
0113660 P V A R M A C R O H A S H ) \r (
0113700 S E T Q % T H I N - C H A R -
0113720 T Y P E N U M B E R ( % T Y P
0113740 E - S I Z E - T O - T Y P E N U
0113760 M B E R ( Q U O T E C L : S
0114000 T R I N G - C H A R ) ( Q U O
0114020 T E 8 B I T ) ) ) \r ( P U T H
0114040 A S H ( Q U O T E % T H I N
0114060 - C H A R - T Y P E N U M B E R
0114100 ) ( Q U O T E ( C O N S T A
0114120 N T % T H I N - C H A R - T Y
0114140 P E N U M B E R ) ) C O M P V
0114160 A R M A C R O H A S H ) \r ( S E
0114200 T Q % F A T - C H A R - T Y P
0114220 E N U M B E R ( % T Y P E - S
0114240 I Z E - T O - T Y P E N U M B E
0114260 R ( Q U O T E C L : S T R I
0114300 N G - C H A R ) ( Q U O T E
0114320 1 6 B I T ) ) ) \r ( P U T H A S
0114340 H ( Q U O T E % F A T - C H
0114360 A R - T Y P E N U M B E R ) (
0114400 Q U O T E ( C O N S T A N T
0114420 % F A T - C H A R - T Y P E N U
0114440 M B E R ) ) C O M P V A R M A
0114460 C R O H A S H ) \r ( S E T Q %
0114500 M A X T H I N C H A R ( C L :
0114520 1 - ( E X P T 2 8 ) ) ) \r
0114540 ( P U T H A S H ( Q U O T E
0114560 % M A X T H I N C H A R ) ( Q
0114600 U O T E ( C O N S T A N T %
0114620 M A X T H I N C H A R ) ) C O
0114640 M P V A R M A C R O H A S H ) \r
0114660 ( S E T Q % G E N E R A L - A
0114700 R R A Y 1 6 ) \r ( P U T H A S
0114720 H ( Q U O T E % G E N E R A
0114740 L - A R R A Y ) ( Q U O T E
0114760 ( C O N S T A N T % G E N E R
0115000 A L - A R R A Y ) ) C O M P V
0115020 A R M A C R O H A S H ) \r ( L E
0115040 T * ( ( A 0 9 1 1 ( Q U O T
0115060 E % G E N E R A L - A R R A Y
0115100 ) ) ( A 0 9 1 2 ( Q U O T E
0115120 C L : V A R I A B L E ) ) (
0115140 A 0 9 1 3 " G e n e r a l - a
0115160 r r a y - t y p e - n u m b e r
0115200 " ) ) \r ( S E T - D O C U M E
0115220 N T A T I O N A 0 9 1 1 A 0
0115240 9 1 2 A 0 9 1 3 ) ) \r ( S E T
0115260 Q % O N E D - A R R A Y 1 4
0115300 ) \r ( P U T H A S H ( Q U O T
0115320 E % O N E D - A R R A Y ) (
0115340 Q U O T E ( C O N S T A N T
0115360 % O N E D - A R R A Y ) ) C O
0115400 M P V A R M A C R O H A S H ) \r
0115420 ( L E T * ( ( A 0 9 1 4 ( Q
0115440 U O T E % O N E D - A R R A Y
0115460 ) ) ( A 0 9 1 5 ( Q U O T E
0115500 C L : V A R I A B L E ) ) (
0115520 A 0 9 1 6 " O N E D - A R R A
0115540 Y t y p e n u m b e r " ) )
0115560 ( \r S E T - D O C U M E N T A
0115600 T I O N A 0 9 1 4 A 0 9 1 5
0115620 A 0 9 1 6 ) ) \r ( S E T Q %
0115640 T W O D - A R R A Y 1 5 ) \r (
0115660 P U T H A S H ( Q U O T E %
0115700 T W O D - A R R A Y ) ( Q U O
0115720 T E ( C O N S T A N T % T W
0115740 O D - A R R A Y ) ) C O M P V
0115760 A R M A C R O H A S H ) \r ( L E
0116000 T * ( ( A 0 9 1 7 ( Q U O T
0116020 E % T W O D - A R R A Y ) )
0116040 ( A 0 9 1 8 ( Q U O T E C L
0116060 : V A R I A B L E ) ) ( A 0 9
0116100 1 9 " T W O D - A R R A Y t
0116120 y p e n u m b e r " ) ) ( \r
0116140 S E T - D O C U M E N T A T I O
0116160 N A 0 9 1 7 A 0 9 1 8 A 0
0116200 9 1 9 ) ) \r ( P U T P R O P S
0116220 C M L A R R A Y - S U P P O R T
0116240 F I L E T Y P E C L : C O M
0116260 P I L E - F I L E ) \r ( P U T P
0116300 R O P S C M L A R R A Y - S U
0116320 P P O R T C O P Y R I G H T
0116340 ( " X e r o x C o r p o r a t
0116360 i o n " 1 9 8 6 ) ) \r N I L \r
0116400