A 2048 solver in Haskell