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