The game of 2048 in Haskell