sig
  type t
  external create : unit -> Js.Fragment.t = "caml_js_fragment_create"
  external append : Js.Fragment.t -> Js.Node.t -> unit
    = "caml_js_fragment_append"
  external flush : Js.Node.t -> Js.Fragment.t -> unit
    = "caml_js_fragment_flush"
end