sig
  type t
  val create : paused:bool -> SFPausableClock.t
  val isPaused : SFPausableClock.t -> bool
  val getElapsedTime : SFPausableClock.t -> SFTime.t
  val restart : SFPausableClock.t -> paused:bool -> SFTime.t
  val pause : SFPausableClock.t -> unit
  val start : SFPausableClock.t -> unit
end