words = S.words A.write
>>> Stream.fold Fold.toList $ Unicode.words $ Stream.fromList "A newline\nis considered white space?" [fromList "A",fromList "newline",fromList "is",fromList "considered",fromList "white",fromList "space?"]
>>> Stream.fold Fold.toList $ Unicode.words Fold.toList (Stream.fromList "fold these words") ["fold","these","words"]
words = Stream.wordsBy isSpacePre-release
>>> Stream.fold Fold.toList $ Unicode.unwords $ Stream.fromList ["unwords", "this", "string"] "unwords this string"
unwords = S.unwords A.readNote that, in general
unwords . words /= id
unwords = Stream.interpose ' ' unwords = Stream.intercalate Unfold.fromList " "Pre-release