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