;; 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."))))