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