I'll put the source code up sometime next week, if you want it before then drop me a mail.

(OK, this might take a little longer -- a little more experience of Haskell+OpenGL tells me 
my initial progmming style wasn't appropriate so I need to rewrite it a little.)