A text blocker, in Haskell.