Ocaml programming please

volume x y

• Type: int * int * int -> int * int * int -> int
• Description: Takes in the Cartesian coordinates (3-dimensional) of two opposite corners of a rectangular prism and returns its volume. The sides of the rectangular prism are parallel to the axes.
• Examples:

  volume (1, 1, 1) (2, 2, 2) = 1 volume (2, 2, 2) (1, 1, 1) = 1 volume (0, 1, 2) (2, 3, 5) = 12 volume (1, 1, 1) (1, 1, 1) = 0 volume ((-1), (-1), (-1)) (1, 1, 1) = 8