sig
val compare : string -> string -> int
val with_open_temp_file :
?temp_dir:string ->
string -> string -> f:(Pervasives.out_channel -> unit) -> string
val with_temp_dir :
?in_dir:string -> string -> string -> f:(string -> 'a) -> 'a
val is_parent : string -> string -> bool
end