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