A small implementation of Tetris in Haskell