My noob version of 2048 in Haskell