A 2048 clone in Haskell