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