(use-modules (sxml simple)
             (srfi srfi-26))

(let ((sxml (call-with-input-file "eol-guile.xml" xml->sxml)))
  (write sxml)
  (call-with-output-file "eol-guile-written.xml"
    (cut sxml->xml sxml <>)))