$ od -c -N 50000 [phylum]<LispLibrary>Koto>CMLSTREAMS.DCOM!1 0000000 ( F I L E C R E A T E D " 3 0000020 - F e b - 8 6 2 1 : 5 9 : 3 6 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 S T R 0000120 E A M S . ; 3 ) \r " 2 2 - J a 0000140 n - 8 6 1 8 : 5 9 : 5 5 " r 0000160 e c o m p i l e d c h a n g e 0000200 s : F O R M A T F R E S H - 0000220 L I N E Y - O R - N - P i n 0000240 " X e r o x L i s p 2 2 - 0000260 J a n - 8 6 . . . " \r d a t 0000300 e d " 2 2 - J a n - 8 6 1 9 0000320 : 1 4 : 1 5 " ) \r ( F I L E C R 0000340 E A T E D " 3 - F e b - 8 6 0000360 2 1 : 5 9 : 0 9 " { E R I S 0000400 } < L I S P C O R E > L I B R A 0000420 R Y > C M L S T R E A M S . ; 3 0000440 2 7 9 8 c h a n g e s t o 0000460 : ( V A R S \r C M L S T R E 0000500 A M S C O M S * Q U E R Y - I 0000520 O * ) ( F N S F R E S H - L 0000540 I N E F O R M A T Y - O R - 0000560 N - P ) p r e v i o u s d a 0000600 t e : " 1 - A u g - 8 5 2 0000620 1 : 5 7 : 5 0 " \r { E R I S } 0000640 < L I S P C O R E > L I B R A R 0000660 Y > C M L S T R E A M S . ; 2 ) 0000700 \r F O R M A T D 1 \r ( L ( 0 0000720 \ C L : L A M B D A . A R G C 0000740 N T ) P 3 A R G U M E N T 0000760 S P 2 F O R M A T - S T R 0001000 I N G P 1 S T R E A M ) 0001020 \0 R \t \0 002 \0 e 021 001 \0 l 002 H 361 230 o 0001040 \0 \0 \0 H \n \0 \0 277 @ A 021 022 003 H l 003 0001060 021 2 \b M d L 363 262 023 277 N 022 273 J \t \0 0001100 \0 h g \0 \0 K \v \0 \0 020 a _ 020 277 O 016 0001120 265 017 O 020 h 032 _ 016 276 M k 324 ] 260 327 O 0001140 020 & _ 016 277 260 364 \0 ( 6 2 Q C L : 0001160 M A P 5 2 Q P R I N 1 2 0 0001200 Q E R R O R ) \r ( 5 6 Q P R 0001220 I N 1 ) \r ( 1 4 Q " T o o 0001240 f e w a r g s " ) \r F R E S H 0001260 - L I N E D 1 \r ( L ( 0 \ 0001300 C L : L A M B D A . A R G C N T 0001320 ) P 1 O U T P U T - S T R 0001340 E A M ) \0 ! 002 \0 002 \0 e 021 001 \0 H 0001360 k 361 230 o \0 \0 \0 H \n \0 \0 277 k H 361 221 0001400 h 200 @ 021 001 001 I \t \0 \0 020 \0 ( 3 6 Q 0001420 T E R P R I 1 7 Q E R R O 0001440 R ) \r N I L \r ( 1 3 Q " T o 0001460 o m a n y a r g s " ) \r W R 0001500 I T E - S T R I N G D 1 \r ( L 0001520 ( 0 \ C L : L A M B D A . A 0001540 R G C N T ) P 1 0 Q E N D 0001560 P 5 S T A R T P 2 S 0001600 T R E A M P 1 S T R I N G 0001620 F 1 1 Q * S T A N D A R D 0001640 - O U T P U T * ) \0 q \t 001 002 \0 0001660 e 021 001 \0 @ 021 a \a l 002 H 361 222 W 022 200 0001700 A 272 H l 003 274 273 L d K 363 226 277 h 265 027 0001720 j 260 025 a g \0 \0 360 224 L k 330 260 362 L l 0001740 002 324 \ 260 345 a 275 H l 003 _ 016 277 276 O 016 0001760 d N 363 231 277 h 265 035 I \t \0 \0 260 030 a g 0002000 \0 \0 360 225 O 016 k 330 260 356 O 016 l 002 324 _ 0002020 016 260 337 a 021 001 \b I J M O 020 \f \0 \0 020 0002040 \0 ( 1 5 6 Q W R I T E - S T R 0002060 I N G * 1 1 3 Q C L : L E N 0002100 G T H ) \r ( 1 2 1 Q : E N D 0002120 4 6 Q : S T A R T ) \r ( ) \r W 0002140 R I T E - S T R I N G * D 1 \r 0002160 ( L ( 0 \ C L : L A M B D A 0002200 . A R G C N T ) P 4 E N D 0002220 P 3 S T A R T P 2 S 0002240 T R E A M P 1 S T R I N G 0002260 F 5 * S T A N D A R D - O 0002300 U T P U T * ) \0 6 005 001 002 \0 e 021 0002320 001 \0 @ 021 ! 003 l 002 H 361 221 U 200 A 272 l 0002340 003 H 361 221 j 200 B 273 l 004 H 361 224 I \t \0 0002360 \0 200 C 021 001 004 I K k 330 L \v \0 \0 J \n 0002400 \0 \0 020 \0 ( 6 3 Q P R I N 3 5 0002420 7 Q S U B S T R I N G 4 2 Q 0002440 C L : L E N G T H ) \r N I L \r 0002460 ( ) \r Y - O R - N - P D 1 \r ( 0002500 L ( 0 \ C L : L A M B D A . 0002520 A R G C N T ) P 1 1 Q C N 0002540 T P 1 0 Q F N P 2 A 0002560 R G U M E N T S P 1 F O R 0002600 M A T - S T R I N G F 1 2 Q 0002620 * Q U E R Y - I O * ) \0 x \n 0002640 001 002 \0 e 021 001 \0 k H 361 221 h 200 @ 021 021 0002660 002 H l 002 021 2 \a L d K 363 262 033 277 M 022 0002700 272 I 262 K \b \0 \0 277 g \0 \0 l 002 021 002 \t 0002720 W 024 I J 260 0 a _ 016 277 N 265 016 O 016 h 0002740 032 ^ 275 L k 324 \ 260 321 O 016 & 276 260 366 d 0002760 001 375 002 O 022 k 330 _ 022 l P 361 226 h l 4 0003000 \n \0 \0 277 003 265 352 O 022 O 020 016 023 W 024 \t 0003020 \0 \0 o \0 \0 \0 \n \0 \0 020 \0 ( 1 6 5 Q 0003040 M E M Q 1 5 6 Q R E A D 0003060 1 3 7 Q \ L I S P E R R O R 0003100 4 3 Q F R E S H - L I N E ) \r 0003120 ( 4 7 Q F O R M A T ) \r ( 1 0003140 6 2 Q ( Y Y E S ) ) \r ( P R 0003160 E T T Y C O M P R I N T C M L 0003200 S T R E A M S C O M S ) \r ( R P 0003220 A Q Q C M L S T R E A M S C O 0003240 M S ( ( V A R S * Q U E R Y 0003260 - I O * * S T A N D A R D - O 0003300 U T P U T * ) ( F N S F O R 0003320 M A T F R E S H - L I N E W 0003340 R I T E - S T R I N G \r W R I 0003360 T E - S T R I N G * Y - O R - 0003400 N - P ) ( D E C L A R E : D 0003420 O N T E V A L @ L O A D D O E 0003440 V A L @ C O M P I L E D O N T 0003460 C O P Y C O M P I L E R V A R 0003500 S ( A D D V A R S ( N L A M 0003520 A ) \r ( N L A M L ) ( L A M 0003540 A W R I T E - S T R I N G * 0003560 W R I T E - S T R I N G ) ) ) ) 0003600 ) \r ( R P A Q Q * Q U E R Y - 0003620 I O * N I L ) \r ( R P A Q Q 0003640 * S T A N D A R D - O U T P U T 0003660 * T ) \r ( P R E T T Y C O M P 0003700 R I N T C M L S T R E A M S C 0003720 O M S ) \r ( R P A Q Q C M L S 0003740 T R E A M S C O M S ( ( V A R 0003760 S * Q U E R Y - I O * * S T 0004000 A N D A R D - O U T P U T * ) 0004020 ( F N S F O R M A T F R E S 0004040 H - L I N E W R I T E - S T R 0004060 I N G \r W R I T E - S T R I N 0004100 G * Y - O R - N - P ) ( D E 0004120 C L A R E : D O N T E V A L @ 0004140 L O A D D O E V A L @ C O M P 0004160 I L E D O N T C O P Y C O M 0004200 P I L E R V A R S ( A D D V A 0004220 R S ( N L A M A ) \r ( N L A 0004240 M L ) ( L A M A Y - O R - N 0004260 - P W R I T E - S T R I N G * 0004300 W R I T E - S T R I N G F R 0004320 E S H - L I N E F O R M A T ) 0004340 ) ) ) ) \r ( P U T P R O P S C 0004360 M L S T R E A M S C O P Y R I 0004400 G H T ( " X e r o x C o r p 0004420 o r a t i o n " 1 9 8 5 1 9 0004440 8 6 ) ) \r N I L \r 0004451