sig   val day_name : (Date.day -> string) Pervasives.ref   val name_of_day : Date.day -> string   val short_name_of_day : Date.day -> string   val month_name : (Date.month -> string) Pervasives.ref   val name_of_month : Date.month -> string   val short_name_of_month : Date.month -> string   val set_word_regexp : Str.regexp -> unit   module type S =     sig       type t       val fprint : string -> Format.formatter -> Printer.S.t -> unit       val print : string -> Printer.S.t -> unit       val dprint : Printer.S.t -> unit       val sprint : string -> Printer.S.t -> string       val to_string : Printer.S.t -> string       val from_fstring : string -> string -> Printer.S.t       val from_string : string -> Printer.S.t     end   module Date :     sig       type t = Date.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module DatePrinter :     sig       type t = Date.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module Time :     sig       type t = Time.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module TimePrinter :     sig       type t = Time.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module Ftime :     sig       type t = Ftime.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module Precise_Calendar :     sig       type t = Calendar.Precise.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module Calendar :     sig       type t = Calendar.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module CalendarPrinter :     sig       type t = Calendar.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module Precise_Fcalendar :     sig       type t = Fcalendar.Precise.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end   module Fcalendar :     sig       type t = Fcalendar.t       val fprint : string -> Format.formatter -> t -> unit       val print : string -> t -> unit       val dprint : t -> unit       val sprint : string -> t -> string       val to_string : t -> string       val from_fstring : string -> string -> t       val from_string : string -> t     end end