A tetris attack clone written in Haskell