(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-strict-validating")

(set! xml-validate-contents? #t)
(set! xml-check-attributes? #t)
(set-xml-transliterate-character-data-in 'xhtml10-strict #t)

(set! xml-check-error display-xml-warning)

(write-html 'pp
  (html 
   (head 
     (title "An Invalid document") 
     (em "Emphasis not allowed here")
   )

   (body

     (p 'x "y" 
        "A paragraph with an invalid attribute")

     (p 'id "p1"
        (ol
          (li "Ordered list not allowed here")
        )
        'id "p2"
     )


     (li "li item outside ul and ol context")
     
   )
  )
) 

(end-laml)