$ 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