sig
  type t = Netdate.t
  val epoch : Netdate.t
  val now : unit -> Netdate.t
  val to_string : ?time:bool -> GapiDate.t -> string
  val of_string : string -> GapiDate.t
end