A Haskell implementation of the game 2048