Index: /fmts/trunk/p/C0XF2N.m
===================================================================
--- /fmts/trunk/p/C0XF2N.m	(revision 1391)
+++ /fmts/trunk/p/C0XF2N.m	(revision 1392)
@@ -517,4 +517,17 @@
  Q
  ;
+ADDINN(ZG,ZS,ZARY) ; ADD IF NOT NULL
+ ; ZG IS THE GRAPH NAME, PASSED BY VALUE
+ ; ZS IS THE SUBJECT, PASSED BY VALUE
+ ; ZARY IS AN ARRAY, PASSED BY REFERENCE OF THE PREDICATE AND OBJECT
+ ;  FORMAT IS ZARY(PRED)=OBJ
+ N ZI S ZI=""
+ F  S ZI=$O(ZARY(ZI)) Q:ZI=""  D  ;
+ . I ZARY(ZI)'="" D  ;
+ . . D ADD^C0XF2N(ZG,ZS,ZI,ZARY(ZI))
+ . . W !,"ADDING",ZI," ",ZARY(ZI)
+ ;ZWR ZARY
+ Q
+ ;
 BULKLOAD(ZBFDA) ; BULK LOADER FOR LOADING TRIPLES INTO FILE 172.101
  ; USING GLOBAL SETS INSTEAD OF UPDATE^DIE