sig
  val epsilon : float
  val get_time : float array -> float -> int
  val pp_time : Stdlib.Format.formatter -> float -> unit
  val pp_time_range : float array -> Stdlib.Format.formatter -> float -> unit
  type command = CMD of string | ARG of string * string | TEXT
  val command : string -> Rformat.command
  val pretty :
    (Stdlib.Format.formatter -> string -> string -> unit) ->
    Stdlib.Format.formatter -> string -> unit
end