simple 2048 game with haskell and gloss