(defun companies ()
  (with-open-file (s  "/tmp/file.nfo" :direction :output :if-does-not-exist :create)
    (write *content* :stream s)))