let
empty n =
List
.iter (
fun
c
->
n >>> remove c) (n >>> children)