The 2048 game written in Haskell