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