Tetris in Haskell