Read the lines of a file, using a function of the type:
'
Stream (Of String) IO () ->
IO a' to turn the stream into a value of type '
IO
a'.
>>> S.writeFile "lines.txt" $ S.take 2 S.stdinLn
hello<Enter>
world<Enter>
>>> S.readFile "lines.txt" S.print
"hello"
"world"