sig   val ( / ) : Dir.t -> string -> Dir.t   val ( // ) : Dir.t -> string -> t end