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