Achievement unlocked: use the `censor` function from `MonadWriter` in a real piece of code.

This code might require a bit of documentation, though. I am already starting to forget what it is doing.