Sierpinski triangle in Haskell + OpenGL

This isn't finished (perhaps it never will be) but it's here anyway.

For more infomation on a Sierpinski triangle, look at the Wikipedia article on Sierpinski triangles.

I decided to learn how to use OpenGL, once I found the Haskell OpenGL library I decided that would be more fun that C. The Sierpinski triangle is the first program I wrote, it's messy and inefficent at the moment but I'll come back to it.

You'll need Hugs and HOpenGL (which might be included in your install of Hugs) to run this. So, download the source code! You can press 'F' and 'B' to zoom, in a way. It should look something like this:

Sierpinski triangle