2048 + AI in Haskell