Added 'takeProducers'

This makes it possible to do something like taking the first three words of each
line, like this:

unlines . transFreeT (unwords . takeProducers 3 . words) . lines
Added `transFreeT` to re-exports