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