Exercise: date order [**] Here is a type for dates: type date = {month : int; day : int} For example, March 31st would be represented as {month = 3; day 31}. Our goal in the %3! next few exercises is...

please use ocaml for the programming language. DO NOT code in any other language ONLY OCAML

Extracted text: Exercise: date order [**] Here is a type for dates: type date = {month : int; day : int} For example, March 31st would be represented as {month = 3; day 31}. Our goal in the %3! next few exercises is to implement a map whose keys have type date. Obviously it's possible to represent invalid dates with type date-for example, { month=6; day=50 } would be June 50th, which is not a real date. The behavior of your code in the exercises below is unspecified for invalid dates. To create a map over dates, we need a module that we can pass as input to Map.Make. That module will need to match the Map.OrderedType signature. Create such a module. Here is some code to get you started: module Date = struct type t = date let compare ... end Recall the specification of compare in Map.OrderedType as you write your Date.compare function.