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