-- this function compares two values within a tuple and returns a boolean

tupleToList :: (Ord a) => (a,a) -> [a]
tupleToList (x,y) = [x,y]
tupleToList :: (Ord a) => (a,a) -> [a]
tupleToList (x,y) = [x,y]
tupleToList (x,y) = [x,y]