$ od -c -N 50000 [eris]<LispCore>SOURCES>LLBIGNUM.DCOM!14
0000000 ( F I L E C R E A T E D " 1 4
0000020 - M a y - 8 6 1 0 : 5 3 : 4 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > L L B I G N
0000120 U M . ; 1 6 ) \r " 1 3 - M a y
0000140 - 8 6 2 1 : 0 4 : 3 3 " r e
0000160 c o m p i l e d c h a n g e s
0000200 : \ B I G N U M . L O G A N D
0000220 \ B I G N U M . L O G O R \
0000240 B N . L O G A N D C 2 i n \r
0000260 " X e r o x L i s p 1 4 - M
0000300 a y - 8 6 . . . " d a t e d
0000320 " 1 4 - M a y - 8 6 0 9 : 2
0000340 6 : 1 5 " ) \r ( F I L E C R E A
0000360 T E D " 1 4 - M a y - 8 6 1
0000400 0 : 4 7 : 4 8 " { E R I S } <
0000420 L I S P C O R E > S O U R C E S
0000440 > L L B I G N U M . ; 1 6 3 2
0000460 9 5 9 c h a n g e s t o :
0000500 ( F N S \r \ B I G N U M . L O
0000520 G O R \ B I G N U M . L O G A
0000540 N D \ B N . L O G A N D C 2 )
0000560 p r e v i o u s d a t e :
0000600 " 5 - M a y - 8 6 1 2 : 2 6
0000620 : 2 1 " \r { E R I S } < L I S
0000640 P C O R E > S O U R C E S > L L
0000660 B I G N U M . ; 1 5 ) \r \ B I G
0000700 N U M . C O M P A R E D 1 \r (
0000720 L ( 1 Y 0 X ) ) \0 < \0
0000740 \0 \0 002 @ d ` \0 \0 360 233 277 A ` \0 \0 360
0000760 221 j 020 m 377 020 ` \0 \0 360 230 A ` \0 \0 360
0001000 263 361 k 020 A d ` \0 \0 360 263 370 ` \0 \0 360
0001020 263 343 @ \t \0 \0 A \t \0 \0 \n \0 \0 020 \0 (
0001040 7 1 Q \ B N . C O M P A R E N
0001060 6 6 Q \ B N . F R O M . F I
0001100 X P 6 2 Q \ B N . F R O M .
0001120 F I X P ) \r ( 5 3 Q M A X . I
0001140 N T E G E R 4 5 Q M I N . I
0001160 N T E G E R 3 3 Q M A X . I
0001200 N T E G E R 2 5 Q M A X . I
0001220 N T E G E R 1 3 Q M I N . I
0001240 N T E G E R 4 M I N . I N T
0001260 E G E R ) \r ( ) \r \ B I G N U M
0001300 . D I F F E R E N C E D 1 \r (
0001320 L ( 1 Y 0 X ) ) \0 020 \0
0001340 \0 \0 002 @ \t \0 \0 A \t \0 \0 \n \0 \0 \t \0
0001360 \0 020 \0 ( 1 5 Q \ B N . T O . F
0001400 I X P 1 2 Q \ B N . D I F F
0001420 E R E N C E 7 \ B N . F R O
0001440 M . F I X P 3 \ B N . F R O
0001460 M . F I X P ) \r N I L \r ( ) \r \
0001500 B I G N U M . I N T E G E R L E
0001520 N G T H D 1 \r ( L ( 0 X )
0001540 ) \0 \t \0 \0 \0 001 @ \t \0 \0 \t \0 \0 020
0001560 \0 ( 6 \ B N . I N T E G E R L
0001600 E N G T H 3 \ B N . F R O M
0001620 . F I X P ) \r N I L \r ( ) \r \ B
0001640 I G N U M . L O G A N D D 1 \r
0001660 ( I 1 Y I 0 X ) \0 M
0001700 \0 \0 \0 002 @ j 360 243 A j 360 221 j 020 j d
0001720 A 363 262 # @ 363 233 m 377 d @ 325 m 377 A 325
0001740 344 325 020 @ \t \0 \0 m 377 A 325 \t \0 \0 \n \0
0001760 \0 \t \0 \0 020 @ 363 230 A @ b 002 277 b \0 260
0002000 306 @ \t \0 \0 A \t \0 \0 \n \0 \0 \t \0 \0 020
0002020 \0 ( 1 1 2 Q \ B N . T O . F I
0002040 X P 1 0 7 Q \ B N . L O G A
0002060 N D 1 0 4 Q \ B N . F R O M
0002100 . F I X P 1 0 0 Q \ B N . F
0002120 R O M . F I X P 5 7 Q \ B N
0002140 . T O . F I X P 5 4 Q \ B N
0002160 . L O G A N D C 2 5 1 Q \ B
0002200 N . F R O M . F I X P 4 2 Q
0002220 \ B N . F R O M . F I X P ) \r N
0002240 I L \r ( ) \r \ B I G N U M . L O
0002260 G O R D 1 \r ( I 1 Y I
0002300 0 X ) \0 1 \0 \0 \0 002 @ j 360 221 A
0002320 020 A j 360 221 @ 020 @ j 363 262 025 A j 363 236
0002340 @ \t \0 \0 A \t \0 \0 \n \0 \0 \t \0 \0 020 m
0002360 377 d @ 325 m 377 A 325 345 325 020 \0 ( 4 2 Q
0002400 \ B N . T O . F I X P 3 7 Q
0002420 \ B N . L O G O R 3 4 Q \
0002440 B N . F R O M . F I X P 3 0 Q
0002460 \ B N . F R O M . F I X P ) \r
0002500 N I L \r ( ) \r \ B I G N U M . L
0002520 O G X O R D 1 \r ( L ( 1 Y
0002540 0 X ) ) \0 & \0 \0 \0 002 j @ 363
0002560 243 j A 363 235 @ A \n \0 \0 @ A \n \0 \0 \n
0002600 \0 \0 020 @ \t \0 \0 A \t \0 \0 \n \0 \0 \t \0
0002620 \0 020 \0 ( 4 3 Q \ B N . T O . F
0002640 I X P 4 0 Q \ B N . L O G X
0002660 O R 3 5 Q \ B N . F R O M .
0002700 F I X P 3 1 Q \ B N . F R O
0002720 M . F I X P 2 4 Q \ B I G N
0002740 U M . D I F F E R E N C E 2 1
0002760 Q \ B I G N U M . L O G A N D
0003000 1 4 Q \ B I G N U M . L O G
0003020 O R ) \r N I L \r ( ) \r \ B I G N
0003040 U M . P L U S D 1 \r ( L ( 1
0003060 Y 0 X ) ) \0 020 \0 \0 \0 002 @
0003100 \t \0 \0 A \t \0 \0 \n \0 \0 \t \0 \0 020 \0 (
0003120 1 5 Q \ B N . T O . F I X P
0003140 1 2 Q \ B N . P L U S 2 7
0003160 \ B N . F R O M . F I X P 3
0003200 \ B N . F R O M . F I X P ) \r N
0003220 I L \r ( ) \r \ B I G N U M . L S
0003240 H D 1 \r ( L ( 1 N 0 X
0003260 ) ) \0 , \0 \0 \0 002 j A 361 252 @ l 002
0003300 A \n \0 \0 \n \0 \0 020 @ d j 361 233 l 002 j
0003320 A 331 \n \0 \0 \n \0 \0 020 \t \0 \0 A \n \0 \0
0003340 \t \0 \0 020 \0 ( 5 1 Q M I N U S
0003360 4 6 Q \ B I G N U M . L S H
0003400 4 2 Q M I N U S 3 6 Q \ B
0003420 I G N U M . Q U O T I E N T 3
0003440 3 Q E X P T 1 5 Q \ B I G
0003460 N U M . T I M E S 1 2 Q E X
0003500 P T ) \r N I L \r ( ) \r \ B I G N
0003520 U M . T I M E S D 1 \r ( L (
0003540 1 Y 0 X ) ) \0 020 \0 \0 \0 002
0003560 @ \t \0 \0 A \t \0 \0 \n \0 \0 \t \0 \0 020 \0
0003600 ( 1 5 Q \ B N . T O . F I X P
0003620 1 2 Q \ B N . T I M E S 2
0003640 7 \ B N . F R O M . F I X P
0003660 3 \ B N . F R O M . F I X P )
0003700 \r N I L \r ( ) \r \ B I G N U M .
0003720 Q U O T I E N T D 1 \r ( L (
0003740 1 Y 0 X ) ) \0 021 \0 \0 \0 002
0003760 @ \t \0 \0 A \t \0 \0 \n \0 \0 001 \t \0 \0 020
0004000 \0 ( 1 6 Q \ B N . T O . F I X
0004020 P 1 2 Q \ B N . D I V I D E
0004040 7 \ B N . F R O M . F I X P
0004060 3 \ B N . F R O M . F I X P
0004100 ) \r N I L \r ( ) \r \ B I G N U M
0004120 . R E M A I N D E R D 1 \r ( L
0004140 ( 1 Y 0 X ) ) \0 021 \0 \0
0004160 \0 002 @ \t \0 \0 A \t \0 \0 \n \0 \0 002 \t \0
0004200 \0 020 \0 ( 1 6 Q \ B N . T O . F
0004220 I X P 1 2 Q \ B N . D I V I
0004240 D E 7 \ B N . F R O M . F I
0004260 X P 3 \ B N . F R O M . F I
0004300 X P ) \r N I L \r ( ) \r \ B I G N
0004320 U M . T O . F L O A T D 1 \r (
0004340 L ( 0 X ) ) \0 \t \0 \0 \0 001 @
0004360 \t \0 \0 \t \0 \0 020 \0 ( 6 \ B N . F
0004400 L O A T 3 \ B N . F R O M .
0004420 F I X P ) \r N I L \r ( ) \r \ B I
0004440 G N U M . T O . I N T D 1 \r (
0004460 L ( 0 X ) ) \0 023 \0 \0 \0 001 @
0004500 d 002 241 001 020 001 @ 002 \t \0 \0 n @ \0 332 330
0004520 020 \0 ( 1 3 Q \ B I G N U M . T
0004540 O . I N T ) \r N I L \r ( ) \r \ B
0004560 N . 2 T H D 1 \r ( L ( 0 A
0004600 ) ) \0 033 002 \0 \0 001 021 001 @ 265 004 I
0004620 020 n ' 020 \n \0 \0 X 001 b \0 277 H 002 I 032
0004640 271 260 353 \0 ( 1 5 Q \ B N . Q R S
0004660 ) \r N I L \r ( ) \r \ B N . A B S
0004700 D 1 \r ( L ( 0 U ) ) \0 017
0004720 \0 \0 \0 001 j @ \t \0 \0 361 224 @ \t \0 \0 020
0004740 @ 020 \0 ( 1 2 Q \ B N . M I N U
0004760 S 4 \ B N . S I G N ) \r N I
0005000 L \r ( ) \r \ B N . D I F F E R E
0005020 N C E D 1 \r ( L ( 1 V 0
0005040 U ) ) \0 \n \0 \0 \0 002 @ A \t \0 \0
0005060 \n \0 \0 020 \0 ( 7 \ B N . P L U S
0005100 2 4 \ B N . M I N U S ) \r N
0005120 I L \r ( ) \r \ B N . D I V I D E
0005140 D 1 \r ( L ( 2 F L G 1
0005160 B 0 A ) ) 002 367 " \0 \0 003 021 360
0005200 016 021 360 035 021 @ ! @ 222 A 265 \b ` \0 \0 @
0005220 032 020 002 263 034 @ A 001 \n \0 \0 _ . 001 B g
0005240 \0 \0 360 h 360 264 \b O . 002 \t \0 \0 032 020 @
0005260 \t \0 \0 270 A \t \0 \0 271 H I 331 272 j J 361
0005300 263 314 @ \t \0 \0 273 A _ $ 277 I k 331 k _
0005320 6 277 _ 4 277 O 6 O 4 363 255 O $ 002 _ $
0005340 277 O 6 k 324 _ 6 260 360 O $ 001 275 k 274 j
0005360 M 361 226 m 377 274 j M 331 275 n @ \0 M k 330
0005400 333 276 K L 332 _ 016 277 @ K N 332 \t \0 \0 \n
0005420 \0 \0 b \0 277 A L N 332 \t \0 \0 \n \0 \0 b
0005440 002 277 @ _ $ 277 h _ 0 277 J k 330 k _ :
0005460 277 _ 8 277 O : O 8 363 263 030 O $ O 0 032
0005500 _ 0 277 O $ 002 _ $ 277 O : k 324 _ : 260
0005520 347 O 0 _ 2 277 I l 002 331 k _ > 277 _ <
0005540 277 O > O < 363 263 030 O $ O 2 032 _ 2 277
0005560 O $ 002 _ $ 277 O > k 324 _ > 260 347 O $
0005600 002 244 O $ j & 277 A _ $ 277 I l 002 331 k
0005620 _ B 277 _ @ 277 O B O @ 363 255 O $ 002 _
0005640 $ 277 O B k 324 _ B 260 360 O $ 001 _ 024 277
0005660 O $ 002 001 _ 022 277 O 2 001 _ $ 001 _ 032 277
0005700 O $ 002 _ $ 001 _ 030 277 O $ 002 _ $ 001 _
0005720 026 277 O $ 002 _ $ 277 O 022 O 026 361 243 n ?
0005740 377 213 O 026 n @ \0 332 O 030 330 O 022 333 _ 034
0005760 O 022 332 n @ \0 \n \0 \0 _ , 277 O 026 O ,
0006000 001 331 _ 277 O 030 O , 002 331 _ " 277 j O
0006020 " 361 237 O " n @ \0 330 _ " 277 O k 331
0006040 _ 201 O j 361 263 5 O 034 O 024 332 n @
0006060 \0 \n \0 \0 _ , 277 O " O , 001 331 _ j
0006100 361 263 033 O 032 O , 002 331 _ " 277 j O 361
0006120 244 j O " 361 225 O 034 k 331 260 224 O 0 001 _
0006140 $ 277 A _ & 277 j _ 036 277 j O 034 331 O &
0006160 001 332 n @ \0 \n \0 \0 _ , 277 O & 002 _ &
0006200 277 O , 001 _ 020 277 O $ 001 _ 026 277 O 036 O
0006220 026 O , 002 330 330 n @ \0 \n \0 \0 _ , 002 _
0006240 026 277 O , 001 _ 036 277 j O 026 361 235 O 026 n
0006260 @ \0 330 _ 026 277 O 036 k 331 201 O 036 O 020 330
0006300 _ 036 277 O $ O 026 030 277 O $ _ * 002 _ $
0006320 277 O & 263 227 O $ 001 O 036 330 _ 026 277 O $
0006340 002 _ $ 277 O * ` \0 \0 031 277 O 026 j 360 263
0006360 K O 0 001 _ $ 277 A _ & 277 j _ 036 277 O
0006400 034 k 331 _ 034 277 O $ 001 _ 026 277 O & 001 _
0006420 022 277 O & 002 _ & 277 O 036 O 026 O 022 330 330
0006440 n @ \0 \n \0 \0 _ , 277 O $ O , 002 030 277
0006460 O $ 002 _ $ 277 O & 263 316 O 034 j 360 222 O
0006500 ( 232 O 016 O 034 332 O ( 032 _ ( 277 O 0 002
0006520 _ 0 277 O 2 002 _ 2 277 O 0 222 261 376 [ O
0006540 ( B g \0 \0 360 h 360 264 \n @ K N 332 \n \0
0006560 \0 001 032 020 \0 ( 1 3 6 2 Q \ B N .
0006600 Q R S 1 2 4 7 Q \ B N . I D
0006620 I V I D E 1 0 3 5 Q \ B N .
0006640 I D I V I D E 7 7 1 Q \ B N
0006660 . I D I V I D E 6 6 5 Q \ B
0006700 N . I D I V I D E 5 7 2 Q \
0006720 B N . I D I V I D E 2 4 0 Q
0006740 \ B N . T I M E S 2 2 3 5 Q
0006760 \ B N . F R O M . F I X P 2 2
0007000 3 Q \ B N . T I M E S 2 2 2
0007020 0 Q \ B N . F R O M . F I X P
0007040 1 0 7 Q \ B N . S I G N 7
0007060 1 Q F L E N G T H 6 4 Q F
0007100 L E N G T H 5 6 Q \ B N . F
0007120 R O M . F I X P 3 4 Q \ B N
0007140 . Q R S ) \r ( 1 3 4 6 Q Q U O
0007160 T I E N T 1 1 5 2 Q \ B I G
0007200 . 0 4 3 Q Q U O T I E N T
0007220 2 0 Q \ B I G . 0 ) \r ( ) \r \
0007240 B N . F L O A T D 1 \r ( L (
0007260 0 X ) ) \0 026 \0 \0 \0 001 @ 265 \a o
0007300 \0 \0 \0 020 001 @ 002 \t \0 \0 o \0 \0 \0 352 350
0007320 020 \0 ( 1 5 Q \ B N . F L O A T
0007340 ) \r N I L \r ( 2 1 Q 1 6 3 8
0007360 4 . 0 6 0 . 0 ) \r \ B N . I
0007400 G N N D 1 \r ( L ( 0 U ) )
0007420 \0 & 001 \0 \0 001 @ 241 h 020 n @ \0 @ 361
0007440 223 @ h 032 020 021 020 \0 @ n @ \0 333 X @ H
0007460 n @ \0 332 331 d H \t \0 \0 032 020 \0 ( 4 2
0007500 Q \ B N . F R O M . F I X P )
0007520 \r N I L \r ( ) \r B I G N U M . D
0007540 E F P R I N T D 1 \r ( P 1 1
0007560 Q C P 1 0 Q C H A R S
0007600 P 7 B P 6 L P 5
0007620 E L S P 4 T H P 1 R
0007640 A D I X P 0 R I 1 S
0007660 T R E A M I 0 B I G N F
0007700 1 2 Q * R E A D T A B L E *
0007720 F 1 3 Q \ T H I S F I L E
0007740 L I N E L E N G T H F 1 4 Q
0007760 * P R I N T - R A D I X * )
0010000 001 ; \n 003 \0 002 @ ` \0 \0 360 246 @ ` \0 \0
0010020 360 262 W 024 312 004 \a \t \0 \0 o \0 \0 \0 \n
0010040 \0 \0 @ ` \0 \0 360 223 g \0 \0 202 g \0 \0 032
0010060 020 ` \0 \0 021 001 \0 H d 005 001 234 277 k H 361
0010100 246 H d l $ 361 224 277 H \t \0 \0 022 021 ! 003
0010120 I d l \n 360 225 277 n ' 020 260 027 l \b 360 223
0010140 n 020 \0 214 I Z I 326 d n @ \0 363 262 370 277
0010160 J 021 001 004 @ 311 \0 021 ! \a M 265 / O 016 022
0010200 I L \v \0 \0 021 001 \b W 030 242 261 \0 204 I d
0010220 l \b 360 262 ) 277 W 024 312 002 j 360 262 036 O
0010240 020 l Q h 032 \n \0 \0 260 f L \n \0 \0 ^ 001
0010260 275 N 002 O 016 032 _ 016 277 260 301 I l \b 360 223
0010300 l o 260 < I d l 020 360 224 277 l x 260 1 l
0010320 002 360 223 l b 260 ) l r O 020 032 _ 020 277 l
0010340 \n I 361 263 027 I l \n \n \0 \0 l 0 330 O 020
0010360 032 _ 020 277 I l \n 333 Y 200 I l 0 330 O 020
0010400 032 _ 020 277 W 024 312 004 \a O 020 032 _ 020 277 W
0010420 026 262 024 O 020 \t \0 \0 A 310 035 330 W 026 361 224
0010440 A \t \0 \0 277 O 020 260 024 d 001 021 001 \t A 311
0010460 273 A O 022 l 002 K 016 023 002 003 265 355 i 020
0010500 \0 ( 4 3 5 Q F R E S H L I N E
0010520 4 2 1 Q L E N G T H 3 4 4
0010540 Q I M O D 2 4 7 Q \ B N .
0010560 Q R S 2 4 1 Q \ N C O N C 2
0010600 1 7 6 Q \ B N . T H 2 D 1
0010620 0 5 Q \ I N V A L I D . R A D
0010640 I X 3 3 Q C O N C A T 2 4
0010660 Q C H A R A C T E R ) \r ( 5 5
0010700 Q * P R I N T - B A S E * 5
0010720 0 Q M A X . I N T E G E R 4
0010740 4 Q M I N . I N T E G E R 3
0010760 7 Q M I N . I N T E G E R 1
0011000 1 Q M A X . I N T E G E R 3
0011020 M I N . I N T E G E R ) \r (
0011040 3 0 Q " . " ) \r \ B N . I N T
0011060 E G E R L E N G T H D 1 \r ( L
0011100 ( 0 X ) ) \0 027 \0 \0 \0 001 @ 265
0011120 004 j 020 002 230 @ 002 \t \0 \0 l 016 330 020 @ 001
0011140 \t \0 \0 020 \0 ( 2 4 Q I N T E G E
0011160 R L E N G T H 1 3 Q \ B N .
0011200 I N T E G E R L E N G T H ) \r N
0011220 I L \r ( ) \r \ B N . L O G A N D
0011240 D 1 \r ( L ( 1 B 2 0 B
0011260 1 ) ) \0 ' 001 \0 \0 002 @ 241 h 020 A 264
0011300 376 021 020 \0 @ 002 A 002 \n \0 \0 X @ 001 A 001
0011320 345 b \0 H 246 d d j 360 222 H 020 @ H 032 020
0011340 \0 ( 2 0 Q \ B N . L O G A N D
0011360 ) \r N I L \r ( ) \r \ B N . L O G
0011400 A N D C 2 D 1 \r ( P 0 B
0011420 I 1 B 2 I 0 B 1 ) \0
0011440 + 001 \0 \0 002 @ 241 h 020 A 241 @ 020 021 020 \0
0011460 @ 002 A 002 \n \0 \0 X @ 001 m 377 A 001 325 345
0011500 b \0 H 246 d d j 360 222 H 020 @ H 032 020 \0
0011520 ( 2 1 Q \ B N . L O G A N D C
0011540 2 ) \r N I L \r ( ) \r \ B N . L O
0011560 G O R D 1 \r ( L ( 1 B 2
0011600 0 B 1 ) ) \0 027 \0 \0 \0 002 @ 241 A
0011620 020 A 241 @ 020 @ 001 A 001 344 @ 002 A 002 \n \0
0011640 \0 032 020 \0 ( 2 3 Q \ B N . L O G
0011660 O R ) \r N I L \r ( ) \r \ B N . L
0011700 O G X O R D 1 \r ( L ( 1 B
0011720 2 0 B 1 ) ) \0 027 \0 \0 \0 002 @
0011740 241 A 020 A 241 @ 020 @ 001 A 001 346 @ 002 A 002
0011760 \n \0 \0 032 020 \0 ( 2 3 Q \ B N . L
0012000 O G X O R ) \r N I L \r ( ) \r \ B
0012020 N . M I N U S D 1 \r ( L ( 0
0012040 U ) ) \0 020 \0 \0 \0 001 @ 241 h 020 j
0012060 @ 001 331 @ 002 \t \0 \0 032 020 \0 ( 1 4 Q
0012100 \ B N . M I N U S ) \r N I L \r (
0012120 ) \r \ B N . P L U S 2 D 1 \r (
0012140 L ( 1 V 0 U ) ) \0 L 001
0012160 \0 \0 002 @ 241 A 020 A 241 @ 020 021 020 \0 @ \t
0012200 \0 \0 A \t \0 \0 331 X j H 361 234 @ j H 331
0012220 \t \0 \0 \n \0 \0 b \0 217 H j 361 232 A H \t
0012240 \0 \0 \n \0 \0 b 002 277 @ \t \0 \0 A \t \0 \0
0012260 360 225 @ A \n \0 \0 020 @ A \n \0 \0 020 \0 (
0012300 1 1 1 Q \ B N . I S U M 1 1
0012320 0 3 Q \ B N . I S U M 0 7 4
0012340 Q \ B N . S I G N 7 0 Q \
0012360 B N . S I G N 6 1 Q \ A P P
0012400 E N D 2 5 6 Q \ B N . N Z E
0012420 R O S 4 2 Q \ A P P E N D 2
0012440 3 7 Q \ B N . N Z E R O S
0012460 2 2 Q F L E N G T H 1 6 Q
0012500 F L E N G T H ) \r N I L \r ( ) \r
0012520 \ B N . S I G N D 1 \r ( L (
0012540 0 U ) ) \0 032 \0 \0 \0 001 @ 265 004 j
0012560 020 001 j 361 221 k 020 j @ 001 361 222 m 377 020 @
0012600 002 b \0 260 352 \0 N I L \r N I L \r ( )
0012620 \r \ B N . T I M E S 2 D 1 \r (
0012640 L ( 1 V 0 U ) ) \0 215 \v
0012660 \0 \0 002 021 260 \n @ 264 005 A 241 h 020 j d h
0012700 032 032 270 @ \t \0 \0 A \t \0 \0 l 002 331 330 275
0012720 H 272 M k _ 024 277 _ 022 277 O 024 O 022 363 253
0012740 j J 032 272 O 024 k 324 _ 024 260 362 J 273 @ 271
0012760 K 274 j 276 I 001 A 001 332 n @ \0 \n \0 \0 _
0013000 016 277 L 001 O 016 002 N 330 330 n @ \0 \n \0 \0
0013020 _ 020 277 L O 020 002 030 277 O 016 001 O 020 001 330
0013040 276 L 002 274 I 002 Y 265 316 L N 030 277 K 002 273
0013060 A 002 b 002 263 272 N j 360 222 H h 031 J 020 \0
0013100 ( 1 3 4 Q \ B N . I D I V I D
0013120 E 1 1 3 Q \ B N . I D I V I
0013140 D E 2 7 Q F L E N G T H 2
0013160 3 Q F L E N G T H ) \r N I L \r
0013200 ( ) \r \ B N . C O M P A R E N
0013220 D 1 \r ( L ( 1 V 0 U ) )
0013240 \0 f 004 \0 \0 002 j d d d 021 004 003 @ \t
0013260 \0 \0 X j 360 226 j A \t \0 \0 331 020 A \t \0
0013300 \0 Y j 360 221 H 020 H I 331 [ j 360 263 " K
0013320 j 361 221 k 020 j K 361 222 m 377 020 \b \0 \0 020
0013340 K j 361 263 360 j K 361 263 361 j 020 A 262 330 @
0013360 001 A 001 331 Z j 360 241 J 273 A 002 b 002 277 @
0013400 002 b \0 263 351 A 262 332 j H 331 020 \0 ( 6 7
0013420 Q S H O U L D N T 3 1 Q \
0013440 B N . S I G N 2 3 Q \ B N .
0013460 S I G N 1 2 Q \ B N . S I G
0013500 N ) \r N I L \r ( ) \r \ B N . D 2
0013520 T H D 1 \r ( L ( 0 U ) )
0013540 \0 a 005 \0 \0 001 021 P 004 @ 265 004 H 020 001 g
0013560 \0 \0 360 246 @ 001 g \0 \0 360 227 @ 001 271 @ 002
0013600 b \0 204 g \0 \0 271 @ 262 < @ \t \0 \0 b \0
0013620 277 j 272 k 273 @ 262 035 n ' 020 K 361 262 026 @
0013640 001 274 @ 002 b \0 277 L K 332 J 330 272 K l \n
0013660 332 260 343 I g \0 \0 360 223 j J 331 200 J H 032
0013700 270 @ 263 317 H 020 \0 ( 4 7 Q R E V E
0013720 R S E ) \r ( 1 2 0 Q - 3 7 Q
0013740 + 2 2 Q - 1 3 Q + ) \r
0013760 ( ) \r \ B N . F R O M . F I X P
0014000 D 1 \r ( L ( 0 U ) ) \0 a
0014020 \0 \0 \0 001 @ d 004 ` \0 \0 360 262 036 ` \0 \0
0014040 360 247 @ d ` \0 \0 360 231 277 o \0 \0 \0 @ \n
0014060 \0 \0 020 006 \0 \0 311 \0 020 264 \b @ d j 360 221
0014100 h 020 003 221 @ 020 j @ 361 262 & @ o \0 \0 \0
0014120 364 262 024 @ n ' 020 330 \t \0 \0 n ' 020 \t \0
0014140 \0 \n \0 \0 020 j @ 331 \t \0 \0 \t \0 \0 020 @
0014160 \t \0 \0 020 \0 ( 1 3 6 Q \ B N . I
0014200 G N N 1 3 1 Q \ B N . M I N
0014220 U S 1 2 6 Q \ B N . I G N N
0014240 1 1 7 Q \ B N . D I F F E R
0014260 E N C E 1 1 4 Q \ B N . F R
0014300 O M . F I X P 1 0 6 Q \ B N
0014320 . F R O M . F I X P 3 5 Q E
0014340 R R O R ) \r ( 4 1 Q B I G N U
0014360 M 2 2 Q M A X . I N T E G E
0014400 R 1 3 Q M I N . I N T E G E
0014420 R 5 004 003 B I G N U M T Y P E
0014440 # ) \r ( 7 3 Q - 2 0 0 0 0 0
0014460 0 0 0 0 0 Q 3 1 Q " C a n '
0014500 t d o a r i t h m e t i c
0014520 w i t h " ) \r \ B N . I C A N
0014540 O N D 1 \r ( L ( 1 S I G N
0014560 0 U ) ) \0 6 003 \0 \0 002 @ j 021
0014600 022 002 @ 001 I 330 272 A j 361 226 j J 361 222 m
0014620 377 212 j A 361 225 J j 361 221 k 200 j 271 J I
0014640 n @ \0 332 331 272 @ J 030 277 @ 002 b \0 265 325
0014660 H 020 \0 N I L \r N I L \r ( ) \r \ B
0014700 N . I D I V I D E D 1 \r ( L
0014720 ( 1 B 0 A ) ) \0 \t \0 \0 \0
0014740 002 @ A 333 @ A 334 032 020 \0 N I L \r N I
0014760 L \r ( ) \r \ B N . I S U M 0 D
0015000 1 \r ( L ( 1 V 0 U ) )
0015020 \0 2 003 \0 \0 002 j 021 ! 002 @ 001 A 001 H 330
0015040 330 n @ \0 \n \0 \0 Z 001 270 J 002 I 032 271 @
0015060 002 b \0 277 A 002 b 002 263 342 H j 360 243 H I
0015100 032 200 I \t \0 \0 020 \0 ( 5 7 Q R E V
0015120 E R S E 2 0 Q \ B N . I D I
0015140 V I D E ) \r N I L \r ( ) \r \ B N
0015160 . I S U M 1 D 1 \r ( L ( 1
0015200 V 0 U ) ) \0 4 002 \0 \0 002 021
0015220 001 j 270 @ 001 A 001 330 d j 360 240 X I 032 271
0015240 @ 002 b \0 277 A 002 b 002 263 352 H j 360 221 h
0015260 020 I \t \0 \0 j H 361 222 m 377 200 k \n \0 \0
0015300 020 \0 ( 6 1 Q \ B N . I C A N O
0015320 N 4 6 Q D R E V E R S E ) \r
0015340 N I L \r ( ) \r \ B N . M A D D
0015360 D 1 \r ( L ( 2 C 1 B 0
0015400 A ) ) \0 E 005 \0 \0 003 021 P 004 @ 271
0015420 j 270 A I 001 332 n @ \0 \n \0 \0 273 B K 002
0015440 H 330 330 n @ \0 \n \0 \0 274 I L 002 030 277 K
0015460 001 270 L 001 b 004 277 I Z 002 Y 263 327 B H 330
0015500 b 004 j 360 221 @ 020 J B J 002 032 031 @ 020 \0
0015520 ( 3 5 Q \ B N . I D I V I D E
0015540 2 0 Q \ B N . I D I V I D E
0015560 ) \r N I L \r ( ) \r \ B N . T O .
0015600 F I X P D 1 \r ( L ( 0 X )
0015620 ) \0 , \0 \0 \0 001 @ 265 004 j 020 o \0 \0
0015640 \0 \n \0 \0 k 360 255 @ d o \0 \0 \0 \n \0 \0
0015660 m 377 360 232 277 ` \0 \0 037 d @ 024 \0 277 020 \t
0015700 \0 \0 020 \0 ( 5 1 Q \ B I G N U M
0015720 . T O . I N T 2 7 Q \ B N .
0015740 C O M P A R E N 1 3 Q \ B N
0015760 . C O M P A R E N ) \r ( 3 7 Q
0016000 004 003 B I G N U M T Y P E # ) \r (
0016020 2 4 Q ( 0 0 - 1 0 Q )
0016040 1 0 Q ( 3 7 7 7 7 Q 3 7 7 7
0016060 7 Q 7 ) ) \r \ B N . N Z E R O
0016100 S D 1 \r ( L ( 0 N ) ) \0
0016120 " 005 \0 \0 001 @ k 021 2 004 I H 363 263 027 j
0016140 274 K 265 \r L h 032 [ 272 I k 324 Y 260 356 L
0016160 & 273 260 367 J 020 \0 N I L \r N I L \r (
0016200 ) \r \ B N . Q R S D 1 \r ( L
0016220 ( 1 I 0 B ) ) \0 I 004 \0 \0
0016240 002 021 @ 003 @ 264 A A j 360 227 o \0 \0 \0 \t
0016260 \0 \0 277 @ \t \0 \0 b \0 277 j 272 @ 001 273 J
0016300 n @ \0 332 K 330 A \n \0 \0 271 H 244 I 001 j
0016320 360 244 I 001 H 032 270 @ 002 b \0 277 I 002 272 @
0016340 265 335 H J 032 020 j 032 020 \0 ( 5 0 Q \
0016360 B N . I D I V I D E 2 5 Q R
0016400 E V E R S E 2 0 Q E R R O R
0016420 ) \r N I L \r ( 1 5 Q " Q R
0016440 S D I V B Y 0 " ) \r \ B
0016460 N . S I G N D 1 \r ( L ( 0
0016500 U ) ) \0 032 \0 \0 \0 001 @ 265 004 j 020 001
0016520 j 361 221 k 020 j @ 001 361 222 m 377 020 @ 002 b
0016540 \0 260 352 \0 N I L \r N I L \r ( ) \r \
0016560 B N . T H 2 B D 1 \r ( L ( 0
0016600 U ) ) \0 * 002 \0 \0 001 021 001 @ 265
0016620 004 I 020 001 X @ 002 b \0 H I 032 Y @ 265 004
0016640 I 020 001 270 @ 002 b \0 277 I n ' 020 H \v \0
0016660 \0 271 260 353 \0 ( 4 5 Q \ B N . M A
0016700 D D ) \r N I L \r ( ) \r \ B N . T
0016720 H 2 D D 1 \r ( L ( 2 T H
0016740 1 R A D I X 0 A ) ) \0 h
0016760 006 \0 \0 003 A 244 l \n b 002 277 @ 265 \a l 0
0017000 h 032 020 B A 333 021 B 005 H 003 265 \r @ 001 j
0017020 361 262 B L \t \0 \0 020 001 272 I 275 J M 333 273
0017040 J K M 332 331 272 L 244 K j 360 263 031 l \n K
0017060 \t \0 \0 [ 363 246 K l \n 331 l A 202 K l 0
0017100 330 L 032 274 M d k 360 225 277 H 002 X 260 275 A
0017120 333 260 312 l - L \t \0 \0 032 020 \0 ( 1 4 4
0017140 Q R E V E R S E 7 6 Q A B
0017160 S 4 2 Q R E V E R S E ) \r N
0017200 I L \r ( ) \r \ I N I T B I G N U
0017220 M S D 1 \r N I L \0 8 \0 \0 \0 \0
0017240 j \t \0 \0 027 \0 \0 k \t \0 \0 027 \0 \0 ` \0
0017260 \0 037 d g \0 \0 024 \0 277 027 \0 \0 ` \0 \0 037
0017300 d g \0 \0 024 \0 277 027 \0 \0 g \0 \0 \t \0 \0
0017320 n 8 \0 \n \0 \0 020 \0 ( 6 5 Q \ S E
0017340 T T Y P E M A S K 5 7 Q \ T
0017360 Y P E N U M B E R F R O M N A M
0017400 E 1 2 Q \ B N . F R O M . F
0017420 I X P 3 \ B N . F R O M . F
0017440 I X P ) \r ( 5 4 Q B I G N U M
0017460 5 1 Q M A X . I N T E G E R
0017500 4 3 Q M A X . I N T E G E R
0017520 3 6 Q 004 003 B I G N U M T Y P
0017540 E # 3 3 Q M I N . I N T E G
0017560 E R 2 5 Q M I N . I N T E G
0017600 E R 2 0 Q 004 003 B I G N U M T
0017620 Y P E # 1 5 Q \ B I G . 1
0017640 6 \ B I G . 0 ) \r ( ) \r ( P R
0017660 E T T Y C O M P R I N T L L B
0017700 I G N U M C O M S ) \r ( R P A Q
0017720 Q L L B I G N U M C O M S (
0017740 ( C O M S ( D E C L A R E :
0017760 E V A L @ C O M P I L E D O N
0020000 T C O P Y ( R E C O R D S B
0020020 I G N U M ) ) ( I N I T R E C
0020040 O R D S B I G N U M ) ( \r C
0020060 O N S T A N T S \ B I G N U M
0020100 . T H E T A ( \ B I G N U M .
0020120 B E T A ( E X P T 2 1 4 )
0020140 ) ( \ B I G N U M . B E T A 1
0020160 ( S U B 1 \ B I G N U M . B
0020200 E T A ) ) ) ( D E C L A R E :
0020220 \r E V A L @ C O M P I L E (
0020240 A D D V A R S ( C H A R A C T
0020260 E R N A M E S ( I N F I N I T
0020300 Y 8 5 5 1 ) ) ) ) ( A D D V
0020320 A R S ( G L O B A L V A R S
0020340 M I N . I N T E G E R M A X .
0020360 I N T E G E R \r \ B I G . 0
0020400 \ B I G . 1 ) ) ) ( C O M S
0020420 ( * e n t r i e s ) ( F N S
0020440 \ B I G N U M . C O M P A R E
0020460 \ B I G N U M . D I F F E R E
0020500 N C E \ B I G N U M . I N T E
0020520 G E R L E N G T H \r \ B I G N
0020540 U M . L O G A N D \ B I G N U
0020560 M . L O G O R \ B I G N U M .
0020600 L O G X O R \ B I G N U M . P
0020620 L U S \ B I G N U M . L S H
0020640 \ B I G N U M . T I M E S \ B
0020660 I G N U M . Q U O T I E N T \r
0020700 \ B I G N U M . R E M A I N D E
0020720 R \ B I G N U M . T O . F L O
0020740 A T ) ) ( C O M S ( * i n
0020760 t e r n a l f u n c t i o n s
0021000 ) ( F N S \ B I G N U M . T
0021020 O . I N T \ B N . 2 T H \ B
0021040 N . A B S \r \ B N . D I F F E
0021060 R E N C E \ B N . D I V I D E
0021100 \ B N . F L O A T \ B N . I
0021120 G N N B I G N U M . D E F P R
0021140 I N T \ B N . I N T E G E R L
0021160 E N G T H \ B N . L O G A N D
0021200 \ B N . L O G A N D C 2 \r \
0021220 B N . L O G O R \ B N . L O G
0021240 X O R \ B N . M I N U S \ B
0021260 N . P L U S 2 \ B N . S I G N
0021300 \ B N . T I M E S 2 \ B N .
0021320 C O M P A R E N \ B N . D 2 T
0021340 H \ B N . F R O M . F I X P
0021360 \r \ B N . I C A N O N \ B N .
0021400 I D I V I D E \ B N . I S U M
0021420 0 \ B N . I S U M 1 \ B N .
0021440 M A D D \ B N . T O . F I X P
0021460 \ B N . N Z E R O S \ B N .
0021500 Q R S \ B N . S I G N \ B N
0021520 . T H 2 B \r \ B N . T H 2 D )
0021540 ) ( C O M S ( F N S \ I N
0021560 I T B I G N U M S ) ( * M A
0021600 K E R A T I O N A L n e e d s
0021620 w o r k ) ( * n e e d s
0021640 w o r k : M A S K . 1 ' S M
0021660 A S K . 0 ' S \r B I T T E S T
0021700 B I T S E T B I T C L E A R
0021720 L O G N O T L O A D B Y T E
0021740 D E P O S I T B Y T E I M O
0021760 D L E S S P I M O D P L U S
0022000 I M O D D I F F E R E N C E R
0022020 O T ) ( D E C L A R E : \r D
0022040 O N T E V A L @ L O A D D O C
0022060 O P Y ( P ( \ I N I T B I G
0022100 N U M S ) ) ) ) ) ) \r ( / D E C
0022120 L A R E D A T A T Y P E ( Q U
0022140 O T E B I G N U M ) ( Q U O
0022160 T E ( P O I N T E R ) ) ( Q
0022200 U O T E ( ( B I G N U M 0
0022220 P O I N T E R ) ) ) ( Q U O T
0022240 E 2 ) ) \r ( D E F P R I N T
0022260 ( Q U O T E B I G N U M ) (
0022300 Q U O T E B I G N U M . D E F
0022320 P R I N T ) ) \r ( R P A Q Q \
0022340 B I G N U M . T H E T A 1 0 0
0022360 0 0 ) \r ( R P A Q \ B I G N U
0022400 M . B E T A ( E X P T 2 1
0022420 4 ) ) \r ( R P A Q \ B I G N U
0022440 M . B E T A 1 ( S U B 1 \ B
0022460 I G N U M . B E T A ) ) \r ( C O
0022500 N S T A N T S \ B I G N U M .
0022520 T H E T A ( \ B I G N U M . B
0022540 E T A ( E X P T 2 1 4 ) )
0022560 ( \ B I G N U M . B E T A 1
0022600 ( S U B 1 \ B I G N U M . B E
0022620 T A ) ) ) \r ( A D D T O V A R
0022640 C H A R A C T E R N A M E S (
0022660 I N F I N I T Y 8 5 5 1 ) ) \r
0022700 ( A D D T O V A R G L O B A L
0022720 V A R S M I N . I N T E G E R
0022740 M A X . I N T E G E R \ B I
0022760 G . 0 \ B I G . 1 ) \r ( \ I N
0023000 I T B I G N U M S ) \r ( P U T P
0023020 R O P S L L B I G N U M C O
0023040 P Y R I G H T ( " X e r o x
0023060 C o r p o r a t i o n " 1 9 8
0023100 5 1 9 8 6 ) ) \r N I L \r
0023115