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