(FILECREATED "25-Mar-86 15:07:22" {ERIS}<TAMARIN>WORK>SIMULATE>TESTFILE.;1
 521    

      changes to:  (VARS TESTFILECOMS)
		   (FNS TESTF))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT TESTFILECOMS)

(RPAQQ TESTFILECOMS
 ((FNS TESTF)))
(DEFINEQ

(TESTF

  [LAMBDA (ATOM)                                             (* rtk "25-Mar-86 15:06")

    (PRINT "HELLO ATOM")
    (PRINT ATOM])
)
(PUTPROPS TESTFILE COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (286 442 (TESTF 296 . 440)))))
STOP