$ 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