This code was written a while ago, but I decided it merited a write-up recently.