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