a new Extra function for AP without CN, e.g. "a green one"

lib/src/english/ExtraEng.gf

@@ -276,5 +276,11 @@ lin
       } ;
 -------
 
+  lin
+    AdjAsCN ap = let cn = mkNoun "one" "one's" "ones" "ones'" ** {g = Neutr}
+      in {
+        s = \\n,c => preOrPost ap.isPre (ap.s ! agrgP3 n cn.g) (cn.s ! n ! c) ;
+        g = cn.g
+        } ;
 
 }