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