$ 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