-- this function converts a tuple to a list

convertTuplesToListsWithValuesThatAreIncreasing :: (Ord a) => [(a,a)] -> [[a]]
convertTuplesToListsWithValuesThatAreIncreasing [(x,y), (z,w)] = map tupleToList (filter isIncreasingTuple [(x,y), (z,w)])
convertTuplesToListsWithValuesThatAreIncreasing :: (Ord a) => [(a,a)] -> [[a]]
convertTuplesToListsWithValuesThatAreIncreasing [(x,y), (z,w)] = map tupleToList (filter isIncreasingTuple [(x,y), (z,w)])
convertTuplesToListsWithValuesThatAreIncreasing [(x,y), (z,w)] = map tupleToList (filter isIncreasingTuple [(x,y), (z,w)])