$ od -c -N 50000 [phylum]<3-LISP>course>koto>ENVIRONMENTS.DCOM!5
0000000 ( F I L E C R E A T E D " 2 4
0000020 - J a n - 8 7 1 7 : 0 5 : 4 8
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < 3 - L I S
0000100 P > C O U R S E > K O T O > E N
0000120 V I R O N M E N T S . ; 2 ) \r
0000140 " 1 2 - N o v - 8 5 1 4 : 5 9
0000160 : 2 3 " b c o m p l ' d i n
0000200 " I N T E R L I S P - D 1 1
0000220 - M a y - 8 6 . . . " d a t
0000240 e d " 1 1 - M a y - 8 6 1 5
0000260 : 1 9 : 0 8 " ) \r ( F I L E C R
0000300 E A T E D " 2 4 - J a n - 8 7
0000320 1 5 : 3 5 : 0 8 " { P H Y L
0000340 U M } < 3 - L I S P > C O U R S
0000360 E > K O T O > E N V I R O N M E
0000400 N T S . ; 2 1 6 4 3 2 c h a
0000420 n g e s t o : ( V A R S \r
0000440 E N V I R O N M E N T S C O M S
0000460 ) p r e v i o u s d a t e :
0000500 " 1 6 - A u g - 8 4 0 2 : 4
0000520 7 : 4 0 " { P H Y L U M } < 3
0000540 - L I S P > C O U R S E > K O T
0000560 O > E N V I R O N M E N T S . ;
0000600 1 ) \r B I N D I N G D 1 \r ( P
0000620 6 R E S U L T P 5 A R
0000640 G P T R P 4 V A R S P
0000660 3 B I N D I N G - N U M B E R
0000700 P 2 C O N T O U R P 1
0000720 S K E L E T O N P 0 P R
0000740 O C I 1 E N V I 0 V
0000760 A R ) \0 } \t \0 \0 002 021 220 \b A Z d
0001000 004 ` \0 \0 360 226 277 @ J \n \0 \0 020 311 004 X
0001020 311 002 Y 006 \0 \0 311 002 274 k 273 L 244 H 311 004
0001040 260 336 @ L 001 360 247 L 002 274 K k 330 260 355 J
0001060 312 \0 220 j 360 232 J l 004 320 K 320 K 320 311 \0
0001100 020 J 311 004 X 311 002 271 J 311 006 275 I 006 \0 \0
0001120 312 \0 \0 j 360 263 037 K l 002 _ 020 277 _ 016 277
0001140 O 020 O 016 363 252 M 002 275 O 020 k 324 _ 020 260
0001160 363 M 001 020 M 020 \0 ( 2 1 Q B I N D
0001200 I N G - I N - S H A L L O W - E
0001220 N V I R O N M E N T ) \r ( 1 2 5
0001240 Q S K E L E T O N 3 3 Q S
0001260 K E L E T O N 1 1 Q 004 003 S H
0001300 A L L O W - E N V T Y P E # ) \r
0001320 ( ) \r B I N D I N G - I N - S H
0001340 A L L O W - E N V I R O N M E N
0001360 T D 1 \r ( P 0 V A L U E -
0001400 C E L L I 1 E N V I 0
0001420 V A R ) \0 037 001 \0 \0 002 021 020 \0 @
0001440 A \n \0 \0 X d 006 \0 \0 312 \0 \0 j 360 246 H
0001460 006 \0 \0 311 002 020 g \0 \0 020 \0 ( 7 S H
0001500 A L L O W - V A L U E - C E L L
0001520 ) \r ( 3 4 Q N O T . F O U N D
0001540 2 6 Q G L O B A L - V A L U
0001560 E - C E L L 1 4 Q G L O B A
0001600 L - V A L U E - C E L L ) \r ( )
0001620 \r B O U N D - B Y - S Y S T E M
0001640 ? D 1 \r ( P 0 V A L U E -
0001660 C E L L I 0 V A R ) \0 %
0001700 001 \0 \0 001 021 020 \0 @ ` \0 \0 \n \0 \0 X d
0001720 006 \0 \0 312 \0 \0 j 360 h 360 264 \r H 006 \0 \0
0001740 312 \0 020 j 360 h 360 020 \0 ( 1 1 Q S H
0001760 A L L O W - V A L U E - C E L L
0002000 ) \r ( 3 3 Q G L O B A L - V A
0002020 L U E - C E L L 1 6 Q G L O
0002040 B A L - V A L U E - C E L L 6
0002060 G L O B A L - E N V I R O N M
0002100 E N T - B A S E ) \r ( ) \r B O U
0002120 N D - I N - S H A L L O W - E N
0002140 V I R O N M E N T ? D 1 \r ( P
0002160 0 V A L U E - C E L L I
0002200 1 E N V I 0 V A R ) \0
0002220 025 001 \0 \0 002 021 020 \0 @ A \n \0 \0 d 006 \0
0002240 \0 312 \0 \0 j 360 h 360 020 \0 ( 7 S H A
0002260 L L O W - V A L U E - C E L L )
0002300 \r ( 1 3 Q G L O B A L - V A L
0002320 U E - C E L L ) \r ( ) \r C O N T
0002340 O U R - V A R I A B L E S D 1
0002360 \r ( P 2 V A R S P 1 S
0002400 K E L E T O N P 0 P R O C
0002420 I 0 E N V ) \0 032 003 \0 \0 001
0002440 021 0 002 @ d 004 ` \0 \0 360 223 \t \0 \0 020 311
0002460 004 311 002 006 \0 \0 311 002 020 \0 ( 1 5 Q S
0002500 H A L L O W - E N V I R O N M E
0002520 N T - V A R I A B L E S ) \r ( 2
0002540 5 Q S K E L E T O N 1 0 Q
0002560 004 003 S H A L L O W - E N V T Y P
0002600 E # ) \r ( ) \r C R E A T E - G L
0002620 O B A L - E N V I R O N M E N T
0002640 D 1 \r N I L \0 ! \0 \0 \0 \0 g \0
0002660 \0 \t \0 \0 237 ` \0 \0 004 ` \0 \0 360 226 ` \0
0002700 \0 \t \0 \0 277 l d \t \0 \0 027 \0 \0 020 \0 (
0002720 3 3 Q C R E A T E - S H A L L
0002740 O W - E N V I R O N M E N T 2
0002760 5 Q S C R U B - S H A L L O W
0003000 - E N V I R O N M E N T 5 B
0003020 O U N D P ) \r ( 3 6 Q G L O B
0003040 A L - E N V I R O N M E N T - B
0003060 A S E 2 2 Q G L O B A L - E
0003100 N V I R O N M E N T - B A S E
0003120 1 5 Q 004 003 S H A L L O W - E N
0003140 V T Y P E # 1 1 Q G L O B A
0003160 L - E N V I R O N M E N T - B A
0003200 S E 2 G L O B A L - E N V I
0003220 R O N M E N T - B A S E ) \r ( )
0003240 \r C R E A T E - S H A L L O W -
0003260 E N V I R O N M E N T D 1 \r (
0003300 I 0 S I Z E ) \0 + 002 \0 \0 001
0003320 ` \0 \0 037 d j 024 \0 277 @ \t \0 \0 021 002 001
0003340 H d I 024 002 277 022 @ \t \0 \0 o \0 \0 \0 032
0003360 021 002 001 H d I 024 004 277 020 \0 ( 3 2 Q
0003400 H A R R A Y 1 4 Q A R R A Y
0003420 ) \r ( 2 004 003 S H A L L O W - E
0003440 N V T Y P E # ) \r ( 3 6 Q 1
0003460 . 5 ) \r E N V I R O N M E N T -
0003500 C O O R D I N A T E S D 1 \r (
0003520 P 5 V A R S P 4 B I N
0003540 D I N G - N U M B E R P 3
0003560 C O N T O U R S - B A C K P
0003600 2 E N V P 1 S K E L E T
0003620 O N P 0 P R O C I 1
0003640 I E N V I 0 V A R ) \0 B
0003660 006 \0 \0 002 021 ` 005 j 273 A Z d 004 ` \0 \0
0003700 360 226 277 @ J \n \0 \0 020 311 004 X 311 002 Y 006
0003720 \0 \0 311 002 275 k 274 M 250 K k 330 273 H 311 004
0003740 260 332 @ M 001 360 225 K L h 032 032 020 M 002 275
0003760 L k 330 260 343 \0 ( 2 3 Q S H A L L
0004000 O W - V A L U E - C E L L ) \r (
0004020 3 5 Q S K E L E T O N 1 3 Q
0004040 004 003 S H A L L O W - E N V T Y
0004060 P E # ) \r ( ) \r G L O B A L - B
0004100 I N D I N G D 1 \r ( I 0 V
0004120 A R ) \0 \t \0 \0 \0 001 @ ` \0 \0 \n \0
0004140 \0 020 \0 ( 6 B I N D I N G - I N
0004160 - S H A L L O W - E N V I R O N
0004200 M E N T ) \r ( 3 G L O B A L -
0004220 E N V I R O N M E N T - B A S E
0004240 ) \r ( ) \r G L O B A L - E N V I
0004260 R O N M E N T D 1 \r N I L \0
0004300 005 \0 \0 \0 \0 ` \0 \0 020 \0 N I L \r ( 2
0004320 G L O B A L - E N V I R O N M
0004340 E N T - B A S E ) \r ( ) \r G L O
0004360 B A L L Y - B O U N D ? D 1 \r
0004400 ( I 0 V A R ) \0 \t \0 \0 \0 001
0004420 @ ` \0 \0 \n \0 \0 020 \0 ( 6 B O U N
0004440 D - I N - S H A L L O W - E N V
0004460 I R O N M E N T ? ) \r ( 3 G L
0004500 O B A L - E N V I R O N M E N T
0004520 - B A S E ) \r ( ) \r M - L O C A
0004540 L - S E T D 1 \r ( P 4 C O
0004560 P Y - A R G L I S T P 3 S
0004600 K E L E T O N P 2 A R G P
0004620 T R P 1 P R O C P 0
0004640 C O N T O U R I 3 X E N V
0004660 I 2 V A L U E I 1 B
0004700 I N D I N G - N U M B E R I
0004720 0 F R A M E - N U M B E R )
0004740 \0 207 \n \0 \0 004 021 240 \t C X @ k 276 275 N
0004760 M 363 254 H 311 004 Y 311 004 270 N k 324 ^ 260 362
0005000 h \ H 312 \0 260 j 360 226 i 274 H \t \0 \0 277
0005020 H 312 \0 220 j 360 262 024 H l 006 320 A k 331 _
0005040 016 320 O 016 320 B 316 \0 260 B I 311 002 [ 006 \0
0005060 \0 312 \0 \0 j 360 263 0 L 231 H d 311 006 \t \0
0005100 \0 316 006 277 H 311 006 272 A l 002 _ 022 277 _ 020
0005120 277 O 022 O 020 363 252 J 002 272 O 022 k 324 _ 022
0005140 260 363 J B 030 203 H B 316 006 h 020 \0 ( 1 3
0005160 2 Q \ A P P E N D 2 5 0 Q
0005200 M A K E - B A C K U P - F R A M
0005220 E ) \r ( 1 1 2 Q S K E L E T O
0005240 N ) \r ( ) \r P R E V I O U S - C
0005260 O N T O U R D 1 \r ( L ( 0
0005300 E N V ) ) \0 022 \0 \0 \0 001 @ d 004 `
0005320 \0 \0 360 223 g \0 \0 020 311 004 311 004 020 \0 N I
0005340 L \r ( 1 2 Q N O T . P O S S I
0005360 B L E 5 004 003 S H A L L O W -
0005400 E N V T Y P E # ) \r ( ) \r R E B
0005420 I N D D 1 \r ( P 6 C O P Y
0005440 - A R G L I S T P 5 A R G
0005460 P T R P 4 B I N D I N G -
0005500 N U M B E R P 3 V A R S
0005520 P 2 S K E L E T O N P 1
0005540 P R O C P 0 C O N T O U
0005560 R I 2 E N V I 1 R E
0005600 S U L T I 0 V A R ) \0 244
0005620 \n \0 \0 003 021 240 \t B X d 004 ` \0 \0 360 227
0005640 277 @ A H \v \0 \0 020 311 004 Y 311 002 Z 006 \0
0005660 \0 311 002 273 k 274 K 244 I 311 004 260 335 @ K 001
0005700 360 247 K 002 273 L k 330 260 355 h 276 H 312 \0 260
0005720 j 360 226 i 276 H \t \0 \0 277 H 312 \0 220 j 360
0005740 262 024 H l 006 320 L k 331 _ 016 320 O 016 320 A
0005760 316 \0 260 C H 311 006 275 J 006 \0 \0 312 \0 \0 j
0006000 360 263 0 N 231 H d 311 006 \t \0 \0 316 006 277 H
0006020 311 006 275 L l 002 _ 022 277 _ 020 277 O 022 O 020
0006040 363 252 M 002 275 O 022 k 324 _ 022 260 363 M A 030
0006060 203 H A 316 006 A 020 \0 ( 1 6 7 Q \ A
0006100 P P E N D 2 1 0 4 Q M A K E
0006120 - B A C K U P - F R A M E 2 2
0006140 Q R E B I N D - I N - S H A L
0006160 L O W - E N V I R O N M E N T )
0006200 \r ( 1 4 7 Q S K E L E T O N
0006220 3 4 Q S K E L E T O N 1 1 Q
0006240 004 003 S H A L L O W - E N V T Y
0006260 P E # ) \r ( ) \r R E B I N D - I
0006300 N - G L O B A L - E N V I R O N
0006320 M E N T D 1 \r ( I 2 S Y S
0006340 T E M ? I 1 V A L I 0
0006360 V A R ) \0 \v \0 \0 \0 003 @ A ` \0
0006400 \0 B \f \0 \0 020 \0 ( 1 0 Q R E B I
0006420 N D - I N - S H A L L O W - E N
0006440 V I R O N M E N T ) \r ( 4 G L
0006460 O B A L - E N V I R O N M E N T
0006500 - B A S E ) \r ( ) \r R E B I N D
0006520 - I N - S H A L L O W - E N V I
0006540 R O N M E N T D 1 \r ( P 0
0006560 V A L U E - C E L L I 3 S
0006600 Y S T E M ? I 2 E N V I
0006620 1 V A L I 0 V A R )
0006640 \0 w 002 \0 \0 004 021 001 @ B \n \0 \0 X d
0006660 006 \0 \0 312 \0 020 j 360 245 C 243 g \0 \0 020 A
0006700 \t \0 \0 262 024 ` \0 \0 037 d A 024 \0 277 ` \0
0006720 \0 032 027 \0 \0 001 200 A b 002 H 006 \0 \0 A 024
0006740 002 H 006 \0 \0 C 221 k 200 j Y 317 \0 020 277 I
0006760 j 360 h 360 H 006 \0 \0 k 317 \0 \0 277 k j 360
0007000 h 360 H 006 \0 \0 311 004 206 d 001 \t \0 \0 277 002
0007020 003 265 370 H 006 \0 \0 h 024 004 A 020 \0 ( 1 4
0007040 7 Q S P O I L 3 4 Q \ B L
0007060 O C K D A T A P 7 S H A L L
0007100 O W - V A L U E - C E L L ) \r (
0007120 1 6 0 Q G L O B A L - V A L U
0007140 E - C E L L 1 3 7 Q G L O B
0007160 A L - V A L U E - C E L L 1 2
0007200 1 Q G L O B A L - V A L U E -
0007220 C E L L 7 6 Q G L O B A L -
0007240 V A L U E - C E L L 6 7 Q G
0007260 L O B A L - V A L U E - C E L L
0007300 5 6 Q W R A P - A N C H O R
0007320 5 2 Q W R A P - A N C H O R
0007340 4 1 Q 004 003 N L I S P - S T A
0007360 C K - O B J E C T T Y P E # 2
0007400 7 Q N O T . A L L O W E D 1
0007420 4 Q G L O B A L - V A L U E -
0007440 C E L L ) \r ( ) \r S C R U B - S
0007460 H A L L O W - E N V I R O N M E
0007500 N T A 0 0 0 1 D 1 \r ( N A M E
0007520 E R R O R S E T P 0 T A
0007540 B L E F 3 S E N V F 4
0007560 X ) \0 c 003 002 002 \0 021 0 002 S 006 \0
0007600 \0 311 004 \t \0 \0 277 S 006 \0 \0 h 024 004 277 S
0007620 006 \0 \0 311 002 X \t \0 \0 k 272 271 J I 363 263
0007640 1 H J ( c \b 004 ` \0 \0 360 262 032 T 006 \0
0007660 \0 h 024 \0 277 T 006 \0 \0 h 024 002 277 T 006 \0
0007700 \0 h 024 004 277 H J h * 277 J k 324 Z 260 317
0007720 S 006 \0 \0 h 024 002 023 h h 032 020 \0 ( 3 6
0007740 Q A R R A Y S I Z E 1 3 Q
0007760 C L R H A S H ) \r ( 1 3 1 Q S
0010000 H A L L O W - E N V 1 0 6 Q
0010020 G L O B A L - V A L U E - C E L
0010040 L 7 6 Q G L O B A L - V A L
0010060 U E - C E L L 6 6 Q G L O B
0010100 A L - V A L U E - C E L L 5 7
0010120 Q 004 003 G L O B A L - V A L U E
0010140 - C E L L T Y P E # 3 0 Q S
0010160 H A L L O W - E N V 2 0 Q S
0010200 H A L L O W - E N V 6 S H A
0010220 L L O W - E N V ) \r ( ) \r S C R
0010240 U B - S H A L L O W - E N V I R
0010260 O N M E N T D 1 \r ( I 0 S
0010300 E N V ) \0 \t \0 \0 \0 001 o \0 \0 \0 \t
0010320 \0 \0 020 \0 ( 6 S C R U B - S H A
0010340 L L O W - E N V I R O N M E N T
0010360 A 0 0 0 1 ) \r N I L \r ( 3 (
0010400 S C R U B - S H A L L O W - E N
0010420 V I R O N M E N T A 0 0 0 1 ) )
0010440 \r S H A L L O W - E N V I R O N
0010460 M E N T - V A R I A B L E S D
0010500 1 \r ( P 4 I P 2 C O L
0010520 L E C T O R P 1 T A B L E
0010540 P 0 G V C E L L I 0
0010560 E N V ) \0 F 005 \0 \0 001 021 0 002 @ 006
0010600 \0 \0 311 002 Y h h 032 Z I \t \0 \0 k 021 002
0010620 004 L K 363 263 ( I L ( X 004 ` \0 \0 360 262
0010640 027 H 006 \0 \0 312 \0 \0 j 360 252 J H 006 \0 \0
0010660 311 \0 \n \0 \0 277 L k 324 \ 260 330 023 J 001 020
0010700 \0 ( 7 1 Q T C O N C 2 1 Q
0010720 A R R A Y S I Z E ) \r ( 6 4 Q
0010740 G L O B A L - V A L U E - C E L
0010760 L 5 1 Q G L O B A L - V A L
0011000 U E - C E L L 4 2 Q 004 003 G L
0011020 O B A L - V A L U E - C E L L T
0011040 Y P E # 6 S H A L L O W - E
0011060 N V ) \r ( ) \r S H A L L O W - V
0011100 A L U E - C E L L D 1 \r ( P
0011120 7 N E W - T A B L E P 6
0011140 N E W - S I Z E P 5 \ I N
0011160 T E R R U P T A B L E P 2
0011200 V A L U E - C E L L - T A B L E
0011220 P 1 T A B L E - S I Z E
0011240 P 0 S L O T I 1 E N V
0011260 I 0 V A R ) \0 245 \b \0 \0 002
0011300 021 P 004 @ A 006 \0 \0 311 004 035 X d 222 261 \0
0011320 214 021 020 005 A 006 \0 \0 311 \0 k 330 270 A 006 \0
0011340 \0 H 024 \0 277 A 006 \0 \0 311 002 Z \t \0 \0 271
0011360 H I 361 262 8 021 \a I l d 330 ^ \t \0 \0
0011400 _ 016 277 I k 274 273 L K 363 263 025 O 016 L J
0011420 L ( * 277 J L h * 277 L k 324 \ 260 353 O
0011440 016 272 A 006 \0 \0 O 016 024 002 023 J H ` \0 \0
0011460 037 d j 317 \0 \0 277 d j 317 \0 020 277 d @ 024
0011500 \0 277 d h 024 002 277 d h 024 004 277 * 277 @ H
0011520 A 006 \0 \0 311 004 \v \0 \0 023 A 006 \0 \0 311 002
0011540 d H ( 020 \0 ( 2 3 0 Q P U T H A
0011560 S H 7 7 Q A R R A Y 5 6 Q
0011600 A R R A Y S I Z E ) \r ( 2 3 5
0011620 Q S H A L L O W - E N V 2 2
0011640 3 Q S H A L L O W - E N V 1
0011660 5 7 Q 004 003 G L O B A L - V A L
0011700 U E - C E L L T Y P E # 1 4 5
0011720 Q S H A L L O W - E N V 5 0
0011740 Q S H A L L O W - E N V 4 0
0011760 Q S H A L L O W - E N V 2 7
0012000 Q S H A L L O W - E N V 7
0012020 S H A L L O W - E N V ) \r ( ) \r
0012040 S L O W - B I N D D 1 \r ( P
0012060 2 2 Q X L E F T P 2 1 Q
0012100 X F R E E P 2 0 Q X N E W
0012120 - C L O S U R E P 1 7 Q \
0012140 I N T E R R U P T A B L E P
0012160 1 6 Q X A R G - P T R P 1
0012200 5 Q X N E W - F R A M E P
0012220 1 4 Q \ I N T E R R U P T A B
0012240 L E P 4 S K E L E T O N
0012260 P 3 C L O S U R E P 2
0012300 A R G P T R P 1 F R A M E
0012320 P 0 N A R G S I 3 E
0012340 N V I R O N M E N T I 2 A
0012360 R G - L I S T I 1 V A R I
0012400 A B L E - L I S T I 0 S P
0012420 R E A D ? ) 001 [ 023 \0 \0 004 021 300 \v
0012440 A \t \0 \0 X 021 0 016 ` \0 \0 H l 003 330 _
0012460 020 277 _ 016 311 002 275 O 016 311 006 276 O 020 N 361
0012500 223 \b \0 \0 277 O 016 M O 020 320 O 020 320 316 002
0012520 277 O 016 N O 020 331 316 006 277 M _ 032 j 315 \0
0012540 277 O 032 j 315 001 277 O 032 k 317 \0 \a 277 O 032
0012560 H 317 001 \a 277 O 032 j 317 \0 220 277 O 032 g \0
0012600 \0 316 002 277 O 032 g \0 \0 316 004 277 O 032 l 006
0012620 320 _ 034 277 H k _ 024 277 _ 022 277 O 024 O 022
0012640 363 263 032 O 034 g \0 \0 316 \0 277 O 034 l 002 320
0012660 _ 034 277 O 024 k 324 _ 024 260 345 O 032 022 Y `
0012700 \0 \0 037 d @ 221 k 200 j 317 \0 \0 277 d j 317
0012720 \0 020 277 d H 024 \0 277 d A 024 002 277 d o \0
0012740 \0 \0 024 004 277 d o \0 \0 \0 024 006 277 d g \0
0012760 \0 024 \b 277 \ 021 020 021 022 ` \0 \0 311 002
0013000 _ " 277 ` \0 \0 311 006 _ $ 277 l 003 O $ 361
0013020 223 \b \0 \0 277 ` \0 \0 O " l 003 320 l 003 320
0013040 316 002 277 ` \0 \0 O $ l 003 331 316 006 277 O "
0013060 022 _ j 315 \0 277 O j 315 001 277 O l
0013100 003 317 \0 \a 277 O L 316 002 277 O C 316 004
0013120 277 O 022 [ I K 316 004 I l 006 320 Z B 260
0013140 023 d 001 _ 026 277 J O 026 316 \0 277 J l 002 320
0013160 272 002 003 265 356 I 020 \0 ( 3 6 6 Q S I
0013200 G N A L - N O - S P A C E 4 6
0013220 Q S I G N A L - N O - S P A C
0013240 E 6 L E N G T H ) \r ( 4 1 0
0013260 Q N E W - S P A C E 3 7 2 Q
0013300 N E W - S P A C E 3 5 0 Q
0013320 N E W - S P A C E 3 4 0 Q N
0013340 E W - S P A C E 3 2 3 Q B U
0013360 I L D - B Y - S L O W - B I N D
0013400 2 4 4 Q 004 003 S K E L E T O N
0013420 T Y P E # 2 1 2 Q N O T . U
0013440 S E D 1 5 3 Q N O T . U S E
0013460 D 1 4 3 Q B U I L D - B Y -
0013500 S L O W - B I N D 1 5 Q N E
0013520 W - S P A C E ) \r ( 3 1 4 Q
0013540 " b u i l d b y s l o w - b
0013560 i n d " 3 0 4 Q ( ( B U I L
0013600 D - B Y - S L O W - B I N D ) )
0013620 ) \r T I D Y - S H A L L O W - E
0013640 N V I R O N M E N T D 1 \r ( P
0013660 1 X P 0 T A B L E I
0013700 0 S E N V ) \0 h 004 \0 \0 001 021
0013720 @ 003 @ 006 \0 \0 311 004 \t \0 \0 @ 006 \0 \0 311
0013740 002 X d \t \0 \0 k 273 272 K J 363 263 H H K
0013760 ( Y 004 ` \0 \0 360 262 7 I 006 \0 \0 311 \0 K
0014000 @ 006 \0 \0 311 004 \v \0 \0 277 I 006 \0 \0 312 \0
0014020 020 j 360 262 033 I 006 \0 \0 j 317 \0 \0 277 I 006
0014040 \0 \0 h 024 002 277 I 006 \0 \0 h 024 004 277 K k
0014060 324 [ 260 270 @ 020 \0 ( 7 1 Q P U T H
0014100 A S H 2 6 Q A R R A Y S I Z
0014120 E 1 3 Q C L R H A S H ) \r (
0014140 1 3 2 Q G L O B A L - V A L U
0014160 E - C E L L 1 2 2 Q G L O B
0014200 A L - V A L U E - C E L L 1 1
0014220 1 Q G L O B A L - V A L U E -
0014240 C E L L 7 6 Q G L O B A L -
0014260 V A L U E - C E L L 6 4 Q S
0014300 H A L L O W - E N V 5 5 Q G
0014320 L O B A L - V A L U E - C E L L
0014340 4 6 Q 004 003 G L O B A L - V A
0014360 L U E - C E L L T Y P E # 1 7
0014400 Q S H A L L O W - E N V 6
0014420 S H A L L O W - E N V ) \r ( ) \r
0014440 ( P R E T T Y C O M P R I N T
0014460 E N V I R O N M E N T S C O M S
0014500 ) \r ( R P A Q Q E N V I R O N
0014520 M E N T S C O M S ( ( P ( C
0014540 L D I S A B L E ( Q U O T E
0014560 - ) ) ) ( M A C R O S M - L
0014600 O C A L - V A R ) ( F N S B
0014620 I N D I N G \r B I N D I N G -
0014640 I N - S H A L L O W - E N V I R
0014660 O N M E N T B O U N D - B Y -
0014700 S Y S T E M ? B O U N D - I N
0014720 - S H A L L O W - E N V I R O N
0014740 M E N T ? C O N T O U R - V A
0014760 R I A B L E S \r C R E A T E -
0015000 G L O B A L - E N V I R O N M E
0015020 N T C R E A T E - S H A L L O
0015040 W - E N V I R O N M E N T E N
0015060 V I R O N M E N T - C O O R D I
0015100 N A T E S G L O B A L - B I N
0015120 D I N G \r G L O B A L - E N V
0015140 I R O N M E N T G L O B A L L
0015160 Y - B O U N D ? M - L O C A L
0015200 - S E T P R E V I O U S - C O
0015220 N T O U R R E B I N D R E B
0015240 I N D - I N - G L O B A L - E N
0015260 V I R O N M E N T \r R E B I N
0015300 D - I N - S H A L L O W - E N V
0015320 I R O N M E N T S C R U B - S
0015340 H A L L O W - E N V I R O N M E
0015360 N T S H A L L O W - E N V I R
0015400 O N M E N T - V A R I A B L E S
0015420 \r S H A L L O W - V A L U E -
0015440 C E L L S L O W - B I N D T
0015460 I D Y - S H A L L O W - E N V I
0015500 R O N M E N T ) ( G L O B A L
0015520 V A R S G L O B A L - E N V I
0015540 R O N M E N T - B A S E ) ( S
0015560 P E C V A R S \r N I L ) ( L
0015600 O C A L V A R S T ) ) ) \r ( C
0015620 L D I S A B L E ( Q U O T E
0015640 - ) ) \r ( P U T P R O P S M -
0015660 L O C A L - V A R M A C R O
0015700 ( O P E N L A M B D A ( F R A
0015720 M E - N U M B E R B I N D I N
0015740 G - N U M B E R X E N V ) (
0015760 P R O G ( C O N T O U R P R
0016000 O C A R G P T R \r S K E L E
0016020 T O N R E S U L T ) ( S E T
0016040 Q C O N T O U R X E N V )
0016060 ( F O R I F R O M 1 T O
0016100 F R A M E - N U M B E R d o
0016120 ( S E T Q P R O C ( f e t
0016140 c h ( S T A C K - F R A M E
0016160 \r P R O C ) o f C O N T O U
0016200 R ) ) ( S E T Q C O N T O U
0016220 R ( f e t c h ( S T A C K -
0016240 C L O S U R E E N V ) o f
0016260 P R O C ) ) ) ( I F ( N O T
0016300 ( f e t c h ( S T A C K - F
0016320 R A M E \r O B J E C T I F I E
0016340 D ) o f C O N T O U R ) )
0016360 T H E N ( S E T Q A R G P T
0016400 R ( L O C F ( f e t c h (
0016420 S T A C K - F R A M E A R G 1
0016440 ) o f C O N T O U R ) ) )
0016460 ( S E T Q A R G P T R \r ( \
0016500 A D D B A S E 2 A R G P T R
0016520 ( S U B 1 B I N D I N G - N U
0016540 M B E R ) ) ) ( S E T Q R E
0016560 S U L T ( f e t c h ( C E L
0016600 L C O N T E N T S ) o f A
0016620 R G P T R ) ) E L S E ( S E
0016640 T Q \r P R O C ( f e t c h
0016660 ( S T A C K - F R A M E P R O
0016700 C ) o f C O N T O U R ) )
0016720 ( S E T Q S K E L E T O N (
0016740 f e t c h ( S T A C K - C L O
0016760 S U R E S K E L E T O N ) o
0017000 f P R O C ) ) ( \r S E T Q
0017020 A R G P T R ( f e t c h ( S
0017040 T A C K - F R A M E A R G 1 )
0017060 o f C O N T O U R ) ) ( I
0017100 F ( f e t c h ( S K E L E T
0017120 O N S P R E A D ? ) o f S
0017140 K E L E T O N ) T H E N ( \r
0017160 F O R I F R O M 2 T O
0017200 B I N D I N G - N U M B E R d
0017220 o ( S E T Q A R G P T R (
0017240 R E S T A R G P T R ) ) ) (
0017260 S E T Q R E S U L T ( F I R
0017300 S T A R G P T R ) ) E L S E
0017320 ( S E T Q \r R E S U L T A
0017340 R G P T R ) ) ) ( R E T U R N
0017360 R E S U L T ) ) ) ) \r ( P U T
0017400 P R O P S E N V I R O N M E N
0017420 T S C O P Y R I G H T ( " T
0017440 h e K n i g h t s o f t h
0017460 e L a m b d a C a l c u l u
0017500 s " 1 9 8 4 1 9 8 7 ) ) \r N
0017520 I L \r
0017523