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