console 2048 game implemented in haskell