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