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 -> 'a -> 'b) -> 'a list -> unit
val list_rev_mapi : (int -> 'a -> '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