2048 in Haskell

Just for fun I decided to implement the game 2048 (http://gabrielecirulli.github.io/2048/) in haskell. The UI is all console and ugly, but I was more concerned with the game logic.