;; foo.ixml
html
 head
  title "check this out!"
 body
  h1 "it's crazy!"
  div (@ (id "content"))
   p "Some content."
   p "I like."


(pp (car (tree->list (call-with-input-file "/tmp/foo.ixml" (lambda (in) (parse #f in))))))

(html (head (title "check this out!"))
      (body (h1 "it's crazy!")
            (div (@ (id "content")) (p "Some content.") (p "I like."))))