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