2048 game in haskell.