$ od -c -N 50000 [phylum]<LISP>KOTO>Library>CMLTYPES.DCOM!1 0000000 ( F I L E C R E A T E D " 2 6 0000020 - S e p - 8 5 0 3 : 3 4 : 2 6 0000040 " ( " c o m p i l e d o n 0000060 " { E R I S } < L I S P C O R 0000100 E > L I B R A R Y > C M L T Y P 0000120 E S . ; 1 3 ) \r " 2 5 - S e p 0000140 - 8 5 1 9 : 3 6 : 0 4 " t c 0000160 o m p l ' d i n " I N T E R 0000200 L I S P - D 2 5 - S e p - 8 5 0000220 . . . " d a t e d " 2 5 - 0000240 S e p - 8 5 1 9 : 5 0 : 4 1 " 0000260 ) \r ( F I L E C R E A T E D " 0000300 2 6 - S e p - 8 5 0 3 : 3 4 : 0000320 1 2 " { E R I S } < L I S P C 0000340 O R E > L I B R A R Y > C M L T 0000360 Y P E S . ; 1 3 1 1 9 3 4 c 0000400 h a n g e s t o : ( V A R S 0000420 \r C M L T Y P E S C O M S ) 0000440 p r e v i o u s d a t e : " 0000460 1 2 - S e p - 8 5 0 1 : 0 6 : 0000500 4 2 " { E R I S } < L I S P C 0000520 O R E > L I B R A R Y > C M L T 0000540 Y P E S . ; 1 2 ) \r C O E R C E 0000560 D 1 \r ( I 1 R E S U L T - 0000600 T Y P E I 0 O B J E C T ) 0000620 \0 026 001 \0 \0 002 @ A \n \0 \0 221 @ 020 A 0000640 \t \0 \0 021 001 \0 @ k H 017 016 020 \0 ( 1 3 0000660 Q \ C O E R C E . F U N C T I 0000700 O N 4 T Y P E P ) \r N I L \r 0000720 ( ) \r E N U M E R A T E D - T Y 0000740 P E S - O F D 1 \r N I L \0 % 0000760 004 \0 \0 \0 021 @ 003 \b \0 \0 260 031 d 001 [ g 0001000 \0 \0 033 265 003 K 270 I 265 \a H h 032 Z 201 H 0001020 & 271 002 003 265 350 J 020 \0 ( 5 D A T A 0001040 T Y P E S ) \r ( 1 5 Q C M L T 0001060 Y P E ) \r ( ) \r T Y P E - O F 0001100 D 1 \r ( I 0 X ) \0 021 001 \0 \0 0001120 001 @ \t \0 \0 021 001 \0 H g \0 \0 033 265 003 H 0001140 020 \0 ( 3 T Y P E N A M E ) \r ( 0001160 1 2 Q C M L T Y P E ) \r ( ) \r 0001200 T Y P E P D 1 \r ( I 1 T Y 0001220 P E I 0 O B J E C T ) \0 0001240 022 001 \0 \0 002 A \t \0 \0 021 001 \0 @ k H 017 0001260 016 022 264 003 i 020 \0 ( 3 \ T Y P E P 0001300 . P R E D ) \r N I L \r ( ) \r T Y 0001320 P E S . G E T D E F D 1 \r ( P 0001340 2 T Y P E - P R E D I C A T 0001360 E P 1 D O C P 0 P R 0001400 O P I 0 N A M E ) \0 X 003 0001420 \0 \0 001 @ g \0 \0 033 @ g \0 \0 033 @ g \0 0001440 \0 033 021 003 002 H 265 006 I 264 ( H 001 g \0 \0 0001460 360 262 035 g \0 \0 @ H 002 001 I d 221 h 032 H 0001500 002 002 001 h 032 \n \0 \0 032 032 032 h 032 202 \b \0 0001520 \0 J 264 021 g \0 \0 @ g \0 \0 J h 032 032 032 0001540 032 h 032 \n \0 \0 \t \0 \0 020 \0 ( 1 2 5 Q 0001560 M K P R O G N 1 2 2 Q \ A 0001600 P P E N D 2 7 5 Q H E L P 0001620 6 4 Q \ A P P E N D 2 ) \r ( 1 0001640 0 7 Q T Y P E - P R E D I C A 0001660 T E 1 0 3 Q P U T P R O P S 0001700 4 2 Q D E F T Y P E 3 4 Q 0001720 M A C R O 1 5 Q T Y P E - 0001740 P R E D I C A T E 1 0 Q T Y 0001760 P E - D O C U M E N T A T I O N 0002000 3 D E F T Y P E ) \r ( ) \r \ 0002020 C O E R C E . F U N C T I O N 0002040 D 1 \r ( P 0 P R O P I 0 0002060 T Y P E F 1 \ C O E R C 0002100 E M A C R O H A S H ) \0 267 001 001 0002120 \0 001 @ d 003 242 261 \0 210 Q 035 265 003 202 261 \0 0002140 251 @ d 001 d g \0 \0 360 225 277 \b \0 \0 260 k 0002160 d g \0 \0 360 262 4 277 @ 002 002 247 @ 002 001 \t 0002200 \0 \0 260 W g \0 \0 o \0 \0 \0 g \0 \0 @ 002 0002220 002 032 \t \0 \0 @ 002 001 \t \0 \0 o \0 \0 \0 032 0002240 h 032 032 h 032 032 032 260 2 d g \0 \0 360 245 d 0002260 g \0 \0 360 225 277 \b \0 \0 260 277 @ 001 g \0 0002300 \0 033 021 001 \0 H 001 g \0 \0 360 230 H @ \n \0 0002320 \0 \t \0 \0 202 \b \0 \0 022 Q \v \0 \0 020 i 360 0002340 223 g \0 \0 020 @ d 244 o \0 \0 \0 020 g \0 \0 0002360 033 265 026 o \0 \0 \0 i \n \0 \0 277 @ i \n \0 0002400 \0 277 i \t \0 \0 h 020 \0 ( 2 6 3 Q T 0002420 E R P R I 2 5 6 Q P R I N 1 0002440 2 5 0 Q P R I N 1 2 1 2 Q 0002460 P U T H A S H 2 0 5 Q H E 0002500 L P 2 0 1 Q \ C O E R C E . 0002520 F U N C T I O N 1 7 6 Q \ T 0002540 Y P E P . E X P A N D . M A C R 0002560 O 1 4 6 Q S H O U L D N T 0002600 1 1 0 Q \ C O E R C E . F U N 0002620 C T I O N 1 0 2 Q \ C O E R 0002640 C E . F U N C T I O N 5 7 Q 0002660 \ C O E R C E . F U N C T I O N 0002700 3 3 Q S H O U L D N T ) \r ( 0002720 2 3 5 Q T Y P E - C O E R C E 0002740 2 2 1 Q I D E N T I T Y 1 0002760 6 7 Q M A C R O 1 5 6 Q D 0003000 E F T Y P E 1 4 0 Q N O T 0003020 1 3 2 Q O R 7 3 Q A N D 0003040 6 4 Q L A M B D A 4 1 Q A 0003060 N D 2 5 Q S A T I S F I E S 0003100 ) \r ( 2 4 4 Q " W a r n i n 0003120 g : N o C O E R C E f u n 0003140 c t i o n f o r " 2 3 1 Q 0003160 ( L A M B D A ( X ) ( E R 0003200 R O R " c a n ' t c o e r c 0003220 e " X ) ) 1 1 4 Q ( X ) 0003240 7 0 Q ( X ) ) \r \ R A N G E . 0003260 T Y P E D 1 \r ( P 1 X I 0003300 3 R A N G E L I S T I 2 0003320 H I G H I 1 L O W I 0003340 0 B A S E T Y P E ) \0 250 002 \0 0003360 \0 004 A 245 g \0 \0 b 002 277 B 245 g \0 \0 b 0003400 004 277 A g \0 \0 360 227 B g \0 \0 360 221 @ 020 0003420 C 021 021 001 H 003 265 5 g \0 \0 @ g \0 \0 g 0003440 \0 \0 o \0 \0 \0 g \0 \0 A g \0 \0 360 263 4 0003460 A 003 265 020 g \0 \0 A o \0 \0 \0 032 032 h 032 0003500 260 # 001 b 002 277 g \0 \0 260 356 001 271 A I 001 0003520 364 232 B I 002 001 364 224 I 002 002 001 020 H 002 X 0003540 260 265 h B g \0 \0 360 263 035 B 003 265 020 g \0 0003560 \0 g \0 \0 B h 032 032 032 h 032 211 001 b 004 277 0003600 g \0 \0 260 356 h \t \0 \0 \n \0 \0 032 h 032 032 0003620 032 h 032 032 h 032 032 032 020 \0 ( 2 3 1 Q 0003640 \ A P P E N D 2 2 2 6 Q \ A 0003660 P P E N D 2 ) \r ( 2 2 0 Q < 0003700 2 0 1 Q X 1 7 6 Q < = 1 0003720 6 4 Q * 1 2 6 Q < 1 0 4 0003740 Q < = 7 2 Q * 6 6 Q A 0003760 N D 5 7 Q L A M B D A 5 4 0004000 Q S A T I S F I E S 5 0 Q 0004020 A N D 3 1 Q * 2 3 Q * 0004040 1 4 Q * 4 * ) \r ( 1 1 1 0004060 Q ( X ) 6 3 Q ( X ) ) \r \ 0004100 T Y P E P . E X P A N D . M A C 0004120 R O D 1 \r ( I 1 T Y P E 0004140 I 0 P R O P ) \0 020 \0 \0 \0 002 0004160 @ 002 001 A @ 002 002 001 g \0 \0 \f \0 \0 020 \0 0004200 ( 1 5 Q D E F M A C R O . E X 0004220 P A N D ) \r ( 1 2 Q * ) \r ( ) 0004240 \r \ T Y P E P . P R E D D 1 \r 0004260 ( P 4 P R O P P 3 P R 0004300 E D I 0 T Y P E F 5 0004320 C L I S P A R R A Y ) 001 036 005 001 0004340 \0 001 @ d 003 242 261 \0 265 U 035 265 003 202 261 \0 0004360 254 @ d 001 d g \0 \0 360 226 277 @ 002 001 261 \0 0004400 230 d g \0 \0 360 262 # 277 g \0 \0 o \0 \0 \0 0004420 g \0 \0 g \0 \0 g \0 \0 @ 002 001 h 032 032 h 0004440 032 032 032 h 032 032 032 260 o d g \0 \0 360 254 d 0004460 g \0 \0 360 246 d g \0 \0 360 262 : 277 g \0 \0 0004500 o \0 \0 \0 @ 001 021 @ 003 @ 260 032 d 001 [ \t 0004520 \0 \0 g \0 \0 h 032 032 270 I 265 \a H h 032 Z 0004540 201 H & 271 002 003 265 346 J 022 \t \0 \0 032 h 032 0004560 032 032 260 $ 277 @ 001 g \0 \0 033 021 001 004 L 001 0004600 g \0 \0 360 230 L @ \n \0 \0 \t \0 \0 206 o \0 0004620 \0 \0 \t \0 \0 022 U \v \0 \0 020 i 360 223 g \0 0004640 \0 020 @ d 243 g \0 \0 020 g \0 \0 033 021 001 004 0004660 L 001 g \0 \0 360 232 L @ h 032 \n \0 \0 \t \0 0004700 \0 020 o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0 0004720 277 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 @ g 0004740 \0 \0 g \0 \0 h g \0 \0 g \0 \0 @ h 032 032 0004760 h 032 032 h 032 032 032 \v \0 \0 @ \t \0 \0 020 \0 0005000 ( 4 3 3 Q \ T Y P E P . P R E 0005020 D 4 2 7 Q / P U T P R O P 0005040 3 7 3 Q T E R P R I 3 6 6 Q 0005060 P R I N 1 3 5 5 Q P R I N 0005100 1 3 4 7 Q P R I N 1 3 3 6 0005120 Q \ T Y P E P . P R E D 3 3 0005140 3 Q \ T Y P E P . E X P A N D 0005160 . M A C R O 2 6 7 Q P U T H 0005200 A S H 2 6 2 Q H E L P 2 5 0005220 2 Q \ T Y P E P . P R E D 2 0005240 4 7 Q \ T Y P E P . E X P A N 0005260 D . M A C R O 2 1 2 Q \ A P 0005300 P E N D 2 1 5 7 Q \ T Y P E 0005320 P . P R E D ) \r ( 4 1 1 Q D A 0005340 T A T Y P E 4 0 6 Q Q U O T 0005360 E 4 0 2 Q M A C R O 3 7 7 0005400 Q D E F T Y P E 3 2 2 Q M 0005420 A C R O 3 1 1 Q D E F T Y P 0005440 E 3 0 5 Q N I L L 2 7 6 Q 0005460 T R U E 2 4 0 Q M A C R O 0005500 2 2 7 Q D E F T Y P E 1 6 0005520 2 Q X 1 3 5 Q O P E N L A 0005540 M B D A 1 2 6 Q N O T 1 2 0005560 0 Q O R 1 1 2 Q A N D 6 0005600 6 Q Q U O T E 6 3 Q X 6 0005620 0 Q T Y P E N A M E P 5 1 Q 0005640 O P E N L A M B D A 4 2 Q 0005660 D A T A T Y P E 2 5 Q S A T 0005700 I S F I E S ) \r ( 3 6 2 Q " 0005720 a s s u m e d t o b e d 0005740 a t a t y p e " 3 4 3 Q " W 0005760 a r n i n g : t y p e " 2 0006000 5 7 Q " u n d e f i n e d t 0006020 y p e u s e d i n T Y P E 0006040 P " 1 4 1 Q ( X ) 5 5 Q 0006060 ( X ) ) \r ( P R E T T Y C O M P 0006100 R I N T C M L T Y P E S C O M 0006120 S ) \r ( R P A Q Q C M L T Y P 0006140 E S C O M S ( ( M A C R O S 0006160 C O E R C E D E F T Y P E N 0006200 I L L T R U E T Y P E P C 0006220 H E C K - T Y P E T H E ) ( 0006240 P R O P P R O P T Y P E D E 0006260 F T Y P E \r T Y P E - D O C U 0006300 M E N T A T I O N T Y P E - P 0006320 R E D I C A T E ) ( F N S C 0006340 O E R C E E N U M E R A T E D 0006360 - T Y P E S - O F T Y P E - O 0006400 F T Y P E P T Y P E S . G E 0006420 T D E F \r \ C O E R C E . F U 0006440 N C T I O N \ R A N G E . T Y 0006460 P E \ T Y P E P . E X P A N D 0006500 . M A C R O \ T Y P E P . P R 0006520 E D ) ( P ( M O V D ( Q U 0006540 O T E S T R I N G P ) ( Q U 0006560 O T E \r S I M P L E - S T R I 0006600 N G - P ) ) ( M O V D ( Q U 0006620 O T E T Y P E N A M E P ) ( 0006640 Q U O T E S T R U C T U R E - 0006660 T Y P E P ) ) ( A D D T O V A 0006700 R S Y S P R O P S D E F T Y 0006720 P E \r T Y P E - D O C U M E N 0006740 T A T I O N ) ) ( F I L E P K 0006760 G C O M S T Y P E S ) ( T Y 0007000 P E S A T O M B I G N U M 0007020 B I T C H A R A C T E R C O 0007040 N S D O U B L E - F L O A T 0007060 F I X N U M \r F L O A T H A 0007100 S H - T A B L E I N T E G E R 0007120 K E Y W O R D L I S T L O 0007140 N G - F L O A T M E M B E R 0007160 M O D N U L L N U M B E R 0007200 S H O R T - F L O A T S I G N 0007220 E D - B Y T E \r S T A N D A R 0007240 D - C H A R S I M P L E - S T 0007260 R I N G S I N G L E - F L O A 0007300 T S T R I N G S Y M B O L 0007320 U N S I G N E D - B Y T E ) ( 0007340 T Y P E S A R R A Y V E C T 0007360 O R ) ( P R O P \r C M L T Y 0007400 P E A R R A Y P C M L A R R 0007420 A Y F I X P F L O A T P L 0007440 I S T P L I T A T O M S M A 0007460 L L P S T R I N G P ) ( P R 0007500 O P T Y P E - C O E R C E C 0007520 H A R A C T E R F L O A T \r 0007540 S I M P L E - S T R I N G ) ( 0007560 V A R S ( \ C O E R C E M A C 0007600 R O H A S H ( H A S H A R R A 0007620 Y 3 0 ) ) ) ( M A C R O S 0007640 T Y P E C A S E ) ) ) \r ( P U T 0007660 P R O P S C O E R C E D M A 0007700 C R O ( D E F M A C R O ( O 0007720 B J T Y P E S P E C ) ( L E 0007740 T * ( ( C E ( C O N S T A N 0007760 T E X P R E S S I O N P T Y P 0010000 E S P E C ) ) ( C F ( A N D 0010020 \r C E ( \ C O E R C E . F U 0010040 N C T I O N ( C A R C E ) ) 0010060 ) ) ) ( i f C F t h e n 0010100 ( L I S T C F O B J ) e l 0010120 s e ( Q U O T E I G N O R E 0010140 M A C R O ) ) ) ) ) \r ( D E F M 0010160 A C R O D E F T Y P E ( N A 0010200 M E L A M B D A - L I S T & 0010220 R E S T R E S T ) ( * d o 0010240 e s n ' t r e t u r n r i g 0010260 h t v a l u e ) ( L E T ( 0010300 ( D O C ( i f ( S T R I N G 0010320 P \r ( C A R R E S T ) ) t 0010340 h e n ( p o p R E S T ) ) ) 0010360 ) ( B Q U O T E ( P U T P R 0010400 O P S ( \ , N A M E ) D E 0010420 F T Y P E ( M A C R O ( \ , 0010440 L A M B D A - L I S T ) ( \ 0010460 , ( \r M K P R O G N R E S T 0010500 ) ) ) ( \ , @ ( A N D D O 0010520 C ( B Q U O T E ( ( \ , N 0010540 A M E ) T Y P E - D O C U M E 0010560 N T A T I O N ( \ , D O C ) 0010600 ) ) ) ) ) ) ) ) \r ( P U T P R O 0010620 P S N I L L D M A C R O ( 0010640 D E F M A C R O B O D Y ( B 0010660 Q U O T E ( P R O G 1 N I L 0010700 ( \ , @ B O D Y ) ) ) ) ) \r 0010720 ( P U T P R O P S T R U E D 0010740 M A C R O ( D E F M A C R O 0010760 B O D Y ( B Q U O T E ( P R 0011000 O G 1 T ( \ , @ B O D Y ) 0011020 ) ) ) ) \r ( P U T P R O P S T 0011040 Y P E P D M A C R O ( D E F 0011060 M A C R O ( O B J T Y P E S 0011100 P E C ) ( L E T ( ( C E ( 0011120 C O N S T A N T E X P R E S S I 0011140 O N P T Y P E S P E C ) ) ) 0011160 ( i f C E t h e n \r ( B Q 0011200 U O T E ( A N D ( , ( \ T 0011220 Y P E P . P R E D ( C A R C 0011240 E ) ) , O B J ) T ) ) e 0011260 l s e ( Q U O T E I G N O R 0011300 E M A C R O ) ) ) ) ) \r ( D E F 0011320 M A C R O C H E C K - T Y P E 0011340 ( P L A C E T Y P E S P E C 0011360 & O P T I O N A L S T R I N 0011400 G ) ( B Q U O T E ( P R O G 0011420 N I L T O P ( i f ( T Y 0011440 P E P ( \ , P L A C E ) ( 0011460 \r Q U O T E ( \ , T Y P E S 0011500 P E C ) ) ) t h e n ( R E T 0011520 U R N T ) ) ( S E T F ( \ 0011540 , P L A C E ) ( \ C H E C K 0011560 - T Y P E - F A I L ( Q U O T 0011600 E ( \ , P L A C E ) ) ( \ 0011620 , ( O R \r S T R I N G ( B 0011640 Q U O T E ( Q U O T E ( \ , 0011660 T Y P E S P E C ) ) ) ) ) ) ) 0011700 ( G O T O P ) ) ) ) \r ( P U 0011720 T P R O P S T H E M A C R O 0011740 ( ( T Y P E S P E C P L A C 0011760 E ) ( P R O G ( ( V A L P 0012000 L A C E ) ) R E T R Y ( R E 0012020 T U R N ( I F ( T Y P E P 0012040 V A L ( Q U O T E T Y P E S 0012060 P E C \r ) ) T H E N V A L 0012100 E L S E ( S E T Q V A L ( 0012120 \ C H E C K - T Y P E - F A I L 0012140 ( Q U O T E T Y P E S P E C 0012160 ) V A L ) ) ( G O R E T R 0012200 Y ) ) ) ) ) ) \r ( P U T P R O P 0012220 S D E F T Y P E P R O P T Y 0012240 P E T Y P E S ) \r ( P U T P R 0012260 O P S T Y P E - D O C U M E N 0012300 T A T I O N P R O P T Y P E 0012320 T Y P E S ) \r ( P U T P R O P S 0012340 T Y P E - P R E D I C A T E 0012360 P R O P T Y P E T Y P E S ) \r 0012400 ( M O V D ( Q U O T E S T R 0012420 I N G P ) ( Q U O T E S I M 0012440 P L E - S T R I N G - P ) ) \r ( 0012460 M O V D ( Q U O T E T Y P E 0012500 N A M E P ) ( Q U O T E S T 0012520 R U C T U R E - T Y P E P ) ) \r 0012540 ( A D D T O V A R S Y S P R O 0012560 P S D E F T Y P E T Y P E - 0012600 D O C U M E N T A T I O N ) \r ( 0012620 P U T D E F ( Q U O T E T Y 0012640 P E S ) ( Q U O T E F I L E 0012660 P K G C O M S ) ( Q U O T E 0012700 ( ( T Y P E D E S C R I P T I 0012720 O N " t y p e s p e c i f i 0012740 e r s " G E T D E F \r T Y P 0012760 E S . G E T D E F ) ) ) ) \r ( P 0013000 U T D E F ( Q U O T E A T O 0013020 M ) ( Q U O T E T Y P E S ) 0013040 ( Q U O T E ( P U T P R O P 0013060 S A T O M T Y P E - P R E D 0013100 I C A T E N L I S T P ) ) ) \r 0013120 ( P U T D E F ( Q U O T E B 0013140 I G N U M ) ( Q U O T E T Y 0013160 P E S ) ( Q U O T E ( D E F 0013200 T Y P E B I G N U M N I L 0013220 ( Q U O T E ( D A T A T Y P E 0013240 B I G N U M ) ) ) ) ) \r ( P U 0013260 T D E F ( Q U O T E B I T ) 0013300 ( Q U O T E T Y P E S ) ( 0013320 Q U O T E ( D E F T Y P E B 0013340 I T N I L ( Q U O T E ( M 0013360 O D 2 ) ) ) ) ) \r ( P U T D E 0013400 F ( Q U O T E C H A R A C T 0013420 E R ) ( Q U O T E T Y P E S 0013440 ) ( Q U O T E ( D E F T Y P 0013460 E C H A R A C T E R N I L 0013500 ( Q U O T E ( S A T I S F I E 0013520 S C H A R A C T E R P ) ) ) ) 0013540 \r ) \r ( P U T D E F ( Q U O T 0013560 E C O N S ) ( Q U O T E T 0013600 Y P E S ) ( Q U O T E ( D E 0013620 F T Y P E C O N S N I L ( 0013640 Q U O T E ( D A T A T Y P E 0013660 L I S T P ) ) ) ) ) \r ( P U T D 0013700 E F ( Q U O T E D O U B L E 0013720 - F L O A T ) ( Q U O T E T 0013740 Y P E S ) ( Q U O T E ( D E 0013760 F T Y P E D O U B L E - F L O 0014000 A T ( & R E S T X ) ( C O 0014020 N S ( Q U O T E F L O A T ) 0014040 \r X ) ) ) ) \r ( P U T D E F 0014060 ( Q U O T E F I X N U M ) ( 0014100 Q U O T E T Y P E S ) ( Q U 0014120 O T E ( D E F T Y P E F I X 0014140 N U M N I L ( Q U O T E ( 0014160 D A T A T Y P E S M A L L P ) 0014200 ) ) ) ) \r ( P U T D E F ( Q U 0014220 O T E F L O A T ) ( Q U O T 0014240 E T Y P E S ) ( Q U O T E 0014260 ( D E F T Y P E F L O A T ( 0014300 & O P T I O N A L L O W H I 0014320 G H ) ( \ R A N G E . T Y P E 0014340 ( Q U O T E ( \r D A T A T Y 0014360 P E F L O A T P ) ) L O W 0014400 H I G H ) ) ) ) \r ( P U T D E F 0014420 ( Q U O T E H A S H - T A B 0014440 L E ) ( Q U O T E T Y P E S 0014460 ) ( Q U O T E ( D E F T Y P 0014500 E H A S H - T A B L E N I L 0014520 ( Q U O T E ( D A T A T Y P 0014540 E H A R R A Y P ) ) ) ) ) \r ( 0014560 P U T D E F ( Q U O T E I N 0014600 T E G E R ) ( Q U O T E T Y 0014620 P E S ) ( Q U O T E ( D E F 0014640 T Y P E I N T E G E R ( & O 0014660 P T I O N A L L O W H I G H 0014700 ) ( \ R A N G E . T Y P E ( 0014720 Q U O T E \r ( S A T I S F I E 0014740 S F I X P ) ) L O W H I G 0014760 H ( Q U O T E ( ( - 6 5 5 3 0015000 6 6 5 5 3 5 F I X N U M ) 0015020 ( 0 1 ( M E M B E R 0 1 0015040 ) ) ) ) ) ) ) ) \r ( P U T D E F 0015060 ( Q U O T E K E Y W O R D ) 0015100 ( Q U O T E T Y P E S ) ( 0015120 Q U O T E ( D E F T Y P E K 0015140 E Y W O R D N I L ( Q U O T 0015160 E ( S A T I S F I E S \ K E 0015200 Y W O R D P ) ) ) ) ) \r ( P U T 0015220 D E F ( Q U O T E L I S T ) 0015240 ( Q U O T E T Y P E S ) ( 0015260 Q U O T E ( D E F T Y P E L 0015300 I S T N I L ( Q U O T E ( 0015320 O R C O N S N U L L ) ) ) ) 0015340 ) \r ( P U T D E F ( Q U O T E 0015360 L O N G - F L O A T ) ( Q U 0015400 O T E T Y P E S ) ( Q U O T 0015420 E ( D E F T Y P E L O N G - 0015440 F L O A T ( & R E S T X ) 0015460 ( C O N S ( Q U O T E F L O 0015500 A T ) X ) ) ) \r ) \r ( P U T D 0015520 E F ( Q U O T E M E M B E R 0015540 ) ( Q U O T E T Y P E S ) 0015560 ( Q U O T E ( D E F T Y P E 0015600 M E M B E R ( & R E S T V A 0015620 L U E S ) ( B Q U O T E ( S 0015640 A T I S F I E S ( L A M B D A 0015660 \r ( X ) ( C L : M E M B E R 0015700 X ( Q U O T E ( \ , V A 0015720 L U E S ) ) ) ) ) ) ) ) ) \r ( P 0015740 U T D E F ( Q U O T E M O D 0015760 ) ( Q U O T E T Y P E S ) 0016000 ( Q U O T E ( D E F T Y P E 0016020 M O D ( N ) ( B Q U O T E 0016040 ( I N T E G E R 0 ( \ , ( 0016060 S U B 1 N ) ) ) ) ) ) ) \r ( P 0016100 U T D E F ( Q U O T E N U L 0016120 L ) ( Q U O T E T Y P E S ) 0016140 ( Q U O T E ( D E F T Y P E 0016160 N U L L N I L ( Q U O T E 0016200 ( M E M B E R N I L ) ) ) ) 0016220 ) \r ( P U T D E F ( Q U O T E 0016240 N U M B E R ) ( Q U O T E 0016260 T Y P E S ) ( Q U O T E ( D 0016300 E F T Y P E N U M B E R N I 0016320 L ( Q U O T E ( S A T I S F 0016340 I E S N U M B E R P ) ) ) ) ) 0016360 \r ( P U T D E F ( Q U O T E 0016400 S H O R T - F L O A T ) ( Q U 0016420 O T E T Y P E S ) ( Q U O T 0016440 E ( D E F T Y P E S H O R T 0016460 - F L O A T ( & R E S T R E 0016500 S T ) ( C O N S ( Q U O T E 0016520 F L O A T ) \r R E S T ) ) ) 0016540 ) \r ( P U T D E F ( Q U O T E 0016560 S I G N E D - B Y T E ) ( Q 0016600 U O T E T Y P E S ) ( Q U O 0016620 T E ( D E F T Y P E S I G N 0016640 E D - B Y T E ( & O P T I O N 0016660 A L S ) ( i f ( E Q S 0016700 ( Q U O T E * \r ) ) t h e n 0016720 ( Q U O T E I N T E G E R ) 0016740 e l s e ( B Q U O T E ( I 0016760 N T E G E R ( \ , ( M I N U 0017000 S ( S E T Q S ( E X P T 0017020 2 ( S U B 1 S ) ) ) ) ) ( 0017040 \ , ( S U B 1 S ) ) ) ) ) \r 0017060 ) ) ) \r ( P U T D E F ( Q U O 0017100 T E S T A N D A R D - C H A R 0017120 ) ( Q U O T E T Y P E S ) 0017140 ( Q U O T E ( D E F T Y P E 0017160 S T A N D A R D - C H A R N I 0017200 L ( Q U O T E ( S A T I S F 0017220 I E S \r S T A N D A R D - C H 0017240 A R - P ) ) ) ) ) \r ( P U T D E 0017260 F ( Q U O T E S I M P L E - 0017300 S T R I N G ) ( Q U O T E T 0017320 Y P E S ) ( Q U O T E ( D E 0017340 F T Y P E S I M P L E - S T R 0017360 I N G N I L ( Q U O T E ( 0017400 S A T I S F I E S \r S T R I N 0017420 G P ) ) ) ) ) \r ( P U T D E F 0017440 ( Q U O T E S I N G L E - F L 0017460 O A T ) ( Q U O T E T Y P E 0017500 S ) ( Q U O T E ( D E F T Y 0017520 P E S I N G L E - F L O A T 0017540 ( & R E S T R E S T ) ( C O 0017560 N S ( Q U O T E \r F L O A T 0017600 ) R E S T ) ) ) ) \r ( P U T D 0017620 E F ( Q U O T E S T R I N G 0017640 ) ( Q U O T E T Y P E S ) 0017660 ( Q U O T E ( D E F T Y P E 0017700 S T R I N G ( & O P T I O N A 0017720 L S I Z E ) ( i f ( O R 0017740 ( N U L L S I Z E ) ( E Q 0017760 \r S I Z E ( Q U O T E * ) ) 0020000 ) t h e n ( Q U O T E ( S 0020020 A T I S F I E S S T R I N G P 0020040 ) ) e l s e ( B Q U O T E 0020060 ( S A T I S F I E S ( L A M B 0020100 D A ( X ) ( A N D ( S T R 0020120 I N G P X ) \r ( E Q L ( N 0020140 C H A R S X ) ( \ , S I Z 0020160 E ) ) ) ) ) ) ) ) ) ) \r ( P U T 0020200 D E F ( Q U O T E S Y M B O 0020220 L ) ( Q U O T E T Y P E S ) 0020240 ( Q U O T E ( D E F T Y P E 0020260 S Y M B O L N I L ( Q U O 0020300 T E ( D A T A T Y P E L I T 0020320 A T O M ) ) ) ) ) \r ( P U T D E 0020340 F ( Q U O T E U N S I G N E 0020360 D - B Y T E ) ( Q U O T E T 0020400 Y P E S ) ( Q U O T E ( D E 0020420 F T Y P E U N S I G N E D - B 0020440 Y T E ( & O P T I O N A L S 0020460 ) ( i f ( E Q S ( \r Q U 0020500 O T E * ) ) t h e n ( Q U 0020520 O T E ( I N T E G E R 0 ) ) 0020540 e l s e ( B Q U O T E ( I 0020560 N T E G E R 0 ( ( \ , ( E 0020600 X P T 2 S ) ) ) ) ) ) ) ) ) 0020620 \r ( P U T D E F ( Q U O T E 0020640 A R R A Y ) ( Q U O T E T Y 0020660 P E S ) ( Q U O T E ( D E F 0020700 T Y P E A R R A Y ( & O P T 0020720 I O N A L ( E L E M E N T - T 0020740 Y P E ( Q U O T E * ) ) ( 0020760 \r D I M E N S I O N S ( Q U O 0021000 T E * ) ) ) ( P R O G N ( 0021020 i f ( A N D ( N L I S T P 0021040 D I M E N S I O N S ) ( N E Q 0021060 D I M E N S I O N S ( Q U O 0021100 T E * ) ) ) t h e n ( S E 0021120 T Q \r D I M E N S I O N S ( 0021140 t o D I M E N S I O N S c o 0021160 l l e c t ( Q U O T E * ) ) 0021200 ) ) ( i f ( A N D ( E Q 0021220 E L E M E N T - T Y P E ( Q U 0021240 O T E S T R I N G - C H A R ) 0021260 ) ( I L E S S P \r ( L E N G 0021300 T H D I M E N S I O N S ) 2 0021320 ) ) t h e n ( i f ( M E M 0021340 B E R D I M E N S I O N S ( 0021360 Q U O T E ( * ( * ) ) ) ) 0021400 t h e n ( Q U O T E ( D A T 0021420 A T Y P E S T R I N G P ) ) 0021440 \r e l s e ( B Q U O T E ( A 0021460 N D ( D A T A T Y P E S T R 0021500 I N G P ) ( S A T I S F I E S 0021520 ( L A M B D A ( X ) ( = 0021540 ( N C H A R S X ) , ( C A 0021560 R D I M E N S I O N S ) ) ) ) 0021600 ) ) ) \r e l s e i f ( N E Q 0021620 E L E M E N T - T Y P E ( Q 0021640 U O T E * ) ) t h e n ( B 0021660 Q U O T E ( A N D ( A R R A 0021700 Y * ( \ , D I M E N S I O 0021720 N S ) ) ( S A T I S F I E S 0021740 ( L A M B D A ( X ) \r ( E Q 0021760 ( A R R A Y - E L E M E N T - 0022000 T Y P E X ) ( Q U O T E ( 0022020 \ , E L E M E N T - T Y P E ) 0022040 ) ) ) ) ) ) e l s e ( P R O 0022060 G N ( i f ( A N D ( E Q 0022100 E L E M E N T - T Y P E ( \r Q 0022120 U O T E * ) ) ( E Q D I M 0022140 E N S I O N S ( Q U O T E * 0022160 ) ) ) t h e n ( Q U O T E 0022200 ( O R ( D A T A T Y P E A R 0022220 R A Y ) ( D A T A T Y P E S 0022240 T R I N G P ) ( D A T A T Y P 0022260 E \r A R R A Y P ) ( D A T A 0022300 T Y P E B I T M A P ) ) ) e 0022320 l s e i f ( E Q U A L D I M 0022340 E N S I O N S ( Q U O T E ( 0022360 * ) ) ) t h e n ( i f ( E 0022400 Q E L E M E N T - T Y P E ( 0022420 Q U O T E \r S T R I N G - C H 0022440 A R ) ) t h e n ( Q U O T E 0022460 S T R I N G ) e l s e ( Q 0022500 U O T E V E C T O R ) ) e l 0022520 s e i f ( E Q E L E M E N T 0022540 - T Y P E T ) t h e n ( B 0022560 Q U O T E ( A N D \r A R R A 0022600 Y ( S A T I S F I E S ( L A 0022620 M B D A ( X ) , ( i f ( 0022640 O R ( N L I S T P D I M E N 0022660 S I O N S ) ( i f ( E V E R 0022700 Y D I M E N S I O N S ( F U 0022720 N C T I O N ( L A M B D A ( 0022740 X ) \r ( E Q X ( Q U O T E 0022760 * ) ) ) ) ) t h e n ( S E 0023000 T Q D I M E N S I O N S ( L 0023020 E N G T H D I M E N S I O N S 0023040 ) ) ) ) t h e n ( B Q U O T 0023060 E ( E Q ( A R R A Y - R A N 0023100 K X ) , \r D I M E N S I O 0023120 N S ) ) e l s e ( B Q U O T 0023140 E ( \ A R R A Y . D I M E N S 0023160 I O N S . M A T C H ( A R R A 0023200 Y - D I M E N S I O N S X ) 0023220 ( Q U O T E , D I M E N S I 0023240 O N S ) ) ) ) ) ) ) ) \r e l s 0023260 e ( H E L P " U n i m p l e 0023300 m e n t e d a r r a y t y p 0023320 e d e s i g n a t o r " ) ) ) 0023340 ) ) ) ) ) \r ( P U T D E F ( Q 0023360 U O T E V E C T O R ) ( Q U 0023400 O T E T Y P E S ) ( Q U O T 0023420 E ( D E F T Y P E V E C T O 0023440 R ( & O P T I O N A L ( E L 0023460 E M E N T - T Y P E ( Q U O T 0023500 E * ) ) ( S I Z E \r ( Q U 0023520 O T E * ) ) ) ( i f ( E Q 0023540 E L E M E N T - T Y P E ( Q 0023560 U O T E * ) ) t h e n ( i 0023600 f ( E Q S I Z E ( Q U O T 0023620 E * ) ) t h e n ( B Q U O 0023640 T E ( S A T I S F I E S \r V 0023660 E C T O R P ) ) e l s e ( B 0023700 Q U O T E ( A N D ( S A T I 0023720 S F I E S V E C T O R P ) ( 0023740 S A T I S F I E S ( L A M B D 0023760 A ( V ) ( I E Q P ( A R R 0024000 A Y - D I M E N S I O N V 0 0024020 ) , \r S I Z E ) ) ) ) ) ) 0024040 e l s e ( B Q U O T E ( A R 0024060 R A Y , E L E M E N T - T Y 0024100 P E ( * ) ) ) ) ) ) ) \r ( P U 0024120 T P R O P S A R R A Y P C M 0024140 L T Y P E A R R A Y ) \r ( P U 0024160 T P R O P S C M L A R R A Y 0024200 C M L T Y P E A R R A Y ) \r ( 0024220 P U T P R O P S F I X P C M 0024240 L T Y P E B I G N U M ) \r ( P 0024260 U T P R O P S F L O A T P C 0024300 M L T Y P E S I N G L E - F L 0024320 O A T ) \r ( P U T P R O P S L 0024340 I S T P C M L T Y P E C O N 0024360 S ) \r ( P U T P R O P S L I T 0024400 A T O M C M L T Y P E S Y M 0024420 B O L ) \r ( P U T P R O P S S 0024440 M A L L P C M L T Y P E F I 0024460 X N U M ) \r ( P U T P R O P S 0024500 S T R I N G P C M L T Y P E 0024520 S I M P L E - S T R I N G ) \r ( 0024540 P U T P R O P S C H A R A C T 0024560 E R T Y P E - C O E R C E C 0024600 L : C H A R A C T E R ) \r ( P U 0024620 T P R O P S F L O A T T Y P 0024640 E - C O E R C E F L O A T ) \r 0024660 ( P U T P R O P S S I M P L E 0024700 - S T R I N G T Y P E - C O E 0024720 R C E M K S T R I N G ) \r ( R 0024740 P A Q \ C O E R C E M A C R O 0024760 H A S H ( H A S H A R R A Y 0025000 3 0 ) ) \r ( D E F M A C R O T 0025020 Y P E C A S E ( K E Y F O R M 0025040 & R E S T F O R M S ) \r " 0025060 T y p e d i s p a t c h , o 0025100 r d e r i s i m p o r t a n 0025120 t , m o r e s p e c i f i c 0025140 t y p e s s h o u l d a p 0025160 p e a r f i r s t " ( B Q U 0025200 O T E ( L E T ( ( \r $ $ T Y 0025220 P E - V A L U E , K E Y F O 0025240 R M ) ) ( C O N D . , ( C 0025260 L : M A P C A R ( F U N C T I 0025300 O N ( L A M B D A ( F O R M 0025320 ) ( L E T ( ( T Y P E ( C 0025340 A R F O R M ) ) ( F O R M 0025360 ( \r C D R F O R M ) ) ) ( B 0025400 Q U O T E ( ( T Y P E P $ $ 0025420 T Y P E - V A L U E ( Q U O T 0025440 E , T Y P E ) ) . , F O 0025460 R M ) ) ) ) ) F O R M S ) ) ) 0025500 ) ) \r ( P U T P R O P S C M L 0025520 T Y P E S C O P Y R I G H T 0025540 ( " X e r o x C o r p o r a t 0025560 i o n " 1 9 8 5 ) ) \r N I L \r 0025600