type t

val create : unit -> t * unit Note.E.t

val start: t -> float -> unit

val stop: t -> unit