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