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