Game 2048 impementation in Haskell