let stream_of_file_lines path =
  let inch =
    try open_in_bin path
    with | e -> error ~opn: "stream_of_file_lines" ~fn: path ~e
  in stream_of_channel_lines_gen ~close: true inch