yet another primitive Haskell implementation of 2048