AI for game 2048 in Haskell