val create
  : unit -> Events.t