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