Snake implemented in Haskell