Snake clone written in Haskell and gloss