$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLSORT.DCOM!5 0000000 ( F I L E C R E A T E D " 4 0000020 - J u n - 8 6 2 3 : 2 3 : 3 9 0000040 " ( " c o m p i l e d o n 0000060 " { E R I S } < L I S P C O R 0000100 E > L I B R A R Y > C M L S O R 0000120 T . ; 1 0 ) \r " 3 - J u n - 0000140 8 6 0 2 : 2 0 : 4 4 " r e c 0000160 o m p i l e d c h a n g e s : 0000200 C L : S O R T % % S O R T - 0000220 S I M P L E - V E C T O R % % 0000240 S O R T - V E C T O R % % S O 0000260 R T - L I S T \r S T A B L E - 0000300 S O R T % % S T A B L E - S O 0000320 R T - S I M P L E - V E C T O R 0000340 % % S T A B L E - S O R T - V 0000360 E C T O R C L : M E R G E % 0000400 % M E R G E - L I S T S * % % 0000420 M E R G E - V E C T O R S * \r 0000440 % % M E R G E - S I M P L E - V 0000460 E C T O R S % % M E R G E - N 0000500 O N - S I M P L E - V E C T O R 0000520 S i n " X e r o x L i s p 0000540 3 - J u n - 8 6 . . . " 0000560 d a t e d \r " 3 - J u n - 8 0000600 6 0 2 : 3 2 : 0 1 " ) \r ( F I 0000620 L E C R E A T E D " 4 - J u 0000640 n - 8 6 2 3 : 2 2 : 1 6 " { 0000660 E R I S } < L I S P C O R E > L 0000700 I B R A R Y > C M L S O R T . ; 0000720 1 0 2 8 3 7 0 c h a n g e s 0000740 t o : ( V A R S \r C M L S 0000760 O R T C O M S ) ( F N S C L 0001000 : S O R T % % S O R T - S I M 0001020 P L E - V E C T O R % % S O R 0001040 T - V E C T O R % % S O R T - 0001060 L I S T S T A B L E - S O R T 0001100 \r % % S T A B L E - S O R T - 0001120 S I M P L E - V E C T O R % % 0001140 S T A B L E - S O R T - V E C T 0001160 O R C L : M E R G E % % M E 0001200 R G E - L I S T S * % % M E R 0001220 G E - V E C T O R S * \r % % M 0001240 E R G E - S I M P L E - V E C T 0001260 O R S % % M E R G E - N O N - 0001300 S I M P L E - V E C T O R S % 0001320 % S T A B L E - % % S O R T - S 0001340 I M P L E - V E C T O R % % S 0001360 T A B L E - % % S O R T - V E C 0001400 T O R \r M E R G E - V E C T O 0001420 R S * M E R G E - N O N - S I 0001440 M P L E - V E C T O R S M E R 0001460 G E - L I S T S * M E R G E - 0001500 S I M P L E - V E C T O R S ) 0001520 p r e v i o u s d a t e : \r 0001540 " 4 - J u n - 8 6 2 3 : 1 7 0001560 : 1 2 " { E R I S } < L I S P 0001600 C O R E > L I B R A R Y > C M L 0001620 S O R T . ; 8 ) \r C L : S O R T 0001640 D 1 \r ( L ( 0 - a r g s - 0001660 ) ) \0 n 006 \0 002 \0 e 021 001 \0 k a 021 0001700 A 005 l 002 a 272 H l 003 274 273 L d K 363 262 0001720 033 277 h 275 I d 005 006 262 % d \t \0 \0 j 363 0001740 262 ? 277 I J M \v \0 \0 020 a g \0 \0 360 225 0001760 L k 330 a 260 337 L l 002 324 \ 260 321 \t \0 \0 0002000 262 023 I d \t \0 \0 j 363 262 026 277 I J M \v 0002020 \0 \0 020 I 003 265 \v o \0 \0 \0 I \n \0 \0 020 0002040 J M \v \0 \0 020 \0 ( 1 5 3 Q % % S 0002060 O R T - L I S T 1 4 5 Q C L 0002100 : E R R O R 1 3 0 Q % % S O 0002120 R T - S I M P L E - V E C T O R 0002140 1 1 5 Q C L : L E N G T H 0002160 1 0 6 Q V E C T O R P 5 7 Q 0002200 % % S O R T - V E C T O R 4 0002220 4 Q C L : L E N G T H ) \r ( 6 0002240 4 Q : K E Y ) \r ( 1 4 1 Q 0002260 " ~ S i s n o t a s e q 0002300 u e n c e . " ) \r % % S O R T - 0002320 S I M P L E - V E C T O R D 1 0002340 \r ( L ( 0 - a r g s - ) ) 0002360 \0 355 \r \0 002 \0 e 021 001 \0 k a 021 A 005 l 0002400 002 a 272 l 003 a 273 021 p \f I \t \0 \0 k 325 0002420 j h 032 032 276 N 001 N 002 276 _ 022 _ 026 277 N 0002440 001 N 002 276 _ 024 _ 030 277 K 233 I O 024 \n \0 0002460 \0 _ 016 k K 016 207 I O 024 \n \0 \0 _ 016 _ 0002500 020 277 O 030 O 026 \n \0 \0 263 _ I O 026 \n \0 0002520 \0 274 K 224 L k K 016 200 L O 020 l 002 J 016 0002540 262 ' I O 030 L \v \0 \0 277 O 030 k 324 _ 030 0002560 O 026 \n \0 \0 263 3 I O 030 \n \0 \0 275 O 020 0002600 K 235 M k K 016 211 O 026 k 325 _ 026 277 260 264 0002620 M l 002 J 016 262 325 I O 026 M \v \0 \0 277 O 0002640 026 k 325 _ 026 277 260 234 I O 030 O 016 \v \0 \0 0002660 277 O 024 O 030 k 325 375 363 233 O 024 N 032 276 O 0002700 030 k 325 N 032 276 O 022 O 026 k 324 363 234 O 026 0002720 k 324 N 032 276 O 022 N 032 ^ 200 N 222 261 377 8 0002740 I 020 \0 ( 2 7 1 Q A S E T F U N 0002760 2 4 7 Q A S E T F U N 2 0 0003000 6 Q A R E F 1 7 6 Q % % = 0003020 1 6 2 Q A S E T F U N 1 3 0003040 2 Q A R E F 1 2 2 Q % % = 0003060 1 0 6 Q A R E F 7 2 Q A 0003100 R E F 2 7 Q C L : L E N G T 0003120 H ) \r N I L \r ( ) \r % % S O R T 0003140 - V E C T O R D 1 \r ( L ( 0 0003160 - a r g s - ) ) \0 355 \r \0 002 \0 0003200 e 021 001 \0 k a 021 A 005 l 002 a 272 l 003 a 0003220 273 021 p \f I \t \0 \0 k 325 j h 032 032 276 N 0003240 001 N 002 276 _ 022 _ 026 277 N 001 N 002 276 _ 024 0003260 _ 030 277 K 233 I O 024 \n \0 \0 _ 016 k K 016 0003300 207 I O 024 \n \0 \0 _ 016 _ 020 277 O 030 O 026 0003320 \n \0 \0 263 _ I O 026 \n \0 \0 274 K 224 L k 0003340 K 016 200 L O 020 l 002 J 016 262 ' I O 030 L 0003360 \v \0 \0 277 O 030 k 324 _ 030 O 026 \n \0 \0 263 0003400 3 I O 030 \n \0 \0 275 O 020 K 235 M k K 016 0003420 211 O 026 k 325 _ 026 277 260 264 M l 002 J 016 262 0003440 325 I O 026 M \v \0 \0 277 O 026 k 325 _ 026 277 0003460 260 234 I O 030 O 016 \v \0 \0 277 O 024 O 030 k 0003500 325 375 363 233 O 024 N 032 276 O 030 k 325 N 032 276 0003520 O 022 O 026 k 324 363 234 O 026 k 324 N 032 276 O 0003540 022 N 032 ^ 200 N 222 261 377 8 I 020 \0 ( 2 7 0003560 1 Q A S E T F U N 2 4 7 Q 0003600 A S E T F U N 2 0 6 Q A R E 0003620 F 1 7 6 Q % % = 1 6 2 Q 0003640 A S E T F U N 1 3 2 Q A R E 0003660 F 1 2 2 Q % % = 1 0 6 Q 0003700 A R E F 7 2 Q A R E F 2 7 0003720 Q C L : L E N G T H ) \r N I L 0003740 \r ( ) \r % % S O R T - L I S T 0003760 D 1 \r ( L ( 0 - a r g s - ) 0004000 ) \0 240 \t \0 002 \0 e 021 001 \0 k a 021 q 0004020 \b l 002 a 272 l 003 a 273 j 274 I 241 M 020 L 0004040 k 324 M h _ 016 277 I 244 h _ 020 260 H k L 0004060 363 233 I d 002 271 d h 031 277 _ 020 260 8 L O 0004100 016 032 _ 016 277 L k 325 274 g \0 \0 O 016 032 260 0004120 325 g \0 \0 N : 262 F O 016 001 O 016 002 _ 016 0004140 277 O 020 J K \f \0 \0 _ 020 277 O 016 001 O 016 0004160 002 _ 016 277 277 O 016 001 O 016 002 _ 016 277 276 g 0004200 \0 \0 N : 262 315 O 016 001 k 325 274 O 020 O 016 0004220 032 _ 016 277 g \0 \0 O 016 032 260 212 O 020 J K 0004240 \f \0 \0 275 261 377 v \0 ( 2 3 2 Q % % 0004260 M E R G E - L I S T S * 1 3 7 0004300 Q % % M E R G E - L I S T S * 0004320 ) \r ( 2 1 6 Q S 2 1 7 1 Q 0004340 S 1 1 1 3 Q S 2 1 0 3 Q 0004360 S 1 ) \r ( ) \r S T A B L E - S O 0004400 R T D 1 \r ( L ( 0 - a r g 0004420 s - ) ) \0 W 006 \0 002 \0 e 021 001 \0 k 0004440 a 021 A 005 l 002 a 272 H l 003 274 273 L d K 0004460 363 236 277 h 275 I d 005 006 262 033 J M \v \0 \0 0004500 020 a g \0 \0 360 225 L k 330 a 260 351 L l 002 0004520 324 \ 260 334 \t \0 \0 226 I J M \v \0 \0 020 I 0004540 003 265 \n o \0 \0 \0 \t \0 \0 020 J M \v \0 \0 0004560 020 \0 ( 1 2 4 Q % % S O R T - L 0004600 I S T 1 1 6 Q C L : E R R O 0004620 R 1 0 2 Q % % S T A B L E - 0004640 S O R T - V E C T O R 7 3 Q 0004660 V E C T O R P 4 4 Q % % S T 0004700 A B L E - S O R T - S I M P L E 0004720 - V E C T O R ) \r ( 5 1 Q : K 0004740 E Y ) \r ( 1 1 3 Q " ~ S i 0004760 s n o t a s e q u e n c e 0005000 . " ) \r % % S T A B L E - S O R 0005020 T - S I M P L E - V E C T O R 0005040 D 1 \r ( L ( 0 - a r g s - ) 0005060 ) \0 ^ \n \0 002 \0 e 021 001 \0 k a 021 201 0005100 \t l 002 a 272 l 003 a 273 g \0 \0 h 032 274 I 0005120 \t \0 \0 275 j L _ 016 277 ^ d M \n \0 \0 262 0005140 024 277 L 002 J K \v \0 \0 j _ 022 277 _ 020 263 0005160 023 I 020 k 324 O 016 d I N \n \0 \0 & 277 002 0005200 260 326 I O 022 O 020 001 \v \0 \0 277 O 020 002 O 0005220 022 k 324 260 327 \0 ( 1 2 2 Q A S E T 0005240 F U N 1 0 4 Q A R E F 6 0 0005260 Q % % S O R T - L I S T 4 6 0005300 Q % % = 3 2 Q C L : L E N 0005320 G T H ) \r ( 2 3 Q H E A D E R 0005340 ) \r ( ) \r % % S T A B L E - S O 0005360 R T - V E C T O R D 1 \r ( L 0005400 ( 0 - a r g s - ) ) \0 ^ \n \0 0005420 002 \0 e 021 001 \0 k a 021 201 \t l 002 a 272 l 0005440 003 a 273 g \0 \0 h 032 274 I \t \0 \0 275 j L 0005460 _ 016 277 ^ d M \n \0 \0 262 024 277 L 002 J K 0005500 \v \0 \0 j _ 022 277 _ 020 263 023 I 020 k 324 O 0005520 016 d I N \n \0 \0 & 277 002 260 326 I O 022 O 0005540 020 001 \v \0 \0 277 O 020 002 O 022 k 324 260 327 \0 0005560 ( 1 2 2 Q A S E T F U N 1 0 0005600 4 Q A R E F 6 0 Q % % S O 0005620 R T - L I S T 4 6 Q % % = 0005640 3 2 Q C L : L E N G T H ) \r ( 0005660 2 3 Q H E A D E R ) \r ( ) \r C 0005700 L : M E R G E D 1 \r ( L ( 0 0005720 - a r g s - ) ) 002 J 017 \0 002 \0 0005740 e 021 001 \0 k a 021 321 016 l 002 a 272 l 003 a 0005760 273 l 004 a 274 H l 005 276 275 N d M 363 235 277 0006000 g \0 \0 _ 016 277 I d 003 263 027 260 026 a g \0 0006020 \0 360 225 N k 330 a 260 354 N l 002 324 ^ 260 335 0006040 001 _ 020 277 g \0 \0 O 020 : 242 261 \0 351 J _ 0006060 022 004 l 005 360 252 O 022 d o \0 \0 \0 034 262 T 0006100 277 K _ 024 004 l 005 360 251 O 024 d o \0 \0 \0 0006120 034 231 277 J K L O 016 \f \0 \0 020 004 ` \0 \0 0006140 360 263 034 O 024 004 l \a 360 263 024 O 024 \t \0 \0 0006160 g \0 \0 360 247 O 024 004 ` \0 \0 360 233 J K \t 0006200 \0 \0 L O 016 \f \0 \0 020 o \0 \0 \0 K \n \0 0006220 \0 020 004 ` \0 \0 360 263 035 O 022 004 l \a 360 263 0006240 025 O 022 \t \0 \0 g \0 \0 360 250 O 022 004 ` \0 0006260 \0 360 262 Y K _ 026 004 l 005 360 251 O 026 d o 0006300 \0 \0 \0 034 234 277 J \t \0 \0 K L O 016 \f \0 0006320 \0 020 004 ` \0 \0 360 263 034 O 026 004 l \a 360 263 0006340 024 O 026 \t \0 \0 g \0 \0 360 247 O 026 004 ` \0 0006360 \0 360 236 J \t \0 \0 K \t \0 \0 L O 016 \f \0 0006400 \0 020 o \0 \0 \0 K \n \0 \0 020 o \0 \0 \0 J 0006420 \n \0 \0 020 g \0 \0 O 020 : 263 023 g \0 \0 O 0006440 020 : 251 g \0 \0 O 020 : 242 261 \0 366 J _ 030 0006460 004 l 005 360 252 O 030 d o \0 \0 \0 034 262 d 277 0006500 K _ 032 004 l 005 360 252 O 032 d o \0 \0 \0 034 0006520 262 030 277 J g \0 \0 \n \0 \0 K g \0 \0 \n \0 0006540 \0 L O 016 \f \0 \0 020 004 ` \0 \0 360 263 034 O 0006560 032 004 l \a 360 263 024 O 032 \t \0 \0 g \0 \0 360 0006600 247 O 032 004 ` \0 \0 360 236 J g \0 \0 \n \0 \0 0006620 K L O 016 \f \0 \0 020 o \0 \0 \0 K \n \0 \0 0006640 020 004 ` \0 \0 360 263 035 O 030 004 l \a 360 263 025 0006660 O 030 \t \0 \0 g \0 \0 360 250 O 030 004 ` \0 \0 0006700 360 262 V K _ 034 004 l 005 360 251 O 034 d o \0 0006720 \0 \0 034 237 277 J K g \0 \0 \n \0 \0 L O 016 0006740 \f \0 \0 020 004 ` \0 \0 360 263 034 O 034 004 l \a 0006760 360 263 024 O 034 \t \0 \0 g \0 \0 360 247 O 034 004 0007000 ` \0 \0 360 230 J K L O 016 \f \0 \0 020 o \0 0007020 \0 \0 K \n \0 \0 020 o \0 \0 \0 J \n \0 \0 020 0007040 o \0 \0 \0 I \n \0 \0 020 \0 ( 1 1 0 7 Q 0007060 C L : E R R O R 1 0 7 6 Q 0007100 C L : E R R O R 1 0 6 5 Q C 0007120 L : E R R O R 1 0 5 4 Q % % 0007140 M E R G E - V E C T O R S * 1 0007160 0 2 7 Q T Y P E N A M E 1 0 0007200 0 2 Q % % M E R G E - V E C T 0007220 O R S * 7 7 4 Q L I S T - T 0007240 O - V E C T O R * 7 2 4 Q T 0007260 Y P E N A M E 6 7 7 Q C L : 0007300 E R R O R 6 6 6 Q % % M E R 0007320 G E - V E C T O R S * 6 5 7 Q 0007340 L I S T - T O - V E C T O R * 0007360 6 3 3 Q T Y P E N A M E 6 0007400 0 6 Q % % M E R G E - V E C T 0007420 O R S * 6 0 0 Q L I S T - T 0007440 O - V E C T O R * 5 7 1 Q L 0007460 I S T - T O - V E C T O R * 4 0007500 6 2 Q C L : E R R O R 4 5 1 0007520 Q C L : E R R O R 4 4 0 Q 0007540 % % M E R G E - L I S T S * 4 0007560 3 2 Q V E C T O R - T O - L I 0007600 S T * 4 2 6 Q V E C T O R - 0007620 T O - L I S T * 4 0 5 Q T Y 0007640 P E N A M E 3 6 0 Q % % M E 0007660 R G E - L I S T S * 3 5 1 Q 0007700 V E C T O R - T O - L I S T * 0007720 3 0 5 Q T Y P E N A M E 2 6 0007740 0 Q C L : E R R O R 2 4 7 Q 0007760 % % M E R G E - L I S T S * 0010000 2 4 1 Q V E C T O R - T O - L 0010020 I S T * 2 1 7 Q T Y P E N A 0010040 M E 1 7 2 Q % % M E R G E - 0010060 L I S T S * ) \r ( 1 0 4 2 Q 004 0010100 003 B I T M A P T Y P E # 1 0 3 0010120 2 Q A R R A Y P 1 0 0 7 Q 0010140 004 003 A R R A Y T Y P E # 7 7 1 0010160 Q V E C T O R 7 3 7 Q 004 003 0010200 B I T M A P T Y P E # 7 2 7 Q 0010220 A R R A Y P 7 0 4 Q 004 003 A 0010240 R R A Y T Y P E # 6 5 4 Q V 0010260 E C T O R 6 4 6 Q 004 003 B I T 0010300 M A P T Y P E # 6 3 6 Q A R 0010320 R A Y P 6 1 3 Q 004 003 A R R A 0010340 Y T Y P E # 5 7 5 Q V E C T 0010360 O R 5 6 6 Q V E C T O R 5 0010400 0 5 Q S T R I N G 4 7 6 Q 0010420 A R R A Y 4 6 6 Q V E C T O 0010440 R 4 2 0 Q 004 003 B I T M A P T 0010460 Y P E # 4 1 0 Q A R R A Y P 0010500 3 6 5 Q 004 003 A R R A Y T Y P 0010520 E # 3 2 0 Q 004 003 B I T M A P 0010540 T Y P E # 3 1 0 Q A R R A Y 0010560 P 2 6 5 Q 004 003 A R R A Y T Y 0010600 P E # 2 3 2 Q 004 003 B I T M A 0010620 P T Y P E # 2 2 2 Q A R R A 0010640 Y P 1 7 7 Q 004 003 A R R A Y T 0010660 Y P E # 1 0 6 Q L I S T 6 0010700 0 Q : K E Y 4 2 Q I D E N 0010720 T I T Y ) \r ( 1 1 0 3 Q " ~ 0010740 S i s n o t a s u b t y 0010760 p e o f S E Q U E N C E . " 0011000 1 0 7 2 Q " ~ S i s n o 0011020 t a s e q u e n c e . " 1 0011040 0 6 1 Q " ~ S i s n o t 0011060 a s e q u e n c e . " \r 7 6 0011100 1 Q ( N I L ) 6 7 3 Q " ~ 0011120 S i s n o t a s e q u e 0011140 n c e . " 5 5 6 Q ( N I L ) 0011160 5 3 3 Q ( N I L ) 4 5 6 Q 0011200 " ~ S i s n o t a s e 0011220 q u e n c e . " 4 4 5 Q " ~ 0011240 S i s n o t a s e q u e 0011260 n c e . " \r 3 4 2 Q ( N I L 0011300 ) 2 5 4 Q " ~ S i s n o 0011320 t a s e q u e n c e . " 1 0011340 5 7 Q ( N I L ) 1 3 4 Q ( 0011360 N I L ) ) \r % % M E R G E - L I 0011400 S T S * D 1 \r ( L ( 0 - a 0011420 r g s - ) ) \0 [ \a \0 002 \0 e 021 001 0011440 \0 k a 021 Q 006 l 002 a 272 l 003 a 273 l 004 0011460 a 274 g \0 \0 h 032 ] 276 I 223 J 253 I 242 N 0011500 J 201 N I 031 277 M 002 020 L 232 J 001 k L 016 0011520 I 001 k L 016 203 J 001 I 001 l 002 K 016 233 N 0011540 J 031 277 N 002 276 J 002 272 260 320 N I 031 277 N 0011560 002 276 I 002 Y 260 305 \0 N I L \r ( 2 7 Q 0011600 H E A D E R ) \r ( ) \r % % M E 0011620 R G E - V E C T O R S * D 1 \r 0011640 ( L ( 0 - a r g s - ) ) \0 0011660 / 005 \0 002 \0 e 021 001 \0 k a 021 1 004 l 002 0011700 a 272 l 003 a 273 l 004 a 274 I 005 006 265 \a J 0011720 005 006 227 I J K L \f \0 \0 020 I J K L \f 0011740 \0 \0 020 \0 ( 5 4 Q % % M E R G E 0011760 - S I M P L E - V E C T O R S 0012000 4 4 Q % % M E R G E - N O N - 0012020 S I M P L E - V E C T O R S ) \r 0012040 N I L \r ( ) \r % % M E R G E - S 0012060 I M P L E - V E C T O R S D 1 0012100 \r ( L ( 0 - a r g s - ) ) 0012120 001 005 \f \0 002 \0 e 021 001 \0 k a 021 241 \v l 0012140 002 a 272 l 003 a 273 l 004 a 274 I \t \0 \0 275 0012160 J \t \0 \0 276 M N 324 _ 016 g \0 \0 I \t \0 0012200 \0 \v \0 \0 _ 020 277 j _ 022 _ 024 _ 026 277 O 0012220 016 O 022 363 242 O 020 020 O 024 M \n \0 \0 262 - 0012240 O 022 d O 016 \n \0 \0 222 261 \0 251 277 O 020 O 0012260 022 J O 026 \n \0 \0 \v \0 \0 277 O 022 k 324 _ 0012300 022 277 O 026 k 324 _ 026 277 260 327 O 026 N \n \0 0012320 \0 262 + O 022 d O 016 \n \0 \0 263 w 277 O 020 0012340 O 022 I O 024 \n \0 \0 \v \0 \0 277 O 022 k 324 0012360 _ 022 277 O 024 k 324 _ 024 277 260 331 L 262 025 J 0012400 O 026 \n \0 \0 k L 016 I O 024 \n \0 \0 k L 0012420 016 213 J O 026 \n \0 \0 I O 024 \n \0 \0 l 002 0012440 K 016 262 031 O 020 O 022 J O 026 \n \0 \0 \v \0 0012460 \0 277 O 026 k 324 _ 026 277 260 027 O 020 O 022 I 0012500 O 024 \n \0 \0 \v \0 \0 277 O 024 k 324 _ 024 277 0012520 O 022 k 324 _ 022 277 261 377 8 \0 ( 3 6 1 Q 0012540 A S E T F U N 3 5 6 Q A R 0012560 E F 3 3 2 Q A S E T F U N 0012600 3 2 7 Q A R E F 3 0 7 Q A 0012620 R E F 3 0 1 Q A R E F 2 6 0012640 7 Q A R E F 2 5 6 Q A R E 0012660 F 2 2 4 Q A S E T F U N 2 0012700 2 1 Q A R E F 2 0 4 Q % % 0012720 = 1 7 2 Q % % = 1 4 3 Q 0012740 A S E T F U N 1 4 0 Q A R E 0012760 F 1 2 1 Q % % = 1 0 7 Q 0013000 % % = 5 5 Q M A K E - A R R 0013020 A Y 5 2 Q A R R A Y - E L E 0013040 M E N T - T Y P E 3 5 Q C L 0013060 : L E N G T H 3 0 Q C L : L 0013100 E N G T H ) \r ( 4 6 Q : E L E 0013120 M E N T - T Y P E ) \r ( ) \r % % 0013140 M E R G E - N O N - S I M P L E 0013160 - V E C T O R S D 1 \r ( L ( 0013200 0 - a r g s - ) ) 001 \v \f \0 002 0013220 \0 e 021 001 \0 k a 021 241 \v l 002 a 272 l 003 0013240 a 273 l 004 a 274 I \t \0 \0 275 J \t \0 \0 276 0013260 I \t \0 \0 J \t \0 \0 324 _ 016 g \0 \0 I \t 0013300 \0 \0 \v \0 \0 _ 020 277 j _ 022 _ 024 _ 026 277 0013320 O 016 O 022 363 242 O 020 020 O 024 M \n \0 \0 262 0013340 - O 022 d O 016 \n \0 \0 222 261 \0 251 277 O 020 0013360 O 022 J O 026 \n \0 \0 \v \0 \0 277 O 022 k 324 0013400 _ 022 277 O 026 k 324 _ 026 277 260 327 O 026 N \n 0013420 \0 \0 262 + O 022 d O 016 \n \0 \0 263 w 277 O 0013440 020 O 022 I O 024 \n \0 \0 \v \0 \0 277 O 022 k 0013460 324 _ 022 277 O 024 k 324 _ 024 277 260 331 L 262 025 0013500 J O 026 \n \0 \0 k L 016 I O 024 \n \0 \0 k 0013520 L 016 213 J O 026 \n \0 \0 I O 024 \n \0 \0 l 0013540 002 K 016 262 031 O 020 O 022 J O 026 \n \0 \0 \v 0013560 \0 \0 277 O 026 k 324 _ 026 277 260 027 O 020 O 022 0013600 I O 024 \n \0 \0 \v \0 \0 277 O 024 k 324 _ 024 0013620 277 O 022 k 324 _ 022 277 261 377 8 \0 ( 3 6 7 0013640 Q A S E T F U N 3 6 4 Q A 0013660 R E F 3 4 0 Q A S E T F U N 0013700 3 3 5 Q A R E F 3 1 5 Q 0013720 A R E F 3 0 7 Q A R E F 2 0013740 7 5 Q A R E F 2 6 4 Q A R 0013760 E F 2 3 2 Q A S E T F U N 0014000 2 2 7 Q A R E F 2 1 2 Q % 0014020 % = 2 0 0 Q % % = 1 5 1 Q 0014040 A S E T F U N 1 4 6 Q A R 0014060 E F 1 2 7 Q % % = 1 1 5 Q 0014100 % % = 6 3 Q M A K E - A R 0014120 R A Y 6 0 Q A R R A Y - E L 0014140 E M E N T - T Y P E 4 6 Q C 0014160 L : L E N G T H 4 2 Q C L : 0014200 L E N G T H 3 5 Q C L : L E 0014220 N G T H 3 0 Q C L : L E N G 0014240 T H ) \r ( 5 4 Q : E L E M E N 0014260 T - T Y P E ) \r ( ) \r ( P R E T 0014300 T Y C O M P R I N T C M L S O 0014320 R T C O M S ) \r ( R P A Q Q C 0014340 M L S O R T C O M S ( ( * * 0014360 S e c t i o n 1 4 . 5 M e 0014400 r g i n g a n d S o r t i n 0014420 g - - B y K e l l y R o 0014440 a c h . * ) ( D E C L A R E 0014460 : D O N T C O P Y \r D O E V 0014500 A L @ C O M P I L E ( M A C R 0014520 O S A P P L Y - K E Y A P P 0014540 L Y - P R E D S O R T - P R E 0014560 F I X ) ) ( F N S C L : S O 0014600 R T % % S O R T - S I M P L E 0014620 - V E C T O R \r % % S O R T - 0014640 V E C T O R % % S O R T - L I 0014660 S T ) ( F N S S T A B L E - 0014700 S O R T % % S T A B L E - S O 0014720 R T - S I M P L E - V E C T O R 0014740 % % S T A B L E - S O R T - V 0014760 E C T O R ) ( F N S \r C L : 0015000 M E R G E % % M E R G E - L I 0015020 S T S * % % M E R G E - V E C 0015040 T O R S * % % M E R G E - S I 0015060 M P L E - V E C T O R S % % M 0015100 E R G E - N O N - S I M P L E - 0015120 V E C T O R S ) ( D E C L A R 0015140 E : \r D O N T E V A L @ L O A 0015160 D D O E V A L @ C O M P I L E 0015200 D O N T C O P Y C O M P I L 0015220 E R V A R S ( A D D V A R S 0015240 ( N L A M A ) ( N L A M L ) 0015260 ( L A M A \r % % M E R G E - N 0015300 O N - S I M P L E - V E C T O R 0015320 S % % M E R G E - S I M P L E 0015340 - V E C T O R S % % M E R G E 0015360 - V E C T O R S * % % M E R G 0015400 E - L I S T S * C L : M E R G 0015420 E \r % % S T A B L E - S O R T 0015440 - V E C T O R % % S T A B L E 0015460 - S O R T - S I M P L E - V E C 0015500 T O R S T A B L E - S O R T 0015520 % % S O R T - L I S T % % S O 0015540 R T - V E C T O R \r % % S O R 0015560 T - S I M P L E - V E C T O R 0015600 C L : S O R T ) ) ) ) ) \r ( P U 0015620 T P R O P S C M L S O R T C 0015640 O P Y R I G H T ( " X e r o x 0015660 C o r p o r a t i o n " 1 9 0015700 8 6 ) ) \r N I L \r 0015711