$ od -c -N 50000 [eris]<Lisp>Carol>SOURCES>AARITH.DCOM!2 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