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