$ od -c -N 50000 [qv]<IDL>SOURCES>USERARITH.DCOM!16
0000000 ( F I L E C R E A T E D " 2
0000020 - A p r - 8 6 2 3 : 2 2 : 1 9
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < I D L > S O U R C
0000100 E S > U S E R A R I T H . ; 2 6
0000120 ) " 1 2 - N o v - 8 5 1 4 :
0000140 5 9 : 2 3 " \r r e c o m p i l
0000160 e d c h a n g e s : I D L A
0000200 B S I D L A N T I L O G I D
0000220 L C O S I D L L O G I D L M
0000240 I N U S I D L S Q R T i n
0000260 " I N T E R L I S P - D 2 2 -
0000300 M a r - 8 6 . . . " \r d a t
0000320 e d " 2 2 - M a r - 8 6 1 7
0000340 : 0 7 : 0 7 " ) \r ( F I L E C R
0000360 E A T E D " 2 - A p r - 8 6
0000400 2 3 : 2 1 : 3 2 " { Q V } <
0000420 I D L > S O U R C E S > U S E R
0000440 A R I T H . ; 2 6 1 8 6 4 6
0000460 c h a n g e s t o : ( F N S
0000500 I D L C O S I D L L O G \r
0000520 I D L A N T I L O G I D L A B
0000540 S I D L M I N U S I D L S Q
0000560 R T ) p r e v i o u s d a t
0000600 e : " 1 6 - F e b - 8 6 1 7
0000620 : 1 6 : 1 3 " { Q V } < I D L
0000640 > S O U R C E S > U S E R A R I
0000660 T H . ; 2 5 \r ) \r ( R P A Q Q
0000700 U S E R A R I T H F N S ( I D
0000720 L A B S I D L A N T I L O G
0000740 I D L A R C C O S I D L A R C
0000760 S I N I D L A R C T A N I D
0001000 L A R C T A N 2 I D L C O S
0001020 I D L D I F F E R E N C E \r I
0001040 D L E Q P I D L E X P T I D
0001060 L G C D I D L G R E A T E R P
0001100 I D L L E S S P I D L L O G
0001120 I D L M A X I D L M I N I
0001140 D L M I N U S I D L M I N U S
0001160 P I D L P L U S I D L Q U O
0001200 T I E N T \r I D L R A N D I
0001220 D L R E M A I N D E R I D L S
0001240 I N I D L S Q R T I D L T A
0001260 N I D L T I M E S I D L \ S
0001300 L O W D I F F E R E N C E I D
0001320 L \ S L O W P L U S 2 I D L \
0001340 S L O W Q U O T I E N T \r I D
0001360 L \ S L O W T I M E S 2 ) ) \r I
0001400 D L A B S A 0 0 0 1 A 0 0 0 2
0001420 D 1 \r ( I 0 X ) \0 \r \0 \0 \0
0001440 001 @ \t \0 \0 b \0 d 222 \t \0 \0 020 \0 ( 1
0001460 2 Q A B S . L I S P 3 C O
0001500 N V . S C A L A R ) \r N I L \r (
0001520 ) \r I D L A B S A 0 0 0 1 D 1
0001540 \r ( N A M E U E R R O R S E T
0001560 I 1 U R E S E T V A R S L
0001600 S T I 0 U E R R O R N A M
0001620 E F 0 X ) \0 \r \0 001 \0 002 g
0001640 \0 \0 o \0 \0 \0 P \v \0 \0 020 \0 ( 1 2 Q
0001660 E A P P L Y . C A L L E R ) \r
0001700 ( 2 I D L A B S A 0 0 0 1 A 0
0001720 0 0 2 ) \r ( 6 ( 0 ) ) \r I D
0001740 L A B S D 1 \r ( I 0 X F
0001760 0 R E S E T V A R S L S T )
0002000 \0 031 \0 001 \0 001 @ d 004 ` \0 \0 360 230 277
0002020 g \0 \0 P \n \0 \0 020 264 006 @ \t \0 \0 020 \0
0002040 ( 2 6 Q A B S . L I S P 1 7
0002060 Q I D L A B S A 0 0 0 1 ) \r (
0002100 1 3 Q A B S 5 004 003 A R R A
0002120 Y F R A M E T Y P E # ) \r ( ) \r
0002140 I D L A N T I L O G A 0 0 0 1 A
0002160 0 0 0 2 D 1 \r ( I 0 X )
0002200 \0 \r \0 \0 \0 001 @ \t \0 \0 b \0 d 222 \t \0
0002220 \0 020 \0 ( 1 2 Q A N T I L O G .
0002240 L I S P 3 C O N V . S C A L
0002260 A R ) \r N I L \r ( ) \r I D L A N
0002300 T I L O G A 0 0 0 1 D 1 \r ( N
0002320 A M E U E R R O R S E T I
0002340 1 U R E S E T V A R S L S T
0002360 I 0 U E R R O R N A M E F
0002400 0 X ) \0 \r \0 001 \0 002 g \0 \0 o
0002420 \0 \0 \0 P \v \0 \0 020 \0 ( 1 2 Q E A
0002440 P P L Y . C A L L E R ) \r ( 2
0002460 I D L A N T I L O G A 0 0 0 1 A
0002500 0 0 0 2 ) \r ( 6 ( 0 ) ) \r I
0002520 D L A N T I L O G D 1 \r ( I
0002540 0 X F 0 R E S E T V A R
0002560 S L S T ) \0 031 \0 001 \0 001 @ d 004 `
0002600 \0 \0 360 230 277 g \0 \0 P \n \0 \0 020 264 006 @
0002620 \t \0 \0 020 \0 ( 2 6 Q A N T I L O
0002640 G . L I S P 1 7 Q I D L A N
0002660 T I L O G A 0 0 0 1 ) \r ( 1 3 Q
0002700 A N T I L O G 5 004 003 A R R
0002720 A Y F R A M E T Y P E # ) \r ( )
0002740 \r I D L A R C C O S A 0 0 0 1 A
0002760 0 0 0 2 D 1 \r ( I 1 R A D
0003000 I A N S F L G I 0 X ) \0
0003020 020 \0 \0 \0 002 @ \t \0 \0 b \0 d 264 \a d A
0003040 \n \0 \0 020 \0 ( 1 5 Q A R C C O S
0003060 . L I S P 3 C O N V . S C A
0003100 L A R ) \r N I L \r ( ) \r I D L A
0003120 R C C O S A 0 0 0 1 D 1 \r ( N
0003140 A M E U E R R O R S E T I
0003160 1 U R E S E T V A R S L S T
0003200 I 0 U E R R O R N A M E F
0003220 0 X F 1 R A D I A N S
0003240 F L G ) \0 016 \0 002 \0 002 g \0 \0 o \0
0003260 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q E A
0003300 P P L Y . C A L L E R ) \r ( 2
0003320 I D L A R C C O S A 0 0 0 1 A 0
0003340 0 0 2 ) \r ( 6 ( 0 ) ) \r I D
0003360 L A R C C O S D 1 \r ( I 1
0003400 R A D I A N S F L G I 0 X
0003420 F 0 R E S E T V A R S L S
0003440 T ) \0 032 \0 001 \0 002 @ d 004 ` \0 \0 360
0003460 230 277 g \0 \0 P \n \0 \0 020 264 \a @ A \n \0
0003500 \0 020 \0 ( 2 7 Q A R C C O S . L
0003520 I S P 1 7 Q I D L A R C C O
0003540 S A 0 0 0 1 ) \r ( 1 3 Q A R C
0003560 C O S 5 004 003 A R R A Y F R A
0003600 M E T Y P E # ) \r ( ) \r I D L A
0003620 R C S I N A 0 0 0 1 A 0 0 0 2
0003640 D 1 \r ( I 1 R A D I A N S F
0003660 L G I 0 X ) \0 020 \0 \0 \0 002
0003700 @ \t \0 \0 b \0 d 264 \a d A \n \0 \0 020 \0
0003720 ( 1 5 Q A R C S I N . L I S P
0003740 3 C O N V . S C A L A R ) \r
0003760 N I L \r ( ) \r I D L A R C S I N
0004000 A 0 0 0 1 D 1 \r ( N A M E U
0004020 E R R O R S E T I 1 U R E
0004040 S E T V A R S L S T I 0 U
0004060 E R R O R N A M E F 0 X
0004100 F 1 R A D I A N S F L G )
0004120 \0 016 \0 002 \0 002 g \0 \0 o \0 \0 \0 P Q \f
0004140 \0 \0 020 \0 ( 1 3 Q E A P P L Y .
0004160 C A L L E R ) \r ( 2 I D L A R
0004200 C S I N A 0 0 0 1 A 0 0 0 2 ) \r
0004220 ( 6 ( 0 ) ) \r I D L A R C S
0004240 I N D 1 \r ( I 1 R A D I A
0004260 N S F L G I 0 X F 0
0004300 R E S E T V A R S L S T ) \0 032
0004320 \0 001 \0 002 @ d 004 ` \0 \0 360 230 277 g \0 \0
0004340 P \n \0 \0 020 264 \a @ A \n \0 \0 020 \0 ( 2
0004360 7 Q A R C S I N . L I S P 1
0004400 7 Q I D L A R C S I N A 0 0 0
0004420 1 ) \r ( 1 3 Q A R C S I N 5
0004440 004 003 A R R A Y F R A M E T Y P
0004460 E # ) \r ( ) \r I D L A R C T A N
0004500 A 0 0 0 1 A 0 0 0 2 D 1 \r ( I
0004520 1 R A D I A N S F L G I
0004540 0 X ) \0 020 \0 \0 \0 002 @ \t \0 \0 b
0004560 \0 d 264 \a d A \n \0 \0 020 \0 ( 1 5 Q
0004600 A R C T A N . L I S P 3 C O
0004620 N V . S C A L A R ) \r N I L \r (
0004640 ) \r I D L A R C T A N A 0 0 0 1
0004660 D 1 \r ( N A M E U E R R O R
0004700 S E T I 1 U R E S E T V A
0004720 R S L S T I 0 U E R R O R
0004740 N A M E F 0 X F 1 R
0004760 A D I A N S F L G ) \0 016 \0 002 \0
0005000 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 (
0005020 1 3 Q E A P P L Y . C A L L E
0005040 R ) \r ( 2 I D L A R C T A N A
0005060 0 0 0 1 A 0 0 0 2 ) \r ( 6 (
0005100 0 ) ) \r I D L A R C T A N D 1
0005120 \r ( I 1 R A D I A N S F L G
0005140 I 0 X F 0 R E S E T
0005160 V A R S L S T ) \0 032 \0 001 \0 002 @
0005200 d 004 ` \0 \0 360 230 277 g \0 \0 P \n \0 \0 020
0005220 264 \a @ A \n \0 \0 020 \0 ( 2 7 Q A R
0005240 C T A N . L I S P 1 7 Q I D
0005260 L A R C T A N A 0 0 0 1 ) \r ( 1
0005300 3 Q A R C T A N 5 004 003 A R
0005320 R A Y F R A M E T Y P E # ) \r (
0005340 ) \r I D L A R C T A N 2 A 0 0 0
0005360 1 A 0 0 0 2 D 1 \r ( I 2 R
0005400 A D I A N S F L G I 1 Y
0005420 I 0 X ) \0 032 \0 \0 \0 003 @ \t \0
0005440 \0 b \0 A \t \0 \0 b 002 @ 264 \v d 264 \b @
0005460 A B \v \0 \0 020 \0 ( 2 7 Q A R C T
0005500 A N 2 . L I S P 1 1 Q C O N
0005520 V . S C A L A R 3 C O N V .
0005540 S C A L A R ) \r N I L \r ( ) \r I
0005560 D L A R C T A N 2 A 0 0 0 1 D
0005600 1 \r ( N A M E U E R R O R S E
0005620 T I 1 U R E S E T V A R S
0005640 L S T I 0 U E R R O R N A
0005660 M E F 0 X F 1 Y F
0005700 2 R A D I A N S F L G ) \0
0005720 020 \0 003 \0 002 g \0 \0 o \0 \0 \0 P Q R \r
0005740 005 \0 \0 020 \0 ( 1 5 Q E A P P L Y
0005760 . C A L L E R ) \r ( 2 I D L A
0006000 R C T A N 2 A 0 0 0 1 A 0 0 0 2
0006020 ) \r ( 6 ( 0 0 ) ) \r I D L
0006040 A R C T A N 2 D 1 \r ( I 2
0006060 R A D I A N S F L G I 1 Y
0006100 I 0 X F 0 R E S E T
0006120 V A R S L S T ) \0 $ \0 001 \0 003 @
0006140 004 ` \0 \0 360 246 A 004 ` \0 \0 360 227 g \0 \0
0006160 P \n \0 \0 020 @ 264 \v A 264 \b @ A B \v \0
0006200 \0 020 \0 ( 4 1 Q A R C T A N 2 .
0006220 L I S P 2 4 Q I D L A R C T
0006240 A N 2 A 0 0 0 1 ) \r ( 2 0 Q A
0006260 R C T A N 2 1 3 Q 004 003 A R R
0006300 A Y F R A M E T Y P E # 4 004
0006320 003 A R R A Y F R A M E T Y P E #
0006340 ) \r ( ) \r I D L C O S A 0 0 0 1
0006360 A 0 0 0 2 D 1 \r ( I 1 R A
0006400 D I A N S F L G I 0 X )
0006420 \0 020 \0 \0 \0 002 @ \t \0 \0 b \0 d 264 \a d
0006440 A \n \0 \0 020 \0 ( 1 5 Q C O S . L
0006460 I S P 3 C O N V . S C A L A
0006500 R ) \r N I L \r ( ) \r I D L C O S
0006520 A 0 0 0 1 D 1 \r ( N A M E U
0006540 E R R O R S E T I 1 U R E
0006560 S E T V A R S L S T I 0 U
0006600 E R R O R N A M E F 0 X
0006620 F 1 R A D I A N S F L G )
0006640 \0 016 \0 002 \0 002 g \0 \0 o \0 \0 \0 P Q \f
0006660 \0 \0 020 \0 ( 1 3 Q E A P P L Y .
0006700 C A L L E R ) \r ( 2 I D L C O
0006720 S A 0 0 0 1 A 0 0 0 2 ) \r ( 6
0006740 ( 0 ) ) \r I D L C O S D 1 \r
0006760 ( I 1 R A D I A N S F L G
0007000 I 0 X F 0 R E S E T V
0007020 A R S L S T ) \0 032 \0 001 \0 002 @ d
0007040 004 ` \0 \0 360 230 277 g \0 \0 P \n \0 \0 020 264
0007060 \a @ A \n \0 \0 020 \0 ( 2 7 Q C O S
0007100 . L I S P 1 7 Q I D L C O S
0007120 A 0 0 0 1 ) \r ( 1 3 Q C O S
0007140 5 004 003 A R R A Y F R A M E T Y
0007160 P E # ) \r ( ) \r I D L D I F F E
0007200 R E N C E A 0 0 0 1 A 0 0 0 2 A
0007220 0 0 0 3 A 0 0 0 4 A 0 0 0 5 D
0007240 1 \r ( I 1 Y I 0 X )
0007260 \0 5 \0 \0 \0 002 @ \t \0 \0 b \0 3 020 253 @
0007300 231 g \0 \0 g \0 \0 \n \0 \0 277 A \t \0 \0 b
0007320 002 3 020 253 A 231 g \0 \0 g \0 \0 \n \0 \0 277
0007340 @ 264 \b A 264 005 @ A 325 020 \0 ( 5 0 Q
0007360 A S S E R T F A U L T 3 0 Q
0007400 C O N V . S C A L A R 2 3 Q
0007420 A S S E R T F A U L T 3 C O
0007440 N V . S C A L A R ) \r ( 4 5 Q
0007460 Y 4 2 Q S C A L A R 2 0 Q
0007500 X 1 5 Q S C A L A R ) \r (
0007520 ) \r I D L D I F F E R E N C E A
0007540 0 0 0 1 A 0 0 0 2 A 0 0 0 3 A 0
0007560 0 0 4 D 1 \r ( N A M E U E R
0007600 R O R S E T I 1 U R E S E
0007620 T V A R S L S T I 0 U E R
0007640 R O R N A M E F 0 X F
0007660 1 Y ) \0 016 \0 002 \0 002 g \0 \0 o \0
0007700 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q E A
0007720 P P L Y . C A L L E R ) \r ( 2
0007740 I D L D I F F E R E N C E A 0 0
0007760 0 1 A 0 0 0 2 A 0 0 0 3 A 0 0 0
0010000 4 A 0 0 0 5 ) \r ( 6 ( 0 0
0010020 ) ) \r I D L D I F F E R E N C E
0010040 A 0 0 0 1 A 0 0 0 2 A 0 0 0 3
0010060 D 1 \r ( N A M E U E R R O R S
0010100 E T P 3 Y P 2 X I
0010120 1 U R E S E T V A R S L S T
0010140 I 0 U E R R O R N A M E
0010160 F 4 X F 5 Y F 6
0010200 R E S E T V A R S L S T ) \0 X
0010220 004 003 \0 002 T d 021 002 001 I \t \0 \0 022 U d
0010240 021 002 001 I \t \0 \0 022 021 002 003 J 3 020 253 J
0010260 231 g \0 \0 g \0 \0 \n \0 \0 277 K 3 020 253 K
0010300 231 g \0 \0 g \0 \0 \n \0 \0 277 J 004 ` \0 \0
0010320 360 246 K 004 ` \0 \0 360 227 g \0 \0 V \n \0 \0
0010340 020 J 264 \b K 264 005 J K 325 020 \0 ( 1 1 3
0010360 Q I D L D I F F E R E N C E A
0010400 0 0 0 1 A 0 0 0 2 A 0 0 0 3 A 0
0010420 0 0 4 6 5 Q A S S E R T F A
0010440 U L T 4 5 Q A S S E R T F A
0010460 U L T 2 2 Q C O N V . S C A
0010500 L A R 1 0 Q C O N V . S C A
0010520 L A R ) \r ( 1 0 7 Q D I F F E
0010540 R E N C E 1 0 2 Q 004 003 A R R
0010560 A Y F R A M E T Y P E # 7 3 Q
0010600 004 003 A R R A Y F R A M E T Y P
0010620 E # 6 2 Q Y 5 7 Q S C A
0010640 L A R 4 2 Q X 3 7 Q S C
0010660 A L A R ) \r ( ) \r I D L D I F F
0010700 E R E N C E A 0 0 0 1 A 0 0 0 2
0010720 D 1 \r ( I 1 Y I 0 X
0010740 F 0 R E S E T V A R S L S
0010760 T ) \0 \t \0 001 \0 002 g \0 \0 P \n \0 \0
0011000 020 \0 ( 6 I D L D I F F E R E N
0011020 C E A 0 0 0 1 A 0 0 0 2 A 0 0 0
0011040 3 ) \r ( 2 I D L D I F F E R E
0011060 N C E ) \r ( ) \r I D L D I F F E
0011100 R E N C E A 0 0 0 1 D 1 \r ( N
0011120 A M E U E R R O R S E T I
0011140 1 U R E S E T V A R S L S T
0011160 I 0 U E R R O R N A M E F
0011200 0 X F 1 Y ) \0 016 \0 002
0011220 \0 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0
0011240 ( 1 3 Q E A P P L Y . C A L L
0011260 E R ) \r ( 2 I D L D I F F E R
0011300 E N C E A 0 0 0 1 A 0 0 0 2 ) \r
0011320 ( 6 ( 0 0 ) ) \r I D L D I
0011340 F F E R E N C E D 1 \r ( I 1
0011360 Y I 0 X F 0 R E S
0011400 E T V A R S L S T ) \0 \t \0 001 \0
0011420 002 g \0 \0 P \n \0 \0 020 \0 ( 6 I D L
0011440 D I F F E R E N C E A 0 0 0 1 )
0011460 \r ( 2 I D L D I F F E R E N C
0011500 E ) \r ( ) \r I D L E Q P A 0 0 0
0011520 1 A 0 0 0 2 D 1 \r ( N A M E
0011540 U E R R O R S E T I 1 U R
0011560 E S E T V A R S L S T I 0
0011600 U E R R O R N A M E F 0 X
0011620 F 1 Y ) \0 020 \0 002 \0 002 P \t
0011640 \0 \0 c \0 277 Q \t \0 \0 c 002 h 020 \0 ( 1
0011660 2 Q C O N V . S C A L A R 3
0011700 C O N V . S C A L A R ) \r N I
0011720 L \r ( ) \r I D L E Q P A 0 0 0 1
0011740 D 1 \r ( N A M E U E R R O R
0011760 S E T I 1 U R E S E T V A
0012000 R S L S T I 0 U E R R O R
0012020 N A M E F 0 R E S E T V A
0012040 R S L S T F 1 X F 2
0012060 Y ) \0 022 \0 003 \0 002 g \0 \0 P \n \0 \0
0012100 h 360 264 \a Q R \n \0 \0 020 \0 ( 1 7 Q
0012120 E Q P . L I S P 6 I D L E Q
0012140 P A 0 0 0 1 A 0 0 0 2 ) \r ( 2
0012160 U E R R O R G U A R D ) \r ( ) \r
0012200 I D L E Q P D 1 \r ( I 1 Y
0012220 I 0 X F 0 R E S E T
0012240 V A R S L S T ) \0 020 \0 001 \0 002 @
0012260 A \n \0 \0 265 \t g \0 \0 P \n \0 \0 020 \0 (
0012300 1 5 Q I D L E Q P A 0 0 0 1
0012320 4 E Q P . L I S P ) \r ( 1 1 Q
0012340 E Q P ) \r ( ) \r I D L E X P T
0012360 A 0 0 0 1 A 0 0 0 2 D 1 \r ( I
0012400 1 N I 0 A ) \0 031 \0 \0
0012420 \0 002 @ \t \0 \0 b \0 A \t \0 \0 b 002 @ 264
0012440 \n d 264 \a @ A \n \0 \0 020 \0 ( 2 6 Q
0012460 E X P T . L I S P 1 1 Q C O
0012500 N V . S C A L A R 3 C O N V
0012520 . S C A L A R ) \r N I L \r ( ) \r
0012540 I D L E X P T A 0 0 0 1 D 1 \r
0012560 ( N A M E U E R R O R S E T
0012600 I 1 U R E S E T V A R S L S
0012620 T I 0 U E R R O R N A M E
0012640 F 0 A F 1 N ) \0 016
0012660 \0 002 \0 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0
0012700 020 \0 ( 1 3 Q E A P P L Y . C A
0012720 L L E R ) \r ( 2 I D L E X P T
0012740 A 0 0 0 1 A 0 0 0 2 ) \r ( 6
0012760 ( 0 0 ) ) \r I D L E X P T D
0013000 1 \r ( I 1 N I 0 A F
0013020 0 R E S E T V A R S L S T )
0013040 \0 # \0 001 \0 002 @ 004 ` \0 \0 360 246 A 004
0013060 ` \0 \0 360 227 g \0 \0 P \n \0 \0 020 @ 264 \n
0013100 A 264 \a @ A \n \0 \0 020 \0 ( 4 0 Q E
0013120 X P T . L I S P 2 4 Q I D L
0013140 E X P T A 0 0 0 1 ) \r ( 2 0 Q
0013160 E X P T 1 3 Q 004 003 A R R A Y
0013200 F R A M E T Y P E # 4 004 003 A
0013220 R R A Y F R A M E T Y P E # ) \r
0013240 ( ) \r I D L G C D A 0 0 0 1 A 0
0013260 0 0 2 D 1 \r ( I 1 Y I
0013300 0 X ) \0 \r \0 \0 \0 002 @ 264 \n A 264
0013320 \a @ A \n \0 \0 020 \0 ( 1 2 Q G C D
0013340 . L I S P ) \r N I L \r ( ) \r I D
0013360 L G C D A 0 0 0 1 D 1 \r ( N A
0013400 M E U E R R O R S E T I 1
0013420 U R E S E T V A R S L S T I
0013440 0 U E R R O R N A M E F
0013460 0 X F 1 Y ) \0 016 \0 002 \0
0013500 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 (
0013520 1 3 Q E A P P L Y . C A L L E
0013540 R ) \r ( 2 I D L G C D A 0 0 0
0013560 1 A 0 0 0 2 ) \r ( 6 ( 0 0
0013600 ) ) \r I D L G C D D 1 \r ( I
0013620 1 Y I 0 X F 0 R E
0013640 S E T V A R S L S T ) \0 # \0 001
0013660 \0 002 @ 004 ` \0 \0 360 246 A 004 ` \0 \0 360 227
0013700 g \0 \0 P \n \0 \0 020 @ 264 \n A 264 \a @ A
0013720 \n \0 \0 020 \0 ( 4 0 Q G C D . L I
0013740 S P 2 4 Q I D L G C D A 0 0
0013760 0 1 ) \r ( 2 0 Q G C D 1 3 Q
0014000 004 003 A R R A Y F R A M E T Y P
0014020 E # 4 004 003 A R R A Y F R A M
0014040 E T Y P E # ) \r ( ) \r I D L G R
0014060 E A T E R P A 0 0 0 1 A 0 0 0 2
0014100 D 1 \r ( N A M E U E R R O R
0014120 S E T I 1 U R E S E T V A
0014140 R S L S T I 0 U E R R O R
0014160 N A M E F 0 X F 1 Y
0014200 ) \0 020 \0 002 \0 002 P \t \0 \0 c \0 277 Q
0014220 \t \0 \0 c 002 h 020 \0 ( 1 2 Q C O N
0014240 V . S C A L A R 3 C O N V .
0014260 S C A L A R ) \r N I L \r ( ) \r I
0014300 D L G R E A T E R P A 0 0 0 1
0014320 D 1 \r ( N A M E U E R R O R S
0014340 E T I 1 U R E S E T V A R
0014360 S L S T I 0 U E R R O R N
0014400 A M E F 0 X F 1 Y
0014420 F 2 R E S E T V A R S L S T
0014440 ) \0 & \0 003 \0 002 g \0 \0 R \n \0 \0 P
0014460 243 j c \0 277 Q 243 j c \0 277 P d 3 231
0014500 277 Q 3 223 P Q 361 020 P Q 362 020 \0 ( 6
0014520 I D L G R E A T E R P A 0 0 0
0014540 1 A 0 0 0 2 ) \r ( 2 U E R R O
0014560 R G U A R D ) \r ( ) \r I D L G R
0014600 E A T E R P D 1 \r ( I 1 Y
0014620 I 0 X F 0 R E S E T
0014640 V A R S L S T ) \0 \t \0 001 \0 002 g
0014660 \0 \0 P \n \0 \0 020 \0 ( 6 I D L G R
0014700 E A T E R P A 0 0 0 1 ) \r ( 2
0014720 G R E A T E R P ) \r ( ) \r I D L
0014740 L E S S P A 0 0 0 1 A 0 0 0 2
0014760 D 1 \r ( N A M E U E R R O R S
0015000 E T I 1 U R E S E T V A R
0015020 S L S T I 0 U E R R O R N
0015040 A M E F 0 X F 1 Y )
0015060 \0 020 \0 002 \0 002 P \t \0 \0 c \0 277 Q \t
0015100 \0 \0 c 002 h 020 \0 ( 1 2 Q C O N V
0015120 . S C A L A R 3 C O N V . S
0015140 C A L A R ) \r N I L \r ( ) \r I D
0015160 L L E S S P A 0 0 0 1 D 1 \r (
0015200 N A M E U E R R O R S E T I
0015220 1 U R E S E T V A R S L S T
0015240 I 0 U E R R O R N A M E
0015260 F 0 R E S E T V A R S L S T
0015300 F 1 X F 2 Y ) \0 023
0015320 \0 003 \0 002 g \0 \0 P \n \0 \0 Q 265 003 j R
0015340 265 003 j 375 363 020 \0 ( 6 I D L L E S
0015360 S P A 0 0 0 1 A 0 0 0 2 ) \r ( 2
0015400 U E R R O R G U A R D ) \r ( )
0015420 \r I D L L E S S P D 1 \r ( I
0015440 1 Y I 0 X F 0 R E
0015460 S E T V A R S L S T ) \0 \t \0 001
0015500 \0 002 g \0 \0 P \n \0 \0 020 \0 ( 6 I D
0015520 L L E S S P A 0 0 0 1 ) \r ( 2
0015540 L E S S P ) \r ( ) \r I D L L O G
0015560 A 0 0 0 1 A 0 0 0 2 D 1 \r ( I
0015600 0 X ) \0 \r \0 \0 \0 001 @ \t \0 \0
0015620 b \0 d 222 \t \0 \0 020 \0 ( 1 2 Q L O
0015640 G . L I S P 3 C O N V . S C
0015660 A L A R ) \r N I L \r ( ) \r I D L
0015700 L O G A 0 0 0 1 D 1 \r ( N A M
0015720 E U E R R O R S E T I 1
0015740 U R E S E T V A R S L S T I
0015760 0 U E R R O R N A M E F 0
0016000 X ) \0 \r \0 001 \0 002 g \0 \0 o \0 \0
0016020 \0 P \v \0 \0 020 \0 ( 1 2 Q E A P P
0016040 L Y . C A L L E R ) \r ( 2 I D
0016060 L L O G A 0 0 0 1 A 0 0 0 2 ) \r
0016100 ( 6 ( 0 ) ) \r I D L L O G
0016120 D 1 \r ( I 0 X F 0 R E
0016140 S E T V A R S L S T ) \0 031 \0 001
0016160 \0 001 @ d 004 ` \0 \0 360 230 277 g \0 \0 P \n
0016200 \0 \0 020 264 006 @ \t \0 \0 020 \0 ( 2 6 Q
0016220 L O G . L I S P 1 7 Q I D L
0016240 L O G A 0 0 0 1 ) \r ( 1 3 Q L
0016260 O G 5 004 003 A R R A Y F R A M
0016300 E T Y P E # ) \r ( ) \r I D L M A
0016320 X A 0 0 0 1 A 0 0 0 2 D 1 \r (
0016340 P 4 M A X P 3 V P
0016360 2 I P 0 N A R G S ) \0
0016400 ( 005 \0 002 \0 e 021 001 \0 H k 021 " 004 J d
0016420 I 363 221 L 020 a \t \0 \0 [ 232 L 225 K d L
0016440 363 241 201 K \ 277 J k 324 Z 260 345 \0 ( 2 3
0016460 Q C O N V . S C A L A R ) \r N
0016500 I L \r ( ) \r I D L M A X A 0 0 0
0016520 1 D 1 \r ( N A M E U E R R O
0016540 R S E T P 4 I I 1 U
0016560 R E S E T V A R S L S T I 0
0016600 U E R R O R N A M E F 5
0016620 N A R G S ) \0 < 005 001 \0 002 U j 361
0016640 264 7 g \0 \0 g \0 \0 o \0 \0 \0 U 021 A 004
0016660 k \ H 363 263 034 g \0 \0 L \n \0 \0 273 J 265
0016700 \f K h 032 Z 271 L k 324 260 350 K & 272 260 370
0016720 I 022 032 032 \n \0 \0 020 \0 ( 7 1 Q A P
0016740 P L Y 3 7 Q A R G ) \r ( 3 3
0016760 Q N A R G S 1 2 Q I D L M
0017000 A X A 0 0 0 1 A 0 0 0 2 7 E
0017020 A P P L Y . C A L L E R ) \r (
0017040 1 6 Q ( 0 . . . ) ) \r I D L
0017060 M A X D 1 \r ( P 0 N A R G
0017100 S F 3 R E S E T V A R S L
0017120 S T ) \0 = 003 001 002 \0 e 021 001 \0 H l
0017140 002 360 262 , H k 021 002 002 J d I 363 232 277 i
0017160 022 262 035 @ A \n \0 \0 020 a 264 366 J d a 004
0017200 ` \0 \0 360 223 277 h 260 351 k 324 Z 260 336 g \0
0017220 \0 S \n \0 \0 020 \0 ( 7 2 Q I D L M
0017240 A X A 0 0 0 1 3 5 Q M A X .
0017260 L I S P ) \r ( 6 6 Q M A X 5
0017300 0 Q 004 003 A R R A Y F R A M E T
0017320 Y P E # ) \r ( ) \r I D L M I N A
0017340 0 0 0 1 A 0 0 0 2 D 1 \r ( P
0017360 4 M I N P 3 V P 2
0017400 I P 0 N A R G S ) \0 $ 005
0017420 \0 002 \0 e 021 001 \0 H 021 1 004 k Z d I 363
0017440 221 L 020 a \t \0 \0 [ 227 L 223 L K 363 221 K
0017460 274 J k 324 260 350 \0 ( 2 3 Q C O N V
0017500 . S C A L A R ) \r N I L \r ( ) \r
0017520 I D L M I N A 0 0 0 1 D 1 \r (
0017540 N A M E U E R R O R S E T P
0017560 4 I I 1 U R E S E T V
0017600 A R S L S T I 0 U E R R O
0017620 R N A M E F 5 N A R G S )
0017640 \0 < 005 001 \0 002 U j 361 264 7 g \0 \0 g
0017660 \0 \0 o \0 \0 \0 U 021 A 004 k \ H 363 263 034
0017700 g \0 \0 L \n \0 \0 273 J 265 \f K h 032 Z 271
0017720 L k 324 260 350 K & 272 260 370 I 022 032 032 \n \0
0017740 \0 020 \0 ( 7 1 Q A P P L Y 3 7
0017760 Q A R G ) \r ( 3 3 Q N A R G
0020000 S 1 2 Q I D L M I N A 0 0 0
0020020 1 A 0 0 0 2 7 E A P P L Y .
0020040 C A L L E R ) \r ( 1 6 Q ( 0
0020060 . . . ) ) \r I D L M I N D 1
0020100 \r ( P 0 N A R G S F 3
0020120 R E S E T V A R S L S T ) \0 =
0020140 003 001 002 \0 e 021 001 \0 H l 002 360 262 , H k
0020160 021 002 002 J d I 363 232 277 i 022 262 035 @ A \n
0020200 \0 \0 020 a 264 366 J d a 004 ` \0 \0 360 223 277
0020220 h 260 351 k 324 Z 260 336 g \0 \0 S \n \0 \0 020
0020240 \0 ( 7 2 Q I D L M I N A 0 0 0
0020260 1 3 5 Q M I N . L I S P ) \r
0020300 ( 6 6 Q M I N 5 0 Q 004 003 A
0020320 R R A Y F R A M E T Y P E # ) \r
0020340 ( ) \r I D L M I N U S A 0 0 0 1
0020360 A 0 0 0 2 D 1 \r ( I 0 X )
0020400 \0 \r \0 \0 \0 001 @ \t \0 \0 b \0 d 222 \t
0020420 \0 \0 020 \0 ( 1 2 Q M I N U S . L
0020440 I S P 3 C O N V . S C A L A
0020460 R ) \r N I L \r ( ) \r I D L M I N
0020500 U S A 0 0 0 1 D 1 \r ( N A M E
0020520 U E R R O R S E T I 1 U
0020540 R E S E T V A R S L S T I 0
0020560 U E R R O R N A M E F 0
0020600 X ) \0 \r \0 001 \0 002 g \0 \0 o \0 \0 \0
0020620 P \v \0 \0 020 \0 ( 1 2 Q E A P P L
0020640 Y . C A L L E R ) \r ( 2 I D L
0020660 M I N U S A 0 0 0 1 A 0 0 0 2 )
0020700 \r ( 6 ( 0 ) ) \r I D L M I N
0020720 U S D 1 \r ( I 0 X F 0
0020740 R E S E T V A R S L S T ) \0
0020760 031 \0 001 \0 001 @ d 004 ` \0 \0 360 230 277 g \0
0021000 \0 P \n \0 \0 020 264 006 @ \t \0 \0 020 \0 ( 2
0021020 6 Q M I N U S . L I S P 1 7
0021040 Q I D L M I N U S A 0 0 0 1 )
0021060 \r ( 1 3 Q M I N U S 5 004 003
0021100 A R R A Y F R A M E T Y P E # )
0021120 \r ( ) \r I D L M I N U S P A 0 0
0021140 0 1 A 0 0 0 2 D 1 \r ( N A M E
0021160 U E R R O R S E T I 1 U
0021200 R E S E T V A R S L S T I 0
0021220 U E R R O R N A M E F 0
0021240 X ) \0 \t \0 001 \0 002 P \t \0 \0 c \0 h
0021260 020 \0 ( 3 C O N V . S C A L A R
0021300 ) \r N I L \r ( ) \r I D L M I N U
0021320 S P A 0 0 0 1 D 1 \r ( N A M E
0021340 U E R R O R S E T I 1 U
0021360 R E S E T V A R S L S T I 0
0021400 U E R R O R N A M E F 0
0021420 X F 1 R E S E T V A R S L
0021440 S T ) \0 017 \0 002 \0 002 g \0 \0 Q \n \0
0021460 \0 P 264 005 j P 363 020 \0 ( 6 I D L M
0021500 I N U S P A 0 0 0 1 A 0 0 0 2 )
0021520 \r ( 2 U E R R O R G U A R D )
0021540 \r ( ) \r I D L M I N U S P D 1
0021560 \r ( I 0 X F 0 R E S E
0021600 T V A R S L S T ) \0 \t \0 001 \0 001
0021620 g \0 \0 P \n \0 \0 020 \0 ( 6 I D L M
0021640 I N U S P A 0 0 0 1 ) \r ( 2 M
0021660 I N U S P ) \r ( ) \r I D L P L U
0021700 S A 0 0 0 1 A 0 0 0 2 D 1 \r (
0021720 P 4 V P 3 I P 2
0021740 S U M P 0 N A R G S ) \0
0021760 " 005 \0 002 \0 e 021 001 \0 H j 021 " 004 k [
0022000 d I 363 221 J 020 a \t \0 \0 \ 264 372 J L 324
0022020 272 K k 324 260 353 \0 ( 2 4 Q C O N V
0022040 . S C A L A R ) \r N I L \r ( ) \r
0022060 I D L P L U S A 0 0 0 1 D 1 \r
0022100 ( N A M E U E R R O R S E T
0022120 P 4 I I 1 U R E S E T
0022140 V A R S L S T I 0 U E R R
0022160 O R N A M E F 5 N A R G S
0022200 ) \0 7 005 001 \0 002 g \0 \0 g \0 \0 o \0
0022220 \0 \0 U 021 A 004 k \ H 363 263 034 g \0 \0 L
0022240 \n \0 \0 273 J 265 \f K h 032 Z 271 L k 324 260
0022260 350 K & 272 260 370 I 022 032 032 \n \0 \0 020 \0 (
0022300 6 4 Q A P P L Y 3 2 Q A R
0022320 G ) \r ( 2 6 Q N A R G S 5
0022340 I D L P L U S A 0 0 0 1 A 0 0 0
0022360 2 2 E A P P L Y . C A L L E
0022400 R ) \r ( 1 1 Q ( 0 . . . )
0022420 ) \r I D L P L U S D 1 \r ( P
0022440 0 N A R G S F 3 R E S E
0022460 T V A R S L S T ) \0 ; 003 001 002 \0
0022500 e 021 001 \0 H l 002 360 262 * H k 021 002 002 J
0022520 d I 363 230 277 i 022 262 033 @ A 324 020 a 264 370
0022540 J d a 004 ` \0 \0 360 223 277 h 260 353 k 324 Z
0022560 260 340 g \0 \0 S \n \0 \0 020 \0 ( 7 0 Q
0022600 I D L P L U S A 0 0 0 1 ) \r ( 6
0022620 4 Q P L U S 4 6 Q 004 003 A R
0022640 R A Y F R A M E T Y P E # ) \r (
0022660 ) \r I D L Q U O T I E N T A 0 0
0022700 0 1 A 0 0 0 2 D 1 \r ( I 1
0022720 Y I 0 X ) \0 027 \0 \0 \0 002 @
0022740 \t \0 \0 b \0 A \t \0 \0 b 002 @ 264 \b d 264
0022760 005 @ A 353 020 \0 ( 1 1 Q C O N V .
0023000 S C A L A R 3 C O N V . S C
0023020 A L A R ) \r N I L \r ( ) \r I D L
0023040 Q U O T I E N T A 0 0 0 1 D 1
0023060 \r ( N A M E U E R R O R S E T
0023100 I 1 U R E S E T V A R S L
0023120 S T I 0 U E R R O R N A M
0023140 E F 0 X F 1 Y ) \0
0023160 016 \0 002 \0 002 g \0 \0 o \0 \0 \0 P Q \f \0
0023200 \0 020 \0 ( 1 3 Q E A P P L Y . C
0023220 A L L E R ) \r ( 2 I D L Q U O
0023240 T I E N T A 0 0 0 1 A 0 0 0 2 )
0023260 \r ( 6 ( 0 0 ) ) \r I D L Q
0023300 U O T I E N T D 1 \r ( I 1
0023320 Y I 0 X F 0 R E S E
0023340 T V A R S L S T ) \0 ! \0 001 \0 002
0023360 @ 004 ` \0 \0 360 246 A 004 ` \0 \0 360 227 g \0
0023400 \0 P \n \0 \0 020 @ 264 \b A 264 005 @ A 327 020
0023420 \0 ( 2 4 Q I D L Q U O T I E N
0023440 T A 0 0 0 1 ) \r ( 2 0 Q Q U O
0023460 T I E N T 1 3 Q 004 003 A R R A
0023500 Y F R A M E T Y P E # 4 004 003
0023520 A R R A Y F R A M E T Y P E # )
0023540 \r ( ) \r I D L R A N D A 0 0 0 1
0023560 A 0 0 0 2 D 1 \r ( I 1 U P
0023600 P E R I 0 L O W E R ) \0
0023620 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 R
0023640 A N D . L I S P ) \r N I L \r ( )
0023660 \r I D L R A N D A 0 0 0 1 D 1
0023700 \r ( N A M E U E R R O R S E T
0023720 I 1 U R E S E T V A R S L
0023740 S T I 0 U E R R O R N A M
0023760 E F 0 L O W E R F 1
0024000 U P P E R ) \0 016 \0 002 \0 002 g \0 \0
0024020 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q
0024040 E A P P L Y . C A L L E R ) \r (
0024060 2 I D L R A N D A 0 0 0 1 A 0
0024100 0 0 2 ) \r ( 6 ( 0 0 ) ) \r
0024120 I D L R A N D D 1 \r ( I 1
0024140 U P P E R I 0 L O W E R
0024160 F 0 R E S E T V A R S L S T
0024200 ) \0 035 \0 001 \0 002 @ 004 ` \0 \0 360 246 A
0024220 004 ` \0 \0 360 227 g \0 \0 P \n \0 \0 020 @ A
0024240 \n \0 \0 020 \0 ( 3 2 Q R A N D . L
0024260 I S P 2 4 Q I D L R A N D A
0024300 0 0 0 1 ) \r ( 2 0 Q R A N D
0024320 1 3 Q 004 003 A R R A Y F R A M E
0024340 T Y P E # 4 004 003 A R R A Y F
0024360 R A M E T Y P E # ) \r ( ) \r I D
0024400 L R E M A I N D E R A 0 0 0 1 A
0024420 0 0 0 2 D 1 \r ( I 1 Y I
0024440 0 X ) \0 031 \0 \0 \0 002 @ \t \0 \0
0024460 b \0 A \t \0 \0 b 002 @ 264 \n d 264 \a @ A
0024500 \n \0 \0 020 \0 ( 2 6 Q R E M A I N
0024520 D E R . L I S P 1 1 Q C O N
0024540 V . S C A L A R 3 C O N V .
0024560 S C A L A R ) \r N I L \r ( ) \r I
0024600 D L R E M A I N D E R A 0 0 0 1
0024620 D 1 \r ( N A M E U E R R O R
0024640 S E T I 1 U R E S E T V A
0024660 R S L S T I 0 U E R R O R
0024700 N A M E F 0 X F 1 Y
0024720 ) \0 016 \0 002 \0 002 g \0 \0 o \0 \0 \0 P
0024740 Q \f \0 \0 020 \0 ( 1 3 Q E A P P L
0024760 Y . C A L L E R ) \r ( 2 I D L
0025000 R E M A I N D E R A 0 0 0 1 A 0
0025020 0 0 2 ) \r ( 6 ( 0 0 ) ) \r
0025040 I D L R E M A I N D E R D 1 \r
0025060 ( I 1 Y I 0 X F 0
0025100 R E S E T V A R S L S T ) \0
0025120 # \0 001 \0 002 @ 004 ` \0 \0 360 246 A 004 ` \0
0025140 \0 360 227 g \0 \0 P \n \0 \0 020 @ 264 \n A 264
0025160 \a @ A \n \0 \0 020 \0 ( 4 0 Q R E M
0025200 A I N D E R . L I S P 2 4 Q
0025220 I D L R E M A I N D E R A 0 0 0
0025240 1 ) \r ( 2 0 Q R E M A I N D E
0025260 R 1 3 Q 004 003 A R R A Y F R A
0025300 M E T Y P E # 4 004 003 A R R A
0025320 Y F R A M E T Y P E # ) \r ( ) \r
0025340 I D L S I N A 0 0 0 1 A 0 0 0 2
0025360 D 1 \r ( I 1 R A D I A N S
0025400 F L G I 0 X ) \0 020 \0 \0 \0
0025420 002 @ \t \0 \0 b \0 d 264 \a d A \n \0 \0 020
0025440 \0 ( 1 5 Q S I N . L I S P 3
0025460 C O N V . S C A L A R ) \r N I
0025500 L \r ( ) \r I D L S I N A 0 0 0 1
0025520 D 1 \r ( N A M E U E R R O R
0025540 S E T I 1 U R E S E T V A
0025560 R S L S T I 0 U E R R O R
0025600 N A M E F 0 X F 1 R
0025620 A D I A N S F L G ) \0 016 \0 002 \0
0025640 002 g \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 (
0025660 1 3 Q E A P P L Y . C A L L E
0025700 R ) \r ( 2 I D L S I N A 0 0 0
0025720 1 A 0 0 0 2 ) \r ( 6 ( 0 ) )
0025740 \r I D L S I N D 1 \r ( I 1
0025760 R A D I A N S F L G I 0 X
0026000 F 0 R E S E T V A R S L S
0026020 T ) \0 032 \0 001 \0 002 @ d 004 ` \0 \0 360
0026040 230 277 g \0 \0 P \n \0 \0 020 264 \a @ A \n \0
0026060 \0 020 \0 ( 2 7 Q S I N . L I S P
0026100 1 7 Q I D L S I N A 0 0 0 1
0026120 ) \r ( 1 3 Q S I N 5 004 003 A
0026140 R R A Y F R A M E T Y P E # ) \r
0026160 ( ) \r I D L S Q R T A 0 0 0 1 A
0026200 0 0 0 2 D 1 \r ( I 0 X )
0026220 \0 \r \0 \0 \0 001 @ \t \0 \0 b \0 d 222 \t \0
0026240 \0 020 \0 ( 1 2 Q S Q R T . L I S
0026260 P 3 C O N V . S C A L A R )
0026300 \r N I L \r ( ) \r I D L S Q R T A
0026320 0 0 0 1 D 1 \r ( N A M E U E
0026340 R R O R S E T I 1 U R E S
0026360 E T V A R S L S T I 0 U E
0026400 R R O R N A M E F 0 X )
0026420 \0 \r \0 001 \0 002 g \0 \0 o \0 \0 \0 P \v \0
0026440 \0 020 \0 ( 1 2 Q E A P P L Y . C
0026460 A L L E R ) \r ( 2 I D L S Q R
0026500 T A 0 0 0 1 A 0 0 0 2 ) \r ( 6
0026520 ( 0 ) ) \r I D L S Q R T D 1
0026540 \r ( I 0 X F 0 R E S E
0026560 T V A R S L S T ) \0 031 \0 001 \0 001
0026600 @ d 004 ` \0 \0 360 230 277 g \0 \0 P \n \0 \0
0026620 020 264 006 @ \t \0 \0 020 \0 ( 2 6 Q S Q
0026640 R T . L I S P 1 7 Q I D L S
0026660 Q R T A 0 0 0 1 ) \r ( 1 3 Q S
0026700 Q R T 5 004 003 A R R A Y F R A
0026720 M E T Y P E # ) \r ( ) \r I D L T
0026740 A N A 0 0 0 1 A 0 0 0 2 D 1 \r
0026760 ( I 1 R A D I A N S F L G
0027000 I 0 X ) \0 020 \0 \0 \0 002 @ \t \0
0027020 \0 b \0 d 264 \a d A \n \0 \0 020 \0 ( 1 5
0027040 Q T A N . L I S P 3 C O N
0027060 V . S C A L A R ) \r N I L \r ( )
0027100 \r I D L T A N A 0 0 0 1 D 1 \r
0027120 ( N A M E U E R R O R S E T
0027140 I 1 U R E S E T V A R S L S
0027160 T I 0 U E R R O R N A M E
0027200 F 0 X F 1 R A D I A
0027220 N S F L G ) \0 016 \0 002 \0 002 g \0 \0
0027240 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q
0027260 E A P P L Y . C A L L E R ) \r (
0027300 2 I D L T A N A 0 0 0 1 A 0 0
0027320 0 2 ) \r ( 6 ( 0 ) ) \r I D L
0027340 T A N D 1 \r ( I 1 R A D I
0027360 A N S F L G I 0 X F 0
0027400 R E S E T V A R S L S T ) \0
0027420 032 \0 001 \0 002 @ d 004 ` \0 \0 360 230 277 g \0
0027440 \0 P \n \0 \0 020 264 \a @ A \n \0 \0 020 \0 (
0027460 2 7 Q T A N . L I S P 1 7 Q
0027500 I D L T A N A 0 0 0 1 ) \r ( 1
0027520 3 Q T A N 5 004 003 A R R A Y
0027540 F R A M E T Y P E # ) \r ( ) \r I
0027560 D L T I M E S A 0 0 0 1 A 0 0 0
0027600 2 D 1 \r ( P 4 V P 3
0027620 I P 2 P R O D P 0 N
0027640 A R G S ) \0 " 005 \0 002 \0 e 021 001 \0
0027660 H k 021 " 004 k [ d I 363 221 J 020 a \t \0
0027700 \0 \ 264 372 J L 326 272 K k 324 260 353 \0 ( 2
0027720 4 Q C O N V . S C A L A R ) \r
0027740 N I L \r ( ) \r I D L T I M E S A
0027760 0 0 0 1 D 1 \r ( N A M E U E
0030000 R R O R S E T P 4 I I
0030020 1 U R E S E T V A R S L S T
0030040 I 0 U E R R O R N A M E F
0030060 5 N A R G S ) \0 7 005 001 \0 002
0030100 g \0 \0 g \0 \0 o \0 \0 \0 U 021 A 004 k \
0030120 H 363 263 034 g \0 \0 L \n \0 \0 273 J 265 \f K
0030140 h 032 Z 271 L k 324 260 350 K & 272 260 370 I 022
0030160 032 032 \n \0 \0 020 \0 ( 6 4 Q A P P L
0030200 Y 3 2 Q A R G ) \r ( 2 6 Q
0030220 N A R G S 5 I D L T I M E S
0030240 A 0 0 0 1 A 0 0 0 2 2 E A P
0030260 P L Y . C A L L E R ) \r ( 1 1
0030300 Q ( 0 . . . ) ) \r I D L T I
0030320 M E S D 1 \r ( P 0 N A R G
0030340 S F 3 R E S E T V A R S L
0030360 S T ) \0 ; 003 001 002 \0 e 021 001 \0 H l
0030400 002 360 262 * H k 021 002 002 J d I 363 230 277 i
0030420 022 262 033 @ A 326 020 a 264 370 J d a 004 ` \0
0030440 \0 360 223 277 h 260 353 k 324 Z 260 340 g \0 \0 S
0030460 \n \0 \0 020 \0 ( 7 0 Q I D L T I M
0030500 E S A 0 0 0 1 ) \r ( 6 4 Q T I
0030520 M E S 4 6 Q 004 003 A R R A Y F
0030540 R A M E T Y P E # ) \r ( ) \r I D
0030560 L \ S L O W D I F F E R E N C E
0030600 A 0 0 0 1 A 0 0 0 2 D 1 \r ( I
0030620 1 Y Y I 0 X X ) \0 025
0030640 \0 \0 \0 002 @ \t \0 \0 b \0 264 \r A \t \0 \0
0030660 b 002 264 005 @ A 325 020 \0 ( 1 3 Q C O
0030700 N V . S C A L A R 3 C O N V
0030720 . S C A L A R ) \r N I L \r ( ) \r
0030740 I D L \ S L O W D I F F E R E N
0030760 C E A 0 0 0 1 D 1 \r ( N A M E
0031000 U E R R O R S E T I 1 U
0031020 R E S E T V A R S L S T I 0
0031040 U E R R O R N A M E F 0
0031060 X F 1 Y ) \0 016 \0 002 \0 002 g
0031100 \0 \0 o \0 \0 \0 P Q \f \0 \0 020 \0 ( 1 3
0031120 Q E A P P L Y . C A L L E R )
0031140 \r ( 2 I D L \ S L O W D I F F
0031160 E R E N C E A 0 0 0 1 A 0 0 0 2
0031200 ) \r ( 6 ( 0 0 ) ) \r I D L
0031220 \ S L O W D I F F E R E N C E
0031240 D 1 \r ( I 1 Y I 0 X
0031260 F 0 R E S E T V A R S L S T
0031300 ) \0 # \0 001 \0 002 @ 004 ` \0 \0 360 246 A
0031320 004 ` \0 \0 360 227 g \0 \0 P \n \0 \0 020 @ 264
0031340 \n A 264 \a @ A \n \0 \0 020 \0 ( 4 0 Q
0031360 \ S L O W D I F F E R E N C E .
0031400 L I S P 2 4 Q I D L \ S L O
0031420 W D I F F E R E N C E A 0 0 0 1
0031440 ) \r ( 2 0 Q D I F F E R E N C
0031460 E 1 3 Q 004 003 A R R A Y F R A
0031500 M E T Y P E # 4 004 003 A R R A
0031520 Y F R A M E T Y P E # ) \r ( ) \r
0031540 I D L \ S L O W P L U S 2 A 0 0
0031560 0 1 A 0 0 0 2 D 1 \r ( I 1
0031600 Y Y I 0 X X ) \0 025 \0 \0 \0
0031620 002 @ \t \0 \0 b \0 264 \r A \t \0 \0 b 002 264
0031640 005 @ A 324 020 \0 ( 1 3 Q C O N V .
0031660 S C A L A R 3 C O N V . S C
0031700 A L A R ) \r N I L \r ( ) \r I D L
0031720 \ S L O W P L U S 2 A 0 0 0 1
0031740 D 1 \r ( N A M E U E R R O R S
0031760 E T I 1 U R E S E T V A R
0032000 S L S T I 0 U E R R O R N
0032020 A M E F 0 X F 1 Y )
0032040 \0 016 \0 002 \0 002 g \0 \0 o \0 \0 \0 P Q
0032060 \f \0 \0 020 \0 ( 1 3 Q E A P P L Y
0032100 . C A L L E R ) \r ( 2 I D L \
0032120 S L O W P L U S 2 A 0 0 0 1 A 0
0032140 0 0 2 ) \r ( 6 ( 0 0 ) ) \r
0032160 I D L \ S L O W P L U S 2 D 1
0032200 \r ( I 1 Y I 0 X F
0032220 0 R E S E T V A R S L S T )
0032240 \0 # \0 001 \0 002 @ 004 ` \0 \0 360 246 A 004 `
0032260 \0 \0 360 227 g \0 \0 P \n \0 \0 020 @ 264 \n A
0032300 264 \a @ A \n \0 \0 020 \0 ( 4 0 Q \ S
0032320 L O W P L U S 2 . L I S P 2 4
0032340 Q I D L \ S L O W P L U S 2 A
0032360 0 0 0 1 ) \r ( 2 0 Q P L U S
0032400 1 3 Q 004 003 A R R A Y F R A M E
0032420 T Y P E # 4 004 003 A R R A Y F
0032440 R A M E T Y P E # ) \r ( ) \r I D
0032460 L \ S L O W Q U O T I E N T A 0
0032500 0 0 1 A 0 0 0 2 D 1 \r ( I 1
0032520 Y Y I 0 X X ) \0 025 \0 \0
0032540 \0 002 @ \t \0 \0 b \0 264 \r A \t \0 \0 b 002
0032560 264 005 @ A 353 020 \0 ( 1 3 Q C O N V
0032600 . S C A L A R 3 C O N V . S
0032620 C A L A R ) \r N I L \r ( ) \r I D
0032640 L \ S L O W Q U O T I E N T A 0
0032660 0 0 1 D 1 \r ( N A M E U E R
0032700 R O R S E T I 1 U R E S E
0032720 T V A R S L S T I 0 U E R
0032740 R O R N A M E F 0 X F
0032760 1 Y ) \0 016 \0 002 \0 002 g \0 \0 o \0
0033000 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q E A
0033020 P P L Y . C A L L E R ) \r ( 2
0033040 I D L \ S L O W Q U O T I E N T
0033060 A 0 0 0 1 A 0 0 0 2 ) \r ( 6
0033100 ( 0 0 ) ) \r I D L \ S L O W Q
0033120 U O T I E N T D 1 \r ( I 1
0033140 Y I 0 X F 0 R E S E
0033160 T V A R S L S T ) \0 # \0 001 \0 002
0033200 @ 004 ` \0 \0 360 246 A 004 ` \0 \0 360 227 g \0
0033220 \0 P \n \0 \0 020 @ 264 \n A 264 \a @ A \n \0
0033240 \0 020 \0 ( 4 0 Q \ S L O W Q U O
0033260 T I E N T . L I S P 2 4 Q I
0033300 D L \ S L O W Q U O T I E N T A
0033320 0 0 0 1 ) \r ( 2 0 Q Q U O T I
0033340 E N T 1 3 Q 004 003 A R R A Y F
0033360 R A M E T Y P E # 4 004 003 A R
0033400 R A Y F R A M E T Y P E # ) \r (
0033420 ) \r I D L \ S L O W T I M E S 2
0033440 A 0 0 0 1 A 0 0 0 2 D 1 \r ( I
0033460 1 Y Y I 0 X X ) \0 025
0033500 \0 \0 \0 002 @ \t \0 \0 b \0 264 \r A \t \0 \0
0033520 b 002 264 005 @ A 326 020 \0 ( 1 3 Q C O
0033540 N V . S C A L A R 3 C O N V
0033560 . S C A L A R ) \r N I L \r ( ) \r
0033600 I D L \ S L O W T I M E S 2 A 0
0033620 0 0 1 D 1 \r ( N A M E U E R
0033640 R O R S E T I 1 U R E S E
0033660 T V A R S L S T I 0 U E R
0033700 R O R N A M E F 0 X F
0033720 1 Y ) \0 016 \0 002 \0 002 g \0 \0 o \0
0033740 \0 \0 P Q \f \0 \0 020 \0 ( 1 3 Q E A
0033760 P P L Y . C A L L E R ) \r ( 2
0034000 I D L \ S L O W T I M E S 2 A 0
0034020 0 0 1 A 0 0 0 2 ) \r ( 6 ( 0
0034040 0 ) ) \r I D L \ S L O W T I M
0034060 E S 2 D 1 \r ( I 1 Y I
0034100 0 X F 0 R E S E T V A R
0034120 S L S T ) \0 # \0 001 \0 002 @ 004 ` \0
0034140 \0 360 246 A 004 ` \0 \0 360 227 g \0 \0 P \n \0
0034160 \0 020 @ 264 \n A 264 \a @ A \n \0 \0 020 \0 (
0034200 4 0 Q \ S L O W T I M E S 2 .
0034220 L I S P 2 4 Q I D L \ S L O
0034240 W T I M E S 2 A 0 0 0 1 ) \r ( 2
0034260 0 Q T I M E S 1 3 Q 004 003 A
0034300 R R A Y F R A M E T Y P E # 4
0034320 004 003 A R R A Y F R A M E T Y P
0034340 E # ) \r ( ) \r M O V E A R I T H
0034360 F N S D 1 \r ( P 7 P R O P
0034400 V A L P 6 P R O P P 4
0034420 N E W N A M E P 3 L I S
0034440 P F N P 2 I D L F N P
0034460 1 C O M P P R O P S I 0
0034500 I D L F N S ) \0 302 \b \0 \0 001 @ o
0034520 \0 \0 \0 021 2 004 H 003 265 004 h 020 001 Z l 004
0034540 \n \0 \0 [ g \0 \0 \n \0 \0 274 K 004 l 004 360
0034560 262 3 K \t \0 \0 262 - L \t \0 \0 245 K L \n
0034600 \0 \0 277 I 021 ! \a M 003 265 005 023 260 A 001 276
0034620 K N 033 _ 016 227 L N O 016 \v \0 \0 277 M 002
0034640 ] 260 347 o \0 \0 \0 i \n \0 \0 277 l 002 i \n
0034660 \0 \0 277 K i \n \0 \0 277 k i \n \0 \0 277 o
0034700 \0 \0 \0 i \n \0 \0 277 i \t \0 \0 277 J 004 l
0034720 004 360 233 J \t \0 \0 226 J K \n \0 \0 260 + o
0034740 \0 \0 \0 i \n \0 \0 277 l 002 i \n \0 \0 277 J
0034760 i \n \0 \0 277 k i \n \0 \0 277 o \0 \0 \0 i
0035000 \n \0 \0 277 i \t \0 \0 277 H 002 X 261 377 K \0
0035020 ( 2 7 1 Q T E R P R I 2 6 4
0035040 Q P R I N 1 2 5 3 Q S P A
0035060 C E S 2 4 5 Q P R I N 1 2
0035100 3 7 Q S P A C E S 2 3 0 Q
0035120 P R I N 1 2 1 6 Q M O V D
0035140 2 1 0 Q \ D E F I N E D P 1
0035160 7 5 Q T E R P R I 1 7 0 Q
0035200 P R I N 1 1 5 7 Q S P A C E
0035220 S 1 5 1 Q P R I N 1 1 4 3
0035240 Q S P A C E S 1 3 4 Q P R
0035260 I N 1 1 1 6 Q P U T P R O P
0035300 6 3 Q M O V D 5 5 Q \ D
0035320 E F I N E D P 4 7 Q \ D E F
0035340 I N E D P 3 3 Q P A C K *
0035360 2 4 Q S U B A T O M ) \r ( 3 0
0035400 Q . L I S P ) \r ( 2 6 0 Q
0035420 " w a s n o t d e f i n e d
0035440 ! " 2 2 4 Q " * * N o t e :
0035460 I D L f n " 1 6 4 Q " w a
0035500 s n o t d e f i n e d ! "
0035520 1 3 0 Q " * * N o t e : L i
0035540 s p f n " 4 ( D O P V A L
0035560 D M A C R O B Y T E M A C R O
0035600 ) ) \r ( P R E T T Y C O M P R I
0035620 N T U S E R A R I T H C O M S
0035640 ) \r ( R P A Q Q U S E R A R I
0035660 T H C O M S ( ( * l o a d i
0035700 n g t h i s f i l e w i l
0035720 l r e d e f i n e m o s t
0035740 a r i t h m e t i c f u n c t
0035760 i o n s t o a c c e p t i
0036000 d l \r o b j e c t s . p u n
0036020 t f u n c t i o n s a r e
0036040 a l s o r e d e f i n e d t
0036060 o h a n d l e t h e c o m
0036100 p i l e d c a s e . ) ( D E
0036120 C L A R E : F I R S T ( V A
0036140 R S \r U S E R A R I T H F N S
0036160 ) ) ( F N S * U S E R A R
0036200 I T H F N S ) ( F N S * U
0036220 T I L F N S ) ( D E C L A R E
0036240 : D O N T E V A L @ L O A D
0036260 D O C O P Y ( P ( M O V E A
0036300 R I T H F N S \r U S E R A R I
0036320 T H F N S ) ) ) ( D E C L A R
0036340 E : D O N T E V A L @ L O A D
0036360 D O E V A L @ C O M P I L E
0036400 D O N T C O P Y C O M P I L E
0036420 R V A R S ( A D D V A R S (
0036440 N L A M A ) ( N L A M L ) \r
0036460 ( L A M A I D L T I M E S I
0036500 D L P L U S I D L M I N I D
0036520 L M A X ) ) ) ) ) \r ( R P A Q Q
0036540 U S E R A R I T H F N S ( I
0036560 D L A B S I D L A N T I L O G
0036600 I D L A R C C O S I D L A R
0036620 C S I N I D L A R C T A N I
0036640 D L A R C T A N 2 I D L C O S
0036660 I D L D I F F E R E N C E \r
0036700 I D L E Q P I D L E X P T I
0036720 D L G C D I D L G R E A T E R
0036740 P I D L L E S S P I D L L O
0036760 G I D L M A X I D L M I N
0037000 I D L M I N U S I D L M I N U
0037020 S P I D L P L U S I D L Q U
0037040 O T I E N T \r I D L R A N D
0037060 I D L R E M A I N D E R I D L
0037100 S I N I D L S Q R T I D L T
0037120 A N I D L T I M E S I D L \
0037140 S L O W D I F F E R E N C E I
0037160 D L \ S L O W P L U S 2 I D L
0037200 \ S L O W Q U O T I E N T \r I
0037220 D L \ S L O W T I M E S 2 ) ) \r
0037240 ( R P A Q Q U T I L F N S (
0037260 M O V E A R I T H F N S ) ) \r (
0037300 M O V E A R I T H F N S U S E
0037320 R A R I T H F N S ) \r ( P U T P
0037340 R O P S U S E R A R I T H C
0037360 O P Y R I G H T ( " X e r o x
0037400 C o r p o r a t i o n " 1 9
0037420 8 4 1 9 8 5 1 9 8 6 ) ) \r N
0037440 I L \r
0037443