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

lib/src/scandinavian/ExtraScand.gf

@@ -1,5 +1,5 @@
 incomplete concrete ExtraScand of ExtraScandAbs = CatScand ** 
-   open CommonScand,Coordination,ResScand, ParamX in {
+   open CommonScand,Coordination,ResScand, ParamX, Prelude in {
   flags coding=utf8 ;
   lin
     GenNP np = {
@@ -7,6 +7,7 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
       det = DDef Indef
       } ;
 
+
     ComplBareVS v s  = insertObj (\\_ => s.s ! Sub) (predV v) ;
 
     CompBareCN cn = {s = \\a => case a.n of { 
@@ -112,4 +113,12 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
     UseFoc t p foc = {s = t.s ++ p.s ++ foc.s ! t.t ! t.a ! p.p} ;
 
   oper NONEXIST : Str = "#¿@§X?X&%/" ;
+
+  lin
+    AdjAsCN ap = let g = utrum in {  ---- neutrum ??
+      s = \\n,d,c => ap.s ! agrAdj (gennum (ngen2gen g) n) d ;
+      g = g ;
+      isMod = True
+      } ;
+
 }