$ od -c -N 50000 [phylum]<JLisp>TAKDEMO!2
0000000 ( F I L E C R E A T E D " 8
0000020 - N O V - 8 3 2 2 : 1 9 : 1 8
0000040 " 006 004 { P H Y L U M } < J L I
0000060 S P > T A K D E M O . ; 2 006 001
0000100 2 7 4 2 \r \r c
0000120 h a n g e s t o : ( V A R
0000140 S T A K D E M O C O M S ) \r \t
0000160 \t ( F N S T A K D E M O
0000200 ) \r \r p r e v i o u
0000220 s d a t e : " 1 5 - J U L -
0000240 8 2 0 2 : 0 9 : 4 6 " { P H
0000260 Y L U M } < J L I S P > T A K D
0000300 E M O . ; 1 ) \r \r \r ( P R E T T
0000320 Y C O M P R I N T T A K D E M
0000340 O C O M S ) \r \r ( R P A Q Q 006
0000360 002 T A K D E M O C O M S 006 001 [
0000400 ( V A R S B A L ( T A K I N
0000420 I T I A L S ( Q U O T E 272 264
0000440 306 243 ) ) \r \t \t \t 245 312 245 351 245 320
0000460 ) \r \t \t ( F N S N A M
0000500 E F N T A K T A K E U C H I
0000520 T A K D E M O 260 365 272 376 266 310
0000540 300 323 ) \r \t \t ( P ( M O
0000560 V D ( Q U O T E D I F F E R
0000600 E N C E ) \r \t \t \t ( Q
0000620 U O T E 270 272 273 273 ) ) \r \t \t
0000640 ( M O V D ( Q U O T
0000660 E I G E Q ) \r \t \t \t
0000700 ( Q U O T E 310 346 263 323 ) ) \r \t \t
0000720 ( M O V D ( Q U
0000740 O T E G R E A T E R P ) \r \t \t
0000760 \t ( Q U O T E 272 271 312
0001000 254 ) ) \r \t \t ( M O
0001020 V D ( Q U O T E C O N D ) \r
0001040 \t \t \t ( Q U O T E 276
0001060 362 267 357 ) ) ) \r \t \t ( D E
0001100 C L A R E : D O N T C O P Y
0001120 C O M P I L E R V A R S ( A D
0001140 D V A R S ( N L A M A N A M
0001160 E F N ) \r \t \t \t \t \t \t \t
0001200 ( N L A M L 266 310 300 323 ) \r \t \t
0001220 \t \t \t \t \t ( L A M A
0001240 260 365 272 376 ] ) \r \r ( R P A Q Q 006
0001260 002 B A L 006 001 266 310 300 323 ) \r \r ( R
0001300 P A Q Q 006 002 T A K I N I T I A
0001320 L S 006 001 272 264 306 243 ) \r \r ( R P A
0001340 Q Q 006 002 245 312 245 351 245 320 006 001 T )
0001360 \r ( D E F I N E Q \r \r ( 006 004 N A
0001400 M E F N 006 001 \r [ N L A M B D
0001420 A N A M E
0001440
*
0001500 006 003 ( * 272 264 306 243 " 2
0001520 6 - A P R - 8 2 1 4 : 0 8 " )
0001540 006 001 \r ( R E S E T V A R
0001560 S ( F I L E P K G F L G ) \r \t
0001600 [ C O P Y D E F
0001620 ( Q U O T E T A K ) \r \t \t \t (
0001640 S E T Q N A M E ( C O N D \r
0001660 \t \t \t ( ( L I S T P N
0001700 A M E ) \r \t \t \t ( C
0001720 A R N A M E ) ) \r \t \t \t
0001740 ( T N A M E ] \r \t
0001760 ( F I X E D I T D A T E (
0002000 G E T D N A M E ) ) \r \t
0002020 ( R E S E T V A R S (
0002040 * * C O M M E N T * * F L G ) \r
0002060 \t \t ( P R E
0002100 T T Y P R I N T ( L I S T N
0002120 A M E ] ) \r \r ( 006 004 T A K 006 001 \r
0002140 [ L A M B D A ( X Y Z
0002160 )
0002200
0002220 006 003 (
0002240 * e d i t e d : " 2 6 - A P
0002260 R - 8 2 1 2 : 5 1 " ) 006 001 \r
0002300 ( 276 362 267 357 ( ( 310 346 263 323
0002320 Y X ) \r \t Z ) \r \t (
0002340 T ( 006 002 T A K 006 001 ( 006 002 T A
0002360 K 006 001 ( 270 272 273 273 X 1 ) \r \t
0002400 \t Y Z ) \r \t \t
0002420 ( 006 002 T A K 006 001 ( 270 272 273 273
0002440 Y 1 ) \r \t \t Z
0002460 X ) \r \t \t ( 006 002 T A K 006 001
0002500 ( 270 272 273 273 Z 1 ) \r \t \t
0002520 X Y ] ) \r \r ( 006 004 T A
0002540 K E U C H I 006 001 \r [ L A M B
0002560 D A ( X Y Z )
0002600
*
0002640 006 003 ( * 272 264 306 243
0002660 " 3 - M A Y - 8 2 1 8 : 1 4
0002700 " ) 006 001 \r ( C O N D \r
0002720 ( ( I G E Q Y X )
0002740 \r \t Z ) \r ( T ( 006
0002760 002 T A K E U C H I 006 001 ( 006 002 T
0003000 A K E U C H I 006 001 ( D I F F E
0003020 R E N C E X 1 ) \r \t \t \t
0003040 Y Z ) \r \t \t ( 006 002
0003060 T A K E U C H I 006 001 ( D I F F
0003100 E R E N C E Y 1 ) \r \t \t \t
0003120 Z X ) \r \t \t ( 006
0003140 002 T A K E U C H I 006 001 ( D I F
0003160 F E R E N C E Z 1 ) \r \t \t \t
0003200 X Y ] ) \r \r ( 006 004 T
0003220 A K D E M O 006 001 \r [ L A M B
0003240 D A N I L
0003260
*
0003320 006 003 ( * 272 264 306 243
0003340 " 8 - N O V - 8 3 2 2 : 1 9
0003360 " ) 006 001 \r ( S E T Q I
0003400 N I T I A L S T A K I N I T I
0003420 A L S ) \r ( 006 002 N A M E
0003440 F N 006 001 303 335 306 342 ] ) \r \r ( 006 004
0003460 260 365 272 376 006 001 \r [ L A M B D A
0003500 N
0003520
*
0003560 006 003 ( * e d i t e d :
0003600 " 2 6 - A P R - 8 2 1 7 : 4
0003620 1 " ) 006 001 \r ( P R O G
0003640 ( ( $ $ T E M 1 N ) \r \t
0003660 $ $ V A L \r \t ( I 1 ) )
0003700 \r $ $ L P ( C O N D
0003720 \r \t ( ( I G R E A T E R
0003740 P I $ $ T E M 1 ) \r \t
0003760 ( R E T U R N $ $ V A L
0004000 ) ) ) \r ( P
0004020 R I N 1 ( A R G N I ) \r \t
0004040 \t T ) \r (
0004060 S P A C E S 1 T ) \r
0004100 $ $ I T E R A T E \r
0004120 ( S E T Q I ( I
0004140 P L U S I 1 ) ) \r
0004160 ( G O $ $ L P ) ) \r
0004200 ( T E R P R I T ] ) \r
0004220 \r ( 006 004 266 310 300 323 006 001 \r [ N L
0004240 A M B D A ( 264 353 266 310 274 375 306 376
0004260 267 320 310 361 )
0004300
0004320 006 003 ( * 272 264 306
0004340 243 " 2 6 - A P R - 8 2 1 7 :
0004360 4 8 " ) 006 001 \r ( 276 362 267 357
0004400 ( ( 272 271 312 254 274 375 306 376 267 320 310
0004420 361 ) \r \t ( 006 002 260 365 272 376 006 001
0004440 264 353 266 310 " 315 370 261 327 " ( 270 272
0004460 273 273 274 375 306 376 267 320 310 361 ) \r \t \t
0004500 " 261 337 " ) ) \r \t ( 245 312 245 351
0004520 245 320 ( 006 002 260 365 272 376 006 001 264 353 266
0004540 310 " 300 326 273 372 " ( 270 272 273 273 267
0004560 320 310 361 274 375 306 376 ) \r \t \t \t " 261 337
0004600 " ] ) \r ) \r ( M O V D ( Q U O
0004620 T E D I F F E R E N C E ) \r
0004640 ( Q U O T E 270 272 273 273
0004660 ) ) \r ( M O V D ( Q U O T E
0004700 I G E Q ) \r ( Q U O
0004720 T E 310 346 263 323 ) ) \r ( M O V D
0004740 ( Q U O T E G R E A T E R P )
0004760 \r ( Q U O T E 272 271
0005000 312 254 ) ) \r ( M O V D ( Q U O T
0005020 E C O N D ) \r ( Q
0005040 U O T E 276 362 267 357 ) ) \r ( D E C
0005060 L A R E : D O N T C O P Y C
0005100 O M P I L E R V A R S \r \r ( A
0005120 D D T O V A R 006 002 N L A M A 006
0005140 001 N A M E F N ) \r \r ( A D D T
0005160 O V A R 006 002 N L A M L 006 001 266
0005200 310 300 323 ) \r \r ( A D D T O V A R
0005220 006 002 L A M A 006 001 260 365 272 376 ) \r )
0005240 \r ( D E C L A R E : D O N T C
0005260 O P Y \r ( F I L E M A P (
0005300 N I L ( 7 5 3 2 4 3 7 ( N
0005320 A M E F N 7 6 3 . 1 1 0 9
0005340 ) ( T A K 1 1 1 1 . 1 3
0005360 6 9 ) ( T A K E U C H I 1 3
0005400 7 1 . 1 6 7 4 ) ( T A K D
0005420 E M O 1 6 7 6 . \r 1 8 3 5
0005440 ) ( 260 365 272 376 1 8 3 7 . 2
0005460 1 9 1 ) ( 266 310 300 323 2 1 9 3
0005500 . 2 4 3 5 ) ) ) ) ) \r S T O P
0005520 \r
0005521