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