(comment)
(progn
  (close (prog1 infile (inpush -1)))
  (load "liblsp; od fasl")
  (sstatus toplevel '(toplevel))
  (sstatus feature noldmsg)
  (gctwa)
  (gc)
  (sstatus flush t)
  (suspend ":KILL " (list '(dsk sys3) 'ts 'od))
  (toplevel))