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