Fighting spam with Haskell