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