snake written in haskell