$ od -c -N 50000 [phylum]<3-LISP>PAPER>KOTO>SNAKE-TEST.DCOM!1
0000000 ( F I L E C R E A T E D " 2 3
0000020 - A P R - 8 3 0 0 : 5 7 : 0 9
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < 3 - L I S
0000100 P > I N T E R L I S P > S N A K
0000120 E - T E S T . ; 4 ) \r " 1 9 -
0000140 A P R - 8 3 1 3 : 4 2 : 5 7 "
0000160 t c o m p l ' d i n W O R
0000200 K d a t e d " 1 9 - A P R -
0000220 8 3 1 3 : 5 7 : 2 5 " ) \r ( F
0000240 I L E C R E A T E D " 2 2 - A
0000260 P R - 8 3 1 4 : 3 3 : 0 2 "
0000300 { P H Y L U M } < 3 - L I S P >
0000320 I N T E R L I S P > S N A K E -
0000340 T E S T . ; 4 1 9 9 1 2 c h
0000360 a n g e s t o : ( V A R S
0000400 \r S N A K E - T E S T C O M S
0000420 P R E T T Y P R I N T Y P E M A
0000440 C R O S ) ( F N S T E S T -
0000460 1 - T 1 T E S T - 1 - S 1 X
0000500 F A C T - S 1 X F A C T - T 1
0000520 X A D D - S 1 X - M U L T -
0000540 S 1 \r X M U L T - T 1 X A D
0000560 D - T 1 X M U L T - S X M U
0000600 L T - T X A D D - S X A D D
0000620 - T X S U B 1 - T X S U B 1
0000640 - S X A D D 1 - S X A D D 1
0000660 - T X Z E R O ? - S X Z E R
0000700 O ? - T \r X Z E R O - S X Z
0000720 E R O - T X F A C T - S X F
0000740 A C T - T T E S T - 1 - T T
0000760 E S T - 1 - S S - R E P L A C
0001000 E T - 1 S T T - R E S T S
0001020 W I T C H - P R I M I T I V E S
0001040 F S - 1 S T \r F S - R E S T
0001060 F T - 1 S T F T - R E S T
0001100 X F A C T T E S T - 2 X Z E
0001120 R O ? X M U L T X A D D X
0001140 S U B 1 X A D D 1 X Z E R O
0001160 T E S T - M E M B E R T E S
0001200 T - A P P E N D \r T E S T - C
0001220 O P Y I O T A P R I N T - C
0001240 O N S C E L L 1 S - T E S T 1
0001260 T - T E S T 1 S - E Q C R
0001300 E A T E - H A S H S - E M P T
0001320 Y S - R E S T S - 1 S T S
0001340 - P R E P S - R C O N S 0 \r
0001360 T - R E P L A C E T - E Q T
0001400 - E M P T Y T - P R E P T -
0001420 R C O N S 0 D E T E S T - 1
0001440 ) ( R E C O R D S C O N S C
0001460 E L L 1 ) p r e v i o u s d
0001500 a t e : \r " 2 2 - A P R - 8 3
0001520 1 3 : 0 2 : 2 2 " { P H Y L
0001540 U M } < 3 - L I S P > I N T E R
0001560 L I S P > S N A K E - T E S T .
0001600 ; 1 ) \r D E D 1 \r ( I 0 X
0001620 ) \0 \b \0 \0 003 001 @ h 032 \t \0 \0 020 \0
0001640 ( 5 D E F I N E ) \r N I L \r N
0001660 I L \r S - R C O N S 0 D 1 \r N
0001700 I L \0 \a \0 \0 \0 \0 g \0 \0 h 032 020 \0
0001720 N I L \r ( 2 & E M P T Y ) \r N
0001740 I L \r S - P R E P D 1 \r ( L
0001760 ( 1 Y 0 X ) ) \0 005 \0 \0 \0
0002000 002 @ A 032 020 \0 N I L \r N I L \r N I
0002020 L \r S - E M P T Y D 1 \r ( L
0002040 ( 0 X ) ) \0 \b \0 \0 \0 001 @ 001 g
0002060 \0 \0 360 020 \0 N I L \r ( 4 & E M P
0002100 T Y ) \r N I L \r S - 1 S T D 1
0002120 \r ( P 0 P I 0 X ) \0
0002140 031 001 \0 \0 001 @ 001 021 001 \0 H d g \0 \0 360
0002160 232 277 g \0 \0 g \0 \0 \n \0 \0 h 020 \0 ( 2
0002200 5 Q E R R O R ) \r ( 2 2 Q S
0002220 - 1 S T 1 7 Q E M P T Y 1
0002240 1 Q & E M P T Y ) \r N I L \r S
0002260 - R E S T D 1 \r ( P 0 P
0002300 I 0 X ) \0 032 001 \0 \0 001 @ 001 021
0002320 001 \0 H g \0 \0 360 232 g \0 \0 g \0 \0 \n \0
0002340 \0 h 020 @ 002 020 \0 ( 2 3 Q E R R O
0002360 R ) \r ( 2 0 Q S - R E S T 1
0002400 5 Q E M P T Y 1 0 Q & E M
0002420 P T Y ) \r N I L \r C R E A T E -
0002440 H A S H D 1 \r N I L \0 \n \0 \0
0002460 \0 \0 l d \t \0 \0 027 \0 \0 020 \0 ( 4 H
0002500 A R R A Y ) \r ( 7 H T ) \r N I
0002520 L \r S - E Q D 1 \r ( L ( 1
0002540 Y 0 X ) ) \0 , 002 \0 \0 002 @ A
0002560 360 265 ' @ 001 A 001 360 264 @ 002 A 002 360 264
0002600 031 @ ` \0 \0 035 A ` \0 \0 035 021 002 001 H h
0002620 360 h 360 264 005 H I 360 020 \0 N I L \r ( 3
0002640 3 Q H T 2 6 Q H T ) \r N I
0002660 L \r S - R E P L A C E D 1 \r (
0002700 P 3 O R I G I N A L - H 1
0002720 P 2 T E M P P 1 H 2
0002740 P 0 H 1 I 1 Y I 0
0002760 X ) \0 232 004 \0 \0 002 021 @ 003 @ d A
0003000 360 222 261 \0 215 ` \0 \0 035 X d [ A ` \0 \0
0003020 035 Y H 263 4 d 263 033 @ A h 032 032 270 @ H
0003040 ` \0 \0 \v \0 \0 277 A H ` \0 \0 \v \0 \0 260
0003060 K @ H ` \0 \0 \v \0 \0 277 I 001 I 002 032 272
0003100 I @ 030 J 031 260 5 I 263 030 A H ` \0 \0 \v
0003120 \0 \0 277 H 001 H 002 032 272 H @ 030 J 031 260 034
0003140 H I 360 263 , H 212 d 001 I ` \0 \0 \v \0 \0
0003160 277 002 003 265 364 I H \n \0 \0 277 K 265 020 @ h
0003200 032 211 d 001 A 001 030 A 002 031 277 002 003 265 365 g
0003220 \0 \0 020 \0 ( 1 7 7 Q \ N C O N C
0003240 2 1 6 5 Q P U T H A S H 1
0003260 2 7 Q P U T H A S H 7 6 Q
0003300 P U T H A S H 6 4 Q P U T H
0003320 A S H 5 3 Q P U T H A S H )
0003340 \r ( 2 2 7 Q O K 1 6 2 Q H
0003360 T 1 2 4 Q H T 7 3 Q H T
0003400 6 1 Q H T 5 0 Q H T 2
0003420 5 Q H T 1 5 Q H T ) \r N I
0003440 L \r F S - 1 S T D 1 \r ( L (
0003460 0 X ) ) \0 004 \0 \0 \0 001 @ 001 020 \0
0003500 N I L \r N I L \r N I L \r F S - R
0003520 E S T D 1 \r ( L ( 0 X ) )
0003540 \0 004 \0 \0 \0 001 @ 002 020 \0 N I L \r N
0003560 I L \r N I L \r P R I N T - C O N
0003600 S C E L L 1 D 1 \r ( P 1 W
0003620 P 0 R I 0 X ) \0 8
0003640 002 \0 \0 001 021 001 @ \t \0 \0 226 h o \0 \0
0003660 \0 032 020 @ 271 h h 032 270 I \t \0 \0 257 H I
0003700 \t \0 \0 \n \0 \0 277 I \t \0 \0 Y 260 356 H g
0003720 \0 \0 \n \0 \0 277 h H 001 032 020 \0 ( 6 0 Q
0003740 T C O N C 4 6 Q T - R E S
0003760 T 4 1 Q T C O N C 3 6 Q
0004000 T - 1 S T 3 0 Q T - E M P T
0004020 Y 6 T - E M P T Y ) \r ( 5 5
0004040 Q & E M P T Y ) \r ( 1 4 Q (
0004060 & E M P T Y ) ) \r T - R C O N S
0004100 0 D 1 \r N I L \0 022 \0 \0 \0 \0 `
0004120 \0 \0 037 d g \0 \0 024 \0 277 d h 024 002 277 020
0004140 \0 N I L \r ( 7 & E M P T Y 2
0004160 004 003 C O N S C E L L 1 T Y P E
0004200 # ) \r N I L \r T - P R E P D 1
0004220 \r ( I 1 Y I 0 X ) \0
0004240 020 \0 \0 \0 002 ` \0 \0 037 d @ 024 \0 277 d A
0004260 024 002 277 020 \0 N I L \r ( 2 004 003 C O
0004300 N S C E L L 1 T Y P E # ) \r N I
0004320 L \r T - E M P T Y D 1 \r ( L
0004340 ( 0 X ) ) \0 022 \0 \0 \0 001 @ 311 \0
0004360 265 \t @ 311 002 b \0 260 367 g \0 \0 360 020 \0 N
0004400 I L \r ( 1 6 Q & E M P T Y ) \r
0004420 N I L \r T - 1 S T D 1 \r ( P
0004440 0 W I 0 X ) \0 # 001 \0 \0
0004460 001 021 020 \0 @ 311 \0 X 265 \t @ 311 002 b \0 260
0004500 366 g \0 \0 360 232 g \0 \0 g \0 \0 \n \0 \0 h
0004520 020 H 020 \0 ( 3 5 Q E R R O R ) \r
0004540 ( 3 2 Q 1 S T 2 7 Q E M P
0004560 T Y 2 2 Q & E M P T Y ) \r N
0004600 I L \r T - R E S T D 1 \r ( P
0004620 0 W I 0 X ) \0 % 001 \0 \0
0004640 001 021 020 \0 @ 311 \0 X 265 \t @ 311 002 b \0 260
0004660 366 g \0 \0 360 232 g \0 \0 g \0 \0 \n \0 \0 h
0004700 020 @ 311 002 020 \0 ( 3 5 Q E R R O R
0004720 ) \r ( 3 2 Q R E S T 2 7 Q
0004740 E M P T Y 2 2 Q & E M P T Y
0004760 ) \r N I L \r T - E Q D 1 \r ( L
0005000 ( 1 Y 0 X ) ) \0 ! \0 \0
0005020 \0 002 @ d A 360 221 i 020 311 \0 246 @ 311 002 b
0005040 \0 260 370 A 311 \0 246 A 311 002 b 002 260 370 @ A
0005060 360 020 \0 N I L \r N I L \r N I L \r T
0005100 - R E P L A C E D 1 \r ( L (
0005120 1 Y 0 X ) ) \0 ( \0 \0 \0 002
0005140 @ 311 \0 246 @ 311 002 b \0 260 370 A 311 \0 246 A
0005160 311 002 b 002 260 370 @ A 360 250 @ h 024 \0 277 @
0005200 A 024 002 g \0 \0 020 \0 N I L \r ( 4 5 Q
0005220 O K ) \r N I L \r F T - 1 S T
0005240 D 1 \r ( L ( 0 X ) ) \0 016 \0
0005260 \0 \0 001 @ 311 \0 265 \t @ 311 002 b \0 260 367 020
0005300 \0 N I L \r N I L \r N I L \r F T -
0005320 R E S T D 1 \r ( L ( 0 X )
0005340 ) \0 020 \0 \0 \0 001 @ 311 \0 246 @ 311 002 b
0005360 \0 260 370 @ 311 002 020 \0 N I L \r N I L \r
0005400 N I L \r S W I T C H - P R I M I
0005420 T I V E S D 1 \r ( I 0 W H
0005440 I C H - S E T ) 001 \t \0 \0 \0 001 @
0005460 g \0 \0 360 253 @ 265 : ` \0 \0 g \0 \0 360 262
0005500 0 g \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0
0005520 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g
0005540 \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0 020 @
0005560 g \0 \0 360 253 @ 265 : ` \0 \0 g \0 \0 360 262
0005600 0 g \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0
0005620 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g
0005640 \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0 020 @
0005660 g \0 \0 360 253 @ 265 : ` \0 \0 g \0 \0 360 262
0005700 0 g \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0
0005720 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g
0005740 \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0 020 @
0005760 g \0 \0 360 253 @ 263 9 ` \0 \0 g \0 \0 360 262
0006000 0 g \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0
0006020 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g
0006040 \0 \0 027 \0 \0 g \0 \0 027 \0 \0 g \0 \0 020 o
0006060 \0 \0 \0 \t \0 \0 020 \0 ( 4 0 6 Q S H
0006100 O U L D N T ) \r ( 3 7 6 Q F -
0006120 S N A K E S 3 7 3 Q R E P L
0006140 A C E 3 7 0 Q T - R E P L A
0006160 C E 3 6 5 Q E Q 3 6 2 Q
0006200 T - E Q 3 5 7 Q E M P T Y
0006220 3 5 4 Q T - E M P T Y 3 5 1
0006240 Q R E S T 3 4 6 Q F T - R
0006260 E S T 3 4 3 Q 1 S T 3 4 0
0006300 Q F T - 1 S T 3 3 5 Q R C
0006320 O N S 0 3 3 2 Q T - R C O N
0006340 S 0 3 2 7 Q P R E P 3 2 4
0006360 Q T - P R E P 3 1 6 Q F S
0006400 - R E S T 3 1 3 Q R E S T
0006420 3 0 3 Q F - S N A K E S 2 7
0006440 6 Q F - C O N N E C T O R S
0006460 2 7 3 Q R E P L A C E 2 7 0
0006500 Q S - R E P L A C E 2 6 5 Q
0006520 E Q 2 6 2 Q S - E Q 2 5
0006540 7 Q E M P T Y 2 5 4 Q S -
0006560 E M P T Y 2 5 1 Q R E S T
0006600 2 4 6 Q F S - R E S T 2 4 3
0006620 Q 1 S T 2 4 0 Q F S - 1 S
0006640 T 2 3 5 Q R C O N S 0 2 3
0006660 2 Q S - R C O N S 0 2 2 7 Q
0006700 P R E P 2 2 4 Q S - P R E
0006720 P 2 1 6 Q F T - R E S T 2
0006740 1 3 Q R E S T 2 0 3 Q F -
0006760 C O N N E C T O R S 1 7 6 Q
0007000 C O N N E C T O R S 1 7 3 Q
0007020 R E P L A C E 1 7 0 Q S - R
0007040 E P L A C E 1 6 5 Q E Q 1
0007060 6 2 Q S - E Q 1 5 7 Q E M
0007100 P T Y 1 5 4 Q S - E M P T Y
0007120 1 5 1 Q R E S T 1 4 6 Q
0007140 S - R E S T 1 4 3 Q 1 S T
0007160 1 4 0 Q S - 1 S T 1 3 5 Q
0007200 R C O N S 0 1 3 2 Q S - R C
0007220 O N S 0 1 2 7 Q P R E P 1
0007240 2 4 Q S - P R E P 1 1 6 Q
0007260 T - P R E P 1 1 3 Q P R E P
0007300 1 0 3 Q C O N N E C T O R S
0007320 7 6 Q S N A K E S 7 3 Q
0007340 R E P L A C E 7 0 Q T - R E
0007360 P L A C E 6 5 Q E Q 6 2 Q
0007400 T - E Q 5 7 Q E M P T Y
0007420 5 4 Q T - E M P T Y 5 1 Q
0007440 R E S T 4 6 Q T - R E S T
0007460 4 3 Q 1 S T 4 0 Q T - 1 S
0007500 T 3 5 Q R C O N S 0 3 2 Q
0007520 T - R C O N S 0 2 7 Q P R
0007540 E P 2 4 Q T - P R E P 1 6
0007560 Q S - P R E P 1 3 Q P R E
0007600 P 3 S N A K E S ) \r ( 4 0 3
0007620 Q " U n r e c o g n i z e d
0007640 s e t t i n g o f W H I C H
0007660 - S E T " ) \r I O T A D 1 \r (
0007700 P 2 I P 0 R E S U L T
0007720 I 0 N ) \0 & 003 \0 \0 001 021 020
0007740 \0 j ` \0 \0 017 016 X k @ 021 002 002 I J 361
0007760 257 J H l 002 ` \0 \0 017 016 270 J k 331 272 260
0010000 356 H 020 \0 N I L \r ( 3 1 Q P R E
0010020 P 6 R C O N S 0 ) \r N I L \r
0010040 T E S T - C O P Y D 1 \r ( I
0010060 0 X ) \0 ) \0 \0 \0 001 @ k ` \0 \0
0010100 017 016 226 j ` \0 \0 017 016 020 @ k ` \0 \0 017
0010120 016 @ k ` \0 \0 017 016 \t \0 \0 l 002 ` \0 \0
0010140 017 016 020 \0 ( 3 7 Q T E S T - C O
0010160 P Y ) \r ( 4 4 Q P R E P 3 2
0010200 Q R E S T 2 3 Q 1 S T 1
0010220 3 Q R C O N S 0 4 E M P T
0010240 Y ) \r N I L \r T E S T - M E M B
0010260 E R D 1 \r ( I 1 V I 0
0010300 X ) \0 ) \0 \0 \0 002 A k ` \0 \0 017
0010320 016 221 h 020 A k ` \0 \0 017 016 @ \n \0 \0 221
0010340 i 020 @ A k ` \0 \0 017 016 b 002 277 b \0 277
0010360 260 332 \0 ( 2 4 Q E Q U A L ) \r (
0010400 3 5 Q R E S T 1 6 Q 1 S T
0010420 4 E M P T Y ) \r N I L \r T E
0010440 S T - A P P E N D D 1 \r ( I
0010460 1 Y I 0 X ) \0 % \0 \0 \0
0010500 002 @ k ` \0 \0 017 016 221 A 020 @ k ` \0 \0
0010520 017 016 @ k ` \0 \0 017 016 A \n \0 \0 l 002 `
0010540 \0 \0 017 016 020 \0 ( 3 3 Q T E S T -
0010560 A P P E N D ) \r ( 4 0 Q P R E
0010600 P 2 5 Q R E S T 1 6 Q 1
0010620 S T 4 E M P T Y ) \r N I L \r
0010640 X Z E R O D 1 \r N I L \0 \b \0
0010660 \0 \0 \0 j ` \0 \0 017 016 020 \0 N I L \r (
0010700 3 R C O N S 0 ) \r N I L \r X Z
0010720 E R O ? D 1 \r ( I 0 X )
0010740 \0 \t \0 \0 \0 001 @ k ` \0 \0 017 016 020 \0 N
0010760 I L \r ( 4 E M P T Y ) \r N I L
0011000 \r X A D D 1 D 1 \r ( I 0 X
0011020 ) \0 \r \0 \0 \0 001 g \0 \0 @ l 002 ` \0
0011040 \0 017 016 020 \0 N I L \r ( 1 0 Q P R
0011060 E P 2 X ) \r N I L \r X S U B
0011100 1 D 1 \r ( I 0 X ) \0 \t \0
0011120 \0 \0 001 @ k ` \0 \0 017 016 020 \0 N I L \r
0011140 ( 4 R E S T ) \r N I L \r X A D
0011160 D D 1 \r ( I 1 Y I 0
0011200 X ) \0 024 \0 \0 \0 002 @ \t \0 \0 221 A 020
0011220 @ \t \0 \0 A \n \0 \0 \t \0 \0 020 \0 ( 2 1
0011240 Q X A D D 1 1 6 Q X A D D
0011260 1 2 Q X S U B 1 3 X Z E
0011300 R O ? ) \r N I L \r N I L \r X M U
0011320 L T D 1 \r ( I 1 Y I 0
0011340 X ) \0 025 \0 \0 \0 002 @ \t \0 \0 221 @
0011360 020 A @ \t \0 \0 A \n \0 \0 \n \0 \0 020 \0 (
0011400 2 2 Q X A D D 1 7 Q X M U
0011420 L T 1 3 Q X S U B 1 3 X
0011440 Z E R O ? ) \r N I L \r N I L \r X
0011460 F A C T D 1 \r ( I 0 N )
0011500 \0 027 \0 \0 \0 001 @ \t \0 \0 224 @ \t \0 \0 020
0011520 @ d \t \0 \0 \t \0 \0 \n \0 \0 020 \0 ( 2 4
0011540 Q X M U L T 2 1 Q X F A C
0011560 T 1 6 Q X S U B 1 1 0 Q
0011600 X A D D 1 3 X Z E R O ? ) \r
0011620 N I L \r N I L \r T E S T - 1 D
0011640 1 \r ( P 4 I P 2 R N
0011660 P 1 R P 0 X I 0
0011700 N ) \0 6 005 \0 \0 001 021 0 002 \b \0 \0 X
0011720 @ k 021 002 004 L K 361 252 H \t \0 \0 270 L k
0011740 330 \ 260 364 023 H \t \0 \0 Y j Z I \t \0 \0
0011760 252 I \t \0 \0 271 J k 330 272 260 362 J 020 \0 (
0012000 5 3 Q X S U B 1 4 6 Q X Z
0012020 E R O ? 3 7 Q X F A C T 2
0012040 3 Q X A D D 1 5 X Z E R O
0012060 ) \r N I L \r N I L \r T E S T - 1
0012100 - T D 1 \r ( P 4 I P 2
0012120 R N P 1 R P 0 X -
0012140 T I 0 N ) \0 6 005 \0 \0 001 021
0012160 0 002 \b \0 \0 X @ k 021 002 004 L K 361 252 H
0012200 \t \0 \0 270 L k 330 \ 260 364 023 H \t \0 \0 Y
0012220 j Z I \t \0 \0 252 I \t \0 \0 271 J k 330 272
0012240 260 362 J 020 \0 ( 5 3 Q X S U B 1 -
0012260 T 4 6 Q X Z E R O ? - T 3
0012300 7 Q X F A C T - T 2 3 Q X
0012320 A D D 1 - T 5 X Z E R O - T
0012340 ) \r N I L \r N I L \r T E S T - 1
0012360 - S D 1 \r ( P 4 I P 2
0012400 R N P 1 R P 0 X -
0012420 S I 0 N ) \0 6 005 \0 \0 001 021
0012440 0 002 \b \0 \0 X @ k 021 002 004 L K 361 252 H
0012460 \t \0 \0 270 L k 330 \ 260 364 023 H \t \0 \0 Y
0012500 j Z I \t \0 \0 252 I \t \0 \0 271 J k 330 272
0012520 260 362 J 020 \0 ( 5 3 Q X S U B 1 -
0012540 S 4 6 Q X Z E R O ? - S 3
0012560 7 Q X F A C T - S 2 3 Q X
0012600 A D D 1 - S 5 X Z E R O - S
0012620 ) \r N I L \r N I L \r T E S T - 1
0012640 - T 1 D 1 \r ( P 4 I P
0012660 2 R N P 1 R P 0 X
0012700 - T I 0 N ) \0 6 005 \0 \0 001
0012720 021 0 002 \b \0 \0 X @ k 021 002 004 L K 361 252
0012740 H \t \0 \0 270 L k 330 \ 260 364 023 H \t \0 \0
0012760 Y j Z I \t \0 \0 252 I \t \0 \0 271 J k 330
0013000 272 260 362 J 020 \0 ( 5 3 Q X S U B 1
0013020 - T 4 6 Q X Z E R O ? - T
0013040 3 7 Q X F A C T - T 1 2 3 Q
0013060 X A D D 1 - T 5 X Z E R O
0013100 - T ) \r N I L \r N I L \r T E S T
0013120 - 1 - S 1 D 1 \r ( P 4 I
0013140 P 2 R N P 1 R P 0
0013160 X - S I 0 N ) \0 6 005 \0
0013200 \0 001 021 0 002 \b \0 \0 X @ k 021 002 004 L K
0013220 361 252 H \t \0 \0 270 L k 330 \ 260 364 023 H \t
0013240 \0 \0 Y j Z I \t \0 \0 252 I \t \0 \0 271 J
0013260 k 330 272 260 362 J 020 \0 ( 5 3 Q X S U
0013300 B 1 - S 4 6 Q X Z E R O ? -
0013320 S 3 7 Q X F A C T - S 1 2
0013340 3 Q X A D D 1 - S 5 X Z E
0013360 R O - S ) \r N I L \r N I L \r X A
0013400 D D - S D 1 \r ( I 1 Y I
0013420 0 X - S ) \0 024 \0 \0 \0 002 @ \t
0013440 \0 \0 221 A 020 @ \t \0 \0 A \n \0 \0 \t \0 \0
0013460 020 \0 ( 2 1 Q X A D D 1 - S 1
0013500 6 Q X A D D - S 1 2 Q X S
0013520 U B 1 - S 3 X Z E R O ? - S
0013540 ) \r N I L \r N I L \r X A D D - S
0013560 1 D 1 \r ( P 0 P I 1
0013600 Y I 0 X - S ) \0 / 001 \0 \0
0013620 002 @ 001 g \0 \0 360 221 A 020 g \0 \0 @ 001 021
0013640 001 \0 H g \0 \0 360 262 024 g \0 \0 g \0 \0 \n
0013660 \0 \0 277 h 022 A \n \0 \0 032 020 @ 002 260 367 \0
0013700 ( 4 7 Q X A D D - S 1 4 0 Q
0013720 E R R O R ) \r ( 3 5 Q S - R
0013740 E S T 3 2 Q E M P T Y 2 4
0013760 Q & E M P T Y 1 3 Q X 4
0014000 & E M P T Y ) \r N I L \r X A D
0014020 D - T D 1 \r ( I 1 Y I
0014040 0 X - T ) \0 024 \0 \0 \0 002 @ \t \0
0014060 \0 221 A 020 @ \t \0 \0 A \n \0 \0 \t \0 \0 020
0014100 \0 ( 2 1 Q X A D D 1 - T 1 6
0014120 Q X A D D - T 1 2 Q X S U
0014140 B 1 - T 3 X Z E R O ? - T )
0014160 \r N I L \r N I L \r X A D D - T 1
0014200 D 1 \r ( P 0 W I 1 Y
0014220 I 0 X - T ) \0 T 003 \0 \0 002
0014240 @ 311 \0 265 \t @ 311 002 b \0 260 367 g \0 \0 360
0014260 221 A 020 ` \0 \0 037 d g \0 \0 024 \0 277 021 020
0014300 \0 @ 311 \0 X 265 \t @ 311 002 b \0 260 366 g \0
0014320 \0 360 262 034 g \0 \0 g \0 \0 \n \0 \0 277 h 022
0014340 A \n \0 \0 021 002 002 I d J 024 002 277 020 @ 311
0014360 002 260 356 \0 ( 1 0 3 Q X A D D - T
0014400 1 7 4 Q E R R O R ) \r ( 7 1
0014420 Q R E S T 6 6 Q E M P T Y
0014440 6 0 Q & E M P T Y 3 2 Q
0014460 X 2 5 Q 004 003 C O N S C E L L
0014500 1 T Y P E # 1 6 Q & E M P T
0014520 Y ) \r N I L \r X A D D 1 - S D
0014540 1 \r ( L ( 0 X ) ) \0 \a \0 \0
0014560 \0 001 g \0 \0 @ 032 020 \0 N I L \r ( 2
0014600 X ) \r N I L \r X A D D 1 - T D
0014620 1 \r ( I 0 X ) \0 022 \0 \0 \0 001
0014640 ` \0 \0 037 d g \0 \0 024 \0 277 d @ 024 002 277
0014660 020 \0 N I L \r ( 7 X 2 004 003 C
0014700 O N S C E L L 1 T Y P E # ) \r N
0014720 I L \r X F A C T - S D 1 \r ( I
0014740 0 N ) \0 027 \0 \0 \0 001 @ \t \0 \0
0014760 224 @ \t \0 \0 020 @ d \t \0 \0 \t \0 \0 \n \0
0015000 \0 020 \0 ( 2 4 Q X M U L T - S
0015020 2 1 Q X F A C T - S 1 6 Q
0015040 X S U B 1 - S 1 0 Q X A D D
0015060 1 - S 3 X Z E R O ? - S ) \r
0015100 N I L \r N I L \r X F A C T - S 1
0015120 D 1 \r ( P 0 P I 0 N
0015140 ) \0 3 001 \0 \0 001 @ d 001 g \0 \0 360 226
0015160 277 g \0 \0 @ 032 020 d 001 021 001 \0 H g \0 \0
0015200 360 262 025 g \0 \0 g \0 \0 \n \0 \0 277 h 022 \t
0015220 \0 \0 \n \0 \0 020 @ 002 260 366 \0 ( 5 4 Q
0015240 X M U L T - S 1 5 1 Q X F A
0015260 C T - S 1 4 3 Q E R R O R )
0015300 \r ( 4 0 Q S - R E S T 3 5 Q
0015320 E M P T Y 2 7 Q & E M P T
0015340 Y 1 3 Q N 5 & E M P T Y
0015360 ) \r N I L \r X F A C T - T D 1
0015400 \r ( I 0 N ) \0 027 \0 \0 \0 001 @
0015420 \t \0 \0 224 @ \t \0 \0 020 @ d \t \0 \0 \t \0
0015440 \0 \n \0 \0 020 \0 ( 2 4 Q X M U L T
0015460 - T 2 1 Q X F A C T - T 1
0015500 6 Q X S U B 1 - T 1 0 Q X
0015520 A D D 1 - T 3 X Z E R O ? -
0015540 T ) \r N I L \r N I L \r X F A C T
0015560 - T 1 D 1 \r ( P 0 W I
0015600 0 N ) \0 S 001 \0 \0 001 @ 311 \0 265 \t
0015620 @ 311 002 b \0 260 367 g \0 \0 360 262 023 ` \0 \0
0015640 037 d g \0 \0 024 \0 277 d @ 024 002 277 020 @ 021
0015660 020 \0 @ 311 \0 X 265 \t @ 311 002 b \0 260 366 g
0015700 \0 \0 360 262 025 g \0 \0 g \0 \0 \n \0 \0 277 h
0015720 022 \t \0 \0 \n \0 \0 020 @ 311 002 260 365 \0 ( 1
0015740 1 3 Q X M U L T - T 1 1 1 0
0015760 Q X F A C T - T 1 1 0 2 Q
0016000 E R R O R ) \r ( 7 7 Q R E S T
0016020 7 4 Q E M P T Y 6 6 Q &
0016040 E M P T Y 3 1 Q N 2 4 Q
0016060 004 003 C O N S C E L L 1 T Y P E #
0016100 1 6 Q & E M P T Y ) \r N I L
0016120 \r X M U L T - S D 1 \r ( I 1
0016140 Y I 0 X - S ) \0 025 \0 \0
0016160 \0 002 @ \t \0 \0 221 @ 020 A @ \t \0 \0 A \n
0016200 \0 \0 \n \0 \0 020 \0 ( 2 2 Q X A D D
0016220 - S 1 7 Q X M U L T - S 1
0016240 3 Q X S U B 1 - S 3 X Z E
0016260 R O ? - S ) \r N I L \r N I L \r X
0016300 - M U L T - S 1 D 1 \r ( P 0
0016320 P I 1 Y I 0 X - S
0016340 ) \0 / 001 \0 \0 002 @ 001 g \0 \0 360 221 @
0016360 020 A @ 001 021 001 \0 H g \0 \0 360 262 026 g \0
0016400 \0 g \0 \0 \n \0 \0 277 h 022 A \n \0 \0 \n \0
0016420 \0 020 @ 002 260 365 \0 ( 5 0 Q X A D D
0016440 - S 1 4 5 Q X - M U L T - S
0016460 1 3 6 Q E R R O R ) \r ( 3 3
0016500 Q S - R E S T 3 0 Q E M P
0016520 T Y 2 2 Q & E M P T Y 4
0016540 & E M P T Y ) \r N I L \r X M U L
0016560 T - T D 1 \r ( I 1 Y I
0016600 0 X - T ) \0 025 \0 \0 \0 002 @ \t \0
0016620 \0 221 @ 020 A @ \t \0 \0 A \n \0 \0 \n \0 \0
0016640 020 \0 ( 2 2 Q X A D D - T 1 7
0016660 Q X M U L T - T 1 3 Q X S
0016700 U B 1 - T 3 X Z E R O ? - T
0016720 ) \r N I L \r N I L \r X M U L T -
0016740 T 1 D 1 \r ( P 0 W I 1
0016760 Y I 0 X - T ) \0 D 001 \0
0017000 \0 002 @ 311 \0 265 \t @ 311 002 b \0 260 367 g \0
0017020 \0 360 221 @ 020 A 021 020 \0 @ 311 \0 X 265 \t @
0017040 311 002 b \0 260 366 g \0 \0 360 262 026 g \0 \0 g
0017060 \0 \0 \n \0 \0 277 h 022 A \n \0 \0 \n \0 \0 020
0017100 @ 311 002 260 364 \0 ( 7 4 Q X A D D -
0017120 T 1 7 1 Q X M U L T - T 1
0017140 6 2 Q E R R O R ) \r ( 5 7 Q
0017160 R E S T 5 4 Q E M P T Y 4
0017200 6 Q & E M P T Y 1 6 Q & E
0017220 M P T Y ) \r N I L \r X S U B 1 -
0017240 S D 1 \r ( P 0 P I 0
0017260 X ) \0 032 001 \0 \0 001 @ 001 021 001 \0 H g
0017300 \0 \0 360 232 g \0 \0 g \0 \0 \n \0 \0 h 020 @
0017320 002 020 \0 ( 2 3 Q E R R O R ) \r (
0017340 2 0 Q S - R E S T 1 5 Q E
0017360 M P T Y 1 0 Q & E M P T Y )
0017400 \r N I L \r X S U B 1 - T D 1 \r
0017420 ( P 0 W I 0 X ) \0 %
0017440 001 \0 \0 001 021 020 \0 @ 311 \0 X 265 \t @ 311 002
0017460 b \0 260 366 g \0 \0 360 232 g \0 \0 g \0 \0 \n
0017500 \0 \0 h 020 @ 311 002 020 \0 ( 3 5 Q E R
0017520 R O R ) \r ( 3 2 Q R E S T 2
0017540 7 Q E M P T Y 2 2 Q & E M
0017560 P T Y ) \r N I L \r X Z E R O - S
0017600 D 1 \r N I L \0 \a \0 \0 \0 \0 g \0
0017620 \0 h 032 020 \0 N I L \r ( 2 & E M P
0017640 T Y ) \r N I L \r X Z E R O - T
0017660 D 1 \r N I L \0 022 \0 \0 \0 \0 ` \0 \0
0017700 037 d g \0 \0 024 \0 277 d h 024 002 277 020 \0 N
0017720 I L \r ( 7 & E M P T Y 2 004
0017740 003 C O N S C E L L 1 T Y P E # )
0017760 \r N I L \r X Z E R O ? - S D 1
0020000 \r ( L ( 0 X ) ) \0 \b \0 \0 \0
0020020 001 @ 001 g \0 \0 360 020 \0 N I L \r ( 4
0020040 & E M P T Y ) \r N I L \r X Z E R
0020060 O ? - T D 1 \r ( L ( 0 X )
0020100 ) \0 022 \0 \0 \0 001 @ 311 \0 265 \t @ 311 002
0020120 b \0 260 367 g \0 \0 360 020 \0 N I L \r ( 1
0020140 6 Q & E M P T Y ) \r N I L \r (
0020160 P R E T T Y C O M P R I N T S
0020200 N A K E - T E S T C O M S ) \r (
0020220 R P A Q Q S N A K E - T E S T
0020240 C O M S ( ( V A R S P R E T
0020260 T Y P R I N T Y P E M A C R O S
0020300 ) ( G L O B A L V A R S H T
0020320 R C O N S 0 P R E P 1 S T
0020340 R E S T E M P T Y E Q \r
0020360 R E P L A C E N I L ) ( F N
0020400 S D E ) ( F N S S - R C O
0020420 N S 0 S - P R E P S - E M P
0020440 T Y S - 1 S T S - R E S T
0020460 C R E A T E - H A S H S - E Q
0020500 S - R E P L A C E ) ( F N S
0020520 \r F S - 1 S T F S - R E S T
0020540 ) ( R E C O R D S C O N S C
0020560 E L L 1 ) ( F N S P R I N T
0020600 - C O N S C E L L 1 T - R C O
0020620 N S 0 T - P R E P T - E M P
0020640 T Y T - 1 S T T - R E S T
0020660 T - E Q \r T - R E P L A C E )
0020700 ( F N S F T - 1 S T F T -
0020720 R E S T ) ( F N S S W I T C
0020740 H - P R I M I T I V E S ) ( F
0020760 N S I O T A T E S T - C O P
0021000 Y T E S T - M E M B E R T E
0021020 S T - A P P E N D ) ( \r F N S
0021040 X Z E R O X Z E R O ? X A
0021060 D D 1 X S U B 1 X A D D X
0021100 M U L T X F A C T ) ( F N S
0021120 T E S T - 1 T E S T - 1 - T
0021140 T E S T - 1 - S T E S T - 1
0021160 - T 1 T E S T - 1 - S 1 ) (
0021200 F N S \r X A D D - S X A D D
0021220 - S 1 X A D D - T X A D D -
0021240 T 1 X A D D 1 - S X A D D 1
0021260 - T X F A C T - S X F A C T
0021300 - S 1 X F A C T - T X F A C
0021320 T - T 1 X M U L T - S X - M
0021340 U L T - S 1 \r X M U L T - T
0021360 X M U L T - T 1 X S U B 1 - S
0021400 X S U B 1 - T X Z E R O - S
0021420 X Z E R O - T X Z E R O ? -
0021440 S X Z E R O ? - T ) ( D E C
0021460 L A R E : D O N T E V A L @ L
0021500 O A D \r D O E V A L @ C O M P
0021520 I L E D O N T C O P Y C O M
0021540 P I L E R V A R S ( A D D V A
0021560 R S ( N L A M A D E ) ( N
0021600 L A M L ) ( L A M A ) ) ) ) )
0021620 \r ( R P A Q Q P R E T T Y P R
0021640 I N T Y P E M A C R O S N I L
0021660 ) \r ( D A T A T Y P E C O N S
0021700 C E L L 1 ( F I R S T R E S
0021720 T ) ) \r ( / D E C L A R E D A T
0021740 A T Y P E ( Q U O T E C O N
0021760 S C E L L 1 ) ( Q U O T E (
0022000 P O I N T E R P O I N T E R )
0022020 ) ) \r N I L \r
0022027