Report a paste

Please put a quick comment for the admin.

If it looks like spam, the admin will mark it as spam so that the spam filter picks it up in the future.

If the paste contains something private or offensive, it'll probably just be deleted.

I don't think this is without point.

accounting :: Monad m => StateT Text m a -> StateT (Int, Text) m a
accounting action = do
  old <- uses _2 T.length
  v <- zoom _2 action
  new <- uses _2 T.length
  _1 += old - new
  return v

separate f = P . mapStateT maybeToList . accounting . StateT