{ Reads all example files - gri 12 Aug 1994 }

(setq readFiles
   (lambda x
      (cond
         ((atom x))
         (t (readFile (car x)) (eval (cons 'readFiles (cdr x))))
      )
   )
)


(readFiles
   "/u/gri/Sather/Lisp/sum.L"
   "/u/gri/Sather/Lisp/fact.L"
   "/u/gri/Sather/Lisp/hanoi.L"
   "/u/gri/Sather/Lisp/acker.L"
)
