This program colors the vertices of a graph in Haskell