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