$ od -c -N 50000 [eris]<LispCore>SOURCES>APRINT.DCOM!48
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r ( f i l e c r
0000100 e a t e d " 1 6 - O c t - 8 6
0000120 2 1 : 2 9 : 0 0 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > s o u r c
0000200 e s > a p r i n t . \ ; 5 1 )
0000220 \r " 1 4 - O c t - 8 6 2 1 : 0
0000240 6 : 0 5 " | t c o m p l ' d |
0000260 | i n | " X e r o x L i s
0000300 p 1 4 - O c t - 8 6 . . . "
0000320 | d a t e d | " 1 4 - O c t
0000340 - 8 6 2 2 : 2 4 : 4 7 " ) \r (
0000360 f i l e c r e a t e d " 1 6 -
0000400 O c t - 8 6 2 1 : 2 8 : 0 6 "
0000420 { e r i s } < l i s p c o r e
0000440 > s o u r c e s > a p r i n t .
0000460 \ ; 5 1 7 2 8 5 7 | c h a n
0000500 g e s | | t o : | ( f n s
0000520 \r p r i n t - c i r c l e - e n
0000540 t e r p r i n t - c i r c l e
0000560 - s c a n p r i n t - c i r c
0000600 l e - l o o k u p \ \ c o n v
0000620 e r t n u m b e r ) | p r e v
0000640 i o u s | | d a t e : | \r "
0000660 1 4 - O c t - 8 6 2 0 : 1 1 :
0000700 0 9 " { e r i s } < l i s p c
0000720 o r e > s o u r c e s > a p r i
0000740 n t . \ ; 4 7 ) \r p r i n 1 d
0000760 1 \r ( l ( 1 f i l e 0 x
0001000 ) p 8 \ \ t h i s f i l e
0001020 l i n e l e n g t h p 7 *
0001040 p r i n t - r a d i x * p 6
0001060 * p r i n t - e s c a p e *
0001100 p 5 * p r i n t - c a s e *
0001120 p 4 * p r i n t - l e n g
0001140 t h * p 3 * p r i n t - l
0001160 e v e l * f 9 * r e a d t
0001200 a b l e * f 1 0 \ \ t e r
0001220 m . o f d f 1 1 p l v l f
0001240 i l e f l g f 1 2 * p r i
0001260 n t - c a s e * f 1 3 * p
0001300 r i n t - l e v e l * f 1 4
0001320 * p r i n t - l e n g t h *
0001340 f 1 5 * i n t e r l i s p -
0001360 p r i n 1 - c a s e * ) \0 V \t
0001400 \a \0 002 A g \0 \0 \n \0 \0 021 ! 002 W 022 006
0001420 \0 \0 312 002 j 360 h 360 265 \n H W 024 360 265
0001440 004 W 026 Y 264 004 W 032 I 264 004 W 034 W 036 265
0001460 004 W 030 021 3 \b H 006 \0 \0 310 037 Z d j 360
0001500 224 277 ` \0 \0 207 n 377 377 360 221 h 200 J _ 020
0001520 @ H j \v \0 \0 @ 020 \0 ( 8 2 \ \ p
0001540 r i n d a t u m 6 \ \ g e t
0001560 s t r e a m ) \r ( 6 5 \ \ l i
0001600 n e l e n g t h 5 4 s t r e
0001620 a m 1 4 r e a d t a b l e p
0001640 3 o u t p u t ) \r ( ) \r p r
0001660 i n 2 d 1 \r ( l ( 2 r d t
0001700 b l 1 f i l e 0 x ) p
0001720 9 \ \ t h i s f i l e l i n
0001740 e l e n g t h p 8 * p a c
0001760 k a g e * p 7 * p r i n t
0002000 - l e n g t h * p 6 * p r
0002020 i n t - l e v e l * p 5 *
0002040 p r i n t - r a d i x * p 4
0002060 * p r i n t - e s c a p e *
0002100 p 3 * r e a d t a b l e *
0002120 f 1 0 * r e a d t a b l e *
0002140 f 1 1 \ \ t e r m . o f d
0002160 f 1 2 p l v l f i l e f l
0002200 g f 1 3 * p a c k a g e *
0002220 f 1 4 * p r i n t - b a s
0002240 e * f 1 5 * p r i n t - l
0002260 e v e l * f 1 6 * p r i n
0002300 t - l e n g t h * ) \0 w \n \a \0
0002320 003 A g \0 \0 \n \0 \0 021 ! 002 B 225 B d i
0002340 360 222 277 W 024 006 \0 \0 b 004 006 \0 \0 312 002
0002360 j 360 h 360 265 \n H W 026 360 265 004 W 030 271 B
0002400 i W 034 l \n 360 h 360 I 264 004 W 036 I 264 004
0002420 W B 006 \0 \0 312 \0 j 360 243 ` \0 \0 201
0002440 W 032 021 026 \t H 006 \0 \0 310 037 Z d j 360 224
0002460 277 ` \0 \0 207 n 377 377 360 221 h 200 J _ 022 @
0002500 H j \v \0 \0 @ 020 \0 ( 1 1 5 \ \ p
0002520 r i n d a t u m 6 \ \ g e t
0002540 s t r e a m ) \r ( 9 8 \ \ l i
0002560 n e l e n g t h 8 7 s t r e
0002600 a m 7 7 * i n t e r l i s p
0002620 - p a c k a g e * 6 8 r e a
0002640 d t a b l e p 2 7 r e a d t
0002660 a b l e p 2 2 r e a d t a b
0002700 l e p 3 o u t p u t ) \r ( )
0002720 \r p r i n 3 d 1 \r ( l ( 1
0002740 f i l e 0 x ) p 7 \ \
0002760 t h i s f i l e l i n e l e n g
0003000 t h p 6 * p r i n t - r a
0003020 d i x * p 5 * p r i n t -
0003040 e s c a p e * p 4 * p r i
0003060 n t - c a s e * p 3 * p r
0003100 i n t - l e n g t h * p 2
0003120 * p r i n t - l e v e l * f
0003140 8 * r e a d t a b l e * f
0003160 9 \ \ t e r m . o f d f 1
0003200 0 p l v l f i l e f l g f
0003220 1 1 * p r i n t - c a s e *
0003240 f 1 2 * p r i n t - l e v e
0003260 l * f 1 3 * p r i n t - l
0003300 e n g t h * f 1 4 * i n t
0003320 e r l i s p - p r i n 1 - c a s
0003340 e * ) \0 < \b \a \0 002 A g \0 \0 \n \0
0003360 \0 021 021 001 W 020 006 \0 \0 312 002 j 360 h 360
0003400 265 \n H W 022 360 265 004 W 024 Y 264 004 W 030 I
0003420 264 004 W 032 W 034 265 004 W 026 021 3 \a @ H j
0003440 \v \0 \0 @ 020 \0 ( 5 6 \ \ p r i n
0003460 d a t u m 6 \ \ g e t s t r
0003500 e a m ) \r ( 1 4 r e a d t a b
0003520 l e p 3 o u t p u t ) \r ( )
0003540 \r p r i n 4 d 1 \r ( l ( 2
0003560 r d t b l 1 f i l e 0 x
0003600 ) p 8 \ \ t h i s f i l e
0003620 l i n e l e n g t h p 7 *
0003640 p a c k a g e * p 6 * p r
0003660 i n t - l e n g t h * p 5
0003700 * p r i n t - l e v e l * p
0003720 4 * p r i n t - r a d i x *
0003740 p 3 * p r i n t - e s c a p
0003760 e * p 2 * r e a d t a b l
0004000 e * f 9 * r e a d t a b l
0004020 e * f 1 0 \ \ t e r m . o
0004040 f d f 1 1 p l v l f i l e
0004060 f l g f 1 2 * p a c k a g
0004100 e * f 1 3 * p r i n t - b
0004120 a s e * f 1 4 * p r i n t
0004140 - l e v e l * f 1 5 * p r
0004160 i n t - l e n g t h * ) \0 ] \t
0004200 \a \0 003 A g \0 \0 \n \0 \0 021 021 001 B 225 B
0004220 d i 360 222 277 W 022 006 \0 \0 b 004 006 \0 \0 312
0004240 002 j 360 h 360 265 \n H W 024 360 265 004 W 026
0004260 271 B i W 032 l \n 360 h 360 I 264 004 W 034 I
0004300 264 004 W 036 B 006 \0 \0 312 \0 j 360 243 ` \0
0004320 \0 201 W 030 021 026 \b @ H j \v \0 \0 @ 020 \0
0004340 ( 8 9 \ \ p r i n d a t u m
0004360 6 \ \ g e t s t r e a m ) \r (
0004400 7 7 * i n t e r l i s p - p a
0004420 c k a g e * 6 8 r e a d t a
0004440 b l e p 2 7 r e a d t a b l
0004460 e p 2 2 r e a d t a b l e p
0004500 3 o u t p u t ) \r ( ) \r p r
0004520 i n t d 1 \r ( l ( 2 r d t
0004540 b l 1 f i l e 0 x ) )
0004560 \0 ! 002 \0 \0 003 A g \0 \0 \n \0 \0 021 021 001
0004600 @ H B \v \0 \0 H 006 \0 \0 311 271 H l \r
0004620 l 002 I 016 @ 020 \0 ( 1 5 p r i n 2
0004640 6 \ \ g e t s t r e a m ) \r
0004660 ( 1 9 s t r e a m 3 o u t
0004700 p u t ) \r ( ) \r p r i n t c c o
0004720 d e d 1 \r ( l ( 1 f i l e
0004740 0 c h a r c o d e ) ) \0 -
0004760 003 \0 \0 002 A g \0 \0 \n \0 \0 @ d 005 001 233
0005000 277 j @ 361 221 h 200 i 221 @ 203 @ \t \0 \0 021
0005020 022 002 H 006 \0 \0 311 272 H I l 002 J 016 020
0005040 \0 ( 2 6 \ \ i l l e g a l . a
0005060 r g 6 \ \ g e t s t r e a m
0005100 ) \r ( 3 3 s t r e a m 3 o
0005120 u t p u t ) \r ( ) \r p r i n t l
0005140 e v e l d 1 \r ( l ( 1 c d
0005160 r v a l 0 c a r v a l ) f
0005200 0 * p r i n t - l e v e l *
0005220 f 1 * p r i n t - l e n g
0005240 t h * ) \0 ; \0 002 \0 002 @ 003 265 026 P
0005260 265 004 m 377 Q 265 004 m 377 032 @ 262 032 j @ 361
0005300 234 h 213 002 b 002 277 @ 001 b \0 277 260 343 i 264
0005320 003 @ c \0 277 A 234 j A 361 221 h 200 i 264 003
0005340 A c 002 277 020 \0 n i l \r n i l \r ( )
0005360 \r r a d i x d 1 \r ( l ( 0
0005400 n ) f 1 * p r i n t - b a
0005420 s e * ) \0 % 001 001 \0 001 Q @ 262 ! @
0005440 021 001 \0 H 005 001 221 h 200 i 252 k H 361 246 H
0005460 d l $ 361 224 277 H \t \0 \0 022 c 002 277 020 \0
0005500 ( 3 0 \ \ i n v a l i d . r a
0005520 d i x ) \r n i l \r ( ) \r s p a c
0005540 e s d 1 \r ( l ( 1 f i l e
0005560 0 n ) ) \0 O 004 \0 \0 002 A g \0
0005600 \0 \n \0 \0 021 1 003 H 006 \0 \0 310 037 Z d j
0005620 360 224 277 ` \0 \0 207 n 377 377 360 221 h 200 J Y
0005640 237 @ H 006 \0 \0 310 035 330 I 361 224 H \t \0 \0
0005660 277 @ d j 361 264 025 H 006 \0 \0 311 273 H l
0005700 l 002 K 016 277 k 331 260 352 020 \0 ( 5 0
0005720 f r e s h l i n e 6 \ \ g e
0005740 t s t r e a m ) \r ( 6 1 s t r
0005760 e a m 4 0 s t r e a m 2 4
0006000 \ \ l i n e l e n g t h 1 3
0006020 s t r e a m 3 o u t p u t
0006040 ) \r ( ) \r t e r p r i d 1 \r (
0006060 l ( 0 f i l e ) ) \0 033 002 \0
0006100 \0 001 @ g \0 \0 \n \0 \0 021 021 001 H 006 \0 \0
0006120 311 271 H l \r l 002 I 016 h 020 \0 ( 6
0006140 \ \ g e t s t r e a m ) \r ( 1 3
0006160 s t r e a m 3 o u t p u t
0006200 ) \r ( ) \r f r e s h l i n e d
0006220 1 \r ( l ( 0 s t r e a m ) )
0006240 \0 e 001 \0 \0 001 @ d 303 \0 \0 262 : 277 @
0006260 d 006 \0 \0 312 004 R l 004 345 j 360 262 2 277 @
0006300 d 006 \0 \0 312 004 R l 002 345 j 360 263 032 277 @
0006320 006 \0 \0 311 006 006 \0 \0 311 4 021 001 \0 @ k H
0006340 016 022 221 @ 210 @ g \0 \0 \n \0 \0 b \0 006 \0
0006360 \0 310 035 j 360 263 024 @ 006 \0 \0 311 021 001 \0
0006400 @ l \r l 002 H 016 i 020 h 020 \0 ( 6 8
0006420 g e t s t r e a m ) \r ( 8 3 s
0006440 t r e a m 7 3 s t r e a m
0006460 6 5 o u t p u t 4 8 f d e
0006500 v 4 3 s t r e a m 2 8 s
0006520 t r e a m 1 2 s t r e a m
0006540 4 s t r e a m ) \r ( ) \r d e f
0006560 p r i n t d 1 \r ( l ( 1 f
0006600 n 0 t y p e ) ) \0 1 001 \0 \0
0006620 002 @ d 3 224 \t \0 \0 b \0 ` \0 \0 026 021
0006640 001 \0 H 265 022 A 232 @ A 032 ` \0 \0 032 027 \0
0006660 \0 277 H 002 020 ` \0 \0 \n \0 \0 027 \0 \0 277 260
0006700 346 \0 ( 4 1 d r e m o v e 7
0006720 \ \ t y p e n a m e f r o m n u
0006740 m b e r ) \r ( 4 4 \ \ d e f p
0006760 r i n t f n s 3 8 \ \ d e f
0007000 p r i n t f n s 3 1 \ \ d e
0007020 f p r i n t f n s 2 7 \ \ d
0007040 e f p r i n t f n s 1 2 \ \
0007060 d e f p r i n t f n s ) \r ( ) \r
0007100 l i n e l e n g t h d 1 \r ( l
0007120 ( 1 f i l e 0 n ) ) \0
0007140 6 001 \0 \0 002 A g \0 \0 \n \0 \0 021 001 \0 H
0007160 006 \0 \0 310 037 @ 262 # @ 3 020 231 k @ 361 225
0007200 @ \t \0 \0 277 020 H 006 \0 \0 @ d i 360 224 277
0007220 n 377 377 201 j 330 315 037 277 020 \0 ( 3 0 \
0007240 \ i l l e g a l . a r g 6 \
0007260 \ g e t s t r e a m ) \r ( 3 6
0007300 s t r e a m 1 3 s t r e a m
0007320 3 o u t p u t ) \r ( ) \r p r
0007340 i n t - c i r c l e - l o o k u
0007360 p d 1 \r ( l ( 0 o b j e c
0007400 t ) f 4 * p r i n t - c i
0007420 r c l e - n u m b e r * f 5
0007440 * p r i n t - c i r c l e - h
0007460 a s h t a b l e * f 6 * r
0007500 e a d t a b l e * ) \0 l 004 003 \0
0007520 001 @ U \n \0 \0 021 1 003 H g \0 \0 360 242 H
0007540 265 \b h d \n \0 \0 020 g \0 \0 360 262 , V 006
0007560 \0 \0 312 004 \a \t \0 \0 T o \0 \0 \0 \v \0 \0
0007600 @ 273 U 272 T 271 K J I \v \0 \0 277 T k 324
0007620 c \b 277 i \n \0 \0 020 H 3 020 262 031 V 006 \0
0007640 \0 312 004 \a \t \0 \0 H o \0 \0 \0 \v \0 \0 h
0007660 \n \0 \0 020 o \0 \0 \0 \t \0 \0 020 \0 ( 1 0
0007700 5 c l : e r r o r 9 7 c l
0007720 : v a l u e s 9 3 c o n c a
0007740 t 8 5 c h a r a c t e r 6
0007760 9 c l : v a l u e s 5 8 c
0010000 l : p u t h a s h 4 6 c o n
0010020 c a t 3 8 c h a r a c t e r
0010040 2 1 c l : v a l u e s 4
0010060 g e t h a s h ) \r ( 7 9 r e a
0010100 d t a b l e p 3 2 r e a d t
0010120 a b l e p 2 5 t 2 1 1 t
0010140 1 ) \r ( 1 0 2 " P r i n t -
0010160 c i r c l e - l o o k u p h a
0010200 s h t a b l e e r r o r ! "
0010220 9 0 " # " 4 3 " = " ) \r p
0010240 r i n t - c i r c l e - l a b e
0010260 l - p d 1 \r ( l ( 0 o b j
0010300 e c t ) f 1 * p r i n t -
0010320 c i r c l e - h a s h t a b l e
0010340 * ) \0 027 001 001 \0 001 @ Q \n \0 \0 021 001
0010360 \0 H g \0 \0 360 265 \b H 3 264 003 H 020 \0
0010400 ( 4 g e t h a s h ) \r ( 1 1
0010420 t 2 ) \r ( ) \r p r i n t - c i r
0010440 c l e - s c a n d 1 \r ( l (
0010460 0 o b j e c t ) f 4 * p
0010500 r i n t - a r r a y * ) \0 t 004
0010520 001 \0 001 @ d 303 \0 \0 262 033 277 @ \t \0 \0 221
0010540 h 200 i 264 017 @ 001 \t \0 \0 @ 002 b \0 277 277
0010560 260 343 020 021 001 \0 H \t \0 \0 264 \b H \t \0 \0
0010600 i 360 022 264 5 T 264 2 @ \t \0 \0 221 h 200 i
0010620 264 ( @ \t \0 \0 021 1 003 @ d \t \0 \0 k 363
0010640 230 277 H g \0 \0 @ \v \0 \0 271 H j 273 272 J
0010660 K 363 221 h 200 i 221 h 020 I K 266 \t \0 \0 277
0010700 K k 324 273 260 353 \0 ( 1 0 7 p r i n
0010720 t - c i r c l e - s c a n 8 6
0010740 c l : m a k e - a r r a y 7
0010760 4 c l : a r r a y - r a n k
0011000 6 6 c l : a r r a y - t o t a
0011020 l - s i z e 5 6 p r i n t -
0011040 c i r c l e - e n t e r 4 4
0011060 c l : a r r a y - e l e m e n t
0011100 - t y p e 3 8 c l : a r r a
0011120 y p 2 2 p r i n t - c i r c
0011140 l e - s c a n 1 1 p r i n t
0011160 - c i r c l e - e n t e r ) \r (
0011200 8 2 : d i s p l a c e d - t o
0011220 4 l i s t p ) \r ( ) \r p r i
0011240 n t - c i r c l e - e n t e r
0011260 d 1 \r ( l ( 0 o b j e c t )
0011300 f 5 * p r i n t - c i r c
0011320 l e - h a s h t a b l e * f
0011340 6 t h e r e - a r e - c i r c
0011360 l e s ) \0 A 005 002 \0 001 @ U \n \0 \0
0011400 021 A 004 H 265 020 @ 272 U 271 J I g \0 \0 \v
0011420 \0 \0 h 020 g \0 \0 360 262 023 @ 274 U 273 L K
0011440 g \0 \0 \v \0 \0 277 i c \f 020 H g \0 \0 360
0011460 221 i 020 o \0 \0 \0 \t \0 \0 020 \0 ( 6 2
0011500 c l : e r r o r 4 2 c l : p
0011520 u t h a s h 2 2 c l : p u t
0011540 h a s h 4 c l : g e t h a s
0011560 h ) \r ( 5 1 t 2 3 9 t 2
0011600 2 7 t 1 1 9 t 1 ) \r ( 5
0011620 9 " P r i n t - c i r c l e -
0011640 e n t e r h a s h t a b l e
0011660 e r r o r ! " ) \r \ \ p r i n d
0011700 a t u m d 1 \r ( l ( 2 c p
0011720 l 1 s t r e a m 0 x )
0011740 p 9 * p r i n t - e s c a p
0011760 e * p 8 * p r i n t - l e
0012000 v e l * f 1 0 * r e a d t
0012020 a b l e * f 1 1 * p r i n
0012040 t - l e n g t h * f 1 2 *
0012060 p r i n t - c i r c l e - h a s
0012100 h t a b l e * f 1 3 * p r
0012120 i n t - l e v e l * f 1 4
0012140 \ \ t h i s f i l e l i n e l e
0012160 n g t h f 1 5 * p r i n t
0012200 - b a s e * f 1 6 * p r i
0012220 n t - r a d i x * ) 002 253 \n \a \0
0012240 003 @ 004 d l 004 360 226 277 @ A \n \0 \0 020 d
0012260 l 005 360 242 261 \0 325 277 B 243 j b 004 277 021 @
0012300 003 W 030 235 @ \t \0 \0 \t \0 \0 Z 001 270 J 002
0012320 001 271 H 262 034 A H \n \0 \0 277 I 226 A l
0012340 \n \0 \0 277 H 230 I 221 h 200 i 222 261 \0 233 W
0012360 032 d 263 025 273 W 026 262 ) W 024 006 \0 \0 312 002
0012400 j 360 257 j 260 032 B 361 221 h 200 i 264 347 A
0012420 \t \0 \0 020 W 026 B 361 221 h 200 i 263 363 B 273
0012440 B k 324 b 004 277 A l ( \n \0 \0 277 K 265 5
0012460 @ 001 A B \v \0 \0 277 @ 002 b \0 d 003 262 3
0012500 277 A l \n \0 \0 277 W 030 262 343 @ \t \0 \0
0012520 262 335 A o \0 \0 \0 \n \0 \0 277 @ A B \v \0
0012540 \0 260 037 k 324 [ W 026 361 262 307 A i \n \0 \0
0012560 216 236 A o \0 \0 \0 \n \0 \0 277 @ A \n \0 \0
0012600 277 A l ) \n \0 \0 h 020 d k 360 245 d l 002
0012620 360 262 \ 277 ` \0 \0 265 # l & \t \0 \0 ` \0
0012640 \0 265 022 \b \0 \0 021 022 002 A @ W 036 Z 005 001
0012660 237 h 216 h 027 \0 \0 277 260 356 h 027 \0 \0 277 260
0012700 337 i 252 k J 361 246 J d l $ 361 224 277 J \t
0012720 \0 \0 i W 264 004 W 024 H I \r 006 \0 \0 \n
0012740 \0 \0 H 027 \0 \0 277 I 027 \0 \0 277 020 d l 003
0012760 360 262 T 277 ` \0 \0 265 / l & \t \0 \0 ` \0
0013000 \0 265 036 \b \0 \0 021 002 001 A @ H I A 006 \0
0013020 \0 311 006 ` \0 \0 360 262 032 ` \0 \0 237 h 216 h
0013040 027 \0 \0 277 260 342 h 027 \0 \0 277 260 323 i 221 i
0013060 202 ` \0 \0 \f \0 \0 \n \0 \0 H 027 \0 \0 277 I
0013100 027 \0 \0 277 020 d l \a 360 226 277 @ A \n \0 \0
0013120 020 l \b 360 225 @ A \n \0 \0 020 @ d 303 \0 \0
0013140 227 277 @ A j \v \0 \0 020 \t \0 \0 021 q \a H
0013160 ` \0 \0 026 _ 016 262 # W 032 d 224 B 265 003 j
0013200 331 021 001 \b O 016 002 271 @ A j l 003 I 017 016
0013220 022 _ 016 265 003 202 261 \0 223 W 024 006 \0 \0 312 002
0013240 j 360 263 ] W 034 262 026 A d 006 \0 \0 310 035
0013260 l 002 330 W 034 361 226 277 A \t \0 \0 277 A W 024
0013300 006 \0 \0 312 004 \a 274 [ 006 \0 \0 311 272 K L
0013320 l 002 J 016 277 A 006 \0 \0 311 275 A l < l
0013340 002 M 016 277 H 225 H A \n \0 \0 277 A o \0 \0
0013360 \0 \n \0 \0 @ A \n \0 \0 A l > \n \0 \0 020
0013400 A l { \n \0 \0 H 225 H A \n \0 \0 277 A l
0013420 } \n \0 \0 A 006 \0 \0 311 276 A l # l 002
0013440 N 016 277 @ A \n \0 \0 020 003 264 376 O 016 d 001
0013460 235 277 021 020 \t O 016 001 A \n \0 \0 023 O 016 002
0013500 264 350 O 016 002 b \0 023 261 375 Y \0 ( 6 6 6
0013520 \ \ p r i n d a t u m 6 4 6
0013540 \ \ p r i n t a d d r 6 2 6
0013560 \ \ c k p o s b o u t 6 1 9
0013600 \ \ l i t p r i n 6 1 2 \
0013620 \ c k p o s b o u t 6 0 5 \
0013640 \ c k p o s b o u t 5 9 9 \
0013660 \ p r i n t a d d r 5 9 4 \
0013700 \ c k p o s s o u t 5 8 5 \
0013720 \ l i t p r i n 5 3 8 f r e
0013740 s h l i n e 4 5 8 t y p e n
0013760 a m e 4 5 4 p r i n t - i n
0014000 s t a n c e 4 4 0 \ \ p r i
0014020 n s t a c k p 4 3 0 \ \ p r
0014040 i n s t r i n g 4 0 8 \ \ c
0014060 k p o s s o u t 4 0 5 \ \ c
0014100 o n v e r t . f l o a t i n g .
0014120 n u m b e r 3 5 6 c o n c a
0014140 t 3 4 8 a l l o c s t r i n
0014160 g 3 2 0 \ \ c k p o s s o u
0014200 t 3 1 7 \ \ c o n v e r t n
0014220 u m b e r 3 0 4 \ \ i n v a
0014240 l i d . r a d i x 2 6 0 c o
0014260 n c a t 2 5 2 a l l o c s t
0014300 r i n g 2 2 9 \ \ c k p o s
0014320 b o u t 2 2 2 \ \ p r i n d
0014340 a t u m 2 1 6 \ \ c k p o s
0014360 s o u t 2 0 6 \ \ e l i d e
0014400 . p r i n t . t a i l 1 9 1
0014420 \ \ p r i n d a t u m 1 8 4
0014440 \ \ c k p o s s o u t 1 7 4
0014460 p r i n t - c i r c l e - l a b
0014500 e l - p 1 6 5 \ \ c k p o s
0014520 b o u t 1 4 9 \ \ p r i n d
0014540 a t u m 1 3 8 \ \ c k p o s
0014560 b o u t 1 1 3 \ \ e l i d e
0014600 . p r i n t . e l e m e n t 6
0014620 5 \ \ c k p o s b o u t 5 6
0014640 \ \ c k p o s s o u t 4 1
0014660 \ \ m v l i s t 3 8 p r i n
0014700 t - c i r c l e - l o o k u p
0014720 1 2 \ \ l i t p r i n ) \r ( 6
0014740 3 0 s t r e a m 5 6 7 s t
0014760 r e a m 5 5 3 s t r e a m
0015000 5 4 5 r e a d t a b l e p 5
0015020 2 4 s t r e a m 5 0 8 r e
0015040 a d t a b l e p 4 6 5 \ \ d
0015060 e f p r i n t f n s 4 4 6 t
0015100 4 1 7 \ \ \ \ n u m s t r 1
0015120 . g l o b a l r e s o u r c e
0015140 4 1 2 \ \ \ \ n u m s t r . g
0015160 l o b a l r e s o u r c e 4 0
0015200 2 \ \ f l o a t f o r m a t
0015220 3 9 2 \ \ \ \ n u m s t r . g
0015240 l o b a l r e s o u r c e 3 8
0015260 5 \ \ \ \ n u m s t r 1 . g l
0015300 o b a l r e s o u r c e 3 7 8
0015320 p r x f l g 3 7 2 \ \ p n
0015340 a m e d e v i c e 3 6 7 s t
0015360 r e a m 3 5 1 \ \ \ \ n u m
0015400 s t r 1 . g l o b a l r e s o u
0015420 r c e 3 4 1 \ \ \ \ n u m s
0015440 t r . g l o b a l r e s o u r c
0015460 e 3 2 9 \ \ \ \ n u m s t r
0015500 1 . g l o b a l r e s o u r c e
0015520 3 2 4 \ \ \ \ n u m s t r .
0015540 g l o b a l r e s o u r c e 2
0015560 8 4 \ \ \ \ n u m s t r . g l
0015600 o b a l r e s o u r c e 2 7 7
0015620 \ \ \ \ n u m s t r 1 . g l o
0015640 b a l r e s o u r c e 2 5 5
0015660 \ \ \ \ n u m s t r 1 . g l o b
0015700 a l r e s o u r c e 2 4 5 \
0015720 \ \ \ n u m s t r . g l o b a l
0015740 r e s o u r c e 9 2 r e a d
0015760 t a b l e p ) \r ( 5 9 1 "
0016000 @ " 2 1 3 " . " 1 8
0016020 1 " . " ) \r \ \ e l i d e .
0016040 p r i n t . e l e m e n t d 1
0016060 \r ( l ( 0 s t r e a m ) )
0016100 \0 026 003 \0 \0 001 @ \b \0 \0 021 022 002 H 006 \0
0016120 \0 311 272 H I l 002 J 016 020 \0 ( 3 \
0016140 \ e l i d e . e l e m e n t . c
0016160 h a r ) \r ( 1 0 s t r e a m )
0016200 \r ( ) \r \ \ e l i d e . e l e m
0016220 e n t . c h a r d 1 \r ( f 0
0016240 * r e a d t a b l e * ) \0 026
0016260 \0 001 \0 \0 P 006 \0 \0 312 002 j 360 247 P 006
0016300 \0 \0 312 004 \a 020 l & 020 \0 n i l \r ( 1
0016320 3 r e a d t a b l e p 3 r
0016340 e a d t a b l e p ) \r ( ) \r \ \
0016360 e l i d e . p r i n t . t a i l
0016400 d 1 \r ( l ( 1 n o s p a c
0016420 e p 0 s t r e a m ) ) \0 !
0016440 001 \0 \0 002 A 221 h 200 i 262 023 @ 006 \0 \0 311
0016460 021 001 \0 @ l l 002 H 016 023 \b \0 \0 @
0016500 \n \0 \0 020 \0 ( 3 0 \ \ s o u t
0016520 2 6 \ \ e l i d e . t a i l .
0016540 s t r i n g ) \r ( 1 0 s t r e
0016560 a m ) \r ( ) \r \ \ e l i d e . t
0016600 a i l . s t r i n g d 1 \r ( f
0016620 0 * r e a d t a b l e * )
0016640 \0 025 \0 001 \0 \0 P 006 \0 \0 312 002 j 360 244
0016660 o \0 \0 \0 020 o \0 \0 \0 020 \0 n i l \r (
0016700 3 r e a d t a b l e p ) \r (
0016720 1 8 " - - " 1 3 " . . . "
0016740 ) \r \ \ c k p o s b o u t d 1
0016760 \r ( l ( 1 x 0 s t r e a
0017000 m ) f 1 \ \ t h i s f i l
0017020 e l i n e l e n g t h ) \0 & 001
0017040 001 \0 002 Q 262 024 @ d 006 \0 \0 310 035 k 330 Q
0017060 361 226 277 @ \t \0 \0 277 @ 006 \0 \0 311 021 001
0017100 \0 @ A l 002 H 016 020 \0 ( 1 9 f r e
0017120 s h l i n e ) \r ( 2 4 s t r e
0017140 a m 7 s t r e a m ) \r ( ) \r
0017160 \ \ c k p o s s o u t d 1 \r (
0017200 l ( 1 x 0 s t r e a m )
0017220 f 7 \ \ t h i s f i l e l
0017240 i n e l e n g t h ) \0 ` \a 001 \0
0017260 002 W 016 262 030 A 006 \0 \0 310 002 @ 006 \0 \0 310
0017300 035 330 W 016 361 224 @ \t \0 \0 277 A 021 a 006 H
0017320 310 003 k 331 273 H 311 \0 274 K H 310 002 330 272 H
0017340 312 \0 C j 360 221 h 200 i ] 277 K k 330 [ J
0017360 361 263 035 M 225 L K 320 310 \0 202 L K 302 271 @
0017400 006 \0 \0 311 276 @ I l 002 N 016 260 336 h 020
0017420 \0 ( 2 4 f r e s h l i n e ) \r
0017440 ( 8 1 s t r e a m 1 3 s t
0017460 r e a m 7 s t r i n g p ) \r
0017500 ( ) \r \ \ c o n v e r t n u m b
0017520 e r d 1 \r ( l ( 5 n s b
0017540 4 n s 3 r d t b l 2 i
0017560 g n o r e 1 r 0 n ) )
0017600 001 > \a \0 \0 006 @ j 360 224 o \0 \0 \0 020 021
0017620 p 006 j @ 363 221 h 200 i 221 @ 203 j @ 331 X
0017640 271 D 006 \0 \0 006 \0 \0 310 002 Z k 331 273 h 274
0017660 A l \b 360 222 C 265 027 D J m 377 324 Z I A
0017700 334 275 l \n M 361 262 * M l 0 260 + 006 \0 \0
0017720 312 002 j 360 241 h 200 i 262 337 I l \a 361 262
0017740 331 D K k 324 [ l Q \v \0 \0 277 i 274 260 312
0017760 M l \n 331 l A 330 \v \0 \0 277 I A 333 Y j
0020000 360 262 267 H 233 D J m 377 324 Z l - \v \0 \0
0020020 277 A l \n 360 222 261 \0 245 C 242 261 \0 240 L 221
0020040 h 200 i 242 261 \0 227 j @ 361 221 h 200 i 221 @
0020060 202 j @ 331 ^ l \t 363 250 A N 363 221 h 200 i
0020100 262 { A d l 020 360 232 277 D J m 377 324 Z l
0020120 x 260 U l \b 360 231 D J m 377 324 Z l o 260
0020140 G A l 002 360 231 D J m 377 324 Z l b 260 8
0020160 D J m 377 324 Z l r \v \0 \0 277 D J m 377
0020200 324 Z A l \n \n \0 \0 l 0 330 \v \0 \0 277 l
0020220 \n A 363 221 h 200 i 262 023 D J m 377 324 Z A
0020240 l \n 333 l 0 330 \v \0 \0 277 D J m 377 324 Z
0020260 C 006 \0 \0 312 004 \a \v \0 \0 277 D J K E \f
0020300 \0 \0 020 \0 ( 3 1 5 s u b s t r i
0020320 n g 3 0 7 r p l c h a r c o
0020340 d e 2 9 0 r p l c h a r c o
0020360 d e 2 6 3 r p l c h a r c o
0020400 d e 2 5 7 i m o d 2 4 4
0020420 r p l c h a r c o d e 1 3 7
0020440 r p l c h a r c o d e 1 1 5
0020460 r p l c h a r c o d e 1 0 0
0020500 r p l c h a r c o d e ) \r ( 3 0
0020520 1 r e a d t a b l e p 7 3
0020540 r e a d t a b l e p 3 3 s t
0020560 r i n g p 3 0 s t r i n g p
0020600 ) \r ( 7 " 0 " ) \r \ \ l i t
0020620 p r i n d 1 \r ( l ( 1 s t
0020640 r e a m 0 x ) f 1 0 \
0020660 \ t h i s f i l e l i n e l e n
0020700 g t h f 1 1 * r e a d t a
0020720 b l e * f 1 2 * p a c k a
0020740 g e * f 1 3 * p r i n t -
0020760 e s c a p e * f 1 4 * p r
0021000 i n t - c a s e * f 1 5 *
0021020 p r i n t - g e n s y m * ) 001
0021040 036 \n 006 \0 002 W 032 242 261 \0 205 W 026 021 ! 002
0021060 W 030 265 023 @ H A I d 222 \t \0 \0 J W 024
0021100 \r 006 \0 \0 020 ` \0 \0 @ 301 \b 312 \0 \a 266 Y
0021120 360 223 h 271 260 340 I 265 034 W 036 262 331 l 002 l
0021140 : \n \0 \0 Z k H 006 \0 \0 312 004 \a \v \0 \0
0021160 277 260 303 ` \0 \0 360 237 k H 006 \0 \0 312 \a \a
0021200 \n \0 \0 272 h 271 260 256 @ d W 030 \n \0 \0 224
0021220 277 h 271 260 241 d I \n \0 \0 360 221 k 201 l 002
0021240 H 006 \0 \0 312 \a \a \n \0 \0 272 260 211 W 024 262
0021260 032 @ 301 \b 311 \0 312 \0 \a A 006 \0 \0 310 035 330
0021300 W 024 361 224 A \t \0 \0 277 j @ W 034 g \0 \0
0021320 360 264 016 W 026 006 \0 \0 312 \0 \0 j 360 h 360 021
0021340 s \t I 301 \b 311 \0 \ 312 \0 \a 275 I 301 002 312
0021360 \0 j 360 h 360 ^ 277 H k 330 X M 361 263 B
0021400 N 225 L H 320 310 \0 202 L H 302 273 A J 262 031
0021420 K l Z 363 221 h 200 i 235 l A K 363 221 h 200
0021440 i 224 K l 330 200 K _ 022 277 _ 020 006 \0 \0
0021460 311 _ 016 277 O 020 O 022 l 002 O 016 016 260 271
0021500 h 020 \0 ( 1 6 2 f r e s h l i n
0021520 e 1 3 2 a l l o c s t r i n
0021540 g 1 1 6 f i n d - e x t e r
0021560 n a l - s y m b o l 1 0 5 f
0021600 i n d - e x a c t - s y m b o l
0021620 9 3 a l l o c s t r i n g
0021640 7 4 r p l c h a r c o d e 6
0021660 2 a l l o c s t r i n g 3 0
0021700 \ \ l i t p r i n . i n t e r
0021720 n a l 2 3 p a c k a g e - n
0021740 a m e - a s - s y m b o l ) \r (
0021760 2 6 6 s t r e a m 1 7 8 r
0022000 e a d t a b l e p 1 7 0 : d
0022020 o w n c a s e 1 5 1 s t r e
0022040 a m 1 2 6 r e a d t a b l e
0022060 p 8 7 r e a d t a b l e p
0022100 8 0 * k e y w o r d - p a c k
0022120 a g e * 6 8 r e a d t a b l
0022140 e p 3 4 * p a c k a g e - f
0022160 r o m - i n d e x * ) \r ( ) \r \
0022200 \ l i t p r i n . i n t e r n a
0022220 l d 1 \r ( l ( 5 c h e c k
0022240 l e n g t h 4 p k g s e p r
0022260 3 p k g n a m e 2 s t r
0022300 e a m 1 r d t b l 0 c l
0022320 : s y m b o l ) f 3 1 \ \
0022340 t h i s f i l e l i n e l e n g
0022360 t h f 3 2 * p r i n t - c
0022400 a s e * ) 002 274 037 002 \0 006 @ 301 \b 311
0022420 \0 312 \0 \a A 006 \0 \0 312 006 \a A 006 \0 \0 312
0022440 006 207 021 363 021 021 P 026 E 244 J j 360 263 . @
0022460 A E h 360 \v \0 \0 _ 016 m 377 360 231 k _ 016
0022500 277 i _ 022 277 260 032 j O 016 361 231 j O 016 331
0022520 _ 016 277 i 273 210 O 016 j 360 243 i _ 020 277 E
0022540 262 , W > 262 ( H O 016 C 265 003 202 261 \0 245
0022560 j D 265 003 202 261 \0 225 j B 006 \0 \0 310 035 330
0022600 330 330 330 W > 361 224 B \t \0 \0 277 C 265 u D
0022620 265 k O 022 262 023 B 006 \0 \0 311 _ 026 277 B
0022640 I l 002 O 026 016 277 K 242 261 \0 305 B 006 \0 \0
0022660 311 _ 030 277 B J l 002 O 030 016 277 j @ 021
0022700 B 034 O 0 301 \b 311 \0 _ 4 312 \0 \a _ 6 277
0022720 O 0 301 002 312 \0 j 360 h 360 _ 8 277 O .
0022740 k 330 _ . O 6 361 262 G 023 B 006 \0 \0 311
0022760 _ 036 277 B J l 002 O 036 016 020 B \n \0 \0 277
0023000 260 222 A B \v \0 \0 277 260 207 006 \0 \0 310 002 261
0023020 377 j A \n \0 \0 _ 024 277 j O 024 361 221 h 200
0023040 i 224 O 024 261 377 M j O 024 331 261 377 F O 8
0023060 227 O 4 O . 320 310 \0 204 O 4 O . 302 _ 2
0023100 J 360 245 O 2 I 360 262 023 B 006 \0 \0 311 _
0023120 032 277 B I l 002 O 032 016 277 B 006 \0 \0 311
0023140 _ 034 277 B O 2 l 002 O 034 016 261 377 r H k
0023160 360 262 . @ \t \0 \0 l . 360 262 % B 006 \0 \0
0023200 311 _ 277 B I l 002 O 016 277 B 006 \0
0023220 \0 311 _ " 277 B l . l 002 O " 016 020 O
0023240 020 262 037 A 006 \0 \0 312 \0 \0 j 360 h 360 264 \n
0023260 ` \0 \0 006 \0 \0 311 \0 274 A 006 \0 \0 311 \0 275
0023300 j @ i A 006 \0 \0 312 \0 \0 j 360 h 360 264 \b
0023320 W @ g \0 \0 360 021 D 036 O 0 301 \b 311 \0 _
0023340 8 312 \0 \a _ : 277 O 0 301 002 312 \0 j 360
0023360 h 360 _ < 277 O . k 330 _ . O : 361 222 261
0023400 \0 306 O < 227 O 8 O . 320 310 \0 204 O 8 O
0023420 . 302 _ 6 277 O 020 262 o L 262 025 O 6 l 377
0023440 361 221 h 200 i 230 O 6 L O 6 302 360 262 6 O
0023460 6 l 377 361 262 030 M 006 \0 \0 311 200 234 O 6 M
0023500 006 \0 \0 311 200 \n \0 \0 265 \b j 203 M O 6 302
0023520 ^ l @ 345 j 360 263 0 O 2 247 N l $ 345 j
0023540 360 263 % B 006 \0 \0 311 _ $ 277 B I l 002
0023560 O $ 016 277 B 006 \0 \0 311 _ & 277 B O 6
0023600 l 002 O & 260 8 B O 4 262 034 O 6 l Z 363
0023620 221 h 200 i 237 l A O 6 363 221 h 200 i 225 O
0023640 6 l 330 201 O 6 _ , 277 _ * 006 \0 \0 311
0023660 _ ( 277 O * O , l 002 O ( 016 277 h _
0023700 2 277 261 377 3 h 020 \0 ( 5 7 1 g e t
0023720 h a s h 3 6 2 c h c o n 1
0023740 2 6 5 \ \ s y m b o l . e s c
0023760 a p e . c o u n t 2 5 0 \ \
0024000 l i t p r i n . i n t e r n a l
0024020 2 4 2 \ \ s o u t 1 2 6
0024040 f r e s h l i n e 4 2 \ \ s
0024060 y m b o l . e s c a p e . c o u
0024100 n t ) \r ( 6 7 4 s t r e a m
0024120 6 1 9 s t r e a m 6 0 2 s
0024140 t r e a m 5 6 6 c h a r t a
0024160 b l e 5 5 7 c h a r t a b l
0024200 e 4 5 6 : d o w n c a s e
0024220 4 4 2 r e a d t a b l e p 4
0024240 3 2 r e a d t a b l e p 4 2
0024260 5 a r r a y p 4 2 2 u p p
0024300 e r c a s e a r r a y 4 1 0
0024320 r e a d t a b l e p 3 8 8 s
0024340 t r e a m 3 7 1 s t r e a m
0024360 3 3 7 s t r e a m 3 2 0
0024400 s t r e a m 2 5 6 s t r i n
0024420 g p 2 2 5 s t r e a m 1 6
0024440 3 s t r e a m 1 4 1 s t r
0024460 e a m 1 1 2 s t r e a m 1
0024500 8 r e a d t a b l e p 1 1
0024520 r e a d t a b l e p ) \r ( ) \r \
0024540 \ s y m b o l . e s c a p e . c
0024560 o u n t d 1 \r ( l ( 2 i n
0024600 e x a c t o k 1 r d t b l
0024620 0 c l : s y m b o l ) f 1
0024640 4 * r e a d - b a s e * ) 001
0024660 3 016 001 \0 003 j @ j d i A 006 \0 \0 312 006
0024700 207 A 006 \0 \0 312 006 \a A 006 \0 \0 312 \0 \0 j
0024720 360 h 360 264 \n ` \0 \0 006 \0 \0 311 \0 A 006 \0
0024740 \0 311 \0 021 Y \r I 301 \b 311 \0 _ 024 312 \0 \a
0024760 _ 026 277 I 301 002 312 \0 j 360 h 360 _ 030 277
0025000 M j 360 221 h 275 H k 330 X O 026 361 222 261 \0
0025020 213 O 030 226 O 024 H 320 310 \0 203 O 024 H 302 _
0025040 022 277 O 016 262 026 O 022 l 377 361 221 h 200 i 231
0025060 O 022 O 016 O 022 302 360 262 : O 022 l 377 361 262
0025100 032 O 020 006 \0 \0 311 200 235 O 022 O 020 006 \0 \0
0025120 311 200 \n \0 \0 265 \t j 204 O 020 O 022 302 _ 032
0025140 l @ 345 j 360 263 " L 250 O 032 l $ 345 j 360
0025160 263 027 J k 324 272 M 264 021 O 022 M 360 244 O 022
0025200 N 360 230 K k 324 273 h 274 261 377 } B 264 373 J
0025220 K 325 k 363 264 364 m 376 020 J j 360 262 : @ 301
0025240 \b 311 \0 312 \0 \a d j 360 225 277 M 263 352 j 020
0025260 k 360 227 O 022 l . 360 221 k 020 @ A 006 \0 \0
0025300 312 002 j 360 242 W 034 201 l \n \n \0 \0 262 340
0025320 M 263 305 m 377 020 M 234 J d K 325 k 363 226 277
0025340 m 376 K 331 020 J 020 \0 ( 2 8 0 \ \ n
0025360 u m e r i c . p n a m e p 1 5
0025400 9 g e t h a s h ) \r ( 2 6 6
0025420 r e a d t a b l e p 1 5 4 c
0025440 h a r t a b l e 1 4 4 c h a
0025460 r t a b l e 4 3 r e a d t a
0025500 b l e p 3 7 a r r a y p 3
0025520 4 u p p e r c a s e a r r a y
0025540 2 2 r e a d t a b l e p 1
0025560 5 r e a d t a b l e p 8 r
0025600 e a d t a b l e p ) \r ( ) \r \ \
0025620 n u m e r i c . p n a m e p d
0025640 1 \r ( l ( 1 r a d i x 0
0025660 c l : s y m b o l ) f 1 1
0025700 * r e a d t a b l e * f 1 2
0025720 * r e a d - b a s e * ) 001 Y
0025740 \v 002 \0 002 g \0 \0 A 265 022 W 026 006 \0 \0 312
0025760 002 j 360 242 W 030 201 l \n l \v 331 l A 330
0026000 021 2 004 j @ 021 B \n N 004 d l \a 360 262 #
0026020 277 N 311 \0 _ 020 277 N 310 003 k 331 ] N 310 002
0026040 330 _ 022 277 N 312 \0 C j 360 222 h 260 ! i 260
0026060 036 l 004 360 262 6 N 301 \b 311 \0 _ 020 312 \0 \a
0026100 _ 022 277 N 301 002 312 \0 j 360 h 360 _ 024 277
0026120 M k 330 ] O 022 361 262 032 K 246 J 264 003 202 261
0026140 \0 312 H g \0 \0 360 h 360 020 N \t \0 \0 ^ 260
0026160 232 O 024 226 O 020 M 320 310 \0 203 O 020 M 302 _
0026200 016 277 l A O 016 361 262 Q l 0 O 016 361 262 8
0026220 O 016 l - 360 247 O 016 d l + 360 226 277 g \0
0026240 \0 261 \0 227 l . 360 235 J 225 L 264 004 h 020 272
0026260 j 271 i 261 \0 205 O 016 l / 360 264 n H g \0
0026300 \0 360 264 v h 020 O 016 l 9 361 221 h 200 i 264
0026320 Z i 273 g \0 \0 260 b O 016 l z 361 263 K l
0026340 a O 016 361 221 h 200 i 227 O 016 l 331 _ 016
0026360 201 O 016 l Z 361 221 h 200 i 262 0 O 016 I 361
0026400 221 h 200 i 262 027 i 272 H g \0 \0 360 245 H g
0026420 \0 \0 360 221 i 274 g \0 \0 260 037 H g \0 \0 360
0026440 246 H g \0 \0 360 262 360 h 020 O 016 l _ 360 246
0026460 O 016 l ^ 360 264 364 h 270 261 377 027 \0 ( 1 3
0026500 7 m k s t r i n g ) \r ( 3 2 0
0026520 f i r s t 3 1 4 l e t t e
0026540 r 3 0 8 l e t t e r 3 0 1
0026560 f i r s t 2 9 5 l e t t e
0026600 r 2 4 1 d i g i t 2 2 0
0026620 f i r s t 1 8 8 s i g n 1
0026640 2 9 s i g n 1 0 r e a d t
0026660 a b l e p 2 f i r s t ) \r (
0026700 ) \r \ \ p r i n s t a c k p d
0026720 1 \r ( l ( 1 s t r e a m 0
0026740 x ) f 3 \ \ t h i s f i
0026760 l e l i n e l e n g t h f 4
0027000 * r e a d t a b l e * ) \0 245
0027020 003 002 \0 002 S 262 5 @ d \t \0 \0 224 277 l \b
0027040 260 030 \t \0 \0 004 l 004 360 233 @ \t \0 \0 301 \b
0027060 311 \0 312 \0 \a 201 l 006 A 006 \0 \0 310 035 l 025
0027100 330 330 S 361 224 A \t \0 \0 277 A T 006 \0 \0 312
0027120 004 \a 021 022 002 H 006 \0 \0 311 272 H I l 002
0027140 J 016 023 o \0 \0 \0 A \n \0 \0 @ A \n \0 \0
0027160 A 006 \0 \0 311 021 001 \0 A l / l 002 H 016
0027200 023 @ d \t \0 \0 226 277 o \0 \0 \0 260 026 \t \0
0027220 \0 b \0 004 l 004 360 225 @ A \n \0 \0 207 o \0
0027240 \0 \0 A \n \0 \0 277 A 006 \0 \0 311 021 001 \0
0027260 A l > l 002 H 016 020 \0 ( 1 4 5 \ \
0027300 s o u t 1 3 6 \ \ l i t p r
0027320 i n 1 2 4 s t k n a m e 1
0027340 1 3 r e l s t k p 9 1 \ \
0027360 p r i n t a d d r 8 6 \ \ s
0027400 o u t 5 2 f r e s h l i n e
0027420 2 5 s t k n a m e 1 6 s
0027440 t k n a m e 7 r e l s t k p
0027460 ) \r ( 1 5 0 s t r e a m 9 5
0027500 s t r e a m 6 8 s t r e a
0027520 m 5 8 r e a d t a b l e p
0027540 3 9 s t r e a m ) \r ( 1 4 1
0027560 " * f o r m * " 1 1 9 " r
0027600 e l e a s e d " 8 2 " < S t
0027620 a c k P " ) \r \ \ p r i n t a
0027640 d d r d 1 \r ( l ( 1 s t r
0027660 e a m 0 x ) ) \0 W 002 \0 \0 002
0027700 ` \0 \0 265 L l & \t \0 \0 ` \0 \0 265 ; \b
0027720 \0 \0 021 002 001 A @ 322 l \b h d H I \r 006
0027740 \0 \0 \n \0 \0 277 A l , \n \0 \0 277 A @ 323
0027760 l \b h d H I \r 006 \0 \0 \n \0 \0 H 027 \0
0030000 \0 277 I 027 \0 \0 277 020 h 027 \0 \0 277 260 305 h
0030020 027 \0 \0 277 260 266 \0 ( 6 0 \ \ c k p
0030040 o s s o u t 5 7 \ \ c o n v
0030060 e r t n u m b e r 4 3 \ \ c
0030100 k p o s b o u t 3 6 \ \ c k
0030120 p o s s o u t 3 3 \ \ c o n
0030140 v e r t n u m b e r 1 7 c o
0030160 n c a t 9 a l l o c s t r i
0030200 n g ) \r ( 8 2 \ \ \ \ n u m s
0030220 t r . g l o b a l r e s o u r c
0030240 e 7 5 \ \ \ \ n u m s t r 1
0030260 . g l o b a l r e s o u r c e
0030300 6 9 \ \ \ \ n u m s t r 1 . g
0030320 l o b a l r e s o u r c e 6 4
0030340 \ \ \ \ n u m s t r . g l o b
0030360 a l r e s o u r c e 1 2 \ \
0030400 \ \ n u m s t r 1 . g l o b a l
0030420 r e s o u r c e 2 \ \ \ \ n
0030440 u m s t r . g l o b a l r e s o
0030460 u r c e ) \r ( ) \r \ \ p r i n s
0030500 t r i n g d 1 \r ( l ( 1 s
0030520 t r e a m 0 x ) f 1 2
0030540 \ \ t h i s f i l e l i n e l e
0030560 n g t h f 1 3 * p r i n t
0030600 - e s c a p e * f 1 4 * r
0030620 e a d t a b l e * ) 001 5 \f 003 \0
0030640 002 W 032 242 261 001 021 W 034 006 \0 \0 312 006 \a 021
0030660 A 004 W 030 262 t @ 006 \0 \0 310 002 @ j 021 R
0030700 \v M 310 003 k 331 _ 022 277 M 311 \0 _ 024 277 O
0030720 022 M 310 002 330 _ 020 277 M 312 \0 C j 360 221 h
0030740 200 i _ 026 277 O 022 k 330 _ 022 O 020 361 263 $
0030760 O 026 227 O 024 O 022 320 310 \0 204 O 024 O 022 302
0031000 _ 016 l " 360 245 O 016 H 360 262 333 N k 330 276
0031020 260 325 N 022 A 006 \0 \0 310 035 l 002 330 330 330 W
0031040 030 361 224 A \t \0 \0 277 A 006 \0 \0 311 271 A
0031060 l " l 002 I 016 277 @ 021 Q \n M 310 003 k 331
0031100 _ 020 277 M 311 \0 _ 022 277 O 020 M 310 002 330 _
0031120 016 277 M 312 \0 C j 360 221 h 200 i _ 024 277 O
0031140 020 k 330 _ 020 O 016 361 263 = O 024 227 O 022 O
0031160 020 320 310 \0 204 O 022 O 020 302 ^ l " 360 250 N
0031200 l \n 360 243 N H 360 235 A 006 \0 \0 311 272 A
0031220 H l 002 J 016 277 A 006 \0 \0 311 273 A N l
0031240 002 K 016 260 273 023 A 006 \0 \0 311 274 A l "
0031260 l 002 L 016 020 W 030 262 030 @ 006 \0 \0 310 002 A
0031300 006 \0 \0 310 035 330 W 030 361 224 A \t \0 \0 277 @
0031320 A \n \0 \0 020 \0 ( 3 0 6 \ \ s o u
0031340 t 3 0 0 f r e s h l i n e
0031360 1 3 3 f r e s h l i n e ) \r (
0031400 2 8 9 s t r e a m 2 8 3 s
0031420 t r i n g p 2 6 4 s t r e a
0031440 m 2 4 8 s t r e a m 2 3 4
0031460 s t r e a m 1 3 8 s t r e
0031500 a m 1 1 8 s t r e a m 2 4
0031520 s t r i n g p 1 0 r e a d
0031540 t a b l e p ) \r ( ) \r \ \ s o u
0031560 t d 1 \r ( l ( 1 s t r e a
0031600 m 0 x ) ) \0 F \a \0 \0 002 @ 021
0031620 a 006 H 310 003 k 331 273 H 311 \0 274 K H 310 002
0031640 330 272 H 312 \0 C j 360 221 h 200 i ] 277 K k
0031660 330 [ J 361 263 035 M 225 L K 320 310 \0 202 L K
0031700 302 271 A 006 \0 \0 311 276 A I l 002 N 016 260
0031720 336 h 020 \0 n i l \r ( 5 5 s t r e
0031740 a m ) \r ( ) \r \ \ o u t c h a r
0031760 d 1 \r ( l ( 1 c h a r c o
0032000 d e 0 s t r e a m ) ) \0 021
0032020 001 \0 \0 002 @ 006 \0 \0 311 021 001 \0 @ A l
0032040 002 H 016 020 \0 n i l \r ( 3 s t r e
0032060 a m ) \r ( ) \r \ \ f i l e o u t
0032100 c h a r f n d 1 \r ( l ( 1
0032120 c h a r c o d e 0 s t r e a
0032140 m ) ) \0 265 002 \0 \0 002 A l \r 360 262 `
0032160 @ 006 \0 \0 312 2 \a l 377 360 241 h 200 i 222 @
0032200 260 030 @ d 312 2 \a j 360 263 025 l 377 \n \0 \0
0032220 277 @ d j 317 2 \a 277 j \n \0 \0 277 @ d 312
0032240 030 001 d j 360 224 277 l \r 260 034 d k 360 224 277
0032260 l \n 260 023 l 002 360 231 @ l \r \n \0 \0 277 l
0032300 \n 202 \b \0 \0 \n \0 \0 @ j 315 035 j 020 @ 006
0032320 \0 \0 312 2 \a l 377 360 241 h 200 i 224 @ A 343
0032340 260 ! A 343 @ 312 2 \a 360 263 034 @ l 377 \n \0
0032360 \0 277 @ d A 343 021 002 001 H I 317 2 \a 277 I
0032400 022 \n \0 \0 277 @ A l 377 345 \n \0 \0 277 @ d
0032420 310 035 k 320 323 021 002 001 H I 315 035 I 020 \0 (
0032440 1 6 2 \ \ b o u t 1 5 3 \
0032460 \ b o u t 1 3 4 \ \ b o u t
0032500 9 3 \ \ b o u t 9 0 s h
0032520 o u l d n t 8 3 \ \ b o u t
0032540 4 9 \ \ b o u t 3 7 \ \
0032560 b o u t ) \r ( 1 0 3 s t r e a
0032600 m 9 s t r e a m ) \r ( ) \r \
0032620 \ t t y o u t c h a r f n d 1
0032640 \r ( l ( 1 c h 0 s t r e
0032660 a m ) ) \0 , 003 \0 \0 002 @ 006 \0 \0 311
0032700 $ 021 ! 002 H g \0 \0 ' Z 265 \r @ A l 002
0032720 H g \0 \0 ' 016 020 006 \0 \0 311 271 J A l
0032740 002 I 016 277 260 350 \0 n i l \r ( 3 0 s
0032760 t r e a m 2 4 o l d - o u t
0033000 c h a r f n 1 2 d r i b b l
0033020 e s t r e a m 3 s t r e a m
0033040 ) \r ( ) \r \ \ i n v a l i d . r
0033060 a d i x d 1 \r ( l ( 0 n )
0033100 ) \0 \n \0 \0 \0 001 o \0 \0 \0 @ \n \0 \0
0033120 020 \0 ( 7 e r r o r ) \r n i l \r
0033140 ( 3 " B a d v a l u e f
0033160 o r * p r i n t - b a s e * "
0033200 ) \r \ \ m a p p n a m e d 1 \r
0033220 ( l ( 3 r d t b l 2 f l
0033240 g 1 x 0 f n ) p 5
0033260 * p r i n t - l e n g t h * p
0033300 4 * p r i n t - l e v e l *
0033320 p 3 * p r i n t - r a d i
0033340 x * p 2 * p r i n t - b a
0033360 s e * p 1 * r e a d t a b
0033400 l e * p 0 * p r i n t - e
0033420 s c a p e * f 6 * r e a d
0033440 t a b l e * f 7 * p r i n
0033460 t - b a s e * ) \0 + 006 002 \0 004 B
0033500 d 227 C 225 C d i 360 221 277 V 006 \0 \0 ` \0
0033520 \0 222 W 016 201 l \n 021 3 005 B 226 J l \n 360
0033540 241 i 273 @ A \n \0 \0 020 \0 ( 4 0 \ \
0033560 m a p p n a m e . i n t e r n a
0033600 l ) \r ( 1 7 p r x f l g 1 4
0033620 r e a d t a b l e p ) \r ( ) \r
0033640 \ \ m a p p n a m e . i n t e r
0033660 n a l d 1 \r ( l ( 1 x 0
0033700 f n ) p 1 \ \ t h i s f
0033720 i l e l i n e l e n g t h ) \0
0033740 235 002 \0 \0 002 ` \0 \0 265 003 202 261 \0 220 l \v
0033760 037 d ` \0 \0 024 006 277 d l 006 317 004 R 277 d
0034000 n 377 377 315 037 277 d g \0 \0 024 . 277 d g \0
0034020 \0 024 , 277 d ` \0 \0 024 & 277 d g \0 \0 024
0034040 " 277 d g \0 \0 024 277 d j 317 030 001 277 d
0034060 j 315 035 277 d ` \0 \0 315 034 277 d h 024 030 277
0034100 d l \b 317 024 \a 277 d k 317 004 @ 277 d k 317
0034120 004 0 277 d h 024 002 277 021 001 \0 H 006 \0 \0 @
0034140 024 277 H 006 \0 \0 @ 024 . 277 021 020 001 A H
0034160 j \v \0 \0 022 H 027 \0 \0 277 020 h 027 \0 \0 260
0034200 330 \0 ( 1 4 2 \ \ p r i n d a t
0034220 u m ) \r ( 1 5 3 \ \ \ \ m a p
0034240 p n a m e s t r e a m . g l o b
0034260 a l r e s o u r c e 1 4 7 \
0034300 \ \ \ m a p p n a m e s t r e a
0034320 m . g l o b a l r e s o u r c e
0034340 1 2 9 s t r e a m 1 2 1
0034360 s t r e a m 8 2 \ \ s t r e
0034400 a m . d e f a u l t . m a x b u
0034420 f f e r s 6 4 \ \ f i l e o
0034440 u t c h a r f n 5 7 \ \ e o
0034460 s e r r o r 5 0 \ \ n o i m
0034500 a g e o p s 4 3 \ \ s t r e
0034520 a m . n o t . o p e n 3 6 \
0034540 \ s t r e a m . n o t . o p e n
0034560 1 5 \ \ p n a m e d e v i c
0034600 e 2 \ \ \ \ m a p p n a m e
0034620 s t r e a m . g l o b a l r e s
0034640 o u r c e ) \r ( ) \r p n a m e s
0034660 t r e a m p d 1 \r ( l ( 0
0034700 s t r m ) ) \0 022 \0 \0 \0 001 @ 303 \0
0034720 \0 264 \f @ 006 \0 \0 311 006 ` \0 \0 360 020 \0 n
0034740 i l \r ( 1 4 \ \ p n a m e d e
0034760 v i c e 9 s t r e a m 3
0035000 s t r e a m ) \r ( ) \r \ \ m a p
0035020 c h a r s a 0 0 0 1 d 1 \r ( l
0035040 ( 1 c h a r 0 d u m m y
0035060 ) f 0 \ \ m a p c h a r f
0035100 n ) \0 006 \0 001 \0 002 A k P 016 020 \0 n
0035120 i l \r n i l \r ( ) \r \ \ m a p c
0035140 h a r s d 1 \r ( l ( 2 f l
0035160 g 1 x ) i 3 r d t b l
0035200 i 0 \ \ m a p c h a r f n
0035220 ) \0 \v \0 \0 \0 004 g \0 \0 A B C \f \0
0035240 \0 020 \0 ( 8 \ \ m a p p n a m e
0035260 ) \r ( 2 \ \ m a p c h a r s a
0035300 0 0 0 1 ) \r ( ) \r p r i n t n u
0035320 m d 1 \r ( l ( 2 f i l e
0035340 1 c l : n u m b e r 0 c l
0035360 : f o r m a t ) ) 001 023 \t \0 \0 003
0035400 ` \0 \0 265 ' l & \t \0 \0 ` \0 \0 265 026 \b
0035420 \0 \0 021 002 001 @ 003 001 d g \0 \0 360 262 024 277
0035440 i 260 035 h 027 \0 \0 277 260 352 h 027 \0 \0 277 260
0035460 333 g \0 \0 360 221 h 205 @ l 033 \n \0 \0 @ 002
0035500 021 R \b K 001 275 A 244 ` \0 \0 265 _ J 236 A
0035520 006 \0 \0 H I @ \t \0 \0 \f \0 \0 260 N A d
0035540 3 242 \t \0 \0 K 002 001 _ 020 262 , j O 020
0035560 361 221 h 200 i 222 O 020 203 j O 020 331 _ 016 277
0035600 l 002 O 016 361 247 O 016 d l 020 361 233 277 O 020
0035620 \t \0 \0 277 O 016 201 l \n O 020 h 360 265 006 O
0035640 020 j 361 h H I \r 006 \0 \0 274 M 265 026 j ^
0035660 j 361 262 6 J 250 K 002 002 002 001 263 - J 231 K
0035700 002 207 L \t \0 \0 331 260 350 K 002 002 001 262 025 N
0035720 d j 361 262 024 o \0 \0 \0 B \n \0 \0 277 k 331
0035740 260 360 N B \n \0 \0 277 L B \n \0 \0 277 N j
0035760 361 262 024 J 221 h 200 i 233 K 002 002 002 001 225 N
0036000 B \n \0 \0 277 A 022 H 027 \0 \0 277 I 027 \0 \0
0036020 277 020 \0 ( 2 5 9 s p a c e s 2
0036040 3 6 p r i n 1 2 3 0 s p a
0036060 c e s 2 2 0 p r i n 1 1 9
0036100 7 n c h a r s 1 6 9 \ \ c
0036120 o n v e r t n u m b e r 1 4 6
0036140 \ \ i l l e g a l . a r g 1
0036160 0 1 f i x r 9 1 \ \ c o n
0036200 v e r t . f l o a t i n g . n u
0036220 m b e r 8 8 \ \ c h e c k f
0036240 l t f m t 6 1 \ \ l i s p e
0036260 r r o r 1 7 c o n c a t 9
0036300 a l l o c s t r i n g ) \r ( 2
0036320 7 1 \ \ \ \ n u m s t r 1 . g
0036340 l o b a l r e s o u r c e 2 6
0036360 6 \ \ \ \ n u m s t r . g l o
0036400 b a l r e s o u r c e 8 2 f
0036420 l o a t p 7 4 n i l n u m p
0036440 r i n t f l g 5 1 f i x 4
0036460 5 \ \ \ \ n u m s t r . g l o
0036500 b a l r e s o u r c e 3 8 \
0036520 \ \ \ n u m s t r 1 . g l o b a
0036540 l r e s o u r c e 2 7 f l o
0036560 a t 1 2 \ \ \ \ n u m s t r
0036600 1 . g l o b a l r e s o u r c e
0036620 2 \ \ \ \ n u m s t r . g l
0036640 o b a l r e s o u r c e ) \r (
0036660 2 1 6 " 0 " ) \r f l t f m t
0036700 d 1 \r ( l ( 0 c l : f o r m
0036720 a t ) ) \0 021 \0 \0 \0 001 ` \0 \0 @ 231
0036740 @ \t \0 \0 224 @ 027 \0 \0 277 020 \0 ( 8 \
0036760 \ c h e c k f l t f m t ) \r ( 1
0037000 3 \ \ f l o a t f o r m a t
0037020 2 \ \ f l o a t f o r m a t )
0037040 \r ( ) \r \ \ c h e c k f l t f m
0037060 t d 1 \r ( l ( 0 c l : f o
0037100 r m a t ) ) \0 1 001 \0 \0 001 @ d i
0037120 360 263 $ d 001 g \0 \0 360 262 036 216 d 001 021 001
0037140 \0 H h 360 265 005 H 3 022 225 002 003 265 357 i
0037160 201 277 h 221 @ 020 @ l 033 \n \0 \0 020 \0 ( 4
0037200 6 \ \ l i s p e r r o r ) \r (
0037220 1 0 f l o a t ) \r ( ) \r ( p r
0037240 e t t y c o m p r i n t a p r
0037260 i n t c o m s ) \r ( r p a q q
0037300 a p r i n t c o m s ( ( c o m
0037320 s ( * \ ; " U s e r - l e
0037340 v e l p r i n t f u n c t i
0037360 o n s " ) ( f n s p r i n 1
0037400 p r i n 2 p r i n 3 p r i
0037420 n 4 p r i n t \r p r i n t c
0037440 c o d e p r i n t l e v e l
0037460 r a d i x s p a c e s t e r
0037500 p r i f r e s h l i n e d e
0037520 f p r i n t l i n e l e n g t
0037540 h ) ) ( i n i t v a r s ( p
0037560 l v l f i l e f l g n i l )
0037600 \r ( \ \ l i n e l e n g t h 8
0037620 2 ) ( \ \ f l o a t f o r m a
0037640 t t ) ( p r x f l g n i l
0037660 ) ( * p r i n t - b a s e *
0037700 1 0 ) ( * r e a d - b a s e *
0037720 1 0 ) ( * p r i n t - r a d
0037740 i x * n i l \r ) ( * p r i n
0037760 t - e s c a p e * t ) ( * p
0040000 r i n t - c a s e * ( q u o t
0040020 e : u p c a s e ) ) ( * p r
0040040 i n t - g e n s y m * t ) (
0040060 * p r i n t - l e v e l * n i
0040100 l ) ( \r * p r i n t - l e n g
0040120 t h * n i l ) ( * p r i n t
0040140 - p r e t t y * n i l ) ( *
0040160 p r i n t - c i r c l e * n i
0040200 l ) ( * p r i n t - a r r a y
0040220 * n i l ) ( \r * p r i n t -
0040240 c i r c l e - h a s h t a b l e
0040260 * n i l ) ( * p a c k a g e
0040300 * n i l ) ( * k e y w o r d
0040320 - p a c k a g e * n i l ) (
0040340 * i n t e r l i s p - p r i n 1
0040360 - c a s e * ( q u o t e \r :
0040400 u p c a s e ) ) ( \ \ d e f p
0040420 r i n t f n s n i l ) ) ( c
0040440 o m s ( * \ ; " P R I N T
0040460 i n t e r n a l s " ) ( f n
0040500 s p r i n t - c i r c l e - l
0040520 o o k u p \r p r i n t - c i r
0040540 c l e - l a b e l - p p r i n
0040560 t - c i r c l e - s c a n p r
0040600 i n t - c i r c l e - e n t e r
0040620 ) ( f n s \ \ p r i n d a t
0040640 u m \ \ e l i d e . p r i n t
0040660 . e l e m e n t \r \ \ e l i d
0040700 e . e l e m e n t . c h a r \
0040720 \ e l i d e . p r i n t . t a i
0040740 l \ \ e l i d e . t a i l . s
0040760 t r i n g \ \ c k p o s b o u
0041000 t \ \ c k p o s s o u t \ \
0041020 c o n v e r t n u m b e r \r \
0041040 \ l i t p r i n \ \ l i t p r
0041060 i n . i n t e r n a l \ \ s y
0041100 m b o l . e s c a p e . c o u n
0041120 t \ \ n u m e r i c . p n a m
0041140 e p \ \ p r i n s t a c k p
0041160 \ \ p r i n t a d d r \r \ \ p
0041200 r i n s t r i n g \ \ s o u t
0041220 \ \ o u t c h a r \ \ f i l
0041240 e o u t c h a r f n \ \ t t y
0041260 o u t c h a r f n ) ( d e c l
0041300 a r e \ : e v a l @ c o m p i
0041320 l e d o n t c o p y ( m a c
0041340 r o s \r . f i l e l i n e l e
0041360 n g t h . ) ( e x p o r t (
0041400 m a c r o s . s p a c e c h e
0041420 c k . \ \ c h e c k r a d i x
0041440 ) ) ) ( f n s \ \ i n v a l
0041460 i d . r a d i x ) ( s p e c v
0041500 a r s \r \ \ t h i s f i l e l
0041520 i n e l e n g t h ) ) ( c o m
0041540 s ( * \ ; " I n t e r n a
0041560 l p r i n t i n g " ) ( f n
0041600 s \ \ m a p p n a m e \ \ m
0041620 a p p n a m e . i n t e r n a l
0041640 \r p n a m e s t r e a m p )
0041660 ( d e c l a r e \ : d o n t c
0041700 o p y ( r e s o u r c e s \
0041720 \ m a p p n a m e s t r e a m )
0041740 ( m a c r o s p n a m e s t
0041760 r e a m p ) ) ( i n i t r e s
0042000 o u r c e s \r \ \ m a p p n a
0042020 m e s t r e a m ) ( i n i t v
0042040 a r s ( \ \ p n a m e d e v i
0042060 c e ( n c r e a t e ( q u o
0042100 t e f d e v ) ( \ \ g e t d
0042120 e v i c e f r o m h o s t n a m
0042140 e ( q u o t e n u l l ) \r
0042160 t ) ) ) ) ( g l o b a l v a r
0042200 s \ \ p n a m e d e v i c e )
0042220 ) ( c o m s ( * \ ; " O
0042240 b s o l e t e " ) ( f n s \
0042260 \ m a p c h a r s ) ) ( d e c
0042300 l a r e \ : e v a l @ c o m p
0042320 i l e \r d o c o p y ( a d d
0042340 v a r s ( s y s s p e c v a r
0042360 s * p r i n t - b a s e * *
0042400 r e a d - b a s e * * p r i n
0042420 t - r a d i x * * p r i n t -
0042440 e s c a p e * * p r i n t - c
0042460 a s e * \r * p r i n t - g e n
0042500 s y m * * p r i n t - l e v e
0042520 l * * p r i n t - l e n g t h
0042540 * * p r i n t - p r e t t y *
0042560 * p r i n t - c i r c l e *
0042600 * p r i n t - a r r a y * * p
0042620 a c k a g e * ) ) ) ( \r c o m
0042640 s ( * \ ; " P R I N T N U
0042660 M a n d f r i e n d s " )
0042700 ( f n s p r i n t n u m f l
0042720 t f m t \ \ c h e c k f l t f
0042740 m t ) ( m a c r o s n u m f
0042760 o r m a t c o d e ) ( \r i n i
0043000 t v a r s ( n i l n u m p r i
0043020 n t f l g ) ) ) ( l o c a l v
0043040 a r s . t ) ( g l o b a l
0043060 v a r s \ \ l i n e l e n g t
0043100 h \ \ f l o a t f o r m a t
0043120 p r x f l g \r \ \ d e f p r i
0043140 n t f n s ) ( d e c l a r e \
0043160 : d o n t e v a l @ l o a d
0043200 d o e v a l @ c o m p i l e d
0043220 o n t c o p y c o m p i l e r
0043240 v a r s ( a d d v a r s ( n
0043260 l a m a ) ( n l a m l ) \r (
0043300 l a m a p r i n t - c i r c l
0043320 e - e n t e r p r i n t - c i
0043340 r c l e - s c a n p r i n t -
0043360 c i r c l e - l a b e l - p ) )
0043400 ) ) ) \r ( r p a q ? p l v l f
0043420 i l e f l g n i l ) \r ( r p a
0043440 q ? \ \ l i n e l e n g t h
0043460 8 2 ) \r ( r p a q ? \ \ f l o
0043500 a t f o r m a t t ) \r ( r p a
0043520 q ? p r x f l g n i l ) \r (
0043540 r p a q ? * p r i n t - b a s
0043560 e * 1 0 ) \r ( r p a q ? * r
0043600 e a d - b a s e * 1 0 ) \r ( r
0043620 p a q ? * p r i n t - r a d i
0043640 x * n i l ) \r ( r p a q ? *
0043660 p r i n t - e s c a p e * t )
0043700 \r ( r p a q ? * p r i n t - c
0043720 a s e * ( q u o t e : u p c
0043740 a s e ) ) \r ( r p a q ? * p r
0043760 i n t - g e n s y m * t ) \r (
0044000 r p a q ? * p r i n t - l e v
0044020 e l * n i l ) \r ( r p a q ?
0044040 * p r i n t - l e n g t h * n
0044060 i l ) \r ( r p a q ? * p r i n
0044100 t - p r e t t y * n i l ) \r (
0044120 r p a q ? * p r i n t - c i r
0044140 c l e * n i l ) \r ( r p a q ?
0044160 * p r i n t - a r r a y * n
0044200 i l ) \r ( r p a q ? * p r i n
0044220 t - c i r c l e - h a s h t a b
0044240 l e * n i l ) \r ( r p a q ?
0044260 * p a c k a g e * n i l ) \r (
0044300 r p a q ? * k e y w o r d - p
0044320 a c k a g e * n i l ) \r ( r p
0044340 a q ? * i n t e r l i s p - p
0044360 r i n 1 - c a s e * ( q u o t
0044400 e : u p c a s e ) ) \r ( r p a
0044420 q ? \ \ d e f p r i n t f n s
0044440 n i l ) \r ( / s e t t o p v a
0044460 l ( q u o t e \ \ \ \ m a p
0044500 p n a m e s t r e a m . g l o b
0044520 a l r e s o u r c e ) ) \r ( r p
0044540 a q ? \ \ p n a m e d e v i c
0044560 e ( n c r e a t e ( q u o t
0044600 e f d e v ) ( \ \ g e t d e
0044620 v i c e f r o m h o s t n a m e
0044640 ( q u o t e n u l l ) t )
0044660 ) ) \r ( a d d t o v a r s y s
0044700 s p e c v a r s * p r i n t -
0044720 b a s e * * r e a d - b a s e
0044740 * * p r i n t - r a d i x *
0044760 * p r i n t - e s c a p e * *
0045000 p r i n t - c a s e * \r * p r
0045020 i n t - g e n s y m * * p r i
0045040 n t - l e v e l * * p r i n t
0045060 - l e n g t h * * p r i n t -
0045100 p r e t t y * * p r i n t - c
0045120 i r c l e * * p r i n t - a r
0045140 r a y * * p a c k a g e * ) \r
0045160 ( p r o g n ( p u t p r o p s
0045200 n u m f o r m a t c o d e b
0045220 y t e m a c r o ( = . p r
0045240 o g 1 ) ) ( p u t p r o p s
0045260 n u m f o r m a t c o d e d m
0045300 a c r o ( = . p r o g 1 )
0045320 ) ) \r ( r p a q ? n i l n u m
0045340 p r i n t f l g ) \r ( p u t p r
0045360 o p s a p r i n t c o p y r
0045400 i g h t ( " X e r o x C o r
0045420 p o r a t i o n " 1 9 8 2 1
0045440 9 8 3 1 9 8 4 1 9 8 5 1 9
0045460 8 6 ) ) \r n i l \r
0045471