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