sig
  val start : unit -> unit
  val pause : unit -> unit
  val get : unit -> float
end