I like this one. I don't know enough Haskell to have come up with it on my own (but I should!)