Attempt at AI for the 2048 puzzle, in Haskell