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