$ od -c -N 50000 [eris]<LispCore>CML>MORGUE>CMLMACROS.DCOM!1
0000000 ( F I L E C R E A T E D " 1
0000020 - S e p - 8 5 2 1 : 0 7 : 4 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L M A C
0000120 R O S . ; 1 2 ) \r " 1 6 - A u
0000140 g - 8 5 0 6 : 2 0 : 2 6 " r
0000160 e c o m p i l e d c h a n g e
0000200 s : n o t h i n g i n " I
0000220 N T E R L I S P - D 1 6 - A u
0000240 g - 8 5 . . . " d a t e d
0000260 \r " 1 6 - A u g - 8 5 0 8 : 0
0000300 1 : 0 7 " ) \r ( F I L E C R E A
0000320 T E D " 1 - S e p - 8 5 2
0000340 1 : 0 6 : 1 0 " { E R I S } <
0000360 L I S P C O R E > L I B R A R Y
0000400 > C M L M A C R O S . ; 1 2 6
0000420 5 1 5 8 c h a n g e s t o :
0000440 ( M A C R O S S E T F \r )
0000460 ( V A R S C M L M A C R O S C
0000500 O M S ) ( P R O P S ( S C H
0000520 A R S E T F - I N V E R S E )
0000540 ) p r e v i o u s d a t e :
0000560 " 3 1 - A u g - 8 5 2 0 : 2
0000600 4 : 0 9 " \r { E R I S } < L I
0000620 S P C O R E > L I B R A R Y > C
0000640 M L M A C R O S . ; 9 ) \r D E F
0000660 C O N S T A N T D 1 \r ( P 1
0000700 V A L P 0 V A R I 0
0000720 $ F E X P R $ ) \0 7 002 \0 003 001
0000740 @ 001 @ 002 b \0 001 @ 002 b \0 277 021 002 001 I
0000760 \t \0 \0 Y H \t \0 \0 262 027 H \t \0 \0 I 364
0001000 263 024 o \0 \0 \0 o \0 \0 \0 H \v \0 \0 277 H
0001020 I \n \0 \0 H 020 \0 ( 6 3 Q S E T T
0001040 O P V A L 5 5 Q C E R R O R
0001060 3 5 Q G E T T O P V A L 2
0001100 7 Q B O U N D P 2 2 Q E V
0001120 A L ) \r N I L \r ( 5 1 Q " C
0001140 o n s t a n t ~ S b e i n g
0001160 r e d e f i n e d . " 4 5 Q
0001200 " G o a h e a d a n d c
0001220 h a n g e t h e v a l u e .
0001240 " ) \r G E T - S E T F - M E T H
0001260 O D D 1 \r ( L ( 0 F O R M
0001300 ) F 6 * I N - T H E - C O
0001320 M P I L E R * ) \0 300 006 001 \0 001 021
0001340 0 002 @ d 004 l 004 360 262 033 277 \b \0 \0 271 h
0001360 d I h 032 g \0 \0 @ I h 032 032 032 @ \r 005
0001400 \0 \0 020 \t \0 \0 230 o \0 \0 \0 @ \n \0 \0 020
0001420 @ 001 g \0 \0 \n \0 \0 X 262 6 \b \0 \0 021 !
0001440 005 @ 002 Z 003 263 ! M \t \0 \0 ] L M K h
0001460 032 H L K h 032 \n \0 \0 032 @ 001 L \t \0 \0
0001500 032 \r 005 \0 \0 020 \b \0 \0 L 032 274 J 260 325 @
0001520 001 g \0 \0 \n \0 \0 X 225 @ k H 017 016 020 g
0001540 \0 \0 \t \0 \0 262 037 V 262 034 @ \t \0 \0 001 d
0001560 @ 360 232 277 o \0 \0 \0 @ 001 \n \0 \0 020 b \0
0001600 023 261 377 ^ @ \t \0 \0 001 d @ 360 232 277 o \0
0001620 \0 \0 @ 001 \n \0 \0 020 b \0 023 261 377 D \0 (
0001640 2 6 7 Q C L : E R R O R 2 5
0001660 0 Q M A C R O E X P A N D - 1
0001700 2 3 5 Q C L : E R R O R 2
0001720 1 6 Q C O M P I L E R - M A C
0001740 R O E X P A N D - 1 2 0 5 Q
0001760 B O U N D P 1 6 7 Q G E T
0002000 1 5 1 Q G E N S Y M 1 4 5 Q
0002020 V A L U E S 1 4 0 Q \ A P
0002040 P E N D 2 1 3 1 Q \ A P P E
0002060 N D 2 1 1 3 Q N R E V E R S
0002100 E 7 6 Q G E N S Y M 7 0 Q
0002120 G E T 5 7 Q C L : E R R O
0002140 R 4 6 Q C L : A T O M 4 2
0002160 Q V A L U E S 1 6 Q G E N
0002200 S Y M ) \r ( 2 0 2 Q * I N - T
0002220 H E - C O M P I L E R * 1 6 4
0002240 Q S E T F - M E T H O D - E X
0002260 P A N D E R 6 5 Q S E T F -
0002300 I N V E R S E 2 7 Q S E T Q
0002320 ) \r ( 2 6 2 Q " ~ S i s
0002340 n o t a k n o w n l o c a
0002360 t i o n s p e c i f i e r f
0002400 o r S E T F . " 2 3 0 Q "
0002420 ~ S i s n o t a k n o w
0002440 n l o c a t i o n s p e c i
0002460 f i e r f o r S E T F . "
0002500 5 3 Q " ~ S i l l e g a l
0002520 a t o m i c f o r m f o r
0002540 G E T - S E T F - M E T H O D .
0002560 " ) \r C O M P I L E R - M A C R
0002600 O E X P A N D - 1 D 1 \r ( L
0002620 ( 0 F O R M ) F 0 * M A
0002640 C R O E X P A N D - H O O K * )
0002660 \0 / \0 001 \0 001 @ d 003 264 034 d 001 004 l
0002700 004 360 264 024 001 g \0 \0 \n \0 \0 265 017 @ 001 \t
0002720 \0 \0 265 \b @ h \n \0 \0 020 @ l 002 P 017 016
0002740 i \n \0 \0 020 \0 ( 5 4 Q V A L U E
0002760 S 4 1 Q V A L U E S 3 2 Q
0003000 M A C R O - F U N C T I O N
0003020 2 3 Q G E T ) \r ( 2 0 Q M A
0003040 C R O - I N - C O M P I L E R )
0003060 \r ( ) \r C O M P I L E R - M A C
0003100 R O E X P A N D D 1 \r ( L (
0003120 0 F O R M ) ) \0 017 \0 \0 \0 001 o
0003140 \0 \0 \0 \t \0 \0 277 @ h \n \0 \0 020 \0 ( 1
0003160 4 Q V A L U E S 6 M U L T
0003200 I P L E - V A L U E - S E T Q )
0003220 \r N I L \r ( 3 ( ( F O R M
0003240 F L A G ) ( C O M P I L E R -
0003260 M A C R O E X P A N D - 1 F O
0003300 R M ) ) ) \r G E T - S E T F - M
0003320 E T H O D - M U L T I P L E - V
0003340 A L U E D 1 \r ( L ( 0 F O
0003360 R M ) ) \0 006 \0 \0 \0 001 @ \t \0 \0 020
0003400 \0 ( 3 G E T - S E T F - M E T
0003420 H O D ) \r N I L \r ( ) \r D E F S
0003440 E T T E R D 1 \r ( L ( 1 R
0003460 E S T 0 F N ) ) \0 221 004 \0 \0
0003500 002 A 001 A 002 001 001 A 002 002 021 023 003 o \0 \0
0003520 \0 \t \0 \0 J d \t \0 \0 262 L 277 o \0 \0 \0
0003540 272 H o \0 \0 \0 @ g \0 \0 \f \0 \0 H 246 o
0003560 \0 \0 \0 K 032 273 g \0 \0 h \t \0 \0 K 264 \t
0003600 g \0 \0 K 032 h 032 h J \t \0 \0 \n \0 \0 \n
0003620 \0 \0 032 032 Z g \0 \0 g \0 \0 I h 032 032 J
0003640 h 032 032 032 020 001 \t \0 \0 263 031 J d 001 001 g
0003660 \0 \0 360 236 277 K J 001 002 \n \0 \0 273 J 002 Z
0003700 260 225 J 001 005 \a 262 233 J 002 262 227 J 002 Z 260
0003720 206 \0 ( 1 7 2 Q \ A P P E N D 2
0003740 1 4 7 Q C L : A T O M 1 2
0003760 0 Q \ A P P E N D 2 1 1 5 Q
0004000 \ A P P E N D 2 1 1 2 Q \
0004020 A P P E N D 2 7 3 Q N R E V
0004040 E R S E 5 3 Q A N A L Y Z E
0004060 1 2 7 Q C L : A T O M 2 2
0004100 Q C L : D E C L A R E ) \r ( 1
0004120 6 0 Q C L : D E C L A R E 1
0004140 3 1 Q \ A C C E S S - A R G L
0004160 I S T 1 2 6 Q C L : L A M B
0004200 D A 1 0 1 Q C L : D E C L A
0004220 R E 6 7 Q L E T * 5 0 Q
0004240 \ A C C E S S - A R G L I S T )
0004260 \r ( 6 1 Q ( I G N O R E \
0004300 A C C E S S - A R G L I S T )
0004320 4 4 Q ( C D R \ A C C E S S
0004340 - A R G L I S T ) 3 6 Q ( N
0004360 I L ) 1 7 Q ( ( S P E C I A
0004400 L \ A R G - C O U N T \ M I
0004420 N - A R G S \ R E S T P \ L
0004440 E T - L I S T \ K E Y W O R D
0004460 - T E S T S ) ) ) \r ( P R E T T
0004500 Y C O M P R I N T C M L M A C
0004520 R O S C O M S ) \r ( R P A Q Q
0004540 C M L M A C R O S C O M S ( (
0004560 * * M a i n l y S E T F
0004600 a n d f r i e n d s i n s
0004620 c t i o n 7 . 2 . T h e R
0004640 u t g e r s S E T F i s p
0004660 r e t t y g r o s s i n \r
0004700 t e r m s o f C O N S e s
0004720 i n t r o d u c e d i n t o
0004740 y o u r e n v i r o n m e n t
0004760 a n d j u s t g r o s s
0005000 i n g e n e r a l . I h a
0005020 v e n ' t d o n e a n y t h
0005040 i n g \r a b o u t i t . *
0005060 ) ( * * P U S H P U S H
0005100 N E W P O P a l r e a d y
0005120 i n I n t e r l i s p . * )
0005140 ( P R O P S ( C A R S E T
0005160 F - I N V E R S E ) ( C D R
0005200 \r S E T F - I N V E R S E ) (
0005220 C A A R S E T F - M E T H O D
0005240 - E X P A N D E R ) ( C A D R
0005260 S E T F - M E T H O D - E X P
0005300 A N D E R ) ( C D A R S E T
0005320 F - M E T H O D - E X P A N D E
0005340 R ) ( \r C D D R S E T F - M
0005360 E T H O D - E X P A N D E R )
0005400 ( C A A A R S E T F - M E T H
0005420 O D - E X P A N D E R ) ( C A
0005440 D A R S E T F - M E T H O D -
0005460 E X P A N D E R ) ( C D A A R
0005500 \r S E T F - M E T H O D - E X
0005520 P A N D E R ) ( C D D A R S
0005540 E T F - M E T H O D - E X P A N
0005560 D E R ) ( C A A D R S E T F
0005600 - M E T H O D - E X P A N D E R
0005620 ) ( C A D D R \r S E T F - M
0005640 E T H O D - E X P A N D E R )
0005660 ( C D A D R S E T F - M E T H
0005700 O D - E X P A N D E R ) ( C D
0005720 D D R S E T F - M E T H O D -
0005740 E X P A N D E R ) ( C A A A A
0005760 R \r S E T F - M E T H O D - E
0006000 X P A N D E R ) ( C A D A A R
0006020 S E T F - M E T H O D - E X P
0006040 A N D E R ) ( C D A A A R S
0006060 E T F - M E T H O D - E X P A N
0006100 D E R ) ( C D D A A R \r S E
0006120 T F - M E T H O D - E X P A N D
0006140 E R ) ( C A A D A R S E T F
0006160 - M E T H O D - E X P A N D E R
0006200 ) ( C A D D A R S E T F - M
0006220 E T H O D - E X P A N D E R )
0006240 ( C D A D A R \r S E T F - M E
0006260 T H O D - E X P A N D E R ) (
0006300 C D D D A R S E T F - M E T H
0006320 O D - E X P A N D E R ) ( C A
0006340 A A D R S E T F - M E T H O D
0006360 - E X P A N D E R ) ( C A D A
0006400 D R \r S E T F - M E T H O D -
0006420 E X P A N D E R ) ( C D A A D
0006440 R S E T F - M E T H O D - E X
0006460 P A N D E R ) ( C D D A D R
0006500 S E T F - M E T H O D - E X P A
0006520 N D E R ) ( C A A D D R \r S
0006540 E T F - M E T H O D - E X P A N
0006560 D E R ) ( C A D D D R S E T
0006600 F - M E T H O D - E X P A N D E
0006620 R ) ( C D A D D R S E T F -
0006640 M E T H O D - E X P A N D E R )
0006660 ( C D D D D R \r S E T F - M
0006700 E T H O D - E X P A N D E R )
0006720 ( C L : F I R S T S E T F - I
0006740 N V E R S E ) ( S E C O N D
0006760 S E T F - M E T H O D - E X P A
0007000 N D E R ) ( T H I R D \r S E
0007020 T F - M E T H O D - E X P A N D
0007040 E R ) ( F O U R T H S E T F
0007060 - M E T H O D - E X P A N D E R
0007100 ) ( F I F T H S E T F - M E
0007120 T H O D - E X P A N D E R ) (
0007140 S I X T H \r S E T F - M E T H
0007160 O D - E X P A N D E R ) ( S E
0007200 V E N T H S E T F - M E T H O
0007220 D - E X P A N D E R ) ( E I G
0007240 H T H S E T F - M E T H O D -
0007260 E X P A N D E R ) ( N I N T H
0007300 \r S E T F - M E T H O D - E X
0007320 P A N D E R ) ( T E N T H S
0007340 E T F - M E T H O D - E X P A N
0007360 D E R ) ( R E S T S E T F -
0007400 I N V E R S E ) ( C L : E L T
0007420 S E T F - I N V E R S E ) (
0007440 A R E F \r S E T F - M E T H O
0007460 D - E X P A N D E R ) ( S V R
0007500 E F S E T F - I N V E R S E )
0007520 ( C H A R S E T F - I N V E
0007540 R S E ) ( B I T S E T F - I
0007560 N V E R S E ) ( S C H A R S
0007600 E T F - I N V E R S E ) \r ( S
0007620 B I T S E T F - I N V E R S E
0007640 ) ( S Y M B O L - V A L U E
0007660 S E T F - I N V E R S E ) ( S
0007700 Y M B O L - F U N C T I O N S
0007720 E T F - I N V E R S E ) ( S Y
0007740 M B O L - P L I S T \r S E T F
0007760 - I N V E R S E ) ( D O C U M
0010000 E N T A T I O N S E T F - I N
0010020 V E R S E ) ( C L : N T H S
0010040 E T F - I N V E R S E ) ( \ S
0010060 P - S V R E F S E T F - I N V
0010100 E R S E ) ( \ S P - S C H A R
0010120 \r S E T F - I N V E R S E )
0010140 ( \ S P - S B I T S E T F - I
0010160 N V E R S E ) ( \ S P - S A R
0010200 E F 1 S E T F - I N V E R S E
0010220 ) ( \ S P - C V R E F S E T
0010240 F - I N V E R S E ) ( \ S P -
0010260 C C H A R \r S E T F - I N V E
0010300 R S E ) ( \ S P - C B I T S
0010320 E T F - I N V E R S E ) ( \ S
0010340 P - C A R E F 1 S E T F - I N
0010360 V E R S E ) ( F I L L - P O I
0010400 N T E R S E T F - I N V E R S
0010420 E ) ( \r M A C R O - F U N C T
0010440 I O N S E T F - M E T H O D -
0010460 E X P A N D E R ) ( S U B S E
0010500 Q S E T F - M E T H O D - E X
0010520 P A N D E R ) ( G E T F S E
0010540 T F - M E T H O D - E X P A N D
0010560 E R ) ( G E T \r S E T F - M
0010600 E T H O D - E X P A N D E R )
0010620 ( G E T H A S H S E T F - M E
0010640 T H O D - E X P A N D E R ) (
0010660 C L : A P P L Y S E T F - M E
0010700 T H O D - E X P A N D E R ) (
0010720 L D B \r S E T F - M E T H O D
0010740 - E X P A N D E R ) ( M A S K
0010760 - F I E L D S E T F - M E T H
0011000 O D - E X P A N D E R ) ( C H
0011020 A R - B I T S E T F - M E T H
0011040 O D - E X P A N D E R ) ( T H
0011060 E \r S E T F - M E T H O D - E
0011100 X P A N D E R ) ) ( P ( M O
0011120 V D ( Q U O T E R P A Q ? )
0011140 ( Q U O T E D E F V A R ) )
0011160 ( M O V D ( Q U O T E R P
0011200 A Q ) ( Q U O T E D E F P A
0011220 R A M E T E R ) ) \r ) ( F N S
0011240 D E F C O N S T A N T ) ( M
0011260 A C R O S C L : W H E N C L
0011300 : U N L E S S D E F I N E - S
0011320 E T F - M E T H O D D E F S E
0011340 T F S E T F P S E T F S H
0011360 I F T F R O T A T E F \r D E
0011400 F I N E - M O D I F Y - M A C R
0011420 O P U T F R E M F C A S E
0011440 T Y P E C A S E E C A S E
0011460 E T Y P E C A S E W I T H - O
0011500 P E N - F I L E W I T H - O P
0011520 E N - S T R E A M \r W I T H -
0011540 I N P U T - F R O M - S T R I N
0011560 G W I T H - O U T P U T - T O
0011600 - S T R I N G L O C A L L Y
0011620 L O O P I N C F D E C F )
0011640 ( F N S G E T - S E T F - M E
0011660 T H O D \r C O M P I L E R - M
0011700 A C R O E X P A N D - 1 C O M
0011720 P I L E R - M A C R O E X P A N
0011740 D G E T - S E T F - M E T H O
0011760 D - M U L T I P L E - V A L U E
0012000 D E F S E T T E R ) ( D E C
0012020 L A R E : \r D O N T E V A L @
0012040 L O A D D O E V A L @ C O M P
0012060 I L E D O N T C O P Y C O M
0012100 P I L E R V A R S ( A D D V A
0012120 R S ( N L A M A D E F C O N
0012140 S T A N T ) ( N L A M L ) (
0012160 L A M A ) ) ) ) ) \r ( P U T P R
0012200 O P S C A R S E T F - I N V
0012220 E R S E R P L A C A ) \r ( P U
0012240 T P R O P S C D R S E T F -
0012260 I N V E R S E R P L A C D ) \r
0012300 ( P U T P R O P S C A A R S
0012320 E T F - M E T H O D - E X P A N
0012340 D E R ( C L : L A M B D A (
0012360 A C C E S S - F O R M ) ( D O
0012400 * ( ( A R G S ( C D R A C
0012420 C E S S - F O R M ) ( C D R
0012440 A R G S ) ) \r ( D U M M I E S
0012460 N I L ( C O N S ( G E N S
0012500 Y M ) D U M M I E S ) ) ( N
0012520 E W V A L - V A R ( G E N S Y
0012540 M ) ) ( N E W - A C C E S S -
0012560 F O R M N I L ) ) ( ( C L :
0012600 A T O M A R G S ) ( \r S E T
0012620 Q N E W - A C C E S S - F O R
0012640 M ( C O N S ( C A R A C C
0012660 E S S - F O R M ) D U M M I E
0012700 S ) ) ( V A L U E S D U M M
0012720 I E S ( C D R A C C E S S -
0012740 F O R M ) ( L I S T \r N E W
0012760 V A L - V A R ) ( F U N C A L
0013000 L ( F U N C T I O N ( C L :
0013020 L A M B D A ( \ A C C E S S -
0013040 A R G L I S T V ) ( L E T *
0013060 ( ( X ( C A R ( C D R \
0013100 A C C E S S - A R G L I S T ) )
0013120 ) ) \r ( B Q U O T E ( R P L
0013140 A C A ( C A R ( \ , X ) )
0013160 ( \ , V ) ) ) ) ) ) N E W
0013200 - A C C E S S - F O R M N E W
0013220 V A L - V A R ) N E W - A C C
0013240 E S S - F O R M ) ) ) ) ) \r ( P
0013260 U T P R O P S C A D R S E T
0013300 F - M E T H O D - E X P A N D E
0013320 R ( C L : L A M B D A ( A C
0013340 C E S S - F O R M ) ( D O *
0013360 ( ( A R G S ( C D R A C C E
0013400 S S - F O R M ) ( C D R A R
0013420 G S ) ) \r ( D U M M I E S N
0013440 I L ( C O N S ( G E N S Y M
0013460 ) D U M M I E S ) ) ( N E W
0013500 V A L - V A R ( G E N S Y M )
0013520 ) ( N E W - A C C E S S - F O
0013540 R M N I L ) ) ( ( C L : A T
0013560 O M A R G S ) ( \r S E T Q
0013600 N E W - A C C E S S - F O R M
0013620 ( C O N S ( C A R A C C E S
0013640 S - F O R M ) D U M M I E S )
0013660 ) ( V A L U E S D U M M I E
0013700 S ( C D R A C C E S S - F O
0013720 R M ) ( L I S T \r N E W V A
0013740 L - V A R ) ( F U N C A L L
0013760 ( F U N C T I O N ( C L : L A
0014000 M B D A ( \ A C C E S S - A R
0014020 G L I S T V ) ( L E T * (
0014040 ( X ( C A R ( C D R \ A C
0014060 C E S S - A R G L I S T ) ) ) )
0014100 \r ( B Q U O T E ( R P L A C
0014120 A ( C D R ( \ , X ) ) (
0014140 \ , V ) ) ) ) ) ) N E W - A
0014160 C C E S S - F O R M N E W V A
0014200 L - V A R ) N E W - A C C E S
0014220 S - F O R M ) ) ) ) ) \r ( P U T
0014240 P R O P S C D A R S E T F -
0014260 M E T H O D - E X P A N D E R
0014300 ( C L : L A M B D A ( A C C E
0014320 S S - F O R M ) ( D O * ( (
0014340 A R G S ( C D R A C C E S S
0014360 - F O R M ) ( C D R A R G S
0014400 ) ) \r ( D U M M I E S N I L
0014420 ( C O N S ( G E N S Y M )
0014440 D U M M I E S ) ) ( N E W V A
0014460 L - V A R ( G E N S Y M ) )
0014500 ( N E W - A C C E S S - F O R M
0014520 N I L ) ) ( ( C L : A T O M
0014540 A R G S ) ( \r S E T Q N E
0014560 W - A C C E S S - F O R M ( C
0014600 O N S ( C A R A C C E S S -
0014620 F O R M ) D U M M I E S ) )
0014640 ( V A L U E S D U M M I E S
0014660 ( C D R A C C E S S - F O R M
0014700 ) ( L I S T \r N E W V A L -
0014720 V A R ) ( F U N C A L L ( F
0014740 U N C T I O N ( C L : L A M B
0014760 D A ( \ A C C E S S - A R G L
0015000 I S T V ) ( L E T * ( ( X
0015020 ( C A R ( C D R \ A C C E
0015040 S S - A R G L I S T ) ) ) ) \r
0015060 ( B Q U O T E ( R P L A C D
0015100 ( C A R ( \ , X ) ) ( \ ,
0015120 V ) ) ) ) ) ) N E W - A C C
0015140 E S S - F O R M N E W V A L -
0015160 V A R ) N E W - A C C E S S -
0015200 F O R M ) ) ) ) ) \r ( P U T P R
0015220 O P S C D D R S E T F - M E
0015240 T H O D - E X P A N D E R ( C
0015260 L : L A M B D A ( A C C E S S
0015300 - F O R M ) ( D O * ( ( A R
0015320 G S ( C D R A C C E S S - F
0015340 O R M ) ( C D R A R G S ) )
0015360 \r ( D U M M I E S N I L (
0015400 C O N S ( G E N S Y M ) D U
0015420 M M I E S ) ) ( N E W V A L -
0015440 V A R ( G E N S Y M ) ) ( N
0015460 E W - A C C E S S - F O R M N
0015500 I L ) ) ( ( C L : A T O M A
0015520 R G S ) ( \r S E T Q N E W -
0015540 A C C E S S - F O R M ( C O N
0015560 S ( C A R A C C E S S - F O
0015600 R M ) D U M M I E S ) ) ( V
0015620 A L U E S D U M M I E S ( C
0015640 D R A C C E S S - F O R M )
0015660 ( L I S T \r N E W V A L - V A
0015700 R ) ( F U N C A L L ( F U N
0015720 C T I O N ( C L : L A M B D A
0015740 ( \ A C C E S S - A R G L I S
0015760 T V ) ( L E T * ( ( X (
0016000 C A R ( C D R \ A C C E S S
0016020 - A R G L I S T ) ) ) ) \r ( B
0016040 Q U O T E ( R P L A C D ( C
0016060 D R ( \ , X ) ) ( \ , V
0016100 ) ) ) ) ) ) N E W - A C C E S
0016120 S - F O R M N E W V A L - V A
0016140 R ) N E W - A C C E S S - F O
0016160 R M ) ) ) ) ) \r ( P U T P R O P
0016200 S C A A A R S E T F - M E T
0016220 H O D - E X P A N D E R ( C L
0016240 : L A M B D A ( A C C E S S -
0016260 F O R M ) ( D O * ( ( A R G
0016300 S ( C D R A C C E S S - F O
0016320 R M ) ( C D R A R G S ) \r )
0016340 ( D U M M I E S N I L ( C
0016360 O N S ( G E N S Y M ) D U M
0016400 M I E S ) ) ( N E W V A L - V
0016420 A R ( G E N S Y M ) ) ( N E
0016440 W - A C C E S S - F O R M N I
0016460 L ) ) ( ( C L : A T O M A R
0016500 G S ) ( \r S E T Q N E W - A
0016520 C C E S S - F O R M ( C O N S
0016540 ( C A R A C C E S S - F O R
0016560 M ) D U M M I E S ) ) ( V A
0016600 L U E S D U M M I E S ( C D
0016620 R A C C E S S - F O R M ) (
0016640 L I S T \r N E W V A L - V A R
0016660 ) ( F U N C A L L ( F U N C
0016700 T I O N ( C L : L A M B D A
0016720 ( \ A C C E S S - A R G L I S T
0016740 V ) ( L E T * ( ( X ( C
0016760 A R ( C D R \ A C C E S S -
0017000 A R G L I S T ) ) ) ) \r ( B Q
0017020 U O T E ( R P L A C A ( C A
0017040 A R ( \ , X ) ) ( \ , V
0017060 ) ) ) ) ) ) N E W - A C C E S
0017100 S - F O R M N E W V A L - V A
0017120 R ) N E W - A C C E S S - F O
0017140 R M ) ) ) ) ) \r ( P U T P R O P
0017160 S C A D A R S E T F - M E T
0017200 H O D - E X P A N D E R ( C L
0017220 : L A M B D A ( A C C E S S -
0017240 F O R M ) ( D O * ( ( A R G
0017260 S ( C D R A C C E S S - F O
0017300 R M ) ( C D R A R G S ) \r )
0017320 ( D U M M I E S N I L ( C
0017340 O N S ( G E N S Y M ) D U M
0017360 M I E S ) ) ( N E W V A L - V
0017400 A R ( G E N S Y M ) ) ( N E
0017420 W - A C C E S S - F O R M N I
0017440 L ) ) ( ( C L : A T O M A R
0017460 G S ) ( \r S E T Q N E W - A
0017500 C C E S S - F O R M ( C O N S
0017520 ( C A R A C C E S S - F O R
0017540 M ) D U M M I E S ) ) ( V A
0017560 L U E S D U M M I E S ( C D
0017600 R A C C E S S - F O R M ) (
0017620 L I S T \r N E W V A L - V A R
0017640 ) ( F U N C A L L ( F U N C
0017660 T I O N ( C L : L A M B D A
0017700 ( \ A C C E S S - A R G L I S T
0017720 V ) ( L E T * ( ( X ( C
0017740 A R ( C D R \ A C C E S S -
0017760 A R G L I S T ) ) ) ) \r ( B Q
0020000 U O T E ( R P L A C A ( C D
0020020 A R ( \ , X ) ) ( \ , V
0020040 ) ) ) ) ) ) N E W - A C C E S
0020060 S - F O R M N E W V A L - V A
0020100 R ) N E W - A C C E S S - F O
0020120 R M ) ) ) ) ) \r ( P U T P R O P
0020140 S C D A A R S E T F - M E T
0020160 H O D - E X P A N D E R ( C L
0020200 : L A M B D A ( A C C E S S -
0020220 F O R M ) ( D O * ( ( A R G
0020240 S ( C D R A C C E S S - F O
0020260 R M ) ( C D R A R G S ) \r )
0020300 ( D U M M I E S N I L ( C
0020320 O N S ( G E N S Y M ) D U M
0020340 M I E S ) ) ( N E W V A L - V
0020360 A R ( G E N S Y M ) ) ( N E
0020400 W - A C C E S S - F O R M N I
0020420 L ) ) ( ( C L : A T O M A R
0020440 G S ) ( \r S E T Q N E W - A
0020460 C C E S S - F O R M ( C O N S
0020500 ( C A R A C C E S S - F O R
0020520 M ) D U M M I E S ) ) ( V A
0020540 L U E S D U M M I E S ( C D
0020560 R A C C E S S - F O R M ) (
0020600 L I S T \r N E W V A L - V A R
0020620 ) ( F U N C A L L ( F U N C
0020640 T I O N ( C L : L A M B D A
0020660 ( \ A C C E S S - A R G L I S T
0020700 V ) ( L E T * ( ( X ( C
0020720 A R ( C D R \ A C C E S S -
0020740 A R G L I S T ) ) ) ) \r ( B Q
0020760 U O T E ( R P L A C D ( C A
0021000 A R ( \ , X ) ) ( \ , V
0021020 ) ) ) ) ) ) N E W - A C C E S
0021040 S - F O R M N E W V A L - V A
0021060 R ) N E W - A C C E S S - F O
0021100 R M ) ) ) ) ) \r ( P U T P R O P
0021120 S C D D A R S E T F - M E T
0021140 H O D - E X P A N D E R ( C L
0021160 : L A M B D A ( A C C E S S -
0021200 F O R M ) ( D O * ( ( A R G
0021220 S ( C D R A C C E S S - F O
0021240 R M ) ( C D R A R G S ) \r )
0021260 ( D U M M I E S N I L ( C
0021300 O N S ( G E N S Y M ) D U M
0021320 M I E S ) ) ( N E W V A L - V
0021340 A R ( G E N S Y M ) ) ( N E
0021360 W - A C C E S S - F O R M N I
0021400 L ) ) ( ( C L : A T O M A R
0021420 G S ) ( \r S E T Q N E W - A
0021440 C C E S S - F O R M ( C O N S
0021460 ( C A R A C C E S S - F O R
0021500 M ) D U M M I E S ) ) ( V A
0021520 L U E S D U M M I E S ( C D
0021540 R A C C E S S - F O R M ) (
0021560 L I S T \r N E W V A L - V A R
0021600 ) ( F U N C A L L ( F U N C
0021620 T I O N ( C L : L A M B D A
0021640 ( \ A C C E S S - A R G L I S T
0021660 V ) ( L E T * ( ( X ( C
0021700 A R ( C D R \ A C C E S S -
0021720 A R G L I S T ) ) ) ) \r ( B Q
0021740 U O T E ( R P L A C D ( C D
0021760 A R ( \ , X ) ) ( \ , V
0022000 ) ) ) ) ) ) N E W - A C C E S
0022020 S - F O R M N E W V A L - V A
0022040 R ) N E W - A C C E S S - F O
0022060 R M ) ) ) ) ) \r ( P U T P R O P
0022100 S C A A D R S E T F - M E T
0022120 H O D - E X P A N D E R ( C L
0022140 : L A M B D A ( A C C E S S -
0022160 F O R M ) ( D O * ( ( A R G
0022200 S ( C D R A C C E S S - F O
0022220 R M ) ( C D R A R G S ) \r )
0022240 ( D U M M I E S N I L ( C
0022260 O N S ( G E N S Y M ) D U M
0022300 M I E S ) ) ( N E W V A L - V
0022320 A R ( G E N S Y M ) ) ( N E
0022340 W - A C C E S S - F O R M N I
0022360 L ) ) ( ( C L : A T O M A R
0022400 G S ) ( \r S E T Q N E W - A
0022420 C C E S S - F O R M ( C O N S
0022440 ( C A R A C C E S S - F O R
0022460 M ) D U M M I E S ) ) ( V A
0022500 L U E S D U M M I E S ( C D
0022520 R A C C E S S - F O R M ) (
0022540 L I S T \r N E W V A L - V A R
0022560 ) ( F U N C A L L ( F U N C
0022600 T I O N ( C L : L A M B D A
0022620 ( \ A C C E S S - A R G L I S T
0022640 V ) ( L E T * ( ( X ( C
0022660 A R ( C D R \ A C C E S S -
0022700 A R G L I S T ) ) ) ) \r ( B Q
0022720 U O T E ( R P L A C A ( C A
0022740 D R ( \ , X ) ) ( \ , V
0022760 ) ) ) ) ) ) N E W - A C C E S
0023000 S - F O R M N E W V A L - V A
0023020 R ) N E W - A C C E S S - F O
0023040 R M ) ) ) ) ) \r ( P U T P R O P
0023060 S C A D D R S E T F - M E T
0023100 H O D - E X P A N D E R ( C L
0023120 : L A M B D A ( A C C E S S -
0023140 F O R M ) ( D O * ( ( A R G
0023160 S ( C D R A C C E S S - F O
0023200 R M ) ( C D R A R G S ) \r )
0023220 ( D U M M I E S N I L ( C
0023240 O N S ( G E N S Y M ) D U M
0023260 M I E S ) ) ( N E W V A L - V
0023300 A R ( G E N S Y M ) ) ( N E
0023320 W - A C C E S S - F O R M N I
0023340 L ) ) ( ( C L : A T O M A R
0023360 G S ) ( \r S E T Q N E W - A
0023400 C C E S S - F O R M ( C O N S
0023420 ( C A R A C C E S S - F O R
0023440 M ) D U M M I E S ) ) ( V A
0023460 L U E S D U M M I E S ( C D
0023500 R A C C E S S - F O R M ) (
0023520 L I S T \r N E W V A L - V A R
0023540 ) ( F U N C A L L ( F U N C
0023560 T I O N ( C L : L A M B D A
0023600 ( \ A C C E S S - A R G L I S T
0023620 V ) ( L E T * ( ( X ( C
0023640 A R ( C D R \ A C C E S S -
0023660 A R G L I S T ) ) ) ) \r ( B Q
0023700 U O T E ( R P L A C A ( C D
0023720 D R ( \ , X ) ) ( \ , V
0023740 ) ) ) ) ) ) N E W - A C C E S
0023760 S - F O R M N E W V A L - V A
0024000 R ) N E W - A C C E S S - F O
0024020 R M ) ) ) ) ) \r ( P U T P R O P
0024040 S C D A D R S E T F - M E T
0024060 H O D - E X P A N D E R ( C L
0024100 : L A M B D A ( A C C E S S -
0024120 F O R M ) ( D O * ( ( A R G
0024140 S ( C D R A C C E S S - F O
0024160 R M ) ( C D R A R G S ) \r )
0024200 ( D U M M I E S N I L ( C
0024220 O N S ( G E N S Y M ) D U M
0024240 M I E S ) ) ( N E W V A L - V
0024260 A R ( G E N S Y M ) ) ( N E
0024300 W - A C C E S S - F O R M N I
0024320 L ) ) ( ( C L : A T O M A R
0024340 G S ) ( \r S E T Q N E W - A
0024360 C C E S S - F O R M ( C O N S
0024400 ( C A R A C C E S S - F O R
0024420 M ) D U M M I E S ) ) ( V A
0024440 L U E S D U M M I E S ( C D
0024460 R A C C E S S - F O R M ) (
0024500 L I S T \r N E W V A L - V A R
0024520 ) ( F U N C A L L ( F U N C
0024540 T I O N ( C L : L A M B D A
0024560 ( \ A C C E S S - A R G L I S T
0024600 V ) ( L E T * ( ( X ( C
0024620 A R ( C D R \ A C C E S S -
0024640 A R G L I S T ) ) ) ) \r ( B Q
0024660 U O T E ( R P L A C D ( C A
0024700 D R ( \ , X ) ) ( \ , V
0024720 ) ) ) ) ) ) N E W - A C C E S
0024740 S - F O R M N E W V A L - V A
0024760 R ) N E W - A C C E S S - F O
0025000 R M ) ) ) ) ) \r ( P U T P R O P
0025020 S C D D D R S E T F - M E T
0025040 H O D - E X P A N D E R ( C L
0025060 : L A M B D A ( A C C E S S -
0025100 F O R M ) ( D O * ( ( A R G
0025120 S ( C D R A C C E S S - F O
0025140 R M ) ( C D R A R G S ) \r )
0025160 ( D U M M I E S N I L ( C
0025200 O N S ( G E N S Y M ) D U M
0025220 M I E S ) ) ( N E W V A L - V
0025240 A R ( G E N S Y M ) ) ( N E
0025260 W - A C C E S S - F O R M N I
0025300 L ) ) ( ( C L : A T O M A R
0025320 G S ) ( \r S E T Q N E W - A
0025340 C C E S S - F O R M ( C O N S
0025360 ( C A R A C C E S S - F O R
0025400 M ) D U M M I E S ) ) ( V A
0025420 L U E S D U M M I E S ( C D
0025440 R A C C E S S - F O R M ) (
0025460 L I S T \r N E W V A L - V A R
0025500 ) ( F U N C A L L ( F U N C
0025520 T I O N ( C L : L A M B D A
0025540 ( \ A C C E S S - A R G L I S T
0025560 V ) ( L E T * ( ( X ( C
0025600 A R ( C D R \ A C C E S S -
0025620 A R G L I S T ) ) ) ) \r ( B Q
0025640 U O T E ( R P L A C D ( C D
0025660 D R ( \ , X ) ) ( \ , V
0025700 ) ) ) ) ) ) N E W - A C C E S
0025720 S - F O R M N E W V A L - V A
0025740 R ) N E W - A C C E S S - F O
0025760 R M ) ) ) ) ) \r ( P U T P R O P
0026000 S C A A A A R S E T F - M E
0026020 T H O D - E X P A N D E R ( C
0026040 L : L A M B D A ( A C C E S S
0026060 - F O R M ) ( D O * ( ( A R
0026100 G S ( C D R A C C E S S - F
0026120 O R M ) ( C D R A R G S \r )
0026140 ) ( D U M M I E S N I L (
0026160 C O N S ( G E N S Y M ) D U
0026200 M M I E S ) ) ( N E W V A L -
0026220 V A R ( G E N S Y M ) ) ( N
0026240 E W - A C C E S S - F O R M N
0026260 I L ) ) ( ( C L : A T O M A
0026300 R G S ) \r ( S E T Q N E W -
0026320 A C C E S S - F O R M ( C O N
0026340 S ( C A R A C C E S S - F O
0026360 R M ) D U M M I E S ) ) ( V
0026400 A L U E S D U M M I E S ( C
0026420 D R A C C E S S - F O R M )
0026440 ( L I S T \r N E W V A L - V A
0026460 R ) ( F U N C A L L ( F U N
0026500 C T I O N ( C L : L A M B D A
0026520 ( \ A C C E S S - A R G L I S
0026540 T V ) ( L E T * ( ( X (
0026560 C A R ( C D R \ A C C E S S
0026600 - A R G L I S T ) ) ) ) \r ( B
0026620 Q U O T E ( R P L A C A ( C
0026640 A A A R ( \ , X ) ) ( \ ,
0026660 V ) ) ) ) ) ) N E W - A C C
0026700 E S S - F O R M N E W V A L -
0026720 V A R ) N E W - A C C E S S -
0026740 F O R M ) ) ) ) ) \r ( P U T P R
0026760 O P S C A D A A R S E T F -
0027000 M E T H O D - E X P A N D E R
0027020 ( C L : L A M B D A ( A C C E
0027040 S S - F O R M ) ( D O * ( (
0027060 A R G S ( C D R A C C E S S
0027100 - F O R M ) ( C D R A R G S
0027120 \r ) ) ( D U M M I E S N I L
0027140 ( C O N S ( G E N S Y M )
0027160 D U M M I E S ) ) ( N E W V A
0027200 L - V A R ( G E N S Y M ) )
0027220 ( N E W - A C C E S S - F O R M
0027240 N I L ) ) ( ( C L : A T O M
0027260 A R G S ) \r ( S E T Q N E
0027300 W - A C C E S S - F O R M ( C
0027320 O N S ( C A R A C C E S S -
0027340 F O R M ) D U M M I E S ) )
0027360 ( V A L U E S D U M M I E S
0027400 ( C D R A C C E S S - F O R M
0027420 ) ( L I S T \r N E W V A L -
0027440 V A R ) ( F U N C A L L ( F
0027460 U N C T I O N ( C L : L A M B
0027500 D A ( \ A C C E S S - A R G L
0027520 I S T V ) ( L E T * ( ( X
0027540 ( C A R ( C D R \ A C C E
0027560 S S - A R G L I S T ) ) ) ) \r
0027600 ( B Q U O T E ( R P L A C A
0027620 ( C D A A R ( \ , X ) ) (
0027640 \ , V ) ) ) ) ) ) N E W - A
0027660 C C E S S - F O R M N E W V A
0027700 L - V A R ) N E W - A C C E S
0027720 S - F O R M ) ) ) ) ) \r ( P U T
0027740 P R O P S C D A A A R S E T
0027760 F - M E T H O D - E X P A N D E
0030000 R ( C L : L A M B D A ( A C
0030020 C E S S - F O R M ) ( D O *
0030040 ( ( A R G S ( C D R A C C E
0030060 S S - F O R M ) ( C D R A R
0030100 G S \r ) ) ( D U M M I E S N
0030120 I L ( C O N S ( G E N S Y M
0030140 ) D U M M I E S ) ) ( N E W
0030160 V A L - V A R ( G E N S Y M )
0030200 ) ( N E W - A C C E S S - F O
0030220 R M N I L ) ) ( ( C L : A T
0030240 O M A R G S ) \r ( S E T Q
0030260 N E W - A C C E S S - F O R M
0030300 ( C O N S ( C A R A C C E S
0030320 S - F O R M ) D U M M I E S )
0030340 ) ( V A L U E S D U M M I E
0030360 S ( C D R A C C E S S - F O
0030400 R M ) ( L I S T \r N E W V A
0030420 L - V A R ) ( F U N C A L L
0030440 ( F U N C T I O N ( C L : L A
0030460 M B D A ( \ A C C E S S - A R
0030500 G L I S T V ) ( L E T * (
0030520 ( X ( C A R ( C D R \ A C
0030540 C E S S - A R G L I S T ) ) ) )
0030560 \r ( B Q U O T E ( R P L A C
0030600 D ( C A A A R ( \ , X ) )
0030620 ( \ , V ) ) ) ) ) ) N E W
0030640 - A C C E S S - F O R M N E W
0030660 V A L - V A R ) N E W - A C C
0030700 E S S - F O R M ) ) ) ) ) \r ( P
0030720 U T P R O P S C D D A A R S
0030740 E T F - M E T H O D - E X P A N
0030760 D E R ( C L : L A M B D A (
0031000 A C C E S S - F O R M ) ( D O
0031020 * ( ( A R G S ( C D R A C
0031040 C E S S - F O R M ) ( C D R
0031060 A R G S \r ) ) ( D U M M I E S
0031100 N I L ( C O N S ( G E N S
0031120 Y M ) D U M M I E S ) ) ( N
0031140 E W V A L - V A R ( G E N S Y
0031160 M ) ) ( N E W - A C C E S S -
0031200 F O R M N I L ) ) ( ( C L :
0031220 A T O M A R G S ) \r ( S E T
0031240 Q N E W - A C C E S S - F O R
0031260 M ( C O N S ( C A R A C C
0031300 E S S - F O R M ) D U M M I E
0031320 S ) ) ( V A L U E S D U M M
0031340 I E S ( C D R A C C E S S -
0031360 F O R M ) ( L I S T \r N E W
0031400 V A L - V A R ) ( F U N C A L
0031420 L ( F U N C T I O N ( C L :
0031440 L A M B D A ( \ A C C E S S -
0031460 A R G L I S T V ) ( L E T *
0031500 ( ( X ( C A R ( C D R \
0031520 A C C E S S - A R G L I S T ) )
0031540 ) ) \r ( B Q U O T E ( R P L
0031560 A C D ( C D A A R ( \ , X
0031600 ) ) ( \ , V ) ) ) ) ) ) N
0031620 E W - A C C E S S - F O R M N
0031640 E W V A L - V A R ) N E W - A
0031660 C C E S S - F O R M ) ) ) ) ) \r
0031700 ( P U T P R O P S C A A D A R
0031720 S E T F - M E T H O D - E X P
0031740 A N D E R ( C L : L A M B D A
0031760 ( A C C E S S - F O R M ) (
0032000 D O * ( ( A R G S ( C D R
0032020 A C C E S S - F O R M ) ( C D
0032040 R A R G S \r ) ) ( D U M M I
0032060 E S N I L ( C O N S ( G E
0032100 N S Y M ) D U M M I E S ) )
0032120 ( N E W V A L - V A R ( G E N
0032140 S Y M ) ) ( N E W - A C C E S
0032160 S - F O R M N I L ) ) ( ( C
0032200 L : A T O M A R G S ) \r ( S
0032220 E T Q N E W - A C C E S S - F
0032240 O R M ( C O N S ( C A R A
0032260 C C E S S - F O R M ) D U M M
0032300 I E S ) ) ( V A L U E S D U
0032320 M M I E S ( C D R A C C E S
0032340 S - F O R M ) ( L I S T \r N
0032360 E W V A L - V A R ) ( F U N C
0032400 A L L ( F U N C T I O N ( C
0032420 L : L A M B D A ( \ A C C E S
0032440 S - A R G L I S T V ) ( L E
0032460 T * ( ( X ( C A R ( C D R
0032500 \ A C C E S S - A R G L I S T
0032520 ) ) ) ) \r ( B Q U O T E ( R
0032540 P L A C A ( C A D A R ( \ ,
0032560 X ) ) ( \ , V ) ) ) ) ) )
0032600 N E W - A C C E S S - F O R M
0032620 N E W V A L - V A R ) N E W
0032640 - A C C E S S - F O R M ) ) ) )
0032660 ) \r ( P U T P R O P S C A D D
0032700 A R S E T F - M E T H O D - E
0032720 X P A N D E R ( C L : L A M B
0032740 D A ( A C C E S S - F O R M )
0032760 ( D O * ( ( A R G S ( C D
0033000 R A C C E S S - F O R M ) (
0033020 C D R A R G S \r ) ) ( D U M
0033040 M I E S N I L ( C O N S (
0033060 G E N S Y M ) D U M M I E S )
0033100 ) ( N E W V A L - V A R ( G
0033120 E N S Y M ) ) ( N E W - A C C
0033140 E S S - F O R M N I L ) ) (
0033160 ( C L : A T O M A R G S ) \r
0033200 ( S E T Q N E W - A C C E S S
0033220 - F O R M ( C O N S ( C A R
0033240 A C C E S S - F O R M ) D U
0033260 M M I E S ) ) ( V A L U E S
0033300 D U M M I E S ( C D R A C C
0033320 E S S - F O R M ) ( L I S T
0033340 \r N E W V A L - V A R ) ( F U
0033360 N C A L L ( F U N C T I O N
0033400 ( C L : L A M B D A ( \ A C C
0033420 E S S - A R G L I S T V ) (
0033440 L E T * ( ( X ( C A R ( C
0033460 D R \ A C C E S S - A R G L I
0033500 S T ) ) ) ) \r ( B Q U O T E
0033520 ( R P L A C A ( C D D A R (
0033540 \ , X ) ) ( \ , V ) ) ) )
0033560 ) ) N E W - A C C E S S - F O
0033600 R M N E W V A L - V A R ) N
0033620 E W - A C C E S S - F O R M ) )
0033640 ) ) ) \r ( P U T P R O P S C D
0033660 A D A R S E T F - M E T H O D
0033700 - E X P A N D E R ( C L : L A
0033720 M B D A ( A C C E S S - F O R
0033740 M ) ( D O * ( ( A R G S (
0033760 C D R A C C E S S - F O R M )
0034000 ( C D R A R G S \r ) ) ( D
0034020 U M M I E S N I L ( C O N S
0034040 ( G E N S Y M ) D U M M I E
0034060 S ) ) ( N E W V A L - V A R
0034100 ( G E N S Y M ) ) ( N E W - A
0034120 C C E S S - F O R M N I L ) )
0034140 ( ( C L : A T O M A R G S )
0034160 \r ( S E T Q N E W - A C C E
0034200 S S - F O R M ( C O N S ( C
0034220 A R A C C E S S - F O R M )
0034240 D U M M I E S ) ) ( V A L U E
0034260 S D U M M I E S ( C D R A
0034300 C C E S S - F O R M ) ( L I S
0034320 T \r N E W V A L - V A R ) (
0034340 F U N C A L L ( F U N C T I O
0034360 N ( C L : L A M B D A ( \ A
0034400 C C E S S - A R G L I S T V )
0034420 ( L E T * ( ( X ( C A R
0034440 ( C D R \ A C C E S S - A R G
0034460 L I S T ) ) ) ) \r ( B Q U O T
0034500 E ( R P L A C D ( C A D A R
0034520 ( \ , X ) ) ( \ , V ) )
0034540 ) ) ) ) N E W - A C C E S S -
0034560 F O R M N E W V A L - V A R )
0034600 N E W - A C C E S S - F O R M
0034620 ) ) ) ) ) \r ( P U T P R O P S
0034640 C D D D A R S E T F - M E T H
0034660 O D - E X P A N D E R ( C L :
0034700 L A M B D A ( A C C E S S - F
0034720 O R M ) ( D O * ( ( A R G S
0034740 ( C D R A C C E S S - F O R
0034760 M ) ( C D R A R G S \r ) )
0035000 ( D U M M I E S N I L ( C O
0035020 N S ( G E N S Y M ) D U M M
0035040 I E S ) ) ( N E W V A L - V A
0035060 R ( G E N S Y M ) ) ( N E W
0035100 - A C C E S S - F O R M N I L
0035120 ) ) ( ( C L : A T O M A R G
0035140 S ) \r ( S E T Q N E W - A C
0035160 C E S S - F O R M ( C O N S
0035200 ( C A R A C C E S S - F O R M
0035220 ) D U M M I E S ) ) ( V A L
0035240 U E S D U M M I E S ( C D R
0035260 A C C E S S - F O R M ) ( L
0035300 I S T \r N E W V A L - V A R )
0035320 ( F U N C A L L ( F U N C T
0035340 I O N ( C L : L A M B D A (
0035360 \ A C C E S S - A R G L I S T
0035400 V ) ( L E T * ( ( X ( C A
0035420 R ( C D R \ A C C E S S - A
0035440 R G L I S T ) ) ) ) \r ( B Q U
0035460 O T E ( R P L A C D ( C D D
0035500 A R ( \ , X ) ) ( \ , V
0035520 ) ) ) ) ) ) N E W - A C C E S
0035540 S - F O R M N E W V A L - V A
0035560 R ) N E W - A C C E S S - F O
0035600 R M ) ) ) ) ) \r ( P U T P R O P
0035620 S C A A A D R S E T F - M E
0035640 T H O D - E X P A N D E R ( C
0035660 L : L A M B D A ( A C C E S S
0035700 - F O R M ) ( D O * ( ( A R
0035720 G S ( C D R A C C E S S - F
0035740 O R M ) ( C D R A R G S \r )
0035760 ) ( D U M M I E S N I L (
0036000 C O N S ( G E N S Y M ) D U
0036020 M M I E S ) ) ( N E W V A L -
0036040 V A R ( G E N S Y M ) ) ( N
0036060 E W - A C C E S S - F O R M N
0036100 I L ) ) ( ( C L : A T O M A
0036120 R G S ) \r ( S E T Q N E W -
0036140 A C C E S S - F O R M ( C O N
0036160 S ( C A R A C C E S S - F O
0036200 R M ) D U M M I E S ) ) ( V
0036220 A L U E S D U M M I E S ( C
0036240 D R A C C E S S - F O R M )
0036260 ( L I S T \r N E W V A L - V A
0036300 R ) ( F U N C A L L ( F U N
0036320 C T I O N ( C L : L A M B D A
0036340 ( \ A C C E S S - A R G L I S
0036360 T V ) ( L E T * ( ( X (
0036400 C A R ( C D R \ A C C E S S
0036420 - A R G L I S T ) ) ) ) \r ( B
0036440 Q U O T E ( R P L A C A ( C
0036460 A A D R ( \ , X ) ) ( \ ,
0036500 V ) ) ) ) ) ) N E W - A C C
0036520 E S S - F O R M N E W V A L -
0036540 V A R ) N E W - A C C E S S -
0036560 F O R M ) ) ) ) ) \r ( P U T P R
0036600 O P S C A D A D R S E T F -
0036620 M E T H O D - E X P A N D E R
0036640 ( C L : L A M B D A ( A C C E
0036660 S S - F O R M ) ( D O * ( (
0036700 A R G S ( C D R A C C E S S
0036720 - F O R M ) ( C D R A R G S
0036740 \r ) ) ( D U M M I E S N I L
0036760 ( C O N S ( G E N S Y M )
0037000 D U M M I E S ) ) ( N E W V A
0037020 L - V A R ( G E N S Y M ) )
0037040 ( N E W - A C C E S S - F O R M
0037060 N I L ) ) ( ( C L : A T O M
0037100 A R G S ) \r ( S E T Q N E
0037120 W - A C C E S S - F O R M ( C
0037140 O N S ( C A R A C C E S S -
0037160 F O R M ) D U M M I E S ) )
0037200 ( V A L U E S D U M M I E S
0037220 ( C D R A C C E S S - F O R M
0037240 ) ( L I S T \r N E W V A L -
0037260 V A R ) ( F U N C A L L ( F
0037300 U N C T I O N ( C L : L A M B
0037320 D A ( \ A C C E S S - A R G L
0037340 I S T V ) ( L E T * ( ( X
0037360 ( C A R ( C D R \ A C C E
0037400 S S - A R G L I S T ) ) ) ) \r
0037420 ( B Q U O T E ( R P L A C A
0037440 ( C D A D R ( \ , X ) ) (
0037460 \ , V ) ) ) ) ) ) N E W - A
0037500 C C E S S - F O R M N E W V A
0037520 L - V A R ) N E W - A C C E S
0037540 S - F O R M ) ) ) ) ) \r ( P U T
0037560 P R O P S C D A A D R S E T
0037600 F - M E T H O D - E X P A N D E
0037620 R ( C L : L A M B D A ( A C
0037640 C E S S - F O R M ) ( D O *
0037660 ( ( A R G S ( C D R A C C E
0037700 S S - F O R M ) ( C D R A R
0037720 G S \r ) ) ( D U M M I E S N
0037740 I L ( C O N S ( G E N S Y M
0037760 ) D U M M I E S ) ) ( N E W
0040000 V A L - V A R ( G E N S Y M )
0040020 ) ( N E W - A C C E S S - F O
0040040 R M N I L ) ) ( ( C L : A T
0040060 O M A R G S ) \r ( S E T Q
0040100 N E W - A C C E S S - F O R M
0040120 ( C O N S ( C A R A C C E S
0040140 S - F O R M ) D U M M I E S )
0040160 ) ( V A L U E S D U M M I E
0040200 S ( C D R A C C E S S - F O
0040220 R M ) ( L I S T \r N E W V A
0040240 L - V A R ) ( F U N C A L L
0040260 ( F U N C T I O N ( C L : L A
0040300 M B D A ( \ A C C E S S - A R
0040320 G L I S T V ) ( L E T * (
0040340 ( X ( C A R ( C D R \ A C
0040360 C E S S - A R G L I S T ) ) ) )
0040400 \r ( B Q U O T E ( R P L A C
0040420 D ( C A A D R ( \ , X ) )
0040440 ( \ , V ) ) ) ) ) ) N E W
0040460 - A C C E S S - F O R M N E W
0040500 V A L - V A R ) N E W - A C C
0040520 E S S - F O R M ) ) ) ) ) \r ( P
0040540 U T P R O P S C D D A D R S
0040560 E T F - M E T H O D - E X P A N
0040600 D E R ( C L : L A M B D A (
0040620 A C C E S S - F O R M ) ( D O
0040640 * ( ( A R G S ( C D R A C
0040660 C E S S - F O R M ) ( C D R
0040700 A R G S \r ) ) ( D U M M I E S
0040720 N I L ( C O N S ( G E N S
0040740 Y M ) D U M M I E S ) ) ( N
0040760 E W V A L - V A R ( G E N S Y
0041000 M ) ) ( N E W - A C C E S S -
0041020 F O R M N I L ) ) ( ( C L :
0041040 A T O M A R G S ) \r ( S E T
0041060 Q N E W - A C C E S S - F O R
0041100 M ( C O N S ( C A R A C C
0041120 E S S - F O R M ) D U M M I E
0041140 S ) ) ( V A L U E S D U M M
0041160 I E S ( C D R A C C E S S -
0041200 F O R M ) ( L I S T \r N E W
0041220 V A L - V A R ) ( F U N C A L
0041240 L ( F U N C T I O N ( C L :
0041260 L A M B D A ( \ A C C E S S -
0041300 A R G L I S T V ) ( L E T *
0041320 ( ( X ( C A R ( C D R \
0041340 A C C E S S - A R G L I S T ) )
0041360 ) ) \r ( B Q U O T E ( R P L
0041400 A C D ( C D A D R ( \ , X
0041420 ) ) ( \ , V ) ) ) ) ) ) N
0041440 E W - A C C E S S - F O R M N
0041460 E W V A L - V A R ) N E W - A
0041500 C C E S S - F O R M ) ) ) ) ) \r
0041520 ( P U T P R O P S C A A D D R
0041540 S E T F - M E T H O D - E X P
0041560 A N D E R ( C L : L A M B D A
0041600 ( A C C E S S - F O R M ) (
0041620 D O * ( ( A R G S ( C D R
0041640 A C C E S S - F O R M ) ( C D
0041660 R A R G S \r ) ) ( D U M M I
0041700 E S N I L ( C O N S ( G E
0041720 N S Y M ) D U M M I E S ) )
0041740 ( N E W V A L - V A R ( G E N
0041760 S Y M ) ) ( N E W - A C C E S
0042000 S - F O R M N I L ) ) ( ( C
0042020 L : A T O M A R G S ) \r ( S
0042040 E T Q N E W - A C C E S S - F
0042060 O R M ( C O N S ( C A R A
0042100 C C E S S - F O R M ) D U M M
0042120 I E S ) ) ( V A L U E S D U
0042140 M M I E S ( C D R A C C E S
0042160 S - F O R M ) ( L I S T \r N
0042200 E W V A L - V A R ) ( F U N C
0042220 A L L ( F U N C T I O N ( C
0042240 L : L A M B D A ( \ A C C E S
0042260 S - A R G L I S T V ) ( L E
0042300 T * ( ( X ( C A R ( C D R
0042320 \ A C C E S S - A R G L I S T
0042340 ) ) ) ) \r ( B Q U O T E ( R
0042360 P L A C A ( C A D D R ( \ ,
0042400 X ) ) ( \ , V ) ) ) ) ) )
0042420 N E W - A C C E S S - F O R M
0042440 N E W V A L - V A R ) N E W
0042460 - A C C E S S - F O R M ) ) ) )
0042500 ) \r ( P U T P R O P S C A D D
0042520 D R S E T F - M E T H O D - E
0042540 X P A N D E R ( C L : L A M B
0042560 D A ( A C C E S S - F O R M )
0042600 ( D O * ( ( A R G S ( C D
0042620 R A C C E S S - F O R M ) (
0042640 C D R A R G S \r ) ) ( D U M
0042660 M I E S N I L ( C O N S (
0042700 G E N S Y M ) D U M M I E S )
0042720 ) ( N E W V A L - V A R ( G
0042740 E N S Y M ) ) ( N E W - A C C
0042760 E S S - F O R M N I L ) ) (
0043000 ( C L : A T O M A R G S ) \r
0043020 ( S E T Q N E W - A C C E S S
0043040 - F O R M ( C O N S ( C A R
0043060 A C C E S S - F O R M ) D U
0043100 M M I E S ) ) ( V A L U E S
0043120 D U M M I E S ( C D R A C C
0043140 E S S - F O R M ) ( L I S T
0043160 \r N E W V A L - V A R ) ( F U
0043200 N C A L L ( F U N C T I O N
0043220 ( C L : L A M B D A ( \ A C C
0043240 E S S - A R G L I S T V ) (
0043260 L E T * ( ( X ( C A R ( C
0043300 D R \ A C C E S S - A R G L I
0043320 S T ) ) ) ) \r ( B Q U O T E
0043340 ( R P L A C A ( C D D D R (
0043360 \ , X ) ) ( \ , V ) ) ) )
0043400 ) ) N E W - A C C E S S - F O
0043420 R M N E W V A L - V A R ) N
0043440 E W - A C C E S S - F O R M ) )
0043460 ) ) ) \r ( P U T P R O P S C D
0043500 A D D R S E T F - M E T H O D
0043520 - E X P A N D E R ( C L : L A
0043540 M B D A ( A C C E S S - F O R
0043560 M ) ( D O * ( ( A R G S (
0043600 C D R A C C E S S - F O R M )
0043620 ( C D R A R G S \r ) ) ( D
0043640 U M M I E S N I L ( C O N S
0043660 ( G E N S Y M ) D U M M I E
0043700 S ) ) ( N E W V A L - V A R
0043720 ( G E N S Y M ) ) ( N E W - A
0043740 C C E S S - F O R M N I L ) )
0043760 ( ( C L : A T O M A R G S )
0044000 \r ( S E T Q N E W - A C C E
0044020 S S - F O R M ( C O N S ( C
0044040 A R A C C E S S - F O R M )
0044060 D U M M I E S ) ) ( V A L U E
0044100 S D U M M I E S ( C D R A
0044120 C C E S S - F O R M ) ( L I S
0044140 T \r N E W V A L - V A R ) (
0044160 F U N C A L L ( F U N C T I O
0044200 N ( C L : L A M B D A ( \ A
0044220 C C E S S - A R G L I S T V )
0044240 ( L E T * ( ( X ( C A R
0044260 ( C D R \ A C C E S S - A R G
0044300 L I S T ) ) ) ) \r ( B Q U O T
0044320 E ( R P L A C D ( C A D D R
0044340 ( \ , X ) ) ( \ , V ) )
0044360 ) ) ) ) N E W - A C C E S S -
0044400 F O R M N E W V A L - V A R )
0044420 N E W - A C C E S S - F O R M
0044440 ) ) ) ) ) \r ( P U T P R O P S
0044460 C D D D D R S E T F - M E T H
0044500 O D - E X P A N D E R ( C L :
0044520 L A M B D A ( A C C E S S - F
0044540 O R M ) ( D O * ( ( A R G S
0044560 ( C D R A C C E S S - F O R
0044600 M ) ( C D R A R G S \r ) )
0044620 ( D U M M I E S N I L ( C O
0044640 N S ( G E N S Y M ) D U M M
0044660 I E S ) ) ( N E W V A L - V A
0044700 R ( G E N S Y M ) ) ( N E W
0044720 - A C C E S S - F O R M N I L
0044740 ) ) ( ( C L : A T O M A R G
0044760 S ) \r ( S E T Q N E W - A C
0045000 C E S S - F O R M ( C O N S
0045020 ( C A R A C C E S S - F O R M
0045040 ) D U M M I E S ) ) ( V A L
0045060 U E S D U M M I E S ( C D R
0045100 A C C E S S - F O R M ) ( L
0045120 I S T \r N E W V A L - V A R )
0045140 ( F U N C A L L ( F U N C T
0045160 I O N ( C L : L A M B D A (
0045200 \ A C C E S S - A R G L I S T
0045220 V ) ( L E T * ( ( X ( C A
0045240 R ( C D R \ A C C E S S - A
0045260 R G L I S T ) ) ) ) \r ( B Q U
0045300 O T E ( R P L A C D ( C D D
0045320 D R ( \ , X ) ) ( \ , V
0045340 ) ) ) ) ) ) N E W - A C C E S
0045360 S - F O R M N E W V A L - V A
0045400 R ) N E W - A C C E S S - F O
0045420 R M ) ) ) ) ) \r ( P U T P R O P
0045440 S C L : F I R S T S E T F -
0045460 I N V E R S E R P L A C A ) \r
0045500 ( P U T P R O P S S E C O N D
0045520 S E T F - M E T H O D - E X P
0045540 A N D E R ( C L : L A M B D A
0045560 ( A C C E S S - F O R M ) (
0045600 D O * ( ( A R G S ( C D R
0045620 A C C E S S - F O R M ) ( C D
0045640 R A R G S \r ) ) ( D U M M I
0045660 E S N I L ( C O N S ( G E
0045700 N S Y M ) D U M M I E S ) )
0045720 ( N E W V A L - V A R ( G E N
0045740 S Y M ) ) ( N E W - A C C E S
0045760 S - F O R M N I L ) ) ( ( C
0046000 L : A T O M A R G S ) \r ( S
0046020 E T Q N E W - A C C E S S - F
0046040 O R M ( C O N S ( C A R A
0046060 C C E S S - F O R M ) D U M M
0046100 I E S ) ) ( V A L U E S D U
0046120 M M I E S ( C D R A C C E S
0046140 S - F O R M ) ( L I S T \r N
0046160 E W V A L - V A R ) ( F U N C
0046200 A L L ( F U N C T I O N ( C
0046220 L : L A M B D A ( \ A C C E S
0046240 S - A R G L I S T V ) ( L E
0046260 T * ( ( X ( C A R ( C D R
0046300 \ A C C E S S - A R G L I S T
0046320 ) ) ) ) \r ( B Q U O T E ( R
0046340 P L A C A ( C D R ( \ , X
0046360 ) ) ( \ , V ) ) ) ) ) ) N
0046400 E W - A C C E S S - F O R M N
0046420 E W V A L - V A R ) N E W - A
0046440 C C E S S - F O R M ) ) ) ) ) \r
0046460 ( P U T P R O P S T H I R D
0046500 S E T F - M E T H O D - E X P A
0046520 N D E R ( C L : L A M B D A
0046540 ( A C C E S S - F O R M ) ( D
0046560 O * ( ( A R G S ( C D R A
0046600 C C E S S - F O R M ) ( C D R
0046620 A R G S ) \r ) ( D U M M I E
0046640 S N I L ( C O N S ( G E N
0046660 S Y M ) D U M M I E S ) ) (
0046700 N E W V A L - V A R ( G E N S
0046720 Y M ) ) ( N E W - A C C E S S
0046740 - F O R M N I L ) ) ( ( C L
0046760 : A T O M A R G S ) ( \r S E
0047000 T Q N E W - A C C E S S - F O
0047020 R M ( C O N S ( C A R A C
0047040 C E S S - F O R M ) D U M M I
0047060 E S ) ) ( V A L U E S D U M
0047100 M I E S ( C D R A C C E S S
0047120 - F O R M ) ( L I S T \r N E
0047140 W V A L - V A R ) ( F U N C A
0047160 L L ( F U N C T I O N ( C L
0047200 : L A M B D A ( \ A C C E S S
0047220 - A R G L I S T V ) ( L E T
0047240 * ( ( X ( C A R ( C D R
0047260 \ A C C E S S - A R G L I S T )
0047300 ) ) ) \r ( B Q U O T E ( R P
0047320 L A C A ( C D D R ( \ , X
0047340 ) ) ( \ , V ) ) ) ) ) ) N
0047360 E W - A C C E S S - F O R M N
0047400 E W V A L - V A R ) N E W - A
0047420 C C E S S - F O R M ) ) ) ) ) \r
0047440 ( P U T P R O P S F O U R T H
0047460 S E T F - M E T H O D - E X P
0047500 A N D E R ( C L : L A M B D A
0047520 ( A C C E S S - F O R M ) (
0047540 D O * ( ( A R G S ( C D R
0047560 A C C E S S - F O R M ) ( C D
0047600 R A R G S \r ) ) ( D U M M I
0047620 E S N I L ( C O N S ( G E
0047640 N S Y M ) D U M M I E S ) )
0047660 ( N E W V A L - V A R ( G E N
0047700 S Y M ) ) ( N E W - A C C E S
0047720 S - F O R M N I L ) ) ( ( C
0047740 L : A T O M A R G S ) \r ( S
0047760 E T Q N E W - A C C E S S - F
0050000 O R M ( C O N S ( C A R A
0050020 C C E S S - F O R M ) D U M M
0050040 I E S ) ) ( V A L U E S D U
0050060 M M I E S ( C D R A C C E S
0050100 S - F O R M ) ( L I S T \r N
0050120 E W V A L - V A R ) ( F U N C
0050140 A L L ( F U N C T I O N ( C
0050160 L : L A M B D A ( \ A C C E S
0050200 S - A R G L I S T V ) ( L E
0050220 T * ( ( X ( C A R ( C D R
0050240 \ A C C E S S - A R G L I S T
0050260 ) ) ) ) \r ( B Q U O T E ( R
0050300 P L A C A ( C D D D R ( \ ,
0050320 X ) ) ( \ , V ) ) ) ) ) )
0050340 N E W - A C C E S S - F O R M
0050360 N E W V A L - V A R ) N E W
0050400 - A C C E S S - F O R M ) ) ) )
0050420 ) \r ( P U T P R O P S F I F T
0050440 H S E T F - M E T H O D - E X
0050460 P A N D E R ( C L : L A M B D
0050500 A ( A C C E S S - F O R M )
0050520 ( D O * ( ( A R G S ( C D R
0050540 A C C E S S - F O R M ) ( C
0050560 D R A R G S ) \r ) ( D U M M
0050600 I E S N I L ( C O N S ( G
0050620 E N S Y M ) D U M M I E S ) )
0050640 ( N E W V A L - V A R ( G E
0050660 N S Y M ) ) ( N E W - A C C E
0050700 S S - F O R M N I L ) ) ( (
0050720 C L : A T O M A R G S ) ( \r
0050740 S E T Q N E W - A C C E S S -
0050760 F O R M ( C O N S ( C A R
0051000 A C C E S S - F O R M ) D U M
0051020 M I E S ) ) ( V A L U E S D
0051040 U M M I E S ( C D R A C C E
0051060 S S - F O R M ) ( L I S T \r
0051100 N E W V A L - V A R ) ( F U N
0051120 C A L L ( F U N C T I O N (
0051140 C L : L A M B D A ( \ A C C E
0051160 S S - A R G L I S T V ) ( L
0051200 E T * ( ( X ( C A R ( C D
0051220 R \ A C C E S S - A R G L I S
0051240 T ) ) ) ) \r ( B Q U O T E (
0051260 R P L A C A ( C D D D D R (
0051300 \ , X ) ) ( \ , V ) ) ) )
0051320 ) ) N E W - A C C E S S - F O
0051340 R M N E W V A L - V A R ) N
0051360 E W - A C C E S S - F O R M ) )
0051400 ) ) ) \r ( P U T P R O P S S I
0051420 X T H S E T F - M E T H O D -
0051440 E X P A N D E R ( C L : L A M
0051460 B D A ( A C C E S S - F O R M
0051500 ) ( D O * ( ( A R G S ( C
0051520 D R A C C E S S - F O R M )
0051540 ( C D R A R G S ) \r ) ( D U
0051560 M M I E S N I L ( C O N S
0051600 ( G E N S Y M ) D U M M I E S
0051620 ) ) ( N E W V A L - V A R (
0051640 G E N S Y M ) ) ( N E W - A C
0051660 C E S S - F O R M N I L ) )
0051700 ( ( C L : A T O M A R G S )
0051720 ( \r S E T Q N E W - A C C E S
0051740 S - F O R M ( C O N S ( C A
0051760 R A C C E S S - F O R M ) D
0052000 U M M I E S ) ) ( V A L U E S
0052020 D U M M I E S ( C D R A C
0052040 C E S S - F O R M ) ( L I S T
0052060 \r N E W V A L - V A R ) ( F
0052100 U N C A L L ( F U N C T I O N
0052120 ( C L : L A M B D A ( \ A C
0052140 C E S S - A R G L I S T V )
0052160 ( L E T * ( ( X ( C A R (
0052200 C D R \ A C C E S S - A R G L
0052220 I S T ) ) ) ) \r ( B Q U O T E
0052240 ( R P L A C A ( C D R ( C
0052260 D D D D R ( \ , X ) ) ) (
0052300 \ , V ) ) ) ) ) ) N E W - A
0052320 C C E S S - F O R M N E W V A
0052340 L - V A R ) N E W - A C C E S
0052360 S - F O R M ) ) ) ) ) \r ( P U T
0052400 P R O P S S E V E N T H S E
0052420 T F - M E T H O D - E X P A N D
0052440 E R ( C L : L A M B D A ( A
0052460 C C E S S - F O R M ) ( D O *
0052500 ( ( A R G S ( C D R A C C
0052520 E S S - F O R M ) ( C D R \r
0052540 A R G S ) ) ( D U M M I E S
0052560 N I L ( C O N S ( G E N S Y
0052600 M ) D U M M I E S ) ) ( N E
0052620 W V A L - V A R ( G E N S Y M
0052640 ) ) ( N E W - A C C E S S - F
0052660 O R M N I L ) ) ( ( C L : A
0052700 T O M \r A R G S ) ( S E T Q
0052720 N E W - A C C E S S - F O R M
0052740 ( C O N S ( C A R A C C E
0052760 S S - F O R M ) D U M M I E S
0053000 ) ) ( V A L U E S D U M M I
0053020 E S ( C D R A C C E S S - F
0053040 O R M ) ( L I S T \r N E W V
0053060 A L - V A R ) ( F U N C A L L
0053100 ( F U N C T I O N ( C L : L
0053120 A M B D A ( \ A C C E S S - A
0053140 R G L I S T V ) ( L E T *
0053160 ( ( X ( C A R ( C D R \ A
0053200 C C E S S - A R G L I S T ) ) )
0053220 ) \r ( B Q U O T E ( R P L A
0053240 C A ( C D D R ( C D D D D R
0053260 ( \ , X ) ) ) ( \ , V )
0053300 ) ) ) ) ) N E W - A C C E S S
0053320 - F O R M N E W V A L - V A R
0053340 ) N E W - A C C E S S - F O R
0053360 M ) ) ) ) ) \r ( P U T P R O P S
0053400 E I G H T H S E T F - M E T
0053420 H O D - E X P A N D E R ( C L
0053440 : L A M B D A ( A C C E S S -
0053460 F O R M ) ( D O * ( ( A R G
0053500 S ( C D R A C C E S S - F O
0053520 R M ) ( C D R A R G S \r ) )
0053540 ( D U M M I E S N I L ( C
0053560 O N S ( G E N S Y M ) D U M
0053600 M I E S ) ) ( N E W V A L - V
0053620 A R ( G E N S Y M ) ) ( N E
0053640 W - A C C E S S - F O R M N I
0053660 L ) ) ( ( C L : A T O M A R
0053700 G S ) \r ( S E T Q N E W - A
0053720 C C E S S - F O R M ( C O N S
0053740 ( C A R A C C E S S - F O R
0053760 M ) D U M M I E S ) ) ( V A
0054000 L U E S D U M M I E S ( C D
0054020 R A C C E S S - F O R M ) (
0054040 L I S T \r N E W V A L - V A R
0054060 ) ( F U N C A L L ( F U N C
0054100 T I O N ( C L : L A M B D A
0054120 ( \ A C C E S S - A R G L I S T
0054140 V ) ( L E T * ( ( X ( C
0054160 A R ( C D R \ A C C E S S -
0054200 A R G L I S T ) ) ) ) \r ( B Q
0054220 U O T E ( R P L A C A ( C D
0054240 D D R ( C D D D D R ( \ ,
0054260 X ) ) ) ( \ , V ) ) ) ) ) )
0054300 N E W - A C C E S S - F O R M
0054320 N E W V A L - V A R ) N E W
0054340 - A C C E S S - F O R M ) ) ) )
0054360 ) \r ( P U T P R O P S N I N T
0054400 H S E T F - M E T H O D - E X
0054420 P A N D E R ( C L : L A M B D
0054440 A ( A C C E S S - F O R M )
0054460 ( D O * ( ( A R G S ( C D R
0054500 A C C E S S - F O R M ) ( C
0054520 D R A R G S ) \r ) ( D U M M
0054540 I E S N I L ( C O N S ( G
0054560 E N S Y M ) D U M M I E S ) )
0054600 ( N E W V A L - V A R ( G E
0054620 N S Y M ) ) ( N E W - A C C E
0054640 S S - F O R M N I L ) ) ( (
0054660 C L : A T O M A R G S ) ( \r
0054700 S E T Q N E W - A C C E S S -
0054720 F O R M ( C O N S ( C A R
0054740 A C C E S S - F O R M ) D U M
0054760 M I E S ) ) ( V A L U E S D
0055000 U M M I E S ( C D R A C C E
0055020 S S - F O R M ) ( L I S T \r
0055040 N E W V A L - V A R ) ( F U N
0055060 C A L L ( F U N C T I O N (
0055100 C L : L A M B D A ( \ A C C E
0055120 S S - A R G L I S T V ) ( L
0055140 E T * ( ( X ( C A R ( C D
0055160 R \ A C C E S S - A R G L I S
0055200 T ) ) ) ) \r ( B Q U O T E (
0055220 R P L A C A ( C D D D D R (
0055240 C D D D D R ( \ , X ) ) )
0055260 ( \ , V ) ) ) ) ) ) N E W -
0055300 A C C E S S - F O R M N E W V
0055320 A L - V A R ) N E W - A C C E
0055340 S S - F O R M ) ) ) ) ) \r ( P U
0055360 T P R O P S T E N T H S E T
0055400 F - M E T H O D - E X P A N D E
0055420 R ( C L : L A M B D A ( A C
0055440 C E S S - F O R M ) ( D O *
0055460 ( ( A R G S ( C D R A C C E
0055500 S S - F O R M ) ( C D R A R
0055520 G S ) \r ) ( D U M M I E S N
0055540 I L ( C O N S ( G E N S Y M
0055560 ) D U M M I E S ) ) ( N E W
0055600 V A L - V A R ( G E N S Y M )
0055620 ) ( N E W - A C C E S S - F O
0055640 R M N I L ) ) ( ( C L : A T
0055660 O M A R G S ) ( \r S E T Q
0055700 N E W - A C C E S S - F O R M
0055720 ( C O N S ( C A R A C C E S
0055740 S - F O R M ) D U M M I E S )
0055760 ) ( V A L U E S D U M M I E
0056000 S ( C D R A C C E S S - F O
0056020 R M ) ( L I S T \r N E W V A
0056040 L - V A R ) ( F U N C A L L
0056060 ( F U N C T I O N ( C L : L A
0056100 M B D A ( \ A C C E S S - A R
0056120 G L I S T V ) ( L E T * (
0056140 ( X ( C A R ( C D R \ A C
0056160 C E S S - A R G L I S T ) ) ) )
0056200 \r ( B Q U O T E ( R P L A C
0056220 A ( C D R ( C D D D D R (
0056240 C D D D D R ( \ , X ) ) ) )
0056260 ( \ , V ) ) ) ) ) ) N E W
0056300 - A C C E S S - F O R M N E W
0056320 V A L - V A R ) N E W - A C C
0056340 E S S - F O R M \r ) ) ) ) ) \r (
0056360 P U T P R O P S R E S T S E
0056400 T F - I N V E R S E R P L A C
0056420 D ) \r ( P U T P R O P S C L :
0056440 E L T S E T F - I N V E R S E
0056460 \ S E T E L T ) \r ( P U T P R
0056500 O P S A R E F S E T F - M E
0056520 T H O D - E X P A N D E R ( C
0056540 L : L A M B D A ( \ L A M B D
0056560 A - L I S T ) ( C O N D ( (
0056600 < ( L E N G T H \ L A M B D
0056620 A - L I S T ) 2 ) ( \r C L :
0056640 E R R O R " S e t f e x p a
0056660 n d e r f o r ~ S c a n n
0056700 o t b e c a l l e d w i t
0056720 h ~ S a r g s . " ( Q U O
0056740 T E A R E F ) ( 1 - ( L E
0056760 N G T H \ L A M B D A - L I S
0057000 T ) ) \r ) ) ( T ( L E T *
0057020 ( ( A R R A Y ( C A R ( C D
0057040 R \ L A M B D A - L I S T ) )
0057060 ) ( S U B S C R I P T S ( C
0057100 D R ( C D R \ L A M B D A -
0057120 L I S T ) ) ) ) ( L E T ( (
0057140 A R R A Y - T E M P \r ( G E N
0057160 S Y M ) ) ( S U B S C R I P T
0057200 S - T E M P S ( f o r S U B
0057220 S C R I P T i n S U B S C R
0057240 I P T S c o l l e c t ( G E
0057260 N S Y M ) ) ) ( N E W - V A L
0057300 U E - T E M P ( G E N S Y M )
0057320 ) \r ) ( V A L U E S ( B Q U
0057340 O T E ( ( \ , A R R A Y - T
0057360 E M P ) ( \ , @ S U B S C R
0057400 I P T S - T E M P S ) ) ) ( B
0057420 Q U O T E ( ( \ , A R R A Y
0057440 ) ( \ , @ S U B S C R I P T
0057460 S ) ) ) ( \r B Q U O T E ( (
0057500 \ , N E W - V A L U E - T E M
0057520 P ) ) ) ( B Q U O T E ( A S
0057540 E T ( \ , N E W - V A L U E
0057560 - T E M P ) ( \ , A R R A Y
0057600 - T E M P ) ( \ , @ S U B S
0057620 C R I P T S - T E M P S ) \r ) )
0057640 ( B Q U O T E ( A R E F (
0057660 \ , A R R A Y - T E M P ) (
0057700 \ , @ S U B S C R I P T S - T
0057720 E M P S ) ) ) ) ) ) ) ) ) ) \r (
0057740 P U T P R O P S S V R E F S
0057760 E T F - I N V E R S E S V S E
0060000 T ) \r ( P U T P R O P S C H A
0060020 R S E T F - I N V E R S E \
0060040 C H A R S E T ) \r ( P U T P R O
0060060 P S B I T S E T F - I N V E
0060100 R S E B I T S E T ) \r ( P U T
0060120 P R O P S S C H A R S E T F
0060140 - I N V E R S E S C H A R S E
0060160 T ) \r ( P U T P R O P S S B I
0060200 T S E T F - I N V E R S E S
0060220 B I T S E T ) \r ( P U T P R O P
0060240 S S Y M B O L - V A L U E S
0060260 E T F - I N V E R S E S E T )
0060300 \r ( P U T P R O P S S Y M B O
0060320 L - F U N C T I O N S E T F -
0060340 I N V E R S E P U T D ) \r ( P
0060360 U T P R O P S S Y M B O L - P
0060400 L I S T S E T F - I N V E R S
0060420 E S E T P R O P L I S T ) \r (
0060440 P U T P R O P S D O C U M E N
0060460 T A T I O N S E T F - I N V E
0060500 R S E \ S E T - D O C U M E N
0060520 T A T I O N ) \r ( P U T P R O P
0060540 S C L : N T H S E T F - I N
0060560 V E R S E \ S E T N T H ) \r (
0060600 P U T P R O P S \ S P - S V R
0060620 E F S E T F - I N V E R S E
0060640 \ S P - S V S E T ) \r ( P U T P
0060660 R O P S \ S P - S C H A R S
0060700 E T F - I N V E R S E \ S P -
0060720 S C H A R S E T ) \r ( P U T P R
0060740 O P S \ S P - S B I T S E T
0060760 F - I N V E R S E \ S P - S B
0061000 I T S E T ) \r ( P U T P R O P S
0061020 \ S P - S A R E F 1 S E T F
0061040 - I N V E R S E \ S P - S A S
0061060 E T 1 ) \r ( P U T P R O P S \
0061100 S P - C V R E F S E T F - I N
0061120 V E R S E \ S P - C V S E T )
0061140 \r ( P U T P R O P S \ S P - C
0061160 C H A R S E T F - I N V E R S
0061200 E \ S P - C C H A R S E T ) \r
0061220 ( P U T P R O P S \ S P - C B
0061240 I T S E T F - I N V E R S E
0061260 \ S P - C B I T S E T ) \r ( P U
0061300 T P R O P S \ S P - C A R E F
0061320 1 S E T F - I N V E R S E \
0061340 S P - C A S E T 1 ) \r ( P U T P
0061360 R O P S F I L L - P O I N T E
0061400 R S E T F - I N V E R S E \
0061420 S E T - F I L L - P O I N T E R
0061440 ) \r ( P U T P R O P S M A C R
0061460 O - F U N C T I O N S E T F -
0061500 M E T H O D - E X P A N D E R
0061520 ( C L : L A M B D A ( A C C E
0061540 S S - F O R M ) ( D O * ( (
0061560 A R G S ( C D R A C C E S S
0061600 - F O R M ) ( \r C D R A R G
0061620 S ) ) ( D U M M I E S N I L
0061640 ( C O N S ( G E N S Y M )
0061660 D U M M I E S ) ) ( N E W V A
0061700 L - V A R ( G E N S Y M ) )
0061720 ( N E W - A C C E S S - F O R M
0061740 N I L ) ) ( ( \r C L : A T O
0061760 M A R G S ) ( S E T Q N E
0062000 W - A C C E S S - F O R M ( C
0062020 O N S ( C A R A C C E S S -
0062040 F O R M ) D U M M I E S ) )
0062060 ( V A L U E S D U M M I E S
0062100 ( C D R A C C E S S - F O R M
0062120 \r ) ( L I S T N E W V A L -
0062140 V A R ) ( F U N C A L L ( F
0062160 U N C T I O N ( C L : L A M B
0062200 D A ( \ A C C E S S - A R G L
0062220 I S T D E F ) ( L E T * (
0062240 ( S Y M B O L ( C A R ( C D
0062260 R \r \ A C C E S S - A R G L I
0062300 S T ) ) ) ) ( B Q U O T E (
0062320 C D R ( \ S P - S E T - D E F
0062340 I N I T I O N ( \ , S Y M B
0062360 O L ) ( C O N S ( Q U O T E
0062400 M A C R O ) ( \ , D E F )
0062420 ) ) ) ) ) ) ) \r N E W - A C C
0062440 E S S - F O R M N E W V A L -
0062460 V A R ) N E W - A C C E S S -
0062500 F O R M ) ) ) ) ) \r ( P U T P R
0062520 O P S S U B S E Q S E T F -
0062540 M E T H O D - E X P A N D E R
0062560 ( C L : L A M B D A ( A C C E
0062600 S S - F O R M ) ( D O * ( (
0062620 A R G S ( C D R A C C E S S
0062640 - F O R M ) ( C D R A R G S
0062660 \r ) ) ( D U M M I E S N I L
0062700 ( C O N S ( G E N S Y M )
0062720 D U M M I E S ) ) ( N E W V A
0062740 L - V A R ( G E N S Y M ) )
0062760 ( N E W - A C C E S S - F O R M
0063000 N I L ) ) ( ( C L : A T O M
0063020 A R G S ) \r ( S E T Q N E
0063040 W - A C C E S S - F O R M ( C
0063060 O N S ( C A R A C C E S S -
0063100 F O R M ) D U M M I E S ) )
0063120 ( V A L U E S D U M M I E S
0063140 ( C D R A C C E S S - F O R M
0063160 ) ( L I S T \r N E W V A L -
0063200 V A R ) ( F U N C A L L ( F
0063220 U N C T I O N ( C L : L A M B
0063240 D A ( \ A C C E S S - A R G L
0063260 I S T V ) ( L E T * ( ( S
0063300 E Q U E N C E ( C A R ( C D
0063320 R \r \ A C C E S S - A R G L I
0063340 S T ) ) ) ( S T A R T ( C A
0063360 R ( C D R ( C D R \ A C C
0063400 E S S - A R G L I S T ) ) ) )
0063420 ( E N D ( C O N D ( ( C D R
0063440 ( C D R ( C D R \r \ A C C
0063460 E S S - A R G L I S T ) ) ) (
0063500 C A R ( C D R ( C D R ( C
0063520 D R \ A C C E S S - A R G L I
0063540 S T ) ) ) ) ) ( T N I L ) )
0063560 ) ) ( B Q U O T E ( P R O G
0063600 N ( C L : R E P L A C E ( \
0063620 , \r S E Q U E N C E ) ( \ ,
0063640 V ) : S T A R T 1 ( \ ,
0063660 S T A R T ) : E N D 1 ( \ ,
0063700 E N D ) ) ( \ , V ) ) ) )
0063720 ) ) N E W - A C C E S S - F O
0063740 R M N E W V A L - V A R ) \r
0063760 N E W - A C C E S S - F O R M )
0064000 ) ) ) ) \r ( P U T P R O P S G
0064020 E T F S E T F - M E T H O D -
0064040 E X P A N D E R ( C L : L A M
0064060 B D A ( \ L A M B D A - L I S
0064100 T ) ( C O N D ( ( O R ( >
0064120 ( C L : L E N G T H \ L A M
0064140 B D A - L I S T ) 4 \r ) ( <
0064160 ( C L : L E N G T H \ L A M
0064200 B D A - L I S T ) 3 ) ) ( C
0064220 L : E R R O R " S e t f e x
0064240 p a n d e r f o r ~ S c a
0064260 n n o t b e c a l l e d w
0064300 i t h ~ S a r g s . " ( \r
0064320 Q U O T E G E T F ) ( 1 -
0064340 ( C L : L E N G T H \ L A M B
0064360 D A - L I S T ) ) ) ) ( T (
0064400 L E T * ( ( P L A C E ( C A
0064420 R ( C D R \ L A M B D A - L
0064440 I S T ) ) ) ( P R O P ( C A
0064460 R ( C D R \r ( C D R \ L A
0064500 M B D A - L I S T ) ) ) ) ( D
0064520 E F A U L T ( C O N D ( ( C
0064540 D R ( C D R ( C D R \ L A
0064560 M B D A - L I S T ) ) ) ( C A
0064600 R ( C D R ( C D R ( C D R
0064620 \ L A M B D A - L I S T \r ) )
0064640 ) ) ) ( T N I L ) ) ) ) (
0064660 M U L T I P L E - V A L U E - B
0064700 I N D ( T E M P S V A L U E
0064720 S S T O R E S S E T G E T
0064740 ) ( G E T - S E T F - M E T H
0064760 O D P L A C E ) ( L E T (
0065000 ( \r N E W V A L ( G E N S Y M
0065020 ) ) ( P T E M P ( G E N S Y
0065040 M ) ) ( D E F - T E M P ( G
0065060 E N S Y M ) ) ) ( V A L U E S
0065100 ( B Q U O T E ( ( \ , @ T
0065120 E M P S ) ( \ , ( C A R S
0065140 T O R E S ) ) \r ( \ , P T E
0065160 M P ) ( \ , @ ( C L : I F
0065200 D E F A U L T ( B Q U O T E
0065220 ( ( \ , D E F - T E M P ) ) )
0065240 ) ) ) ) ( B Q U O T E ( ( \
0065260 , @ V A L U E S ) ( \ , G
0065300 E T ) ( \ , P R O P ) ( \r
0065320 \ , @ ( C L : I F D E F A U
0065340 L T ( B Q U O T E ( ( \ ,
0065360 D E F A U L T ) ) ) ) ) ) ) (
0065400 B Q U O T E ( ( \ , N E W V
0065420 A L ) ) ) ( B Q U O T E ( P
0065440 R O G N ( S E T Q ( \ , (
0065460 C A R \r S T O R E S ) ) ( \
0065500 P R I M I T I V E P U T F (
0065520 \ , ( C A R S T O R E S ) )
0065540 ( \ , P T E M P ) ( \ ,
0065560 N E W V A L ) ) ) ( \ , S E
0065600 T ) ( \ , N E W V A L ) ) )
0065620 ( B Q U O T E ( \r G E T F
0065640 ( \ , ( C A R S T O R E S )
0065660 ) ( \ , P T E M P ) ( \ ,
0065700 @ ( C L : I F D E F A U L T
0065720 ( B Q U O T E ( ( \ , D E
0065740 F - T E M P ) ) ) ) ) ) ) ) ) )
0065760 ) ) ) ) ) \r ( P U T P R O P S
0066000 G E T S E T F - M E T H O D -
0066020 E X P A N D E R ( C L : L A M
0066040 B D A ( \ L A M B D A - L I S
0066060 T ) ( C O N D ( ( O R ( >
0066100 ( C L : L E N G T H \ L A M
0066120 B D A - L I S T ) 4 ) \r ( <
0066140 ( C L : L E N G T H \ L A M
0066160 B D A - L I S T ) 3 ) ) ( C
0066200 L : E R R O R " S e t f e x
0066220 p a n d e r f o r ~ S c a
0066240 n n o t b e c a l l e d w
0066260 i t h ~ S a r g s . " ( \r
0066300 Q U O T E G E T ) ( 1 - (
0066320 C L : L E N G T H \ L A M B D
0066340 A - L I S T ) ) ) ) ( T ( L
0066360 E T * ( ( S Y M B O L ( C A
0066400 R ( C D R \ L A M B D A - L
0066420 I S T ) ) ) ( P R O P ( C A
0066440 R ( C D R \r ( C D R \ L A
0066460 M B D A - L I S T ) ) ) ) ( D
0066500 E F A U L T ( C O N D ( ( C
0066520 D R ( C D R ( C D R \ L A
0066540 M B D A - L I S T ) ) ) ( C A
0066560 R ( C D R ( C D R ( C D R
0066600 \ L A M B D A - L I S T \r ) )
0066620 ) ) ) ( T N I L ) ) ) ) (
0066640 L E T ( ( S Y M B O L - T E M
0066660 P ( G E N S Y M ) ) ( P R O
0066700 P - T E M P ( G E N S Y M ) )
0066720 ( D E F - T E M P ( G E N S
0066740 Y M ) ) ( N E W V A L ( G E
0066760 N S Y M \r ) ) ) ( V A L U E S
0067000 ( B Q U O T E ( ( \ , S Y
0067020 M B O L - T E M P ) ( \ , P
0067040 R O P - T E M P ) ( \ , @ (
0067060 C L : I F D E F A U L T ( B
0067100 Q U O T E ( ( \ , D E F - T
0067120 E M P ) ) ) ) ) ) ) \r ( B Q U
0067140 O T E ( ( \ , S Y M B O L )
0067160 ( \ , P R O P ) ( \ , @
0067200 ( C L : I F D E F A U L T (
0067220 B Q U O T E ( ( \ , D E F A
0067240 U L T ) ) ) ) ) ) ) ( L I S T
0067260 N E W V A L ) ( B Q U O T E
0067300 ( \r P U T P R O P ( \ , S
0067320 Y M B O L - T E M P ) ( \ ,
0067340 P R O P - T E M P ) ( \ , N
0067360 E W V A L ) ) ) ( B Q U O T E
0067400 ( G E T ( \ , S Y M B O L
0067420 - T E M P ) ( \ , P R O P -
0067440 T E M P ) ( \r \ , @ ( C L :
0067460 I F D E F A U L T ( B Q U O
0067500 T E ( ( \ , D E F - T E M P
0067520 ) ) ) ) ) ) ) ) ) ) ) ) ) ) \r (
0067540 P U T P R O P S G E T H A S H
0067560 S E T F - M E T H O D - E X P
0067600 A N D E R ( C L : L A M B D A
0067620 ( \ L A M B D A - L I S T )
0067640 ( C O N D ( ( O R ( > ( C
0067660 L : L E N G T H \ L A M B D A
0067700 - L I S T \r ) 4 ) ( < ( C
0067720 L : L E N G T H \ L A M B D A
0067740 - L I S T ) 3 ) ) ( C L : E
0067760 R R O R " S e t f e x p a n
0070000 d e r f o r ~ S c a n n o
0070020 t b e c a l l e d w i t h
0070040 ~ S a r g s . " ( \r Q U O
0070060 T E G E T H A S H ) ( 1 -
0070100 ( C L : L E N G T H \ L A M B
0070120 D A - L I S T ) ) ) ) ( T (
0070140 L E T * ( ( K E Y ( C A R
0070160 ( C D R \ L A M B D A - L I S
0070200 T ) ) ) ( H A S H T A B L E
0070220 ( \r C A R ( C D R ( C D R
0070240 \ L A M B D A - L I S T ) ) ) )
0070260 ( D E F A U L T ( C O N D
0070300 ( ( C D R ( C D R ( C D R
0070320 \ L A M B D A - L I S T ) ) )
0070340 ( C A R ( C D R ( C D R (
0070360 C D R \r \ L A M B D A - L I S
0070400 T ) ) ) ) ) ( T N I L ) ) )
0070420 ) ( L E T ( ( K E Y - T E M
0070440 P ( G E N S Y M ) ) ( H A S
0070460 H T A B L E - T E M P ( G E N
0070500 S Y M ) ) ( D E F A U L T - T
0070520 E M P ( G E N S Y M \r ) ) (
0070540 N E W - V A L U E - T E M P (
0070560 G E N S Y M ) ) ) ( V A L U E
0070600 S ( B Q U O T E ( ( \ , K
0070620 E Y - T E M P ) ( \ , H A S
0070640 H T A B L E - T E M P ) ( \ ,
0070660 @ ( C L : I F D E F A U L T
0070700 ( \r B Q U O T E ( ( \ , D
0070720 E F A U L T - T E M P ) ) ) ) )
0070740 ) ) ( B Q U O T E ( ( \ ,
0070760 K E Y ) ( \ , H A S H T A B
0071000 L E ) ( \ , @ ( C L : I F
0071020 D E F A U L T ( B Q U O T E
0071040 ( ( \ , \r D E F A U L T ) ) )
0071060 ) ) ) ) ( B Q U O T E ( ( \
0071100 , N E W - V A L U E - T E M P
0071120 ) ) ) ( B Q U O T E ( \ P U
0071140 T H A S H ( \ , K E Y - T E
0071160 M P ) ( \ , H A S H T A B L
0071200 E - T E M P ) ( \ , \r N E W
0071220 - V A L U E - T E M P ) ) ) (
0071240 B Q U O T E ( G E T H A S H
0071260 ( \ , K E Y - T E M P ) ( \
0071300 , H A S H T A B L E - T E M P
0071320 ) ( \ , @ ( C L : I F D E
0071340 F A U L T ( B Q U O T E ( (
0071360 \ , \r D E F A U L T - T E M P
0071400 ) ) ) ) ) ) ) ) ) ) ) ) ) ) \r (
0071420 P U T P R O P S C L : A P P L
0071440 Y S E T F - M E T H O D - E X
0071460 P A N D E R ( C L : L A M B D
0071500 A ( \ L A M B D A - L I S T )
0071520 ( C O N D ( ( < ( C L : L
0071540 E N G T H \ L A M B D A - L I
0071560 S T ) 2 \r ) ( C L : E R R O
0071600 R " S e t f e x p a n d e r
0071620 f o r ~ S c a n n o t b
0071640 e c a l l e d w i t h ~ S
0071660 a r g s . " ( Q U O T E C
0071700 L : A P P L Y ) ( 1 - ( C L
0071720 : L E N G T H \r \ L A M B D A
0071740 - L I S T ) ) ) ) ( T ( L E
0071760 T * ( ( F U N C T I O N ( C
0072000 A R ( C D R \ L A M B D A -
0072020 L I S T ) ) ) ( A R G S ( C
0072040 D R ( C D R \ L A M B D A -
0072060 L I S T ) ) ) ) ( C L : I F \r
0072100 ( A N D ( L I S T P F U N
0072120 C T I O N ) ( = ( L I S T -
0072140 L E N G T H F U N C T I O N )
0072160 2 ) ( E Q ( C L : F I R S
0072200 T F U N C T I O N ) ( Q U O
0072220 T E F U N C T I O N ) ) ( S
0072240 Y M B O L P \r ( S E C O N D
0072260 F U N C T I O N ) ) ) ( S E T
0072300 Q F U N C T I O N ( S E C O
0072320 N D F U N C T I O N ) ) ( C
0072340 L : E R R O R \r " S e t f o
0072360 f A p p l y i s o n l y
0072400 d e f i n e d f o r f u n c
0072420 t i o n a r g s o f f o r
0072440 m # ' s y m b o l . " ) ) (
0072460 M U L T I P L E - V A L U E - B
0072500 I N D ( D U M M I E S \r V A
0072520 L S N E W V A L S E T T E R
0072540 G E T T E R ) ( G E T - S E
0072560 T F - M E T H O D ( C O N S
0072600 F U N C T I O N A R G S ) )
0072620 ( * \r " M a k e s u r e
0072640 t h e p l a c e i s o n e
0072660 t h a t w e c a n h a n
0072700 d l e . \r " * ) ( C L : U N
0072720 L E S S ( A N D ( E Q ( C
0072740 A R ( L A S T A R G S ) )
0072760 ( C A R ( L A S T V A L S )
0073000 ) ) ( E Q ( C A R ( L A S
0073020 T G E T T E R ) ) ( C A R
0073040 ( L A S T \r D U M M I E S ) )
0073060 ) ( E Q ( C A R ( L A S T
0073100 S E T T E R ) ) ( C A R (
0073120 L A S T D U M M I E S ) ) ) )
0073140 ( C L : E R R O R \r " A p p
0073160 l y o f ~ S n o t u n d
0073200 e r s t o o d a s a l o c
0073220 a t i o n f o r S e t f . "
0073240 F U N C T I O N ) ) ( V A L
0073260 U E S D U M M I E S V A L S
0073300 N E W V A L ( B Q U O T E
0073320 ( \r C L : A P P L Y ( F U N C
0073340 T I O N ( \ , ( C A R S E
0073360 T T E R ) ) ) ( \ , @ ( C D
0073400 R S E T T E R ) ) ) ) ( B Q
0073420 U O T E ( C L : A P P L Y (
0073440 F U N C T I O N ( \ , ( C A
0073460 R G E T T E R \r ) ) ) ( \ ,
0073500 @ ( C D R S E T T E R ) ) )
0073520 ) ) ) ) ) ) ) ) \r ( P U T P R O
0073540 P S L D B S E T F - M E T H
0073560 O D - E X P A N D E R ( C L :
0073600 L A M B D A ( \ L A M B D A -
0073620 L I S T ) ( C O N D ( ( N O
0073640 T ( = ( C L : L E N G T H
0073660 \ L A M B D A - L I S T ) 3 \r
0073700 ) ) ( C L : E R R O R " S e
0073720 t f e x p a n d e r f o r
0073740 ~ S c a n n o t b e c a l
0073760 l e d w i t h ~ S a r g s
0074000 . " ( Q U O T E L D B ) (
0074020 1 - ( C L : L E N G T H \r \
0074040 L A M B D A - L I S T ) ) ) )
0074060 ( T ( L E T * ( ( B Y T E S
0074100 P E C ( C A R ( C D R \ L
0074120 A M B D A - L I S T ) ) ) ( P
0074140 L A C E ( C A R ( C D R (
0074160 C D R \ L A M B D A - L I S T
0074200 ) ) ) ) ) \r ( M U L T I P L E
0074220 - V A L U E - B I N D ( D U M
0074240 M I E S V A L S N E W V A L
0074260 S E T T E R G E T T E R )
0074300 ( G E T - S E T F - M E T H O D
0074320 P L A C E ) ( L E T ( ( B
0074340 T E M P ( G E N S Y M \r ) )
0074360 ( G N U V A L ( G E N S Y M )
0074400 ) ) ( V A L U E S ( C O N S
0074420 B T E M P D U M M I E S )
0074440 ( C O N S B Y T E S P E C V
0074460 A L S ) ( L I S T G N U V A
0074500 L ) ( B Q U O T E ( L E T
0074520 ( ( ( \r \ , ( C A R N E W V
0074540 A L ) ) ( D P B ( \ , G N
0074560 U V A L ) ( \ , B T E M P )
0074600 ( \ , G E T T E R ) ) ) )
0074620 ( \ , S E T T E R ) ( \ ,
0074640 G N U V A L ) ) ) ( B Q U O T
0074660 E ( L D B ( \ , \r B T E M
0074700 P ) ( \ , G E T T E R ) ) )
0074720 ) ) ) ) ) ) ) ) \r ( P U T P R O
0074740 P S M A S K - F I E L D S E
0074760 T F - M E T H O D - E X P A N D
0075000 E R ( C L : L A M B D A ( \
0075020 L A M B D A - L I S T ) ( C O
0075040 N D ( ( N O T ( = ( C L :
0075060 L E N G T H \r \ L A M B D A -
0075100 L I S T ) 3 ) ) ( C L : E R
0075120 R O R " S e t f e x p a n d
0075140 e r f o r ~ S c a n n o t
0075160 b e c a l l e d w i t h
0075200 ~ S a r g s . " ( Q U O T E
0075220 M A S K - F I E L D ) ( \r 1
0075240 - ( C L : L E N G T H \ L A
0075260 M B D A - L I S T ) ) ) ) ( T
0075300 ( L E T * ( ( B Y T E S P E
0075320 C ( C A R ( C D R \ L A M
0075340 B D A - L I S T ) ) ) ( P L A
0075360 C E ( C A R ( C D R ( C D
0075400 R \r \ L A M B D A - L I S T )
0075420 ) ) ) ) ( M U L T I P L E - V
0075440 A L U E - B I N D ( D U M M I
0075460 E S V A L S N E W V A L S
0075500 E T T E R G E T T E R ) ( G
0075520 E T - S E T F - M E T H O D P
0075540 L A C E ) ( \r L E T ( ( B T
0075560 E M P ( G E N S Y M ) ) ( G
0075600 N U V A L ( G E N S Y M ) ) )
0075620 ( V A L U E S ( C O N S B
0075640 T E M P D U M M I E S ) ( C
0075660 O N S B Y T E S P E C V A L
0075700 S ) ( L I S T \r G N U V A L
0075720 ) ( B Q U O T E ( L E T (
0075740 ( ( \ , ( C A R N E W V A L
0075760 ) ) ( D E P O S I T - F I E L
0076000 D ( \ , G N U V A L ) ( \
0076020 , B T E M P ) ( \ , G E T
0076040 T E R ) ) ) ) ( \ , \r S E T
0076060 T E R ) ( \ , G N U V A L )
0076100 ) ) ( B Q U O T E ( M A S K
0076120 - F I E L D ( \ , B T E M P
0076140 ) ( \ , G E T T E R ) ) ) )
0076160 ) ) ) ) ) ) ) \r ( P U T P R O P
0076200 S C H A R - B I T S E T F -
0076220 M E T H O D - E X P A N D E R
0076240 ( C L : L A M B D A ( \ L A M
0076260 B D A - L I S T ) ( C O N D
0076300 ( ( N O T ( = ( C L : L E N
0076320 G T H \r \ L A M B D A - L I S
0076340 T ) 3 ) ) ( C L : E R R O R
0076360 " S e t f e x p a n d e r
0076400 f o r ~ S c a n n o t b e
0076420 c a l l e d w i t h ~ S
0076440 a r g s . " ( Q U O T E C H
0076460 A R - B I T ) ( 1 - \r ( C L
0076500 : L E N G T H \ L A M B D A -
0076520 L I S T ) ) ) ) ( T ( L E T
0076540 * ( ( P L A C E ( C A R (
0076560 C D R \ L A M B D A - L I S T
0076600 ) ) ) ( B I T - N A M E ( C
0076620 A R ( C D R ( C D R \r \ L
0076640 A M B D A - L I S T ) ) ) ) )
0076660 ( M U L T I P L E - V A L U E -
0076700 B I N D ( D U M M I E S V A
0076720 L S N E W V A L S E T T E R
0076740 G E T T E R ) ( G E T - S E
0076760 T F - M E T H O D P L A C E )
0077000 ( \r L E T ( ( B T E M P (
0077020 G E N S Y M ) ) ( G N U V A L
0077040 ( G E N S Y M ) ) ) ( V A L
0077060 U E S ( B Q U O T E ( ( \ ,
0077100 @ D U M M I E S ) ( \ , B
0077120 T E M P ) ) ) ( B Q U O T E
0077140 ( ( \ , @ \r V A L S ) ( \ ,
0077160 B I T - N A M E ) ) ) ( L I
0077200 S T G N U V A L ) ( B Q U O
0077220 T E ( L E T ( ( ( \ , ( C
0077240 A R N E W V A L ) ) ( S E T
0077260 - C H A R - B I T ( \ , G E
0077300 T T E R ) ( \ , \r B T E M P
0077320 ) ( \ , G N U V A L ) ) ) )
0077340 ( \ , S E T T E R ) ( \ ,
0077360 G N U V A L ) ) ) ( B Q U O
0077400 T E ( C H A R - B I T ( \ ,
0077420 G E T T E R ) ( \ , B T E
0077440 M P ) ) ) ) ) ) ) ) ) ) ) \r ( P
0077460 U T P R O P S T H E S E T F
0077500 - M E T H O D - E X P A N D E R
0077520 ( C L : L A M B D A ( \ L A
0077540 M B D A - L I S T ) ( C O N D
0077560 ( ( N O T ( = ( C L : L E
0077600 N G T H \ L A M B D A - L I S
0077620 T ) 3 \r ) ) ( C L : E R R O
0077640 R " S e t f e x p a n d e r
0077660 f o r ~ S c a n n o t b
0077700 e c a l l e d w i t h ~ S
0077720 a r g s . " ( Q U O T E T
0077740 H E ) ( 1 - ( C L : L E N G
0077760 T H \r \ L A M B D A - L I S T
0100000 ) ) ) ) ( T ( L E T * ( (
0100020 T Y P E ( C A R ( C D R \
0100040 L A M B D A - L I S T ) ) ) (
0100060 P L A C E ( C A R ( C D R
0100100 ( C D R \ L A M B D A - L I S
0100120 T ) ) ) ) ) ( \r M U L T I P L
0100140 E - V A L U E - B I N D ( D U
0100160 M M I E S V A L S N E W V A
0100200 L S E T T E R G E T T E R )
0100220 ( G E T - S E T F - M E T H O
0100240 D P L A C E ) ( V A L U E S
0100260 D U M M I E S V A L S \r N
0100300 E W V A L ( C L : S U B S T
0100320 ( B Q U O T E ( T H E ( \ ,
0100340 T Y P E ) ( \ , ( C A R
0100360 N E W V A L ) ) ) ) ( C A R
0100400 N E W V A L ) S E T T E R )
0100420 ( B Q U O T E ( T H E ( \ ,
0100440 T Y P E \r ) ( \ , G E T T
0100460 E R ) ) ) ) ) ) ) ) ) ) \r ( M O
0100500 V D ( Q U O T E R P A Q ? )
0100520 ( Q U O T E D E F V A R ) )
0100540 \r ( M O V D ( Q U O T E R P
0100560 A Q ) ( Q U O T E D E F P A
0100600 R A M E T E R ) ) \r ( D E F M A
0100620 C R O C L : W H E N ( & R E
0100640 S T F O R M S ) \r " F i r s
0100660 t a r g i s a p r e d i
0100700 c a t e . I f i t i s
0100720 n o n - n u l l , t h e r e
0100740 s t o f t h e f o r m s
0100760 a r e \r e v a l u a t e d
0101000 a s a P R O G N . " ( B Q
0101020 U O T E ( C O N D ( \ , F
0101040 O R M S ) ) ) ) \r ( D E F M A C
0101060 R O C L : U N L E S S ( T E
0101100 S T & R E S T F O R M S )
0101120 \r " F i r s t a r g i s a
0101140 p r e d i c a t e . I f
0101160 i t i s n u l l , t h e
0101200 r e s t o f t h e f o r m
0101220 s a r e \r e v a l u a t e
0101240 d a s a P R O G N . " (
0101260 B Q U O T E ( C O N D ( ( N
0101300 O T ( \ , T E S T ) ) ( \
0101320 , @ F O R M S ) ) ) ) ) \r ( D
0101340 E F M A C R O D E F I N E - S
0101360 E T F - M E T H O D ( A C C E
0101400 S S - F N L A M B D A - L I S
0101420 T & B O D Y B O D Y ) \r "
0101440 S y n t a x l i k e D E F M
0101460 A C R O , b u t c r e a t e
0101500 s a S e t f - M e t h o d
0101520 g e n e r a t o r . T h e
0101540 b o d y \r m u s t b e a
0101560 f o r m t h a t r e t u r
0101600 n s t h e f i v e m a g i
0101620 c a l v a l u e s . " ( P R
0101640 O G ( L O C A L - D E C S D
0101660 O C A R G - T E S T \ A R G
0101700 - C O U N T \r \ M I N - A R G
0101720 S \ R E S T P \ L E T - L I
0101740 S T \ K E Y W O R D - T E S T
0101760 S ) ( S E T Q L O C A L - D
0102000 E C S N I L ) ( S E T Q D
0102020 O C N I L ) ( S E T Q A R
0102040 G - T E S T N I L ) ( \r S E
0102060 T Q \ A R G - C O U N T 0 )
0102100 ( S E T Q \ M I N - A R G S
0102120 0 ) ( S E T Q \ R E S T P
0102140 N I L ) ( S E T Q \ L E T
0102160 - L I S T N I L ) ( S E T Q
0102200 \ K E Y W O R D - T E S T S
0102220 N I L ) \r ( C L : D E C L A R
0102240 E ( S P E C I A L \ A R G -
0102260 C O U N T \ M I N - A R G S
0102300 \ R E S T P \ L E T - L I S T
0102320 \ K E Y W O R D - T E S T S )
0102340 ) ( C O N D ( ( N O T ( S
0102360 Y M B O L P \r A C C E S S - F
0102400 N ) ) ( C L : E R R O R " ~
0102420 S - - A c c e s s - f u n c
0102440 t i o n n a m e n o t a
0102460 s y m b o l i n D E F I N E
0102500 - S E T F - M E T H O D . " A
0102520 C C E S S - F N ) ) ) ( * \r
0102540 " C h e c k f o r l o c a
0102560 l d e c l a r a t i o n s a
0102600 n d d o c u m e n t a t i o n
0102620 s t r i n g . " * ) L O O
0102640 P ( C O N D ( ( C L : A T O
0102660 M B O D Y ) ( S E T Q B O
0102700 D Y ( \r Q U O T E ( N I L )
0102720 ) ) ) ( ( A N D ( N O T (
0102740 C L : A T O M ( C A R B O D
0102760 Y ) ) ) ( E Q ( C A A R B
0103000 O D Y ) ( Q U O T E C L : D
0103020 E C L A R E ) ) ) ( S E T Q
0103040 L O C A L - D E C S \r ( A P P
0103060 E N D L O C A L - D E C S (
0103100 C D A R B O D Y ) ) ) ( S E
0103120 T Q B O D Y ( C D R B O D
0103140 Y ) ) ( G O L O O P ) ) (
0103160 ( A N D ( S T R I N G P ( C
0103200 A R B O D Y ) ) ( N O T (
0103220 \r N U L L ( C D R B O D Y )
0103240 ) ) ) ( S E T Q D O C ( C
0103260 A R B O D Y ) ) ( S E T Q
0103300 B O D Y ( C D R B O D Y ) )
0103320 ( G O L O O P ) ) ) ( *
0103340 \r " A n a l y z e t h e l
0103360 a m b d a l i s t . " * )
0103400 ( A N A L Y Z E 1 L A M B D A
0103420 - L I S T ( Q U O T E ( C D
0103440 R \ L A M B D A - L I S T ) )
0103460 A C C E S S - F N ( Q U O T
0103500 E \r \ L A M B D A - L I S T )
0103520 ) ( S E T Q A R G - T E S T
0103540 ( C O N D ( ( A N D ( Z E
0103560 R O P \ M I N - A R G S ) \
0103600 R E S T P ) N I L ) ( ( Z E
0103620 R O P \ M I N - A R G S ) (
0103640 B Q U O T E ( > \r ( L E N G
0103660 T H \ L A M B D A - L I S T )
0103700 ( \ , ( 1 + \ A R G - C O
0103720 U N T ) ) ) ) ) ( \ R E S T P
0103740 ( B Q U O T E ( < ( L E N
0103760 G T H \ L A M B D A - L I S T
0104000 ) ( \ , ( 1 + \r \ M I N -
0104020 A R G S ) ) ) ) ) ( ( = \ M
0104040 I N - A R G S \ A R G - C O U
0104060 N T ) ( B Q U O T E ( N O T
0104100 ( = ( L E N G T H \ L A M
0104120 B D A - L I S T ) ( \ , ( 1
0104140 + \ M I N - A R G S ) ) ) ) )
0104160 ) \r ( T ( B Q U O T E ( O
0104200 R ( > ( L E N G T H \ L A
0104220 M B D A - L I S T ) ( \ , (
0104240 1 + \ A R G - C O U N T ) ) )
0104260 ( < ( L E N G T H \ L A M
0104300 B D A - L I S T ) ( \ , ( 1
0104320 + \r \ M I N - A R G S ) ) ) )
0104340 ) ) ) ) ( * " N o w b u
0104360 i l d t h e b o d y o f
0104400 t h e m a c r o . " * ) (
0104420 C O N D ( ( N U L L L A M B
0104440 D A - L I S T ) ( P U S H L
0104460 O C A L - D E C S \r ( Q U O T
0104500 E ( I G N O R E \ L A M B D
0104520 A - L I S T ) ) ) ) ) ( S E T
0104540 Q B O D Y ( B Q U O T E (
0104560 L E T * ( \ , ( N R E V E R
0104600 S E \ L E T - L I S T ) ) (
0104620 \ , @ ( A N D \r L O C A L -
0104640 D E C S ( L I S T ( C O N S
0104660 ( Q U O T E C L : D E C L A
0104700 R E ) L O C A L - D E C S ) )
0104720 ) ) ( \ , @ \ K E Y W O R D
0104740 - T E S T S ) ( \ , @ B O D
0104760 Y ) ) ) ) ( A N D \r A R G -
0105000 T E S T ( S E T Q B O D Y
0105020 ( B Q U O T E ( C O N D ( (
0105040 \ , A R G - T E S T ) ( C L
0105060 : E R R O R \r " S e t f e x
0105100 p a n d e r f o r ~ S c a
0105120 n n o t b e c a l l e d w
0105140 i t h ~ S a r g s . " ( Q
0105160 U O T E ( \ , A C C E S S -
0105200 F N ) ) ( 1 - ( L E N G T H
0105220 \ L A M B D A - L I S T ) \r )
0105240 ) ) ( T ( \ , B O D Y ) )
0105260 ) ) ) ) ( R E T U R N ( B Q
0105300 U O T E ( E V A L - W H E N
0105320 ( L O A D C L : C O M P I L E
0105340 E V A L ) ( R E M P R O P
0105360 ( Q U O T E ( \ , A C C E S
0105400 S - F N ) \r ) ( Q U O T E S
0105420 E T F - I N V E R S E ) ) ( P
0105440 U T P R O P ( Q U O T E ( \
0105460 , A C C E S S - F N ) ) ( Q
0105500 U O T E S E T F - M E T H O D
0105520 - E X P A N D E R ) ( F U N C
0105540 T I O N ( \r C L : L A M B D A
0105560 ( \ L A M B D A - L I S T )
0105600 ( \ , B O D Y ) ) ) ) ( Q U
0105620 O T E ( \ , A C C E S S - F
0105640 N ) ) ) ) ) ) ) \r ( D E F M A C
0105660 R O D E F S E T F ( A C C E
0105700 S S - F N & R E S T R E S T
0105720 ) ( * A s s o c i a t e s
0105740 a S E T F u p d a t e f u
0105760 n c t i o n o r m a c r o
0106000 w i t h t h e \r s p e c i f
0106020 i e d a c c e s s f u n c t
0106040 i o n o r m a c r o . T h
0106060 e f o r m a t i s c o m p
0106100 l e x . S e e t h e m a n
0106120 u a l f o r d e t a i l s .
0106140 * ) ( C O N D ( ( N O T
0106160 \r ( L I S T P ( C A R R E S
0106200 T ) ) ) ( B Q U O T E ( E V
0106220 A L - W H E N ( L O A D C L
0106240 : C O M P I L E E V A L ) (
0106260 R E M P R O P ( Q U O T E (
0106300 \ , A C C E S S - F N ) ) (
0106320 Q U O T E \r S E T F - M E T H
0106340 O D - E X P A N D E R ) ) ( P
0106360 U T P R O P ( Q U O T E ( \
0106400 , A C C E S S - F N ) ) ( Q
0106420 U O T E S E T F - I N V E R S
0106440 E ) ( Q U O T E ( \ , ( C
0106460 A R R E S T ) ) ) ) ( \r Q U
0106500 O T E ( \ , A C C E S S - F
0106520 N ) ) ) ) ) ( ( A N D ( L I
0106540 S T P ( C A R R E S T ) )
0106560 ( C D R R E S T ) ( L I S T
0106600 P ( C A D R R E S T ) ) )
0106620 ( C O N D ( ( N O T ( = (
0106640 \r L E N G T H ( C A D R R E
0106660 S T ) ) 1 ) ) ( C E R R O R
0106700 " I g n o r e t h e e x t
0106720 r a i t e m s i n t h e
0106740 l i s t . " \r " O n l y o n
0106760 e n e w - v a l u e v a r i
0107000 a b l e a l l o w e d i n
0107020 D E F S E T F . " ) ) ( T N
0107040 I L ) ) ( L E T * ( ( D O C
0107060 ( C L : D O ( ( X ( C D D
0107100 R R E S T ) ( C D R X \r )
0107120 ) ) ( ( O R ( C L : A T O M
0107140 X ) ( C L : A T O M ( C D
0107160 R X ) ) ) N I L ) ( C O N
0107200 D ( ( S T R I N G P ( C A R
0107220 X ) ) ( R E T U R N ( C A
0107240 R X ) ) ) ( ( A N D ( L I
0107260 S T P ( \r C A R X ) ) ( E
0107300 Q ( C A A R X ) ( Q U O T
0107320 E D E C L A R A T I O N ) ) )
0107340 ) ( T ( R E T U R N N I L
0107360 ) ) ) ) ) ( S E T T I N G - F
0107400 O R M - G E N E R A T O R ( D
0107420 E F S E T T E R \r A C C E S S
0107440 - F N R E S T ) ) ) ( B Q U
0107460 O T E ( E V A L - W H E N (
0107500 L O A D C L : C O M P I L E
0107520 E V A L ) ( R E M P R O P (
0107540 Q U O T E ( \ , A C C E S S
0107560 - F N ) ) ( Q U O T E \r S E
0107600 T F - I N V E R S E ) ) ( P U
0107620 T P R O P ( Q U O T E ( \ ,
0107640 A C C E S S - F N ) ) ( Q U
0107660 O T E S E T F - M E T H O D -
0107700 E X P A N D E R ) ( F U N C T
0107720 I O N ( C L : L A M B D A (
0107740 \r A C C E S S - F O R M ) ( D
0107760 O * ( ( A R G S ( C D R A
0110000 C C E S S - F O R M ) ( C D R
0110020 A R G S ) ) ( D U M M I E S
0110040 N I L ( C O N S ( G E N S
0110060 Y M ) D U M M I E S ) ) ( \r
0110100 N E W V A L - V A R ( G E N S
0110120 Y M ) ) ( N E W - A C C E S S
0110140 - F O R M N I L ) ) ( ( C L
0110160 : A T O M A R G S ) ( S E T
0110200 Q N E W - A C C E S S - F O R
0110220 M ( C O N S ( C A R \r A C
0110240 C E S S - F O R M ) D U M M I
0110260 E S ) ) ( V A L U E S D U M
0110300 M I E S ( C D R A C C E S S
0110320 - F O R M ) ( L I S T N E W
0110340 V A L - V A R ) ( F U N C A L
0110360 L ( F U N C T I O N ( \ ,
0110400 \r S E T T I N G - F O R M - G E
0110420 N E R A T O R ) ) N E W - A C
0110440 C E S S - F O R M N E W V A L
0110460 - V A R ) N E W - A C C E S S
0110500 - F O R M ) ) ) ) ) ) ( Q U O
0110520 T E ( \ , A C C E S S - F N
0110540 ) ) ) ) ) ) \r ( T ( C L : E
0110560 R R O R " I l l - f o r m e d
0110600 D E F S E T F f o r ~ S .
0110620 " A C C E S S - F N ) ) ) ) \r
0110640 ( D E F M A C R O S E T F (
0110660 & R E S T A R G S ) \r " T a
0110700 k e s p a i r s o f a r g
0110720 u m e n t s l i k e S E T Q
0110740 . T h e f i r s t i s
0110760 a p l a c e a n d t h e
0111000 s e c o n d \r i s t h e
0111020 v a l u e t h a t i s s u
0111040 p p o s e d t o g o i n t
0111060 o t h a t p l a c e . R
0111100 e t u r n s t h e l a s t \r
0111120 v a l u e . T h e p l
0111140 a c e a r g u m e n t m a y
0111160 b e a n y o f t h e a
0111200 c c e s s f o r m s f o r
0111220 w h i c h S E T F \r k n o
0111240 w s a c o r r e s p o n d i
0111260 n g s e t t i n g f o r m .
0111300 " ( L E T ( ( T E M P ( L
0111320 E N G T H A R G S ) ) ) ( C
0111340 O N D ( ( = T E M P 2 )
0111360 ( C O N D ( ( C L : A T O M
0111400 ( \r C A R A R G S ) ) ( B Q
0111420 U O T E ( S E T Q ( \ , (
0111440 C A R A R G S ) ) ( \ , (
0111460 C A D R A R G S ) ) ) ) ) (
0111500 ( S E T Q T E M P ( G E T
0111520 ( C A A R A R G S ) ( Q U O
0111540 T E \r S E T F - I N V E R S E
0111560 ) ) ) ( B Q U O T E ( ( \ ,
0111600 T E M P ) ( \ , @ ( C D A
0111620 R A R G S ) ) ( \ , ( C A
0111640 D R A R G S ) ) ) ) ) ( T
0111660 ( M U L T I P L E - V A L U E -
0111700 B I N D ( \r D U M M I E S V
0111720 A L S N E W V A L S E T T E
0111740 R G E T T E R ) ( G E T - S
0111760 E T F - M E T H O D ( C A R
0112000 A R G S ) ) ( C L : D E C L A
0112020 R E ( I G N O R E G E T T E
0112040 R ) ) ( D O * ( ( D \r D U
0112060 M M I E S ( C D R D ) ) (
0112100 V V A L S ( C D R V ) )
0112120 ( L E T - L I S T N I L ) )
0112140 ( ( N U L L D ) ( S E T Q
0112160 L E T - L I S T ( N R E V E R
0112200 S E ( C O N S ( L I S T (
0112220 C A R \r N E W V A L ) ( C A
0112240 D R A R G S ) ) L E T - L I
0112260 S T ) ) ) ( B Q U O T E ( L
0112300 E T * ( \ , L E T - L I S T
0112320 ) ( \ , S E T T E R ) ) ) )
0112340 ( S E T Q L E T - L I S T
0112360 ( C O N S ( L I S T \r ( C A
0112400 R D ) ( C A R V ) ) L E
0112420 T - L I S T ) ) ) ) ) ) ) ( (
0112440 O D D P T E M P ) ( C L : E
0112460 R R O R " O d d n u m b e r
0112500 o f a r g s t o S E T F
0112520 . " ) ) ( T ( C L : D O (
0112540 ( A \r A R G S ( C D D R A
0112560 ) ) ( L N I L ) ) ( ( N U
0112600 L L A ) ( B Q U O T E ( P
0112620 R O G N ( \ , @ ( N R E V E
0112640 R S E L ) ) ) ) ) ( S E T Q
0112660 L ( C O N S ( L I S T (
0112700 Q U O T E \r S E T F ) ( C A
0112720 R A ) ( C A D R A ) ) L
0112740 ) ) ) ) ) ) ) \r ( D E F M A C R
0112760 O P S E T F ( & R E S T A
0113000 R G S ) \r " T h i s i s t
0113020 o S E T F a s P S E T Q
0113040 i s t o S E T Q . A r g
0113060 s a r e a l t e r n a t i n
0113100 g p l a c e \r e x p r e s
0113120 s i o n s a n d v a l u e s
0113140 t o g o i n t o t h o s
0113160 e p l a c e s . A l l o
0113200 f t h e s u b f o r m s a
0113220 n d \r v a l u e s a r e
0113240 d e t e r m i n e d , l e f t
0113260 t o r i g h t , a n d o
0113300 n l y t h e n a r e t h e
0113320 l o c a t i o n s \r u p d
0113340 a t e d . R e t u r n s N
0113360 I L . " ( C L : D O ( ( A
0113400 A R G S ( C D D R A ) ) (
0113420 L E T - L I S T N I L ) ( S
0113440 E T F - L I S T N I L ) ) (
0113460 ( C L : A T O M A ) ( \r B Q
0113500 U O T E ( L E T * ( \ , (
0113520 N R E V E R S E L E T - L I S
0113540 T ) ) ( \ , @ ( N R E V E R
0113560 S E S E T F - L I S T ) ) N
0113600 I L ) ) ) ( C O N D ( ( C L
0113620 : A T O M ( C D R A ) ) (
0113640 \r C L : E R R O R " O d d n
0113660 u m b e r o f a r g s t o
0113700 P S E T F . " ) ) ( T N I
0113720 L ) ) ( M U L T I P L E - V A
0113740 L U E - B I N D ( D U M M I E
0113760 S V A L S N E W V A L S E
0114000 T T E R \r G E T T E R ) ( G
0114020 E T - S E T F - M E T H O D (
0114040 C A R A ) ) ( C L : D E C L
0114060 A R E ( I G N O R E G E T T
0114100 E R ) ) ( D O * ( ( D D U
0114120 M M I E S ( C D R D ) ) (
0114140 V V A L S ( C D R \r V ) )
0114160 ) ( ( N U L L D ) ) ( P U
0114200 S H L E T - L I S T ( L I S
0114220 T ( C A R D ) ( C A R V
0114240 ) ) ) ) ( P U S H L E T - L
0114260 I S T ( L I S T ( C A R N
0114300 E W V A L ) ( C A D R A ) )
0114320 ) ( \r P U S H S E T F - L I
0114340 S T S E T T E R ) ) ) ) \r ( D
0114360 E F M A C R O S H I F T F (
0114400 & R E S T A R G S ) \r " O n
0114420 e o r m o r e S E T F - s
0114440 t y l e p l a c e e x p r e
0114460 s s i o n s , f o l l o w e d
0114500 b y a s i n g l e \r v
0114520 a l u e e x p r e s s i o n .
0114540 E v a l u a t e s a l l
0114560 o f t h e e x p r e s s i o
0114600 n s i n t u r n , t h e n
0114620 \r a s s i g n s t h e v
0114640 a l u e o f e a c h e x p
0114660 r e s s i o n t o t h e p
0114700 l a c e o n i t s l e f t
0114720 , \r r e t u r n i n g t h
0114740 e v a l u e o f t h e l
0114760 e f t m o s t . " ( C O N D
0115000 ( ( < ( L E N G T H A R G S
0115020 ) 2 ) ( C L : E R R O R \r
0115040 " T o o f e w a r g u m e n
0115060 t f o r m s t o a S H I
0115100 F T F . " ) ) ( T N I L ) )
0115120 ( L E T ( ( L E F T M O S T
0115140 ( G E N S Y M ) ) ) ( C L :
0115160 D O ( ( A A R G S ( C D R
0115200 A ) ) ( \r L E T - L I S T
0115220 N I L ) ( S E T F - L I S T
0115240 N I L ) ( N E X T - V A R L
0115260 E F T M O S T ) ) ( ( C L : A
0115300 T O M ( C D R A ) ) ( P U
0115320 S H L E T - L I S T ( L I S
0115340 T N E X T - V A R ( \r C A R
0115360 A ) ) ) ( B Q U O T E ( L
0115400 E T * ( \ , ( N R E V E R S
0115420 E L E T - L I S T ) ) ( \ ,
0115440 @ ( N R E V E R S E S E T F
0115460 - L I S T ) ) ( \ , L E F T
0115500 M O S T ) ) ) ) ( \r M U L T I
0115520 P L E - V A L U E - B I N D (
0115540 D U M M I E S V A L S N E W
0115560 V A L S E T T E R G E T T E
0115600 R ) ( G E T - S E T F - M E T
0115620 H O D ( C A R A ) ) ( D O
0115640 * ( ( D D U M M I E S ( \r
0115660 C D R D ) ) ( V V A L S
0115700 ( C D R V ) ) ) ( ( N U L L
0115720 D ) ) ( P U S H L E T - L
0115740 I S T ( L I S T ( C A R D
0115760 ) ( C A R V ) ) ) ) ( P U
0116000 S H L E T - L I S T ( L I S
0116020 T \r N E X T - V A R G E T T
0116040 E R ) ) ( P U S H S E T F -
0116060 L I S T S E T T E R ) ( S E
0116100 T Q N E X T - V A R ( C A R
0116120 N E W V A L ) ) ) ) ) ) \r ( D
0116140 E F M A C R O R O T A T E F
0116160 ( & R E S T A R G S ) \r " T
0116200 a k e s a n y n u m b e r
0116220 o f S E T F - s t y l e p l
0116240 a c e e x p r e s s i o n s .
0116260 E v a l u a t e s a l l
0116300 o f t h e \r e x p r e s s
0116320 i o n s i n t u r n , t h
0116340 e n a s s i g n s t o e a
0116360 c h p l a c e t h e v a l
0116400 u e o f t h e f o r m t
0116420 o \r i t s r i g h t .
0116440 T h e r i g h t m o s t f o
0116460 r m g e t s t h e v a l u
0116500 e o f t h e l e f t m o s
0116520 t . R e t u r n s N I L .
0116540 " ( C O N D ( ( N U L L A
0116560 R G S ) N I L \r ) ( ( N U L
0116600 L ( C D R A R G S ) ) ( B
0116620 Q U O T E ( P R O G N ( \ ,
0116640 ( C A R A R G S ) ) N I L
0116660 ) ) ) ( T ( C L : D O ( (
0116700 A A R G S ( C D R A ) )
0116720 ( L E T - L I S T N I L ) \r
0116740 ( S E T F - L I S T N I L )
0116760 ( N E X T - V A R N I L ) (
0117000 F I X - M E N I L ) ) ( ( C
0117020 L : A T O M A ) ( R P L A C
0117040 A F I X - M E N E X T - V A
0117060 R ) ( B Q U O T E ( L E T *
0117100 ( \ , ( \r N R E V E R S E
0117120 L E T - L I S T ) ) ( \ , @
0117140 ( N R E V E R S E S E T F - L
0117160 I S T ) ) N I L ) ) ) ( M U
0117200 L T I P L E - V A L U E - B I N
0117220 D ( D U M M I E S V A L S
0117240 N E W V A L S E T T E R \r G
0117260 E T T E R ) ( G E T - S E T F
0117300 - M E T H O D ( C A R A ) )
0117320 ( C L : D O ( ( D D U M M
0117340 I E S ( C D R D ) ) ( V
0117360 V A L S ( C D R V ) ) ) (
0117400 ( N U L L D ) ) ( p u s h
0117420 \r L E T - L I S T ( L I S T
0117440 ( C A R D ) ( C A R V ) )
0117460 ) ) ( p u s h L E T - L I S
0117500 T ( L I S T N E X T - V A R
0117520 G E T T E R ) ) ( * \r "
0117540 W e d o n ' t k n o w t h
0117560 e n e w v a l v a r i a b l
0117600 e f o r t h e l a s t f
0117620 o r m y e t , " * ) ( *
0117640 \r " s o f a k e i t f o
0117660 r t h e f i r s t g e t t
0117700 e r a n d f i x i t a t
0117720 t h e e n d . " * ) ( C
0117740 O N D ( ( N O T F I X - M E
0117760 ) ( S E T Q F I X - M E (
0120000 C A R \r L E T - L I S T ) ) )
0120020 ) ( p u s h S E T F - L I S
0120040 T S E T T E R ) ( S E T Q
0120060 N E X T - V A R ( C A R N E
0120100 W V A L ) ) ) ) ) ) ) \r ( D E F
0120120 M A C R O D E F I N E - M O D
0120140 I F Y - M A C R O ( N A M E
0120160 L A M B D A - L I S T F U N C
0120200 T I O N & O P T I O N A L D
0120220 O C - S T R I N G ) \r " C r e
0120240 a t e s a n e w r e a d -
0120260 m o d i f y - w r i t e m a c
0120300 r o l i k e P U S H o r
0120320 I N C F . " ( L E T ( ( O T
0120340 H E R - A R G S N I L ) ( R
0120360 E S T - A R G N I L ) ) ( *
0120400 \r " P a r s e o u t t h
0120420 e v a r i a b l e n a m e s
0120440 a n d r e s t a r g f r
0120460 o m t h e l a m b d a l i
0120500 s t . " * ) ( C L : D O (
0120520 ( L L L A M B D A - L I S T
0120540 ( C D R L L ) \r ) ( A R G
0120560 N I L ) ) ( ( N U L L L L )
0120600 ) ( S E T Q A R G ( C A R
0120620 L L ) ) ( C O N D ( ( E Q
0120640 A R G ( Q U O T E & O P T
0120660 I O N A L ) ) ) ( ( E Q A R
0120700 G ( Q U O T E & R E S T ) \r
0120720 ) ( C O N D ( ( S Y M B O L
0120740 P ( C A D R L L ) ) ( S E
0120760 T Q R E S T - A R G ( C A D
0121000 R L L ) ) ) ( T ( C L : E
0121020 R R O R \r " N o n - s y m b o
0121040 l & r e s t a r g i n d
0121060 e f i n i t i o n o f ~ S .
0121100 " N A M E ) ) ) ( C O N D
0121120 ( ( N U L L ( C D D R L L )
0121140 ) ( R E T U R N N I L ) )
0121160 ( T ( C L : E R R O R \r " I
0121200 l l e g a l s t u f f a f t
0121220 e r & r e s t a r g i n
0121240 D e f i n e - M o d i f y - M a
0121260 c r o . " ) ) ) ) ( ( M E M Q
0121300 A R G ( Q U O T E ( & K E
0121320 Y & A L L O W - O T H E R - K
0121340 E Y S \r & A U X ) ) ) ( C L
0121360 : E R R O R " ~ S n o t a
0121400 l l o w e d i n D e f i n e
0121420 - M o d i f y - M a c r o l a
0121440 m b d a l i s t . " A R G )
0121460 ) ( ( S Y M B O L P A R G )
0121500 ( P U S H \r O T H E R - A R
0121520 G S A R G ) ) ( ( A N D (
0121540 L I S T P A R G ) ( S Y M B
0121560 O L P ( C A R A R G ) ) )
0121600 ( P U S H O T H E R - A R G S
0121620 ( C A R A R G ) ) ) ( T
0121640 ( C L : E R R O R \r " I l l e
0121660 g a l s t u f f i n l a m
0121700 b d a l i s t o f D e f i
0121720 n e - M o d i f y - M a c r o .
0121740 " ) ) ) ) ( S E T Q O T H E
0121760 R - A R G S ( N R E V E R S E
0122000 O T H E R - A R G S ) ) ( \r
0122020 B Q U O T E ( D E F M A C R O
0122040 ( \ , N A M E ) ( \ R E F
0122060 E R E N C E ( \ , @ L A M B
0122100 D A - L I S T ) ) ( \ , D O
0122120 C - S T R I N G ) ( M U L T I
0122140 P L E - V A L U E - B I N D (
0122160 \r D U M M I E S V A L S N E
0122200 W V A L S E T T E R G E T T
0122220 E R ) ( G E T - S E T F - M E
0122240 T H O D \ R E F E R E N C E )
0122260 ( C L : D O ( ( D D U M M
0122300 I E S ( C D R D ) ) ( V
0122320 V A L S ( \r C D R V ) ) (
0122340 L E T - L I S T N I L ( C O
0122360 N S ( L I S T ( C A R D )
0122400 ( C A R V ) ) L E T - L I
0122420 S T ) ) ) ( ( N U L L D )
0122440 ( P U S H L E T - L I S T (
0122460 L I S T ( C A R \r N E W V A
0122500 L ) ( \ , ( C O N D ( R E
0122520 S T - A R G ( B Q U O T E (
0122540 L I S T * ( Q U O T E ( \ ,
0122560 F U N C T I O N ) ) G E T T
0122600 E R ( \ , @ O T H E R - A R
0122620 G S ) ( \ , R E S T - A R G
0122640 ) \r ) ) ) ( T ( B Q U O T E
0122660 ( L I S T ( Q U O T E ( \
0122700 , F U N C T I O N ) ) G E T
0122720 T E R ( \ , @ O T H E R - A
0122740 R G S ) ) ) ) ) ) ) ) ( B Q U
0122760 O T E ( L E T * ( \ , ( N
0123000 R E V E R S E \r L E T - L I S
0123020 T ) ) ( \ , S E T T E R ) )
0123040 ) ) ) ) ) ) ) ) \r ( D E F M A C
0123060 R O P U T F ( P L A C E I
0123100 N D I C A T O R V A L U E )
0123120 \r " P l a c e m a y b e a
0123140 n y p l a c e e x p r e s s
0123160 i o n a c c e p t a b l e t
0123200 o S E T F , a n d i s e
0123220 x p e c t e d \r t o h o l
0123240 d a p r o p e r t y l i s
0123260 t o r ( ) . T h i s l
0123300 i s t i s d e s t r u c t i
0123320 v e l y a l t e r e d s o \r
0123340 t h a t ( G E T F p l a
0123360 c e i n d i c a t o r ) w i
0123400 l l f i n d t h e s p e c
0123420 i f i e d n e w v a l u e .
0123440 R e t u r n s \r t h e n
0123460 e w v a l u e . " ( M U L T
0123500 I P L E - V A L U E - B I N D
0123520 ( D U M M I E S V A L S N E
0123540 W V A L S E T T E R G E T T
0123560 E R ) ( G E T - S E T F - M E
0123600 T H O D P L A C E ) ( \r D O
0123620 * ( ( D D U M M I E S ( C
0123640 D R D ) ) ( V V A L S (
0123660 C D R V ) ) ( L E T - L I S
0123700 T N I L ) ( I N D - T E M P
0123720 ( G E N S Y M ) ) ( V A L -
0123740 T E M P ( G E N S Y M ) ) )
0123760 ( ( \r N U L L D ) ( P U S H
0124000 L E T - L I S T ( L I S T
0124020 ( C A R N E W V A L ) G E T
0124040 T E R ) ) ( P U S H L E T -
0124060 L I S T ( L I S T I N D - T
0124100 E M P I N D I C A T O R ) )
0124120 ( P U S H \r L E T - L I S T
0124140 ( L I S T V A L - T E M P V
0124160 A L U E ) ) ( B Q U O T E (
0124200 L E T * ( \ , ( N R E V E R
0124220 S E L E T - L I S T ) ) ( S
0124240 E T Q ( \ , ( C A R N E W
0124260 V A L ) ) ( \r \ P R I M I T I
0124300 V E P U T F ( \ , ( C A R
0124320 N E W V A L ) ) ( \ , I N
0124340 D - T E M P ) ( \ , V A L -
0124360 T E M P ) ) ) ( \ , S E T T
0124400 E R ) ( \ , V A L - T E M P
0124420 ) ) ) ) ( P U S H \r L E T -
0124440 L I S T ( L I S T ( C A R
0124460 D ) ( C A R V ) ) ) ) ) ) \r
0124500 ( D E F M A C R O R E M F (
0124520 P L A C E I N D I C A T O R )
0124540 \r " P l a c e m a y b e
0124560 a n y p l a c e e x p r e s
0124600 s i o n a c c e p t a b l e
0124620 t o S E T F , a n d i s
0124640 e x p e c t e d \r t o h o
0124660 l d a p r o p e r t y l i
0124700 s t o r ( ) . T h i s
0124720 l i s t i s d e s t r u c t
0124740 i v e l y a l t e r e d t o
0124760 \r r e m o v e t h e p r
0125000 o p e r t y s p e c i f i e d
0125020 b y t h e i n d i c a t o
0125040 r . R e t u r n s T i f
0125060 s u c h a \r p r o p e r
0125100 t y w a s p r e s e n t ,
0125120 N I L i f n o t . " ( M U
0125140 L T I P L E - V A L U E - B I N
0125160 D ( D U M M I E S V A L S
0125200 N E W V A L S E T T E R G E
0125220 T T E R ) ( \r G E T - S E T F
0125240 - M E T H O D P L A C E ) (
0125260 D O * ( ( D D U M M I E S
0125300 ( C D R D ) ) ( V V A L S
0125320 ( C D R V ) ) ( L E T - L
0125340 I S T N I L ) ( I N D - T E
0125360 M P ( G E N S Y M ) ) ( \r L
0125400 O C A L 1 ( G E N S Y M ) )
0125420 ( L O C A L 2 ( G E N S Y M )
0125440 ) ) ( ( N U L L D ) ( P U
0125460 S H L E T - L I S T ( L I S
0125500 T ( C A R N E W V A L ) G
0125520 E T T E R ) ) ( P U S H \r L
0125540 E T - L I S T ( L I S T I N
0125560 D - T E M P I N D I C A T O R
0125600 ) ) ( B Q U O T E ( L E T *
0125620 ( \ , ( N R E V E R S E L
0125640 E T - L I S T ) ) ( C L : D O
0125660 ( ( ( \ , L O C A L 1 ) (
0125700 \ , ( \r C A R N E W V A L )
0125720 ) ( C D D R ( \ , L O C A
0125740 L 1 ) ) ) ( ( \ , L O C A L
0125760 2 ) N I L ( \ , L O C A L
0126000 1 ) ) ) ( ( C L : A T O M (
0126020 \ , L O C A L 1 ) ) N I L )
0126040 ( C O N D ( ( \r C L : A T O
0126060 M ( C D R ( \ , L O C A L
0126100 1 ) ) ) ( C L : E R R O R "
0126120 O d d - l e n g t h p r o p e
0126140 r t y l i s t i n R E M F
0126160 . " ) ) ( ( E Q ( C A R (
0126200 \ , L O C A L 1 ) ) ( \ ,
0126220 \r I N D - T E M P ) ) ( C O N
0126240 D ( ( \ , L O C A L 2 ) (
0126260 R P L A C D ( C D R ( \ ,
0126300 L O C A L 2 ) ) ( C D D R (
0126320 \ , L O C A L 1 ) ) ) ( R E
0126340 T U R N T ) ) ( T ( S E T
0126360 Q ( \ , ( \r C A R N E W V
0126400 A L ) ) ( C D D R ( \ , (
0126420 C A R N E W V A L ) ) ) ) (
0126440 \ , S E T T E R ) ( R E T U
0126460 R N T ) ) ) ) ) ) ) ) ) ( P
0126500 U S H L E T - L I S T ( L I
0126520 S T ( C A R D ) ( \r C A R
0126540 V ) ) ) ) ) ) \r ( D E F M A C
0126560 R O C A S E ( & W H O L E
0126600 F O R M ) ( L E T ( ( K V
0126620 ( G E N S Y M ) ) ( C L A U S
0126640 E S N I L ) ) ( C L : D O
0126660 ( ( C ( C D D R F O R M )
0126700 ( C D R C ) ) ) ( ( \r C L :
0126720 A T O M C ) ) ( C O N D (
0126740 ( C L : A T O M ( C A R C )
0126760 ) ( C L : E R R O R " ~ S
0127000 - - B a d c l a u s e i n
0127020 C A S E . " ( C A R C ) )
0127040 ) ( ( M E M Q ( C A A R C
0127060 ) ( \r Q U O T E ( T O T H
0127100 E R W I S E ) ) ) ( p u s h
0127120 C L A U S E S ( B Q U O T E
0127140 ( T ( \ , @ ( C D A R C )
0127160 ) ) ) ) ( R E T U R N N I L
0127200 ) ) ( ( N U L L ( C A A R
0127220 C ) ) ( p u s h \r C L A U S
0127240 E S ( B Q U O T E ( ( N U L
0127260 L ( \ , K V ) ) ( \ , @
0127300 ( C D A R C ) ) ) ) ) ) ( (
0127320 N O T ( L I S T P ( C A A R
0127340 C ) ) ) ( ; ; ; \r " N o
0127360 t e - - s p e c i a l h a
0127400 c k i n M a c l i s p t o
0127420 m a k e c h a r s a n d
0127440 o t h e r " ; ; ; ) ( ; ; ;
0127460 \r " f a k e t y p e s n
0127500 o t b e L I S T P , l e a
0127520 v i n g o n l y t r u e l
0127540 i s t s . " ; ; ; ) ( p u s
0127560 h C L A U S E S ( B Q U O T
0127600 E ( ( E Q L ( Q U O T E (
0127620 \ , ( C A A R \r C ) ) ) (
0127640 \ , K V ) ) ( \ , @ ( C D
0127660 A R C ) ) ) ) ) ) ( T ( p
0127700 u s h C L A U S E S ( B Q U
0127720 O T E ( ( O R ( \ , @ ( C
0127740 L : D O ( ( X ( C A A R C
0127760 ) ( C D R X ) ) ( Y \r N
0130000 I L ) ) ( ( C L : A T O M X
0130020 ) ( N R E V E R S E Y ) )
0130040 ( p u s h Y ( B Q U O T E
0130060 ( E Q L ( Q U O T E ( \ ,
0130100 ( C A R X ) ) ) ( \ , K V
0130120 ) ) ) ) ) ) ) ( \ , @ ( C D
0130140 A R C ) \r ) ) ) ) ) ) ) ( B
0130160 Q U O T E ( L E T ( ( ( \ ,
0130200 K V ) ( \ , ( C A D R F
0130220 O R M ) ) ) ) ( C O N D ( \
0130240 , @ ( N R E V E R S E C L A
0130260 U S E S ) ) ) ) ) ) ) \r ( D E F
0130300 M A C R O T Y P E C A S E (
0130320 K E Y F O R M & R E S T F O
0130340 R M S ) \r " T y p e d i s p
0130360 a t c h , o r d e r i s i
0130400 m p o r t a n t , m o r e s
0130420 p e c i f i c t y p e s s h
0130440 o u l d a p p e a r f i r s
0130460 t " ( B Q U O T E ( L E T
0130500 ( ( \r $ $ T Y P E - V A L U E
0130520 , K E Y F O R M ) ) ( C O N
0130540 D . , ( C L : M A P C A R
0130560 ( F U N C T I O N ( L A M B D
0130600 A ( F O R M ) ( L E T ( (
0130620 T Y P E ( C A R F O R M ) )
0130640 ( F O R M ( \r C D R F O R
0130660 M ) ) ) ( B Q U O T E ( ( T
0130700 Y P E P $ $ T Y P E - V A L U
0130720 E ( Q U O T E , T Y P E )
0130740 ) . , F O R M ) ) ) ) ) F
0130760 O R M S ) ) ) ) ) \r ( D E F M A
0131000 C R O E C A S E ( & W H O L
0131020 E F O R M ) ( L E T ( ( K
0131040 V ( G E N S Y M ) ) ( C L A
0131060 U S E S N I L ) ) ( C L : D
0131100 O ( ( C ( C D D R F O R M
0131120 ) ( C D R C ) ) ( K E Y S
0131140 \r N I L ( A P P E N D ( C
0131160 O N D ( ( C L : A T O M ( C
0131200 A A R C ) ) ( L I S T ( C
0131220 A A R C ) ) ) ( T ( C A A
0131240 R C ) ) ) K E Y S ) ) ) (
0131260 ( C L : A T O M C ) ( P U S
0131300 H \r C L A U S E S ( B Q U O
0131320 T E ( T ( C L : E R R O R
0131340 " E c a s e k e y m u s t
0131360 b e o n e o f ~ S " ( Q
0131400 U O T E ( \ , K E Y S ) ) )
0131420 ) ) ) ) ( C O N D ( ( C L :
0131440 A T O M ( C A R \r C ) ) (
0131460 C L : E R R O R ( Q U O T E
0131500 : B A D - M A C R O - F O R M A
0131520 T ) " ~ S - - B a d c l
0131540 a u s e i n E C A S E . "
0131560 ( C A R C ) ) ) ( ( M E M Q
0131600 ( C A A R C ) ( Q U O T E
0131620 \r ( T O T H E R W I S E ) )
0131640 ) ( C L : E R R O R " T o
0131660 r O t h e r w i s e c l a u
0131700 s e i s n o t p e r m i t
0131720 t e d i n E C A S E . " ) )
0131740 ( ( C L : A T O M ( C A A R
0131760 C ) ) ( \r P U S H C L A U
0132000 S E S ( B Q U O T E ( ( E Q
0132020 L ( \ , K V ) ( Q U O T E
0132040 ( \ , ( C A A R C ) ) ) )
0132060 ( \ , @ ( C D A R C ) ) )
0132100 ) ) ) ( T ( P U S H C L A
0132120 U S E S ( B Q U O T E \r ( (
0132140 O R ( \ , @ ( C L : D O (
0132160 ( X ( C A A R C ) ( C D R
0132200 X ) ) ( Y N I L ) ) ( (
0132220 C L : A T O M X ) ( N R E V
0132240 E R S E Y ) ) ( P U S H Y
0132260 ( B Q U O T E ( E Q L ( \
0132300 , K V \r ) ( Q U O T E ( \
0132320 , ( C A R X ) ) ) ) ) ) ) )
0132340 ) ( \ , @ ( C D A R C ) )
0132360 ) ) ) ) ) ) ( B Q U O T E (
0132400 L E T ( ( ( \ , K V ) ( \
0132420 , ( C A D R F O R M ) ) ) )
0132440 ( C O N D ( \ , @ \r ( N R
0132460 E V E R S E C L A U S E S ) )
0132500 ) ) ) ) ) \r ( D E F M A C R O
0132520 E T Y P E C A S E ( & W H O L
0132540 E F O R M ) ( L E T ( ( K
0132560 V ( G E N S Y M ) ) ( C L A
0132600 U S E S N I L ) ) ( C L : D
0132620 O ( ( C ( C D D R F O R M
0132640 ) ( C D R C ) ) ( \r K E Y
0132660 S N I L ( C O N S ( C A A
0132700 R C ) K E Y S ) ) ) ( ( C
0132720 L : A T O M C ) ( P U S H
0132740 C L A U S E S ( B Q U O T E
0132760 ( T ( C L : E R R O R \r " E
0133000 t y p e c a s e k e y m u s
0133020 t b e o n e o f t h e s
0133040 e t y p e s : ~ S " ( Q U
0133060 O T E ( \ , K E Y S ) ) ) )
0133100 ) ) ) ( C O N D ( ( C L : A
0133120 T O M C ) ( C L : E R R O R
0133140 \r " ~ S - - B a d c l a
0133160 u s e i n C A S E . " ( C
0133200 A R C ) ) ) ( ( M E M Q (
0133220 C A A R C ) ( Q U O T E (
0133240 T O T H E R W I S E ) ) ) (
0133260 C L : E R R O R \r " T o r
0133300 O t h e r w i s e c l a u s e
0133320 i s n o t p e r m i t t e
0133340 d i n E T Y P E C A S E . "
0133360 ) ) ( T ( P U S H C L A U
0133400 S E S ( B Q U O T E ( ( T Y
0133420 P E P ( \ , K V ) ( \r Q U
0133440 O T E ( \ , ( C A A R C )
0133460 ) ) ) ( \ , @ ( C D A R C
0133500 ) ) ) ) ) ) ) ) ( B Q U O T E
0133520 ( L E T ( ( ( \ , K V )
0133540 ( \ , ( C A D R F O R M ) )
0133560 ) ) ( C O N D ( \ , @ ( \r
0133600 N R E V E R S E C L A U S E S
0133620 ) ) ) ) ) ) ) \r ( D E F M A C R
0133640 O W I T H - O P E N - F I L E
0133660 ( B I N D S P E C & R E S T
0133700 F O R M S ) \r " B i n d s p
0133720 e c i s o f t h e f o r
0133740 m ( S t r e a m F i l e - N
0133760 a m e . O p t i o n s ) .
0134000 T h e f i l e w h o s e
0134020 n a m e \r i s F i l e - N
0134040 a m e i s o p e n e d u s
0134060 i n g t h e O p t i o n s
0134100 a n d b o u n d t o t h e
0134120 v a r i a b l e S t r e a m
0134140 . \r T h e F o r m s a r
0134160 e e x e c u t e d , a n d
0134200 w h e n t h e y t e r m i n
0134220 a t e , n o r m a l l y o r
0134240 o t h e r w i s e , \r t h
0134260 e f i l e i s c l o s e d
0134300 . " ( B Q U O T E ( L E T
0134320 ( ( ( \ , ( C A R B I N D S
0134340 P E C ) ) ( O P E N ( \ , @
0134360 ( C D R B I N D S P E C ) )
0134400 ) ) ) ( \r U N W I N D - P R O
0134420 T E C T ( P R O G N ( \ , @
0134440 F O R M S ) ) ( C L O S E
0134460 ( \ , ( C A R B I N D S P E
0134500 C ) ) ) ) ) ) ) \r ( D E F M A C
0134520 R O W I T H - O P E N - S T R
0134540 E A M ( ( V A R S T R E A M
0134560 ) . B O D Y ) ( C L : D O
0134600 ( ( F O R M S B O D Y ( C
0134620 D R F O R M S ) ) ( D E C L
0134640 A R A T I O N S N I L ) ) \r
0134660 ( ( N O T ( A N D ( L I S T
0134700 P ( C A R F O R M S ) ) (
0134720 E Q ( C A A R F O R M S )
0134740 ( Q U O T E C L : D E C L A R
0134760 E ) ) ) ) ( L E T ( ( T E M
0135000 P ( G E N S Y M ) ) ) ( B Q
0135020 U O T E ( \r L E T ( ( ( \ ,
0135040 V A R ) ( \ , S T R E A M
0135060 ) ) ( \ , T E M P ) ) ( \
0135100 , @ D E C L A R A T I O N S )
0135120 ( U N W I N D - P R O T E C T
0135140 ( S E T Q ( \ , T E M P )
0135160 ( P R O G N ( \ , @ \r F O
0135200 R M S ) ) ) ( C L O S E ( \
0135220 , V A R ) ) ) ( \ , T E M
0135240 P ) ) ) ) ) ) ) \r ( D E F M A C
0135260 R O W I T H - I N P U T - F R
0135300 O M - S T R I N G ( ( V A R
0135320 S T R I N G & K E Y I N D E
0135340 X S T A R T E N D ) . B
0135360 O D Y ) \r " B i n d s t h e
0135400 V a r t o a n i n p u t
0135420 s t r e a m t h a t r e t
0135440 u r n s c h a r a c t e r s
0135460 f r o m S t r i n g a n d \r
0135500 e x e c u t e s t h e b
0135520 o d y . S e e m a n u a l
0135540 f o r d e t a i l s . " (
0135560 C L : D O ( ( F O R M S B O
0135600 D Y ( C D R F O R M S ) )
0135620 ( D E C L A R A T I O N S N I
0135640 L ) ) ( ( \r N O T ( A N D
0135660 ( L I S T P ( C A R F O R M
0135700 S ) ) ( E Q ( C A A R F O
0135720 R M S ) ( Q U O T E C L : D
0135740 E C L A R E ) ) ) ) ( L E T
0135760 ( ( T E M P ( G E N S Y M ) )
0136000 ) ( B Q U O T E ( \r L E T
0136020 ( ( ( \ , V A R ) ( \ , (
0136040 C O N D ( E N D ( B Q U O T
0136060 E ( M A K E - S T R I N G - I
0136100 N P U T - S T R E A M ( \ ,
0136120 S T R I N G ) ( \ , ( O R
0136140 S T A R T 0 ) ) ( \ , E N
0136160 D ) \r ) ) ) ( T ( B Q U O T
0136200 E ( M A K E - S T R I N G - I
0136220 N P U T - S T R E A M ( \ ,
0136240 S T R I N G ) ( \ , ( O R
0136260 S T A R T 0 ) ) ) ) ) ) ) )
0136300 ( \ , T E M P ) ) ( \ , @
0136320 \r D E C L A R A T I O N S ) (
0136340 U N W I N D - P R O T E C T (
0136360 S E T Q ( \ , T E M P ) (
0136400 P R O G N ( \ , @ F O R M S
0136420 ) ) ) ( C L O S E ( \ , V
0136440 A R ) ) ( \ , @ ( C O N D
0136460 ( I N D E X \r ( B Q U O T E
0136500 ( ( S E T F ( \ , I N D E X
0136520 ) ( S T R E A M - I N P U T -
0136540 S T R I N G - C U R R E N T (
0136560 \ , V A R ) ) ) ) ) ) ( T
0136600 N I L ) ) ) ) ( \ , T E M P
0136620 ) ) ) ) ) ) ) \r ( D E F M A C R
0136640 O W I T H - O U T P U T - T O
0136660 - S T R I N G ( ( V A R & O
0136700 P T I O N A L S T R I N G )
0136720 . B O D Y ) \r " B i n d s
0136740 t h e V a r t o a s t r
0136760 i n g o u t p u t s t r e a
0137000 m t h a t p u t s c h a r
0137020 a c t e r s i n t o S t r i
0137040 n g \r a n d e x e c u t e
0137060 s t h e b o d y . S e e
0137100 m a n u a l f o r d e t a
0137120 i l s . " ( C L : D O ( ( F
0137140 O R M S B O D Y ( C D R F
0137160 O R M S ) ) ( D E C L A R A T
0137200 I O N S N I L ) \r ) ( ( N O
0137220 T ( A N D ( L I S T P ( C
0137240 A R F O R M S ) ) ( E Q (
0137260 C A A R F O R M S ) ( Q U O
0137300 T E C L : D E C L A R E ) ) )
0137320 ) ( C O N D ( S T R I N G
0137340 ( L E T ( ( T E M P ( \r G E
0137360 N S Y M ) ) ) ( B Q U O T E
0137400 ( L E T ( ( ( \ , V A R )
0137420 ( M A K E - F I L L - P O I N T
0137440 E R - O U T P U T - S T R E A M
0137460 ( \ , S T R I N G ) ) ) (
0137500 \ , T E M P ) ) ( \ , @ \r
0137520 D E C L A R A T I O N S ) ( U
0137540 N W I N D - P R O T E C T ( S
0137560 E T Q ( \ , T E M P ) ( P
0137600 R O G N ( \ , @ F O R M S )
0137620 ) ) ( C L O S E ( \ , V A
0137640 R ) ) ) ( \ , T E M P ) ) )
0137660 ) ) ( T \r ( B Q U O T E (
0137700 L E T ( ( ( \ , V A R ) (
0137720 M A K E - S T R I N G - O U T P
0137740 U T - S T R E A M ) ) ) ( \ ,
0137760 @ D E C L A R A T I O N S )
0140000 ( U N W I N D - P R O T E C T
0140020 ( P R O G N ( \ , @ \r F O R
0140040 M S ) ) ( C L O S E ( \ ,
0140060 V A R ) ) ) ( G E T - O U T P
0140100 U T - S T R E A M - S T R I N G
0140120 ( \ , V A R ) ) ) ) ) ) ) )
0140140 ) \r ( D E F M A C R O L O C A
0140160 L L Y ( & R E S T F O R M S
0140200 ) " A f o r m p r o v i d
0140220 i n g a c o n t a i n e r
0140240 f o r l o c a l l y - s c o p
0140260 e d v a r i a b l e s . " (
0140300 B Q U O T E ( \r L E T N I L
0140320 ( \ , @ F O R M S ) ) ) ) \r
0140340 ( D E F M A C R O L O O P (
0140360 & R E S T B O D Y ) \r " E x
0140400 e c u t e s t h e b o d y
0140420 r e p e a t e d l y u n t i l
0140440 t h e f o r m i s e x i
0140460 t e d b y a T h r o w o
0140500 r \r R e t u r n . T h e
0140520 b o d y i s s u r r o u n
0140540 d e d b y a n i m p l i c
0140560 i t b l o c k w i t h n a
0140600 m e N I L . " ( L E T ( (
0140620 T A G ( G E N S Y M ) ) ) (
0140640 B Q U O T E ( \r C L : B L O C
0140660 K N I L ( T A G B O D Y (
0140700 \ , T A G ) ( \ , @ B O D
0140720 Y ) ( G O ( \ , T A G ) )
0140740 ) ) ) ) ) \r ( D E F M A C R O
0140760 I N C F ( \ R E F E R E N C E
0141000 & O P T I O N A L ( D E L T
0141020 A 1 ) ) \r " T h e f i r s
0141040 t a r g u m e n t i s s o
0141060 m e l o c a t i o n h o l d
0141100 i n g a n u m b e r . T
0141120 h i s n u m b e r i s \r
0141140 i n c r e m e n t e d b y t
0141160 h e s e c o n d a r g u m e
0141200 n t , D E L T A , w h i c h
0141220 d e f a u l t s t o 1 . "
0141240 ( M U L T I P L E - V A L U E
0141260 - B I N D ( D U M M I E S V
0141300 A L S \r N E W V A L S E T T
0141320 E R G E T T E R ) ( G E T -
0141340 S E T F - M E T H O D \ R E F
0141360 E R E N C E ) ( C L : D O (
0141400 ( D D U M M I E S ( C D R
0141420 D ) ) ( V V A L S ( C D R
0141440 V ) ) ( \r L E T - L I S T
0141460 N I L ( C O N S ( L I S T
0141500 ( C A R D ) ( C A R V ) )
0141520