type Events.kind +=
  | AddPage of { title : Jstr.t }

val create
  : unit -> Events.t