let in_directory ~readable_suffix p c =     path ~readable_suffix ~from:(`In_dir p) c