include Ptime

type date = int * int * int [@@deriving show]