2048 game implemented in haskell