sig
val lines_of_string : string -> int
val output_filename_string : string option -> string
val with_out_ch : string option -> (Pervasives.out_channel -> 'a) -> 'a
val with_in_ch : string option -> (Pervasives.in_channel -> 'a) -> 'a
end