Break a string up into a stream of strings at newline characters. The resulting strings do not contain newlines.
lines = S.lines A.writeStream.fold Fold.toList $ Unicode.lines $ Stream.fromList "lines\nthis\nstring\n\n\n"[fromList "lines",fromList "this",fromList "string",fromList "",fromList ""]