sig
  type t
  val create : path:string -> Spacetime.Series.t
  val save_event :
    ?time:float -> Spacetime.Series.t -> event_name:string -> unit
  val save_and_close : ?time:float -> Spacetime.Series.t -> unit
end