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