how can I implement that fonction in Haskell? Calculate the Cartesian product of two sets that are available as lists 1 ∗Main> cProd [1..3] [’a’, ’b’] 2 [(1,’a’),(2,’a’),