Implementation of 2048 in haskell with Artificial Intelligence