$ od -c -N 50000 [qv]<IDL>koto>GAMM.DCOM!1
0000000 ( F I L E C R E A T E D " 1 3
0000020 - A u g - 8 6 1 7 : 4 6 : 5 2
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > G A M M . ; 1 ) "
0000120 4 - A u g - 8 6 1 7 : 4 3 : 1
0000140 4 " \r t c o m p l ' d i n
0000160 " X e r o x L i s p 4 - A
0000200 u g - 8 6 . . . " d a t e d
0000220 " 4 - A u g - 8 6 2 2 : 1
0000240 7 : 5 2 " ) \r ( F I L E C R E A
0000260 T E D " 1 3 - A u g - 8 6 1
0000300 7 : 4 6 : 1 2 " { Q V } < P E
0000320 D E R S E N > L I S P > G A M M
0000340 . ; 1 1 0 9 7 1 p r e v i o
0000360 u s d a t e : " 1 3 - J u l
0000400 - 8 6 1 8 : 0 7 : 2 9 " \r {
0000420 S D R V X 1 } D S K 5 : < E H R
0000440 L I C H . L I S P > G A M M . ;
0000460 1 6 ) \r G A M M D 1 \r ( P 3
0000500 3 Q I P 1 R e p I 0
0000520 N ) 002 354 034 \0 \0 001 @ k h n = 314
0000540 n 314 315 321 h d d n ? 200 j 321 @ 355 001 354
0000560 004 021 370 026 021 020 027 I H 363 222 261 002 276 l 036
0000600 k l 036 021 003 032 O 2 O 0 363 263 + ` \0 \0
0000620 O 4 ` \0 \0 O 4 \n \0 \0 ` \0 \0 O 4 \n
0000640 \0 \0 350 \v \0 \0 277 O 4 k 325 _ 4 277 O 2
0000660 k 324 _ 2 260 324 023 h 274 l \n k _ 022 277 _
0000700 020 277 O 022 O 020 363 263 033 K L ` \0 \0 O 022
0000720 \n \0 \0 355 001 354 \0 354 003 274 O 022 k 324 _ 022
0000740 260 344 L O 016 354 003 276 ` \0 \0 l \v \n \0 \0
0000760 355 001 274 l 024 l \f _ 026 277 _ 024 277 O 026 O
0001000 024 363 263 " ` \0 \0 O 026 \n \0 \0 L 355 \0 363
0001020 232 ` \0 \0 O 026 \n \0 \0 355 001 274 O 026 k 324
0001040 _ 026 260 335 n ? 200 j 321 272 l 005 k 021 002 033
0001060 O 6 O 4 363 263 031 n ? \0 j 321 J L J 354
0001100 004 354 \0 354 003 272 O 6 k 324 _ 6 260 346 023 N
0001120 J O 016 354 003 354 \0 276 l \n k _ 032 277 _ 030
0001140 277 O 032 O 030 363 263 $ ` \0 \0 O 032 ` \0 \0
0001160 O 032 \n \0 \0 ` \0 \0 O 032 \n \0 \0 351 \v \0
0001200 \0 277 O 032 k 324 _ 032 260 333 h 274 l \n k _
0001220 036 277 _ 034 277 O 036 O 034 363 263 033 K L ` \0
0001240 \0 O 036 \n \0 \0 355 001 354 \0 354 003 274 O 036 k
0001260 324 _ 036 260 344 n ? 200 j 321 272 l 005 k 021 002
0001300 033 O 6 O 4 363 263 031 n ? \0 j 321 J L J
0001320 354 004 354 \0 354 003 272 O 6 k 324 _ 6 260 346 023
0001340 N J O 016 354 003 354 \0 276 l 036 k _ " 277 _
0001360 277 O " O 363 263 $ ` \0 \0 O " ` \0
0001400 \0 O " \n \0 \0 ` \0 \0 O " \n \0 \0 352 \v
0001420 \0 \0 277 O " k 324 _ " 260 333 ` \0 \0 l 024
0001440 \n \0 \0 355 001 274 l 036 l 025 _ & 277 _ $ 277
0001460 O & O $ 363 263 " ` \0 \0 O & \n \0 \0 L
0001500 355 \0 363 232 ` \0 \0 O & \n \0 \0 355 001 274 O
0001520 & k 324 _ & 260 335 n ? 200 j 321 272 l 005 k
0001540 021 002 033 O 6 O 4 363 263 031 n ? \0 j 321 J
0001560 L J 354 004 354 \0 354 003 272 O 6 k 324 _ 6 260
0001600 346 023 N J O 016 354 003 354 \0 276 h 274 l \n k
0001620 _ * 277 _ ( 277 O * O ( 363 263 033 K L `
0001640 \0 \0 O * \n \0 \0 355 001 354 \0 354 003 274 O *
0001660 k 324 _ * 260 344 N L O 016 354 003 354 \0 276 `
0001700 \0 \0 k \n \0 \0 355 001 274 l \n l 002 _ . 277
0001720 _ , 277 O . O , 363 263 " ` \0 \0 O . \n
0001740 \0 \0 L 355 \0 363 232 ` \0 \0 O . \n \0 \0 355
0001760 001 274 O . k 324 _ . 260 335 n ? 200 j 321 272
0002000 l 005 k 021 002 033 O 6 O 4 363 263 031 n ? \0
0002020 j 321 J L J 354 004 354 \0 354 003 272 O 6 k 324
0002040 _ 6 260 346 023 M N J O 016 354 003 354 \0 ^ 354
0002060 \0 275 I k 324 Y 261 375 B @ M 355 \0 N 355 \0
0002100 h 032 032 032 020 \0 ( 1 2 2 4 Q E L T
0002120 1 2 0 7 Q E L T 1 1 5 3 Q
0002140 E L T 1 1 1 4 Q E L T 7
0002160 6 1 Q E L T 7 4 4 Q E L T
0002200 7 1 0 Q E L T 6 6 7 Q S
0002220 E T A 6 6 3 Q E L T 6 5 3
0002240 Q E L T 5 1 3 Q E L T 4
0002260 4 6 Q S E T A 4 4 2 Q E L
0002300 T 4 3 2 Q E L T 2 7 6 Q
0002320 E L T 2 6 1 Q E L T 2 2 5
0002340 Q E L T 1 7 0 Q E L T 1
0002360 1 3 Q S E T A 1 0 7 Q E L
0002400 T 7 7 Q E L T ) \r ( 1 2 1 7
0002420 Q C 1 2 0 2 Q C 1 1 4 7
0002440 Q C 1 1 0 7 Q C 7 5 4 Q
0002460 C 7 3 7 Q C 7 0 3 Q C
0002500 6 5 6 Q B 6 4 6 Q C 6
0002520 4 1 Q C 5 0 6 Q A 4 3 5
0002540 Q B 4 2 5 Q C 4 2 0 Q
0002560 A 2 7 1 Q C 2 5 4 Q C
0002600 2 2 0 Q C 1 6 3 Q C 1 0
0002620 2 Q B 7 2 Q A 6 5 Q C
0002640 ) \r ( ) \r G A M M * D 1 \r ( P
0002660 3 0 Q I P 4 C B A S E
0002700 P 3 B B A S E P 2 A
0002720 B A S E P 1 R e p I 0
0002740 N ) 003 B 031 \0 \0 001 @ k ` \0 \0 \t
0002760 \0 \0 ` \0 \0 \t \0 \0 ` \0 \0 \t \0 \0 h n
0003000 = 314 n 314 315 321 h d d n ? 200 j 321 @ 355
0003020 001 354 004 021 313 026 I H 363 222 261 003 003 l : j
0003040 _ 030 277 _ 026 277 O 030 O 026 363 263 * L O 030
0003060 320 J O 030 320 d 310 \0 375 310 001 321 K O 030 320
0003100 d 310 \0 375 310 001 321 354 \0 316 \0 277 O 030 l 002
0003120 324 _ 030 260 325 l 022 j _ 034 277 _ 032 277 O 034
0003140 O 032 363 263 N O 016 L O 034 320 d 310 \0 375
0003160 310 001 321 354 \0 354 003 _ 016 277 O 034 l 002 324 _
0003200 034 260 337 O 016 O 024 354 003 _ 022 277 L d 310 024
0003220 375 310 025 321 _ 016 277 l & l 026 021 002 030 O 0
0003240 O . 363 263 ) L O 0 320 d 310 \0 375 310 001 321
0003260 O 016 354 005 235 L O 0 320 d 310 \0 375 310 001 321
0003300 _ 016 277 O 0 l 002 324 _ 0 260 326 023 n ? 200
0003320 j 321 275 l 005 k 021 002 030 O 0 O . 363 263 032
0003340 n ? \0 j 321 M O 016 M 354 004 354 \0 354 003 275
0003360 O 0 k 324 _ 0 260 345 023 O 022 M O 024 354 003
0003400 354 \0 _ 022 277 l 022 j _ 277 _ 036 277 O
0003420 O 036 363 263 * J O 320 L O 320 d 310 \0
0003440 375 310 001 321 K O 320 d 310 \0 375 310 001 321 354
0003460 001 316 \0 277 O l 002 324 _ 260 325 h _ 016
0003500 277 l 022 j _ $ 277 _ " 277 O $ O " 363 263
0003520 N O 016 J O $ 320 d 310 \0 375 310 001 321 354
0003540 \0 354 003 _ 016 277 O $ l 002 324 _ $ 260 337 n
0003560 ? 200 j 321 275 l 005 k 021 002 030 O 0 O . 363
0003600 263 032 n ? \0 j 321 M O 016 M 354 004 354 \0 354
0003620 003 275 O 0 k 324 _ 0 260 345 023 O 022 M O 024
0003640 354 003 354 \0 _ 022 277 l : j _ ( 277 _ & 277
0003660 O ( O & 363 263 * L O ( 320 L O ( 320 d
0003700 310 \0 375 310 001 321 K O ( 320 d 310 \0 375 310 001
0003720 321 354 003 316 \0 277 O ( l 002 324 _ ( 260 325 L
0003740 d 310 & 375 310 ' 321 _ 016 277 l : l ( 021 002
0003760 030 O 0 O . 363 263 ) L O 0 320 d 310 \0 375
0004000 310 001 321 O 016 354 005 235 L O 0 320 d 310 \0 375
0004020 310 001 321 _ 016 277 O 0 l 002 324 _ 0 260 326 023
0004040 n ? 200 j 321 275 l 005 k 021 002 030 O 0 O .
0004060 363 263 032 n ? \0 j 321 M O 016 M 354 004 354 \0
0004100 354 003 275 O 0 k 324 _ 0 260 345 023 O 022 M O
0004120 024 354 003 354 \0 _ 022 277 h _ 016 277 l 022 j _
0004140 , 277 _ * 277 O , O * 363 263 N O 016 L
0004160 O , 320 d 310 \0 375 310 001 321 354 \0 354 003 _ 016
0004200 277 O , l 002 324 _ , 260 337 O 022 O 016 O 024
0004220 354 003 354 \0 _ 022 277 L d 310 \0 375 310 001 321 _
0004240 016 277 l 022 l 002 021 002 030 O 0 O . 363 263 )
0004260 L O 0 320 d 310 \0 375 310 001 321 O 016 354 005 235
0004300 L O 0 320 d 310 \0 375 310 001 321 _ 016 277 O 0
0004320 l 002 324 _ 0 260 326 023 n ? 200 j 321 275 l 005
0004340 k 021 002 030 O 0 O . 363 263 032 n ? \0 j 321
0004360 M O 016 M 354 004 354 \0 354 003 275 O 0 k 324 _
0004400 0 260 345 023 O 020 O 022 M O 024 354 003 354 \0 _
0004420 022 354 \0 _ 020 277 I k 324 Y 261 374 375 @ O 020
0004440 355 \0 O 022 355 \0 h 032 032 032 020 \0 ( 2 3 Q
0004460 \ A R R A Y - B A S E 1 5 Q
0004500 \ A R R A Y - B A S E 7 \
0004520 A R R A Y - B A S E ) \r ( 2 0 Q
0004540 C 1 2 Q B 4 A ) \r ( )
0004560 \r G A M M - S E T U P D 1 \r (
0004600 P 2 Y P 1 I ) \0 _ 003
0004620 \0 \0 \0 l 036 g \0 \0 o \0 \0 \0 \v \0 \0 027
0004640 \0 \0 l 036 g \0 \0 o \0 \0 \0 \v \0 \0 027 \0
0004660 \0 l 036 g \0 \0 o \0 \0 \0 \v \0 \0 027 \0 \0
0004700 l 036 k o \0 \0 \0 021 003 002 I H 363 263 " `
0004720 \0 \0 I d \v \0 \0 277 ` \0 \0 I J \t \0 \0
0004740 \v \0 \0 277 J \t \0 \0 272 I k 324 Y 260 336 h
0004760 020 \0 ( 1 2 4 Q M I N U S 1 1
0005000 7 Q S E T A 1 1 4 Q M I N
0005020 U S 1 0 3 Q S E T A 5 1 Q
0005040 A R R A Y 3 2 Q A R R A Y
0005060 1 3 Q A R R A Y ) \r ( 1 0 7
0005100 Q B 7 6 Q A 5 4 Q C
0005120 4 2 Q F L O A T P 3 5 Q B
0005140 2 3 Q F L O A T P 1 6 Q
0005160 A 4 F L O A T P ) \r ( 6 3
0005200 Q 1 . 0 4 6 Q 0 . 0 2 7
0005220 Q 0 . 0 1 0 Q 0 . 0 ) \r G
0005240 A M M - S E T U P * D 1 \r ( P
0005260 6 Y P 5 I P 1 I
0005300 ) \0 217 \n \0 \0 \0 l 036 g \0 \0 g \0 \0
0005320 g \0 \0 l 036 k 021 2 004 I d H 363 262 ? 277
0005340 J 022 \r 005 \0 \0 027 \0 \0 l 036 g \0 \0 g \0
0005360 \0 g \0 \0 l 036 k o \0 \0 \0 021 3 \t M L
0005400 363 262 2 O 016 022 \r 005 \0 \0 027 \0 \0 l 036 g
0005420 \0 \0 g \0 \0 \v \0 \0 027 \0 \0 020 006 \0 \0 274
0005440 K 265 \r L h 032 [ 272 I k 324 Y 260 256 L &
0005460 273 260 367 N \t \0 \0 ^ _ 022 277 O 020 265 021 O
0005500 022 h 032 _ 020 _ 016 277 M k 324 ] 260 263 O 022
0005520 & _ 020 277 260 364 \0 ( 1 5 6 Q F M I
0005540 N U S 1 1 7 Q M A K E - A R
0005560 R A Y 1 0 1 Q M A K E - A R
0005600 R A Y 3 5 Q M A K E - A R R
0005620 A Y ) \r ( 1 2 6 Q F L O A T P
0005640 1 2 2 Q C 1 1 4 Q F L O
0005660 A T 1 1 1 Q : E L E M E N T
0005700 - T Y P E 1 0 4 Q B 5 3 Q
0005720 : I N I T I A L - C O N T E N
0005740 T S 5 0 Q F L O A T 4 5 Q
0005760 : E L E M E N T - T Y P E 4
0006000 0 Q A 1 2 Q : I N I T I A
0006020 L - C O N T E N T S 7 F L O
0006040 A T 4 : E L E M E N T - T Y
0006060 P E ) \r ( 6 2 Q 1 . 0 ) \r (
0006100 P R E T T Y C O M P R I N T G
0006120 A M M C O M S ) \r ( R P A Q Q
0006140 G A M M C O M S ( ( * * G
0006160 a m m I n I n t e r l i s p
0006200 - - S i n g l e P r e c i
0006220 s i o n V e r s i o n , M a
0006240 r k 3 - N a t i o n a l
0006260 P h y s i c s \r L a b o r a t
0006300 o r y B e n c h m a r k G a
0006320 m m F - C a l l ( G A M
0006340 M - S E T U P ) B e f o r e
0006360 E x e c u t i n g ( G A M M )
0006400 - T h e o u t p u t r e
0006420 t u r n b y G A M M i s \r
0006440 a l i s t c o n s i s t i
0006460 n g o f N , - 1 6 . 7 3
0006500 3 4 3 2 2 4 1 0 9 0 0 6 4
0006520 7 1 7 8 4 8 0 1 4 2 1 3 0 3
0006540 7 7 3 1 3 4 6 3 9 9 4 , -
0006560 % 1 6 . 7 3 3 . . . / N )
0006600 ( * * \r E x a m p l e :
0006620 - _ ( G A M M - S E T U P )
0006640 - _ ( G A M M 1 0 ) )
0006660 ( G L O B A L V A R S A B
0006700 C ) ( F N S G A M M G A M
0006720 M * G A M M - S E T U P G A
0006740 M M - S E T U P * ) ) ) \r ( P U
0006760 T P R O P S G A M M C O P Y
0007000 R I G H T ( " X e r o x C o
0007020 r p o r a t i o n " 1 9 8 6 )
0007040 ) \r N I L \r
0007046