Chris@0: :- findall(link(A,E),(rdf_db:rdf(A,'http://purl.org/ontology/mo/link',C),rdf_db:rdf(C,D,literal(E))),Bag),forall(member(link(A,E),Bag),(rdf_db:rdf_retractall(A,'http://purl.org/ontology/mo/link',C),rdf_db:rdf_assert(A,'http://purl.org/ontology/mo/link',E))).