sig
  val normalize : ?base:string -> string -> string
  val relativize : ?base:string -> string -> string
  val is_relative : ?base:string -> string -> bool
  val pretty : string -> string
  val add_symbolic_dir : string -> string -> unit
end