get_shared_relations
rlist = get_shared_relations(estate_related(s1), estate_related(s2));
struct related_list *get_shared_relations(struct related_list *one,