2048 console version in haskell (wasd - move q - exit)