$ od -c -N 50000 [phylum]<3-LISP>course>koto>IO.DCOM!3
0000000 ( F I L E C R E A T E D " 2 4
0000020 - J a n - 8 7 1 7 : 0 9 : 2 7
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 > I O
0000120 . ; 1 ) \r " 1 2 - N o v - 8 5
0000140 1 4 : 5 9 : 2 3 " b c o m p
0000160 l ' d i n " I N T E R L I S
0000200 P - D 1 1 - M a y - 8 6 . .
0000220 . " d a t e d " 1 1 - M a y
0000240 - 8 6 1 5 : 1 9 : 0 8 " ) \r (
0000260 F I L E C R E A T E D " 9 -
0000300 S e p - 8 5 2 0 : 5 6 : 4 5 "
0000320 { P H Y L U M } < 3 - L I S P
0000340 > C O U R S E > J C A I > I O .
0000360 ; 2 1 5 8 8 6 c h a n g e s
0000400 t o : ( F N S \r P R I M -
0000420 C H A R - I N P R I M - C H A
0000440 R - O U T P R I M - C H A R -
0000460 P E E K P R I M - C H A R - S
0000500 T U F F P R I M - C L O S E -
0000520 S T R E A M P R I M - C L O S
0000540 E A L L \r P R I M - E M P T Y
0000560 - S T R E A M ? P R I M - E X
0000600 T E R N A L I Z E P R I M - I
0000620 N T E R N A L I Z E P R I M -
0000640 O P E N - S T R E A M P R I M
0000660 - P R I N T P R I M - P R I N
0000700 T - S T R U C T U R E \r P R I
0000720 M - R E A D - S T R U C T U R E
0000740 P R I M - S T R I N G - I N
0000760 P R I M - S T R I N G - O U T )
0001000 p r e v i o u s d a t e :
0001020 " 1 6 - A u g - 8 4 0 2 : 1 0
0001040 : 1 7 " \r { P H Y L U M } < 3
0001060 - L I S P > A U G > I O . ; 2 )
0001100 \r P R I M - C H A R - I N A 0 0
0001120 0 2 A 0 0 0 3 D 1 \r ( N A M E
0001140 E R R O R S E T F 0 S T
0001160 R E A M F 1 C H ) \0 \r \0
0001200 002 002 \0 P ` \0 \0 \n \0 \0 c 002 h 032 020 \0
0001220 ( 6 R E A D C ) \r ( 3 N L I
0001240 S P - R E A D - T A B L E ) \r (
0001260 ) \r P R I M - C H A R - I N A 0
0001300 0 0 2 D 1 \r ( N A M E E R R
0001320 O R S E T F 0 R E S E T V
0001340 A R S L S T F 1 R E S E T
0001360 Y ) \0 035 \0 002 002 \0 g \0 \0 i \t \0 \0
0001400 h 032 032 h 032 P 032 c \0 277 o \0 \0 \0 \t \0
0001420 \0 c 002 i 020 \0 ( 2 7 Q P R I M -
0001440 C H A R - I N A 0 0 0 2 A 0 0 0
0001460 3 6 C O N T R O L ) \r ( 2
0001500 C O N T R O L ) \r ( 2 4 Q (
0001520 P R I M - C H A R - I N A 0 0 0
0001540 2 A 0 0 0 3 ) ) \r P R I M - C H
0001560 A R - I N D 1 \r ( P 5 R E
0001600 S E T Z P 4 R E S E T Y
0001620 P 3 L I S P X H I S T P
0001640 1 S T R E A M P 0 C H
0001660 I 0 S T R E A M - A R G F
0001700 6 L I S P X H I S T F 7
0001720 R E S E T V A R S L S T ) \0
0001740 ] 006 002 \0 001 021 0 002 @ \t \0 \0 221 @ 207 o
0001760 \0 \0 \0 @ \n \0 \0 Y d \b \0 \0 360 221 i 271
0002000 V 021 ! 005 W 016 o \0 \0 \0 g \0 \0 \n \0 \0
0002020 221 h 202 g \0 \0 ] \n \0 \0 277 M 223 \b \0 \0
0002040 277 023 H 236 ` \0 \0 037 H \t \0 \0 272 d J 024
0002060 \0 277 020 I \t \0 \0 277 o \0 \0 \0 \t \0 \0 h
0002100 020 \0 ( 1 3 1 Q N L I S P - E R
0002120 R O R 1 2 1 Q C L O S E F ?
0002140 1 0 6 Q C H C O N 1 7 2 Q
0002160 E R R O R ! 6 4 Q R E S E
0002200 T R E S T O R E 5 2 Q P R I
0002220 M - C H A R - I N A 0 0 0 2 2
0002240 6 Q P R I M A R Y - S T R E A
0002260 M 2 1 Q P H I - T Y P E - E
0002300 R R O R 6 S T R E A M P ) \r
0002320 ( 1 0 1 Q 004 003 C H A R A C T E
0002340 R - D E S I G N A T O R T Y P E
0002360 # 6 0 Q E R R O R 4 7 Q
0002400 I N T E R N A L ) \r ( 1 2 6 Q
0002420 " e n d o f s t r e a m "
0002440 4 4 Q ( P R I M - C H A R -
0002460 I N A 0 0 0 2 ) 1 5 Q " s t
0002500 r e a m " ) \r P R I M - C H A R
0002520 - O U T A 0 0 0 3 D 1 \r ( N A
0002540 M E E R R O R S E T F 0
0002560 C H A R F 1 S T R E A M )
0002600 \0 \b \0 002 002 \0 P Q \n \0 \0 i 020 \0 (
0002620 4 P R I N 1 ) \r N I L \r ( ) \r
0002640 P R I M - C H A R - O U T D 1
0002660 \r ( P 1 C H A R P 0 S
0002700 T R E A M I 1 C H A R - A
0002720 R G I 0 S T R E A M - A R
0002740 G ) \0 d 002 \0 \0 002 021 001 @ \t \0 \0
0002760 221 @ 207 o \0 \0 \0 @ \n \0 \0 X d \b \0 \0
0003000 360 221 i 270 A 004 ` \0 \0 360 221 A 207 o \0 \0
0003020 \0 A \n \0 \0 006 \0 \0 311 \0 \t \0 \0 Y H d
0003040 i 360 236 277 ` \0 \0 230 g \0 \0 A \n \0 \0 h
0003060 020 H g \0 \0 \n \0 \0 247 o \0 \0 \0 \t \0 \0
0003100 277 o \0 \0 \0 \t \0 \0 ` \0 \0 020 \0 ( 1 3
0003120 6 Q P R I M - C H A R - O U T
0003140 A 0 0 0 3 1 2 6 Q N L I S P
0003160 - E R R O R 1 1 6 Q O P E N
0003200 P 1 0 5 Q S E N D . T O . E
0003220 M A C S 6 3 Q C H A R A C T
0003240 E R 5 3 Q P H I - T Y P E -
0003260 E R R O R 2 6 Q P R I M A R
0003300 Y - S T R E A M 2 1 Q P H I
0003320 - T Y P E - E R R O R 6 S T
0003340 R E A M P ) \r ( 1 4 1 Q H O K
0003360 A Y 1 1 3 Q O U T P U T 1
0003400 0 1 Q C H A R A C T E R 7 5
0003420 Q E M A C S . T O P . L E V E
0003440 L 5 6 Q C H A R A C T E R -
0003460 D E S I G N A T O R 3 7 Q 004
0003500 003 C H A R A C T E R - D E S I G
0003520 N A T O R T Y P E # ) \r ( 1 3
0003540 3 Q ( P R I M - C H A R - O U
0003560 T A 0 0 0 3 ) 1 2 3 Q " s t
0003600 r e a m n o t o p e n f o
0003620 r o u t p u t " 4 7 Q " c
0003640 h a r a c t e r " 1 5 Q " s
0003660 t r e a m " ) \r P R I M - C H A
0003700 R - P E E K A 0 0 0 2 A 0 0 0 3
0003720 D 1 \r ( N A M E E R R O R S
0003740 E T F 0 S T R E A M F
0003760 1 C H ) \0 \r \0 002 002 \0 P ` \0 \0
0004000 \n \0 \0 c 002 h 032 020 \0 ( 6 P E E K
0004020 C ) \r ( 3 N L I S P - R E A D
0004040 - T A B L E ) \r ( ) \r P R I M -
0004060 C H A R - P E E K A 0 0 0 2 D
0004100 1 \r ( N A M E E R R O R S E T
0004120 F 0 R E S E T V A R S L S
0004140 T F 1 R E S E T Y ) \0 035
0004160 \0 002 002 \0 g \0 \0 i \t \0 \0 h 032 032 h 032
0004200 P 032 c \0 277 o \0 \0 \0 \t \0 \0 c 002 i 020
0004220 \0 ( 2 7 Q P R I M - C H A R -
0004240 P E E K A 0 0 0 2 A 0 0 0 3 6
0004260 C O N T R O L ) \r ( 2 C O N
0004300 T R O L ) \r ( 2 4 Q ( P R I
0004320 M - C H A R - P E E K A 0 0 0 2
0004340 A 0 0 0 3 ) ) \r P R I M - C H A
0004360 R - P E E K D 1 \r ( P 5 R
0004400 E S E T Z P 4 R E S E T Y
0004420 P 3 L I S P X H I S T P
0004440 1 S T R E A M P 0 C H
0004460 I 0 S T R E A M - A R G
0004500 F 6 L I S P X H I S T F
0004520 7 R E S E T V A R S L S T )
0004540 \0 ] 006 002 \0 001 021 0 002 @ \t \0 \0 221 @ 207
0004560 o \0 \0 \0 @ \n \0 \0 Y d \b \0 \0 360 221 i
0004600 271 V 021 ! 005 W 016 o \0 \0 \0 g \0 \0 \n \0
0004620 \0 221 h 202 g \0 \0 ] \n \0 \0 277 M 223 \b \0
0004640 \0 277 023 H 236 ` \0 \0 037 H \t \0 \0 272 d J
0004660 024 \0 277 020 I \t \0 \0 277 o \0 \0 \0 \t \0 \0
0004700 h 020 \0 ( 1 3 1 Q N L I S P - E
0004720 R R O R 1 2 1 Q C L O S E F
0004740 ? 1 0 6 Q C H C O N 1 7 2
0004760 Q E R R O R ! 6 4 Q R E S
0005000 E T R E S T O R E 5 2 Q P R
0005020 I M - C H A R - P E E K A 0 0 0
0005040 2 2 6 Q P R I M A R Y - S T
0005060 R E A M 2 1 Q P H I - T Y P
0005100 E - E R R O R 6 S T R E A M
0005120 P ) \r ( 1 0 1 Q 004 003 C H A R A
0005140 C T E R - D E S I G N A T O R T
0005160 Y P E # 6 0 Q E R R O R 4
0005200 7 Q I N T E R N A L ) \r ( 1
0005220 2 6 Q " e n d o f s t r e
0005240 a m " 4 4 Q ( P R I M - C H
0005260 A R - P E E K A 0 0 0 2 ) 1 5
0005300 Q " s t r e a m " ) \r P R I M
0005320 - C H A R - S T U F F D 1 \r (
0005340 P 1 S T R E A M P 0 C
0005360 H I 1 C H A R - A R G I
0005400 0 S T R E A M - A R G ) \0
0005420 7 002 \0 \0 002 021 001 @ \t \0 \0 221 @ 207 o
0005440 \0 \0 \0 @ \n \0 \0 Y A 004 ` \0 \0 360 221 A
0005460 207 o \0 \0 \0 A \n \0 \0 006 \0 \0 311 \0 \t \0
0005500 \0 X o \0 \0 \0 \t \0 \0 h 020 \0 ( 6 3 Q
0005520 N L I S P - E R R O R 5 3 Q
0005540 C H A R A C T E R 4 3 Q P
0005560 H I - T Y P E - E R R O R 2 1
0005600 Q P H I - T Y P E - E R R O R
0005620 6 S T R E A M P ) \r ( 4 6 Q
0005640 C H A R A C T E R - D E S I G
0005660 N A T O R 2 7 Q 004 003 C H A R
0005700 A C T E R - D E S I G N A T O R
0005720 T Y P E # ) \r ( 6 0 Q " s t
0005740 u f f i n g c h a r a c t e r
0005760 s n o t s u p p o r t e d
0006000 y e t " 3 7 Q " c h a r a c
0006020 t e r " 1 5 Q " s t r e a m
0006040 " ) \r P R I M - C L O S E - S T
0006060 R E A M D 1 \r ( P 0 S I
0006100 0 S T R E A M ) \0 " 001 \0 \0
0006120 001 021 020 \0 @ \t \0 \0 221 @ 207 o \0 \0 \0 @
0006140 \n \0 \0 X d \t \0 \0 ` \0 \0 g \0 \0 h 032
0006160 032 020 \0 ( 2 6 Q C L O S E F ?
0006200 2 1 Q P H I - T Y P E - E R R
0006220 O R 6 S T R E A M P ) \r ( 3
0006240 4 Q O K 3 1 Q * Q U O T E
0006260 * ) \r ( 1 5 Q " s t r e a m
0006300 " ) \r P R I M - C L O S E A L L
0006320 D 1 \r N I L \0 \b \0 \0 \0 \0 \b \0
0006340 \0 ` \0 \0 020 \0 ( 2 C L O S E A L
0006360 L ) \r ( 5 H O K A Y ) \r ( ) \r
0006400 P R I M - E M P T Y - S T R E A
0006420 M ? D 1 \r ( P 0 S I 0
0006440 S T R E A M ) \0 , 001 \0 \0 001 021
0006460 020 \0 @ \t \0 \0 221 @ 207 o \0 \0 \0 @ \n \0
0006500 \0 X d \b \0 \0 360 223 ` \0 \0 020 H ` \0 \0
0006520 \n \0 \0 h 360 h 360 h 360 020 \0 ( 4 3 Q
0006540 S K I P S E P R S 2 6 Q P R
0006560 I M A R Y - S T R E A M 2 1 Q
0006600 P H I - T Y P E - E R R O R
0006620 6 S T R E A M P ) \r ( 4 0 Q
0006640 N L I S P - R E A D - T A B L E
0006660 3 3 Q $ F A L S E ) \r ( 1
0006700 5 Q " s t r e a m " ) \r P R I
0006720 M - E X T E R N A L I Z E A 0 0
0006740 0 1 D 1 \r ( N A M E E R R O
0006760 R S E T L ( 0 N I L ) P
0007000 1 I F 2 T E M P - S T
0007020 R E A M F 3 R E S E T V A
0007040 R S L S T F 4 S I Z E F
0007060 5 R E S U L T F 6 S T
0007100 R U C T U R E F 7 R E S E
0007120 T Y ) \0 \ 002 006 002 \0 o \0 \0 \0 \t \0
0007140 \0 c 004 277 g \0 \0 R h 032 032 h h 032 032 S
0007160 032 c 006 277 V \t \0 \0 R \t \0 \0 h d d R
0007200 \r 006 \0 \0 277 R \t \0 \0 c \b \t \0 \0 c \n
0007220 277 R j \n \0 \0 277 T k 021 002 001 I H 363 253
0007240 U I R + 277 I k 324 Y 260 363 023 R \t \0
0007260 \0 c 016 i 020 \0 ( 1 2 6 Q C L O S
0007300 E F ? 7 3 Q S E T F I L E P
0007320 T R 6 3 Q A L L O C S T R I
0007340 N G 5 6 Q G E T E O F P T R
0007360 5 1 Q P R I N T D E F 4 1
0007400 Q P O S I T I O N 3 5 Q P
0007420 R E P R I N T 6 O P E N T E
0007440 X T S T R E A M ) \r ( 1 4 Q C
0007460 L O S E F ? ) \r ( 3 " " ) \r
0007500 P R I M - E X T E R N A L I Z E
0007520 D 1 \r ( P 6 R E S E T Z
0007540 P 5 R E S E T Y P 4 L
0007560 I S P X H I S T P 3 R E S
0007600 U L T P 2 S I Z E P 1
0007620 S T R U C T U R E P 0 T
0007640 E M P - S T R E A M I 0 S
0007660 T R U C T - A R G F 7 L I
0007700 S P X H I S T F 1 0 Q R E
0007720 S E T V A R S L S T ) \0 , \a 002
0007740 \0 001 021 @ 003 @ \t \0 \0 Y W 016 021 ! 006 W
0007760 020 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0010000 \0 ^ \n \0 \0 277 N 222 \b \0 \0 K 020 \0 ( 5
0010020 0 Q E R R O R ! 4 2 Q R E
0010040 S E T R E S T O R E 3 0 Q P
0010060 R I M - E X T E R N A L I Z E A
0010100 0 0 0 1 6 S T R I P - E X P
0010120 E C T E D - H A N D L E ) \r ( 3
0010140 6 Q E R R O R 2 5 Q I N T
0010160 E R N A L ) \r ( 2 2 Q ( P R
0010200 I M - E X T E R N A L I Z E A 0
0010220 0 0 1 ) ) \r P R I M - I N T E R
0010240 N A L I Z E A 0 0 0 2 A 0 0 0 3
0010260 D 1 \r ( N A M E E R R O R S
0010300 E T F 0 S T R E A M F
0010320 1 E X P ) \0 \f \0 002 002 \0 P ` \0
0010340 \0 \n \0 \0 c 002 i 020 \0 ( 6 R E A D
0010360 ) \r ( 3 N L I S P - R E A D -
0010400 T A B L E ) \r ( ) \r P R I M - I
0010420 N T E R N A L I Z E A 0 0 0 2
0010440 D 1 \r ( N A M E E R R O R S E
0010460 T F 0 S T R E A M F 1
0010500 R E S E T V A R S L S T F
0010520 2 E X P F 3 S T R I N G
0010540 F 4 R E S E T Y ) \0 ] \0
0010560 005 002 \0 o \0 \0 \0 \t \0 \0 c \0 277 g \0 \0
0010600 P h 032 032 h h 032 032 Q 032 c 002 277 S P \n
0010620 \0 \0 277 o \0 \0 \0 P \n \0 \0 277 P j \n \0
0010640 \0 277 P ` \0 \0 \n \0 \0 262 026 o \0 \0 \0 \t
0010660 \0 \0 277 R 262 356 R 001 g \0 \0 360 231 260 345 o
0010700 \0 \0 \0 \t \0 \0 277 P \t \0 \0 c \b i 020 \0
0010720 ( 1 2 7 Q C L O S E F ? 1 2
0010740 2 Q N L I S P - E R R O R 7
0010760 6 Q P R I M - I N T E R N A L
0011000 I Z E A 0 0 0 2 A 0 0 0 3 6 5
0011020 Q S K I P S E P R S 5 5 Q
0011040 S E T F I L E P T R 4 7 Q P
0011060 R I N 1 3 6 Q P R I N 1 6
0011100 O P E N T E X T S T R E A M )
0011120 \r ( 1 0 7 Q . ; 6 2 Q N L
0011140 I S P - R E A D - T A B L E 1
0011160 4 Q C L O S E F ? ) \r ( 1 1
0011200 7 Q " i n t e r n a l i z a t
0011220 i o n e r r o r " 7 3 Q (
0011240 P R I M - I N T E R N A L I Z E
0011260 A 0 0 0 2 A 0 0 0 3 ) 4 3 Q
0011300 " " 3 " " ) \r P R I M - I
0011320 N T E R N A L I Z E D 1 \r ( P
0011340 6 R E S E T Z P 5 R E
0011360 S E T Y P 4 L I S P X H I
0011400 S T P 2 S T R E A M P
0011420 1 S T R I N G P 0 E X P
0011440 I 0 S T R I N G - A R G
0011460 F 7 L I S P X H I S T F
0011500 1 0 Q R E S E T V A R S L S T
0011520 ) \0 C \a 002 \0 001 021 @ 003 @ 005 \a 221 @
0011540 207 o \0 \0 \0 @ \n \0 \0 Y W 016 021 ! 006 W
0011560 020 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0011600 \0 ^ \n \0 \0 277 N 223 \b \0 \0 277 023 H \t \0
0011620 \0 273 ` \0 \0 K h 032 032 020 \0 ( 7 0 Q
0011640 D I G E S T 6 2 Q E R R O R
0011660 ! 5 4 Q R E S E T R E S T O
0011700 R E 4 2 Q P R I M - I N T E
0011720 R N A L I Z E A 0 0 0 2 2 0 Q
0011740 P H I - T Y P E - E R R O R )
0011760 \r ( 7 4 Q * Q U O T E * 5 0
0012000 Q E R R O R 3 7 Q I N T E
0012020 R N A L ) \r ( 3 4 Q ( P R I
0012040 M - I N T E R N A L I Z E A 0 0
0012060 0 2 ) 1 4 Q " s t r i n g "
0012100 ) \r P R I M - O P E N - S T R E
0012120 A M A 0 0 0 2 D 1 \r ( N A M E
0012140 E R R O R S E T F 0 F I
0012160 L E F 1 S T R E A M ) \0
0012200 021 \0 002 002 \0 P h d d o \0 \0 \0 \r 005 \0
0012220 \0 c 002 i 020 \0 ( 1 3 Q O P E N T
0012240 E X T S T R E A M ) \r N I L \r (
0012260 7 ( ( C A C H E N I L ) )
0012300 ) \r P R I M - O P E N - S T R E
0012320 A M D 1 \r ( P 3 F N A M E
0012340 P 2 R E S U L T P 1
0012360 F I L E P 0 S T R E A M
0012400 I 0 F I L E - N A M E - S T
0012420 R I N G ) \0 h 005 \0 \0 001 021 P 004 @
0012440 005 \a 221 @ 207 o \0 \0 \0 @ \n \0 \0 [ d \t
0012460 \0 \0 Y h X o \0 \0 \0 \t \0 \0 H 265 027 \b
0012500 \0 \0 001 \ d l \t 360 262 027 277 o \0 \0 \0 \t
0012520 \0 \0 260 / \t \0 \0 224 H j \n \0 \0 H 020 l
0012540 027 360 230 o \0 \0 \0 \t \0 \0 260 027 L l * 360
0012560 227 o \0 \0 \0 \t \0 \0 207 H \t \0 \0 277 \b \0
0012600 \0 h 020 \0 ( 1 4 4 Q E R R O R !
0012620 1 4 0 Q C L O S E F ? 1 3
0012640 3 Q N L I S P - E R R O R 1
0012660 1 5 Q N L I S P - E R R O R
0012700 1 0 0 Q S E T F I L E P T R
0012720 7 2 Q R A N D A C C E S S P
0012740 6 5 Q N L I S P - E R R O R
0012760 4 5 Q E R R O R N 3 7 Q P
0013000 R I M - O P E N - S T R E A M A
0013020 0 0 0 2 2 5 Q M K A T O M
0013040 2 0 Q P H I - T Y P E - E R R
0013060 O R ) \r N I L \r ( 1 3 0 Q "
0013100 b a d f i l e n a m e " 1
0013120 1 2 Q " u n a b l e t o f
0013140 i n d t h a t f i l e " 6
0013160 2 Q " u n a b l e t o o p
0013200 e n t h a t f i l e " 3 4
0013220 Q ( P R I M - O P E N - S T R
0013240 E A M A 0 0 0 2 ) 1 4 Q " s
0013260 t r i n g " ) \r P R I M - P R I
0013300 N T A 0 0 0 4 D 1 \r ( N A M E
0013320 E R R O R S E T P 0 X
0013340 F 1 S T R E A M F 2 A
0013360 R G S ) \0 } 001 002 002 \0 R 260 u d 001
0013400 021 001 \0 H ` \0 \0 360 263 h H 005 \a 262 032 `
0013420 \0 \0 234 Q i 360 230 g \0 \0 H \n \0 \0 260 Q
0013440 H Q \n \0 \0 260 J H 004 ` \0 \0 360 262 " `
0013460 \0 \0 234 Q i 360 230 g \0 \0 H \n \0 \0 260 1
0013500 H 006 \0 \0 311 \0 \t \0 \0 Q \n \0 \0 260 " `
0013520 \0 \0 233 Q i 360 227 g \0 \0 H \n \0 \0 217 H
0013540 \t \0 \0 Q \t \0 \0 h d d Q \r 006 \0 \0 277
0013560 023 002 003 265 213 i 020 \0 ( 1 6 3 Q P R
0013600 I N T D E F 1 5 3 Q P O S I
0013620 T I O N 1 4 7 Q P R E P R I
0013640 N T 1 4 2 Q S E N D . T O .
0013660 E M A C S 1 2 1 Q P R I N 1
0013700 1 1 5 Q C H A R A C T E R
0013720 1 0 2 Q S E N D . T O . E M A
0013740 C S 5 1 Q P R I N 1 4 2 Q
0013760 S E N D . T O . E M A C S ) \r
0014000 ( 1 3 6 Q S T R U C T U R E
0014020 1 2 6 Q E M A C S . T O P . L
0014040 E V E L 1 1 0 Q C H A R A C
0014060 T E R - D E S I G N A T O R 7
0014100 6 Q C H A R A C T E R 6 6 Q
0014120 E M A C S . T O P . L E V E L
0014140 6 0 Q 004 003 C H A R A C T E R
0014160 - D E S I G N A T O R T Y P E #
0014200 3 6 Q S T R I N G 2 6 Q
0014220 E M A C S . T O P . L E V E L
0014240 1 3 Q * R A I L * ) \r ( ) \r P
0014260 R I M - P R I N T D 1 \r ( P
0014300 0 S T R E A M I 0 A R G
0014320 S ) \0 Z 002 \0 \0 001 021 001 @ 003 231 @
0014340 d 001 004 ` \0 \0 360 230 277 o \0 \0 \0 @ \n \0
0014360 \0 001 ` \0 \0 360 263 : @ 001 Y \t \0 \0 221 I
0014400 207 o \0 \0 \0 I \n \0 \0 X \b \0 \0 360 221 i
0014420 270 ` \0 \0 257 H g \0 \0 \n \0 \0 247 o \0 \0
0014440 \0 \t \0 \0 277 o \0 \0 \0 \t \0 \0 ` \0 \0 020
0014460 h 020 \0 ( 1 2 2 Q P R I M - P R
0014500 I N T A 0 0 0 4 1 1 2 Q N L
0014520 I S P - E R R O R 1 0 2 Q O
0014540 P E N P 6 3 Q P R I M A R Y
0014560 - S T R E A M 5 7 Q P H I -
0014600 T Y P E - E R R O R 4 4 Q S
0014620 T R E A M P 2 7 Q P H I - T
0014640 Y P E - E R R O R ) \r ( 1 2 5 Q
0014660 H O K A Y 7 7 Q O U T P U
0014700 T 7 2 Q E M A C S . T O P .
0014720 L E V E L 3 3 Q * R A I L *
0014740 1 4 Q 004 003 3 T A G T Y P E #
0014760 ) \r ( 1 1 7 Q ( P R I M - P
0015000 R I N T A 0 0 0 4 ) 1 0 7 Q
0015020 " s t r e a m n o t o p e n
0015040 f o r o u t p u t " 5 3 Q
0015060 " s t r e a m " 2 3 Q " s
0015100 e q u e n c e " ) \r P R I M - P
0015120 R I N T - S T R U C T U R E A 0
0015140 0 0 2 D 1 \r ( N A M E E R R
0015160 O R S E T F 0 S T R E A M
0015200 F 1 S T R U C T U R E )
0015220 \0 023 \0 002 002 \0 Q \t \0 \0 P \t \0 \0 h d
0015240 d P \r 006 \0 \0 i 020 \0 ( 1 7 Q P R
0015260 I N T D E F 7 P O S I T I O
0015300 N 3 P R E P R I N T ) \r N I
0015320 L \r ( ) \r P R I M - P R I N T -
0015340 S T R U C T U R E D 1 \r ( P
0015360 1 S T R U C T U R E P 0
0015400 S T R E A M I 1 S T R U C
0015420 T - A R G I 0 S T R E A M
0015440 - A R G ) \0 N 002 \0 \0 002 021 001 @
0015460 \t \0 \0 221 @ 207 o \0 \0 \0 @ \n \0 \0 X A
0015500 \t \0 \0 Y H \b \0 \0 360 222 i X 200 H i 360
0015520 234 ` \0 \0 230 g \0 \0 I \n \0 \0 h 020 H g
0015540 \0 \0 \n \0 \0 247 o \0 \0 \0 \t \0 \0 277 o \0
0015560 \0 \0 \t \0 \0 ` \0 \0 020 \0 ( 1 1 0 Q
0015600 P R I M - P R I N T - S T R U C
0015620 T U R E A 0 0 0 2 1 0 0 Q N
0015640 L I S P - E R R O R 7 0 Q O
0015660 P E N P 5 7 Q S E N D . T O
0015700 . E M A C S 3 3 Q P R I M A
0015720 R Y - S T R E A M 2 6 Q S T
0015740 R I P - E X P E C T E D - H A N
0015760 D L E 2 1 Q P H I - T Y P E
0016000 - E R R O R 6 S T R E A M P
0016020 ) \r ( 1 1 3 Q H O K A Y 6 5
0016040 Q O U T P U T 5 3 Q S T R
0016060 U C T U R E 4 7 Q E M A C S
0016100 . T O P . L E V E L ) \r ( 1 0
0016120 5 Q ( P R I M - P R I N T - S
0016140 T R U C T U R E A 0 0 0 2 ) 7
0016160 5 Q " s t r e a m n o t o
0016200 p e n f o r o u t p u t "
0016220 1 5 Q " s t r e a m " ) \r P R
0016240 I M - R E A D - S T R U C T U R
0016260 E A 0 0 0 3 D 1 \r ( N A M E
0016300 E R R O R S E T ) \0 030 \0 \0 002 \0
0016320 o \0 \0 \0 h d o \0 \0 \0 h d d ` \0 \0
0016340 \r \b \0 \0 h 032 020 \0 ( 2 3 Q T T Y
0016360 I N ) \r ( 1 7 Q N L I S P - R
0016400 E A D - T A B L E ) \r ( 1 1 Q
0016420 ( R E A D N O R A I S E )
0016440 3 ( N I L ) ) \r P R I M - R E
0016460 A D - S T R U C T U R E A 0 0 0
0016500 4 D 1 \r ( N A M E E R R O R
0016520 S E T F 0 S T R E A M F
0016540 1 E X P ) \0 \f \0 002 002 \0 P `
0016560 \0 \0 \n \0 \0 c 002 i 020 \0 ( 6 R E A
0016600 D ) \r ( 3 N L I S P - R E A D
0016620 - T A B L E ) \r ( ) \r P R I M -
0016640 R E A D - S T R U C T U R E D
0016660 1 \r ( P 1 S T R E A M P
0016700 0 E X P I 0 S T R E A M
0016720 - A R G ) \0 300 004 \0 \0 001 021 @ 003 @
0016740 \t \0 \0 221 @ 207 o \0 \0 \0 @ \n \0 \0 Y \b
0016760 \0 \0 360 262 024 ` \0 \0 233 \b \0 \0 272 ` \0 \0
0017000 J h 032 032 020 i 271 ` \0 \0 264 006 ` \0 \0 020
0017020 270 j \t \0 \0 277 I d i 360 262 3 277 o \0 \0
0017040 \0 \t \0 \0 270 h 027 \0 \0 277 H 265 021 ` \0 \0
0017060 \b \0 \0 001 364 262 322 \b \0 \0 260 I 001 001 X d
0017100 g \0 \0 360 262 A 277 o \0 \0 \0 260 5 g \0 \0
0017120 \n \0 \0 262 $ I ` \0 \0 \n \0 \0 262 033 o \0
0017140 \0 \0 \t \0 \0 277 H 265 036 ` \0 \0 \b \0 \0 001
0017160 364 262 226 \b \0 \0 213 I \t \0 \0 277 o \0 \0 \0
0017200 \t \0 \0 277 H 001 g \0 \0 360 222 261 377 | H \t
0017220 \0 \0 273 ` \0 \0 K h 032 032 020 \0 ( 2 6 5
0017240 Q D I G E S T 2 4 6 Q N L
0017260 I S P - E R R O R 2 3 6 Q C
0017300 L O S E F ? 2 3 1 Q E R R O
0017320 R ! 2 2 2 Q E R R O R N 2
0017340 1 0 Q P R I M - R E A D - S T
0017360 R U C T U R E A 0 0 0 4 1 7 7
0017400 Q S K I P S E P R S 1 6 6 Q
0017420 O P E N P 1 3 5 Q E R R O
0017440 R ! 1 2 6 Q E R R O R N 1
0017460 0 7 Q P R I M - R E A D - S T
0017500 R U C T U R E A 0 0 0 3 7 0 Q
0017520 S E T E R R O R N 3 7 Q G
0017540 E T . F R O M . E M A C S 2 5
0017560 Q P R I M A R Y - S T R E A M
0017600 2 1 Q P H I - T Y P E - E R
0017620 R O R 6 S T R E A M P ) \r (
0017640 2 7 1 Q * Q U O T E * 2 5 4
0017660 Q . ; 2 1 7 Q N L I S P -
0017700 E R R O R # 1 7 4 Q N L I S
0017720 P - R E A D - T A B L E 1 6 3
0017740 Q I N P U T 1 4 6 Q . % ]
0017760 1 2 3 Q N L I S P - E R R O
0020000 R # 1 1 4 Q N L I S P - I N
0020020 T E R R U P T 6 2 Q H O K A
0020040 Y 5 5 Q N L I S P - I N T E
0020060 R R U P T 4 3 Q * Q U O T E
0020100 * 3 3 Q E M A C S . T O P .
0020120 L E V E L ) \r ( 2 4 3 Q " e
0020140 n d o f s t r e a m " 2 0
0020160 5 Q ( P R I M - R E A D - S T
0020200 R U C T U R E A 0 0 0 4 ) 1 5
0020220 6 Q " N o t a t i o n e r r
0020240 o r : e x t r a n e o u s #
0020260 ] " 1 0 4 Q ( P R I M - R E
0020300 A D - S T R U C T U R E A 0 0 0
0020320 3 ) 1 5 Q " s t r e a m " )
0020340 \r P R I M - S T R I N G - I N A
0020360 0 0 0 3 A 0 0 0 4 D 1 \r ( N A
0020400 M E E R R O R S E T F 0
0020420 S T R E A M F 1 S T R I N
0020440 G ) \0 \r \0 002 002 \0 P ` \0 \0 \n \0 \0
0020460 c 002 h 032 020 \0 ( 6 R S T R I N G
0020500 ) \r ( 3 D E L I M I T E R - R
0020520 E A D - T A B L E ) \r ( ) \r P R
0020540 I M - S T R I N G - I N A 0 0 0
0020560 3 D 1 \r ( N A M E E R R O R
0020600 S E T F 0 R E S E T V A R
0020620 S L S T F 1 R E S E T Y )
0020640 \0 035 \0 002 002 \0 g \0 \0 i \t \0 \0 h 032
0020660 032 h 032 P 032 c \0 277 o \0 \0 \0 \t \0 \0 c
0020700 002 i 020 \0 ( 2 7 Q P R I M - S T
0020720 R I N G - I N A 0 0 0 3 A 0 0 0
0020740 4 6 C O N T R O L ) \r ( 2
0020760 C O N T R O L ) \r ( 2 4 Q (
0021000 P R I M - S T R I N G - I N A 0
0021020 0 0 3 A 0 0 0 4 ) ) \r P R I M -
0021040 S T R I N G - I N D 1 \r ( P
0021060 5 R E S E T Z P 4 R E S
0021100 E T Y P 3 L I S P X H I S
0021120 T P 2 S T R I N G P 1
0021140 S T R E A M P 0 C H I
0021160 1 D E L I M - A R G I 0
0021200 S T R E A M - A R G F 6
0021220 L I S P X H I S T F 7 R E
0021240 S E T V A R S L S T ) \0 227 006 002
0021260 \0 002 021 0 002 @ \t \0 \0 221 @ 207 o \0 \0 \0
0021300 @ \n \0 \0 Y d \b \0 \0 360 221 i 271 A 004 `
0021320 \0 \0 360 221 A 207 o \0 \0 \0 A \n \0 \0 006 \0
0021340 \0 311 \0 \t \0 \0 X ` \0 \0 H 360 263 025 ` \0
0021360 \0 265 # H 027 \0 \0 g \0 \0 ` \0 \0 \v \0 \0
0021400 277 V 021 ! 005 W 016 o \0 \0 \0 g \0 \0 \n \0
0021420 \0 235 h 216 g \0 \0 ` \0 \0 \v \0 \0 277 260 325
0021440 g \0 \0 ] \n \0 \0 277 M 223 \b \0 \0 277 023 J
0021460 230 I ` \0 \0 \n \0 \0 J 020 I \t \0 \0 277 o
0021500 \0 \0 \0 \t \0 \0 h 020 \0 ( 2 2 3 Q N
0021520 L I S P - E R R O R 2 1 3 Q
0021540 C L O S E F ? 2 0 5 Q R E A
0021560 D C 1 7 2 Q E R R O R ! 1
0021600 6 4 Q R E S E T R E S T O R E
0021620 1 5 2 Q S E T S Y N T A X
0021640 1 3 6 Q P R I M - S T R I N G
0021660 - I N A 0 0 0 3 1 1 5 Q S E
0021700 T S Y N T A X 6 3 Q C H A R
0021720 A C T E R 5 3 Q P H I - T Y
0021740 P E - E R R O R 2 6 Q P R I
0021760 M A R Y - S T R E A M 2 1 Q
0022000 P H I - T Y P E - E R R O R 6
0022020 S T R E A M P ) \r ( 2 0 2 Q
0022040 N L I S P - R E A D - T A B L E
0022060 1 6 0 Q E R R O R 1 4 7 Q
0022100 D E L I M I T E R - R E A D -
0022120 T A B L E 1 4 4 Q O T H E R
0022140 1 3 3 Q I N T E R N A L 1
0022160 1 2 Q D E L I M I T E R - R E
0022200 A D - T A B L E 1 0 7 Q S E
0022220 P R C H A R 1 0 4 Q L A S T
0022240 - S E T - D E L I M I T E R 7
0022260 6 Q L A S T - S E T - D E L I
0022300 M I T E R 6 7 Q L A S T - S
0022320 E T - D E L I M I T E R 5 6 Q
0022340 C H A R A C T E R - D E S I G
0022360 N A T O R 3 7 Q 004 003 C H A R
0022400 A C T E R - D E S I G N A T O R
0022420 T Y P E # ) \r ( 2 2 0 Q " e
0022440 n d o f s t r e a m " 1 3
0022460 0 Q ( P R I M - S T R I N G -
0022500 I N A 0 0 0 3 ) 4 7 Q " c h
0022520 a r a c t e r " 1 5 Q " s t
0022540 r e a m " ) \r P R I M - S T R I
0022560 N G - O U T A 0 0 0 3 D 1 \r (
0022600 N A M E E R R O R S E T F
0022620 0 S T R I N G F 1 S T R
0022640 E A M ) \0 \b \0 002 002 \0 P Q \n \0 \0
0022660 i 020 \0 ( 4 P R I N 1 ) \r N I L
0022700 \r ( ) \r P R I M - S T R I N G -
0022720 O U T D 1 \r ( P 1 S T R I
0022740 N G P 0 S T R E A M I
0022760 1 S T R I N G - A R G I 0
0023000 S T R E A M - A R G ) \0 Y 002
0023020 \0 \0 002 021 001 @ \t \0 \0 221 @ 207 o \0 \0
0023040 \0 @ \n \0 \0 X A 005 \a 221 A 207 o \0 \0 \0
0023060 A \n \0 \0 Y H \b \0 \0 360 262 026 H i 360 234
0023100 ` \0 \0 230 g \0 \0 A \n \0 \0 h 020 i X 200
0023120 H g \0 \0 \n \0 \0 247 o \0 \0 \0 \t \0 \0 277
0023140 o \0 \0 \0 \t \0 \0 ` \0 \0 020 \0 ( 1 2 3
0023160 Q P R I M - S T R I N G - O U
0023200 T A 0 0 0 3 1 1 3 Q N L I S
0023220 P - E R R O R 1 0 3 Q O P E
0023240 N P 6 7 Q S E N D . T O . E
0023260 M A C S 4 5 Q P R I M A R Y
0023300 - S T R E A M 4 0 Q P H I -
0023320 T Y P E - E R R O R 2 1 Q P
0023340 H I - T Y P E - E R R O R 6
0023360 S T R E A M P ) \r ( 1 2 6 Q H
0023400 O K A Y 1 0 0 Q O U T P U T
0023420 6 3 Q S T R I N G 5 7 Q
0023440 E M A C S . T O P . L E V E L )
0023460 \r ( 1 2 0 Q ( P R I M - S T
0023500 R I N G - O U T A 0 0 0 3 ) 1
0023520 1 0 Q " s t r e a m n o t
0023540 o p e n f o r o u t p u t "
0023560 3 4 Q " s t r i n g " 1 5
0023600 Q " s t r e a m " ) \r ( P R E
0023620 T T Y C O M P R I N T I O C O
0023640 M S ) \r ( R P A Q Q I O C O M
0023660 S ( ( F N S P R I M - C H A
0023700 R - I N P R I M - C H A R - O
0023720 U T P R I M - C H A R - P E E
0023740 K P R I M - C H A R - S T U F
0023760 F P R I M - C L O S E - S T R
0024000 E A M \r P R I M - C L O S E A
0024020 L L P R I M - E M P T Y - S T
0024040 R E A M ? P R I M - E X T E R
0024060 N A L I Z E P R I M - I N T E
0024100 R N A L I Z E P R I M - O P E
0024120 N - S T R E A M P R I M - P R
0024140 I N T \r P R I M - P R I N T -
0024160 S T R U C T U R E P R I M - R
0024200 E A D - S T R U C T U R E P R
0024220 I M - S T R I N G - I N P R I
0024240 M - S T R I N G - O U T ) ( V
0024260 A R S E M A C S . T O P . L E
0024300 V E L ) ( \r G L O B A L V A R
0024320 S E M A C S . T O P . L E V E
0024340 L ) ( S P E C V A R S N I L
0024360 ) ( L O C A L V A R S T ) )
0024400 ) \r ( R P A Q Q E M A C S . T
0024420 O P . L E V E L N I L ) \r ( P
0024440 U T P R O P S I O C O P Y R
0024460 I G H T ( " T h e K n i g h
0024500 t s o f t h e L a m b d a
0024520 C a l c u l u s " 1 9 8 4
0024540 1 9 8 5 ) ) \r N I L \r
0024553