sig
  val with_in_channel :
    Pervasives.in_channel -> (Pervasives.in_channel -> 'a) -> 'a
  val with_in_file : string -> (Pervasives.in_channel -> 'a) -> 'a
  val with_out_file : string -> (Pervasives.out_channel -> 'a) -> 'a
  val escape_for_shell : string -> string
  val get_rfc2822_date : unit -> string
  val list_iteri : (int -> '-> 'b) -> 'a list -> unit
  val list_rev_mapi : (int -> '-> 'b) -> 'a list -> 'b list
  val simple_split : char -> string -> string list
  val starts_with : string -> string -> bool
  val ends_with : string -> string -> bool
end