A Tetris game in haskell using gloss