A simple tetris-like game in Haskell