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