$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>LSET.TEDIT!2 0000000 X E R O X \t L S E T \r 2 \r \r 4 \r 0000020 \r 1 \r \r L S E T \r 1 \r \r 4 \r \r B 0000040 y : K e l l y R o a c h 0000060 ( R o a c h . p a @ X e r o x . 0000100 c o m ) \r \r L i s t S E T s 0000120 \r L S E T c o n t a i n s 0000140 f u n c t i o n s f o r o p 0000160 e r a t i n g o n s e t s 0000200 a n d b a g s i m p l e m e 0000220 n t e d a s l i s t s . \r S 0000240 e t o p e r a t i o n s l i 0000260 k e L U N I O N c o m e s 0000300 i n s e v e r a l f l a v o 0000320 r s . \r L U N I O N \t \t \t \t \t \t 0000340 \t \t \t \t [ O p e r a t i o n ] \r 0000360 t a k e s m u l t i p l e a 0000400 r g u m e n t s a n d u s e 0000420 s E Q U A L \r L U N I O N 2 \t 0000440 \t \t \t \t \t \t \t \t \t [ O p e r a t 0000460 i o n ] \r t a k e s 2 a r g 0000500 u m e n t s a n d u s e s 0000520 E Q U A L \r L U N I O N Q \t \t \t 0000540 \t \t \t \t \t \t \t [ O p e r a t i o 0000560 n ] \r t a k e s m u l t i p l 0000600 e a r g u m e n t s a n d 0000620 u s e s E Q \r L U N I O N Q 2 0000640 \t \t \t \t \t \t \t \t \t \t [ O p e r a 0000660 t i o n ] \r t a k e s 2 a r 0000700 g u m e n t s a n d u s e s 0000720 E Q \r S e t o p e r a t i o 0000740 n s , w h i c h d o t e s 0000760 t s w i t h E Q U A L , a 0001000 s s u m e t h a t t h e a 0001020 r g s t h a t a r e p a s 0001040 s e d t o t h e m a r e 0001060 i n L S E T I F Y f o r m - 0001100 - t h a t i s , t h e r e 0001120 a r e n o E Q U A L d u 0001140 p l i c a t e s w i t h i n 0001160 a n y a r g . S e t o p 0001200 e r a t i o n s , w h i c h 0001220 d o t e s t s w i t h E Q 0001240 , a s s u m e t h a t t h 0001260 e a r g s t h a t a r e 0001300 p a s s e d t o t h e m a 0001320 r e i n L S E T I F Y Q f 0001340 o r m - - t h e r e a r e n 0001360 o E Q d u p l i c a t e s 0001400 w i t h i n a n y a r g . 0001420 I t i s n ' t n e c e s s 0001440 a r y t h a t t h e u s e 0001460 r c a l l L S E T I F Y o 0001500 r L S E T I F Y Q , i f t 0001520 h e u s e r c a n g u a r 0001540 a n t e e t h a t t h e a 0001560 r g s t o L U N I O N , e 0001600 t c . d o n o t h a v e 0001620 E Q U A L o r E Q d u p l 0001640 i c a t e s r e s p e c t i v 0001660 e l y . \r B a s i c s e t o 0001700 p e r a t i o n s : \r U N I O N 0001720 : L U N I O N , 0001740 L U N I O N Q , L U N I O N 0001760 2 , L U N I O N Q 2 \r I N T E 0002000 R S E C T : L I N T E R 0002020 S E C T , L I N T E R S E C T 0002040 Q , L I N T E R S E C T 2 , 0002060 L I N T E R S E C T Q 2 \r S U 0002100 B T R A C T : L S U B 0002120 T R A C T , L S U B T R A C T 0002140 Q , L S U B T R A C T 2 , L 0002160 S U B T R A C T Q 2 \r M i s c e 0002200 l l a n e o u s u s e f u l 0002220 s e t f u n c t i o n s : \r ( 0002240 L U N I F Y E L ) \t R e t u 0002260 r n s L U N I O N o f L 0002300 a n d ( L I S T E ) . \r ( L 0002320 U N I F Y Q E L ) \t R e t u 0002340 r n s L U N I O N Q o f L 0002360 a n d ( L I S T E ) . \r ( 0002400 L D E L E T E E L ) \t R e t 0002420 u r n s L S U B T R A C T o 0002440 f L a n d ( L I S T E ) 0002460 . \r ( L D E L E T E Q E L ) 0002500 \t R e t u r n s L S U B T R A 0002520 C T Q o f L a n d ( L I 0002540 S T E ) . \r ( L S E T I F Y 0002560 L ) \t R e t u r n s L w i t 0002600 h a l l E Q U A L d u p l 0002620 i c a t e s d e l e t e d . \r 0002640 ( L S E T I F Y Q L ) \t R e t 0002660 u r n s L w i t h a l l 0002700 E Q d u p l i c a t e s d e 0002720 l e t e d . \r ( L S E T P L ) 0002740 \t R e t u r n s T i f L 0002760 i s a n E Q U A L s e t . 0003000 \r ( L S E T Q P L ) \t R e t u 0003020 r n s T i f L i s a n 0003040 E Q s e t . \r ( L S U B S E 0003060 T X Y ) \t R e t u r n s T 0003100 i f f X i s a s u b s 0003120 e t o f Y . \r ( L S U B S E 0003140 T Q X Y ) S i m i l a r 0003160 t o L S U B S E T b u t 0003200 u s e s E Q . \r ( L E Q U A L 0003220 X Y ) \t R e t u r n s T 0003240 i f f X e q u a l s Y . \r 0003260 ( L E Q U A L Q X Y ) \t R e 0003300 t u r n s T i f f X e q 0003320 u a l s Y u s i n g E Q . 0003340 \r B a g s ( a l s o k n o w 0003360 n a s m u l t i s e t s ) 0003400 a r e u n o r d e r e d l i 0003420 s t s s i m i l a r t o s 0003440 e t s , b u t e l e m e n t 0003460 s o f b a g s m a y a p 0003500 p e a r m o r e t h a n o 0003520 n c e i n s i d e t h e s 0003540 a m e b a g . T h u s , 0003560 ( X Y X A A ) a n d 0003600 ( A X Y X A ) r e p r 0003620 e s e n t t h e s a m e b 0003640 a g c o n t a i n i n g 2 0003660 o c c u r e n c e s o f A , 0003700 2 o c c u r e n c e s o f 0003720 X , a n d 1 o c c u r e 0003740 n c e o f Y . T h e r e 0003760 a r e n o B B A G I F Y o 0004000 r B B A G I F Y Q f u n c t 0004020 i o n s s i m i l a r t o 0004040 L S E T I F Y a n d L S E T 0004060 I F Y Q s i n c e a l l f 0004100 i n i t e u n d o t t e d l 0004120 i s t s a r e a l r e a d y 0004140 b a g s . \r B a s i c b a g 0004160 o p e r a t i o n s : \r U N I 0004200 O N : \t B U N I O N , B U N I 0004220 O N Q , B U N I O N 2 , B U 0004240 N I O N Q 2 \r I N T E R S E C T 0004260 : \t B I N T E R S E C T , B I 0004300 N T E R S E C T Q , B I N T E 0004320 R S E C T 2 , B I N T E R S E 0004340 C T Q 2 \r S U B T R A C T : \t 0004360 B S U B T R A C T , B S U B T 0004400 R A C T Q , B S U B T R A C T 0004420 2 , B S U B T R A C T Q 2 \r M 0004440 i s c e l l a n e o u s u s e 0004460 f u l b a g f u n c t i o n 0004500 s : \r ( B U N I F Y E L ) \t 0004520 R e t u r n s B U N I O N o 0004540 f L a n d ( L I S T E ) 0004560 . \r ( B U N I F Y Q E L ) \t 0004600 R e t u r n s B U N I O N Q 0004620 o f L a n d ( L I S T E 0004640 ) . \r ( B S U B B A G X Y ) 0004660 \t R e t u r n s T i f f X 0004700 i s a s u b b a g o f 0004720 Y . \r ( B S U B B A G Q X Y 0004740 ) S i m i l a r t o B S U 0004760 B B A G b u t u s e s E Q 0005000 . \r ( B E Q U A L X Y ) \t R 0005020 e t u r n s T i f f X e 0005040 q u a l s Y . \r ( B E Q U A L 0005060 Q X Y ) R e t u r n s T 0005100 i f f X e q u a l s Y 0005120 u s i n g E Q . \0 \0 \0 \0 \0 003 ( 0005140 L I S T ( ( P A G E N I L 0005160 ( P A P E R S I Z E L e t t e 0005200 r F O L I O I N F O ( A R A 0005220 B I C ) S T A R T I N G P 0005240 A G E # 1 ) ( 0 0 6 1 2 0005260 7 9 2 ) ( ( F O L I O N I 0005300 L ( P A R A L O O K S ( Q U 0005320 A D C E N T E R E D ) C H A 0005340 R L O O K S ( S U P E R S C R 0005360 I P T 0 I N V I S I B L E 0005400 O F F S E L E C T P O I N T 0005420 O F F P R O T E C T E D O F 0005440 F S I Z E 1 0 F A M I L Y 0005460 M O D E R N O V E R L I N E 0005500 O F F S T R I K E O U T O 0005520 F F U N D E R L I N E O F F 0005540 E X P A N S I O N R E G U L 0005560 A R S L O P E R E G U L A R 0005600 W E I G H T M E D I U M I 0005620 N V E R T E D O F F U S E R 0005640 I N F O N I L S T Y L E N 0005660 I L ) F O R M A T I N F O ( 0005700 A R A B I C ) ) ( 1 7 4 0005720 3 6 2 8 8 3 6 ) N I L ) 0005740 ( H E A D I N G N I L ( H E 0005760 A D I N G T Y P E R U N N I N 0006000 G H E A D ) ( 8 4 7 4 4 5 0006020 2 8 3 6 ) N I L ) ( T E X 0006040 T N I L N I L ( 8 4 9 6 0006060 4 5 6 6 0 0 ) N I L ) ) ) 0006100 ( P A G E N I L ( P A P E 0006120 R S I Z E L e t t e r F O L 0006140 I O I N F O ( A R A B I C 0006160 ) ) ( 0 0 6 1 2 7 9 2 ) 0006200 ( ( F O L I O N I L ( P A 0006220 R A L O O K S ( Q U A D C E 0006240 N T E R E D ) C H A R L O O K 0006260 S ( S U P E R S C R I P T 0 0006300 I N V I S I B L E O F F S 0006320 E L E C T P O I N T O F F P 0006340 R O T E C T E D O F F S I Z 0006360 E 1 0 F A M I L Y M O D E 0006400 R N O V E R L I N E O F F 0006420 S T R I K E O U T O F F U N 0006440 D E R L I N E O F F E X P A 0006460 N S I O N R E G U L A R S L 0006500 O P E R E G U L A R W E I G 0006520 H T M E D I U M I N V E R T 0006540 E D O F F U S E R I N F O 0006560 N I L S T Y L E N I L ) F 0006600 O R M A T I N F O ( A R A B I 0006620 C ) ) ( 1 7 4 3 6 2 8 0006640 8 3 6 ) N I L ) ( H E A D 0006660 I N G N I L ( H E A D I N G 0006700 T Y P E R U N N I N G H E A D 0006720 ) ( 8 4 7 4 4 5 2 8 3 6 0006740 ) N I L ) ( T E X T N I L 0006760 N I L ( 8 4 9 6 4 5 6 0007000 6 0 0 ) N I L ) ) ) ( P A G 0007020 E N I L ( P A P E R S I Z E 0007040 L e t t e r F O L I O I N F 0007060 O ( A R A B I C ) ) ( 0 0007100 0 6 1 2 7 9 2 ) ( ( F O 0007120 L I O N I L ( P A R A L O O 0007140 K S ( Q U A D C E N T E R E 0007160 D ) C H A R L O O K S ( S U 0007200 P E R S C R I P T 0 I N V I 0007220 S I B L E O F F S E L E C T 0007240 P O I N T O F F P R O T E C 0007260 T E D O F F S I Z E 1 0 0007300 F A M I L Y M O D E R N O V 0007320 E R L I N E O F F S T R I K 0007340 E O U T O F F U N D E R L I 0007360 N E O F F E X P A N S I O N 0007400 R E G U L A R S L O P E R 0007420 E G U L A R W E I G H T M E 0007440 D I U M I N V E R T E D O F 0007460 F U S E R I N F O N I L S 0007500 T Y L E N I L ) F O R M A T 0007520 I N F O ( A R A B I C ) ) 0007540 ( 1 7 4 3 6 2 8 8 3 6 ) 0007560 N I L ) ( H E A D I N G N 0007600 I L ( H E A D I N G T Y P E 0007620 R U N N I N G H E A D ) ( 8 4 0007640 7 4 4 5 2 8 3 6 ) N I L 0007660 ) ( T E X T N I L N I L 0007700 ( 8 4 9 6 4 5 6 6 0 0 ) 0007720 N I L ) ) ) ) ) \0 \0 \0 \0 \0 005 \0 005 0007740 \0 ( \0 \0 \0 \0 001 310 \0 \v \0 \0 \0 004 002 004 0007760 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0010000 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 001 310 0010020 \0 021 \0 \0 \0 004 002 003 \0 \0 \0 \0 \0 \0 \0 \0 0010040 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0010060 \0 ( \0 212 \0 212 001 8 \0 006 \0 \0 \0 004 002 003 0010100 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0010120 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 212 \0 212 001 8 0010140 \0 \0 \0 \0 \0 004 002 004 \0 \0 \0 \0 \0 \0 \0 \0 0010160 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0010200 \0 D \0 \0 \0 \0 001 310 \0 \0 \0 \0 \0 \0 003 004 0010220 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 \v P A 0010240 G E H E A D I N G \0 \v R U N N I 0010260 N G H E A D \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0010300 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 006 \0 024 \0 006 0010320 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 002 \0 0010340 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 0010360 \0 \0 \0 \0 \0 024 \0 006 M O D E R N \0 \f 0010400 \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O D E 0010420 R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 024 \0 006 0010440 M O D E R N \0 006 \0 \0 \0 \0 \0 \0 \0 \0 0010460 \0 022 \0 004 L O G O \0 030 \0 \0 \0 \0 \0 \0 0010500 \0 \0 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 005 \0 \0 0010520 \0 \0 006 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 005 0010540 \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 0010560 002 \0 001 \0 \v H R U L E . G E T F N 0010600 001 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 0010620 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 004 \0 \0 0010640 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R 0010660 U L E . G E T F N 001 \0 024 \0 006 M O 0010700 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0010720 \0 001 \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 004 \0 0010740 \0 \0 002 \0 001 \0 \v H R U L E . G E T 0010760 F N 001 \0 024 \0 006 M O D E R N \0 \n \0 0011000 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 004 0011020 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 005 \0 \0 \0 \0 0011040 003 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 002 \0 001 \0 0011060 \v H R U L E . G E T F N 001 \0 024 \0 0011100 006 M O D E R N \0 \f \0 \0 \0 \0 \0 \0 002 0011120 \0 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 0011140 \0 004 \0 \0 \0 002 \0 001 \0 \v H R U L E . 0011160 G E T F N 001 \0 024 \0 006 M O D E R N 0011200 \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 0011220 \0 \0 003 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 & \0 0011240 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 001 0011260 \0 \0 \0 \0 002 \0 \0 \0 \t \0 \0 \0 \0 001 \0 \0 0011300 \0 003 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 001 \0 0011320 \0 \0 M \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 001 0011340 \0 \0 \0 5 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 0011360 001 \0 \0 \0 034 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 0011400 \0 001 \0 \0 \0 ( \0 \0 \0 \0 002 \0 \0 \0 \0 \0 0011420 002 \0 001 \0 \0 \0 035 \0 \0 \0 \0 002 \0 \0 \0 \0 0011440 \0 002 \0 001 \0 \0 \0 ! \0 \0 \0 \0 002 \0 \0 \0 0011460 \0 \0 002 \0 001 \0 \0 \0 035 \0 \0 \0 \0 002 \0 \0 0011500 \0 \0 \0 002 \0 001 \0 \0 \0 % \0 \0 \0 \0 002 \0 0011520 \0 \0 \0 \0 002 \0 001 \0 \0 \0 036 \0 \0 \0 \0 002 0011540 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 036 \0 \0 \0 \0 0011560 002 \0 \0 \0 \0 \0 002 \0 001 \0 \0 001 341 \0 \0 \0 0011600 \0 002 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 026 \0 \0 0011620 \0 \0 001 \0 \0 \0 260 \0 \0 \0 \0 002 \0 \0 \0 \0 0011640 \0 002 \0 001 \0 \0 \0 $ \0 \0 \0 \0 001 \0 \0 002 0011660 B \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 001 \0 \0 0011700 001 206 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 001 \0 0011720 \0 \0 026 \0 \0 \0 \0 001 \0 \0 \0 242 \0 \0 \0 \0 0011740 002 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 $ \0 \0 \0 0011760 \0 001 \0 \0 001 026 \0 \0 \0 \0 002 \0 \0 \n Y \0 0012000 @ z 272 0012003