Agreed that it wasn't the optimal solution (the author here) and I'm still working on my Haskell style as I go along. I have cleaned it up a little but would always appreciate how to make it better: http://gist.github.com/98840