Tetris written in Haskell