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