let
iter f tree =
let
rec
aux { content = t ; children = l } = f t l ;
List
.iter aux l
in
aux tree