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