$ od -c -N 50000 [eris]<LispUsers>PRINTL.DCOM!1
0000000 ( F I L E C R E A T E D " 7
0000020 - J A N - 8 2 0 9 : 5 0 : 5 7
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P U
0000100 S E R S > P R I N T L . ; 2 )
0000120 N O B I N D t c o m p l ' d
0000140 i n \r " N T E R L I S P - D
0000160 " d a t e d " 6 - J A N -
0000200 8 2 1 3 : 3 3 : 3 4 " ) \r ( F
0000220 I L E C R E A T E D " 2 5 - M
0000240 A Y - 8 1 2 2 : 5 1 : 0 2 "
0000260 < L I S P U S E R S > P R I N T
0000300 L . ; 2 0 4 8 4 8 c h a n g
0000320 e s t o : P R I N T L p r
0000340 e v i o u s d a t e : \r " 3
0000360 0 - M A Y - 7 9 0 0 : 2 5 : 5
0000400 6 " < L I S P U S E R S > P R
0000420 I N T L . ; 1 9 ) \r G E T P L V
0000440 A L U E D 1 \r ( P 1 X F
0000460 2 L I S P X H I S T O R Y )
0000500 \0 % 002 001 \0 \0 R 001 021 021 001 H 003 265 004
0000520 h 020 001 002 002 001 Y 235 I g \0 \0 360 247 g \0
0000540 \0 I \n \0 \0 277 H 002 X 260 344 \0 ( 3 5 Q
0000560 R E T F R O M ) \r ( 3 1 Q G
0000600 E T P L V A L U E 2 4 Q \a )
0000620 \r N I L \r C L O S E L I N E D
0000640 1 \r ( F 1 C L O S E L E V E
0000660 L F 2 F I L E F 3 R
0000700 M ) \0 - 001 003 \0 \0 Q 264 * R 021 001 \0
0000720 H 224 H \t \0 \0 270 S \t \0 \0 277 o \0 \0 \0
0000740 \t \0 \0 277 Q \t \0 \0 277 H 224 H \t \0 \0 277
0000760 023 h c 002 020 \0 ( 4 5 Q O U T P U
0001000 T 3 6 Q P R I N 1 3 1 Q
0001020 P R I N 1 2 1 Q T A B 1 4
0001040 Q O U T P U T ) \r N I L \r ( 2
0001060 6 Q " : " ) \r P R I N T L D
0001100 1 \r ( P 3 R M P 2 N
0001120 P 1 I N D E N T P 0 C
0001140 L O S E L E V E L I 4 F I
0001160 L E I 3 R M A R G I 2
0001200 L M A R G I 1 L I M I T
0001220 I 0 I T E M F 6 P R
0001240 I N T L L I M I T ) \0 302 006 001 \0
0001260 005 B d 005 001 245 d 005 002 241 005 003 246 D \t \0
0001300 \0 b 004 277 A d 005 001 245 d 005 002 241 005 003 243
0001320 V b 002 277 C d 005 001 245 d 005 002 241 005 003 252
0001340 h D \n \0 \0 l 005 331 b 006 277 D h 360 265 022
0001360 D \t \0 \0 265 \f D g \0 \0 g \0 \0 \v \0 \0
0001400 b \b k B l 003 330 j C 021 $ 005 C l 002 331
0001420 b 006 \b \0 \0 @ 003 262 ; D \ 224 L \t \0 \0
0001440 274 B j \n \0 \0 277 o \0 \0 \0 J k 330 \n \0
0001460 \0 277 o \0 \0 \0 \t \0 \0 277 L 224 L \t \0 \0
0001500 277 @ I l 003 330 l 002 D \f \0 \0 277 \b \0 \0
0001520 260 033 D ] 224 M \t \0 \0 275 I j \n \0 \0 277
0001540 @ \t \0 \0 277 M 224 M \t \0 \0 277 D \t \0 \0
0001560 h 020 \0 ( 2 7 6 Q T E R P R I
0001600 2 7 1 Q O U T P U T 2 6 2 Q
0001620 P R I N 1 2 5 5 Q T A B
0001640 2 4 7 Q O U T P U T 2 3 6 Q
0001660 C L O S E L I N E 2 3 2 Q
0001700 P R I N T L 1 2 1 6 Q O U T
0001720 P U T 2 0 7 Q P R I N 1 1
0001740 7 7 Q P R I N T N U M 1 6 4
0001760 Q T A B 1 5 6 Q O U T P U
0002000 T 1 4 3 Q C L R H A S H 1
0002020 1 6 Q O P E N F I L E 1 0 2
0002040 Q O P E N P 6 3 Q L I N E
0002060 L E N G T H 1 7 Q P O S I T
0002100 I O N ) \r ( 1 1 3 Q N E W 1
0002120 1 0 Q O U T P U T ) \r ( 2 0 4
0002140 Q " : " 1 7 1 Q ( F I X
0002160 3 ) ) \r P R I N T L 1 D 1 \r (
0002200 P 1 1 Q I P 2 S P A C
0002220 E P 1 C L O S E L E V E L
0002240 P 0 C I 2 L E V E L
0002260 I 1 I N D E N T I 0
0002300 I T E M F 1 2 Q F I L E
0002320 F 1 3 Q N F 1 4 Q L M
0002340 A R G F 1 5 Q R M A R G
0002360 F 1 6 Q L I M I T ) 001 206 \n
0002400 005 \0 003 021 200 \a W 024 [ 224 K \t \0 \0 273 A
0002420 j \n \0 \0 277 o \0 \0 \0 \t \0 \0 277 K 224 K
0002440 \t \0 \0 277 @ 021 021 \t O 020 _ 022 003 242 261 001
0002460 031 W 026 k 330 c 026 277 O 022 W 026 \n \0 \0 277
0002500 O 022 d 001 003 242 261 \0 210 001 h 035 X 236 g \0
0002520 \0 H g \0 \0 # 032 032 \t \0 \0 260 w B W 034
0002540 361 224 g \0 \0 260 j O 022 d @ 360 263 2 277 \b
0002560 \0 \0 277 W 024 \ 224 L \t \0 \0 274 W 030 j \n
0002600 \0 \0 277 o \0 \0 \0 W 026 \n \0 \0 277 o \0 \0
0002620 \0 \t \0 \0 277 L 224 L \t \0 \0 277 O 022 @ 360
0002640 225 W 026 k 330 271 207 W 026 Y k 331 c 026 277 O
0002660 022 001 W 024 \t \0 \0 W 032 375 361 222 A k 203 W
0002700 030 l 006 330 B k 330 \v \0 \0 277 i Z 203 001 \t
0002720 \0 \0 277 O 022 d 002 262 ? 002 004 d k 360 256 d
0002740 l 002 360 251 d l 003 360 244 d l 004 360 222 277 i
0002760 201 277 h 262 ' W 024 ] 224 M \t \0 \0 275 o \0
0003000 \0 \0 \t \0 \0 277 O 022 002 \t \0 \0 277 M 224 M
0003020 \t \0 \0 277 O 022 002 261 377 023 O 022 002 h 035 X
0003040 262 364 W 024 ^ 224 N \t \0 \0 276 o \0 \0 \0 \t
0003060 \0 \0 277 H \t \0 \0 277 o \0 \0 \0 \t \0 \0 277
0003100 N 224 N \t \0 \0 277 023 W 024 \t \0 \0 k 330 W
0003120 032 375 361 233 o \0 \0 \0 W 024 \n \0 \0 277 260 (
0003140 \b \0 \0 277 W 024 _ 016 227 O 016 \t \0 \0 _ 016
0003160 277 A j \n \0 \0 277 o \0 \0 \0 \t \0 \0 277 O
0003200 016 d 223 \t \0 \0 h 020 \0 ( 6 0 2 Q O
0003220 U T P U T 5 7 2 Q P R I N 1
0003240 5 6 2 Q T A B 5 5 2 Q O
0003260 U T P U T 5 3 7 Q C L O S E
0003300 L I N E 5 3 1 Q P R I N 1
0003320 5 1 1 Q P O S I T I O N 5 0
0003340 2 Q O U T P U T 4 7 3 Q P
0003360 R I N 1 4 6 3 Q P R I N 1
0003400 4 5 6 Q P R I N 1 4 4 6 Q
0003420 O U T P U T 4 1 7 Q O U T P
0003440 U T 4 1 0 Q P R I N 1 4 0
0003460 1 Q P R I N 1 3 7 1 Q O U
0003500 T P U T 3 1 6 Q P R I N T L
0003520 A T O M 3 0 6 Q P R I N T L
0003540 1 2 6 3 Q P O S I T I O N
0003560 2 2 7 Q O U T P U T 2 2 0 Q
0003600 P R I N 1 2 1 0 Q P R I N
0003620 T N U M 1 7 6 Q T A B 1 6
0003640 7 Q O U T P U T 1 5 6 Q C
0003660 L O S E L I N E 1 2 7 Q P R
0003700 I N T L A T O M L I S T 7 3 Q
0003720 P U T H A S H 3 7 Q O U T
0003740 P U T 3 0 Q P R I N 1 2 0
0003760 Q T A B 1 2 Q O U T P U T
0004000 ) \r ( 1 4 1 Q { - - } 1 2 1
0004020 Q } 1 1 5 Q { ) \r ( 5 6 7
0004040 Q " ) " 5 2 4 Q " ) " 4
0004060 7 0 Q " } " 4 5 3 Q " .
0004100 { " 3 7 6 Q " . " 2
0004120 1 5 Q " : " 2 0 3 Q ( F I
0004140 X 3 ) 2 5 Q " ( " ) \r P R
0004160 I N T L A T O M D 1 \r ( I 0
0004200 A T O M F 1 S P A C E
0004220 F 2 F I L E F 3 R M A
0004240 R G F 4 I N D E N T ) \0
0004260 K 001 004 \0 001 R \t \0 \0 @ \t \0 \0 Q 221 k
0004300 200 j 330 330 S 375 361 263 % \b \0 \0 277 R 021 001
0004320 \0 H 224 H \t \0 \0 270 T k 330 j \n \0 \0 277
0004340 H 224 H \t \0 \0 277 023 h c 002 277 Q 230 o \0
0004360 \0 \0 R \n \0 \0 277 @ \t \0 \0 i c 002 020 \0
0004400 ( 1 0 5 Q P R I N 1 1 0 0 Q
0004420 P R I N 1 6 0 Q O U T P U
0004440 T 5 1 Q T A B 4 1 Q O U
0004460 T P U T 2 6 Q C L O S E L I
0004500 N E 7 N C H A R S 3 P O
0004520 S I T I O N ) \r N I L \r ( 7 4 Q
0004540 " " ) \r P R I N T L A T O M
0004560 L I S T D 1 \r ( P 3 L P
0004600 2 I I 0 A T O M S F
0004620 5 F I L E F 6 S P A C
0004640 E F 7 R M A R G F 1 0
0004660 Q I N D E N T ) \0 n 005 004 \0 001
0004700 @ j 021 022 002 H 003 265 022 I 022 021 021 004 U \t
0004720 \0 \0 V 262 024 K k 330 216 001 272 I J \t \0 \0
0004740 330 271 H 002 X 260 341 K 330 W 016 375 361 234 V 262
0004760 ( o \0 \0 \0 U \n \0 \0 260 035 \b \0 \0 277 U
0005000 \ 224 L \t \0 \0 274 W 020 k 330 j \n \0 \0 277
0005020 L 224 L \t \0 \0 277 @ 213 d 021 001 002 J 001 U
0005040 \n \0 \0 023 002 003 265 363 i c \f h 020 \0 ( 1
0005060 4 2 Q P R I N 1 1 2 5 Q O
0005100 U T P U T 1 1 6 Q T A B 1
0005120 0 5 Q O U T P U T 7 5 Q C
0005140 L O S E L I N E 7 0 Q P R I
0005160 N 1 3 7 Q N C H A R S 2 1
0005200 Q P O S I T I O N ) \r N I L \r
0005220 ( 6 4 Q " " ) \r ( P R E T T
0005240 Y C O M P R I N T P R I N T L
0005260 C O M S ) \r ( R P A Q Q P R I
0005300 N T L C O M S ( ( F N S G E
0005320 T P L V A L U E C L O S E L I
0005340 N E P R I N T L P R I N T L
0005360 1 P R I N T L A T O M P R I
0005400 N T L A T O M L I S T ) ( B L
0005420 O C K S ( P R I N T L \r P R
0005440 I N T L C L O S E L I N E P
0005460 R I N T L 1 P R I N T L A T O
0005500 M P R I N T L A T O M L I S T
0005520 ( G L O B A L V A R S P R I
0005540 N T L L I M I T ) ) ( N I L
0005560 G E T P L V A L U E ( \r G L O
0005600 B A L V A R S L I S P X H I S
0005620 T O R Y ) ) ) ( V A R S P R
0005640 I N T L L I M I T ) ( L I S P
0005660 X M A C R O S P R N T L ) (
0005700 D E C L A R E : D O N T C O P
0005720 Y E V A L @ C O M P I L E (
0005740 P ( \r R E S E T S A V E D W
0005760 I M I F Y C O M P F L G T ) )
0006000 ) ) ) \r ( R P A Q Q P R I N T
0006020 L L I M I T 4 ) \r ( A D D T O
0006040 V A R L I S P X M A C R O S
0006060 ( P R N T L ( C O N D ( ( L
0006100 I S T P L I S P X L I N E )
0006120 ( C O N D ( ( N U M B E R P
0006140 ( C A R L I S P X L I N E ) )
0006160 ( A P P L Y ( \r F U N C T I
0006200 O N P R I N T L ) ( C O N S
0006220 ( G E T P L V A L U E ) L I
0006240 S P X L I N E ) ) ) ( T ( E
0006260 V A L ( C O N S ( F U N C T
0006300 I O N P R I N T L ) L I S P
0006320 X L I N E ) ) ) ) ) ( T ( \r
0006340 A P P L Y * ( F U N C T I O N
0006360 P R I N T L ) ( G E T P L V
0006400 A L U E ) ) ) ) ) ) \r N I L \r
0006417