$ od -c -N 50000 [eris]<LispCore>SOURCES>BOOTSTRAP.DCOM!32
0000000 ( F I L E C R E A T E D " 1 4
0000020 - O c t - 8 6 0 0 : 2 9 : 5 2
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > B O O T S T
0000120 R A P . ; 2 9 ) \r " 1 - O c
0000140 t - 8 6 2 0 : 2 3 : 1 5 " r
0000160 e c o m p i l e d e x p r s :
0000200 \ D O - D E F I N E - F I L E
0000220 - I N F O i n " X e r o x
0000240 L i s p 1 - O c t - 8 6 .
0000260 . . " d a t e d \r " 1 - O
0000300 c t - 8 6 2 1 : 2 4 : 4 4 " )
0000320 \r ( F I L E C R E A T E D " 1
0000340 4 - O c t - 8 6 0 0 : 2 8 : 3
0000360 2 " { E R I S } < L I S P C O
0000400 R E > S O U R C E S > B O O T S
0000420 T R A P . ; 2 9 4 2 1 9 0 c
0000440 h a n g e s t o : ( F N S
0000460 \r \ D O - D E F I N E - F I L E
0000500 - I N F O D E F I N E - F I L
0000520 E - I N F O ) p r e v i o u s
0000540 d a t e : " 3 0 - S e p - 8
0000560 6 0 0 : 2 7 : 1 6 " \r { E R
0000600 I S } < L I S P C O R E > S O U
0000620 R C E S > B O O T S T R A P . ;
0000640 2 7 ) \r G E T P R O P D 1 \r (
0000660 L ( 1 P R O P 0 A T M )
0000700 ) \0 ) 001 \0 \0 002 @ 004 l 004 360 264 034 @
0000720 301 002 311 \0 021 001 \0 H 003 264 \b H d 002 003 241
0000740 h 020 001 A 360 223 H 002 001 020 H 002 002 X 260 352
0000760 \0 N I L \r N I L \r ( ) \r S E T A
0001000 T O M V A L D 1 \r ( I 1 Y
0001020 I 0 X ) \0 \a \0 \0 \0 002 @ A
0001040 \n \0 \0 020 \0 ( 4 S E T T O P V A
0001060 L ) \r N I L \r ( ) \r R P A Q Q
0001100 D 1 \r ( I 1 Y I 0 X )
0001120 \0 \a \0 \0 001 002 @ A \n \0 \0 020 \0 ( 4
0001140 S E T T O P V A L ) \r N I L \r
0001160 ( ) \r R P A Q D 1 \r ( I 1
0001200 R P A Q Y I 0 R P A Q X )
0001220 \0 \n \0 \0 001 002 @ A \t \0 \0 \n \0 \0 020
0001240 \0 ( 7 S E T T O P V A L 4
0001260 E V A L ) \r N I L \r ( ) \r R P A
0001300 Q ? D 1 \r ( I 1 R P A Q Y
0001320 I 0 R P A Q X ) \0 026 \0 \0
0001340 001 002 @ \t \0 \0 g \0 \0 360 h 360 265 \n @ A
0001360 \t \0 \0 \n \0 \0 020 \0 ( 2 3 Q S E T
0001400 T O P V A L 2 0 Q E V A L
0001420 3 G E T T O P V A L ) \r ( 6
0001440 N O B I N D ) \r ( ) \r M O V D
0001460 D 1 \r ( P 0 N E W F L G I
0001500 3 D O N T C O P Y I 2
0001520 C O P Y F L G I 1 T O I
0001540 0 F R O M F 1 F I L E
0001560 P K G F L G ) \0 . 001 001 \0 004 A \t
0001600 \0 \0 h 360 021 001 \0 A B 227 @ \t \0 \0 \t \0
0001620 \0 203 @ \t \0 \0 C \v \0 \0 Q 234 A \t \0 \0
0001640 227 A g \0 \0 H \v \0 \0 A 020 \0 ( 5 2 Q
0001660 M A R K A S C H A N G E D 4
0001700 1 Q E X P R P 3 3 Q P U T
0001720 D 2 7 Q G E T D 2 2 Q C
0001740 O P Y 1 7 Q V I R G I N F N
0001760 3 G E T D ) \r ( 4 6 Q F N
0002000 S ) \r ( ) \r M O V D ? D 1 \r (
0002020 I 3 D O N T C O P Y I 2
0002040 C O P Y F L G I 1 T O
0002060 I 0 F R O M F 0 F I L
0002100 E P K G F L G ) \0 - \0 001 \0 004 A
0002120 \t \0 \0 263 & A B 227 @ \t \0 \0 \t \0 \0 203
0002140 @ \t \0 \0 C \v \0 \0 P 234 A \t \0 \0 227 A
0002160 g \0 \0 i \v \0 \0 A 020 h 020 \0 ( 4 7 Q
0002200 M A R K A S C H A N G E D 3
0002220 6 Q E X P R P 3 0 Q P U T
0002240 D 2 4 Q G E T D 1 7 Q C
0002260 O P Y 1 4 Q V I R G I N F N
0002300 3 \ D E F I N E D P ) \r ( 4
0002320 3 Q F N S ) \r ( ) \r S E L E C
0002340 T Q D 1 \r ( I 0 S E L C Q
0002360 ) \0 030 \0 \0 003 001 g \0 \0 @ 001 g \0 \0
0002400 \n \0 \0 @ 002 \n \0 \0 g \0 \0 \v \0 \0 020 \0
0002420 ( 2 5 Q A P P L Y 1 7 Q S
0002440 E L E C T Q 1 1 2 Q E V A L
0002460 ) \r ( 2 2 Q S E L E C T Q 7
0002500 S E L E C T Q 2 P R O G N
0002520 ) \r ( ) \r S E L E C T Q 1 D 1
0002540 \r ( L ( 1 L 0 M ) ) \0
0002560 ! 001 \0 \0 002 021 020 \0 A X 002 b 002 241 H 020
0002600 H 001 X d 001 @ 360 252 001 003 262 356 @ H 001 034
0002620 262 350 H 002 020 \0 N I L \r N I L \r ( )
0002640 \r N C O N C 1 D 1 \r ( I 1
0002660 X I 0 L S T ) \0 \t \0 \0 \0
0002700 002 @ A h 032 \n \0 \0 020 \0 ( 6 \ N C
0002720 O N C 2 ) \r N I L \r ( ) \r P U T
0002740 P R O P D 1 \r ( P 1 X 0
0002760 P 0 X I 2 V A L I
0003000 1 P R O P I 0 A T M )
0003020 \0 Z 002 \0 \0 003 @ 265 \n l \a @ A h 032 032
0003040 207 004 l 004 360 251 l 016 @ h 032 032 \t \0 \0 277
0003060 @ 301 002 311 \0 021 021 001 H 003 265 H 242 I 265
0003100 022 @ 301 002 A B @ 301 002 311 \0 032 032 024 \0 B
0003120 020 002 A B h 032 032 031 B 020 002 003 262 345 H d
0003140 001 A 360 224 002 B 030 B 020 Y 002 002 X 260 314 \0
0003160 ( 3 0 Q E R R O R X ) \r N I L
0003200 \r ( ) \r P R O P N A M E S D 1
0003220 \r ( I 0 A T M ) \0 037 003 \0 \0
0003240 001 021 0 002 @ 301 002 311 \0 217 d 001 270 I 265 \a
0003260 H h 032 Z 201 H & 271 002 002 003 265 357 J 020 \0
0003300 N I L \r N I L \r ( ) \r A D D P R
0003320 O P D 1 \r ( P 1 X 0 P
0003340 0 X I 3 F L G I 2
0003360 N E W I 1 P R O P I 0
0003400 A T M ) \0 u 002 \0 \0 004 @ 265 \n l
0003420 \a A B h 032 032 207 004 l 004 360 251 l 016 @ h
0003440 032 032 \t \0 \0 277 @ 301 002 311 \0 021 021 001 H 003
0003460 265 ( H 242 I 265 026 @ 301 002 A B h 032 b 004
0003500 @ 301 002 311 \0 032 032 024 \0 B 020 002 A B h 032
0003520 b 004 h 032 032 031 B 020 002 003 262 335 H d 001 A
0003540 360 262 031 002 C 225 B H 002 001 032 210 H 002 001 B
0003560 h 032 \n \0 \0 b 004 030 B 020 Y 002 002 X 260 261
0003600 \0 ( 1 5 0 Q \ N C O N C 2 3
0003620 0 Q E R R O R X ) \r N I L \r (
0003640 ) \r R E M P R O P D 1 \r ( P
0003660 2 V A L P 1 X 0 P 0
0003700 X I 1 P R O P I 0
0003720 A T M ) \0 O 003 \0 \0 002 @ d 004 l 004
0003740 360 253 277 l 016 @ h 032 032 \t \0 \0 277 @ 301 002
0003760 311 \0 021 ! 002 H 003 224 H d 002 003 241 J 020 001
0004000 A 360 262 A 265 003 i 272 I 265 021 @ 301 002 H
0004020 002 002 024 \0 277 H 002 002 X 260 335 002 H 002 002 031
0004040 260 364 H Y 002 002 X 260 317 \0 ( 2 0 Q E
0004060 R R O R X ) \r N I L \r ( ) \r M E
0004100 M B D 1 \r ( L ( 1 Y 0
0004120 X ) ) \0 023 \0 \0 \0 002 A 003 241 h 020 @
0004140 A 001 360 221 A 020 A 002 b 002 260 361 \0 N I L
0004160 \r N I L \r ( ) \r C L O S E F ?
0004200 D 1 \r ( I 0 F L ) \0 016 \0 \0
0004220 \0 001 @ d 230 \t \0 \0 264 006 @ \t \0 \0 020 \0
0004240 ( 1 3 Q C L O S E F 5 O P
0004260 E N P ) \r N I L \r ( ) \r L O A D
0004300 A 0 0 0 1 D 1 \r ( N A M E E
0004320 R R O R S E T P 1 T E M
0004340 P 0 S T R E A M F 2 L
0004360 D F L G F 3 R E S E T V A
0004400 R S L S T F 4 F I L E F
0004420 5 R E S E T Y F 6 P R
0004440 I N T F L G F 7 * O L D -
0004460 I N T E R L I S P - R E A D - E
0004500 N V I R O N M E N T * F 1 0
0004520 Q P R E T T Y H E A D E R )
0004540 \0 \ 002 \a 002 \0 021 001 R ` \0 \0 034 263 !
0004560 ` \0 \0 233 R h ` \0 \0 i \f \0 \0 Y 265 016
0004600 o \0 \0 \0 R \n \0 \0 c 004 260 340 c 004 277 g
0004620 \0 \0 T g \0 \0 g \0 \0 h ` \0 \0 \r 005 \0
0004640 \0 X h 032 032 h h 032 032 S 032 c 006 277 H R
0004660 V W 016 W 020 264 003 i \r 005 \0 \0 022 c \n i
0004700 020 \0 ( 1 2 5 Q \ L O A D - S T
0004720 R E A M 7 2 Q O P E N S T R
0004740 E A M 4 1 Q E R R O R 2 6
0004760 Q F I X S P E L L ) \r ( 6 6 Q
0005000 L O A D P A R A M E T E R S
0005020 6 2 Q O L D 5 7 Q I N P U
0005040 T 5 3 Q C L O S E F ? 2 2
0005060 Q L O A D O P T I O N S 1 4
0005100 Q D W I M F L G 6 L O A D
0005120 O P T I O N S ) \r ( 3 5 Q "
0005140 u n r e c o g n i z e d l o a
0005160 d o p t i o n " ) \r L O A D
0005200 D 1 \r ( P 2 R E S E T Z P
0005220 1 R E S E T Y P 0 L I
0005240 S P X H I S T I 2 P R I N
0005260 T F L G I 1 L D F L G I
0005300 0 F I L E F 3 L I S P
0005320 X H I S T F 4 R E S E T V
0005340 A R S L S T ) \0 " 003 002 \0 003 S 021
0005360 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202
0005400 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0
0005420 ( 3 5 Q E R R O R ! 3 0 Q
0005440 R E S E T R E S T O R E 1 6 Q
0005460 L O A D A 0 0 0 1 ) \r ( 2 4 Q
0005500 E R R O R 1 3 Q I N T E R
0005520 N A L ) \r ( 1 0 Q ( L O A D
0005540 A 0 0 0 1 ) ) \r \ L O A D - S T
0005560 R E A M A 0 0 0 1 D 1 \r ( N A
0005600 M E E R R O R S E T F 0
0005620 S T R E A M F 1 L O A D A
0005640 ) \0 022 \0 002 002 \0 P Q 002 002 002 001 \n \0
0005660 \0 277 P \t \0 \0 h 032 020 \0 ( 1 5 Q R
0005700 E A D 1 0 Q S E T F I L E P
0005720 T R ) \r N I L \r ( ) \r \ L O A D
0005740 - S T R E A M D 1 \r ( P 2 5
0005760 Q * P R I N T - B A S E * P
0006000 2 4 Q * R E A D - B A S E *
0006020 P 2 3 Q * R E A D T A B L
0006040 E * P 2 2 Q * P A C K A G
0006060 E * P 2 1 Q A D R P 2
0006100 0 Q E P 1 7 Q F I L E C
0006120 R E A T E D L O C P 1 6 Q
0006140 M A Y B E W A N T F I L E M A P
0006160 P 1 5 Q L O A D A P 1
0006200 4 Q F I L E C R E A T E D L S
0006220 T P 1 3 Q T E M P 1 2
0006240 Q R O O T N A M E P 1 1 Q
0006260 F N A D R L S T P 1 0 Q
0006300 F I L E M A P P 7 F I L E
0006320 P 6 F I L E C R E A T E D
0006340 E N V P 5 P R L S T P
0006360 4 L I S P X H I S T P 3
0006400 A D D S P E L L F L G P 2
0006420 F I L E P K G F L G P 1 B
0006440 U I L D M A P F L G P 0 D
0006460 F N F L G I 4 L O A D - V
0006500 E R B O S E - S T R E A M I
0006520 3 D E F A U L T E N V I 2
0006540 P R I N T F L G I 1 L D
0006560 F L G I 0 S T R E A M F
0006600 2 6 Q F I L E P K G F L G
0006620 F 2 7 Q R E S E T V A R S L
0006640 S T F 3 0 Q L O A D E D F
0006660 I L E L S T F 3 1 Q D F N
0006700 F L G F 3 2 Q B U I L D M
0006720 A P F L G F 3 3 Q A D D S
0006740 P E L L F L G F 3 4 Q L I
0006760 S P X H I S T F 3 5 Q * C
0007000 O M M O N - L I S P - R E A D -
0007020 E N V I R O N M E N T * ) 002 273
0007040 026 \b \0 005 W 2 W 4 W , W 6 W 8 W ,
0007060 264 005 \b \0 \0 C 021 227 017 @ \t \0 \0 j 360 245
0007100 @ j \n \0 \0 277 g \0 \0 @ \t \0 \0 h 032 032
0007120 h 032 W . 032 c . @ \t \0 \0 _ 016 D 262 %
0007140 d 262 " d 004 l 004 360 262 033 D \t \0 \0 277 D
0007160 i 360 250 o \0 \0 \0 D \n \0 \0 277 O 016 D \n
0007200 \0 \0 277 A X g \0 \0 360 227 i 270 h [ Y Z
0007220 \ 200 L 262 036 g \0 \0 L 034 _ 032 265 017 g \0
0007240 \0 m 377 h 032 h L \f \0 \0 204 002 001 m 377 030
0007260 277 @ \t \0 \0 _ 026 d l 221 360 230 277 @ B \n
0007300 \0 \0 O 016 020 l ; 360 222 W : 276 I 230 @ \t
0007320 \0 \0 223 i _ 034 277 N 006 \0 \0 021 021 021 O
0007340 311 \0 O 311 002 O 311 004 O 311 004 021 004
0007360 025 O 020 262 x @ \t \0 \0 _ 032 g \0 \0 \n \0
0007400 \0 251 O 032 g \0 \0 \n \0 \0 262 a @ \t \0 \0
0007420 _ " 277 @ \t \0 \0 277 @ \t \0 \0 g \0 \0 360
0007440 262 D h O " \n \0 \0 _ 022 \t \0 \0 277 O 020
0007460 O 022 001 \n \0 \0 277 @ \t \0 \0 d l ) 360 247
0007500 d l ] 360 242 261 001 Z 277 @ \t \0 \0 277 O 022
0007520 265 003 202 261 001 A O 032 \t \0 \0 \t \0 \0 _ 032
0007540 277 261 001 024 @ O " \n \0 \0 277 @ \t \0 \0 _
0007560 032 g \0 \0 360 247 O 032 265 003 202 261 \0 203 A g
0007600 \0 \0 360 262 + O 016 O 030 002 \n \0 \0 _ 024 `
0007620 \0 \0 \n \0 \0 221 h 200 i 235 ` \0 \0 O 024 h
0007640 032 \n \0 \0 027 \0 \0 277 O 024 \t \0 \0 212 J 231
0007660 O 016 i M O 030 \f \0 \0 277 O 020 262 % O 016
0007700 O 020 001 O 030 N h O 036 \r 006 \0 \0 277 ` \0
0007720 \0 236 @ O " \n \0 \0 277 @ O 020 001 \n \0 \0
0007740 277 O 016 W 0 \n \0 \0 221 h 200 i 242 261 \0 356
0007760 g \0 \0 O 016 W 0 032 \n \0 \0 261 \0 340 003 262
0010000 Z O 032 d 001 g \0 \0 360 262 H 277 O 034 262 A
0010020 @ \t \0 \0 _ " 277 o \0 \0 \0 \t \0 \0 001 _
0010040 026 d 262 034 001 g \0 \0 360 264 025 O 026 002 001 _
0010060 026 001 251 O 016 O 026 h N \f \0 \0 205 h \t \0
0010100 \0 _ 020 277 @ O " \n \0 \0 277 h _ 034 277 O
0010120 032 \t \0 \0 _ 032 277 260 036 K 225 O 032 \t \0 \0
0010140 277 O 020 226 @ \t \0 \0 _ " 277 O 032 \t \0 \0
0010160 277 O 020 265 021 B 242 261 376 z O 032 B \n \0 \0
0010200 277 261 376 p O " @ \t \0 \0 O 032 032 032 \n \0
0010220 \0 277 260 343 001 002 @ \t \0 \0 030 277 261 376 272 d
0010240 l ( 360 245 d l [ 360 262 + 277 @ \t \0 \0 _
0010260 " 277 @ \t \0 \0 O 032 032 _ 032 277 O 022 242 261
0010300 376 x O 022 O 032 001 001 O " @ \t \0 \0 032 032
0010320 261 376 c 277 o \0 \0 \0 \t \0 \0 O 016 020 \0 (
0010340 1 2 6 6 Q E R R O R 1 2 5 1
0010360 Q G E T F I L E P T R 1 2 2
0010400 1 Q R E A D 1 2 1 2 Q G E
0010420 T F I L E P T R 1 1 6 5 Q G
0010440 E T F I L E P T R 1 1 5 4 Q
0010460 T C O N C 1 1 4 5 Q G E T F
0010500 I L E P T R 1 1 3 3 Q P R I
0010520 N T 1 1 1 3 Q L A P R D 1
0010540 1 0 3 Q G E T F I L E P T R
0010560 1 0 7 3 Q A D D S P E L L 1
0010600 0 5 7 Q E V A L 1 0 4 5 Q
0010620 S E T F I L E P T R 1 0 3 4 Q
0010640 T C O N C 1 0 2 7 Q P U T
0010660 F I L E M A P 7 7 1 Q \ L O
0010700 A D - S T R E A M A 0 0 0 1 7
0010720 5 7 Q G E T F I L E P T R 7
0010740 2 6 Q / S E T T O P V A L 7
0010760 0 3 Q M E M B 6 7 3 Q U P
0011000 D A T E F I L E M A P 6 6 3 Q
0011020 S E T F I L E P T R 6 5 0 Q
0011040 P U T F I L E M A P 6 2 4 Q
0011060 A D D F I L E 6 1 0 Q S M
0011100 A S H F I L E C O M S 5 7 7 Q
0011120 \ N C O N C 2 5 6 0 Q M E
0011140 M B 5 5 0 Q R O O T F I L E
0011160 N A M E 5 1 2 Q R E A D 5
0011200 0 5 Q S E T F I L E P T R 4
0011220 7 1 Q D E F I N E 4 6 6 Q
0011240 D R E V E R S E 4 5 0 Q R E
0011260 A D C C O D E 4 2 6 Q S K I
0011300 P S E P R C O D E S 4 2 1 Q
0011320 T C O N C 4 1 0 Q T C O N C
0011340 4 0 3 Q T C O N C 3 6 7 Q
0011360 R A T O M 3 6 2 Q R E A D
0011400 C C O D E 3 5 3 Q G E T F I
0011420 L E P T R 3 4 5 Q S Y N T A
0011440 X P 3 3 4 Q S Y N T A X P
0011460 3 2 4 Q S K I P S E P R C O D
0011500 E S 2 5 5 Q R A N D A C C E
0011520 S S P 2 3 5 Q F A S L : P R
0011540 O C E S S - F I L E 2 2 0 Q
0011560 S K I P S E P R C O D E S 2 0
0011600 5 Q L I S P X P U T 1 3 5 Q
0011620 L I S P X P R I N T 1 2 6 Q
0011640 P R I N 1 1 1 1 Q L I S P
0011660 X T E R P R I 6 6 Q F U L L
0011700 N A M E 5 0 Q I N P U T 4
0011720 0 Q S E T F I L E P T R 3 0
0011740 Q G E T F I L E P T R 2 0 Q
0011760 F I L E P K G C H A N G E S )
0012000 \r ( 1 0 0 3 Q F I L E M A P
0012020 7 4 3 Q F I L E C R E A T E D
0012040 7 1 6 Q L O A D E D F I L E
0012060 L S T 6 5 4 Q U P D A T E M
0012100 A P F L G 6 0 2 Q S Y S F I
0012120 L E S 5 7 0 Q S Y S F I L E
0012140 S 5 5 5 Q S Y S F I L E S
0012160 5 3 5 Q S Y S L O A D 5 1 7
0012200 Q S T O P 3 7 2 Q D E F I
0012220 N E Q 3 4 2 Q L E F T B R A
0012240 C K E T 3 3 1 Q L E F T P A
0012260 R E N 2 6 6 Q R E A D E R -
0012300 E N V I R O N M E N T 1 7 4 Q
0012320 S I D E 1 6 3 Q S I D E
0012340 1 4 3 Q S Y S L O A D 4 4 Q
0012360 I N P U T ) \r ( 1 2 6 3 Q
0012400 " i l l e g a l a r g u m e n
0012420 t i n d e f i n e q " 7 6
0012440 6 Q ( \ L O A D - S T R E A M
0012460 A 0 0 0 1 ) 1 2 2 Q " ; "
0012500 ) \r F I L E C R E A T E D D 1
0012520 \r ( P 1 F I L E P 0 F
0012540 I L E D A T E I 0 X F
0012560 2 L O A D - V E R B O S E - S
0012600 T R E A M F 3 F I L E C R
0012620 E A T E D L S T ) \0 R 002 002 003 001
0012640 @ 001 @ 002 001 021 002 001 S @ h 032 \n \0 \0 c
0012660 006 R 265 035 I d 262 030 004 l 004 360 264 022 I \t
0012700 \0 \0 g \0 \0 H I 032 h 032 \v \0 \0 h 020 i
0012720 360 250 o \0 \0 \0 R \n \0 \0 277 @ \t \0 \0 R
0012740 \n \0 \0 277 H R \n \0 \0 277 R \t \0 \0 277 260
0012760 305 \0 ( 1 1 5 Q L I S P X T E R
0013000 P R I 1 1 0 Q L I S P X P R
0013020 I N 1 1 0 2 Q L I S P X P R
0013040 I N 1 7 6 Q F I L E C R E A
0013060 T E D 1 7 1 Q P R I N 1 5
0013100 4 Q / P U T 4 1 Q R O O T
0013120 F I L E N A M E 1 6 Q \ N C
0013140 O N C 2 ) \r ( 4 4 Q F I L E D
0013160 A T E S ) \r ( 6 5 Q " ; "
0013200 ) \r F I L E C R E A T E D 1 D
0013220 1 \r ( P 0 F I L E I 0
0013240 X ) \0 027 001 \0 \0 001 @ 002 001 021 001 \0 H
0013260 005 \a 221 H 020 H 003 265 006 ` \0 \0 020 001 020 \0
0013300 N I L \r ( 2 2 Q P R E T T Y H
0013320 E A D E R ) \r ( ) \r P R E T T Y
0013340 C O M P R I N T D 1 \r ( I 0
0013360 X F 0 L O A D - V E R B
0013400 O S E - S T R E A M ) \0 027 \0 001
0013420 001 001 P d 262 023 i 360 250 o \0 \0 \0 P \n \0
0013440 \0 277 @ P \n \0 \0 020 \0 ( 2 4 Q L I
0013460 S P X P R I N T 1 6 Q P R I
0013500 N 1 ) \r N I L \r ( 1 2 Q " ;
0013520 " ) \r B O O T S T R A P - N A
0013540 M E F I E L D D 1 \r ( P 2
0013560 E N D P 1 P O S P 0
0013600 S T A R T I 1 S U F F I X
0013620 F L G I 0 F I L E ) \0 ]
0013640 003 \0 \0 002 k 021 ! 002 g \0 \0 @ H \v \0 \0
0013660 265 024 g \0 \0 @ H \v \0 \0 265 \n g \0 \0 @
0013700 H \v \0 \0 Y 265 6 g \0 \0 @ \n \0 \0 Y 265
0013720 031 g \0 \0 @ H \v \0 \0 Y 225 A 243 I k 331
0013740 272 @ H J \v \0 \0 020 k 331 272 @ J \n \0 \0
0013760 l . 360 262 336 J k 331 272 260 330 k 330 270 260 252
0014000 \0 ( 1 1 3 Q N T H C H A R C O
0014020 D E 1 0 2 Q S U B A T O M
0014040 6 4 Q S T R P O S 5 1 Q S
0014060 T R P O S 3 7 Q S T R P O S
0014100 2 5 Q S T R P O S 1 3 Q
0014120 S T R P O S ) \r ( 5 7 Q % .
0014140 4 5 Q ; 3 2 Q / 2 0 Q
0014160 > 6 } ) \r ( ) \r P U T P R O
0014200 P S D 1 \r ( P 0 Y I 0
0014220 X ) \0 031 001 \0 003 001 @ 217 d 021 001 \0
0014240 @ 001 H 001 H 002 001 \v \0 \0 023 002 002 003 265 356
0014260 h 020 \0 ( 1 7 Q P U T P R O P )
0014300 \r N I L \r ( ) \r D E C L A R E :
0014320 D 1 \r ( I 0 X ) \0 \a \0 \0
0014340 003 001 @ i \n \0 \0 020 \0 ( 4 D E C L
0014360 A R E : 1 ) \r N I L \r ( ) \r D E
0014400 C L A R E : 1 D 1 \r ( I 1
0014420 E V A L F L G I 0 X ) \0
0014440 Z \0 \0 \0 002 @ 003 241 h 020 @ d 001 003 262 035
0014460 277 A 262 F @ d 001 001 g \0 \0 360 227 001 002 i
0014500 \n \0 \0 260 4 001 \t \0 \0 260 . 001 d g \0 \0
0014520 360 245 d g \0 \0 360 223 277 i 260 033 d g \0 \0
0014540 360 234 277 @ 002 001 \t \0 \0 b 002 277 @ 002 211 g
0014560 \0 \0 360 223 h b 002 277 @ 002 b \0 260 252 \0 (
0014600 1 0 3 Q E V A L 4 3 Q E V
0014620 A L 3 5 Q D E C L A R E : 1
0014640 ) \r ( 1 1 4 Q D O N T E V A L
0014660 @ L O A D 7 2 Q E V A L @ L
0014700 O A D W H E N 6 0 Q D O E V
0014720 A L @ L O A D 5 2 Q E V A L
0014740 @ L O A D 2 5 Q D E C L A R
0014760 E : ) \r ( ) \r R O O T F I L E N
0015000 A M E D 1 \r ( I 1 C O M P
0015020 F L G I 0 N A M E ) \0 \t
0015040 \0 \0 \0 002 @ A h 360 \n \0 \0 020 \0 ( 6
0015060 N A M E F I E L D ) \r N I L \r (
0015100 ) \r D E F I N E - F I L E - I N
0015120 F O D 1 \r ( I 0 A R G S
0015140 F 0 F I L E C R E A T E D L
0015160 O C ) \0 017 \0 001 003 001 \b \0 \0 c \0 h
0015200 @ \n \0 \0 \t \0 \0 020 \0 ( 1 4 Q S E
0015220 T - R E A D E R - E N V I R O N
0015240 M E N T 1 1 Q \ D O - D E F
0015260 I N E - F I L E - I N F O 2
0015300 G E T F I L E P T R ) \r N I L \r
0015320 ( ) \r \ D O - D E F I N E - F I
0015340 L E - I N F O D 1 \r ( P 1 1
0015360 Q R P 1 0 Q P P 7
0015400 T A I L P 3 V A L U E P
0015420 2 B A S E P 1 R E A D
0015440 T A B L E P 0 P A C K A G
0015460 E I 1 A R G S I 0 S
0015500 T R E A M ) \0 343 \n \0 \0 002 021 p 006
0015520 A 261 \0 252 d 021 001 \a O 016 002 001 273 O 016 001
0015540 d g \0 \0 360 262 . 277 K d 003 262 030 \t \0 \0
0015560 021 001 \b O 020 303 \0 \0 222 O 020 204 O 020 \t \0
0015600 \0 022 202 \t \0 \0 265 \n o \0 \0 \0 K \n \0 \0
0015620 X 260 g d g \0 \0 360 262 036 277 K d 003 226 \t
0015640 \0 \0 006 \0 \0 202 \t \0 \0 265 \n o \0 \0 \0 K
0015660 \n \0 \0 Y 260 D g \0 \0 360 262 4 K d 003 222
0015700 \t \0 \0 021 001 \t O 022 005 001 221 h 200 i 254 k
0015720 O 022 361 247 O 022 d l $ 361 225 277 O 022 \t \0
0015740 \0 022 265 \n o \0 \0 \0 K \n \0 \0 Z 211 o \0
0015760 \0 \0 O 016 001 \n \0 \0 023 002 002 003 265 003 202 261
0016000 377 U ` \0 \0 037 H 265 005 ` \0 \0 274 d L 024
0016020 \0 277 I 265 005 ` \0 \0 275 d M 024 002 277 J 265
0016040 004 l \n 276 d N 024 004 277 d A 024 006 277 020 \0
0016060 ( 2 5 2 Q E R R O R 2 3 6 Q
0016100 E R R O R 2 2 3 Q \ I N V
0016120 A L I D . R A D I X 1 6 5 Q
0016140 E V A L 1 4 5 Q E R R O R
0016160 1 3 3 Q F I N D - R E A D T A
0016200 B L E 1 2 4 Q E V A L 1 0
0016220 2 Q E R R O R 7 0 Q F I N
0016240 D - P A C K A G E 6 3 Q F I
0016260 N D - P A C K A G E 4 2 Q E
0016300 V A L ) \r ( 3 1 2 Q F I L E R
0016320 D T B L 2 7 6 Q * I N T E R
0016340 L I S P - P A C K A G E * 2 6
0016360 7 Q 004 003 R E A D E R - E N V I
0016400 R O N M E N T T Y P E # 1 5 3
0016420 Q : B A S E 1 2 7 Q R E A
0016440 D T A B L E P 1 1 1 Q : R E
0016460 A D T A B L E 5 2 Q P A C K
0016500 A G E 2 6 Q : P A C K A G E
0016520 ) \r ( 2 4 4 Q " U n r e c o
0016540 g n i z e d f i l e i n f o
0016560 k e y " 2 3 2 Q " B a d
0016600 r e a d b a s e f o r r e
0016620 a d e r e n v i r o n m e n t
0016640 " 1 4 1 Q " C a n ' t f i
0016660 n d r e a d t a b l e f o
0016700 r r e a d e r e n v i r o n
0016720 m e n t " \r 7 6 Q " C a n '
0016740 t f i n d p a c k a g e f
0016760 o r r e a d e r e n v i r o
0017000 n m e n t " ) \r ( P R E T T Y C
0017020 O M P R I N T B O O T S T R A
0017040 P C O M S ) \r ( R P A Q Q B O
0017060 O T S T R A P C O M S ( ( F N
0017100 S G E T P R O P S E T A T O
0017120 M V A L R P A Q Q R P A Q
0017140 R P A Q ? M O V D M O V D ?
0017160 S E L E C T Q S E L E C T Q
0017200 1 N C O N C 1 \r P U T P R O
0017220 P P R O P N A M E S A D D P
0017240 R O P R E M P R O P M E M B
0017260 C L O S E F ? ) ( C O M S
0017300 ( * ; \r " N e e d t h e s
0017320 e i n o r d e r t o l o
0017340 a d e v e n c o m p i l e d
0017360 f i l e s S Y S L O A D " )
0017400 ( F N S L O A D \ L O A D
0017420 - S T R E A M F I L E C R E A
0017440 T E D \r F I L E C R E A T E D
0017460 1 P R E T T Y C O M P R I N T
0017500 B O O T S T R A P - N A M E F
0017520 I E L D P U T P R O P S D E
0017540 C L A R E : D E C L A R E : 1
0017560 R O O T F I L E N A M E \r D
0017600 E F I N E - F I L E - I N F O
0017620 \ D O - D E F I N E - F I L E -
0017640 I N F O ) ) ( I N I T V A R S
0017660 ( E O L C H A R C O D E ( C
0017700 H C O N 1 ( Q U O T E % \r )
0017720 ) ) ( P R E T T Y H E A D E R
0017740 ) ( D W I M F L G ) ( U P D
0017760 A T E M A P F L G ) ( D F N F
0020000 L G ) ( A D D S P E L L F L G
0020020 ) ( B U I L D M A P F L G )
0020040 ( F I L E P K G F L G ) ( \r S
0020060 Y S F I L E S ) ( N O T C O M
0020100 P I L E D F I L E S ) ( R E S
0020120 E T V A R S L S T ) ( L O A D
0020140 P A R A M E T E R S ( Q U O T
0020160 E ( ( S E Q U E N T I A L T
0020200 ) ) ) ) ( L I S P X H I S T )
0020220 ( \r L I S P X P R I N T F L G
0020240 T ) ( P R E T T Y H E A D E
0020260 R " F i l e c r e a t e d
0020300 " ) ( L O A D - V E R B O S E
0020320 - S T R E A M T ) ( B E L L
0020340 S ( Q U O T E " \a \a \a " ) )
0020360 ( \r L O A D O P T I O N S (
0020400 Q U O T E ( S Y S L O A D N
0020420 I L T P R O P A L L P R O
0020440 P ) ) ) ) ( A D D V A R S (
0020460 L O A D E D F I L E L S T ) )
0020500 ( G L O B A L V A R S D W I M
0020520 F L G \r U P D A T E M A P F L
0020540 G L O A D O P T I O N S L O
0020560 A D P A R A M E T E R S F I L
0020600 E R D T B L S Y S F I L E S )
0020620 ( D E C L A R E : D O N T E
0020640 V A L @ L O A D D O C O P Y
0020660 ( P ( M A P C ( \r Q U O T E
0020700 ( ( P U T D . / P U T D )
0020720 ( P U T P R O P . / P U T
0020740 P R O P ) ( P U T P R O P .
0020760 P U T ) ( P U T P R O P .
0021000 S A V E P U T ) ( A D D P R
0021020 O P . / A D D P R O P ) (
0021040 \r P U T . / P U T ) ( P R
0021060 I N 1 . L I S P X P R I N 1
0021100 ) ( P R I N 2 . L I S P X
0021120 P R I N 2 ) ( P R I N T .
0021140 L I S P X P R I N T ) ( T E R
0021160 P R I . L I S P X T E R P R
0021200 I ) ( \r S P A C E S . L I
0021220 S P X S P A C E S ) ( G E T P
0021240 R O P . G E T P ) ( S E T
0021260 . S A V E S E T ) ( N I L
0021300 L . M I S S P E L L E D ? )
0021320 ( S E T T O P V A L . / S
0021340 E T T O P V A L ) ( \r B O O T
0021360 S T R A P - N A M E F I E L D
0021400 . N A M E F I E L D ) ) ) (
0021420 F U N C T I O N ( L A M B D A
0021440 ( X ) ( O R ( C C O D E P
0021460 ( C D R X ) ) ( M O V D
0021500 ( C A R X ) ( C D R X )
0021520 \r N I L T ) ) ) ) ) ( A N D
0021540 ( C C O D E P ( Q U O T E
0021560 B O O T S T R A P - N A M E F I
0021600 E L D ) ) ( P U T D ( Q U O
0021620 T E B O O T S T R A P - N A M
0021640 E F I E L D ) ) ) ( A N D (
0021660 C C O D E P \r ( Q U O T E B
0021700 O O T S T R A P - P U T P R O P
0021720 S ) ) ( P U T D ( Q U O T E
0021740 B O O T S T R A P - P U T P R
0021760 O P S ) ) ) ( M A P C ( Q U
0022000 O T E ( ( S T R P O S ( L A
0022020 M B D A ( X Y \r S T A R T
0022040 S K I P A N C H O R T A I
0022060 L ) ( C O N D ( ( L I T A T
0022100 O M X ) ( S E T Q X ( C
0022120 D R ( V A G ( I P L U S (
0022140 L O C X ) 2 ) ) ) ) ) ( (
0022160 N U L L ( S T R I N G P X )
0022200 ) \r ( S E T Q X ( M K S T
0022220 R I N G X ) ) ) ) ( C O N D
0022240 ( ( S T R I N G P Y ) ) (
0022260 ( L I T A T O M Y ) ( S E T
0022300 Q Y ( C D R ( V A G ( I
0022320 P L U S ( L O C Y ) 2 ) )
0022340 ) ) ) ( T ( \r S E T Q Y
0022360 ( M K S T R I N G Y ) ) ) )
0022400 ( C O N D ( S K I P ( S E T
0022420 Q S K I P ( N T H C H A R
0022440 S K I P 1 ) ) ) ) ( C O N D
0022460 ( S T A R T ( C O N D ( (
0022500 M I N U S P S T A R T ) ( \r
0022520 S E T Q S T A R T ( I P L U
0022540 S S T A R T ( N C H A R S
0022560 Y ) 1 ) ) ) ) ) ( T ( S E
0022600 T Q S T A R T 1 ) ) ) ( S
0022620 E T Q Y ( S U B S T R I N G
0022640 Y S T A R T ) ) ( P R O G
0022660 ( ( N \r S T A R T ) W X
0022700 1 Y 1 ) L 2 ( S E T Q X
0022720 1 ( S U B S T R I N G X 1
0022740 ) ) ( S E T Q Y 1 ( S U B
0022760 S T R I N G Y 1 ) ) L P
0023000 ( C O N D ( ( S E T Q W (
0023020 G N C X 1 ) ) ( \r C O N D
0023040 ( ( E Q W ( G N C Y 1 ) )
0023060 ( G O L P ) ) ( ( E Q W
0023100 S K I P ) ( G O L P ) )
0023120 ( T ( G O N X ) ) ) ) ( T
0023140 A I L ( R E T U R N ( I P L
0023160 U S ( N C H A R S X ) N )
0023200 ) \r ) ( T ( R E T U R N N
0023220 ) ) ) N X ( C O N D ( A N
0023240 C H O R ( R E T U R N ) ) )
0023260 ( C O N D ( ( G N C Y ) (
0023300 S E T Q N ( A D D 1 N ) )
0023320 ( G O L 2 ) ) ( T ( R E
0023340 T U R N ) ) ) ) \r ) ) ( P A C
0023360 K F I L E N A M E ( L A M B D
0023400 A ( X ) X ) ) ( U N P A C
0023420 K F I L E N A M E ( L A M B D
0023440 A ( X ) X ) ) ( R E S E T
0023460 R E S T O R E ( L A M B D A
0023500 ( R E S E T V A R S L S T 0 \r
0023520 R E S E T S T A T E ) ( P R O
0023540 G ( R E S E T Z ) L P ( C
0023560 O N D ( ( A N D R E S E T V
0023600 A R S L S T ( N E Q R E S E
0023620 T V A R S L S T R E S E T V A
0023640 R S L S T 0 ) ) ( S E T Q R
0023660 E S E T Z \r ( C A R R E S E
0023700 T V A R S L S T ) ) ( S E T Q
0023720 R E S E T V A R S L S T ( C
0023740 D R R E S E T V A R S L S T )
0023760 ) ( C O N D ( ( L I S T P
0024000 ( C A R R E S E T Z ) ) ( A
0024020 P P L Y ( C A A R \r R E S E
0024040 T Z ) ( C D R ( C A R R E
0024060 S E T Z ) ) ) ) ) ( G O L P
0024100 ) ) ) ) ) ) ) ) ( F U N C T I
0024120 O N ( L A M B D A ( X ) (
0024140 O R ( G E T D ( C A R X )
0024160 ) ( P U T D ( C A R X )
0024200 ( \r C A D R X ) ) ) ) ) ) )
0024220 ( P ( P R I N T L E V E L 1
0024240 0 0 0 ) ( R A D I X 1 0 ) )
0024260 ) ( D E C L A R E : D O E V
0024300 A L @ C O M P I L E D O N T C
0024320 O P Y ( * ; \r " e v e n t
0024340 u a l l y i m p o r t e d f
0024360 r o m F A S L " ) ( C O N S
0024400 T A N T S F A S L : S I G N A
0024420 T U R E ) ) ( D E C L A R E :
0024440 D O N T E V A L @ L O A D D
0024460 O E V A L @ C O M P I L E \r D
0024500 O N T C O P Y C O M P I L E R
0024520 V A R S ( A D D V A R S ( N
0024540 L A M A D E F I N E - F I L E
0024560 - I N F O D E C L A R E : P
0024600 U T P R O P S F I L E C R E A
0024620 T E D S E L E C T Q ) ( N L
0024640 A M L \r P R E T T Y C O M P R
0024660 I N T R P A Q ? R P A Q R
0024700 P A Q Q ) ( L A M A ) ) ) ) )
0024720 \r ( R P A Q ? E O L C H A R C
0024740 O D E ( C H C O N 1 ( Q U O
0024760 T E % \r ) ) ) \r ( R P A Q ?
0025000 P R E T T Y H E A D E R ) \r ( R
0025020 P A Q ? D W I M F L G ) \r ( R
0025040 P A Q ? U P D A T E M A P F L
0025060 G ) \r ( R P A Q ? D F N F L G
0025100 ) \r ( R P A Q ? A D D S P E L
0025120 L F L G ) \r ( R P A Q ? B U I
0025140 L D M A P F L G ) \r ( R P A Q ?
0025160 F I L E P K G F L G ) \r ( R P
0025200 A Q ? S Y S F I L E S ) \r ( R
0025220 P A Q ? N O T C O M P I L E D
0025240 F I L E S ) \r ( R P A Q ? R E
0025260 S E T V A R S L S T ) \r ( R P A
0025300 Q ? L O A D P A R A M E T E R
0025320 S ( Q U O T E ( ( S E Q U E
0025340 N T I A L T ) ) ) ) \r ( R P A
0025360 Q ? L I S P X H I S T ) \r ( R
0025400 P A Q ? L I S P X P R I N T F
0025420 L G T ) \r ( R P A Q ? P R E
0025440 T T Y H E A D E R " F i l e
0025460 c r e a t e d " ) \r ( R P A Q
0025500 ? L O A D - V E R B O S E - S
0025520 T R E A M T ) \r ( R P A Q ?
0025540 B E L L S ( Q U O T E " \a \a
0025560 \a " ) ) \r ( R P A Q ? L O A D
0025600 O P T I O N S ( Q U O T E (
0025620 S Y S L O A D N I L T P R
0025640 O P A L L P R O P ) ) ) \r ( A
0025660 D D T O V A R L O A D E D F I
0025700 L E L S T ) \r ( M A P C ( Q U
0025720 O T E ( ( P U T D . / P U
0025740 T D ) ( P U T P R O P . /
0025760 P U T P R O P ) ( P U T P R O
0026000 P . P U T ) ( P U T P R O
0026020 P . S A V E P U T ) ( A D
0026040 D P R O P . \r / A D D P R O
0026060 P ) ( P U T . / P U T )
0026100 ( P R I N 1 . L I S P X P R
0026120 I N 1 ) ( P R I N 2 . L I
0026140 S P X P R I N 2 ) ( P R I N T
0026160 . L I S P X P R I N T ) (
0026200 T E R P R I . \r L I S P X T
0026220 E R P R I ) ( S P A C E S .
0026240 L I S P X S P A C E S ) ( G
0026260 E T P R O P . G E T P ) (
0026300 S E T . S A V E S E T ) (
0026320 N I L L . M I S S P E L L E
0026340 D ? ) ( S E T T O P V A L \r
0026360 . / S E T T O P V A L ) ( B
0026400 O O T S T R A P - N A M E F I E
0026420 L D . N A M E F I E L D ) )
0026440 ) ( F U N C T I O N ( L A M
0026460 B D A ( X ) ( O R ( C C O
0026500 D E P ( C D R X ) ) ( M O
0026520 V D ( \r C A R X ) ( C D R
0026540 X ) N I L T ) ) ) ) ) \r (
0026560 A N D ( C C O D E P ( Q U O
0026600 T E B O O T S T R A P - N A M
0026620 E F I E L D ) ) ( P U T D (
0026640 Q U O T E B O O T S T R A P -
0026660 N A M E F I E L D ) ) ) \r ( A N
0026700 D ( C C O D E P ( Q U O T E
0026720 B O O T S T R A P - P U T P R
0026740 O P S ) ) ( P U T D ( Q U O
0026760 T E B O O T S T R A P - P U T
0027000 P R O P S ) ) ) \r ( M A P C (
0027020 Q U O T E ( ( S T R P O S (
0027040 L A M B D A ( X Y S T A R
0027060 T S K I P A N C H O R T A
0027100 I L ) ( C O N D ( ( L I T A
0027120 T O M X ) ( S E T Q X (
0027140 C D R ( V A G ( I P L U S \r
0027160 ( L O C X ) 2 ) ) ) ) )
0027200 ( ( N U L L ( S T R I N G P
0027220 X ) ) ( S E T Q X ( M K S
0027240 T R I N G X ) ) ) ) ( C O N
0027260 D ( ( S T R I N G P Y ) )
0027300 ( ( L I T A T O M Y ) ( S E
0027320 T Q Y ( \r C D R ( V A G
0027340 ( I P L U S ( L O C Y ) 2
0027360 ) ) ) ) ) ( T ( S E T Q Y
0027400 ( M K S T R I N G Y ) ) ) )
0027420 ( C O N D ( S K I P ( S E
0027440 T Q S K I P ( N T H C H A R
0027460 S K I P 1 ) ) ) ) ( \r C O
0027500 N D ( S T A R T ( C O N D
0027520 ( ( M I N U S P S T A R T )
0027540 ( S E T Q S T A R T ( I P L
0027560 U S S T A R T ( N C H A R S
0027600 Y ) 1 ) ) ) ) ) ( T ( S
0027620 E T Q S T A R T 1 ) ) ) (
0027640 S E T Q \r Y ( S U B S T R I
0027660 N G Y S T A R T ) ) ( P R
0027700 O G ( ( N S T A R T ) W
0027720 X 1 Y 1 ) L 2 ( S E T Q
0027740 X 1 ( S U B S T R I N G X
0027760 1 ) ) ( S E T Q Y 1 ( S U
0030000 B S T R I N G Y 1 \r ) ) L
0030020 P ( C O N D ( ( S E T Q W
0030040 ( G N C X 1 ) ) ( C O N D
0030060 ( ( E Q W ( G N C Y 1 )
0030100 ) ( G O L P ) ) ( ( E Q
0030120 W S K I P ) ( G O L P ) )
0030140 ( T ( G O N X ) ) ) ) (
0030160 \r T A I L ( R E T U R N ( I
0030200 P L U S ( N C H A R S X )
0030220 N ) ) ) ( T ( R E T U R N
0030240 N ) ) ) N X ( C O N D ( A
0030260 N C H O R ( R E T U R N ) ) )
0030300 ( C O N D ( ( G N C Y )
0030320 ( S E T Q N \r ( A D D 1 N
0030340 ) ) ( G O L 2 ) ) ( T (
0030360 R E T U R N ) ) ) ) ) ) ( P A
0030400 C K F I L E N A M E ( L A M B
0030420 D A ( X ) X ) ) ( U N P A
0030440 C K F I L E N A M E ( L A M B
0030460 D A ( X ) X ) ) ( \r R E S
0030500 E T R E S T O R E ( L A M B D
0030520 A ( R E S E T V A R S L S T 0
0030540 R E S E T S T A T E ) ( P R
0030560 O G ( R E S E T Z ) L P (
0030600 C O N D ( ( A N D R E S E T
0030620 V A R S L S T ( N E Q \r R E
0030640 S E T V A R S L S T R E S E T
0030660 V A R S L S T 0 ) ) ( S E T Q
0030700 R E S E T Z ( C A R R E S
0030720 E T V A R S L S T ) ) ( S E T
0030740 Q R E S E T V A R S L S T (
0030760 C D R R E S E T V A R S L S T
0031000 ) ) ( \r C O N D ( ( L I S T
0031020 P ( C A R R E S E T Z ) )
0031040 ( A P P L Y ( C A A R R E S
0031060 E T Z ) ( C D R ( C A R R
0031100 E S E T Z ) ) ) ) ) ( G O L
0031120 P ) ) ) ) ) ) ) ) ( F U N C T
0031140 I O N ( L A M B D A \r ( X )
0031160 ( O R ( G E T D ( C A R
0031200 X ) ) ( P U T D ( C A R X
0031220 ) ( C A D R X ) ) ) ) ) ) \r
0031240 ( P R I N T L E V E L 1 0 0 0
0031260 ) \r ( R A D I X 1 0 ) \r ( P U
0031300 T P R O P S B O O T S T R A P
0031320 C O P Y R I G H T ( " X e r
0031340 o x C o r p o r a t i o n "
0031360 1 9 8 3 1 9 8 4 1 9 8 5 1
0031400 9 8 6 ) ) \r N I L \r
0031412