let date_to_tuple d = (d.day, d.month - 1, d.year)