Simple snake game in haskell