Snake game written in haskell