sig val ( </> ) : Core_string.t -> int * int -> Core_string.t end