grains haskell exercise