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