$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>PEANO.DCOM!1 0000000 ( F I L E C R E A T E D " 3 1 0000020 - M A Y - 8 2 1 3 : 3 3 : 1 4 0000040 " ( " c o m p i l e d o n 0000060 " { P H Y L U M } < L I S P C 0000100 O R E > D E M O > P E A N O . ; 0000120 5 ) \r " 2 0 - M A Y - 8 2 1 0000140 5 : 5 3 : 1 9 " r e c o m p i 0000160 l e d e x p r s : P E A N O 0000200 1 i n " N T E R L I S P - D 0000220 " d a t e d " 2 0 - M A Y 0000240 - 8 2 1 6 : 0 1 : 3 9 " ) \r ( 0000260 F I L E C R E A T E D " 3 1 - 0000300 M A Y - 8 2 1 3 : 3 3 : 0 7 " 0000320 { P H Y L U M } < L I S P C O 0000340 R E > D E M O > P E A N O . ; 5 0000360 2 7 3 8 c h a n g e s t o 0000400 : P E A N O C O M S \r P E A 0000420 N O S C A L E P L O T P E A 0000440 N O S T E P P E A N O D E M O 0000460 P E A N O 1 p r e v i o u s 0000500 d a t e : " 3 1 - M A Y - 8 0000520 2 1 1 : 2 9 : 4 4 " \r { P H 0000540 Y L U M } < L I S P C O R E > D 0000560 E M O > P E A N O . ; 1 ) \r P E 0000600 A N O D E M O D 1 \r ( I 1 0000620 S C A L E I 0 L E V E L ) 0000640 \0 f \0 \0 \0 002 @ 244 l \a b \0 277 A 265 0000660 Y ` \0 \0 d 005 001 241 005 002 245 l 003 027 \0 \0 0000700 277 ` \0 \0 d 004 ` \0 \0 360 263 036 277 n 002 p 0000720 n 001 222 n 001 214 n 001 226 h 032 032 032 032 o \0 0000740 \0 \0 \n \0 \0 027 \0 \0 \t \0 \0 277 ` \0 \0 d 0000760 ` \0 \0 \v \0 \0 k 027 \0 \0 d 027 \0 \0 j 027 0001000 \0 \0 @ k \n \0 \0 020 j 330 260 263 \0 ( 1 3 0001020 7 Q P E A N O 1 1 1 6 Q M 0001040 O V E T O 1 0 3 Q C L E A R 0001060 W 7 5 Q C R E A T E W ) \r ( 0001100 1 3 2 Q O R I E N T 1 2 6 Q 0001120 Y N O W 1 2 2 Q X N O W 0001140 1 1 3 Q P E A N O W I N D O W 0001160 1 0 7 Q P E A N O S C A L E 0001200 1 0 0 Q P E A N O W I N D O 0001220 W 4 1 Q 004 003 W I N D O W T Y 0001240 P E # 3 4 Q P E A N O W I N 0001260 D O W 3 0 Q P E A N O S C A 0001300 L E 1 4 Q P E A N O S C A L 0001320 E ) \r ( 7 2 Q " P e a n o c 0001340 u r v e s " ) \r P E A N O R O T 0001360 A T E D 1 \r ( L ( 0 D I R 0001400 E C T I O N ) ) \0 ' \0 \0 \0 001 ` 0001420 \0 \0 @ 330 027 \0 \0 d l 003 361 227 d l 004 331 0001440 027 \0 \0 020 j ` \0 \0 361 264 \v ` \0 \0 l 004 0001460 330 027 \0 \0 020 \0 N I L \r ( 4 4 Q O 0001500 R I E N T 3 6 Q O R I E N T 0001520 3 0 Q O R I E N T 2 3 Q 0001540 O R I E N T 7 O R I E N T 0001560 2 O R I E N T ) \r N I L \r P E 0001600 A N O 1 D 1 \r ( I 1 H A N 0001620 D I 0 L E V E L ) \0 223 \0 0001640 \0 \0 002 @ d k 360 262 025 277 ` \0 \0 j ` \0 0001660 \0 g \0 \0 ` \0 \0 \r 005 \0 \0 020 k 331 b \0 0001700 A \t \0 \0 @ j A 331 \n \0 \0 \b \0 \0 ` \0 0001720 \0 j ` \0 \0 g \0 \0 ` \0 \0 \r 005 \0 \0 \b 0001740 \0 \0 j A 331 \t \0 \0 @ A \n \0 \0 \b \0 \0 0001760 ` \0 \0 j ` \0 \0 g \0 \0 ` \0 \0 \r 005 \0 0002000 \0 \b \0 \0 @ A \n \0 \0 j A 331 \t \0 \0 \b 0002020 \0 \0 ` \0 \0 j ` \0 \0 g \0 \0 ` \0 \0 \r 0002040 005 \0 \0 \b \0 \0 @ j A 331 \n \0 \0 A \t \0 0002060 \0 \b \0 \0 020 \0 ( 2 2 0 Q B L O C 0002100 K 2 1 5 Q P E A N O R O T A 0002120 T E 2 1 1 Q P E A N O 1 2 0002140 0 2 Q P E A N O S T E P 1 7 0002160 7 Q R E L D R A W T O 1 5 6 0002200 Q P E A N O S T E P 1 5 3 Q 0002220 P E A N O R O T A T E 1 4 5 0002240 Q P E A N O 1 1 4 0 Q P E 0002260 A N O S T E P 1 3 5 Q R E L 0002300 D R A W T O 1 1 4 Q P E A N 0002320 O S T E P 1 1 1 Q P E A N O 0002340 1 1 0 4 Q P E A N O R O T A 0002360 T E 7 6 Q P E A N O S T E P 0002400 7 3 Q R E L D R A W T O 5 0002420 2 Q P E A N O S T E P 4 7 Q 0002440 P E A N O 1 4 0 Q P E A N 0002460 O R O T A T E 2 7 Q R E L D 0002500 R A W T O ) \r ( 1 7 3 Q P E A 0002520 N O W I N D O W 1 7 0 Q R E 0002540 P L A C E 1 6 5 Q P E A N O 0002560 S C A L E 1 6 1 Q P E A N O 0002600 S C A L E 1 3 1 Q P E A N O 0002620 W I N D O W 1 2 6 Q R E P L 0002640 A C E 1 2 3 Q P E A N O S C 0002660 A L E 1 1 7 Q P E A N O S C 0002700 A L E 6 7 Q P E A N O W I N 0002720 D O W 6 4 Q R E P L A C E 0002740 6 1 Q P E A N O S C A L E 5 0002760 5 Q P E A N O S C A L E 2 3 0003000 Q P E A N O W I N D O W 2 0 0003020 Q R E P L A C E 1 5 Q P E 0003040 A N O S C A L E 1 1 Q P E A 0003060 N O S C A L E ) \r N I L \r P E A 0003100 N O S T E P D 1 \r N I L \0 _ 0003120 \0 \0 \0 \0 ` \0 \0 d j 360 232 277 ` \0 \0 k 0003140 330 027 \0 \0 260 < d k 360 232 277 ` \0 \0 k 330 0003160 027 \0 \0 260 ) d l 002 360 232 277 ` \0 \0 k 331 0003200 027 \0 \0 260 035 l 003 360 230 ` \0 \0 k 331 027 \0 0003220 \0 211 o \0 \0 \0 ` \0 \0 \n \0 \0 277 ` \0 \0 0003240 ` \0 \0 332 ` \0 \0 ` \0 \0 332 ` \0 \0 \v \0 0003260 \0 020 \0 ( 1 3 4 Q M O V E T O 0003300 1 0 7 Q E R R O R ) \r ( 1 3 1 0003320 Q P E A N O W I N D O W 1 2 0003340 5 Q P E A N O S C A L E 1 2 0003360 2 Q Y N O W 1 1 6 Q P E A 0003400 N O S C A L E 1 1 3 Q X N O 0003420 W 1 0 4 Q O R I E N T 7 4 0003440 Q Y N O W 6 7 Q Y N O W 0003460 5 6 Q X N O W 5 1 Q X N O 0003500 W 3 6 Q Y N O W 3 1 Q Y 0003520 N O W 1 7 Q X N O W 1 2 Q 0003540 X N O W 2 O R I E N T ) \r 0003560 ( 1 0 1 Q " S t e p : s t r 0003600 a n g e d i r e c t i o n " ) 0003620 \r ( P R E T T Y C O M P R I N T 0003640 P E A N O C O M S ) \r ( R P A 0003660 Q Q P E A N O C O M S ( ( F 0003700 N S P E A N O D E M O P E A 0003720 N O R O T A T E P E A N O 1 0003740 P E A N O S T E P ) ( M A C R 0003760 O S P L O T ) ( G L O B A L 0004000 V A R S X N O W Y N O W \r 0004020 O R I E N T P E A N O S C A L 0004040 E P E A N O W I N D O W ) ( 0004060 V A R S P E A N O S C A L E 0004100 ( P E A N O W I N D O W N I L 0004120 ) ) ) ) \r ( P U T P R O P S P 0004140 L O T M A C R O ( N I L ( 0004160 R E L D R A W T O P E A N O S 0004200 C A L E 0 P E A N O S C A L 0004220 E ( Q U O T E R E P L A C E 0004240 ) P E A N O W I N D O W ) ) ) 0004260 \r ( R P A Q Q P E A N O S C A 0004300 L E 3 ) \r ( R P A Q Q P E A 0004320 N O W I N D O W N I L ) \r N I 0004340 L \r 0004342