The 2048 game using Blank Canvas which is a Haskell binding to HTML5 Canvas API.