sig
  type t = { year : int; month : int; day : int; }
  val to_string : Exif.Date.t -> string
  val of_string : string -> [> `Error of string | `Ok of Exif.Date.t ]
end