let
move tree n d =
insert_at (filter (
fun
nn l
->
nn <> n.content) tree) n d