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