open Bytesrw

(** Example: Parsing HTML fragments *)

let () =
  let fragment = "<li>Item 1</li><li>Item 2</li>" in
  let context = Html5rw.make_fragment_context ~tag_name:"ul" () in
  let reader = Bytes.Reader.of_string fragment in
  let result = Html5rw.parse ~fragment_context:context reader in

  Printf.printf "Fragment parsing result:\n%s\n" (Html5rw.to_string result)