val bracket: make:('a Lazy.t) -> act:('a -> 'b) -> free:('a -> unit) -> 'b

val infile: act:(in_channel -> 'b) -> string -> 'b

val infile_lines: line:(string -> 'a) -> of_seq:('a Seq.t -> 'b) -> string -> 'b

val infile_iter_lines:
  line:(string -> 'a) -> iter:('a -> unit) -> string -> unit

val infile_chunks':
  chunk:(string list -> 'a) -> of_seq:('a Seq.t -> 'b) -> string -> 'b

val infile_chunks:
  ?join:string -> chunk:(string -> 'a) -> of_seq:('a Seq.t -> 'b) ->
  string -> 'b