Untitled

#require "markup"

let bad_html = "<body><p><em>Markup.ml<p>rocks!"

let () =
  Markup.parse_html
    ~report:begin fun loc error ->
      Markup.Error.to_string error
      |> print_endline
    end
    (Markup.string bad_html)
  |> Markup.signals
  |> Markup.pretty_print
  |> ignore