add CompoundN

src/hungarian/ExtendHun.gf

@@ -8,4 +8,7 @@ concrete ExtendHun of Extend = CatHun
 lin
     TPastSimple = {s = []} ** {t = Past} ;   --# notpresent
 
+    CompoundN n1 n2 =
+      n2 ** {s = \\nc => n1.s ! SgNom ++ BIND ++ n2.s ! nc} ;
+
 } ;