let
all_paths t:
Path
.t list =
List
.map ~f:(
Path
.concat t.root) (all_structure_paths t.structure)