$ od -c -N 50000 [phylum]<LISP>KOTO>Library>CMLSPECIALFORMS.DCOM!1 0000000 ( F I L E C R E A T E D " 2 3 0000020 - O c t - 8 5 1 1 : 5 3 : 3 0 0000040 " ( " c o m p i l e d o n 0000060 " { E R I S } < F I S C H E R 0000100 > L I B R A R Y > C M L S P E C 0000120 I A L F O R M S . ; 6 ) \r " 1 0000140 9 - O c t - 8 5 2 2 : 1 4 : 5 0000160 8 " t c o m p l ' d i n " 0000200 I N T E R L I S P - D 1 5 - O 0000220 c t - 8 5 . . . " d a t e d 0000240 " 1 5 - O c t - 8 5 0 8 : 2 0000260 5 : 4 7 " ) \r ( F I L E C R E A 0000300 T E D " 2 3 - O c t - 8 5 1 0000320 1 : 5 0 : 1 5 " { E R I S } < 0000340 F I S C H E R > L I B R A R Y > 0000360 C M L S P E C I A L F O R M S . 0000400 ; 6 4 0 3 9 2 c h a n g e s 0000420 t o : ( F N S \r C M L R D 0000440 T B L C O N S P C L : A P P 0000460 L Y C L : L E N G T H ) ( M 0000500 A C R O S C O P Y - L I S T 0000520 C L : A P P L Y C L : M E M B 0000540 E R D O T I M E S C L : P U 0000560 S H ) ( V A R S \r C M L S P 0000600 E C I A L F O R M S C O M S ) 0000620 p r e v i o u s d a t e : " 0000640 8 - O c t - 8 5 1 4 : 3 8 : 0000660 0 3 " { E R I S } < F I S C H 0000700 E R > L I B R A R Y > C M L S P 0000720 E C I A L F O R M S . ; 1 ) \r C 0000740 L : E Q U A L D 1 \r ( I 1 0000760 Y I 0 X ) \0 8 \0 \0 \0 002 @ 0001000 A 360 265 3 @ d 003 262 033 277 A 003 264 ) @ 001 0001020 A 001 \n \0 \0 264 @ 002 A 002 b 002 277 b \0 0001040 260 340 A : 265 021 @ 005 \a 264 \f A 005 \a 264 \a 0001060 @ A \n \0 \0 020 \0 ( 6 5 Q S T R E 0001100 Q U A L 2 5 Q C L : E Q U A 0001120 L ) \r N I L \r ( ) \r C L : L E N 0001140 G T H D 1 \r ( L ( 0 S E Q 0001160 ) ) \0 ? \0 \0 \0 001 @ d \t \0 \0 g \0 0001200 \0 360 225 277 @ \t \0 \0 020 003 224 @ \t \0 \0 020 0001220 @ d 004 l \a 360 223 \t \0 \0 020 004 ` \0 \0 360 0001240 234 @ \t \0 \0 k 360 225 @ j \n \0 \0 020 o \0 0001260 \0 \0 @ \n \0 \0 020 \0 ( 7 4 Q E R R 0001300 O R 6 3 Q A R R A Y - D I M 0001320 E N S I O N 5 3 Q A R R A Y 0001340 - R A N K 4 0 Q N C H A R S 0001360 2 5 Q L E N G T H 1 6 Q 0001400 A R R A Y S I Z E 4 T Y P E 0001420 N A M E ) \r ( 4 5 Q 004 003 A R R 0001440 A Y T Y P E # 7 A R R A Y P 0001460 ) \r ( 7 0 Q " N o t a s 0001500 e q u e n c e " ) \r F B O U N D 0001520 P D 1 \r ( L ( 0 X ) ) \0 0001540 017 \0 \0 \0 001 @ \t \0 \0 246 @ g \0 \0 033 264 0001560 003 i 020 \0 ( 3 \ D E F I N E D P 0001600 ) \r ( 1 0 Q M A C R O ) \r ( ) 0001620 \r E Q U A L P D 1 \r ( I 1 0001640 Y I 0 X ) \0 G \0 \0 \0 002 @ 0001660 A 360 265 B @ d 003 262 033 277 A 003 264 8 @ 001 0001700 A 001 \n \0 \0 264 / @ 002 A 002 b 002 277 b \0 0001720 260 340 3 020 232 A 3 020 264 034 @ A \n \0 \0 020 0001740 @ A : 265 021 @ 005 \a 264 \f A 005 \a 264 \a @ 0001760 A \n \0 \0 020 \0 ( 1 0 4 Q S T R I 0002000 N G - E Q U A L 5 7 Q % % = 0002020 2 5 Q E Q U A L P ) \r N I L 0002040 \r ( ) \r M A C R O E X P A N D - 0002060 1 D 1 \r ( L ( 0 \ C L : L 0002100 A M B D A . A R G C N T ) P 0002120 3 E N V P 2 E N V - P 0002140 P 1 F O R M ) \0 ? 004 \0 002 \0 0002160 e 021 001 \0 k H 361 230 o \0 \0 \0 H \n \0 \0 0002200 277 H l 002 361 230 o \0 \0 \0 H \n \0 \0 277 @ 0002220 021 ! 003 l 002 H 361 221 h 202 i 272 A 273 J 227 0002240 o \0 \0 \0 \t \0 \0 277 I i \n \0 \0 020 \0 ( 0002260 7 4 Q E X P A N D M A C R O 0002300 6 6 Q H E L P 3 5 Q E R R 0002320 O R 1 7 Q E R R O R ) \r N I 0002340 L \r ( 6 3 Q " E N V I R O N 0002360 M E N T ? ? " 3 1 Q " T o o 0002400 m a n y a r g s " 1 3 Q 0002420 " T o o f e w a r g s " ) \r 0002440 R A I S E A T S D 1 \r ( I 0 0002460 X F 0 C M L T R A N S L 0002500 A T I O N S ) \0 " \0 001 \0 001 @ d 0002520 004 l 004 360 231 P 026 002 265 006 @ \t \0 \0 020 003 0002540 233 @ 001 \t \0 \0 @ 002 \t \0 \0 032 020 @ 020 \0 0002560 ( 3 4 Q R A I S E A T S 2 7 0002600 Q R A I S E A T S 1 7 Q U 0002620 - C A S E ) \r N I L \r ( ) \r C M 0002640 L T R A N S L A T E D 1 \r ( I 0002660 0 X F 0 C M L T R A N 0002700 S L A T I O N S ) \0 " \0 001 \0 001 0002720 @ d 004 l 004 360 231 P 026 002 265 006 @ \t \0 \0 0002740 020 003 233 @ 001 \t \0 \0 @ 002 \t \0 \0 032 020 @ 0002760 020 \0 ( 3 4 Q C M L T R A N S L 0003000 A T E 2 7 Q C M L T R A N S 0003020 L A T E 1 7 Q U - C A S E ) 0003040 \r N I L \r ( ) \r S P E C I A L - 0003060 F O R M - P D 1 \r ( I 0 X 0003100 ) \0 \v \0 \0 \0 001 @ \t \0 \0 o \0 \0 \0 0003120 034 020 \0 ( 3 A R G T Y P E ) \r N 0003140 I L \r ( 7 ( 1 3 ) ) \r D E 0003160 F C O N S T A N T D 1 \r ( I 0003200 2 D O C I 1 V A L I 0003220 0 V A R ) \0 025 \0 \0 001 003 @ A \t 0003240 \0 \0 \n \0 \0 g \0 \0 @ h 032 032 \t \0 \0 @ 0003260 020 \0 ( 2 1 Q E V A L 7 S E 0003300 T 4 E V A L ) \r ( 1 2 Q C 0003320 O N S T A N T S ) \r ( ) \r E Q L 0003340 D 1 \r ( I 1 Y I 0 X 0003360 ) \0 # \0 \0 \0 002 @ d 3 233 277 A 3 0003400 225 @ A 331 j 360 020 @ 005 003 231 A 005 003 225 0003420 @ A \n \0 \0 020 @ A 360 020 \0 ( 3 4 Q 0003440 F E Q P ) \r N I L \r ( ) \r C L : 0003460 M E M B E R D 1 \r ( L ( 0 0003500 \ C L : M E M B E R . A R G C N 0003520 T ) P 1 5 Q K E Y P 1 0003540 2 Q T E S T - N O T P 7 0003560 T E S T N O T S U P P L I E D 0003600 P 6 T E S T P 3 T E S 0003620 T S U P P L I E D P 2 L I 0003640 S T P 1 I T E M ) \0 330 016 0003660 \0 002 \0 e 021 001 \0 @ A 021 262 \r i 273 H l 0003700 003 275 274 M d L 363 232 277 h d 263 032 273 g \0 0003720 \0 260 025 a g \0 \0 360 224 M k 330 260 356 M l 0003740 002 324 ] 260 341 a 276 i _ 016 277 H l 003 _ 022 0003760 277 _ 020 277 O 022 d O 020 363 230 277 h d 263 033 0004000 _ 016 260 030 a g \0 \0 360 225 O 022 k 330 260 357 0004020 O 022 l 002 324 _ 022 260 337 a _ 024 277 H l 003 0004040 _ 030 277 _ 026 277 O 030 d O 026 363 230 277 h 265 0004060 034 g \0 \0 260 030 a g \0 \0 360 225 O 030 k 330 0004100 260 357 O 030 l 002 324 _ 030 260 337 a _ 032 277 J 0004120 003 264 3 K 236 J 001 k O 032 017 016 I l 002 N 0004140 017 016 260 O 016 262 023 J 001 k O 032 017 016 I 0004160 l 002 O 024 017 016 h 360 210 J 001 k O 032 017 016 0004200 I : 221 J 020 J 002 Z 260 310 \0 N I L \r ( 0004220 2 0 6 Q : K E Y 2 0 0 Q I 0004240 D E N T I T Y 1 2 4 Q : T E 0004260 S T - N O T 4 3 Q : T E S T 0004300 3 5 Q E Q L ) \r ( ) \r C O P 0004320 Y - L I S T D 1 \r ( I 0 L 0004340 ) \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3 0004360 \ A P P E N D 2 ) \r N I L \r ( 0004400 ) \r I D E N T I T Y D 1 \r ( L 0004420 ( 0 X ) ) \0 003 \0 \0 \0 001 @ 020 0004440 \0 N I L \r N I L \r ( ) \r C L : A 0004460 P P L Y D 1 \r ( P 0 N ) 0004500 \0 ( 004 \0 002 \0 e 021 001 \0 @ H a 021 ! 003 0004520 l 002 H k 331 273 272 J K 363 253 K a I 032 271 0004540 K m 377 324 273 260 362 I 022 \n \0 \0 020 \0 ( 4 0004560 5 Q A P P L Y ) \r N I L \r ( ) 0004600 \r I N T E G E R P D 1 \r ( L 0004620 ( 0 X ) ) \0 \b \0 \0 \0 001 @ 3 0004640 264 003 i 020 \0 N I L \r N I L \r ( ) \r 0004660 S Y M B O L P D 1 \r ( L ( 0 0004700 X ) ) \0 \a \0 \0 \0 001 @ 004 l 004 360 0004720 020 \0 N I L \r N I L \r ( ) \r C O N 0004740 S P D 1 \r ( L ( 0 X ) ) 0004760 \0 \f \0 \0 \0 001 @ h 360 265 \a @ 003 264 003 i 0005000 020 \0 N I L \r N I L \r ( ) \r C L : 0005020 L I S T P D 1 \r ( L ( 0 X 0005040 ) ) \0 \f \0 \0 \0 001 @ h 360 265 \a @ 003 0005060 264 003 i 020 \0 N I L \r N I L \r ( ) \r 0005100 D W I M K E Y W O R D D 1 \r ( 0005120 F 0 F A U L T X F 1 F 0005140 A U L T A P P L Y F L G ) \0 032 0005160 \0 002 \0 \0 Q h 360 264 025 P 004 l 004 360 264 016 0005200 P k ) l : 360 264 006 P \t \0 \0 020 \0 ( 2 0005220 7 Q \ M A K E . K E Y W O R D 0005240 ) \r N I L \r ( ) \r D E F U N . D 0005260 E C O D E D 1 \r ( I 3 R E 0005300 A S O N I 2 B O D Y I 0005320 1 A R G S I 0 N A M E ) 0005340 \0 200 \0 \0 \0 004 @ 003 245 A \t \0 \0 262 T 0005360 g \0 \0 g \0 \0 @ d 003 220 001 h 032 032 g \0 0005400 \0 A h 032 032 g \0 \0 B 002 264 030 B 001 005 \a 0005420 251 B 001 003 001 ` \0 \0 360 264 \t B 001 B 002 b 0005440 004 277 h 032 032 g \0 \0 B \t \0 \0 h 032 032 h 0005460 g \0 \0 @ 003 002 h 032 032 h 032 032 032 032 032 032 0005500 032 020 g \0 \0 g \0 \0 @ h 032 032 o \0 \0 \0 0005520 g \0 \0 g \0 \0 A B \t \0 \0 032 032 h 032 032 0005540 h 032 032 032 032 020 \0 ( 1 6 3 Q \ A P 0005560 P E N D 2 1 0 4 Q M K P R O 0005600 G N 6 \ S P E C A L I Z E D 0005620 P ) \r ( 1 5 6 Q C L : L A M B 0005640 D A 1 5 3 Q Q U O T E 1 4 0005660 0 Q Q U O T E 1 3 5 Q F N 0005700 S . P U T D E F 1 1 3 Q Q U 0005720 O T E 1 0 0 Q Q U O T E 6 0005740 0 Q C O M M E N T F L G 4 0 0005760 Q Q U O T E 3 1 Q Q U O T 0006000 E 1 6 Q Q U O T E 1 3 Q 0006020 d e f i n e - m e t h o d ) \r ( 0006040 1 5 0 Q ( Q U O T E F N S 0006060 ) ) \r \ L A M B D A . C L . T O 0006100 . I L D 1 \r ( I 0 E X P R 0006120 ) \0 016 \0 \0 \0 001 g \0 \0 g \0 \0 @ 002 0006140 \n \0 \0 032 020 \0 ( 1 2 Q \ D E F U 0006160 N . D E C O D E . & K E Y S ) \r 0006200 ( 5 C L : L A M B D A 2 L 0006220 A M B D A ) \r ( ) \r \ D E F U N 0006240 . D E C O D E . & K E Y S D 1 0006260 \r ( P 2 2 Q S V A R P 2 0006300 1 Q I N I T P 2 0 Q S V 0006320 A R P 1 7 Q V A R P 1 0006340 6 Q B I N D I N G P 1 3 Q 0006360 K E Y W O R D S P 1 2 Q 0006400 B O D Y P 1 1 Q A R G V A 0006420 R P 1 0 Q V A R T Y P P 0006440 7 R E S T F O R M P 6 0006460 A U X L I S T P 5 O P T V 0006500 A R S P 4 K E Y V A R S 0006520 P 3 V R B L S P 2 M A 0006540 X P 1 M I N P 0 C N 0006560 T I 1 E X P I 0 N A 0006600 M E ) 003 2 030 \0 \0 002 k j d 021 243 \f 0006620 A 001 021 ! 017 O 032 003 265 u 023 A 002 _ 024 N 0006640 262 030 g \0 \0 N \t \0 \0 \t \0 \0 O 024 \t \0 0006660 \0 032 032 h 032 _ 024 277 O 022 265 022 K \t \0 \0 0006700 o \0 \0 \0 O 024 \t \0 \0 032 032 020 g \0 \0 g 0006720 \0 \0 O 022 h 032 032 h 032 032 I d 242 261 002 ? 0006740 j 360 222 261 002 8 g \0 \0 g \0 \0 O 022 I h 0006760 032 032 032 g \0 \0 g \0 \0 o \0 \0 \0 O 022 h 0007000 032 032 032 h 032 032 032 032 h 032 261 002 022 001 _ 034 0007020 g \0 \0 360 250 O 034 d g \0 \0 360 230 277 g \0 0007040 \0 _ 020 261 001 357 g \0 \0 360 250 O 034 d g \0 0007060 \0 360 227 277 O 034 _ 020 261 001 332 g \0 \0 360 262 0007100 026 O 020 g \0 \0 360 222 261 001 313 o \0 \0 \0 \t 0007120 \0 \0 261 001 300 O 034 g \0 \0 360 227 g \0 \0 _ 0007140 020 261 001 261 O 020 265 026 O 034 K 032 273 H k 324 0007160 270 I k 324 271 J k 324 Z 261 001 231 g \0 \0 360 0007200 262 I O 022 256 o \0 \0 \0 @ o \0 \0 \0 \v \0 0007220 \0 _ 022 277 O 034 g \0 \0 g \0 \0 g \0 \0 H 0007240 g \0 \0 O 022 g \0 \0 g \0 \0 O 022 o \0 \0 0007260 \0 032 032 h 032 032 032 032 032 032 032 032 h 032 032 h 0007300 032 _ 016 277 h Z 261 001 L O 020 d g \0 \0 360 0007320 230 277 O 034 N 032 ^ 261 001 ; g \0 \0 360 242 261 0007340 \0 255 h 272 O 022 256 o \0 \0 \0 @ o \0 \0 \0 0007360 \v \0 \0 _ 022 277 021 021 O 034 003 264 024 O 034 0007400 002 001 O 034 002 002 001 _ 277 O 034 001 _ 034 277 0007420 _ " 277 O 034 d 003 230 001 O 034 002 001 _ 034 277 0007440 202 \t \0 \0 _ 030 277 O 265 < O 034 g \0 \0 0007460 h g \0 \0 g \0 \0 O 022 g \0 \0 g \0 \0 H 0007500 O 030 O 022 h 032 032 032 032 g \0 \0 O 262 0007520 g \0 \0 g \0 \0 O o \0 \0 \0 032 032 O " 0007540 h 032 032 032 212 i h 032 032 L 032 274 260 277 O " 0007560 h 032 032 h 032 032 032 h 032 032 032 h 032 032 h 032 0007600 032 032 h 032 032 L 032 \ 023 261 \0 212 O 020 g \0 0007620 \0 360 262 } O 034 d 003 243 h 032 _ 034 002 002 001 0007640 021 001 022 O 022 256 o \0 \0 \0 @ o \0 \0 \0 \v 0007660 \0 \0 _ 022 277 O $ 265 S O 034 001 g \0 \0 g 0007700 \0 \0 H O 022 h 032 032 032 g \0 \0 O 034 002 001 0007720 g \0 \0 O $ 264 017 g \0 \0 O $ o \0 \0 \0 0007740 032 032 h 032 g \0 \0 O 022 H h 032 032 032 h 032 0007760 \n \0 \0 032 032 032 032 032 h 032 032 M 032 ] 023 J 0010000 223 J k 324 272 H k 324 X 207 M 032 275 260 254 \b 0010020 \0 \0 277 O 032 002 _ 032 261 375 177 h J 264 & g 0010040 \0 \0 g \0 \0 O 022 J h 032 032 032 g \0 \0 g 0010060 \0 \0 o \0 \0 \0 O 022 h 032 032 032 h 032 032 032 0010100 032 h 032 g \0 \0 K \t \0 \0 k 021 2 027 O & 0010120 003 265 4 O * 022 \t \0 \0 g \0 \0 M \t \0 \0 0010140 L \t \0 \0 O 016 \t \0 \0 \n \0 \0 \n \0 \0 O 0010160 024 \t \0 \0 032 032 h 032 032 032 h 032 \n \0 \0 \n 0010200 \0 \0 032 032 020 001 g \0 \0 O 022 O ( h 032 032 0010220 032 h 032 032 _ . 277 O , 265 032 O . h 032 _ 0010240 , _ * 277 O & 002 _ & 277 O ( k 324 _ ( 0010260 277 260 235 O . & _ , 277 260 353 \0 ( 1 3 6 0010300 7 Q \ A P P E N D 2 1 3 6 4 0010320 Q \ A P P E N D 2 1 3 5 1 Q 0010340 \ A P P E N D 2 1 3 4 4 Q 0010360 \ A P P E N D 2 1 3 4 1 Q \ 0010400 A P P E N D 2 1 3 3 6 Q \ A 0010420 P P E N D 2 1 3 3 1 Q R E V 0010440 E R S E 1 3 2 5 Q R E V E R 0010460 S E 1 3 1 6 Q \ A P P E N D 0010500 2 1 2 7 7 Q R E V E R S E 0010520 1 2 0 7 Q S H O U L D N T 1 0010540 1 5 0 Q \ A P P E N D 2 1 0 0010560 4 7 Q P A C K * 6 3 1 Q \ 0010600 M A K E . K E Y W O R D 5 5 0 0010620 Q P A C K * 4 0 6 Q P A C 0010640 K * 3 0 7 Q E R R O R 7 6 0010660 Q \ A P P E N D 2 6 5 Q R 0010700 E V E R S E 4 6 Q \ A P P E 0010720 N D 2 4 1 Q \ A P P E N D 2 0010740 3 6 Q D R E V E R S E ) \r ( 0010760 1 3 7 6 Q A R G 1 3 2 1 Q 0011000 L E T * 1 2 7 3 Q L E T 1 0011020 2 4 7 Q E R R O R 1 2 4 4 Q 0011040 t h e n 1 2 3 2 Q I G R E 0011060 A T E R P 1 2 2 7 Q i f 1 0011100 1 3 4 Q A R G 1 1 1 7 Q S 0011120 E T Q 1 1 1 0 Q e l s e 1 0011140 1 0 1 Q t h e n 1 0 6 7 Q 0011160 I G R E A T E R P 1 0 6 4 Q 0011200 i f 1 0 0 6 Q & O P T I O N 0011220 A L 7 1 3 Q S E T Q 7 1 0 0011240 Q P R O G N 7 0 1 Q R E T 0011260 U R N 6 6 4 Q \ K E Y S E A 0011300 R C H 6 6 1 Q O R 6 5 4 Q 0011320 A R G 6 5 1 Q R E T U R N 0011340 6 4 5 Q P R O G 5 2 2 Q 0011360 & K E Y 5 0 4 Q & A U X 4 0011400 4 0 Q A R G 4 3 5 Q c o l 0011420 l e c t 4 3 0 Q t o 4 2 4 0011440 Q f r o m 4 2 1 Q \ I n d 0011460 e x 4 1 6 Q f o r 3 6 4 Q 0011500 & R E S T 3 2 4 Q & K E Y 0011520 3 1 7 Q & K E Y 2 7 3 Q 0011540 & K E Y 2 6 3 Q & A L L O W 0011560 - O T H E R - K E Y S 2 4 6 Q 0011600 & O P T I O N A L 2 3 6 Q 0011620 & A U X 2 2 6 Q & R E S T 0011640 2 2 0 Q & B O D Y 2 1 0 Q 0011660 & R E S T 1 5 6 Q E R R O R 0011700 1 5 3 Q t h e n 1 4 1 Q 0011720 I L E S S P 1 3 6 Q i f 1 0011740 0 7 Q L O C A L V A R S 1 0 0011760 4 Q D E C L A R E 3 2 Q L 0012000 E T * ) \r ( 1 2 5 3 Q " T o 0012020 o m a n y a r g s " 1 1 2 0012040 5 Q ( T ) 1 0 4 4 Q " . A 0012060 R G C N T " 1 0 3 7 Q " \ " 0012100 7 2 1 Q ( N I L ) 5 4 5 Q 0012120 " . A R G C N T " 5 4 0 Q 0012140 " \ " 4 4 6 Q ( \ I n d e x 0012160 ) 4 0 3 Q " . A R G C N T " 0012200 3 7 6 Q " \ " 3 0 4 Q " 0012220 & A L L O W - O T H E R - K E Y 0012240 S n o t i n & K E Y " 1 0012260 6 2 Q " T o o f e w a r g 0012300 s " 7 1 Q ( D E C L A R E 0012320 ( L O C A L V A R S . T ) ) 0012340 ) \r \ C L - L A M B D A - F N T 0012360 Y P D 1 \r ( P 2 V A R T Y 0012400 P P 1 B I N D I N G I 0012420 0 E X P ) \0 ^ 003 \0 \0 001 @ 002 001 0012440 021 ! 002 H 003 265 004 h 020 001 Y g \0 \0 360 263 0012460 370 I d g \0 \0 360 222 277 260 356 g \0 \0 360 247 0012500 I d g \0 \0 360 224 277 I Z 260 * g \0 \0 360 0012520 263 327 J d 262 g \0 \0 360 263 315 J g \0 \0 0012540 360 236 I 003 237 I 002 001 263 277 I 002 002 001 225 260 0012560 270 \b \0 \0 277 H 002 X 260 254 \0 ( 1 2 6 Q 0012600 S H O U L D N T ) \r ( 1 0 2 Q 0012620 & O P T I O N A L 7 3 Q & 0012640 A U X 6 1 Q & K E Y 4 7 Q 0012660 & O P T I O N A L 4 0 Q & 0012700 A U X 3 0 Q & B O D Y 2 0 0012720 Q & R E S T ) \r ( ) \r \ S P E 0012740 C A L I Z E D P D 1 \r ( L ( 0012760 0 A R G S ) ) \0 2 \0 \0 \0 001 @ 0013000 003 265 004 h 020 001 003 221 i 020 @ 001 @ 002 b \0 0013020 277 d g \0 \0 360 263 355 d g \0 \0 360 263 346 d 0013040 g \0 \0 360 263 337 d g \0 \0 360 263 330 277 260 321 0013060 \0 N I L \r ( 5 2 Q & A U X 4 0013100 3 Q & K E Y 3 4 Q & R E S 0013120 T 2 5 Q & O P T I O N A L ) 0013140 \r ( ) \r \ D O . T R A N S L A T 0013160 E D 1 \r ( P 6 T A G P 0013200 5 S U B S E Q U E N T - V A L 0013220 U E S P 4 V A R S - A N D 0013240 - I N I T I A L - V A L U E S 0013260 I 3 S E Q U E N T I A L P 0013300 I 2 B O D Y I 1 E N D 0013320 - T E S T I 0 V A R S ) 0013340 \0 262 \a \0 \0 004 021 @ 003 @ 260 036 d 001 [ d 0013360 003 241 h 203 001 K 002 001 h 032 032 270 I 265 \a H 0013400 h 032 Z 201 H & 271 002 003 265 343 J 022 021 @ 003 0013420 @ 260 # d 001 [ 003 264 020 K 002 002 264 \v K 001 0013440 K 002 002 001 h 032 032 270 I 265 \a H h 032 Z 201 0013460 H & 271 002 003 265 336 J 022 \b \0 \0 021 003 006 h 0013500 M \n \0 \0 ] 262 024 C 223 g \0 \0 202 g \0 \0 0013520 g \0 \0 M \n \0 \0 032 275 C 223 g \0 \0 202 g 0013540 \0 \0 L N g \0 \0 A 001 g \0 \0 g \0 \0 A 0013560 002 \t \0 \0 032 h 032 032 h 032 032 h 032 032 g \0 0013600 \0 B \t \0 \0 032 M g \0 \0 N h 032 032 h 032 0013620 032 032 032 032 032 032 020 \0 ( 2 3 6 Q \ A 0013640 P P E N D 2 2 1 5 Q \ A P P 0013660 E N D 2 1 6 0 Q A P P L Y 0013700 1 3 5 Q R E M O V E 1 2 5 Q 0013720 G E N S Y M ) \r ( 2 4 3 Q G 0013740 O 2 3 2 Q P R O G N 2 1 0 0013760 Q P R O G N 2 0 5 Q R E T 0014000 U R N 2 0 0 Q C O N D 1 7 0014020 3 Q P R O G 1 6 7 Q P R O 0014040 G * 1 5 4 Q A P P E N D 1 0014060 5 1 Q P S E T Q 1 4 5 Q C 0014100 L : S E T Q ) \r ( ) \r C M L R D 0014120 T B L D 1 \r ( P 2 I P 0014140 0 T B L ) \0 232 003 \0 \0 \0 g \0 \0 0014160 \t \0 \0 021 001 \0 l 377 j 021 002 002 J d I 363 0014200 262 w 023 o \0 \0 \0 k H \v \0 \0 l ' o \0 0014220 \0 \0 H \v \0 \0 l ; o \0 \0 \0 H \v \0 \0 0014240 l ) g \0 \0 H \v \0 \0 l ( g \0 \0 H \v 0014260 \0 \0 l \ g \0 \0 H \v \0 \0 l | o \0 \0 0014300 \0 H \v \0 \0 l " g \0 \0 H \v \0 \0 l ` 0014320 o \0 \0 \0 H \v \0 \0 l # o \0 \0 \0 H \v 0014340 \0 \0 l , o \0 \0 \0 H \v \0 \0 l % g \0 0014360 \0 H \v \0 \0 H 020 g \0 \0 H \v \0 \0 277 J 0014400 k 324 Z 261 377 z \0 ( 2 2 0 Q S E T 0014420 S Y N T A X 2 0 7 Q S E T S 0014440 Y N T A X 1 7 6 Q S E T S Y 0014460 N T A X 1 6 4 Q S E T S Y N 0014500 T A X 1 5 2 Q S E T S Y N T 0014520 A X 1 4 0 Q S E T S Y N T A 0014540 X 1 2 7 Q S E T S Y N T A X 0014560 1 1 5 Q S E T S Y N T A X 0014600 1 0 4 Q S E T S Y N T A X 7 0014620 3 Q S E T S Y N T A X 6 2 Q 0014640 S E T S Y N T A X 5 0 Q S 0014660 E T S Y N T A X 3 6 Q S E T 0014700 S E P R 5 C O P Y R E A D T 0014720 A B L E ) \r ( 2 1 4 Q O T H E 0014740 R 2 0 3 Q O T H E R 1 3 4 0014760 Q S T R I N G D E L I M 1 1 0015000 1 Q E S C A P E 1 0 0 Q L 0015020 E F T P A R E N 6 7 Q R I G 0015040 H T P A R E N 2 O R I G ) \r 0015060 ( 1 7 2 Q ( M A C R O F I 0015100 R S T R E A D B Q U O T E C O 0015120 M M A ) 1 6 0 Q ( M A C R O 0015140 F I R S T R E A D H A S H M 0015160 A C R O ) 1 4 6 Q ( M A C R 0015200 O F I R S T R E A D B Q U O 0015220 T E ) 1 2 3 Q ( M A C R O 0015240 A L W A Y S C M L R E A D V B 0015260 A R ) 5 6 Q ( S P L I C E 0015300 F I R S T ( L A M B D A ( S 0015320 T R E A M R D T B L ) ( u n 0015340 t i l ( E Q ( R E A D C C O 0015360 D E S T R E A M ) ( C H A R 0015400 C O D E N E W L I N E ) ) d 0015420 o N I L ) ) ) 4 4 Q ( M A 0015440 C R O F I R S T N O N I M M 0015460 E D I A T E N O E S C Q U O T 0015500 E ( L A M B D A ( S T R E A 0015520 M R D T B L ) ( L I S T ( 0015540 Q U O T E Q U O T E ) ( R E 0015560 A D S T R E A M R D T B L ) 0015600 ) ) ) 3 1 Q ( 4 0 Q 1 5 Q 0015620 1 4 Q 1 2 Q 1 1 Q ) ) \r C 0015640 M L R E A D V B A R D 1 \r ( I 0015660 1 R D T B L I 0 S T R 0015700 E A M ) \0 005 \0 \0 \0 002 \b \0 \0 020 \0 0015720 ( 2 H E L P ) \r N I L \r ( ) \r 0015740 C A T C H D 1 \r ( P 1 F O 0015760 R M S P 0 T A G I 0 0016000 L ) \0 035 002 \0 003 001 @ 001 g \0 \0 @ 002 0016020 032 i \n \0 \0 021 002 001 H g \0 \0 \n \0 \0 I 0016040 i \v \0 \0 020 \0 ( 3 2 Q \ C A T C 0016060 H . A U X 2 5 Q E V A L 1 0016100 3 Q L I S P F O R M . S I M P 0016120 L I F Y ) \r ( 2 2 Q I N T E R 0016140 N A L 4 P R O G N ) \r ( ) \r 0016160 \ C A T C H . A U X D 1 \r ( P 0016200 2 \ C A T C H . 1 S H O T . 0016220 O P O S I 2 F O R M P I 0016240 1 F U N I 0 T A G ) 0016260 \0 2 003 \0 \0 003 @ \t \0 \0 \b \0 \0 021 022 002 0016300 B 222 A 260 033 A d 004 l 004 360 237 225 A d i 0016320 360 231 277 o \0 \0 \0 \t \0 \0 277 A h 032 H I 0016340 032 h 032 \n \0 \0 020 \0 ( 5 7 Q E V A 0016360 L A 4 3 Q S H O U L D N T 0016400 6 \ C A T C H . F I N D F R A 0016420 M E 3 \ C A T C H . T A G . 0016440 I N T E R N ) \r N I L \r ( 4 0 0016460 Q " u n a c c e p t a b l e 0016500 f u n c t i o n " ) \r \ C A T C 0016520 H . F I N D F R A M E D 1 \r ( 0016540 I 0 P O S ) \0 032 \0 \0 \0 001 m 0016560 377 g \0 \0 h d @ \f \0 \0 b \0 005 \b 265 005 0016600 \b \0 \0 @ \v \0 \0 020 \0 ( 2 7 Q S T 0016620 K N T H 2 3 Q S H O U L D N 0016640 T 1 2 Q S T K P O S ) \r ( 4 0016660 \ C A T C H . A U X ) \r ( ) \r 0016700 \ C A T C H . T A G . I N T E R 0016720 N D 1 \r ( I 0 T A G ) \0 0016740 . \0 \0 \0 001 @ d 004 l 004 360 223 i 360 230 @ 0016760 o \0 \0 \0 \n \0 \0 277 l u @ \t \0 \0 361 230 0017000 g \0 \0 @ \n \0 \0 265 \n @ o \0 \0 \0 \n \0 0017020 \0 020 \0 ( 5 3 Q E R R O R 4 1 0017040 Q P A C K * 3 0 Q N C H A 0017060 R S 2 1 Q E R R O R ) \r ( 3 0017100 5 Q \ C A T C H . T A G . ) \r 0017120 ( 5 0 Q " n a m e t o o 0017140 l o n g t o b e C A T C H 0017160 t a g " 1 6 Q " N I L a 0017200 n d T n o t u s a b l e 0017220 a s C A T C H t a g s " ) \r 0017240 T H R O W D 1 \r ( I 1 V A 0017260 L I 0 T A G ) \0 \f \0 \0 \0 0017300 002 @ \t \0 \0 - @ A \v \0 \0 020 \0 ( 1 1 0017320 Q \ T H R O W . A U X 3 \ 0017340 C A T C H . T A G . I N T E R N 0017360 ) \r N I L \r ( ) \r \ T H R O W . 0017400 A U X D 1 \r ( L ( 2 V A L 0017420 1 T A G 0 P O S ) P 0017440 0 \ I N T E R R U P T A B L E 0017460 ) \0 . 001 \0 \0 003 @ 005 001 232 021 020 \0 h 0017500 @ d \v \0 \0 B 020 @ 005 \b 265 023 A g \0 \0 0017520 \n \0 \0 b 002 \t \0 \0 - b \0 260 336 B i \v 0017540 \0 \0 277 260 351 \0 ( 5 1 Q R E T T O 0017560 3 7 Q \ C A T C H . T A G . 0017600 I N T E R N 3 2 Q E R R O R 0017620 1 4 Q \ S M A S H L I N K ) 0017640 \r ( 2 7 Q T a g % t o % T 0017660 H R O W , % b u t % n o % 0017700 c o r r e s p o n d i n g % t 0017720 a g % i n % a % C A T C H 0017740 ) \r ( ) \r C L : M A P C A R D 0017760 1 \r ( L ( 0 \ C L : L A M B 0020000 D A . A R G C N T ) P 1 1 Q 0020020 $ L P 3 M O R E - L I S 0020040 T S P 2 L I S T P 1 0020060 F U N C T I O N ) \0 203 016 \0 002 \0 0020100 e 021 001 \0 l 002 H 361 230 o \0 \0 \0 H \n \0 0020120 \0 277 @ A 021 022 003 H l 003 021 2 \b M d L 0020140 363 236 277 N 022 [ 265 J J I 021 2 \r O 022 260 0020160 ; a _ 020 277 O 016 265 017 O 020 h 032 _ 016 276 0020200 M k 324 ] 260 332 O 020 & _ 016 277 260 364 d 001 0020220 k O 024 017 016 _ 026 277 O 030 265 \t O 026 h 032 0020240 _ 032 202 O 026 & _ 030 277 002 003 265 343 O 032 020 0020260 002 247 J K 001 I \v \0 \0 020 o \0 \0 \0 \t \0 0020300 \0 020 \0 ( 2 0 0 Q H E L P 1 7 0020320 0 Q M A P 2 C A R 2 0 Q E 0020340 R R O R ) \r N I L \r ( 1 7 5 Q 0020360 " > 3 A R G S T O C L 0020400 : M A P C A R " 1 4 Q " T o 0020420 o f e w a r g s " ) \r E X P 0020440 A N D - L O O P D 1 \r ( P 5 0020460 R E M A I N I N G P 4 E 0020500 P I L O G U E P 3 B O D Y 0020520 P 2 P R O L O G U E P 0020540 1 R E S U L T - V A R P 0 0020560 T A G I 0 L O O P - A R 0020600 G S ) \0 L 006 \0 \0 001 \b \0 \0 \b \0 \0 0020620 021 2 004 @ 021 001 005 M 265 / 023 g \0 \0 h H 0020640 g \0 \0 K \t \0 \0 032 g \0 \0 H h 032 032 g 0020660 \0 \0 L \t \0 \0 032 g \0 \0 I h 032 032 h 032 0020700 032 032 032 032 032 032 020 001 004 l 004 360 262 313 M \t 0020720 \0 \0 ] 260 305 \0 ( 1 0 7 Q L O O P 0020740 - E X P A N D - B O D Y 5 3 Q 0020760 R E V E R S E 3 4 Q R E V 0021000 E R S E 5 G E N S Y M 2 0021020 G E N S Y M ) \r ( 5 7 Q R E T 0021040 U R N 4 7 Q P R O G N 4 0 0021060 Q G O 3 0 Q P R O G N 2 0021100 3 Q P R O G ) \r ( ) \r L O O P 0021120 - E X P A N D D 1 \r ( P 5 0021140 R E M A I N I N G P 4 E P 0021160 I L O G U E P 3 B O D Y 0021200 P 2 P R O L O G U E P 1 0021220 R E S U L T - V A R P 0 0021240 T A G I 0 L O O P - A R G 0021260 S ) \0 L 006 \0 \0 001 \b \0 \0 \b \0 \0 021 0021300 2 004 @ 021 001 005 M 265 / 023 g \0 \0 h H g 0021320 \0 \0 K \t \0 \0 032 g \0 \0 H h 032 032 g \0 0021340 \0 L \t \0 \0 032 g \0 \0 I h 032 032 h 032 032 0021360 032 032 032 032 032 020 001 004 l 004 360 262 313 M \t \0 0021400 \0 ] 260 305 \0 ( 1 0 7 Q L O O P - 0021420 E X P A N D - B O D Y 5 3 Q 0021440 R E V E R S E 3 4 Q R E V E 0021460 R S E 5 G E N S Y M 2 G 0021500 E N S Y M ) \r ( 5 7 Q R E T U 0021520 R N 4 7 Q P R O G N 4 0 Q 0021540 G O 3 0 Q P R O G N 2 3 0021560 Q P R O G ) \r ( ) \r L O O P - 0021600 E X P A N D - B O D Y D 1 \r ( 0021620 P 3 O P T I O N - A R G ? 0021640 P 2 O P T I O N ? P 1 0021660 A R G P 0 K E Y W O R D 0021700 I 0 R E M A I N I N G F 0021720 4 B O D Y F 5 R E S U L 0021740 T - V A R F 6 E P I L O G 0021760 U E ) \0 340 004 003 \0 001 @ 001 @ 002 001 @ 0022000 002 002 001 @ 002 002 002 001 021 004 003 H d g \0 \0 0022020 360 232 277 I T 032 c \b 277 @ 002 002 020 o \0 \0 0022040 \0 \n \0 \0 242 261 \0 253 J g \0 \0 360 227 K c 0022060 \n 277 @ 002 002 200 @ 002 002 b \0 277 H d g \0 0022100 \0 360 262 ' 277 g \0 \0 I U h 032 032 032 T 032 0022120 c \b 277 g \0 \0 U g \0 \0 U h 032 032 h 032 0022140 032 032 V 032 c \f 277 260 p o \0 \0 \0 \n \0 \0 0022160 262 030 g \0 \0 U H U I h 032 032 032 h 032 032 0022200 032 T 032 c \b 277 260 Q H d g \0 \0 360 262 033 0022220 277 g \0 \0 U g \0 \0 U I h 032 032 032 h 032 0022240 032 032 T 032 c \b 277 260 0 o \0 \0 \0 \n \0 \0 0022260 262 ' g \0 \0 U H o \0 \0 \0 \n \0 \0 002 001 0022300 U I h 032 032 032 h 032 032 032 T 032 c \b 277 206 0022320 o \0 \0 \0 \t \0 \0 @ 020 \0 ( 3 3 4 Q 0022340 E R R O R 3 0 3 Q M E M B E 0022360 R 2 6 5 Q M E M B E R 1 6 0022400 5 Q M E M B E R 5 1 Q M E 0022420 M B E R ) \r ( 2 7 2 Q S E T Q 0022440 2 3 5 Q P L U S 2 3 1 Q 0022460 S E T Q 2 2 2 Q S U M 1 7 0022500 2 Q S E T Q 1 3 7 Q R E V 0022520 E R S E 1 3 3 Q S E T Q 1 0022540 1 5 Q C L : P U S H 1 0 6 Q 0022560 C O L L E C T 6 1 Q I N T 0022600 O 2 5 Q D O ) \r ( 3 3 1 Q 0022620 " U n r e c o g n i z e d L 0022640 O O P k e y w o r d o r i 0022660 m p l i c i t P R O G N . " 0022700 3 0 0 Q ( M A X I M I Z E M 0022720 A X M I N I M I Z E M I N ) 0022740 2 6 2 Q ( M A X I M I Z E 0022760 M I N I M I Z E ) 1 6 2 Q ( 0023000 A P P E N D N C O N C ) 4 6 0023020 Q ( C O L L E C T A P P E N 0023040 D N C O N C S U M M A X I 0023060 M I Z E M I N I M I Z E ) ) \r 0023100 L O O P - E X P A N D - F O R 0023120 D 1 \r ( P 1 P A T H P 0 0023140 V A R I 0 R E M A I N I 0023160 N G ) \0 017 002 \0 \0 001 @ 002 001 @ 002 002 0023200 001 021 002 001 \b \0 \0 020 \0 ( 1 4 Q C L 0023220 ) \r N I L \r ( ) \r C A S E - 1 0023240 D 1 \r ( P 7 T E S T P 6 0023260 X P 5 K E Y L I S T P 0023300 4 B O D Y P 3 C L A U 0023320 S E - L O C P 2 C O N D - 0023340 C L A U S E S P 1 A L L - 0023360 K E Y S P 0 S A W - O T H 0023400 E R W I S E - O R - T I 7 0023420 A L L O W - O T H E R W I S E - 0023440 O R - T - P I 6 A L L O W 0023460 - R E P E A T S - P I 5 A 0023500 L L O W - N I L - P I 4 D 0023520 E F A U L T - T - C L A U S E - 0023540 F O R M I 3 T E S T - F N 0023560 I 2 K E Y - V A R I A B L 0023600 E I 1 C L A U S E S I 0023620 0 F O R - W H O ) \0 347 \b \0 \0 0023640 \b 021 0 002 A 261 \0 307 d 021 ! 005 K 001 001 275 0023660 K 001 002 274 M 265 021 E 250 @ o \0 \0 \0 \n \0 0023700 \0 277 h 261 \0 225 o \0 \0 \0 \n \0 \0 237 G 016 0023720 250 @ o \0 \0 \0 \n \0 \0 277 i X 260 | M d 0023740 003 263 g h 032 ] 260 b d 021 001 006 N d 002 262 0023760 032 d 002 003 263 025 277 @ o \0 \0 \0 M o \0 \0 0024000 \0 \v \0 \0 \n \0 \0 260 ? 001 004 l 004 360 263 024 0024020 @ o \0 \0 \0 M o \0 \0 \0 \v \0 \0 \n \0 \0 0024040 260 & N d 001 I \n \0 \0 262 031 277 F 262 024 @ 0024060 o \0 \0 \0 N 001 o \0 \0 \0 \v \0 \0 \n \0 \0 0024100 277 N 001 I 032 Y 023 002 003 265 237 C B g \0 \0 0024120 M h 032 032 h 032 032 032 021 001 \a O 016 232 J O 0024140 016 L 032 h 032 \n \0 \0 272 023 023 002 003 265 003 202 0024160 261 377 8 H 253 J i D h 032 032 h 032 \n \0 \0 0024200 272 J I h 032 032 020 \0 ( 3 3 6 Q \ N 0024220 C O N C 2 3 0 6 Q \ N C O N 0024240 C 2 2 3 6 Q E R R O R 2 3 0024260 3 Q C O N C A T 2 0 7 Q M 0024300 E M B 1 7 6 Q E R R O R 1 0024320 7 3 Q C O N C A T 1 4 5 Q 0024340 E R R O R 1 4 2 Q C O N C A 0024360 T 6 7 Q E R R O R 5 3 Q 0024400 M E M B 3 7 Q E R R O R ) \r 0024420 ( 2 5 6 Q Q U O T E ) \r ( 2 0024440 3 0 Q " ) c a n ' t a p p 0024460 e a r i n m o r e t h a t 0024500 o n e k e y l i s t . " 2 0024520 2 2 Q " T h e s a m e k e 0024540 y ( " 1 7 0 Q " a r e 0024560 s y m b o l s . " 1 6 3 Q " 0024600 N o t a l l t h e e l e m 0024620 e n t s o f t h e k e y l 0024640 i s t " 1 3 7 Q " h a s 0024660 a n o n - l i s t c d r . 0024700 " 1 3 2 Q " T h e K e y l 0024720 i s t " 6 4 Q " C a n ' t 0024740 h a v e a n o t h e r w i 0024760 s e ( o r T ) k e y l i s 0025000 t . " 5 0 Q ( T O T H E R 0025020 W I S E ) 3 4 Q " C a n ' t 0025040 h a v e N I L a s a k 0025060 e y l i s t . " ) \r D E S T R U 0025100 C T U R I N G - B I N D - 1 D 0025120 1 \r ( I 0 V A R I A B L E - 0025140 P A T T E R N F 0 D - B - 0025160 B O U N D - S Y M B O L S F 0025200 1 D - B - S E T Q S ) \0 * \0 0025220 002 \0 001 h c \0 c 002 277 @ \t \0 \0 277 ` \0 0025240 \0 P \n \0 \0 230 \b \0 \0 027 \0 \0 277 260 346 P 0025260 \t \0 \0 c \0 Q \t \0 \0 c 002 020 \0 ( 4 5 0025300 Q R E V E R S E 3 7 Q R E 0025320 V E R S E 2 5 Q G E N S Y M 0025340 2 1 Q M E M B 1 1 Q D E 0025360 S T R U C T U R I N G - B I N D 0025400 - 2 ) \r ( 3 0 Q D - B - V A L 0025420 U E - S Y M B O L 1 5 Q D - 0025440 B - V A L U E - S Y M B O L ) \r 0025460 ( ) \r D E S T R U C T U R I N G 0025500 - B I N D - 2 D 1 \r ( I 1 0025520 C H A I N I 0 P A T T E R 0025540 N F 0 D - B - B O U N D - 0025560 S Y M B O L S F 1 D - B - 0025600 S E T Q S ) \0 7 \0 002 \0 002 @ d 003 0025620 262 033 001 g \0 \0 A 032 \n \0 \0 @ 002 g \0 \0 0025640 A 032 b 002 277 b \0 277 277 260 344 264 027 @ P 032 0025660 c \0 g \0 \0 @ A \t \0 \0 h 032 032 032 Q 032 0025700 c 002 020 \0 ( 5 4 Q D E S T R U C 0025720 T U R I N G - B I N D - 3 1 5 0025740 Q D E S T R U C T U R I N G - 0025760 B I N D - 2 ) \r ( 4 7 Q S E T 0026000 Q 2 2 Q C D R 1 0 Q C A 0026020 R ) \r ( ) \r D E S T R U C T U R 0026040 I N G - B I N D - 3 D 1 \r ( I 0026060 1 V A L U E - P A T T E R N 0026100 - V A R I A B L E I 0 C H 0026120 A I N ) \0 022 \0 \0 \0 002 @ 265 006 ` \0 0026140 \0 020 001 @ 002 \t \0 \0 h 032 032 020 \0 ( 1 4 0026160 Q D E S T R U C T U R I N G - 0026200 B I N D - 3 ) \r ( 5 D - B - V 0026220 A L U E - S Y M B O L ) \r ( ) \r 0026240 ( P R E T T Y C O M P R I N T 0026260 C M L S P E C I A L F O R M S C 0026300 O M S ) \r ( R P A Q Q C M L S 0026320 P E C I A L F O R M S C O M S 0026340 ( ( C O M S ( * r a n d o m 0026360 v a n i l l a f u n c t i o 0026400 n s ) ( F N S C L : E Q U A 0026420 L C L : L E N G T H F B O U 0026440 N D P E Q U A L P \r M A C R 0026460 O E X P A N D - 1 R A I S E A 0026500 T S C M L T R A N S L A T E 0026520 S P E C I A L - F O R M - P D 0026540 E F C O N S T A N T ) ( P ( 0026560 M O V D ( Q U O T E F M E M 0026600 B ) ( Q U O T E M E M Q ) ) 0026620 ( \r M O V D ( Q U O T E N 0026640 L I S T P ) ( Q U O T E C L 0026660 : A T O M ) ) ( M O V D ( Q 0026700 U O T E G E T P R O P ) ( Q 0026720 U O T E G E T ) ) ( M O V D 0026740 ( Q U O T E R P A Q ? ) ( 0026760 Q U O T E \r D E F V A R ) ) ) 0027000 ( F N S E Q L C L : M E M 0027020 B E R C O P Y - L I S T I D 0027040 E N T I T Y C L : A P P L Y ) 0027060 ( M A C R O S C L : M E M B 0027100 E R C L : S E T Q C L : I F 0027120 C L : U N L E S S \r C L : W 0027140 H E N C O P Y - L I S T I D 0027160 E N T I T Y U N W I N D - P R 0027200 O T E C T E Q L C L : A P P 0027220 L Y ) ( P ( M O V D ( Q U 0027240 O T E A P P L Y * ) ( Q U O 0027260 T E F U N C A L L ) ) ) ( \r 0027300 P R O P D M A C R O F U N C 0027320 A L L ) ( * I N T E G E R P 0027340 = I n t e r l i s p ' s F 0027360 I X P , S Y M B O L P = 0027400 I n t e r l i s p ' s L I T A 0027420 T O M ) ( * t h e s e m a 0027440 y b e \r o b s o l e t e d 0027460 b y C o m m o n L o o p s ) 0027500 ( F N S I N T E G E R P S Y 0027520 M B O L P C O N S P C L : L 0027540 I S T P ) ( P R O P D M A C 0027560 R O I N T E G E R P S Y M B 0027600 O L P C O N S P \r C L : L I 0027620 S T P ) ) ( C O M S ( * f 0027640 a k e s e l f - e v a l u a t 0027660 i n g k e y w o r d s ) ( F 0027700 N S D W I M K E Y W O R D ) 0027720 ( D E C L A R E : D O N T E V 0027740 A L @ L O A D D O C O P Y ( 0027760 \r A D D V A R S ( D W I M U S 0030000 E R F O R M S ( D W I M K E Y 0030020 W O R D ) ) ) ) ( A D V I S E 0030040 C O M P . U S E R F N ) ( * 0030060 m u s t t u r n o f f " 0030100 p a c k e d " v e r s i o n 0030120 o f \r C L I S P i n f i x ) 0030140 ( V A R S C M L T R A N S L 0030160 A T I O N S ( C L I S P C H A 0030200 R S ( L D I F F E R E N C E 0030220 C L I S P C H A R S ( Q U O T 0030240 E ( : - * ) ) ) ) ( C L 0030260 I S P C H A R R A Y \r ( M A K 0030300 E B I T T A B L E C L I S P C 0030320 H A R S ) ) ( C L I S P I F Y 0030340 P A C K F L G N I L ) ) ) ( 0030360 C O M S ( * D E F U N a n 0030400 d l a m b d a k e y w o r d 0030420 s ) ( M A C R O S D E F U N 0030440 \r D E F U N - I N L I N E D 0030460 E F S U B S T ) ( F N S D E 0030500 F U N . D E C O D E \ L A M B 0030520 D A . C L . T O . I L \ D E F 0030540 U N . D E C O D E . & K E Y S 0030560 \ C L - L A M B D A - F N T Y P 0030600 \r \ S P E C A L I Z E D P ) 0030620 ( V A R S L A M B D A - L I S 0030640 T - K E Y W O R D S ) ( M A C 0030660 R O S \ K E Y S E A R C H N 0030700 E E D . A R G V A R ) ( F I L 0030720 E S L A M B D A T R A N ) ( 0030740 A D D V A R S \r ( L A M B D A 0030760 S P L S T C L : L A M B D A ) 0031000 ) ( A L I S T S ( L A M B D 0031020 A T R A N F N S C L : L A M B 0031040 D A ) ( P R E T T Y E Q U I V 0031060 L S T C L : L A M B D A ) ) ) 0031100 ( C O M S ( * * D O \r 0031120 D O * a n d s u p p o r t . 0031140 ) ( M A C R O S C L : D O 0031160 C L : D O * ) ( F N S \ D O 0031200 . T R A N S L A T E ) ) ( C O 0031220 M S ( * a t t e m p t t o 0031240 b u i l d a c o m m o n l 0031260 i s p \r r e a d t a b l e . 0031300 N o t e n o u g h f e a t u 0031320 r e s i n r e a d t a b l e 0031340 s y e t ) ( F N S C M L R 0031360 D T B L C M L R E A D V B A R 0031400 ) ( V A R S ( C M L R D T B 0031420 L ( C M L R D T B L \r ) ) ) ) 0031440 ( C O M S ( * o d d d e 0031460 f i n i t i o n o f P R O G 0031500 V , d o n ' t k n o w h o 0031520 w w e l l i t w o r k s ) 0031540 ( M A C R O S P R O G V ) ) 0031560 ( C O M S ( * \r " C o m m 0031600 o n L i s p s t y l e C A T 0031620 C H a n d T H R O W " ) ( 0031640 F N S C A T C H \ C A T C H 0031660 . A U X \ C A T C H . F I N D 0031700 F R A M E \ C A T C H . T A G 0031720 . I N T E R N T H R O W \r \ 0031740 T H R O W . A U X ) ( M A C R 0031760 O S C A T C H * C A T C H 0032000 \ C A T C H R U N F U N T H R 0032020 O W * T H R O W U N W I N D 0032040 P R O T E C T ) ( D E C L A R 0032060 E : ( * \r " C r u f t y l 0032100 o w - l e v e l s t u f f t 0032120 o h e l p m a k e \ C A T 0032140 C H . T A G . I N T E R N m o 0032160 r e e f f i c i e n t " ) ( 0032200 V A R S ( \ T H R O W . S T R 0032220 B U F F E R ( P R O G \r ( ( 0032240 X ( A L L O C S T R I N G 2 0032260 5 6 ) ) ) ( R P L S T R I N G 0032300 X 1 ( Q U O T E \ C A T 0032320 C H . T A G . ) ) ( R E T U R 0032340 N X ) ) ) ) ( G L O B A L V 0032360 A R S \ T H R O W . S T R B U 0032400 F F E R \r ) ) ) ( * w e l l 0032420 , S E T F i s p r e t t y 0032440 c l o s e t o C H A N G E 0032460 ) ( M A C R O S S E T F D 0032500 E F S E T F ) ( P R O P S E 0032520 T F N \ G E T B A S E P T R ) 0032540 ( C O M S ( * \r s o m e w 0032560 h a t b o g u s d e f i n i 0032600 t i o n s ) ( F N S C L : M 0032620 A P C A R ) ( M A C R O S C 0032640 L : P U S H D O L I S T D O 0032660 T I M E S ) ( F N S E X P A 0032700 N D - L O O P \r L O O P - E X 0032720 P A N D L O O P - E X P A N D 0032740 - B O D Y L O O P - E X P A N 0032760 D - F O R ) ( M A C R O S C 0033000 A S E ) ( F N S C A S E - 1 0033020 ) ( M A C R O S D E S T R U 0033040 C T U R I N G - B I N D \r D E 0033060 S E T Q ) ( F N S D E S T R 0033100 U C T U R I N G - B I N D - 1 0033120 D E S T R U C T U R I N G - B I 0033140 N D - 2 D E S T R U C T U R I 0033160 N G - B I N D - 3 ) ) ( T E M 0033200 P L A T E S C A T C H ) ( \r 0033220 D E C L A R E : D O N T E V A 0033240 L @ L O A D D O E V A L @ C O 0033260 M P I L E D O N T C O P Y C 0033300 O M P I L E R V A R S ( A D D 0033320 V A R S ( N L A M A C A T C 0033340 H ) ( N L A M L D E F C O N 0033360 S T A N T ) \r ( L A M A C L 0033400 : A P P L Y C L : M E M B E R 0033420 M A C R O E X P A N D - 1 C 0033440 L : M A P C A R ) ) ) ) ) \r ( M 0033460 O V D ( Q U O T E F M E M B 0033500 ) ( Q U O T E M E M Q ) ) \r 0033520 ( M O V D ( Q U O T E N L I 0033540 S T P ) ( Q U O T E C L : A 0033560 T O M ) ) \r ( M O V D ( Q U O 0033600 T E G E T P R O P ) ( Q U O 0033620 T E G E T ) ) \r ( M O V D ( 0033640 Q U O T E R P A Q ? ) ( Q U 0033660 O T E D E F V A R ) ) \r ( P U 0033700 T P R O P S C L : M E M B E R 0033720 D M A C R O ( D E F M A C R 0033740 O ( I T E M L I S T & K E 0033760 Y ( T E S T ( Q U O T E ( 0034000 F U N C T I O N E Q L ) ) T 0034020 E S T S U P P L I E D ) ( \r T 0034040 E S T - N O T N I L T E S T 0034060 N O T S U P P L I E D ) ( K E 0034100 Y ( Q U O T E ( F U N C T I 0034120 O N I D E N T I T Y ) ) ) ) 0034140 ( * o p t i m i z e s i m p 0034160 l e c a s e s ) ( A N D ( 0034200 E Q \r T E S T ( Q U O T E 0034220 E Q L ) ) ( L E T ( ( C E 0034240 ( C O N S T A N T E X P R E S S 0034260 I O N P L I S T ) ) ) ( A N 0034300 D C E ( E V E R Y C E ( 0034320 F U N C T I O N ( L A M B D A 0034340 ( X ) ( O R ( \r S M A L L 0034360 P X ) ( L I T A T O M X ) 0034400 ) ) ) ) ( S E T Q T E S T 0034420 ( Q U O T E E Q ) ) ) ) ) ( 0034440 L E T ( ( T E S T C ( C O N 0034460 S T A N T E X P R E S S I O N P 0034500 T E S T ) ) ( K E Y C ( \r 0034520 C O N S T A N T E X P R E S S I 0034540 O N P K E Y ) ) ( T E S T N 0034560 O T C ( C O N S T A N T E X P 0034600 R E S S I O N P T E S T - N O 0034620 T ) ) ( L I S T C ( C O N S 0034640 T A N T E X P R E S S I O N P 0034660 L I S T ) ) \r ) ( i f ( A N 0034700 D L I S T C K E Y C ( E Q 0034720 U A L T E S T C ( Q U O T E 0034740 ( E Q L ) ) ) ( E V E R Y 0034760 ( C A R L I S T C ) ( F U N 0035000 C T I O N ( L A M B D A ( X 0035020 ) ( N O T ( \r N U M B E R P 0035040 ( A P P L Y * ( C A R K E 0035060 Y C ) X ) ) ) ) ) ) ) t h e 0035100 n ( S E T Q T E S T C ( Q 0035120 U O T E ( E Q ) ) ) ) ( C O 0035140 N D ( ( A N D T E S T C K 0035160 E Y C T E S T N O T C ) ( \r 0035200 i f ( A N D ( E Q ( C A R 0035220 T E S T C ) ( Q U O T E E 0035240 Q ) ) ( E Q ( C A R K E Y 0035260 C ) ( Q U O T E I D E N T I 0035300 T Y ) ) ( N O T T E S T N O 0035320 T S U P P L I E D ) ) t h e n 0035340 ( L I S T \r ( Q U O T E F 0035360 M E M B ) I T E M L I S T ) 0035400 e l s e ( L E T ( ( I T E 0035420 R V A R ( G E N S Y M " M E 0035440 M B E R " ) ) ( I T E M V A R 0035460 ( G E N S Y M " M E M B E R 0035500 - I T E M " ) ) ) ( \r B Q U O 0035520 T E ( L E T ( ( , I T E M 0035540 V A R , I T E M ) ) ( f o 0035560 r , I T E R V A R o n , 0035600 L I S T , ( i f T E S T 0035620 N O T S U P P L I E D t h e n 0035640 ( Q U O T E u n l e s s ) 0035660 \r e l s e ( Q U O T E w h e 0035700 n ) ) ( , ( i f T E S T N 0035720 O T S U P P L I E D t h e n 0035740 ( C A R T E S T N O T C ) e 0035760 l s e ( C A R T E S T C ) ) 0036000 ( , ( C A R K E Y C ) ( 0036020 C A R , \r I T E R V A R ) ) 0036040 , I T E M V A R ) d o ( 0036060 R E T U R N , I T E R V A R 0036100 ) ) ) ) ) ) ) ( T ( Q U O T 0036120 E I G N O R E M A C R O ) ) ) 0036140 ) ) ) \r ( P U T P R O P S C L 0036160 : S E T Q D M A C R O ( D E 0036200 F M A C R O ( & R E S T V A 0036220 R S - A N D - F O R M S ) ( * 0036240 l i k e I n t e r l i s p ' 0036260 s S E T Q b u t a l l o w 0036300 s m u l t i p l e \r s e t s 0036320 ) ( O R ( E V E N P ( L E 0036340 N G T H V A R S - A N D - F O 0036360 R M S ) ) ( S H O U L D N T 0036400 " M u s t h a v e a n e v 0036420 e n n u m b e r o f a r g 0036440 u m e n t s t o S E T Q . " 0036460 ) \r ) ( B Q U O T E ( P R O 0036500 G N , @ ( f o r X o n 0036520 V A R S - A N D - F O R M S b 0036540 y ( C D D R X ) c o l l e 0036560 c t ( P R O G N ( O R ( S 0036600 Y M B O L P ( C A R X ) ) 0036620 ( \r S H O U L D N T " A l l 0036640 t h e o d d n u m b e r e d 0036660 a r g u m e n t s t o S E 0036700 T Q m u s t b e s y m b o 0036720 l s . " ) ) ( B Q U O T E ( 0036740 S E T Q , ( C A R X ) , 0036760 ( C A D R X \r ) ) ) ) ) ) ) 0037000 ) ) \r ( P U T P R O P S C L : 0037020 I F D M A C R O ( X ( B Q 0037040 U O T E ( C O N D ( ( \ , 0037060 ( C A R X ) ) ( \ , ( C A 0037100 D R X ) ) ) ( T ( \ , @ 0037120 ( O R ( C D D R X ) ( L I 0037140 S T N I L ) ) ) \r ) ) ) ) ) \r 0037160 ( D E F M A C R O C L : U N L 0037200 E S S ( T E S T & B O D Y 0037220 B O D Y ) ( B Q U O T E ( C 0037240 O N D ( ( \ , ( N E G A T E 0037260 T E S T ) ) ( \ , @ B O D 0037300 Y ) ) ) ) ) \r ( D E F M A C R O 0037320 C L : W H E N ( T E S T & 0037340 B O D Y B O D Y ) ( B Q U O 0037360 T E ( C O N D ( ( \ , T E 0037400 S T ) ( \ , @ B O D Y ) ) ) 0037420 ) ) \r ( P U T P R O P S C O P 0037440 Y - L I S T D M A C R O ( ( 0037460 X ) ( A P P E N D X N I L 0037500 ) ) ) \r ( P U T P R O P S I D 0037520 E N T I T Y D M A C R O ( ( 0037540 X ) X ) ) \r ( D E F M A C R O 0037560 U N W I N D - P R O T E C T 0037600 ( F O R M & R E S T C L E A 0037620 N U P S ) ( L E T ( ( B A D 0037640 V A R S ( f o r X i n ( 0037660 F R E E V A R S ( C O N S ( 0037700 Q U O T E P R O G N ) \r C L 0037720 E A N U P S ) ) u n l e s s 0037740 ( O R ( C O M P . G L O B A L 0037760 V A R P X ) ( C O N S T A N 0040000 T E X P R E S S I O N P X ) ) 0040020 c o l l e c t X ) ) ) ( A 0040040 N D B A D V A R S ( P R I N 0040060 T O U T \r T " W A R N I N G 0040100 : U N W I N D - P R O T E C T 0040120 F R E E V A R I A B L E : 0040140 " B A D V A R S T ) ) ) ( 0040160 B Q U O T E ( R E S E T L S T 0040200 ( R E S E T S A V E N I L 0040220 ( L I S T ( \r F U N C T I O N 0040240 ( L A M B D A N I L , @ 0040260 C L E A N U P S ) ) ) ) , F 0040300 O R M ) ) ) \r ( P U T P R O P S 0040320 E Q L B Y T E M A C R O C 0040340 O M P . E Q ) \r ( P U T P R O P 0040360 S C L : A P P L Y D M A C R 0040400 O ( D E F M A C R O ( F N 0040420 & R E S T A R G S ) ( B Q U 0040440 O T E ( L E T ( ( F N ( \ 0040460 , F N ) ) ( C N T ( \ , 0040500 ( L E N G T H ( C D R \r A R 0040520 G S ) ) ) ) ) ( . S P R E A D 0040540 . ( ( O P C O D E S ) , @ 0040560 A R G S ) C N T F N ) ) ) ) 0040600 ) \r ( M O V D ( Q U O T E A 0040620 P P L Y * ) ( Q U O T E F U 0040640 N C A L L ) ) \r ( P U T P R O P 0040660 S F U N C A L L D M A C R O 0040700 C O M P . A P P L Y * ) \r ( P 0040720 U T P R O P S I N T E G E R P 0040740 D M A C R O ( ( X ) ( A N 0040760 D ( F I X P X ) T ) ) ) \r 0041000 ( P U T P R O P S S Y M B O L 0041020 P D M A C R O ( = . L I 0041040 T A T O M ) ) \r ( P U T P R O P 0041060 S C O N S P D M A C R O ( 0041100 = . L I S T P ) ) \r ( P U T 0041120 P R O P S C L : L I S T P D 0041140 M A C R O ( O P E N L A M B D 0041160 A ( X ) ( O R ( N U L L 0041200 X ) ( A N D ( L I S T P X 0041220 ) T ) ) ) ) \r ( A D D T O V A 0041240 R D W I M U S E R F O R M S 0041260 ( D W I M K E Y W O R D ) ) \r ( 0041300 P U T P R O P S C O M P . U S 0041320 E R F N R E A D V I C E ( N 0041340 I L ( B E F O R E N I L ( 0041360 i f ( \ K E Y W O R D P X ) 0041400 t h e n ( R E T U R N ( L 0041420 I S T ( Q U O T E Q U O T E 0041440 ) X ) ) \r ) ) ) ) \r ( R E A D 0041460 V I S E C O M P . U S E R F N 0041500 ) \r ( R P A Q Q C M L T R A N 0041520 S L A T I O N S ( ( p o s i t 0041540 i o n . C L : P O S I T I O 0041560 N ) ( l i s t p . C L : L 0041600 I S T P ) ( l a m b d a . 0041620 C L : L A M B D A ) ( m a p c 0041640 a r . \r C L : M A P C A R ) 0041660 ( d o . C L : D O ) ( d 0041700 o * . C L : D O * ) ( i f 0041720 . C L : I F ) ( l e n g t 0041740 h . C L : L E N G T H ) ( 0041760 a t o m . C L : A T O M ) 0042000 ( m e m b e r . \r C L : M E 0042020 M B E R ) ( p u s h . C L 0042040 : P U S H ) ( r e p l a c e 0042060 . C L : R E P L A C E ) ( w 0042100 h e n . C L : W H E N ) ( 0042120 u n l e s s . C L : U N L E 0042140 S S ) ( * . C L : * ) ) ) 0042160 \r ( R P A Q C L I S P C H A R 0042200 S ( L D I F F E R E N C E C 0042220 L I S P C H A R S ( Q U O T E 0042240 ( : - * ) ) ) ) \r ( R P A 0042260 Q C L I S P C H A R R A Y ( 0042300 M A K E B I T T A B L E C L I 0042320 S P C H A R S ) ) \r ( R P A Q Q 0042340 C L I S P I F Y P A C K F L G 0042360 N I L ) \r ( D E F M A C R O 0042400 D E F U N ( N A M E A R G S 0042420 & R E S T B O D Y ) ( D E 0042440 F U N . D E C O D E N A M E 0042460 A R G S B O D Y ) ) \r ( D E F 0042500 M A C R O D E F U N - I N L I 0042520 N E ( N A M E A R G S & R 0042540 E S T B O D Y ) ( B Q U O T 0042560 E ( P U T P R O P S ( \ , 0042600 N A M E ) M A C R O ( O P E 0042620 N L A M B D A ( \ , A R G S 0042640 ) \r ( \ , @ B O D Y ) ) ) ) 0042660 ) \r ( D E F M A C R O D E F S 0042700 U B S T ( N A M E A R G S 0042720 & R E S T B O D Y ) ( B Q U 0042740 O T E ( P U T P R O P S ( \ 0042760 , N A M E ) M A C R O ( O 0043000 P E N L A M B D A ( \ , A R 0043020 G S ) ( \ , @ \r B O D Y ) ) 0043040 ) ) ) \r ( R P A Q Q L A M B D 0043060 A - L I S T - K E Y W O R D S 0043100 ( & O P T I O N A L & R E S T 0043120 & K E Y & A U X & B O D Y 0043140 & W H O L E & A L L O W - O 0043160 T H E R - K E Y S & E N V I R 0043200 O N M E N T ) ) \r ( P U T P R O 0043220 P S \ K E Y S E A R C H M A 0043240 C R O ( ( C N T K E Y A R 0043260 G N ) ( f o r \ I N D E X 0043300 f r o m C N T t o A R G N 0043320 b y 2 w h e n ( E Q ( 0043340 A R G A R G N \ I N D E X \r 0043360 ) ( Q U O T E K E Y ) ) d 0043400 o ( R E T U R N ( A D D 1 0043420 \ I N D E X ) ) ) ) ) \r ( P U T 0043440 P R O P S N E E D . A R G V A 0043460 R M A C R O ( N I L ( O R 0043500 A R G V A R ( S E T Q A R 0043520 G V A R ( P A C K * " \ " 0043540 N A M E " . A R G C N T " ) ) 0043560 ) ) ) \r ( F I L E S L O A D L 0043600 A M B D A T R A N ) \r ( A D D T 0043620 O V A R L A M B D A S P L S T 0043640 C L : L A M B D A ) \r ( A D D 0043660 T O V A R L A M B D A T R A N 0043700 F N S ( C L : L A M B D A \ 0043720 L A M B D A . C L . T O . I L 0043740 \ C L - L A M B D A - F N T Y P 0043760 C A D R ) ) \r ( A D D T O V A 0044000 R P R E T T Y E Q U I V L S T 0044020 ( C L : L A M B D A . L A 0044040 M B D A ) ) \r ( D E F M A C R O 0044060 C L : D O ( V A R S E N D 0044100 - T E S T & B O D Y B O D Y 0044120 ) ( \ D O . T R A N S L A T E 0044140 V A R S E N D - T E S T B 0044160 O D Y N I L ) ) \r ( D E F M A 0044200 C R O C L : D O * ( B I N D 0044220 S E N D - T E S T & R E S T 0044240 B O D Y ) ( \ D O . T R A N 0044260 S L A T E B I N D S E N D - 0044300 T E S T B O D Y T ) ) \r ( R 0044320 P A Q C M L R D T B L ( C M 0044340 L R D T B L ) ) \r ( P U T P R O 0044360 P S P R O G V M A C R O ( 0044400 ( S Y M S V A L S . B O D 0044420 Y ) ( E V A L A ( L I S T 0044440 ( F U N C T I O N ( L A M B D 0044460 A N I L . B O D Y ) ) ) 0044500 ( ( L A M B D A ( \ V a r s \r 0044520 \ V a l s ) ( D E C L A R E 0044540 ( L O C A L V A R S \ V a r 0044560 s \ V a l s ) ) ( w h i l e 0044600 \ V a r s c o l l e c t ( 0044620 C O N S ( p o p \ V a r s ) 0044640 ( O R ( p o p \ V a l s ) 0044660 ( \r Q U O T E N O B I N D ) 0044700 ) ) ) ) S Y M S V A L S ) ) 0044720 ) ) \r ( P U T P R O P S C A T 0044740 C H D M A C R O ( D E F M A 0044760 C R O ( T A G F O R M & R E 0045000 S T F O R M S ) ( L E T ( 0045020 ( Y ( L I S P F O R M . S I M 0045040 P L I F Y ( M K P R O G N F 0045060 O R M S ) T ) ) \r ( C T A G 0045100 ( C O N S T A N T E X P R E S 0045120 S I O N P T A G F O R M ) ) ) 0045140 ( R E T U R N ( C O N D ( 0045160 C T A G ( S E T Q C T A G 0045200 ( \ C A T C H . T A G . I N T E 0045220 R N ( C A R C T A G ) ) ) 0045240 \r ( S U B P A I R ( Q U O T E 0045260 ( X F O R M ) ) ( L I S T 0045300 T A G F O R M Y ) ( Q U O 0045320 T E ( \ C A T C H R U N F U N 0045340 ( F U N C T I O N ( L A M B 0045360 D A N I L ( ( L A M B D A 0045400 ( X ) ( \r D E C L A R E ( S 0045420 P E C V A R S X ) ) F O R M 0045440 ) ( \ M Y A L I N K ) ) ) ) ) 0045460 ) ) ) ( T ( L I S T ( Q U 0045500 O T E \ C A T C H . A U X ) 0045520 T A G F O R M ( B Q U O T E 0045540 ( F U N C T I O N ( \r L A M B 0045560 D A N I L , Y ) ) ) ) ) ) 0045600 ) ) ) ) \r ( P U T P R O P S * 0045620 C A T C H M A C R O ( = . 0045640 C A T C H ) ) \r ( P U T P R O 0045660 P S \ C A T C H R U N F U N 0045700 D M A C R O ( = . S P R E 0045720 A D A P P L Y * ) ) \r ( P U T P 0045740 R O P S T H R O W D M A C R 0045760 O ( X ( P R O G ( ( Y ( 0046000 L I S P F O R M . S I M P L I F 0046020 Y ( C O N S ( Q U O T E P 0046040 R O G N ) X ) T ) ) T A G 0046060 F O R M ) ( S E T Q Y ( \r 0046100 C D R Y ) ) ( R E T U R N 0046120 ( C O N D ( ( S E T Q T A G 0046140 F O R M ( C O N S T A N T E X 0046160 P R E S S I O N P ( C A R Y 0046200 ) ) ) ( L I S T ( Q U O T E 0046220 \ T H R O W . A U X ) ( \r \ 0046240 C A T C H . T A G . I N T E R N 0046260 ( C A R T A G F O R M ) ) 0046300 ( K W O T E ( C A R T A G F 0046320 O R M ) ) ( C A D R Y ) ) ) 0046340 ( T ( Q U O T E I G N O R 0046360 E M A C R O ) ) ) ) ) ) ) \r ( P 0046400 U T P R O P S * T H R O W M 0046420 A C R O ( = . T H R O W ) 0046440 ) \r ( D E F M A C R O U N W I 0046460 N D P R O T E C T ( F O R M 0046500 & R E S T C L E A N U P S ) 0046520 ( L E T ( ( B A D V A R S ( 0046540 f o r X i n ( F R E E V A 0046560 R S ( C O N S ( Q U O T E 0046600 P R O G N ) \r C L E A N U P S 0046620 ) ) U N L E S S ( O R ( C 0046640 O M P . G L O B A L V A R P X 0046660 ) ( C O N S T A N T E X P R E 0046700 S S I O N P X ) ) C O L L E 0046720 C T X ) ) ) ( A N D B A D 0046740 V A R S ( P R I N T O U T \r 0046760 T " W A R N I N G : U N W I 0047000 N D - P R O T E C T F R E E 0047020 V A R I A B L E : " B A D V 0047040 A R S T ) ) ) ( B Q U O T E 0047060 ( R E S E T L S T ( R E S E 0047100 T S A V E N I L ( L I S T 0047120 ( \r F U N C T I O N ( L A M B 0047140 D A N I L , @ C L E A N U 0047160 P S ) ) ) ) , F O R M ) ) ) 0047200 \r ( R P A Q \ T H R O W . S T 0047220 R B U F F E R ( P R O G ( ( 0047240 X ( A L L O C S T R I N G 2 0047260 5 6 ) ) ) ( R P L S T R I N G 0047300 X 1 ( Q U O T E \ C A T 0047320 C H . T A G . ) ) ( R E T U R 0047340 N X ) ) ) \r ( D E C L A R E : 0047360 D O E V A L @ C O M P I L E 0047400 D O N T C O P Y ( G L O B A L 0047420 V A R S \ T H R O W . S T R B 0047440 U F F E R ) ) \r ( D E F M A C R 0047460 O S E T F ( A C C E S S - F 0047500 O R M V A L U E - F O R M ) 0047520 ( B Q U O T E ( C H A N G E 0047540 , A C C E S S - F O R M , 0047560 V A L U E - F O R M ) ) ) \r ( D 0047600 E F M A C R O D E F S E T F 0047620 ( N A M E S E T F - F U N C T 0047640 I O N & R E S T M O R E ) 0047660 ( i f ( O R M O R E ( N O 0047700 T ( L I T A T O M S E T F - 0047720 F U N C T I O N ) ) ) t h e n 0047740 ( \r H E L P " C O M P L E X 0047760 S E T F N O T I M P L E M 0050000 E N T E D " ) ) ( B Q U O T E 0050020 ( S A V E P U T ( Q U O T E 0050040 ( \ , N A M E ) ) ( Q U O 0050060 T E S E T F N ) ( Q U O T E 0050100 ( \ , \r S E T F - F U N C T 0050120 I O N ) ) ) ) ) \r ( P U T P R O 0050140 P S \ G E T B A S E P T R S 0050160 E T F N \ P U T B A S E P T R 0050200 ) \r ( D E F M A C R O C L : P 0050220 U S H ( I T E M L I S T ) 0050240 ( B Q U O T E ( p u s h ( \ 0050260 , L I S T ) ( \ , I T E M 0050300 ) ) ) ) \r ( D E F M A C R O D 0050320 O L I S T ( ( X L ) & B O 0050340 D Y B O D Y ) ( B Q U O T E 0050360 ( F O R ( \ , X ) I N 0050400 ( \ , L ) D O ( P R O G N 0050420 ( \ , @ B O D Y ) ) ) ) ) \r 0050440 ( D E F M A C R O D O T I M E 0050460 S ( I T E R F O R M & B O D 0050500 Y B O D Y ) ( L E T ( ( X 0050520 ( C A R I T E R F O R M ) ) 0050540 ( T I M E S ( C A D R I T 0050560 E R F O R M ) ) ( R E S U L T 0050600 F O R M ( \r C A D D R I T E 0050620 R F O R M ) ) ) ( B Q U O T E 0050640 ( f o r ( \ , X ) f r o 0050660 m 0 t o ( S U B 1 ( \ , 0050700 T I M E S ) ) d o ( P R O 0050720 G N ( \ , @ B O D Y ) ) f 0050740 i n a l l y ( \r R E T U R N 0050760 ( \ , ( O R R E S U L T F O 0051000 R M N I L ) ) ) ) ) ) ) \r ( D 0051020 E F M A C R O C A S E ( & W 0051040 H O L E F O R M ) ( L E T 0051060 ( ( K V ( G E N S Y M ) ) ( 0051100 C L A U S E S N I L ) ) ( C 0051120 L : D O ( ( C ( C D D R F 0051140 O R M ) ( C D R C ) ) ) ( 0051160 ( \r C L : A T O M C ) ) ( C 0051200 O N D ( ( C L : A T O M ( C 0051220 A R C ) ) ( E R R O R " ~ 0051240 S - - B a d c l a u s e 0051260 i n C A S E . " ( C A R C 0051300 ) ) ) ( ( M E M Q ( C A A R 0051320 C ) ( \r Q U O T E ( T O 0051340 T H E R W I S E ) ) ) ( C L : 0051360 P U S H ( B Q U O T E ( T 0051400 ( \ , @ ( C D A R C ) ) ) ) 0051420 C L A U S E S ) ( R E T U R 0051440 N N I L ) ) ( ( N U L L ( 0051460 C A A R C ) ) ( \r C L : P U 0051500 S H ( B Q U O T E ( ( N U L 0051520 L ( \ , K V ) ) ( \ , @ 0051540 ( C D A R C ) ) ) ) C L A U 0051560 S E S ) ) ( ( N O T ( C O N 0051600 S P ( C A A R C ) ) ) ( C 0051620 L : P U S H ( B Q U O T E ( 0051640 ( \r E Q L ( Q U O T E ( \ , 0051660 ( C A A R C ) ) ) ( \ , 0051700 K V ) ) ( \ , @ ( C D A R 0051720 C ) ) ) ) C L A U S E S ) ) 0051740 ( T ( C L : P U S H ( B Q U 0051760 O T E ( ( O R ( \ , @ ( C 0052000 L : D O ( ( X \r ( C A A R 0052020 C ) ( C D R X ) ) ( Y N 0052040 I L ) ) ( ( C L : A T O M X 0052060 ) ( R E V E R S E Y ) ) ( 0052100 C L : P U S H ( B Q U O T E 0052120 ( E Q L ( Q U O T E ( \ , 0052140 ( C A R X ) ) ) ( \ , \r K 0052160 V ) ) ) Y ) ) ) ) ( \ , @ 0052200 ( C D A R C ) ) ) ) C L A U 0052220 S E S ) ) ) ) ( B Q U O T E 0052240 ( L E T ( ( ( \ , K V ) ( 0052260 \ , ( C A D R F O R M ) ) ) 0052300 ) ( C O N D ( \ , @ ( R E 0052320 V E R S E \r C L A U S E S ) ) 0052340 ) ) ) ) ) \r ( D E F M A C R O 0052360 D E S T R U C T U R I N G - B I 0052400 N D ( V A R I A B L E - P A T 0052420 T E R N V A L U E - P A T T E 0052440 R N . B O D Y ) ( D E C L 0052460 A R E ( S P E C V A R S \r D 0052500 - B - B O U N D - S Y M B O L S 0052520 D - B - S E T Q S ) ) ( L E 0052540 T ( ( D - B - V A L U E - S Y 0052560 M B O L ( Q U O T E D - B - 0052600 V A L U E ) ) ( D - B - B O U 0052620 N D - S Y M B O L S N I L ) 0052640 ( \r D - B - S E T Q S N I L ) 0052660 ) ( D E S T R U C T U R I N G 0052700 - B I N D - 1 V A R I A B L E 0052720 - P A T T E R N ) ( B Q U O T 0052740 E ( L E T , D - B - B O U 0052760 N D - S Y M B O L S ( L E T 0053000 ( ( , \r D - B - V A L U E - S 0053020 Y M B O L , V A L U E - P A 0053040 T T E R N ) ) , @ D - B - S 0053060 E T Q S ) , @ B O D Y ) ) ) 0053100 ) \r ( D E F M A C R O D E S E 0053120 T Q ( V A R I A B L E - P A T 0053140 T E R N V A L U E - P A T T E 0053160 R N & R E S T L ) ( C O N 0053200 D ( ( N U L L L ) ( D E C 0053220 L A R E ( G L O B A L V A R S 0053240 \r D - B - B O U N D - S Y M B 0053260 O L S D - B - S E T Q S ) ) 0053300 ( L E T ( ( D - B - V A L U E 0053320 - S Y M B O L ( Q U O T E D 0053340 - B - V A L U E ) ) ( D - B - 0053360 B O U N D - S Y M B O L S N I 0053400 L ) ( \r D - B - S E T Q S N 0053420 I L ) ) ( D E S T R U C T U R 0053440 I N G - B I N D - 1 V A R I A 0053460 B L E - P A T T E R N ) ( B Q 0053500 U O T E ( L E T ( ( , D - 0053520 B - V A L U E - S Y M B O L , 0053540 \r V A L U E - P A T T E R N ) 0053560 ) , @ D - B - S E T Q S ) ) 0053600 ) ) ( T ( B Q U O T E ( P 0053620 R O G N ( D E S E T Q , V 0053640 A R I A B L E - P A T T E R N 0053660 , V A L U E - P A T T E R N ) 0053700 ( P R O G N \r ( D E S E T Q 0053720 , @ L ) ) ) ) ) ) ) \r ( S E 0053740 T T E M P L A T E ( Q U O T E 0053760 C A T C H ) ( Q U O T E ( 0054000 . . E V A L ) ) ) \r ( P U T P 0054020 R O P S C M L S P E C I A L F 0054040 O R M S C O P Y R I G H T ( 0054060 " X e r o x C o r p o r a t i 0054100 o n " 1 9 8 3 1 9 8 4 1 9 0054120 8 5 ) ) \r N I L \r 0054131