(comment) ;magic
(progn (close (prog1 infile (inpush -1)))
       (load '((teach) teach init))
       (funcall (let ((obarray (get 'obarray 'saved-obarray)))
		  (intern "DUMP"))))