let
of_channel ?(strict=
true
) f cin =
of_stream ~strict f (
Stream
.of_channel cin)