A snake game in haskell using the gloss library