MlBlock is a clone of the Tetris written in Ocaml, using OcamlSDL, written in just under 400 lines of code.
Get to the project page!
