$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>AARITH.DCOM!1
0000000 ( F I L E C R E A T E D " 1 7
0000020 - M a y - 8 4 1 8 : 1 2 : 0 1
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > S O U R C E S > A A R I
0000120 T H . ; 9 ) \r " 1 4 - M a y -
0000140 8 4 1 9 : 0 4 : 5 1 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 L O G A N T I L O G i n
0000220 W O R K d a t e d " 1 4 - M
0000240 a y - 8 4 2 1 : 1 2 : 2 5 " )
0000260 \r ( F I L E C R E A T E D " 1
0000300 7 - M a y - 8 4 1 8 : 1 1 : 4
0000320 0 " { P H Y L U M } < L I S P
0000340 C O R E > S O U R C E S > A A R
0000360 I T H . ; 9 1 4 5 5 0 c h a
0000400 n g e s t o : ( F N S A N
0000420 T I L O G \r L O G ) p r e v
0000440 i o u s d a t e : " 1 - M
0000460 a y - 8 4 2 1 : 4 5 : 2 4 "
0000500 { P H Y L U M } < L I S P C O R
0000520 E > S O U R C E S > A A R I T H
0000540 . ; 7 ) \r L O G D 1 \r ( P 2
0000560 S S U M P 1 E X P P
0000600 0 S X I 0 X ) \0 245 004 \0
0000620 \0 001 @ d 005 003 242 \t \0 \0 j 021 " 003 H o
0000640 \0 \0 \0 362 250 o \0 \0 \0 @ \n \0 \0 277 H 312
0000660 \0 027 j 360 262 033 j 273 o \0 \0 \0 H 362 235 H
0000700 o \0 \0 \0 352 X 262 362 K k 330 260 354 K 271 H
0000720 d @ 360 227 277 @ o \0 \0 \0 350 X 312 \0 027 l
0000740 177 331 I 331 Y H l 177 317 \0 027 H o \0 \0 \0
0000760 351 X d o \0 \0 \0 352 o \0 \0 \0 350 H 352 o
0001000 \0 \0 \0 350 H 352 o \0 \0 \0 350 H 352 o \0 \0
0001020 \0 350 H 352 o \0 \0 \0 350 H 352 o \0 \0 \0 350
0001040 H 352 o \0 \0 \0 350 H 352 \t \0 \0 Z d I o
0001060 \0 \0 \0 352 350 020 \0 ( 2 3 1 Q F L O
0001100 A T 3 2 Q E R R O R 7 F
0001120 L O A T ) \r N I L \r ( 2 4 0 Q
0001140 . 6 9 3 1 4 7 2 2 2 3 Q .
0001160 9 9 9 9 9 6 4 2 1 4 Q - . 4
0001200 9 9 8 7 4 1 2 0 5 Q . 3 3 1
0001220 7 9 9 1 7 6 Q - . 2 4 0 7 3
0001240 3 8 1 6 7 Q . 1 6 7 6 5 4 1
0001260 1 6 0 Q - . 0 9 5 3 2 9 4
0001300 1 5 1 Q . 0 3 6 0 8 8 4 9 1
0001320 4 4 Q - . 0 0 6 4 5 3 5 4 4
0001340 1 3 5 Q 1 . 0 1 0 7 Q 0 .
0001360 0 6 1 Q 2 . 0 5 1 Q 1 .
0001400 1 7 5 4 9 4 E - 3 8 2 6 Q "
0001420 L O G O F N O N - P O S I T
0001440 I V E N U M B E R : " 2 0 Q
0001460 0 . 0 ) \r A N T I L O G D 1
0001500 \r ( P 3 E X P P 2 S S
0001520 U M P 1 F R A C P 0
0001540 X X I 0 X ) \0 223 004 \0 \0 001
0001560 @ d 005 003 242 \t \0 \0 021 1 003 H o \0 \0 \0
0001600 \n \0 \0 \t \0 \0 Y d o \0 \0 \0 352 o \0 \0
0001620 \0 350 I 352 o \0 \0 \0 350 I 352 o \0 \0 \0 350
0001640 I 352 o \0 \0 \0 350 I 352 o \0 \0 \0 350 I 352
0001660 o \0 \0 \0 350 I 352 o \0 \0 \0 350 Z H o \0
0001700 \0 \0 362 227 o \0 \0 \0 J 353 Z 200 J 312 \0 027
0001720 [ d H o \0 \0 \0 352 330 [ j 361 233 K l 377
0001740 361 246 J K 317 \0 027 J 020 J 312 \0 \0 K l \b
0001760 330 J 312 \0 226 l 200 344 J 310 001 i J \r 006 \0
0002000 \0 020 \0 ( 2 2 0 Q \ M A K E F L
0002020 O A T 2 5 Q A B S 2 2 Q
0002040 F R E M A I N D E R 7 F L O
0002060 A T ) \r N I L \r ( 1 4 6 Q 1
0002100 . 4 4 2 6 9 5 1 2 7 Q 1 . 0
0002120 1 2 1 Q 0 . 0 1 1 2 Q 1
0002140 . 0 1 0 3 Q - 1 . 0 7 4 Q
0002160 . 4 9 9 9 9 9 9 6 5 Q - .
0002200 1 6 6 6 6 5 3 5 6 Q . 0 4 1
0002220 6 5 7 3 5 4 7 Q - . 0 0 8 3
0002240 0 1 3 6 4 0 Q . 0 0 1 3 2 9
0002260 8 8 2 3 3 Q - . 0 0 0 1 4 1
0002300 3 1 6 1 1 7 Q . 6 9 3 1 4 7
0002320 2 ) \r S I N D 1 \r ( P 1 X
0002340 2 P 0 X X I 1 R A D
0002360 I A N S F L G I 0 X ) \0
0002400 316 002 \0 \0 002 @ d 005 003 242 \t \0 \0 021 021 001
0002420 A 262 033 o \0 \0 \0 H 362 227 H o \0 \0 \0 362
0002440 263 + H o \0 \0 \0 \n \0 \0 260 o \0 \0 \0
0002460 H 362 226 H o \0 \0 \0 362 251 H o \0 \0 \0 \n
0002500 \0 \0 X 200 H o \0 \0 \0 352 270 o \0 \0 \0 H
0002520 362 227 H o \0 \0 \0 350 X 200 H o \0 \0 \0 362
0002540 225 H o \0 \0 \0 213 H o \0 \0 \0 362 226 o \0
0002560 \0 \0 H 351 270 o \0 \0 \0 H 362 263 0 H d 352
0002600 Y H I o \0 \0 \0 352 o \0 \0 \0 350 I 352 o
0002620 \0 \0 \0 350 I 352 o \0 \0 \0 350 I 352 o \0 \0
0002640 \0 350 I 352 o \0 \0 \0 350 352 020 H o \0 \0 \0
0002660 352 X d d 352 Y H I o \0 \0 \0 352 o \0 \0
0002700 \0 350 I 352 o \0 \0 \0 350 I 352 o \0 \0 \0 350
0002720 352 020 \0 ( 7 4 Q F R E M A I N D
0002740 E R 4 4 Q F R E M A I N D E
0002760 R 7 F L O A T ) \r N I L \r (
0003000 3 1 1 Q . 7 8 5 3 9 8 2 3
0003020 0 2 Q - . 0 8 0 7 4 5 4 5 2
0003040 7 3 Q . 0 0 2 4 9 0 0 0 7 2
0003060 6 6 Q - . 0 0 0 0 3 5 9 5 4 4
0003100 2 5 2 Q 1 . 2 7 3 2 3 9 2
0003120 4 2 Q 1 . 0 2 3 3 Q - . 1
0003140 6 6 6 6 6 7 2 2 4 Q . 0 0 8
0003160 3 3 3 3 3 2 2 1 5 Q - . 0 0
0003200 0 1 9 8 4 0 9 2 0 6 Q 2 . 7
0003220 5 2 6 E - 6 2 0 1 Q - 2 . 3
0003240 9 E - 8 1 6 3 Q . 7 8 5 3 9
0003260 8 2 1 5 4 Q 3 . 1 4 1 5 9 3
0003300 1 4 6 Q 1 . 5 7 0 7 9 6 1
0003320 4 0 Q 6 . 2 8 3 1 8 5 1 3 1
0003340 Q 4 . 7 1 2 3 8 9 1 2 1 Q
0003360 6 . 2 8 3 1 8 5 1 1 1 Q - 1
0003400 . 5 7 0 7 9 6 1 0 3 Q . 0 1
0003420 7 4 5 3 2 9 7 1 Q 3 6 0 . 0
0003440 6 2 Q - 3 6 0 . 0 5 2 Q
0003460 3 6 0 . 0 4 1 Q 6 . 2 8 3 1
0003500 8 5 3 1 Q - 6 . 2 8 3 1 8 5
0003520 2 1 Q 6 . 2 8 3 1 8 5 ) \r A
0003540 R C S I N D 1 \r ( P 6 Q 2
0003560 P 5 Q 1 P 4 Z P
0003600 3 R E D U C E D P 2 N E
0003620 G P P 1 S S U M P 0
0003640 X X I 1 R A D I A N S F L
0003660 G I 0 X ) \0 247 \a \0 \0 002 @
0003700 d 005 003 242 \t \0 \0 021 a 006 o \0 \0 \0 H 362
0003720 247 H o \0 \0 \0 362 262 & o \0 \0 \0 H \n \0
0003740 \0 277 H o \0 \0 \0 362 262 ( i 273 o \0 \0 \0
0003760 H 351 o \0 \0 \0 352 \t \0 \0 X 260 026 o \0 \0
0004000 \0 H 362 262 337 i 272 o \0 \0 \0 H 351 X 260 325
0004020 H d 352 \ d o \0 \0 \0 352 ] d o \0 \0 \0
0004040 351 ^ d 352 ^ d d o \0 \0 \0 350 352 o \0 \0
0004060 \0 350 ^ H N M o \0 \0 \0 350 352 o \0 \0 \0
0004100 350 352 Y K 233 o \0 \0 \0 I o \0 \0 \0 352 351
0004120 271 J 226 o \0 \0 \0 I 351 271 A 221 I 020 I o
0004140 \0 \0 \0 352 020 \0 ( 7 2 Q S Q R T
0004160 4 1 Q E R R O R 7 F L O A
0004200 T ) \r N I L \r ( 2 4 3 Q 5 7
0004220 . 2 9 5 7 8 2 2 7 Q 0 . 0
0004240 2 1 6 Q 2 . 0 2 1 1 Q 1 .
0004260 5 7 0 7 9 6 2 0 0 Q . 7 5 3
0004300 3 0 5 7 1 7 2 Q . 6 5 9 9 5
0004320 2 6 1 6 1 Q . 3 6 9 7 7 2 3
0004340 1 5 3 Q . 4 9 1 8 7 6 2 1
0004360 4 0 Q . 0 8 9 8 2 4 4 6 1 3
0004400 1 Q . 5 3 1 5 0 6 6 1 1 3 Q
0004420 0 . 0 1 0 1 Q 0 . 0 6 6
0004440 Q . 5 6 0 Q 1 . 0 4 7 Q
0004460 . 5 3 5 Q " A R C S I N :
0004500 a r g n o t i n r a n g
0004520 e " 2 6 Q 1 . 0 1 6 Q -
0004540 1 . 0 ) \r C O S D 1 \r ( I 1
0004560 R A D I A N S F L G I 0
0004600 X ) \0 032 \0 \0 \0 002 A 224 o \0 \0 \0 203
0004620 o \0 \0 \0 @ d 005 003 242 \t \0 \0 351 A \n \0
0004640 \0 020 \0 ( 2 7 Q S I N 2 2 Q
0004660 F L O A T ) \r N I L \r ( 1 2 Q
0004700 9 0 . 0 5 1 . 5 7 0 7 9 6
0004720 ) \r A R C C O S D 1 \r ( P 0
0004740 X X I 1 R A D I A N S F
0004760 L G I 0 X ) \0 036 001 \0 \0 002
0005000 @ d 005 003 242 \t \0 \0 021 001 \0 A 224 o \0 \0
0005020 \0 203 o \0 \0 \0 H A \n \0 \0 351 020 \0 ( 3
0005040 2 Q A R C S I N 7 F L O A
0005060 T ) \r N I L \r ( 2 5 Q 9 0 .
0005100 0 2 0 Q 1 . 5 7 0 7 9 6 ) \r
0005120 T A N D 1 \r ( P 3 X 2 P
0005140 2 Y P 1 F L I P P E D
0005160 P 0 X X I 1 R A D I
0005200 A N S F L G I 0 X ) \0 246
0005220 004 \0 \0 002 @ d 005 003 242 \t \0 \0 021 1 003 A
0005240 230 H o \0 \0 \0 \n \0 \0 214 H o \0 \0 \0 \n
0005260 \0 \0 o \0 \0 \0 352 X d o \0 \0 \0 362 227 H
0005300 o \0 \0 \0 351 X 217 o \0 \0 \0 H 362 227 H o
0005320 \0 \0 \0 350 X 200 H o \0 \0 \0 362 231 i 271 o
0005340 \0 \0 \0 H 351 260 023 o \0 \0 \0 H 362 230 i 271
0005360 o \0 \0 \0 H 351 200 H Z d d 352 [ J K o
0005400 \0 \0 \0 352 o \0 \0 \0 350 K 352 o \0 \0 \0 350
0005420 K 352 o \0 \0 \0 350 K 352 o \0 \0 \0 350 K 352
0005440 o \0 \0 \0 350 K 352 o \0 \0 \0 350 352 Z I 226
0005460 o \0 \0 \0 J 353 020 J 020 \0 ( 3 5 Q F
0005500 R E M A I N D E R 2 4 Q F R
0005520 E M A I N D E R 7 F L O A T
0005540 ) \r N I L \r ( 2 3 7 Q 1 . 0
0005560 2 2 6 Q 1 . 0 2 1 7 Q .
0005600 3 3 3 3 3 1 4 2 1 0 Q . 1 3
0005620 3 3 9 2 4 2 0 1 Q . 0 5 3 3
0005640 7 4 0 6 1 7 2 Q . 0 2 4 5 6
0005660 5 0 9 1 6 3 Q . 0 0 2 9 0 0
0005700 5 2 5 1 5 6 Q . 0 0 9 5 1 6
0005720 8 1 1 3 7 Q - 1 . 5 7 0 7 9
0005740 6 1 2 6 Q - . 7 8 5 3 9 8 2
0005760 1 1 6 Q 1 . 5 7 0 7 9 6 1
0006000 0 6 Q . 7 8 5 3 9 8 2 7 6 Q
0006020 3 . 1 4 1 5 9 3 6 6 Q - 1
0006040 . 5 7 0 7 9 6 5 7 Q 3 . 1 4
0006060 1 5 9 3 5 0 Q 1 . 5 7 0 7 9
0006100 6 4 1 Q . 0 1 7 4 5 3 2 9
0006120 3 2 Q 1 8 0 . 0 2 1 Q 3 .
0006140 1 4 1 5 9 3 ) \r A R C T A N D
0006160 1 \r ( L ( 1 R A D I A N S F
0006200 L G 0 X ) ) \0 212 004 \0 \0 002 @
0006220 \t \0 \0 o \0 \0 \0 021 " 003 o \0 \0 \0 H 362
0006240 251 H d o \0 \0 \0 362 262 033 277 o \0 \0 \0 H
0006260 362 224 o \0 \0 \0 203 o \0 \0 \0 273 o \0 \0 \0
0006300 H 353 X d 352 Z H J o \0 \0 \0 352 o \0 \0
0006320 \0 350 J 352 o \0 \0 \0 350 J 352 o \0 \0 \0 350
0006340 J 352 o \0 \0 \0 350 J 352 o \0 \0 \0 350 J 352
0006360 o \0 \0 \0 350 J 352 o \0 \0 \0 350 J 352 o \0
0006400 \0 \0 350 352 Y K 265 006 A 226 I 020 I 351 271 260
0006420 371 I o \0 \0 \0 352 020 \0 ( 3 F L O A
0006440 T ) \r N I L \r ( 2 0 6 Q 5 7
0006460 . 2 9 5 7 8 1 6 2 Q 1 . 0
0006500 1 5 3 Q - . 3 3 3 3 3 1 5 1
0006520 4 4 Q . 1 9 9 9 3 5 5 1 3 5
0006540 Q - . 1 4 2 0 8 9 1 2 6 Q
0006560 . 1 0 6 5 6 2 6 1 1 7 Q - .
0006600 0 7 5 2 8 9 6 4 1 1 0 Q . 0
0006620 4 2 9 0 9 6 1 1 0 1 Q - . 0
0006640 1 6 1 6 5 7 4 7 4 Q . 0 0 2
0006660 8 6 6 2 2 6 6 0 Q 1 . 0 5
0006700 3 Q 1 . 5 7 0 7 9 6 4 6 Q
0006720 - 1 . 5 7 0 7 9 6 3 7 Q 0 .
0006740 0 2 7 Q 1 . 0 1 6 Q - 1
0006760 . 0 7 . 0 0 2 8 6 6 2 2 6 )
0007000 \r A R C T A N 2 D 1 \r ( I 2
0007020 R A D I A N S F L G I 1
0007040 X I 0 Y ) \0 \ 001 \0 \0 003 @
0007060 005 003 246 @ \t \0 \0 b \0 277 A 005 003 246 A \t
0007100 \0 \0 b 002 277 @ A 353 \t \0 \0 i \n \0 \0 021
0007120 001 \0 o \0 \0 \0 A 362 262 030 o \0 \0 \0 @ 362
0007140 227 H o \0 \0 \0 350 260 030 o \0 \0 \0 H 351 216
0007160 o \0 \0 \0 @ 362 226 o \0 \0 \0 H 351 200 H X
0007200 B 220 020 H o \0 \0 \0 352 020 \0 ( 3 7 Q
0007220 A R C T A N 3 3 Q A B S 2
0007240 2 Q F L O A T 7 F L O A T
0007260 ) \r N I L \r ( 1 3 0 Q 5 7 .
0007300 2 9 5 7 8 1 1 3 Q 0 . 0 1
0007320 0 4 Q 0 . 0 7 5 Q 3 . 1 4
0007340 1 5 9 3 6 6 Q - 3 . 1 4 1 5
0007360 9 3 5 6 Q 0 . 0 4 6 Q 0
0007400 . 0 ) \r A T A N D 1 \r ( I 2
0007420 R A D I A N S F L G I 1
0007440 X I 0 Y ) \0 360 \b \0 \0 003 @
0007460 005 003 246 @ \t \0 \0 b \0 277 A 005 003 246 A \t
0007500 \0 \0 b 002 277 o \0 \0 \0 @ 362 o \0 \0 \0 A
0007520 362 021 b \a H 226 o \0 \0 \0 @ 351 200 @ 272 I
0007540 226 o \0 \0 \0 A 351 200 A 273 J K 351 J K 350
0007560 353 \ d 352 _ 016 277 L O 016 o \0 \0 \0 352 o
0007600 \0 \0 \0 350 O 016 352 o \0 \0 \0 350 O 016 352 o
*
0007660 \0 \0 \0 350 352 276 o \0 \0 \0 N 362 226 o \0 \0
0007700 \0 N 351 200 N 275 o \0 \0 \0 M 362 226 o \0 \0
0007720 \0 M 362 226 N o \0 \0 \0 260 031 o \0 \0 \0 N
0007740 362 223 J K 353 214 o \0 \0 \0 K 351 J 353 o \0
0007760 \0 \0 350 276 I 262 023 H 227 N o \0 \0 \0 350 260
0010000 023 o \0 \0 \0 N 351 211 H 226 o \0 \0 \0 N 351
0010020 200 N 276 B 221 N 020 N o \0 \0 \0 352 020 \0 (
0010040 2 2 Q F L O A T 7 F L O A
0010060 T ) \r N I L \r ( 3 5 4 Q 5 7
0010100 . 2 9 5 7 8 3 3 6 Q 6 . 2 8
0010120 3 1 8 5 3 2 5 Q 3 . 1 4 1 5
0010140 9 3 3 1 6 Q 3 . 1 4 1 5 9 3
0010160 3 0 2 Q 1 . 5 7 0 7 9 6 2
0010200 7 2 Q 0 . 0 2 5 7 Q 0 . 0
0010220 2 5 1 Q . 7 8 5 3 9 8 2 2
0010240 4 1 Q . 7 8 5 3 2 3 2 Q .
0010260 7 8 5 5 2 2 1 Q 0 . 0 2 1
0010300 2 Q 0 . 0 2 0 3 Q . 9 9 9
0010320 9 9 9 4 1 7 3 Q - . 3 3 3 2
0010340 9 8 6 1 6 3 Q . 1 9 9 4 6 5
0010360 4 1 5 3 Q - . 1 3 9 0 8 5 3
0010400 1 4 3 Q . 0 9 6 4 2 0 0 4
0010420 1 3 3 Q - . 0 5 5 9 0 9 8 9
0010440 1 2 3 Q . 0 2 1 8 6 1 2 3 1
0010460 1 6 Q - . 0 0 4 0 5 4 0 5 8
0010500 6 5 Q 0 . 0 5 2 Q 0 . 0
0010520 3 7 Q 0 . 0 3 1 Q 0 . 0 )
0010540 \r F E X P T D 1 \r ( I 1 N
0010560 I 0 A ) \0 031 \0 \0 \0 002 A d
0010600 005 003 242 \t \0 \0 @ d 005 003 242 \t \0 \0 \t \0
0010620 \0 352 \t \0 \0 020 \0 ( 2 6 Q A N T I
0010640 L O G 2 2 Q L O G 1 7 Q
0010660 F L O A T 7 F L O A T ) \r N
0010700 I L \r ( ) \r ( P R E T T Y C O M
0010720 P R I N T A A R I T H C O M S
0010740 ) \r ( R P A Q Q A A R I T H C
0010760 O M S ( ( F N S L O G A N
0011000 T I L O G S I N A R C S I N
0011020 C O S A R C C O S T A N
0011040 A R C T A N A R C T A N 2 A
0011060 T A N F E X P T ) ( D E C L
0011100 A R E : \r E V A L @ C O M P I
0011120 L E D O N T C O P Y ( M A C
0011140 R O S H O R N E R I F Y F L
0011160 E Q F G E Q ) ( C O N S T A
0011200 N T S ( \ E X P O N E N T . B
0011220 I A S 1 2 7 ) ( 2 P I 6 .
0011240 2 8 3 1 8 5 ) ( P I \r 3 . 1
0011260 4 1 5 9 3 ) ( - P I - 3 . 1
0011300 4 1 5 9 3 ) ( - P I / 2 - 1
0011320 . 5 7 0 7 9 6 ) ( P I / 2 1
0011340 . 5 7 0 7 9 6 ) ( 4 / P I 1
0011360 . 2 7 3 2 3 9 ) ( 3 P I / 2
0011400 4 . 7 1 2 3 8 9 ) ( P I / 4
0011420 \r . 7 8 5 3 9 8 2 ) ( - P I /
0011440 4 - . 7 8 5 3 9 8 2 ) ( P I
0011460 / 1 8 0 . 0 1 7 4 5 3 2 9 )
0011500 ( 1 8 0 / P I 5 7 . 2 9 5 7 8
0011520 ) ( - P I / 2 - 1 . 5 7 0 7
0011540 9 6 ) ( L N 2 . 6 9 3 1 4 7
0011560 2 ) ( \r 2 ^ - 1 2 6 1 . 1 7
0011600 5 4 9 4 E - 3 8 ) ) ) ) ) \r ( P
0011620 U T P R O P S A A R I T H C
0011640 O P Y R I G H T ( " X e r o x
0011660 C o r p o r a t i o n " 1 9
0011700 8 1 1 9 8 3 1 9 8 4 ) ) \r N
0011720 I L \r
0011723