$ od -c -N 50000 [phylum]<LISP>KOTO>Library>CMLARITH.DCOM!2
0000000 ( F I L E C R E A T E D " 4
0000020 - F e b - 8 6 1 6 : 1 0 : 4 5
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < F I S C H E R
0000100 > C M L > C M L A R I T H . ; 2
0000120 ) " 1 2 - N o v - 8 5 1 4 :
0000140 5 9 : 2 3 " \r t c o m p l ' d
0000160 i n " I N T E R L I S P - D
0000200 2 9 - J a n - 8 6 . . . "
0000220 d a t e d " 2 9 - J a n - 8 6
0000240 1 3 : 2 6 : 3 0 " ) \r ( F I L
0000260 E C R E A T E D " 4 - F e b
0000300 - 8 6 1 6 : 1 0 : 0 9 " { E
0000320 R I S } < F I S C H E R > C M L
0000340 > C M L A R I T H . ; 2 1 2 2
0000360 0 7 c h a n g e s t o : (
0000400 F N S B O O L E ) ( V A R S
0000420 \r C M L A R I T H C O M S )
0000440 p r e v i o u s d a t e : "
0000460 5 - S e p - 8 5 0 2 : 5 8 :
0000500 5 6 " { E R I S } < L I S P >
0000520 K O T O > L I B R A R Y > C M L
0000540 A R I T H . ; 1 ) \r P L U S P
0000560 D 1 \r ( L ( 0 N U M B E R )
0000600 ) \0 005 \0 \0 \0 001 @ j 363 020 \0 N I L
0000620 \r N I L \r ( ) \r = D 1 \r ( L
0000640 ( 0 \ C L : L A M B D A . A R
0000660 G C N T ) P 4 X P 2
0000700 M O R E - N U M B E R S P 1
0000720 N U M B E R ) \0 Y \n \0 002 \0 e
0000740 021 001 \0 k H 361 230 o \0 \0 \0 H \n \0 \0 277
0000760 @ 021 1 004 H l 002 021 2 \t N d M 363 232 277
0001000 O 016 022 Z [ 003 265 # i 020 a _ 022 277 O 020
0001020 265 021 O 022 h 032 _ 020 _ 016 277 N k 324 ^ 260
0001040 334 O 022 & _ 020 277 260 364 001 274 I L \n \0 \0
0001060 241 h 020 K 002 260 317 \0 ( 1 2 0 Q % %
0001100 = 1 7 Q E R R O R ) \r N I L
0001120 \r ( 1 3 Q " T o o f e w
0001140 a r g s " ) \r / = D 1 \r ( L
0001160 ( 0 \ C L : L A M B D A . A R
0001200 G C N T ) P 1 2 Q X P
0001220 1 0 Q Y P 6 N U M B E R
0001240 S ) \0 X \v \0 002 \0 e 021 001 \0 H k 021
0001260 2 005 J d I 363 262 025 277 K 022 021 ! \b N 021
0001300 021 \n O 022 _ 024 003 265 * i 020 a 275 L 265 \r
0001320 M h 032 \ 273 J k 324 Z 260 332 M & 274 260 367
0001340 001 _ 020 277 O 024 001 O 020 \n \0 \0 221 h 210 O
0001360 016 002 _ 016 003 265 353 i 241 h 020 O 024 002 260 306
0001400 \0 ( 1 0 2 Q % % = ) \r N I L \r
0001420 ( ) \r < D 1 \r ( L ( 0 \ C
0001440 L : L A M B D A . A R G C N T )
0001460 ) \0 C 006 \0 002 \0 e 021 001 \0 H k 021 2
0001500 005 J d I 363 262 023 277 K 022 021 021 002 I Z 003
0001520 224 J d 002 263 031 i 020 a 275 L 265 \r M h 032
0001540 \ 273 J k 324 Z 260 334 M & 274 260 367 001 J 002
0001560 001 375 363 241 h 020 J 002 260 326 \0 N I L \r N
0001600 I L \r ( ) \r > D 1 \r ( L ( 0
0001620 \ C L : L A M B D A . A R G C
0001640 N T ) ) \0 B 006 \0 002 \0 e 021 001 \0 H
0001660 k 021 2 005 J d I 363 262 023 277 K 022 021 021 002
0001700 I Z 003 224 J d 002 263 031 i 020 a 275 L 265 \r
0001720 M h 032 \ 273 J k 324 Z 260 334 M & 274 260 367
0001740 001 J 002 001 363 241 h 020 J 002 260 327 \0 N I L
0001760 \r N I L \r ( ) \r < = D 1 \r ( L
0002000 ( 0 \ C L : L A M B D A . A
0002020 R G C N T ) ) \0 B 006 \0 002 \0 e 021
0002040 001 \0 H k 021 2 005 J d I 363 262 023 277 K 022
0002060 021 021 002 I Z 003 224 J d 002 263 031 i 020 a 275
0002100 L 265 \r M h 032 \ 273 J k 324 Z 260 334 M &
0002120 274 260 367 001 J 002 001 363 221 h 020 J 002 260 327 \0
0002140 N I L \r N I L \r ( ) \r > = D 1
0002160 \r ( L ( 0 \ C L : L A M B D
0002200 A . A R G C N T ) ) \0 C 006 \0 002
0002220 \0 e 021 001 \0 H k 021 2 005 J d I 363 262 023
0002240 277 K 022 021 021 002 I Z 003 224 J d 002 263 031 i
0002260 020 a 275 L 265 \r M h 032 \ 273 J k 324 Z 260
0002300 334 M & 274 260 367 001 J 002 001 375 363 221 h 020 J
0002320 002 260 326 \0 N I L \r N I L \r ( ) \r %
0002340 % = D 1 \r ( I 1 Y I 0
0002360 X ) \0 027 \0 \0 \0 002 @ d 3 233 277
0002400 A 3 225 @ A 331 j 360 020 @ A \n \0 \0 020
0002420 \0 ( 2 4 Q F E Q P ) \r N I L \r
0002440 ( ) \r - D 1 \r ( L ( 0 \ C
0002460 L : L A M B D A . A R G C N T )
0002500 ) \0 \ \n \0 002 \0 e 021 001 \0 k H 361 230
0002520 o \0 \0 \0 H \n \0 \0 277 @ 021 1 004 H l 002
0002540 021 2 \t N d M 363 232 277 O 016 022 Z 263 % j
0002560 I 325 020 a _ 022 277 O 020 265 021 O 022 h 032 _
0002600 020 _ 016 277 N k 324 ^ 260 334 O 022 & _ 020 277
0002620 260 364 I 273 J 207 d 001 274 K L 325 273 002 003 265
0002640 367 K 020 \0 ( 1 7 Q E R R O R ) \r
0002660 N I L \r ( 1 3 Q " T o o f
0002700 e w a r g s " ) \r / D 1 \r (
0002720 L ( 0 \ C L : L A M B D A .
0002740 A R G C N T ) P 1 1 Q X
0002760 P 2 N U M B E R S P 1
0003000 N U M B E R ) \0 b \n \0 002 \0 e 021
0003020 001 \0 k H 361 230 o \0 \0 \0 H \n \0 \0 277 @
0003040 021 021 002 H l 002 021 2 \a L d K 363 233 277 M
0003060 022 Z 265 ! k I \n \0 \0 020 a _ 016 277 N 265
0003100 016 O 016 h 032 ^ 275 L k 324 \ 260 337 O 016 &
0003120 276 260 366 021 021 \t O 020 003 265 004 I 020 001 _ 022
0003140 277 I O 022 \n \0 \0 271 O 020 002 _ 020 260 353 \0
0003160 ( 1 3 0 Q % % / 5 2 Q % %
0003200 / 1 7 Q E R R O R ) \r N I L
0003220 \r ( 1 3 Q " T o o f e w
0003240 a r g s " ) \r % % / D 1 \r ( I
0003260 1 Y I 0 X ) \0 025 \0 \0
0003300 \0 002 @ A \n \0 \0 j 360 223 @ A 327 020 o \0
0003320 \0 \0 \t \0 \0 020 \0 ( 2 2 Q E R R O
0003340 R 4 I M O D ) \r N I L \r (
0003360 1 7 Q " R a t i o s n o t
0003400 i m p l e m e n t e d " ) \r 1 +
0003420 D 1 \r ( L ( 0 X ) ) \0 005
0003440 \0 \0 \0 001 @ k 324 020 \0 N I L \r N I L
0003460 \r ( ) \r 1 - D 1 \r ( L ( 0
0003500 X ) ) \0 005 \0 \0 \0 001 @ k 325 020 \0 N
0003520 I L \r N I L \r ( ) \r C O N J U G
0003540 A T E D 1 \r ( I 0 N U M B
0003560 E R ) \0 / 002 \0 \0 001 @ d 004 ` \0 \0
0003600 360 262 & 277 ` \0 \0 037 @ 006 \0 \0 311 \0 021 002
0003620 001 H d I 024 \0 277 022 @ 006 \0 \0 311 002 021 002
0003640 001 H d I 024 002 277 020 \0 N I L \r ( 4 1
0003660 Q C O M P L E X 2 1 Q C O
0003700 M P L E X 1 4 Q 004 003 C O M P
0003720 L E X T Y P E # 5 004 003 C O M
0003740 P L E X T Y P E # ) \r ( ) \r S I
0003760 G N U M D 1 \r ( L ( 0 N U
0004000 M B E R ) ) \0 ( \0 \0 \0 001 @ d j
0004020 360 251 d 005 003 226 d \t \0 \0 221 @ 020 \t \0 \0
0004040 231 @ \t \0 \0 221 k 020 m 377 020 @ d \t \0 \0
0004060 \n \0 \0 020 \0 ( 4 5 Q % % / 4 2
0004100 Q A B S 2 7 Q P L U S P
0004120 2 2 Q R A T I O N A L P 1 4
0004140 Q \ F Z E R O P ) \r N I L \r (
0004160 ) \r R A T I O N A L P D 1 \r (
0004200 L ( 0 N U M B E R ) ) \0 016
0004220 \0 \0 \0 001 @ d 3 221 i 020 004 ` \0 \0 360
0004240 020 \0 N I L \r ( 1 2 Q 004 003 R A T
0004260 I O T Y P E # ) \r ( ) \r L O G E
0004300 Q V D 1 \r ( L ( 0 \ C L :
0004320 L A M B D A . A R G C N T ) )
0004340 \0 G 006 \0 002 \0 e 021 001 \0 H k 021 2 005 J
0004360 d I 363 262 030 277 K 022 021 021 002 I 265 005 m 377
0004400 020 001 I 002 271 272 I 263 031 J 020 a 275 L 265 \r
0004420 M h 032 \ 273 J k 324 Z 260 327 M & 274 260 367
0004440 J I 001 I 002 271 m 377 346 346 260 333 \0 N I L
0004460 \r N I L \r ( ) \r L O G N A N D
0004500 D 1 \r ( L ( 1 I N T E G E R
0004520 2 0 I N T E G E R 1 ) ) \0
0004540 \b \0 \0 \0 002 @ A 345 m 377 346 020 \0 N I L
0004560 \r N I L \r ( ) \r L O G N O R D
0004600 1 \r ( L ( 1 I N T E G E R 2
0004620 0 I N T E G E R 1 ) ) \0 \b
0004640 \0 \0 \0 002 @ A 344 m 377 346 020 \0 N I L \r
0004660 N I L \r ( ) \r L O G A N D C 1
0004700 D 1 \r ( L ( 1 I N T E G E R
0004720 2 0 I N T E G E R 1 ) ) \0
0004740 \b \0 \0 \0 002 @ m 377 346 A 345 020 \0 N I L
0004760 \r N I L \r ( ) \r L O G A N D C 2
0005000 D 1 \r ( L ( 1 I N T E G E
0005020 R 2 0 I N T E G E R 1 ) )
0005040 \0 \b \0 \0 \0 002 @ A m 377 346 345 020 \0 N I
0005060 L \r N I L \r ( ) \r L O G O R C 1
0005100 D 1 \r ( L ( 1 I N T E G E
0005120 R 2 0 I N T E G E R 1 ) )
0005140 \0 \b \0 \0 \0 002 @ m 377 346 A 344 020 \0 N I
0005160 L \r N I L \r ( ) \r L O G O R C 2
0005200 D 1 \r ( L ( 1 I N T E G E
0005220 R 2 0 I N T E G E R 1 ) )
0005240 \0 \b \0 \0 \0 002 @ A m 377 346 344 020 \0 N I
0005260 L \r N I L \r ( ) \r B O O L E D
0005300 1 \r ( L ( 2 I N T E G E R 2
0005320 1 I N T E G E R 1 0 O P
0005340 ) ) \0 251 \0 \0 \0 003 @ d j 360 221 j 020
0005360 k 360 222 m 377 020 @ d l 002 360 221 A 020 l 003
0005400 360 221 B 020 @ d l 004 360 225 277 A m 377 346 020
0005420 l 005 360 224 B m 377 346 020 @ d l 006 360 224 277
0005440 A B 345 020 l \a 360 225 A B \n \0 \0 020 @ d
0005460 l \b 360 224 277 A B 346 020 l \t 360 225 A B \n
0005500 \0 \0 020 @ d l \n 360 226 277 A B \n \0 \0 020
0005520 l \v 360 225 A B \n \0 \0 020 @ d l \f 360 226
0005540 277 A B \n \0 \0 020 l \r 360 225 A B \n \0 \0
0005560 020 @ d l 016 360 226 277 A B \n \0 \0 020 l 017
0005600 360 225 A B \n \0 \0 020 o \0 \0 \0 @ \n \0 \0
0005620 020 \0 ( 2 4 6 Q E R R O R 2 3
0005640 5 Q L O G O R C 2 2 2 3 Q
0005660 L O G O R C 1 2 0 6 Q L O G
0005700 A N D C 2 1 7 4 Q L O G A N
0005720 D C 1 1 5 7 Q L O G N O R
0005740 1 4 5 Q L O G N A N D 1 3 0
0005760 Q L O G E Q V 1 0 3 Q L O
0006000 G I O R ) \r N I L \r ( 2 4 2 Q
0006020 " E l e m e n t i s n o t
0006040 o f t y p e ( m o d 1 6
0006060 ) . " ) \r L O G T E S T D 1 \r
0006100 ( L ( 1 I N T E G E R 2 0
0006120 I N T E G E R 1 ) ) \0 \t \0 \0
0006140 \0 002 @ A 345 j 360 h 360 020 \0 N I L \r N
0006160 I L \r ( ) \r L O G B I T P D 1
0006200 \r ( L ( 1 I N T E G E R 0
0006220 I N D E X ) ) \0 \v \0 \0 \0 002 A
0006240 @ \n \0 \0 k 345 k 360 020 \0 ( 4 R S H
0006260 ) \r N I L \r ( ) \r B Y T E - S I
0006300 Z E D 1 \r ( L ( 0 B Y T E
0006320 S P E C ) ) \0 005 \0 \0 \0 001 @ 002 001
0006340 020 \0 N I L \r N I L \r ( ) \r B Y T
0006360 E - P O S I T I O N D 1 \r ( L
0006400 ( 0 B Y T E S P E C ) ) \0
0006420 006 \0 \0 \0 001 @ 002 002 001 020 \0 N I L \r N
0006440 I L \r ( ) \r L D B - T E S T D
0006460 1 \r ( L ( 1 I N T E G E R
0006500 0 B Y T E S P E C ) ) \0 \v \0
0006520 \0 \0 002 @ A \n \0 \0 j 360 h 360 020 \0 ( 4
0006540 M A S K - F I E L D ) \r N I L
0006560 \r ( ) \r M A S K - F I E L D D
0006600 1 \r ( L ( 1 I N T E G E R
0006620 0 B Y T E S P E C ) ) \0 026 002
0006640 \0 \0 002 @ 002 002 001 @ 002 001 021 002 001 k I 347
0006660 k 331 H 347 022 A 345 020 \0 N I L \r N I L
0006700 \r ( ) \r D E P O S I T - F I E L
0006720 D D 1 \r ( L ( 2 I N T E G
0006740 E R 1 B Y T E S P E C 0
0006760 N E W B Y T E ) ) \0 # 003 \0 \0 003
0007000 @ A 002 002 001 A 002 001 021 003 002 H k J 347 k
0007020 331 I 347 m 377 346 345 B k J 347 k 331 345 I 347
0007040 344 020 \0 N I L \r N I L \r ( ) \r ( P
0007060 R E T T Y C O M P R I N T C M
0007100 L A R I T H C O M S ) \r ( R P A
0007120 Q Q C M L A R I T H C O M S
0007140 ( ( R E C O R D S R A T I O
0007160 C O M P L E X ) ( F N S P L
0007200 U S P ) ( * M I N U S P O
0007220 D D P E V E N P a r e c l
0007240 o s e e n o u g h ) ( F N S
0007260 = \r / = < > < = > =
0007300 ) ( M A C R O S = / = <
0007320 > < = > = ) ( F N S %
0007340 % = ) ( M A C R O S = ) (
0007360 * M A X a n d M I N a r
0007400 e O K ) ( P ( M O V D (
0007420 Q U O T E \r P L U S ) ( Q U
0007440 O T E + ) ) ( M O V D ( Q
0007460 U O T E T I M E S ) ( Q U O
0007500 T E C L : * ) ) ) ( P R O P
0007520 D M A C R O + C L : * )
0007540 ( F N S - / % % / ) ( P
0007560 R O P D M A C R O - \r / )
0007600 ( F N S 1 + 1 - ) ( M A
0007620 C R O S 1 + 1 - ) ( F N S
0007640 C O N J U G A T E S I G N U
0007660 M R A T I O N A L P L O G E
0007700 Q V L O G N A N D L O G N O
0007720 R L O G A N D C 1 L O G A N
0007740 D C 2 \r L O G O R C 1 L O G
0007760 O R C 2 B O O L E L O G T E
0010000 S T L O G B I T P B Y T E -
0010020 S I Z E B Y T E - P O S I T I
0010040 O N L D B - T E S T M A S K
0010060 - F I E L D D E P O S I T - F
0010100 I E L D ) ( P ( \r M O V D
0010120 ( Q U O T E I N T E G E R L E
0010140 N G T H ) ( Q U O T E I N T
0010160 E G E R - L E N G T H ) ) ) (
0010200 D E C L A R E : D O N T E V A
0010220 L @ L O A D D O E V A L @ C O
0010240 M P I L E D O N T C O P Y \r
0010260 C O M P I L E R V A R S ( A D
0010300 D V A R S ( N L A M A ) ( N
0010320 L A M L ) ( L A M A L O G E
0010340 Q V / - > = < = > <
0010360 / = = ) ) ) ) ) \r ( D A T A
0010400 T Y P E R A T I O ( N U M E
0010420 R A T O R D E N O M I N A T O
0010440 R ) ) \r ( D E F S T R U C T (
0010460 C O M P L E X ( : C O N C - N
0010500 A M E N I L ) ( : C O N S T
0010520 R U C T O R C O M P L E X )
0010540 ( : P R E D I C A T E C O M P
0010560 L E X P ) ) R E A L P A R T
0010600 I M A G P A R T ) \r ( / D E C L
0010620 A R E D A T A T Y P E ( Q U O
0010640 T E R A T I O ) ( Q U O T E
0010660 ( P O I N T E R P O I N T E
0010700 R ) ) ( Q U O T E ( ( R A T
0010720 I O 0 P O I N T E R ) ( R
0010740 A T I O 2 P O I N T E R ) )
0010760 \r ) ( Q U O T E 4 ) ) \r ( /
0011000 D E C L A R E D A T A T Y P E
0011020 ( Q U O T E C O M P L E X )
0011040 ( Q U O T E ( P O I N T E R
0011060 P O I N T E R ) ) ( Q U O T E
0011100 ( ( C O M P L E X 0 P O I
0011120 N T E R ) ( C O M P L E X 2
0011140 \r P O I N T E R ) ) ) ( Q U
0011160 O T E 4 ) ) \r ( P U T P R O P
0011200 S = D M A C R O ( D E F M
0011220 A C R O ( N & R E S T N S
0011240 ) ( C O N D ( ( C D R N S
0011260 ) ( B Q U O T E ( ( O P E N
0011300 L A M B D A ( N ) ( A N D
0011320 ( = N ( \ , ( C A R \r N
0011340 S ) ) ) ( = N ( \ , @ (
0011360 C D R N S ) ) ) ) ) , N )
0011400 ) ) ( T ( B Q U O T E ( %
0011420 % = ( \ , N ) ( \ , ( C
0011440 A R N S ) ) ) ) ) ) ) ) \r ( P
0011460 U T P R O P S / = D M A C R
0011500 O ( D E F M A C R O ( N &
0011520 R E S T N S ) ( C O N D (
0011540 N S ( I F ( C D R N S )
0011560 T H E N ( L E T ( ( V A R S
0011600 ( F O R X I N ( C O N S
0011620 N \r N S ) C O L L E C T
0011640 ( L I S T ( G E N S Y M ( Q
0011660 U O T E / = ) ) X ) ) ) )
0011700 ( B Q U O T E ( ( O P E N L A
0011720 M B D A ( \ , ( M A P C A R
0011740 V A R S ( Q U O T E C A R
0011760 ) ) ) ( A N D ( \r \ , @ (
0012000 f o r X o n V A R S j o
0012020 i n ( f o r Y o n ( C D
0012040 R V A R S ) c o l l e c t
0012060 ( B Q U O T E ( N O T ( =
0012100 ( \ , ( C A A R X ) ) ( \
0012120 , ( C A A R Y ) ) ) ) ) ) )
0012140 ) \r ) ) ( \ , @ ( M A P C A
0012160 R V A R S ( Q U O T E C A
0012200 D R ) ) ) ) ) ) E L S E ( B
0012220 Q U O T E ( N O T ( = ,
0012240 N , ( C A R N S ) ) ) ) )
0012260 ) ( T T ) ) ) ) \r ( P U T P
0012300 R O P S < D M A C R O ( D
0012320 E F M A C R O ( N & R E S T
0012340 N S ) ( C O N D ( ( N U L
0012360 L N S ) T ) ( ( C D R N
0012400 S ) ( L E T ( ( V A R S (
0012420 F O R X I N ( C O N S N
0012440 \r N S ) C O L L E C T ( L
0012460 I S T ( G E N S Y M ( Q U O
0012500 T E / = ) ) X ) ) ) ) ( B
0012520 Q U O T E ( ( O P E N L A M B
0012540 D A ( \ , ( M A P C A R V
0012560 A R S ( Q U O T E C A R ) )
0012600 ) ( A N D ( \r \ , @ ( f o
0012620 r X o n V A R S w h i l
0012640 e ( C D R X ) c o l l e c
0012660 t ( B Q U O T E ( L E S S P
0012700 ( \ , ( C A A R X ) ) (
0012720 \ , ( C A A D R X ) ) ) ) )
0012740 ) ) ) ( \ , @ ( \r M A P C A
0012760 R V A R S ( Q U O T E C A
0013000 D R ) ) ) ) ) ) ) ( T ( B Q
0013020 U O T E ( L E S S P ( \ ,
0013040 N ) ( \ , ( C A R N S ) )
0013060 ) ) ) ) ) ) \r ( P U T P R O P S
0013100 > D M A C R O ( D E F M A
0013120 C R O ( N & R E S T N S )
0013140 ( C O N D ( ( N U L L N S
0013160 ) T ) ( ( C D R N S ) (
0013200 L E T ( ( V A R S ( F O R
0013220 X I N ( C O N S N \r N S
0013240 ) C O L L E C T ( L I S T
0013260 ( G E N S Y M ( Q U O T E /
0013300 = ) ) X ) ) ) ) ( B Q U O T
0013320 E ( ( O P E N L A M B D A (
0013340 \ , ( M A P C A R V A R S
0013360 ( Q U O T E C A R ) ) ) ( A
0013400 N D ( \r \ , @ ( f o r X
0013420 o n V A R S w h i l e ( C
0013440 D R X ) c o l l e c t ( B
0013460 Q U O T E ( G R E A T E R P
0013500 ( \ , ( C A A R X ) ) ( \
0013520 , ( C A A D R X ) ) ) ) ) )
0013540 ) ) ( \ , @ ( \r M A P C A R
0013560 V A R S ( Q U O T E C A D
0013600 R ) ) ) ) ) ) ) ( T ( B Q U
0013620 O T E ( G R E A T E R P ( \
0013640 , N ) ( \ , ( C A R N S
0013660 ) ) ) ) ) ) ) ) \r ( P U T P R O
0013700 P S < = D M A C R O ( D E
0013720 F M A C R O ( N & R E S T
0013740 N S ) ( C O N D ( ( N U L L
0013760 N S ) T ) ( ( C D R N S
0014000 ) ( L E T ( ( V A R S ( F
0014020 O R X I N ( C O N S N \r
0014040 N S ) C O L L E C T ( L I
0014060 S T ( G E N S Y M ( Q U O T
0014100 E / = ) ) X ) ) ) ) ( B Q
0014120 U O T E ( ( O P E N L A M B D
0014140 A ( \ , ( M A P C A R V A
0014160 R S ( Q U O T E C A R ) ) )
0014200 ( A N D \r ( \ , @ ( f o r
0014220 X o n V A R S w h i l e
0014240 ( C D R X ) c o l l e c t
0014260 ( B Q U O T E ( L E Q ( \
0014300 , ( C A A R X ) ) ( \ ,
0014320 ( C A A D R X ) ) ) ) ) ) ) )
0014340 ( \ , @ ( M A P C A R \r V
0014360 A R S ( Q U O T E C A D R )
0014400 ) ) ) ) ) ) ( T ( B Q U O T
0014420 E ( L E Q ( \ , N ) ( \
0014440 , ( C A R N S ) ) ) ) ) ) )
0014460 ) \r ( P U T P R O P S > = D
0014500 M A C R O ( D E F M A C R O
0014520 ( N & R E S T N S ) ( C O
0014540 N D ( ( N U L L N S ) T )
0014560 ( ( C D R N S ) ( L E T
0014600 ( ( V A R S ( F O R X I N
0014620 ( C O N S N \r N S ) C O
0014640 L L E C T ( L I S T ( G E N
0014660 S Y M ( Q U O T E / = ) )
0014700 X ) ) ) ) ( B Q U O T E ( (
0014720 O P E N L A M B D A ( \ , (
0014740 M A P C A R V A R S ( Q U O
0014760 T E C A R ) ) ) ( A N D \r
0015000 ( \ , @ ( f o r X o n V
0015020 A R S w h i l e ( C D R X
0015040 ) c o l l e c t ( B Q U O T
0015060 E ( G E Q ( \ , ( C A A R
0015100 X ) ) ( \ , ( C A A D R
0015120 X ) ) ) ) ) ) ) ) ( \ , @ (
0015140 M A P C A R \r V A R S ( Q U
0015160 O T E C A D R ) ) ) ) ) ) )
0015200 ( T ( B Q U O T E ( G E Q
0015220 ( \ , N ) ( \ , ( C A R
0015240 N S ) ) ) ) ) ) ) ) \r ( P U T P
0015260 R O P S = D M A C R O ( D
0015300 E F M A C R O ( N & R E S T
0015320 N S ) ( C O N D ( ( C D R
0015340 N S ) ( B Q U O T E ( ( O
0015360 P E N L A M B D A ( N ) ( A
0015400 N D ( = N ( \ , ( C A R
0015420 \r N S ) ) ) ( = N ( \ ,
0015440 @ ( C D R N S ) ) ) ) ) ,
0015460 N ) ) ) ( T ( B Q U O T E
0015500 ( % % = ( \ , N ) ( \ ,
0015520 ( C A R N S ) ) ) ) ) ) ) )
0015540 \r ( M O V D ( Q U O T E P L
0015560 U S ) ( Q U O T E + ) ) \r (
0015600 M O V D ( Q U O T E T I M E
0015620 S ) ( Q U O T E C L : * ) )
0015640 \r ( P U T P R O P S + D M A
0015660 C R O ( = . P L U S ) ) \r
0015700 ( P U T P R O P S C L : * D
0015720 M A C R O ( = . T I M E S
0015740 ) ) \r ( P U T P R O P S - D
0015760 M A C R O ( D E F M A C R O
0016000 ( N U M B E R & R E S T N U
0016020 M B E R S ) ( I F ( N U L L
0016040 N U M B E R S ) T H E N (
0016060 B Q U O T E ( D I F F E R E N
0016100 C E 0 ( \ , \r N U M B E R
0016120 ) ) ) E L S E ( F O R X
0016140 I N N U M B E R S D O ( S
0016160 E T Q N U M B E R ( B Q U O
0016200 T E ( D I F F E R E N C E (
0016220 \ , N U M B E R ) ( \ , X
0016240 ) ) ) ) F I N A L L Y ( \r R
0016260 E T U R N N U M B E R ) ) ) )
0016300 ) \r ( P U T P R O P S / D M
0016320 A C R O ( D E F M A C R O (
0016340 N U M B E R & R E S T N U M
0016360 B E R S ) ( I F ( N U L L
0016400 N U M B E R S ) T H E N ( B
0016420 Q U O T E ( % % / 0 ( \ ,
0016440 N U M B E R ) \r ) ) E L S E
0016460 ( F O R X I N N U M B E
0016500 R S D O ( S E T Q N U M B
0016520 E R ( B Q U O T E ( % % /
0016540 ( \ , N U M B E R ) ( \ ,
0016560 X ) ) ) ) F I N A L L Y ( R
0016600 E T U R N N U M B E R ) ) ) \r
0016620 ) ) \r ( P U T P R O P S 1 +
0016640 D M A C R O ( ( X ) ( P L U
0016660 S X 1 ) ) ) \r ( P U T P R O
0016700 P S 1 - D M A C R O ( ( X
0016720 ) ( D I F F E R E N C E X
0016740 1 ) ) ) \r ( M O V D ( Q U O T
0016760 E I N T E G E R L E N G T H )
0017000 ( Q U O T E I N T E G E R -
0017020 L E N G T H ) ) \r ( P U T P R O
0017040 P S C M L A R I T H C O P Y
0017060 R I G H T ( " X e r o x C o
0017100 r p o r a t i o n " 1 9 8 5
0017120 1 9 8 6 ) ) \r N I L \r
0017133