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