$ od -c -N 50000 [eris]<LispCore>SOURCES>LLARITH.DCOM!25
0000000 ( F I L E C R E A T E D " 2 3
0000020 - J u n - 8 6 0 9 : 1 6 : 1 3
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 > E V A L > L L A R I T H . ;
0000120 2 ) \r " 2 0 - J u n - 8 6 1
0000140 9 : 3 0 : 1 1 " r e c o m p i
0000160 l e d c h a n g e s : n o t
0000200 h i n g i n " X e r o x L
0000220 i s p 2 0 - J u n - 8 6 . .
0000240 . " d a t e d \r " 2 0 - J u
0000260 n - 8 6 2 0 : 2 3 : 1 7 " ) \r
0000300 ( F I L E C R E A T E D " 2 3
0000320 - J u n - 8 6 0 9 : 1 4 : 3 2
0000340 " { E R I S } < L I S P C O R
0000360 E > E V A L > L L A R I T H . ;
0000400 2 5 7 8 7 9 c h a n g e s
0000420 t o : ( M A C R O S . L L S
0000440 H 1 . \r . L R S H 1 . . S U
0000460 B S M A L L . . U N B O X .
0000500 . N E G A T E . . B O X I P L
0000520 U S . N B I T S . O R . L E S
0000540 S \ I Q U O T R E M P u t U
0000560 n b o x e d . 2 ^ N P . ) (
0000600 R E C O R D S \r F I X P ) p
0000620 r e v i o u s d a t e : " 2
0000640 0 - J u n - 8 6 1 3 : 5 3 : 4
0000660 5 " { E R I S } < L I S P C O
0000700 R E > E V A L > L L A R I T H .
0000720 ; 1 ) \r I D I F F E R E N C E
0000740 D 1 \r ( L ( 1 Y 0 X ) )
0000760 \0 005 \0 \0 \0 002 @ A 331 020 \0 N I L \r
0001000 N I L \r ( ) \r I G R E A T E R P
0001020 D 1 \r ( L ( 1 Y 0 X )
0001040 ) \0 005 \0 \0 \0 002 @ A 361 020 \0 N I L
0001060 \r N I L \r ( ) \r I Q U O T I E N
0001100 T D 1 \r ( L ( 1 Y 0 X
0001120 ) ) \0 005 \0 \0 \0 002 @ A 333 020 \0 N I
0001140 L \r N I L \r ( ) \r \ S L O W I P
0001160 L U S 2 D 1 \r ( N A M E I P
0001200 L U S L ( 1 Y 0 X ) )
0001220 \0 355 005 \0 \0 002 021 P 004 @ 004 d l 002 360
0001240 231 277 @ 310 \0 270 @ 310 001 260 026 d k 360 262 $
0001260 277 j @ 361 243 j 270 @ 205 n 377 377 270 @ 323 271
0001300 A 004 d l 002 360 262 + 277 A 310 \0 272 A 310 001
0001320 260 5 l 003 360 227 @ \t \0 \0 b \0 260 277 @ d
0001340 004 ` \0 \0 360 263 Q l \n i \v \0 \0 b \0 260
0001360 254 d k 360 262 , 277 j A 361 243 j 272 A 205 n
0001400 377 377 272 A 323 273 H n 177 377 361 274 H d n 377
0001420 377 J 331 361 262 2 n 377 377 J 331 k 330 331 260 *
0001440 l 003 360 227 A \t \0 \0 b 002 260 227 A d 004 `
0001460 \0 \0 360 226 277 @ A \n \0 \0 020 l \n i \v \0
0001500 \0 b 002 261 377 ~ J 330 270 I d n 377 377 K 331
0001520 361 262 032 277 H d n 377 377 360 222 277 j 201 k 330
0001540 270 I n 377 377 K 331 k 330 331 201 K 330 271 L J
0001560 n 177 377 361 360 230 L H n 177 377 361 360 262 270 H
0001600 I 365 020 \0 ( 2 5 1 Q \ L I S P E
0001620 R R O R 2 4 2 Q \ B I G N U
0001640 M . P L U S 2 2 0 Q \ F I X
0001660 P . F R O M . F L O A T P 1 2
0001700 5 Q \ L I S P E R R O R 1 0
0001720 2 Q \ F I X P . F R O M . F L
0001740 O A T P ) \r ( 2 3 2 Q 004 003 B I
0001760 G N U M T Y P E # 1 1 4 Q 004
0002000 003 B I G N U M T Y P E # ) \r ( )
0002020 \r \ S L O W P L U S 2 D 1 \r (
0002040 N A M E P L U S L ( 1 Y
0002060 0 X ) ) \0 1 \0 \0 \0 002 @ 005 003
0002100 265 \a A 005 003 223 @ A 350 020 @ 3 252 @ l
0002120 \n i \v \0 \0 b \0 260 347 A 3 253 A l \n
0002140 i \v \0 \0 b 002 277 260 326 @ A 330 020 \0 ( 4
0002160 6 Q \ L I S P E R R O R 2 7
0002200 Q \ L I S P E R R O R ) \r N I
0002220 L \r ( ) \r \ S L O W I D I F F E
0002240 R E N C E D 1 \r ( N A M E I
0002260 D I F F E R E N C E L ( 1
0002300 Y 0 X ) ) 001 9 005 \0 \0 002 021 P
0002320 004 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001
0002340 260 026 d k 360 262 $ 277 j @ 361 243 j 270 @ 205
0002360 n 377 377 270 @ 323 271 A 004 d l 002 360 262 - 277
0002400 A 310 \0 272 A 310 001 260 8 l 003 360 227 @ \t \0
0002420 \0 b \0 260 277 @ d 004 ` \0 \0 360 222 261 \0 344
0002440 l \n i \v \0 \0 b \0 260 252 d k 360 262 034 277
0002460 j A 361 244 j 272 A [ 207 n 377 377 272 A 323 273
0002500 A j 360 262 ( H I 365 020 l 003 360 227 A \t \0
0002520 \0 b 002 260 245 A d 004 ` \0 \0 360 223 277 261 \0
0002540 242 l \n i \v \0 \0 b 002 260 217 K j 360 235 J
0002560 j 360 263 031 n 377 377 J 331 k 330 272 215 n 377 377
0002600 J 331 272 n 377 377 K 331 k 330 273 H n 177 377 361
0002620 274 K j 360 263 K 005 003 265 026 H d n 377 377
0002640 J 331 361 262 037 n 377 377 J 331 k 330 331 260 027 \t
0002660 \0 \0 262 351 J n 200 \0 360 262 342 H J 346 270 L
0002700 260 < J 330 270 I d n 377 377 K 331 361 262 032 277
0002720 H d n 377 377 360 222 277 j 201 k 330 270 I n 377
0002740 377 K 331 k 330 331 201 K 330 271 L J n 177 377 361
0002760 360 242 261 377 S L H n 177 377 361 360 222 261 377 H
0003000 @ A \n \0 \0 020 \0 ( 4 6 6 Q \ B I
0003020 G N U M . D I F F E R E N C E
0003040 3 4 3 Q \ F Z E R O P 2 3 0
0003060 Q \ L I S P E R R O R 2 0 2
0003100 Q \ F I X P . F R O M . F L O
0003120 A T P 1 2 7 Q \ L I S P E R
0003140 R O R 1 0 2 Q \ F I X P . F
0003160 R O M . F L O A T P ) \r ( 2 1 4
0003200 Q 004 003 B I G N U M T Y P E #
0003220 1 1 4 Q 004 003 B I G N U M T Y P
0003240 E # ) \r ( ) \r \ S L O W D I F F
0003260 E R E N C E D 1 \r ( N A M E
0003300 D I F F E R E N C E L ( 1
0003320 Y 0 X ) ) \0 1 \0 \0 \0 002 @ 005
0003340 003 265 \a A 005 003 223 @ A 351 020 @ 3 252 @
0003360 l \n i \v \0 \0 b \0 260 347 A 3 253 A l
0003400 \n i \v \0 \0 b 002 277 260 326 @ A 331 020 \0 (
0003420 4 6 Q \ L I S P E R R O R 2
0003440 7 Q \ L I S P E R R O R ) \r N
0003460 I L \r ( ) \r \ S L O W I G R E A
0003500 T E R P D 1 \r ( N A M E I G
0003520 R E A T E R P L ( 1 Y 0
0003540 X ) ) \0 255 004 \0 \0 002 021 @ 003 @ 004
0003560 d l 002 360 231 277 @ 310 \0 270 @ 310 001 260 026 d
0003600 k 360 262 $ 277 j @ 361 243 j 270 @ 205 n 377 377
0003620 270 @ 323 271 A 004 d l 002 360 262 + 277 A 310 \0
0003640 272 A 310 001 260 5 l 003 360 227 @ \t \0 \0 b \0
0003660 260 277 @ d 004 ` \0 \0 360 263 B l \n i \v \0
0003700 \0 b \0 260 254 d k 360 262 035 277 j A 361 243 j
0003720 272 A 205 n 377 377 272 A 323 273 H d J 360 262 .
0003740 277 I K 361 020 l 003 360 227 A \t \0 \0 b 002 260
0003760 246 A d 004 ` \0 \0 360 230 277 @ A \n \0 \0 k
0004000 360 020 l \n i \v \0 \0 b 002 260 213 n 200 \0 346
0004020 J n 200 \0 346 361 020 \0 ( 2 3 4 Q \ L
0004040 I S P E R R O R 2 2 3 Q \ B
0004060 I G N U M . C O M P A R E 2 0
0004100 1 Q \ F I X P . F R O M . F L
0004120 O A T P 1 2 5 Q \ L I S P E
0004140 R R O R 1 0 2 Q \ F I X P .
0004160 F R O M . F L O A T P ) \r ( 2 1
0004200 3 Q 004 003 B I G N U M T Y P E #
0004220 1 1 4 Q 004 003 B I G N U M T Y
0004240 P E # ) \r ( ) \r \ S L O W L L S
0004260 H 1 D 1 \r ( L ( 0 X ) )
0004300 \0 n 002 \0 \0 001 021 001 @ 004 d l 002 360 231
0004320 277 @ 310 \0 271 @ 310 001 260 026 d k 360 262 " 277
0004340 j @ 361 243 j 271 @ 205 n 377 377 271 @ 323 270 I
0004360 n 177 377 345 340 H n 177 377 361 262 / k 260 - l
0004400 003 360 227 @ \t \0 \0 b \0 260 301 @ d 004 ` \0
0004420 \0 360 233 o \0 \0 \0 i \v \0 \0 b \0 260 255 l
0004440 \n i \v \0 \0 b \0 260 243 j 330 H n 177 377 345
0004460 340 365 020 \0 ( 1 3 6 Q \ L I S P E
0004500 R R O R 1 2 4 Q \ L I S P E
0004520 R R O R 1 0 0 Q \ F I X P .
0004540 F R O M . F L O A T P ) \r ( 1 1
0004560 2 Q 004 003 B I G N U M T Y P E #
0004600 ) \r ( 1 2 0 Q " A R G N O
0004620 T F I X P " ) \r \ S L O W L L
0004640 S H 8 D 1 \r ( L ( 0 X ) )
0004660 \0 c 002 \0 \0 001 021 001 @ 004 d l 002 360
0004700 231 277 @ 310 \0 270 @ 310 001 260 026 d k 360 262 !
0004720 277 j @ 361 243 j 270 @ 205 n 377 377 270 @ 323 271
0004740 H l 377 345 341 I 343 330 I l 377 345 341 365 020 l
0004760 003 360 227 @ \t \0 \0 b \0 260 302 @ d 004 ` \0
0005000 \0 360 233 o \0 \0 \0 i \v \0 \0 b \0 260 256 l
0005020 \n i \v \0 \0 b \0 260 244 \0 ( 1 3 5 Q
0005040 \ L I S P E R R O R 1 2 3 Q
0005060 \ L I S P E R R O R 7 7 Q \
0005100 F I X P . F R O M . F L O A T P
0005120 ) \r ( 1 1 1 Q 004 003 B I G N U M
0005140 T Y P E # ) \r ( 1 1 7 Q " A
0005160 R G N O T F I X P " ) \r \ S
0005200 L O W L O G A N D 2 D 1 \r ( N
0005220 A M E L O G A N D L ( 1
0005240 Y 0 X ) ) \0 235 004 \0 \0 002 021 @
0005260 003 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001
0005300 260 026 d k 360 262 $ 277 j @ 361 243 j 270 @ 205
0005320 n 377 377 270 @ 323 271 A 004 d l 002 360 262 + 277
0005340 A 310 \0 272 A 310 001 260 5 l 003 360 227 @ \t \0
0005360 \0 b \0 260 277 @ d 004 ` \0 \0 360 263 ? l \n
0005400 i \v \0 \0 b \0 260 254 d k 360 262 032 277 j A
0005420 361 243 j 272 A 205 n 377 377 272 A 323 273 H J 345
0005440 I K 345 365 020 l 003 360 227 A \t \0 \0 b 002 260
0005460 251 A d 004 ` \0 \0 360 226 277 @ A \n \0 \0 020
0005500 l \n i \v \0 \0 b 002 260 220 \0 ( 2 2 7 Q
0005520 \ L I S P E R R O R 2 2 0 Q
0005540 \ B I G N U M . L O G A N D
0005560 1 7 6 Q \ F I X P . F R O M .
0005600 F L O A T P 1 2 5 Q \ L I S
0005620 P E R R O R 1 0 2 Q \ F I X
0005640 P . F R O M . F L O A T P ) \r (
0005660 2 1 0 Q 004 003 B I G N U M T Y P
0005700 E # 1 1 4 Q 004 003 B I G N U M
0005720 T Y P E # ) \r ( ) \r \ S L O W L
0005740 O G O R 2 D 1 \r ( N A M E L
0005760 O G O R L ( 1 Y 0 X )
0006000 ) \0 235 004 \0 \0 002 021 @ 003 @ 004 d l 002
0006020 360 231 277 @ 310 \0 270 @ 310 001 260 026 d k 360 262
0006040 $ 277 j @ 361 243 j 270 @ 205 n 377 377 270 @ 323
0006060 271 A 004 d l 002 360 262 + 277 A 310 \0 272 A 310
0006100 001 260 5 l 003 360 227 @ \t \0 \0 b \0 260 277 @
0006120 d 004 ` \0 \0 360 263 ? l \n i \v \0 \0 b \0
0006140 260 254 d k 360 262 032 277 j A 361 243 j 272 A 205
0006160 n 377 377 272 A 323 273 H J 344 I K 344 365 020 l
0006200 003 360 227 A \t \0 \0 b 002 260 251 A d 004 ` \0
0006220 \0 360 226 277 @ A \n \0 \0 020 l \n i \v \0 \0
0006240 b 002 260 220 \0 ( 2 2 7 Q \ L I S P
0006260 E R R O R 2 2 0 Q \ B I G N
0006300 U M . L O G O R 1 7 6 Q \ F
0006320 I X P . F R O M . F L O A T P
0006340 1 2 5 Q \ L I S P E R R O R
0006360 1 0 2 Q \ F I X P . F R O M .
0006400 F L O A T P ) \r ( 2 1 0 Q 004 003
0006420 B I G N U M T Y P E # 1 1 4 Q
0006440 004 003 B I G N U M T Y P E # ) \r
0006460 ( ) \r \ S L O W L O G X O R 2
0006500 D 1 \r ( N A M E L O G X O R
0006520 L ( 1 Y 0 X ) ) \0 235 004
0006540 \0 \0 002 021 @ 003 @ 004 d l 002 360 231 277 @ 310
0006560 \0 270 @ 310 001 260 026 d k 360 262 $ 277 j @ 361
0006600 243 j 270 @ 205 n 377 377 270 @ 323 271 A 004 d l
0006620 002 360 262 + 277 A 310 \0 272 A 310 001 260 5 l 003
0006640 360 227 @ \t \0 \0 b \0 260 277 @ d 004 ` \0 \0
0006660 360 263 ? l \n i \v \0 \0 b \0 260 254 d k 360
0006700 262 032 277 j A 361 243 j 272 A 205 n 377 377 272 A
0006720 323 273 H J 346 I K 346 365 020 l 003 360 227 A \t
0006740 \0 \0 b 002 260 251 A d 004 ` \0 \0 360 226 277 @
0006760 A \n \0 \0 020 l \n i \v \0 \0 b 002 260 220 \0
0007000 ( 2 2 7 Q \ L I S P E R R O R
0007020 2 2 0 Q \ B I G N U M . L O
0007040 G X O R 1 7 6 Q \ F I X P .
0007060 F R O M . F L O A T P 1 2 5 Q
0007100 \ L I S P E R R O R 1 0 2 Q
0007120 \ F I X P . F R O M . F L O A
0007140 T P ) \r ( 2 1 0 Q 004 003 B I G N
0007160 U M T Y P E # 1 1 4 Q 004 003 B
0007200 I G N U M T Y P E # ) \r ( ) \r \
0007220 S L O W L R S H 1 D 1 \r ( L
0007240 ( 0 X ) ) \0 h 002 \0 \0 001 021 001
0007260 @ 004 d l 002 360 231 277 @ 310 \0 270 @ 310 001 260
0007300 026 d k 360 262 277 j @ 361 243 j 270 @ 205 n
0007320 377 377 270 @ 323 271 H 342 I 342 H k 345 j 360 262
0007340 / j 260 / l 003 360 227 @ \t \0 \0 b \0 260 303
0007360 @ d 004 ` \0 \0 360 233 o \0 \0 \0 i \v \0 \0
0007400 b \0 260 257 l \n i \v \0 \0 b \0 260 245 n 200
0007420 \0 330 365 020 \0 ( 1 3 4 Q \ L I S P
0007440 E R R O R 1 2 2 Q \ L I S P
0007460 E R R O R 7 6 Q \ F I X P .
0007500 F R O M . F L O A T P ) \r ( 1 1
0007520 0 Q 004 003 B I G N U M T Y P E #
0007540 ) \r ( 1 1 6 Q " A R G N O
0007560 T F I X P " ) \r \ S L O W L R
0007600 S H 8 D 1 \r ( L ( 0 X ) )
0007620 \0 ` 002 \0 \0 001 021 001 @ 004 d l 002 360
0007640 231 277 @ 310 \0 270 @ 310 001 260 026 d k 360 262 036
0007660 277 j @ 361 243 j 270 @ 205 n 377 377 270 @ 323 271
0007700 H 343 H l 377 345 341 I 343 330 365 020 l 003 360 227
0007720 @ \t \0 \0 b \0 260 305 @ d 004 ` \0 \0 360 233
0007740 o \0 \0 \0 i \v \0 \0 b \0 260 261 l \n i \v
0007760 \0 \0 b \0 260 247 \0 ( 1 3 2 Q \ L I
0010000 S P E R R O R 1 2 0 Q \ L I
0010020 S P E R R O R 7 4 Q \ F I X
0010040 P . F R O M . F L O A T P ) \r (
0010060 1 0 6 Q 004 003 B I G N U M T Y P
0010100 E # ) \r ( 1 1 4 Q " A R G
0010120 N O T F I X P " ) \r \ S L O W
0010140 I T I M E S 2 D 1 \r ( N A M E
0010160 I T I M E S L ( 1 Y 0
0010200 X ) ) 002 003 \b \0 \0 002 @ j 360 243 A
0010220 j 360 221 j 020 j d 021 b \a @ 004 d l 002 360
0010240 231 277 @ 310 \0 272 @ 310 001 260 026 d k 360 262 $
0010260 277 j @ 361 243 j 272 @ 205 n 377 377 272 @ 323 274
0010300 A 004 d l 002 360 262 + 277 A 310 \0 273 A 310 001
0010320 260 5 l 003 360 227 @ \t \0 \0 b \0 260 277 @ d
0010340 004 ` \0 \0 360 263 1 l \n i \v \0 \0 b \0 260
0010360 254 d k 360 262 ' 277 j A 361 243 j 273 A 205 n
0010400 377 377 273 A 323 275 J n 177 377 361 262 S @ o \0
0010420 \0 \0 364 262 ) @ A \n \0 \0 020 l 003 360 227 A
0010440 \t \0 \0 b 002 260 234 A d 004 ` \0 \0 360 222 277
0010460 260 345 l \n i \v \0 \0 b 002 260 207 L j 360 235
0010500 J j 360 263 031 n 377 377 J 331 k 330 272 215 n 377
0010520 377 J 331 272 n 377 377 L 331 k 330 274 i 276 K d
0010540 n 177 377 361 262 0 277 A o \0 \0 \0 364 263 250 M
0010560 j 360 235 K j 360 263 031 n 377 377 K 331 k 330 273
0010600 215 n 377 377 K 331 273 n 377 377 M 331 k 330 275 N
0010620 h 360 276 K j 360 256 J j 360 242 261 377 z M L
0010640 275 274 K J 273 272 M d 342 275 k 345 j 360 263 K
0010660 I d n 377 377 L 331 361 232 n 377 377 L k 331 331
0010700 331 271 k 203 L 330 271 j _ 016 277 H J O 016 330
0010720 330 X n 177 377 361 262 # M j 360 242 261 377 9 N
0010740 242 261 377 4 H n 200 \0 360 242 261 377 + I j 360
0010760 242 261 377 $ o \0 \0 \0 020 M j 360 263 N M 005
0011000 003 265 D n @ \0 J 361 263 Z J n @ \0 360 242
0011020 261 377 005 L j 360 256 L 005 003 242 261 376 372 L \t
0011040 \0 \0 242 261 376 362 N 242 261 376 355 M k 360 242 261
0011060 376 346 H j 360 242 261 376 337 I j 360 242 261 376 330
0011100 o \0 \0 \0 020 \t \0 \0 262 273 N 262 > I j 360
0011120 262 + H d j 360 263 4 277 n 377 377 H 331 k 330
0011140 260 * J 340 272 L d n 177 377 361 231 277 J k 324
0011160 272 L n 177 377 345 340 274 261 377 . n 377 377 H 331
0011200 270 n 377 377 I 331 k 330 271 H I 365 020 \0 ( 6
0011220 7 4 Q \ F Z E R O P 6 2 6 Q
0011240 \ F Z E R O P 2 5 4 Q \ L
0011260 I S P E R R O R 2 2 7 Q \ F
0011300 I X P . F R O M . F L O A T P
0011320 2 1 6 Q \ B I G N U M . T I M
0011340 E S 1 4 1 Q \ L I S P E R R
0011360 O R 1 1 6 Q \ F I X P . F R
0011400 O M . F L O A T P ) \r ( 2 4 1 Q
0011420 004 003 B I G N U M T Y P E # 1
0011440 3 0 Q 004 003 B I G N U M T Y P E
0011460 # ) \r ( 6 7 0 Q - 2 0 0 0 0
0011500 0 0 0 0 0 0 Q 5 5 4 Q - 2 0
0011520 0 0 0 0 0 0 0 0 0 Q 3 4 0 Q
0011540 - 2 0 0 0 0 0 0 0 0 0 0 Q 2 0
0011560 6 Q - 2 0 0 0 0 0 0 0 0 0 0 Q
0011600 ) \r \ S L O W T I M E S 2 D 1
0011620 \r ( N A M E T I M E S L (
0011640 1 Y 0 X ) ) \0 1 \0 \0 \0 002
0011660 @ 005 003 265 \a A 005 003 223 @ A 352 020 @ 3
0011700 252 @ l \n i \v \0 \0 b \0 260 347 A 3 253
0011720 A l \n i \v \0 \0 b 002 277 260 326 @ A 332 020
0011740 \0 ( 4 6 Q \ L I S P E R R O R
0011760 2 7 Q \ L I S P E R R O R )
0012000 \r N I L \r ( ) \r \ S L O W I Q U
0012020 O T I E N T D 1 \r ( N A M E
0012040 I Q U O T I E N T L ( 1 Y
0012060 0 X ) F 1 1 Q \ O V E
0012100 R F L O W ) 002 d \t 001 \0 002 j d d
0012120 021 c \b @ 004 d l 002 360 231 277 @ 310 \0 273 @
0012140 310 001 260 026 d k 360 262 $ 277 j @ 361 243 j 273
0012160 @ 205 n 377 377 273 @ 323 274 A 004 d l 002 360 262
0012200 + 277 A 310 \0 275 A 310 001 260 5 l 003 360 227 @
0012220 \t \0 \0 b \0 260 277 @ d 004 ` \0 \0 360 263 R
0012240 l \n i \v \0 \0 b \0 260 254 d k 360 262 - 277
0012260 j A 361 243 j 275 A 205 n 377 377 275 A 323 276 K
0012300 n 177 377 361 262 P L j 360 262 7 K j 360 263 @
0012320 n 377 377 K 331 k 330 273 260 6 l 003 360 227 A \t
0012340 \0 \0 b 002 260 226 A d 004 ` \0 \0 360 226 277 @
0012360 A \n \0 \0 020 l \n i \v \0 \0 b 002 261 377 }
0012400 n 377 377 K 331 273 n 377 377 L 331 k 330 274 i _
0012420 020 _ 016 277 M n 177 377 361 262 ) N j 360 235 M
0012440 j 360 263 031 n 377 377 M 331 k 330 275 215 n 377 377
0012460 M 331 275 n 377 377 N 331 k 330 276 O 016 h 360 _
0012500 016 277 K j 360 262 w M j 360 262 " L j 360 263
0012520 025 N d j 360 237 277 W 022 i 360 227 o \0 \0 \0
0012540 A \n \0 \0 j 020 k 360 262 $ L 272 O 016 242 261
0012560 001 = J j 360 242 261 001 ( I d j 360 222 261 001
0012600 / 277 n 377 377 I 331 k 330 261 001 $ L N 361 236
0012620 N d n 177 377 361 250 340 276 H k 330 270 260 357 N
0012640 L 361 247 L N 331 274 J k 330 272 N 342 276 H k
0012660 331 270 j H 361 263 267 J 340 272 260 345 M j 360 262
0012700 ( N ] j 360 263 222 O 020 262 027 O 016 263 023 N
0012720 k 360 234 K n 200 \0 360 226 L j 360 222 261 377 022
0012740 j 276 l 020 270 260 " O 020 262 036 O 016 263 032 L
0012760 j 360 262 025 K n 200 \0 360 234 M d j 360 230 277
0013000 N k 360 222 261 376 353 M K 360 223 L N 361 246 K
0013020 d M 361 262 m 277 n 177 377 M 361 262 d M 340 275
0013040 N d n 177 377 361 231 277 M k 324 275 N n 177 377
0013060 345 340 276 H k 330 270 260 320 n 377 377 N L 331 331
0013100 k 330 274 k 331 273 J k 330 272 N 342 276 M d k
0013120 345 j 360 247 277 N n 200 \0 330 276 M 342 275 H k
0013140 331 270 j H 361 222 261 377 006 I 340 271 J d n 177
0013160 377 361 231 277 I k 324 271 J n 177 377 345 340 272 K
0013200 M 361 253 M K 360 262 304 N d L 361 263 277 277 K
0013220 M 331 N L 361 263 244 L N 331 274 j 260 250 n 377
0013240 377 I 331 271 n 377 377 J 331 k 330 272 I J 365 020
0013260 \0 ( 4 2 6 Q E R R O R 2 5 5
0013300 Q \ L I S P E R R O R 2 4 6
0013320 Q \ B I G N U M . Q U O T I E
0013340 N T 2 2 4 Q \ F I X P . F R
0013360 O M . F L O A T P 1 3 0 Q \
0013400 L I S P E R R O R 1 0 5 Q \
0013420 F I X P . F R O M . F L O A T P
0013440 ) \r ( 2 3 6 Q 004 003 B I G N U M
0013460 T Y P E # 1 1 7 Q 004 003 B I G
0013500 N U M T Y P E # ) \r ( 4 2 2 Q
0013520 " D I V I D E B Y Z E R O
0013540 " ) \r \ S L O W Q U O T I E N T
0013560 D 1 \r ( N A M E Q U O T I E
0013600 N T L ( 1 Y 0 X ) )
0013620 \0 1 \0 \0 \0 002 @ 005 003 265 \a A 005 003 223 @
0013640 A 353 020 @ 3 252 @ l \n i \v \0 \0 b \0
0013660 260 347 A 3 253 A l \n i \v \0 \0 b 002 277
0013700 260 326 @ A 333 020 \0 ( 4 6 Q \ L I S
0013720 P E R R O R 2 7 Q \ L I S P
0013740 E R R O R ) \r N I L \r ( ) \r \ B
0013760 O X I P L U S D 1 \r ( L ( 1
0014000 Y 0 X ) ) \0 236 004 \0 \0 002 @
0014020 310 \0 @ 310 001 021 " 003 A 004 d l 002 360 231 277
0014040 A 310 \0 272 A 310 001 260 026 d k 360 262 & 277 j
0014060 A 361 243 j 272 A 205 n 377 377 272 A 323 273 H d
0014100 n 377 377 J 331 361 262 6 n 377 377 J 331 k 330 331
0014120 260 . l 003 360 227 A \t \0 \0 b 002 260 275 A d
0014140 004 ` \0 \0 360 233 o \0 \0 \0 i \v \0 \0 b 002
0014160 260 251 l \n i \v \0 \0 b 002 260 237 J 330 X @
0014200 I d n 377 377 K 331 361 262 032 277 H d n 377 377
0014220 360 222 277 j 201 k 330 270 I n 377 377 K 331 k 330
0014240 331 201 K 330 315 001 @ H 315 \0 @ 020 \0 ( 1 5
0014260 0 Q \ L I S P E R R O R 1 3
0014300 6 Q \ L I S P E R R O R 1 1
0014320 2 Q \ F I X P . F R O M . F L
0014340 O A T P ) \r ( 1 2 4 Q 004 003 B I
0014360 G N U M T Y P E # ) \r ( 1 3 2
0014400 Q " A R G N O T F I X P "
0014420 ) \r \ B O X I D I F F E R E N C
0014440 E D 1 \r ( L ( 1 Y 0 X
0014460 ) ) \0 275 004 \0 \0 002 @ 310 \0 @ 310 001 021
0014500 " 003 A 004 d l 002 360 231 277 A 310 \0 272 A 310
0014520 001 260 026 d k 360 262 % 277 j A 361 243 j 272 A
0014540 205 n 377 377 272 A 323 [ j 360 262 ; J j 360 263
0014560 D n 377 377 J 331 k 330 272 260 : l 003 360 227 A
0014600 \t \0 \0 b 002 260 276 A d 004 ` \0 \0 360 233 o
0014620 \0 \0 \0 i \v \0 \0 b 002 260 252 l \n i \v \0
0014640 \0 b 002 260 240 n 377 377 J 331 272 n 377 377 K 331
0014660 k 330 273 H d n 377 377 J 331 361 230 n 377 377 J
0014700 331 k 330 331 201 J 330 X @ I d n 377 377 K 331
0014720 361 262 032 277 H d n 377 377 360 222 277 j 201 k 330
0014740 270 I n 377 377 K 331 k 330 331 201 K 330 315 001 @
0014760 H 315 \0 @ 020 \0 ( 1 4 7 Q \ L I S
0015000 P E R R O R 1 3 5 Q \ L I S
0015020 P E R R O R 1 1 1 Q \ F I X
0015040 P . F R O M . F L O A T P ) \r (
0015060 1 2 3 Q 004 003 B I G N U M T Y P
0015100 E # ) \r ( 1 3 1 Q " A R G
0015120 N O T F I X P " ) \r \ M A K E
0015140 N U M B E R D 1 \r ( L ( 1
0015160 N 1 0 N 0 ) ) \0 G 001 \0 \0 002
0015200 A d 005 001 227 277 j A 361 241 A 203 A \t \0 \0
0015220 b 002 @ d 005 001 227 277 j @ 361 241 @ 203 @ \t
0015240 \0 \0 b \0 d j 360 221 A 020 n 377 377 360 224 l
0015260 017 A 321 020 021 020 \0 l 002 037 X d @ 315 \0 277
0015300 H A 315 001 277 020 \0 ( 4 1 Q \ I L L
0015320 E G A L . A R G 1 7 Q \ I L
0015340 L E G A L . A R G ) \r N I L \r (
0015360 ) \r O V E R F L O W D 1 \r ( L
0015400 ( 0 F L G ) F 0 \ O V
0015420 E R F L O W ) \0 017 \0 001 \0 001 P @
0015440 d 225 i 360 221 i 200 j c \0 277 020 \0 N I L
0015460 \r N I L \r ( ) \r \ G E T B A S E
0015500 F I X P D 1 \r ( L ( 1 O F
0015520 F S T 0 B A S E ) ) \0 017 001
0015540 \0 \0 002 @ A 320 021 001 \0 H 310 \0 H 310 001 365
0015560 020 \0 N I L \r N I L \r ( ) \r \ P U
0015600 T B A S E F I X P D 1 \r ( L
0015620 ( 2 V A L 1 O F F S T 0
0015640 B A S E ) ) \0 F 002 \0 \0 003 021
0015660 001 B 004 d k 360 262 023 277 j B 361 244 j 270 B
0015700 260 025 n 377 377 270 B 323 213 l 002 360 264 \t B 310
0015720 \0 270 B 310 001 Y 252 B l 033 i \v \0 \0 b 004
0015740 260 322 @ A 320 H 315 \0 277 @ A k 330 320 I 315
0015760 \0 B 020 \0 ( 5 7 Q \ L I S P E R
0016000 R O R ) \r N I L \r ( ) \r \ P U T
0016020 B A S E F I X P . U F N D 1 \r
0016040 ( L ( 2 O F F S T 1 V A
0016060 L 0 B A S E ) ) \0 F 002 \0 \0
0016100 003 021 001 A 004 d k 360 262 023 277 j A 361 244
0016120 j 270 A 260 025 n 377 377 270 A 323 213 l 002 360 264
0016140 \t A 310 \0 270 A 310 001 Y 252 A l 033 i \v \0
0016160 \0 b 002 260 322 @ B 320 H 315 \0 277 @ B k 330
0016200 320 I 315 \0 A 020 \0 ( 5 7 Q \ L I S
0016220 P E R R O R ) \r N I L \r ( ) \r E
0016240 Q P D 1 \r ( L ( 1 Y 0
0016260 X ) ) \0 U \0 \0 \0 002 @ A 360 265 P @
0016300 d 3 020 262 036 277 A 3 020 262 027 @ 005 003 265 \a
0016320 A 005 003 225 @ A \n \0 \0 020 @ A 331 j 360 020
0016340 @ 004 A 004 360 264 ( @ 004 d l \b 360 230 277 @
0016360 310 001 A 310 001 360 020 l 006 360 264 023 @ 006 \0 \0
0016400 312 \0 C l 004 360 264 \a @ A \n \0 \0 020 \0 (
0016420 1 2 2 Q E Q D E F P 3 6 Q
0016440 F E Q P ) \r ( 1 0 5 Q A R R A
0016460 Y P ) \r ( ) \r F I X D 1 \r ( L
0016500 ( 0 N ) ) \0 005 \0 \0 \0 001 @ j
0016520 330 020 \0 N I L \r N I L \r ( ) \r I Q
0016540 U O T I E N T D 1 \r ( L ( 1
0016560 Y 0 X ) ) \0 005 \0 \0 \0 002 @
0016600 A 333 020 \0 N I L \r N I L \r ( ) \r I
0016620 R E M A I N D E R D 1 \r ( L
0016640 ( 1 Y 0 X ) F 1 1 Q
0016660 \ O V E R F L O W ) 002 d \t 001 \0
0016700 002 j d d 021 c \b @ 004 d l 002 360 231 277 @
0016720 310 \0 273 @ 310 001 260 026 d k 360 262 $ 277 j @
0016740 361 243 j 273 @ 205 n 377 377 273 @ 323 274 A 004 d
0016760 l 002 360 262 + 277 A 310 \0 275 A 310 001 260 5 l
0017000 003 360 227 @ \t \0 \0 b \0 260 277 @ d 004 ` \0
0017020 \0 360 263 R l \n i \v \0 \0 b \0 260 254 d k
0017040 360 262 - 277 j A 361 243 j 275 A 205 n 377 377 275
0017060 A 323 276 K n 177 377 361 262 P L j 360 262 7 K
0017100 j 360 263 @ n 377 377 K 331 k 330 273 260 6 l 003
0017120 360 227 A \t \0 \0 b 002 260 226 A d 004 ` \0 \0
0017140 360 226 277 @ A \n \0 \0 020 l \n i \v \0 \0 b
0017160 002 261 377 } n 377 377 K 331 273 n 377 377 L 331 k
0017200 330 274 i _ 020 _ 016 277 M n 177 377 361 262 ) N
0017220 j 360 235 M j 360 263 031 n 377 377 M 331 k 330 275
0017240 215 n 377 377 M 331 275 n 377 377 N 331 k 330 276 O
0017260 016 h 360 _ 016 277 K j 360 262 w M j 360 262 "
0017300 L j 360 263 025 N d j 360 237 277 W 022 i 360 227
0017320 o \0 \0 \0 A \n \0 \0 j 020 k 360 262 $ j 274
0017340 O 020 242 261 001 = L j 360 242 261 001 ( K d j
0017360 360 222 261 001 / 277 n 377 377 K 331 k 330 261 001 $
0017400 L N 361 236 N d n 177 377 361 250 340 276 H k 330
0017420 270 260 357 N L 361 247 L N 331 274 J k 330 272 N
0017440 342 276 H k 331 270 j H 361 263 267 J 340 272 260 345
0017460 M j 360 262 ( N ] j 360 263 222 O 020 262 027 O
0017500 016 263 023 N k 360 234 K n 200 \0 360 226 L j 360
0017520 222 261 377 022 j 276 l 020 270 260 " O 020 262 036 O
0017540 016 263 032 L j 360 262 025 K n 200 \0 360 234 M d
0017560 j 360 230 277 N k 360 222 261 376 353 M K 360 223 L
0017600 N 361 246 K d M 361 262 m 277 n 177 377 M 361 262
0017620 d M 340 275 N d n 177 377 361 231 277 M k 324 275
0017640 N n 177 377 345 340 276 H k 330 270 260 320 n 377 377
0017660 N L 331 331 k 330 274 k 331 273 J k 330 272 N 342
0017700 276 M d k 345 j 360 247 277 N n 200 \0 330 276 M
0017720 342 275 H k 331 270 j H 361 222 261 377 006 I 340 271
0017740 J d n 177 377 361 231 277 I k 324 271 J n 177 377
0017760 345 340 272 K M 361 253 M K 360 262 304 N d L 361
0020000 263 277 277 K M 331 N L 361 263 244 L N 331 274 j
0020020 260 250 n 377 377 K 331 273 n 377 377 L 331 k 330 274
0020040 K L 365 020 \0 ( 4 2 6 Q E R R O R
0020060 2 5 5 Q \ L I S P E R R O R
0020100 2 4 6 Q \ B I G N U M . R E
0020120 M A I N D E R 2 2 4 Q \ F I
0020140 X P . F R O M . F L O A T P 1
0020160 3 0 Q \ L I S P E R R O R 1
0020200 0 5 Q \ F I X P . F R O M . F
0020220 L O A T P ) \r ( 2 3 6 Q 004 003 B
0020240 I G N U M T Y P E # 1 1 7 Q
0020260 004 003 B I G N U M T Y P E # ) \r (
0020300 4 2 2 Q " D I V I D E B Y
0020320 Z E R O " ) \r L L S H D 1 \r
0020340 ( L ( 1 N 0 X ) ) \0 272
0020360 002 \0 \0 002 j A 361 227 @ j A 331 \n \0 \0 020
0020400 021 001 @ 004 d l 002 360 231 277 @ 310 \0 270 @
0020420 310 001 260 026 d k 360 262 033 277 j @ 361 243 j 270
0020440 @ 205 n 377 377 270 @ 323 271 A d l 037 361 262 .
0020460 j 020 l 003 360 227 @ \t \0 \0 b \0 260 310 @ d
0020500 004 ` \0 \0 360 233 o \0 \0 \0 i \v \0 \0 b \0
0020520 260 264 l \n i \v \0 \0 b \0 260 252 l 017 361 232
0020540 I 270 j 271 A l 020 331 b 002 200 A l \a 361 262
0020560 026 H l 377 345 341 I 343 330 270 I l 377 345 341 271
0020600 A l \b 331 200 A d j 361 262 H n 177 377 345
0020620 340 270 I d n 177 377 361 231 277 H k 324 270 I n
0020640 177 377 345 340 271 k 331 260 337 H I 365 020 \0 ( 1
0020660 4 3 Q \ L I S P E R R O R 1
0020700 3 1 Q \ L I S P E R R O R 1
0020720 0 5 Q \ F I X P . F R O M . F
0020740 L O A T P 1 2 Q L R S H ) \r
0020760 ( 1 1 7 Q 004 003 B I G N U M T Y
0021000 P E # ) \r ( 1 2 5 Q " A R G
0021020 N O T F I X P " ) \r L R S H
0021040 D 1 \r ( L ( 1 N 0 X )
0021060 ) \0 261 002 \0 \0 002 j A 361 227 @ j A 331
0021100 \n \0 \0 020 021 001 @ 004 d l 002 360 231 277 @
0021120 310 \0 270 @ 310 001 260 026 d k 360 262 033 277 j @
0021140 361 243 j 270 @ 205 n 377 377 270 @ 323 271 A d l
0021160 037 361 262 . j 020 l 003 360 227 @ \t \0 \0 b \0
0021200 260 310 @ d 004 ` \0 \0 360 233 o \0 \0 \0 i \v
0021220 \0 \0 b \0 260 264 l \n i \v \0 \0 b \0 260 252
0021240 l 017 361 232 H 271 j 270 A l 020 331 b 002 200 A
0021260 l \a 361 262 023 I 343 H l 377 345 341 330 271 H 343
0021300 270 A l \b 331 200 A d j 361 262 032 I 342 271 H
0021320 d k 345 j 360 247 277 I n 200 \0 330 271 H 342 270
0021340 k 331 260 345 H I 365 020 \0 ( 1 4 3 Q \
0021360 L I S P E R R O R 1 3 1 Q \
0021400 L I S P E R R O R 1 0 5 Q \
0021420 F I X P . F R O M . F L O A T P
0021440 1 2 Q L L S H ) \r ( 1 1 7 Q
0021460 004 003 B I G N U M T Y P E # ) \r
0021500 ( 1 2 5 Q " A R G N O T
0021520 F I X P " ) \r L S H D 1 \r ( L
0021540 ( 1 N 0 X ) ) \0 6 \0 \0
0021560 \0 002 A j 361 255 A j 360 221 @ 020 @ j A 331
0021600 \n \0 \0 020 @ j 360 221 j 020 A d l 037 361 226
0021620 277 @ A \n \0 \0 020 d j 361 231 @ d 330 b \0
0021640 277 k 331 260 364 @ 020 \0 ( 4 3 Q \ B I
0021660 G N U M . L S H 2 0 Q R S H
0021700 ) \r N I L \r ( ) \r R S H D 1 \r
0021720 ( L ( 1 N 0 X ) ) \0 324
0021740 002 \0 \0 002 j A 361 225 @ j A 331 347 020 @ j
0021760 360 221 j 020 021 001 @ 004 d l 002 360 231 277 @
0022000 310 \0 270 @ 310 001 260 026 d k 360 262 $ 277 j @
0022020 361 243 j 270 @ 205 n 377 377 270 @ 323 271 A d l
0022040 037 361 262 2 277 H n 177 377 361 262 310 m 377 020 l
0022060 003 360 227 @ \t \0 \0 b \0 260 277 @ d 004 ` \0
0022100 \0 360 226 j A 331 \n \0 \0 020 l \n i \v \0 \0
0022120 b \0 260 246 l 017 361 262 026 H Y n 177 377 361 223
0022140 n 377 377 200 j 270 A l 020 331 b 002 200 A l \a
0022160 361 262 037 I 343 H l 377 345 341 330 271 H 343 H n
0022200 177 377 361 223 n 377 \0 200 j 330 270 A l \b 331 200
0022220 A d j 361 262 036 I 342 H k 345 j 360 221 j 202
0022240 n 200 \0 330 271 H 342 H n 200 \0 345 330 270 k 331
0022260 260 341 277 H I 365 020 \0 ( 1 5 3 Q \ L
0022300 I S P E R R O R 1 4 4 Q \ B
0022320 I G N U M . L S H 1 2 2 Q \
0022340 F I X P . F R O M . F L O A T P
0022360 ) \r ( 1 3 4 Q 004 003 B I G N U M
0022400 T Y P E # ) \r ( ) \r M I N U S P
0022420 D 1 \r ( L ( 0 X ) ) \0 020
0022440 \0 \0 \0 001 @ 005 003 226 o \0 \0 \0 @ 362 020 j
0022460 @ 361 020 \0 N I L \r N I L \r ( 7
0022500 0 . 0 ) \r I L E S S P D 1 \r (
0022520 L ( 1 Y 0 X ) ) \0 005 \0
0022540 \0 \0 002 A @ 361 020 \0 N I L \r N I L \r
0022560 ( ) \r I M I N U S D 1 \r ( L
0022600 ( 0 X ) ) \0 005 \0 \0 \0 001 j @ 331
0022620 020 \0 N I L \r N I L \r ( ) \r I P L
0022640 U S D 1 \r ( L ( 0 N ) )
0022660 \0 8 003 \0 002 \0 e 021 001 \0 H d l 002 360 224
0022700 277 @ A 330 020 k 360 223 @ j 330 020 H j 360 221
0022720 j 020 @ A B 330 330 l 004 021 002 002 J H 361 252
0022740 I J a 330 271 J k 330 Z 260 364 I 020 \0 N I
0022760 L \r N I L \r ( ) \r I T I M E S
0023000 D 1 \r ( L ( 0 N ) ) \0 8 003
0023020 \0 002 \0 e 021 001 \0 H d l 002 360 224 277 @ A
0023040 332 020 k 360 223 @ j 330 020 H j 360 221 k 020 @
0023060 A B 332 332 l 004 021 002 002 J H 361 252 I J a
0023100 332 271 J k 330 Z 260 364 I 020 \0 N I L \r N
0023120 I L \r ( ) \r L O G A N D D 1 \r
0023140 ( L ( 0 N ) ) \0 9 003 \0 002 \0
0023160 e 021 001 \0 H d l 002 360 224 277 @ A 345 020 k
0023200 360 223 @ j 330 020 H j 360 222 m 377 020 @ A B
0023220 345 345 l 004 021 002 002 J H 361 252 I J a 345 271
0023240 J k 330 Z 260 364 I 020 \0 N I L \r N I L
0023260 \r ( ) \r L O G O R D 1 \r ( L
0023300 ( 0 N ) ) \0 8 003 \0 002 \0 e 021 001
0023320 \0 H d l 002 360 224 277 @ A 344 020 k 360 223 @
0023340 j 330 020 H j 360 221 j 020 @ A B 344 344 l 004
0023360 021 002 002 J H 361 252 I J a 344 271 J k 330 Z
0023400 260 364 I 020 \0 N I L \r N I L \r ( ) \r
0023420 L O G X O R D 1 \r ( L ( 0
0023440 N ) ) \0 8 003 \0 002 \0 e 021 001 \0 H d
0023460 l 002 360 224 277 @ A 346 020 k 360 223 @ j 330 020
0023500 H j 360 221 j 020 @ A B 346 346 l 004 021 002 002
0023520 J H 361 252 I J a 346 271 J k 330 Z 260 364 I
0023540 020 \0 N I L \r N I L \r ( ) \r S U B
0023560 1 D 1 \r ( L ( 0 X ) ) \0
0023600 005 \0 \0 \0 001 @ k 331 020 \0 N I L \r N I
0023620 L \r ( ) \r Z E R O P D 1 \r ( L
0023640 ( 0 X ) ) \0 020 \0 \0 \0 001 @ j
0023660 360 265 \v @ 005 003 264 006 @ \t \0 \0 020 \0 ( 1
0023700 5 Q \ F Z E R O P ) \r N I L \r
0023720 ( ) \r A D D 1 D 1 \r ( L ( 0
0023740 X ) ) \0 005 \0 \0 \0 001 @ k 330 020 \0
0023760 N I L \r N I L \r ( ) \r G C D D
0024000 1 \r ( L ( 1 N 2 0 N 1 )
0024020 ) \0 $ \0 \0 \0 002 A j 360 221 @ 020 j A
0024040 363 234 A \t \0 \0 @ b 002 277 b \0 277 260 353 A
0024060 @ A 334 b 002 277 b \0 277 260 337 \0 ( 1 5 Q
0024100 M I N U S ) \r N I L \r ( ) \r I
0024120 E Q P D 1 \r ( L ( 1 Y 0
0024140 X ) ) \0 \a \0 \0 \0 002 @ A 331 j 360
0024160 020 \0 N I L \r N I L \r ( ) \r I N T
0024200 E G E R L E N G T H D 1 \r ( L
0024220 ( 0 X ) ) 001 " 002 \0 \0 001 @ 004
0024240 d k 360 242 261 \0 247 277 j @ 361 225 j @ 331 b
0024260 \0 277 o \0 \0 \0 @ 361 242 261 \0 216 n 001 \0 @
0024300 361 262 C l 020 @ 361 262 " l 004 @ 361 237 l 002
0024320 @ 361 227 @ j 360 221 j 020 k 020 l 002 020 l \b
0024340 @ 361 222 l 003 020 l 004 020 l @ @ 361 232 l
0024360 @ 361 222 l 005 020 l 006 020 l 200 @ 361 222 l \a
0024400 020 l \b 020 n 020 \0 @ 361 262 n 004 \0 @ 361
0024420 233 n 002 \0 @ 361 222 l \t 020 l \n 020 n \b \0
0024440 @ 361 222 l \v 020 l \f 020 n @ \0 @ 361 233 n
0024460 \0 @ 361 222 l \r 020 l 016 020 n 200 \0 @ 361
0024500 222 l 017 020 l 020 020 \b \0 \0 020 l 002 360 262 Z
0024520 @ 310 \0 021 021 001 H d n 177 377 361 262 8 277 @
0024540 310 001 271 H n 200 \0 360 227 I d j 360 223 l
0024560 020 I j 360 237 H d j 360 263 033 277 n 377 377 H
0024600 331 k 330 X 214 n 377 377 H 331 270 n 377 377 I 331
0024620 k 330 277 H j 360 230 @ 310 001 b \0 023 261 377 001
0024640 H \t \0 \0 l 020 330 020 @ d 004 ` \0 \0 360 223
0024660 \t \0 \0 020 l \n i \v \0 \0 b \0 261 376 343 \0
0024700 ( 4 3 3 Q \ L I S P E R R O R
0024720 4 2 4 Q \ B I G N U M . I N
0024740 T E G E R L E N G T H 4 0 5 Q
0024760 I N T E G E R L E N G T H 2
0025000 5 3 Q S H O U L D N T ) \r ( 4
0025020 1 7 Q 004 003 B I G N U M T Y P E
0025040 # ) \r ( 2 7 Q 2 0 0 0 0 0 Q
0025060 ) \r A B S D 1 \r ( L ( 0 X
0025100 ) ) \0 X 002 \0 \0 001 @ 021 021 001 H Y 3
0025120 247 I d 004 l 003 360 232 277 j @ 363 223 j @
0025140 325 020 @ 020 004 ` \0 \0 360 262 030 j @ \t \0 \0
0025160 363 262 361 j @ \t \0 \0 325 @ \t \0 \0 \n \0 \0
0025200 020 I 004 ` \0 \0 360 224 @ \t \0 \0 020 i g \0
0025220 \0 H o \0 \0 \0 h \r 005 \0 \0 b \0 023 260 253
0025240 \0 ( 1 2 1 Q C H E C K - T Y P
0025260 E - F A I L 1 0 2 Q % % C O
0025300 M P L E X - A B S 6 6 Q % %
0025320 M A K E - R A T I O 6 3 Q D
0025340 E N O M I N A T O R 5 6 Q N
0025360 U M E R A T O R 4 6 Q N U M
0025400 E R A T O R ) \r ( 1 0 7 Q X
0025420 7 4 Q 004 003 C O M P L E X T Y P
0025440 E # 3 6 Q 004 003 R A T I O T Y
0025460 P E # ) \r ( 1 1 4 Q ( O R
0025500 O R I N T E G E R F L O A T
0025520 R A T I O C O M P L E X ) )
0025540 \r D I F F E R E N C E D 1 \r (
0025560 L ( 1 Y 0 X ) ) \0 005 \0
0025600 \0 \0 002 @ A 325 020 \0 N I L \r N I L \r
0025620 ( ) \r G R E A T E R P D 1 \r (
0025640 L ( 1 Y 0 X ) ) \0 023 \0
0025660 \0 \0 002 @ d 3 231 277 A 3 223 @ A 361
0025700 020 @ A 362 020 \0 N I L \r N I L \r ( )
0025720 \r P L U S D 1 \r ( L ( 0 N
0025740 ) ) \0 1 003 \0 002 \0 e 021 001 \0 j 021 021
0025760 002 I H 360 263 # I k 330 Y a 3 233 J d
0026000 005 003 255 265 003 j I a 330 211 J 265 006 o \0 \0
0026020 \0 I a 350 272 260 334 J 020 \0 N I L \r N I
0026040 L \r ( 4 7 Q 0 . 0 ) \r Q U O
0026060 T I E N T D 1 \r ( L ( 1 Y
0026100 0 X ) ) \0 023 \0 \0 \0 002 @ d 3
0026120 231 277 A 3 223 @ A 333 020 @ A 353 020 \0
0026140 N I L \r N I L \r ( ) \r R E M A I
0026160 N D E R D 1 \r ( L ( 1 Y
0026200 0 X ) ) \0 025 \0 \0 \0 002 @ d 3
0026220 231 277 A 3 223 @ A 334 020 @ A \n \0 \0 020
0026240 \0 ( 2 2 Q F R E M A I N D E R
0026260 ) \r N I L \r ( ) \r L E S S P D
0026300 1 \r ( L ( 1 Y 0 X ) )
0026320 \0 023 \0 \0 \0 002 A d 3 231 277 @ 3 223
0026340 A @ 361 020 A @ 362 020 \0 N I L \r N I L
0026360 \r ( ) \r M I N U S D 1 \r ( L
0026400 ( 0 X ) ) \0 020 \0 \0 \0 001 @ 3
0026420 223 j @ 331 020 o \0 \0 \0 @ 351 020 \0 N I L
0026440 \r N I L \r ( 1 3 Q 0 . 0 ) \r
0026460 T I M E S D 1 \r ( L ( 0 N
0026500 ) ) \0 1 003 \0 002 \0 e 021 001 \0 j 021 021
0026520 002 I H 360 263 # I k 330 Y a 3 233 J d
0026540 005 003 255 265 003 k I a 332 211 J 265 006 o \0 \0
0026560 \0 I a 352 272 260 334 J 020 \0 N I L \r N I
0026600 L \r ( 4 7 Q 1 . 0 ) \r F M I
0026620 N U S D 1 \r ( L ( 0 X ) )
0026640 \0 \b \0 \0 \0 001 o \0 \0 \0 @ 351 020 \0 N
0026660 I L \r N I L \r ( 3 0 . 0 ) \r
0026700 F R E M A I N D E R D 1 \r ( L
0026720 ( 1 Y 0 X ) ) \0 \v \0 \0
0026740 \0 002 @ d A 353 j 330 A 352 351 020 \0 N I L
0026760 \r N I L \r ( ) \r R A N D S E T
0027000 D 1 \r ( L ( 0 X ) ) \0 356 \v
0027020 \0 \0 001 021 @ 003 @ 265 005 261 \0 252 i 360 231 \b
0027040 \0 \0 271 \b \0 \0 Z 260 T @ d 003 002 3 233
0027060 d 001 3 226 001 271 @ 002 Z 260 A \t \0 \0 l
0027100 7 360 262 1 @ 205 d 001 3 225 002 003 265 371 i
0027120 201 277 h 262 021 0 006 @ 260 023 d 001 j 330 274
0027140 M 265 \a L h 032 ^ 201 L & 275 002 003 265 356 N
0027160 022 260 ? o \0 \0 \0 @ \n \0 \0 277 021 0 006 o
0027200 \0 \0 \0 260 ( d 001 273 I n 377 377 345 271 K I
0027220 n M 235 332 I 330 n 377 377 345 J 271 Z 346 274 M
0027240 265 \a L h 032 ^ 201 L & 275 002 003 265 331 N 022
0027260 X \t \0 \0 H 031 277 H d l 037 \n \0 \0 032 027
0027300 \0 \0 277 l 7 ` \0 \0 001 k 021 C \n M 003 265
0027320 005 O 016 020 001 _ 024 277 N L 363 263 366 O 024 _
0027340 022 277 O 020 265 024 O 022 h 032 _ 020 _ 016 277 M
0027360 002 275 N k 324 276 260 327 O 022 & _ 020 277 260 361
0027400 \0 ( 2 5 2 Q F N T H 2 4 0 Q
0027420 L A S T 1 4 7 Q E R R O R
0027440 5 3 Q L E N G T H 2 2 Q
0027460 I D A T E 1 6 Q C L O C K )
0027500 \r ( 2 6 4 Q R A N D S T A T E
0027520 2 5 6 Q R A N D S T A T E )
0027540 \r ( 1 5 7 Q ( 1 5 0 1 7 7 Q
0027560 1 3 4 5 0 6 Q 2 3 7 2 Q 1
0027600 5 4 6 2 6 Q 1 7 0 2 3 0 Q 6
0027620 6 1 1 3 Q 2 5 7 4 4 Q 4 0 6
0027640 7 0 Q 1 0 5 7 7 6 Q 1 7 1 5
0027660 2 1 Q 2 6 4 0 5 Q 1 1 1 6 7
0027700 6 Q 1 0 3 5 6 4 Q 1 5 1 Q
0027720 1 6 2 5 7 6 Q 6 6 1 5 7 Q 2
0027740 3 4 0 4 Q 1 0 1 7 1 Q 1 5 7
0027760 1 6 7 Q 7 3 1 2 4 Q 5 7 7 4
0030000 6 Q 2 5 6 5 Q 1 5 2 4 7 4 Q
0030020 1 5 1 7 7 0 Q 1 2 4 4 4 4 Q
0030040 7 4 2 6 Q 1 1 4 1 3 6 Q 2
0030060 6 1 7 2 Q 1 4 6 0 4 3 Q 2 0
0030100 3 7 Q 1 6 7 3 Q 3 7 7 0 0 Q
0030120 4 6 7 0 6 Q 1 6 2 1 4 6 Q
0030140 6 2 7 7 Q 1 7 6 2 2 1 Q 3 2
0030160 5 0 Q 4 1 7 3 5 Q 1 5 6 7 6
0030200 4 Q 4 1 5 4 7 Q 1 4 4 6 6 5
0030220 Q 1 3 5 5 3 2 Q 6 3 2 4 0 Q
0030240 1 0 5 6 0 Q 5 5 0 4 Q 1 4
0030260 5 0 7 5 Q 1 1 4 7 7 6 Q 1 7
0030300 6 5 0 3 Q 1 6 0 6 0 5 Q 1 0
0030320 4 1 4 7 Q 1 2 3 0 3 Q 2 7 5
0030340 1 6 Q 3 5 4 1 4 Q 2 3 6 2 5
0030360 Q 2 5 1 0 0 Q ) \r 1 4 3 Q
0030400 " A R G N O T P R E V I O U
0030420 S V A L U E O F R A N D S
0030440 E T " ) \r R A N D D 1 \r ( L
0030460 ( 1 U P P E R 0 L O W E R
0030500 ) ) \0 245 002 \0 \0 002 021 001 ` \0 \0 003
0030520 265 \n i \t \0 \0 277 ` \0 \0 001 002 270 ` \0 \0
0030540 002 002 271 ` \0 \0 H 030 I 031 277 H d 001 I 001
0030560 331 n 377 377 345 030 023 A 263 # @ 265 \b ` \0 \0
0030600 001 001 020 3 227 ` \0 \0 001 001 @ 334 020 @ `
0030620 \0 \0 001 001 o \0 \0 \0 353 352 020 @ 3 262 >
0030640 A d 3 262 9 d @ 361 245 277 @ A b \0 277
0030660 @ 331 b 002 d n 377 377 361 262 027 ` \0 \0 001 001
0030700 ` \0 \0 001 002 001 365 A k 330 \n \0 \0 @ 330 020
0030720 ` \0 \0 001 001 A k 330 334 @ 330 020 A @ 351 `
0030740 \0 \0 001 001 o \0 \0 \0 353 352 @ 350 020 \0 ( 2
0030760 0 3 Q I M O D 1 4 Q R A N
0031000 D S E T ) \r ( 2 3 0 Q R A N D
0031020 S T A T E 2 1 1 Q R A N D S
0031040 T A T E 1 7 1 Q R A N D S T
0031060 A T E 1 6 4 Q R A N D S T A
0031100 T E 1 1 0 Q R A N D S T A T
0031120 E 7 7 Q R A N D S T A T E
0031140 6 6 Q R A N D S T A T E 3 4
0031160 Q R A N D S T A T E 2 6 Q
0031200 R A N D S T A T E 2 0 Q R A
0031220 N D S T A T E 5 R A N D S T
0031240 A T E ) \r ( 2 3 6 Q 6 5 5 3
0031260 6 . 0 1 1 6 Q 6 5 5 3 6 . 0
0031300 ) \r E X P T D 1 \r ( L ( 1
0031320 N 0 A ) ) \0 225 001 \0 \0 002 A 3
0031340 236 @ 3 262 < A j 361 253 A j 360 221 k
0031360 020 @ A \n \0 \0 020 @ j 360 221 j 020 k 021 001
0031400 \0 A d k 345 j 360 245 277 @ H 326 270 A k \n
0031420 \0 \0 b 002 j 360 221 H 020 @ d 326 b \0 277 260
0031440 342 o \0 \0 \0 @ 006 \0 \0 b \0 \n \0 \0 235 A
0031460 j 360 224 o \0 \0 \0 020 o \0 \0 \0 020 o \0 \0
0031500 \0 021 001 \0 j A 361 262 027 o \0 \0 \0 @ 353 b
0031520 \0 277 j A 331 b 002 206 @ d 326 b \0 277 A k
0031540 345 j 360 243 @ H 326 270 A 342 b 002 j 360 262 352
0031560 H 020 \0 ( 1 1 7 Q F E Q P 6 3
0031600 Q R S H 2 7 Q F E X P T )
0031620 \r ( 1 1 2 Q F L O A T P ) \r (
0031640 1 5 6 Q 1 . 0 1 4 2 Q 1
0031660 . 0 1 3 5 Q 0 . 0 1 3 0 Q
0031700 1 . 0 1 0 6 Q 0 . 0 ) \r P
0031720 u t U n b o x e d D 1 \r ( L
0031740 ( 1 N U M 0 P T R ) ) \0
0031760 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 \
0032000 P U T F I X P ) \r N I L \r ( ) \r
0032020 \ P U T F I X P D 1 \r ( L (
0032040 1 N U M 0 P T R ) ) \0 ^
0032060 002 \0 \0 002 021 001 A 004 d l 002 360 231 277 A
0032100 310 \0 270 A 310 001 260 026 d k 360 262 034 277 j A
0032120 361 243 j 270 A 205 n 377 377 270 A 323 271 @ H 315
0032140 \0 @ I 315 001 A 020 l 003 360 227 A \t \0 \0 b
0032160 002 260 307 A d 004 ` \0 \0 360 233 o \0 \0 \0 i
0032200 \v \0 \0 b 002 260 263 l \n i \v \0 \0 b 002 260
0032220 251 \0 ( 1 3 0 Q \ L I S P E R R
0032240 O R 1 1 6 Q \ L I S P E R R
0032260 O R 7 2 Q \ F I X P . F R O
0032300 M . F L O A T P ) \r ( 1 0 4 Q
0032320 004 003 B I G N U M T Y P E # ) \r (
0032340 1 1 2 Q " A R G N O T F
0032360 I X P " ) \r \ P U T S W A P P E
0032400 D F I X P D 1 \r ( L ( 1 N
0032420 U M 0 P T R ) ) \0 ^ 002 \0 \0
0032440 002 021 001 A 004 d l 002 360 231 277 A 310 \0 270
0032460 A 310 001 260 026 d k 360 262 034 277 j A 361 243 j
0032500 270 A 205 n 377 377 270 A 323 271 @ H 315 001 @ I
0032520 315 \0 A 020 l 003 360 227 A \t \0 \0 b 002 260 307
0032540 A d 004 ` \0 \0 360 233 o \0 \0 \0 i \v \0 \0
0032560 b 002 260 263 l \n i \v \0 \0 b 002 260 251 \0 (
0032600 1 3 0 Q \ L I S P E R R O R
0032620 1 1 6 Q \ L I S P E R R O R
0032640 7 2 Q \ F I X P . F R O M . F
0032660 L O A T P ) \r ( 1 0 4 Q 004 003 B
0032700 I G N U M T Y P E # ) \r ( 1 1
0032720 2 Q " A R G N O T F I X P
0032740 " ) \r \ H I N U M D 1 \r ( L
0032760 ( 0 N U M ) ) \0 M 001 \0 \0 001 021
0033000 020 \0 @ 004 d l 002 360 224 277 @ 310 \0 020 d k
0033020 360 236 277 j @ 361 241 j 020 n 377 377 270 @ 323 H
0033040 020 l 003 360 227 @ \t \0 \0 b \0 260 330 @ d 004
0033060 ` \0 \0 360 233 o \0 \0 \0 i \v \0 \0 b \0 260
0033100 304 l \n i \v \0 \0 b \0 260 272 \0 ( 1 0 7
0033120 Q \ L I S P E R R O R 7 5 Q
0033140 \ L I S P E R R O R 5 1 Q
0033160 \ F I X P . F R O M . F L O A T
0033200 P ) \r ( 6 3 Q 004 003 B I G N U M
0033220 T Y P E # ) \r ( 7 1 Q " A R
0033240 G N O T F I X P " ) \r \ L O
0033260 N U M D 1 \r ( L ( 0 N U M
0033300 ) ) \0 E \0 \0 \0 001 @ 004 d l 002 360 224
0033320 277 @ 310 001 020 d k 360 231 277 j @ 361 241 @ 020
0033340 @ 323 020 l 003 360 227 @ \t \0 \0 b \0 260 335 @
0033360 d 004 ` \0 \0 360 233 o \0 \0 \0 i \v \0 \0 b
0033400 \0 260 311 l \n i \v \0 \0 b \0 260 277 \0 ( 7
0033420 7 Q \ L I S P E R R O R 6 5
0033440 Q \ L I S P E R R O R 4 1 Q
0033460 \ F I X P . F R O M . F L O A
0033500 T P ) \r ( 5 3 Q 004 003 B I G N U
0033520 M T Y P E # ) \r ( 6 1 Q " A
0033540 R G N O T F I X P " ) \r P O
0033560 W E R O F T W O P D 1 \r ( L
0033600 ( 0 X ) ) \0 I \0 \0 \0 001 @ d 005
0033620 001 263 8 3 264 ? @ j 361 264 : @ d n 377
0033640 377 345 j 360 230 l 020 \n \0 \0 b \0 260 342 l 020
0033660 \n \0 \0 j 360 264 037 @ l 002 l 020 \n \0 \0 k
0033700 331 345 d k 331 345 j 360 020 j 361 264 \t @ d k
0033720 331 345 j 360 020 \0 ( 6 1 Q E X P T
0033740 4 5 Q R S H 3 4 Q R S H )
0033760 \r N I L \r ( ) \r I M O D D 1 \r
0034000 ( L ( 1 N 0 X ) ) \0 017
0034020 \0 \0 \0 002 j @ A 334 b \0 361 241 @ 020 A @
0034040 330 020 \0 N I L \r N I L \r ( ) \r O D
0034060 D P D 1 \r ( L ( 0 - a r g
0034100 s - ) ) \0 ( 004 \0 002 \0 e 021 001 \0 k
0034120 a 021 ! 003 l 002 d H 361 240 a 272 I J \n \0
0034140 \0 [ j 360 265 \v K 005 003 264 006 K \t \0 \0 h
0034160 360 020 \0 ( 4 3 Q \ F Z E R O P
0034200 2 5 Q C L : M O D ) \r N I L \r
0034220 ( ) \r F L E S S P D 1 \r ( L
0034240 ( 1 Y 0 X ) ) \0 005 \0 \0 \0
0034260 002 A @ 362 020 \0 N I L \r N I L \r ( )
0034300 \r F M A X D 1 \r ( L ( 0 K
0034320 ) ) \0 : 004 \0 002 \0 e 021 001 \0 H j 360
0034340 223 ` \0 \0 020 k @ 006 \0 \0 021 022 003 J 3 020
0034360 251 l \n J h 032 032 \t \0 \0 277 I d H 360 221
0034400 J 020 k 330 Y a 006 \0 \0 [ J 362 262 357 K Z
0034420 260 352 \0 ( 4 0 Q E R R O R X ) \r
0034440 ( 5 7 Q F L O A T P 2 0 Q
0034460 F L O A T P 1 2 Q M I N . F
0034500 L O A T ) \r ( ) \r F M I N D 1
0034520 \r ( L ( 0 K ) ) \0 ; 004 \0 002
0034540 \0 e 021 001 \0 H j 360 223 ` \0 \0 020 k @ 006
0034560 \0 \0 021 022 003 J 3 020 251 l \n J h 032 032 \t
0034600 \0 \0 277 I d H 360 221 J 020 k 330 271 J I a
0034620 006 \0 \0 [ 362 262 356 K Z 260 351 \0 ( 4 0 Q
0034640 E R R O R X ) \r ( 6 1 Q F L
0034660 O A T P 2 0 Q F L O A T P
0034700 1 2 Q M A X . F L O A T ) \r (
0034720 ) \r G E Q D 1 \r ( L ( 1 Y
0034740 0 X ) ) \0 \a \0 \0 \0 002 A @ 363
0034760 h 360 020 \0 N I L \r N I L \r ( ) \r I
0035000 G E Q D 1 \r ( L ( 1 Y 0
0035020 X ) ) \0 \a \0 \0 \0 002 A @ 361 h 360
0035040 020 \0 N I L \r N I L \r ( ) \r I L E
0035060 Q D 1 \r ( L ( 1 Y 0 X
0035100 ) ) \0 \a \0 \0 \0 002 @ A 361 h 360 020 \0
0035120 N I L \r N I L \r ( ) \r I M A X
0035140 D 1 \r ( L ( 0 K ) ) \0 ( 003
0035160 \0 002 \0 e 021 001 \0 H j 360 223 ` \0 \0 020 k
0035200 @ 021 002 002 I d H 360 221 J 020 k 330 271 J I
0035220 a 375 361 262 361 I a 272 260 354 \0 N I L \r (
0035240 1 2 Q M I N . I N T E G E R )
0035260 \r ( ) \r I M I N D 1 \r ( L (
0035300 0 K ) ) \0 ' 003 \0 002 \0 e 021 001 \0
0035320 H j 360 223 ` \0 \0 020 k @ 021 002 002 I d H
0035340 360 221 J 020 k 330 271 J I a 361 262 362 I a 272
0035360 260 355 \0 N I L \r ( 1 2 Q M A X .
0035400 I N T E G E R ) \r ( ) \r L E Q
0035420 D 1 \r ( L ( 1 Y 0 X ) )
0035440 \0 \a \0 \0 \0 002 @ A 363 h 360 020 \0 N I
0035460 L \r N I L \r ( ) \r M A X D 1 \r
0035500 ( L ( 0 K ) ) \0 4 004 \0 002 \0
0035520 e 021 001 \0 H j 360 223 ` \0 \0 020 k @ 021 022
0035540 003 J 3 020 251 l \n J h 032 032 \t \0 \0 277 I
0035560 d H 360 221 J 020 k 330 Y a [ J 363 262 362 K
0035600 Z 260 355 \0 ( 3 5 Q E R R O R X )
0035620 \r ( 1 2 Q M I N . I N T E G E
0035640 R ) \r ( ) \r M I N D 1 \r ( L
0035660 ( 0 K ) ) \0 5 004 \0 002 \0 e 021 001
0035700 \0 H j 360 223 ` \0 \0 020 k @ 021 022 003 J 3
0035720 020 251 l \n J h 032 032 \t \0 \0 277 I d H 360
0035740 221 J 020 k 330 271 J I a [ 363 262 361 K Z 260
0035760 354 \0 ( 3 5 Q E R R O R X ) \r (
0036000 1 2 Q M A X . I N T E G E R )
0036020 \r ( ) \r ( P R E T T Y C O M P R
0036040 I N T L L A R I T H C O M S )
0036060 \r ( R P A Q Q L L A R I T H C
0036100 O M S ( ( L O C A L V A R S
0036120 . T ) ( C O M S ( * " O
0036140 P C O D E S " ) ( F N S I D
0036160 I F F E R E N C E I G R E A T
0036200 E R P I Q U O T I E N T ) (
0036220 F N S \r \ S L O W I P L U S 2
0036240 \ S L O W P L U S 2 \ S L O
0036260 W I D I F F E R E N C E \ S L
0036300 O W D I F F E R E N C E \ S L
0036320 O W I G R E A T E R P \ S L O
0036340 W L L S H 1 \ S L O W L L S H
0036360 8 \r \ S L O W L O G A N D 2
0036400 \ S L O W L O G O R 2 \ S L O
0036420 W L O G X O R 2 \ S L O W L R
0036440 S H 1 \ S L O W L R S H 8 \
0036460 S L O W I T I M E S 2 \ S L O
0036500 W T I M E S 2 \ S L O W I Q U
0036520 O T I E N T \r \ S L O W Q U O
0036540 T I E N T ) ) ( C O M S ( *
0036560 " I P L U S a n d I D I F
0036600 F E R E N C E t h a t s m a
0036620 s h r e s u l t i n t o t
0036640 h e i r f i r s t a r g " )
0036660 ( F N S \r \ B O X I P L U S
0036700 \ B O X I D I F F E R E N C E
0036720 ) ) ( * " s u b f u n c t i
0036740 o n s " ) ( F N S \ M A K E
0036760 N U M B E R ) ( F N S O V E
0037000 R F L O W ) ( I N I T V A R S
0037020 ( \ O V E R F L O W T \r ) )
0037040 ( E ( R E S E T S A V E (
0037060 R A D I X 8 ) ) ) ( C O N S
0037100 T A N T S ( M A X . S M A L L
0037120 P 6 5 5 3 5 ) ( M I N . S M
0037140 A L L P - 6 5 5 3 6 ) ( M A
0037160 X . F I X P 2 1 4 7 4 8 3 6 4
0037200 7 ) ( \r M I N . F I X P - 2
0037220 1 4 7 4 8 3 6 4 8 ) ( \ S I G
0037240 N B I T 3 2 7 6 8 ) ) ( F N
0037260 S \ G E T B A S E F I X P \
0037300 P U T B A S E F I X P \ P U T
0037320 B A S E F I X P . U F N ) ( E
0037340 X P O R T ( \r D E C L A R E :
0037360 D O N T C O P Y ( R E C O R
0037400 D S F I X P ) ( C O N S T A
0037420 N T S ( M A X . S M A L L . I
0037440 N T E G E R 6 5 5 3 5 ) ( M
0037460 A X . P O S . H I N U M 3 2 7
0037500 6 7 ) ) ( M A C R O S \r . U
0037520 N B O X . . N E G A T E . .
0037540 L L S H 1 . . L R S H 1 . .
0037560 B O X I P L U S . ) ) ) ( F N
0037600 S E Q P F I X I Q U O T I
0037620 E N T I R E M A I N D E R L
0037640 L S H L R S H L S H R S H
0037660 ) ( \r D E C L A R E : E V A
0037700 L @ C O M P I L E D O N T C O
0037720 P Y ( M A C R O S N B I T S
0037740 . O R . L E S S . S U B S M A
0037760 L L . \ I Q U O T R E M ) )
0040000 ( * \r " M a c h i n e i n d
0040020 e p e n d e n t a r i t h m e
0040040 t i c f u n c t i o n s " )
0040060 ( F N S M I N U S P I L E S
0040100 S P I M I N U S I P L U S
0040120 I T I M E S L O G A N D L O
0040140 G O R L O G X O R \r S U B 1
0040160 Z E R O P A D D 1 G C D
0040200 I E Q P I N T E G E R L E N G
0040220 T H ) ( F N S A B S D I F
0040240 F E R E N C E G R E A T E R P
0040260 P L U S Q U O T I E N T R
0040300 E M A I N D E R L E S S P \r
0040320 M I N U S T I M E S ) ( F N
0040340 S F M I N U S F R E M A I N
0040360 D E R ) ( F N S R A N D S E
0040400 T R A N D E X P T ) ( D E
0040420 C L A R E : D O N T E V A L @
0040440 L O A D D O C O P Y ( V A R
0040460 S ( \r R A N D S T A T E ) (
0040500 \ T O L 9 . 9 9 9 9 9 2 E - 6
0040520 ) ) ) ( G L O B A L V A R S
0040540 R A N D S T A T E \ T O L )
0040560 ( C O M S ( F N S P u t U n
0040600 b o x e d \ P U T F I X P \r
0040620 \ P U T S W A P P E D F I X P
0040640 \ H I N U M \ L O N U M ) (
0040660 E X P O R T ( D E C L A R E :
0040700 D O N T C O P Y ( M A C R O
0040720 S P u t U n b o x e d ) ) ) )
0040740 ( D E C L A R E : \r D O N T
0040760 E V A L @ L O A D D O E V A L
0041000 @ C O M P I L E D O N T C O P
0041020 Y C O M P I L E R V A R S (
0041040 A D D V A R S ( N L A M A )
0041060 ( N L A M L ) ( L A M A M I
0041100 N M A X I M I N I M A X
0041120 \r F M I N F M A X O D D P
0041140 T I M E S P L U S L O G X O
0041160 R L O G O R L O G A N D I
0041200 T I M E S I P L U S ) ) ) (
0041220 C O M S ( F N S P O W E R O
0041240 F T W O P I M O D O D D P )
0041260 ( \r D E C L A R E : D O N T
0041300 C O P Y ( M A C R O S . 2 ^
0041320 N P . ) ) ) ( C O M S ( *
0041340 * M I N a n d M A X ) (
0041360 F N S F L E S S P F M A X
0041400 F M I N G E Q I G E Q I L
0041420 E Q I M A X \r I M I N L E
0041440 Q M A X M I N ) ( D E C L
0041460 A R E : E V A L @ C O M P I L
0041500 E ( A D D V A R S ( G L O B
0041520 A L V A R S M A X . I N T E G
0041540 E R M I N . I N T E G E R M
0041560 A X . F L O A T \r M I N . F L
0041600 O A T ) ) ) ) ) ) \r ( R P A Q ?
0041620 \ O V E R F L O W T ) \r ( R
0041640 P A Q Q M A X . S M A L L P
0041660 6 5 5 3 5 ) \r ( R P A Q Q M I
0041700 N . S M A L L P - 6 5 5 3 6 )
0041720 \r ( R P A Q Q M A X . F I X P
0041740 2 1 4 7 4 8 3 6 4 7 ) \r ( R P
0041760 A Q Q M I N . F I X P - 2 1
0042000 4 7 4 8 3 6 4 8 ) \r ( R P A Q Q
0042020 \ S I G N B I T 3 2 7 6 8 )
0042040 \r ( C O N S T A N T S ( M A X
0042060 . S M A L L P 6 5 5 3 5 ) (
0042100 M I N . S M A L L P - 6 5 5 3
0042120 6 ) ( M A X . F I X P 2 1 4
0042140 7 4 8 3 6 4 7 ) ( M I N . F I
0042160 X P - 2 1 4 7 4 8 3 6 4 8 )
0042200 ( \r \ S I G N B I T 3 2 7 6 8
0042220 ) ) \r ( R P A Q Q R A N D S T
0042240 A T E N I L ) \r ( R P A Q Q
0042260 \ T O L 9 . 9 9 9 9 9 2 E - 6
0042300 ) \r ( A D D T O V A R G L O B
0042320 A L V A R S M A X . I N T E G
0042340 E R M I N . I N T E G E R M
0042360 A X . F L O A T M I N . F L O
0042400 A T ) \r ( P U T P R O P S L L
0042420 A R I T H C O P Y R I G H T
0042440 ( " X e r o x C o r p o r a t
0042460 i o n " T 1 9 8 2 1 9 8 3
0042500 1 9 8 4 1 9 8 5 1 9 8 6 )
0042520 ) \r N I L \r
0042526