2048 in Haskell