Implement the game 2048 and an AI for it in Haskell