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