Color combination haskell