let
concat =
fun
x y
->
{ kind = y.kind; path =
Filename
.concat x.path y.path}