let map f tree = let rec aux { content = t ; children = l } = let (t,l) = f t l in let l = List.map aux l in node t l in aux tree