$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>Lists.$cheme 0000000 # 001 006 003 005 n u l l ? 003 e q ? 001 x 0000020 021 020 I n t e r p r e t e d C 0000040 o d e 022 \0 017 023 023 001 \a \0 003 037 \b \0 001 0000060 ( 001 $ \0 025 * \a \0 022 001 \a 002 017 024 024 0000100 001 \a 001 002 037 \a \0 003 032 \0 024 \n \0 021 003 0000120 ( x ) \0 \a \0 021 002 ( ) \0 \n # 001 006 002 0000140 004 l i s t 001 x 021 020 I n t e r p 0000160 r e t e d C o d e 022 \0 017 023 023 001 0000200 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * \a \0 0000220 022 001 \a 001 016 023 023 \0 001 037 005 \0 001 \0 * 0000240 021 x R e t u r n a l i s 0000260 t o f t h e a r g u m e n 0000300 t s \0 \a \0 021 002 ( ) \0 \n # 001 006 \v 003 0000320 c d r 005 n u l l ? 005 l i s t * 004 0000340 l o o p 004 c o n s 003 c a r \t p r 0000360 e v - t a i l \b s e t - c d r ! 0000400 004 t a i l 004 r e s t 005 f i r s t 0000420 021 020 I n t e r p r e t e d C 0000440 o d e 022 \0 017 023 023 001 \a 002 003 037 \b \0 001 0000460 ( 001 $ \0 025 * \a 002 022 003 \a \n \a \t \a 0000500 003 016 024 024 004 006 \a 001 \a 001 \a \0 \a 004 \a 005 0000520 \a \0 003 037 / \0 004 032 001 003 022 \v \0 * 0000540 033 034 001 003 003 022 034 035 \0 036 004 001 003 0000560 \n 024 & \0 002 ( 002 & \0 002 002 001 036 005 0000600 001 003 \n 017 \a 003 022 002 \a 006 \a \b 017 027 0000620 002 027 002 004 006 \a 001 \a \0 \a \a \a 005 \a 004 \a 0000640 \0 001 037 ' \0 004 032 033 001 003 003 022 034 034 0000660 \0 035 001 003 004 # 036 004 ! 001 \0 ! 001 001 \n 0000700 ! 001 002 001 036 005 001 003 \n 021 020 ( p r 0000720 e v - t a i l t a i l ) \0 021 W 0000740 ( f i r s t . r e s t ) L 0000760 i k e L I S T , b u t u s 0001000 e l a s t a r g u m e n t 0001020 i n s t e a d o f ( ) a s 0001040 t a i l o f r e s u l t i 0001060 n g l i s t \0 \a 002 021 002 ( ) \0 \n 0001100 # 001 006 021 003 c d r 003 c a r 005 n u l 0001120 l ? 006 a p p e n d 004 l o o p \b s 0001140 e t - c d r ! 004 l i s t 004 c a a 0001160 r 005 f i r s t 004 c d a r 003 e l t 0001200 \b f o r - e a c h 004 r e s t 004 t 0001220 a i l 004 h e a d 005 l i s t s 005 a 0001240 p p l y 021 020 I n t e r p r e t 0001260 e d C o d e 022 \0 017 023 023 001 \a 003 003 0001300 037 \b \0 001 ( 001 $ \0 025 * \a 003 022 004 \a 0001320 017 \a 016 \a \r \a 004 016 023 023 004 \r \a 002 \a 002 0001340 \a 001 \a 020 \a 003 \a \0 \a 002 \a \0 \a 001 \a 006 0001360 \a \a \a \t \a \0 004 004 037 T \0 004 032 \0 003 0001400 022 \n 024 * 033 034 \0 003 003 022 033 035 036 004 036 0001420 005 \0 003 \n 036 006 036 \a \0 003 003 022 * 036 0001440 \b \0 \t 036 \t 036 \n \0 003 003 & \0 001 0001460 001 & \0 002 025 & \0 003 ( 003 & \0 003 003 036 0001500 \v \0 003 036 \f \0 003 004 # 001 * \0 017 0001520 \a 004 022 002 \a \b \a \f 017 027 002 027 002 004 \a 0001540 \a \v \a 002 \a \0 \a 005 \a 001 \a 001 \a \0 002 037 0001560 ) \0 004 032 ( 001 \0 004 # 033 034 001 003 003 0001600 022 033 035 ! 001 002 036 004 001 003 \n ! 001 003 036 0001620 005 001 003 036 006 001 003 \n 021 022 A n o 0001640 n y m o u s f u n c t i o n 022 0001660 001 \a \n 017 024 024 003 \a 005 \a 006 \a \0 002 037 026 0001700 \0 004 032 ! 002 002 033 \0 003 004 # 034 ! 002 002 0001720 003 & 002 002 024 * 036 021 005 ( e l t ) \0 021 0001740 \f ( f i r s t r e s t ) \0 021 ) 0001760 l i s t s A p p e n d a n 0002000 a r b i t r a r y n u m b e r 0002020 o f l i s t s \0 \a 003 021 002 ( ) 0002040 \0 \n # 001 006 \b \b r e v e r s e ! 001 0002060 l 004 l o o p 005 r e v - l \b s e t 0002100 - c d r ! 003 c d r 005 n u l l ? 004 0002120 t a i l 021 020 I n t e r p r e t 0002140 e d C o d e 022 \0 017 023 023 001 \a \0 003 0002160 037 \b \0 001 ( 001 $ \0 025 * \a \0 022 002 \a 0002200 001 \a 002 017 024 024 \0 004 004 037 021 \0 003 024 & \0 0002220 001 ( 002 & \0 001 001 \0 026 \n 017 \a 002 0002240 022 003 \a 001 \a 003 \a \a 017 027 002 027 002 003 \a 006 0002260 \a 005 \a 004 001 037 ! \0 003 032 \0 003 022 \v 0002300 001 * 033 \0 003 & \0 002 034 \0 001 004 # 0002320 ! 001 001 002 \0 \n 021 \t ( l r e v 0002340 - l ) \0 \0 021 003 ( l ) \0 \a \0 021 002 ( 0002360 ) \0 \n # 001 006 006 \t l i s t - t a i 0002400 l 001 x 001 - 003 c d r 005 z e r o ? 001 0002420 k 021 020 I n t e r p r e t e d 0002440 C o d e 022 \0 017 023 023 001 \a \0 003 037 \b \0 0002460 001 ( 001 $ \0 025 * \a \0 022 002 \a 001 \a 005 0002500 017 027 002 027 002 004 004 \a 004 \a \0 \a 003 \a 002 002 0002520 037 026 \0 005 032 001 003 022 \v \0 * 033 034 0002540 \0 003 035 001 024 004 \n 024 021 0 ( x k ) 0002560 s u b l i s t o f x o m 0002600 i t t i n g t h e f i r s t 0002620 k e l e m e n t s \0 \a \0 021 002 0002640 ( ) \0 \n # 001 006 005 \b l i s t - r e 0002660 f \t l i s t - t a i l 003 c a r 001 0002700 k 001 x 021 020 I n t e r p r e t e 0002720 d C o d e 022 \0 017 023 023 001 \a \0 003 037 0002740 \b \0 001 ( 001 $ \0 025 * \a \0 022 002 \a 004 0002760 \a 003 017 027 002 027 002 002 \a 002 \a 001 001 037 \n \0 0003000 004 032 033 \0 001 004 \t 021 036 ( x k ) 0003020 R e t u r n k - t h e l e 0003040 m e n t o f x \0 \a \0 021 002 ( ) 0003060 \0 \n # 001 006 023 003 c d r \t l a s t - 0003100 p a i r \f p r o p e r - l i s t 0003120 ? 004 l o o p 005 n u l l ? 005 p a i 0003140 r ? 001 x 005 f i r s t 003 c a r 005 t 0003160 h u n k 004 f a s t 003 e q ? \b c d 0003200 r - f a s t 004 s l o w 005 a t o m 0003220 ? 003 l s t 005 e r r o r 004 l i s t 0003240 003 n o t 021 020 I n t e r p r e t 0003260 e d C o d e 022 004 \a 017 \a 016 \a 002 \a 0003300 001 017 023 023 004 \t \a 002 \a 001 \a 021 \a \b \a 002 0003320 \a \0 \a \b \a 001 \a \0 004 \n 037 M \0 003 024 $ 0003340 \0 025 $ 001 026 & \0 001 027 & \0 002 030 005 & \0 0003360 003 ( 006 & \0 001 ( \a & \0 002 ( \b & \0 003 0003400 034 002 003 004 & \0 \0 035 \0 003 $ 004 036 0003420 005 \0 003 & \0 \0 036 006 \0 003 $ \a 036 \b 0003440 \0 003 & \0 \0 030 \t * 017 017 017 017 017 \a 0003460 016 022 001 \a 006 017 024 024 002 \a 022 \a 005 001 037 \b 0003500 \0 003 032 033 \0 003 \t 021 003 ( x ) \0 \a 0003520 002 022 003 \a 006 \a \a \a \t 017 024 024 001 \a 004 002 0003540 037 030 \0 002 032 \0 003 & \0 001 ( 001 & \0 002 0003560 001 022 025 001 * 002 \b 021 022 A n o 0003600 n y m o u s f u n c t i o n 022 0003620 001 \a 003 017 023 023 002 \a 005 \a \0 004 004 037 037 \0 0003640 003 032 ! 001 \0 003 022 035 024 & \0 \0 ( 002 & \0 0003660 \0 \0 033 ! 001 \0 003 ! 001 \0 \n 026 * 017 0003700 \a 003 022 005 \a \n \a \r \a \f \a \a \a \t 017 027 0003720 002 027 002 004 004 \a \v \a 004 \a \0 \a 004 004 005 037 0003740 ; \0 003 032 \0 001 004 022 \f 024 * 033 \0 0003760 003 022 024 025 * ! 003 001 \0 003 022 036 026 * 034 0004000 \0 003 & \0 002 035 002 003 & \0 003 ( 004 & 0004020 \0 004 003 022 8 003 * 004 \b 017 016 017 0004040 021 022 A n o n y m o u s f u n c 0004060 t i o n 022 \0 017 023 023 003 \a 005 \a \0 \a \0 0004100 002 037 031 \0 004 032 ! 001 002 003 022 027 ! 002 \0 033 0004120 ! 001 002 003 034 ! 001 001 003 \n 024 * 017 021 002 ( 0004140 ) \0 021 \v ( f a s t s l o w ) \0 0004160 017 021 002 ( ) \0 021 003 ( x ) \0 \a 001 022 0004200 002 \a 006 \a 003 017 024 024 002 \a \0 \a \0 003 037 ! 0004220 \0 003 ! 001 001 032 \0 003 003 022 017 \0 * 024 0004240 & \0 001 ( 002 & \0 001 001 033 \0 003 \0 0004260 \n 017 \a 003 022 003 \a \n \a \r \a \f 017 027 002 0004300 027 002 004 006 \a \0 \a \v \a 020 \a \0 \a \0 \a \0 0004320 003 037 > \0 004 032 \0 003 & \0 002 033 \0 0004340 001 004 022 030 034 024 ! 001 \0 025 \v ! 002 001 002 0004360 003 022 # \0 * ! 002 001 035 002 003 003 022 0 0004400 002 * ! 001 001 036 004 002 003 036 005 001 003 0004420 \n \a 001 021 031 C i r c u l a r l i 0004440 s t n o t a l l o w e d 021 \v 0004460 ( f a s t s l o w ) \0 021 D ( x 0004500 ) R e t u r n t h e l a s 0004520 t p a i r i n t h e n o 0004540 n - e m p t y , p o s s i b l 0004560 y i m p r o p e r , l i s t 0004600 x \0 002 \a 002 \a 001 021 002 ( ) \0 \n # 001 0004620 006 \a 006 m e m b e r 004 l i s t 003 o 0004640 b j 003 c d r 003 c a r 006 e q u a l 0004660 ? 005 n u l l ? 021 020 I n t e r p 0004700 r e t e d C o d e 022 \0 017 023 023 001 0004720 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * \a \0 0004740 022 002 \a 002 \a 001 017 027 002 027 002 004 005 \a 006 \a 0004760 005 \a 004 \a \0 \a 003 002 037 \0 004 032 001 003 0005000 022 \n 024 * 033 \0 034 001 003 004 022 027 001 0005020 * 035 \0 036 004 001 003 \n 017 021 ? ( o b 0005040 j l i s t ) R e t u r n f 0005060 i r s t t a i l o f l i s 0005100 t w h o s e c a r i s e 0005120 q u a l ? t o o b j \0 \a \0 021 0005140 002 ( ) \0 \n # 001 006 \b 005 a s s o c 003 0005160 o b j 005 n u l l ? 004 l i s t 003 c 0005200 d r 003 c a r 004 c a a r 006 e q u a 0005220 l ? 021 020 I n t e r p r e t e d 0005240 C o d e 022 \0 017 023 023 001 \a \0 003 037 \b 0005260 \0 001 ( 001 $ \0 025 * \a \0 022 002 \a 001 \a 0005300 003 017 027 002 027 002 004 006 \a 002 \a \a \a 006 \a 005 0005320 \a \0 \a 004 002 037 " \0 004 032 001 003 022 \n 024 0005340 * 033 \0 034 001 003 004 022 030 035 001 \t 036 0005360 004 \0 036 005 001 003 \n 017 021 ? ( o b j 0005400 l i s t ) R e t u r n f i 0005420 r s t p a i r o n l i s t 0005440 w h o s e c a r i s e q 0005460 u a l ? t o o b j \0 \a \0 021 002 0005500 ( ) \0 \n # 001 006 \t \b p a i r w i s 0005520 e 003 c d r 005 n u l l ? 004 l o o p 0005540 004 a r g s 004 p r e d 001 l 004 c a d 0005560 r 003 c a r 021 020 I n t e r p r e 0005600 t e d C o d e 022 \0 017 023 023 001 \a \0 0005620 003 037 \b \0 001 ( 001 $ \0 025 * \a \0 022 003 0005640 \a 005 \a 004 \a 003 016 024 024 001 \a 002 004 004 037 030 0005660 \0 002 032 001 003 022 \n 024 * 025 & \0 002 ( 003 0005700 & \0 002 002 001 \t 016 017 \a 003 022 001 \a 0005720 006 017 024 024 004 005 \a 002 \a 001 \a \b \a \a \a 001 0005740 003 037 % \0 004 032 033 \0 003 003 022 \f 024 * ! 0005760 001 \0 034 \0 003 035 \0 003 004 022 # ! 001 002 0006000 036 004 \0 003 \t 025 * 016 017 021 003 ( l ) \0 0006020 021 9 ( p r e d . a r g s ) 0006040 a p p l y a n o r d e r p 0006060 r e d i c a t e p a i r w i s 0006100 e t o a l i s t \0 \a \0 021 002 0006120 ( ) \0 \n # 001 006 \a \t r e m o v e - 0006140 i f 003 c d r 003 c a r 005 n u l l ? 0006160 004 c o n s 004 e l t s 004 p r e d 0006200 021 020 I n t e r p r e t e d C o 0006220 d e 022 \0 017 023 023 001 \a \0 003 037 \b \0 001 ( 0006240 001 $ \0 025 * \a \0 022 002 \a 006 \a 005 017 027 0006260 002 027 002 004 \b \a 003 \a 002 \a \0 \a 001 \a 004 \a 0006300 002 \a \0 \a 001 002 037 - \0 006 032 001 003 022 \n 0006320 024 * \0 033 001 003 003 022 033 034 \0 035 0006340 001 003 \n 036 004 036 005 001 003 036 006 \0 036 \a 0006360 001 003 004 \n \0 021 Q ( p r e d e l 0006400 t s ) R e t u r n a l i s 0006420 t o f t h e e l e m e n t 0006440 s o f E L T S s u c h t 0006460 h a t P R E D i s f a l s 0006500 e o f t h e m \0 \a \0 021 002 ( ) 0006520 \0 \n # 001 006 \a \r r e m o v e - i f 0006540 - n o t 003 c d r 003 c a r 005 n u l 0006560 l ? 004 c o n s 004 e l t s 004 p r e 0006600 d 021 020 I n t e r p r e t e d 0006620 C o d e 022 \0 017 023 023 001 \a \0 003 037 \b \0 0006640 001 ( 001 $ \0 025 * \a \0 022 002 \a 006 \a 005 0006660 017 027 002 027 002 004 \b \a 003 \a 002 \a 004 \a 002 \a 0006700 \0 \a 001 \a \0 \a 001 002 037 - \0 006 032 001 003 0006720 022 \n 024 * \0 033 001 003 003 022 # 034 035 0006740 001 003 036 004 \0 036 005 001 003 004 \n 036 006 0006760 \0 036 \a 001 003 \n \0 021 P ( p r e d 0007000 e l t s ) R e t u r n a l 0007020 i s t o f t h e e l e m e 0007040 n t s o f E L T S s u c h 0007060 t h a t P R E D i s t r 0007100 u e o f t h e m \0 \a \0 021 002 ( 0007120 ) \0 \n # 001 006 $ 003 c d r 005 n u l l 0007140 ? 004 l o o p 003 c a r \b s e t - c 0007160 a r ! 001 l 004 l i s t 003 m a p \b f 0007200 o r - e a c h 004 c o n s 005 e v e 0007220 r y 003 a n y \n f i r s t - l i s 0007240 t 004 a r g s 005 l i s t s 006 o t h 0007260 e r s 004 c a a r 004 c d a r 005 a p 0007300 p l y \t a r g s - t a i l \n l i 0007320 s t s - t a i l 005 t h u n k 004 p 0007340 r o c \b s e t - c d r ! 004 t a i 0007360 l 004 h e a d \r e s s e n t i a l 0007400 - m a p 003 n o t 022 e s s e n t i 0007420 a l - f o r - e a c h 005 f i r s 0007440 t 004 p r e d 006 r e s u l t \t n u 0007460 l l - c o p y 003 l s t 002 f n 001 f 0007500 021 020 I n t e r p r e t e d C 0007520 o d e 022 006 \a ! \a \a \v \a \n \a \b \a 0007540 \a 017 023 023 004 021 \a \v \a \n \a \b \a \a \a 006 0007560 \a 003 \a \v \a \0 \a 003 \a \n \a \0 \a 003 \a \b 0007600 \a \0 \a 003 \a \a \a \0 004 020 037 201 016 \0 005 024 0007620 $ \0 025 $ 001 026 $ 002 027 $ 003 030 005 & \0 001 0007640 030 006 & \0 002 030 \a & \0 003 030 \b & \0 004 030 0007660 \t & \0 005 ( \n & \0 001 ( \v & \0 002 ( \f 0007700 & \0 003 ( \r & \0 004 ( 016 & \0 005 036 004 0007720 002 003 004 005 006 004 & \0 \0 036 005 \0 0007740 003 $ 006 036 \a \0 003 & \0 \0 036 \b \0 003 0007760 $ \t 036 \n \0 003 & \0 \0 036 \v \0 003 $ 0010000 \f 036 \r \0 003 & \0 \0 036 016 \0 003 $ 017 0010020 036 020 \0 003 & \0 \0 030 017 * 017 017 017 017 017 0010040 017 017 017 017 \a 022 002 \a 005 \a 002 017 024 024 0010060 \0 004 004 037 021 \0 003 024 & \0 001 ( 002 & \0 001 0010100 001 026 \0 \n 017 \a 002 022 002 \a 037 \a 005 0010120 017 027 002 027 002 003 \a 001 \a \t \a \0 002 037 030 \0 0010140 004 032 001 003 022 \v \0 * ! 001 001 033 024 0010160 \0 004 034 001 003 \n \0 021 \n ( r e s u l 0010200 t l ) \0 \0 021 & ( l ) R e t u 0010220 r n a l i s t o f ( ) ' 0010240 s a s l o n g a s L \0 0010260 \a \v 022 \a \a 036 \a \f \a 017 \a 002 \a 016 \a \r 0010300 \a 002 016 027 002 027 002 002 \a 001 \a \t 004 005 037 8 0010320 \0 003 032 002 003 022 026 024 & \0 003 ( 002 & \0 0010340 003 003 001 \t 033 001 002 004 & \0 004 ! 0010360 001 001 004 003 & \0 005 026 & \0 006 ( 004 & \0 0010400 006 006 004 005 \n 017 \a 002 022 003 \a 005 0010420 \a 035 \a 025 017 024 024 002 \a 001 \a 003 003 037 $ \0 0010440 003 032 \0 003 022 \n 024 * ! 001 \0 033 \0 003 0010460 003 & \0 001 ( 002 & \0 002 001 022 ! 001 * 0010500 002 \b 017 021 022 A n o n y m o u s 0010520 f u n c t i o n 022 \0 017 023 023 001 \a 0010540 \0 001 037 \v \0 003 ! 002 003 032 ! 001 \0 003 \t 021 0010560 002 ( ) \0 021 003 ( l ) \0 017 \a 002 022 004 0010600 \a 024 \a 023 \a 035 \a 025 017 027 002 027 002 004 \n \a 0010620 001 \a 022 \a 001 \a 003 \a 004 \a 020 \a 004 \a 021 \a 0010640 \0 \a \0 003 037 P \0 004 032 \0 003 022 " 033 ! 0010660 001 \0 ! 001 005 004 & \0 002 ( 001 & \0 003 002 0010700 022 037 002 * 003 \b 034 035 \0 003 003 022 , 0010720 025 * 036 004 001 036 005 \0 003 004 # 036 006 0010740 \0 036 \a \0 003 004 # ! 001 006 036 \b \0 003 0010760 036 \t 001 003 \n 021 022 A n o n y m o 0011000 u s f u n c t i o n 022 \0 017 023 023 0011020 \0 001 037 \f \0 003 ! 002 006 ! 002 004 ! 002 005 \n 0011040 021 002 ( ) \0 017 021 026 ( l i s t s - t 0011060 a i l a r g s - t a i l ) \0 021 0011100 p ( p r e d f i r s t - l i s 0011120 t . o t h e r s ) R e t u 0011140 r n t h e f i r s t t r u 0011160 e v a l u e o f P R E D 0011200 a p p l i e d t o s u c c e 0011220 s s i v e e l e m e n t s o 0011240 f t h e g i v e n l i s t 0011260 s \0 \a \n 022 \b \a 036 \a \f \a 017 \a 002 \a 0011300 016 \a \r \a 037 \a 002 016 027 002 027 002 004 006 \a 001 0011320 \a 001 \a 001 \a \0 \a 003 \a \t 004 \a 037 V \0 003 0011340 032 002 003 022 . 033 001 003 022 020 024 * 034 035 0011360 001 003 003 022 \0 036 004 001 003 \t 025 & 0011400 \0 003 ( 003 & \0 003 003 001 \t 036 005 001 0011420 002 004 & \0 004 ! 001 001 004 003 & \0 005 027 0011440 & \0 006 030 005 & \0 \a ( 006 & \0 \a \a 0011460 004 005 \n 016 017 \a 002 022 001 \a 005 017 024 024 0011500 004 005 \a 001 \a \0 \a 003 \a 003 \a \0 002 037 ' \0 0011520 003 032 033 \0 003 003 022 022 ! 001 \0 034 \0 003 0011540 \t ! 001 \0 035 \0 003 003 022 % ! 001 003 036 004 0011560 \0 003 \t 024 * 017 021 003 ( l ) \0 016 017 0011600 \a 002 022 002 \a 024 \a 023 017 027 002 027 002 004 \n \a 0011620 001 \a 022 \a 001 \a 003 \a 004 \a 020 \a 004 \a 021 \a 0011640 \0 \a \0 002 037 T \0 004 032 \0 003 022 $ 033 ! 0011660 001 \0 ! 001 005 004 & 001 006 ! 001 006 022 " ! 001 0011700 \a ! 001 004 ! 001 005 \n 024 * 034 035 \0 003 003 0011720 022 0 ! 001 006 * 036 004 001 036 005 \0 003 004 0011740 # 036 006 \0 036 \a \0 003 004 # ! 001 \a 036 0011760 \b \0 003 036 \t 001 003 \n 017 021 026 ( l i 0012000 s t s - t a i l a r g s - t a 0012020 i l ) \0 021 201 024 ( p r e d f i r 0012040 s t - l i s t . o t h e r s 0012060 ) R e t u r n t h e l a s 0012100 t v a l u e o f P R E D 0012120 a p p l i e d t o s u c c e 0012140 s s i v e e l e m e n t s o 0012160 f t h e g i v e n l i s t 0012200 s i f n o n e o f t h e 0012220 a p p l i c a t i o n s y i 0012240 e l d e d f a l s e \0 \a \b 022 0012260 \a \a 026 \a \f \a 017 \a 034 \a 016 \a \r \a 002 016 0012300 027 002 027 002 002 \a 001 \a \t 004 005 037 : \0 003 024 0012320 & \0 003 ( 002 & \0 003 032 002 003 022 030 003 0012340 \0 001 \n 033 001 002 004 & \0 004 ! 001 0012360 001 004 003 & \0 005 026 & \0 006 ( 004 & \0 006 0012400 006 004 005 \n 017 \a 034 022 002 \a 026 \a 0012420 005 017 027 002 027 002 004 004 \a 033 \a 001 \a 003 \a \0 0012440 002 037 036 \0 004 032 033 001 003 003 022 034 \0 034 0012460 001 003 003 # ! 001 003 \0 035 001 003 \n 024 0012500 * 036 021 \b ( p r o c l ) \0 017 \a 0012520 002 022 002 \a 024 \a 023 017 027 002 027 002 004 \v \a 001 0012540 \a 022 \a 033 \a 001 \a 003 \a 004 \a 020 \a 004 \a 021 0012560 \a \0 \a \0 002 037 L \0 004 032 \0 003 022 033 033 0012600 ! 001 \0 ! 001 005 004 # ! 001 006 ! 001 004 ! 001 0012620 005 \n 034 035 036 004 \0 003 003 003 022 J 036 005 0012640 001 036 006 \0 003 004 # 036 \a \0 036 \b \0 0012660 003 004 # ! 001 006 036 \t \0 003 036 \n 001 003 0012700 \n 024 * 036 021 026 ( l i s t s - t a i 0012720 l a r g s - t a i l ) \0 021 032 ( 0012740 p r o c f i r s t - l i s t 0012760 . o t h e r s ) \0 \a \a 022 \t \a 0013000 " \a \f \a 017 \a 032 \a 016 \a \r \a 031 \a 030 \a 0013020 002 016 027 002 027 002 003 \a 001 \a \t \a 006 004 006 037 0013040 E \0 003 024 & \0 003 ( 002 & \0 003 032 002 003 0013060 022 030 003 \0 001 \n 033 001 002 004 & 0013100 \0 004 ! 001 001 004 003 & \0 005 034 026 003 & \0 0013120 006 006 & \0 \a 027 & \0 \b ( 005 & \0 \b 0013140 \b 004 005 \n 017 \a 032 022 005 \a # \a 005 0013160 \a 031 \a 030 \a 002 017 027 002 027 002 001 \a 006 004 004 0013200 037 033 \0 002 032 024 003 & \0 002 002 & \0 003 025 0013220 & \0 004 ( 003 & \0 004 004 001 \t \0 017 0013240 \a 002 022 001 \a 005 017 024 024 004 \a \a 001 \a \0 \a 0013260 027 \a 006 \a 003 \a \0 \a \0 001 037 0 \0 006 032 0013300 \0 003 022 \r 033 ! 001 002 \t 034 ! 001 003 035 ! 001 0013320 \0 036 004 \0 003 003 003 004 # 036 005 ! 001 003 003 0013340 & 001 003 ! 001 004 036 006 \0 003 \t 021 003 ( l 0013360 ) \0 021 I ( f l ) M a p t h 0013400 e f u n c t i o n f o v e 0013420 r t h e l i s t l , r e 0013440 t u r n i n g a l i s t o 0013460 f t h e r e s u l t s \0 \0 017 0013500 \a 002 022 002 \a 024 \a 023 017 027 002 027 002 004 016 0013520 \a 001 \a 027 \a 006 \a 022 \a \0 \a 001 \a 003 \a \0 0013540 \a 004 \a 020 \a 004 \a 021 \a \0 \a \0 001 037 _ \0 0013560 006 032 \0 003 022 + 033 ! 001 \a 034 035 ! 001 \0 0013600 ! 001 005 004 003 004 # 036 004 ! 001 \a 003 & 001 \a 0013620 ! 001 \b ! 001 004 ! 001 005 \n 036 005 036 006 \0 0013640 003 003 022 ; 036 \a ! 001 006 \t 036 \b 001 036 \t 0013660 \0 003 004 # 036 \n \0 036 \v \0 003 004 # 0013700 ! 001 \b 036 \f \0 003 036 \r 001 003 \n 021 026 0013720 ( l i s t s - t a i l a r g s 0013740 - t a i l ) \0 021 030 ( f n f i r 0013760 s t - l i s t . o t h e r s 0014000 ) \0 004 004 \a \v \a \n \a \b \a \a 021 002 ( ) 0014020 \0 \n 0014022