nounless determiner NPs added; started Backward module - both in exper so far

lib/resource/exper/english/NounEng.gf

@@ -7,6 +7,7 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
       s = \\c => det.s ++ cn.s ! det.n ! c ; 
       a = agrP3 det.n
       } ;
+
     UsePN pn = pn ** {a = agrP3 Sg} ;
     UsePron p = p ;
 
@@ -35,8 +36,17 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
       n = num.n
       } ;
 
----    SgQuant quant = {s = quant.s ! Sg} ; DEPRECATED
----    PlQuant quant = {s = quant.s ! Pl} ;
+    DetSgNP quant ord = {
+      s = \\c => quant.s ! Sg ++ ord.s ; ---- case 
+      a = agrP3 Sg
+      } ;
+
+    DetPlNP quant num ord = {
+      s = \\c => quant.s ! num.n ++ num.s ++ ord.s ; ---- case
+      a = agrP3 num.n
+      } ;
+
+    ArtQuant q = q ;
 
     PossPron p = {s = \\_ => p.s ! Gen} ;
 
@@ -45,7 +55,6 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
 
     NumDigits n = {s = n.s ! NCard ; n = n.n} ;
 
-    NumInt n = {s = n.s ; n = Pl} ; 
         --table (Predef.Ints 1 * Predef.Ints 9) {
 	--		        <0,1>  => Sg ;
 	--			_ => Pl  -- DEPRECATED
@@ -53,7 +62,6 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
         --                       ---- <n.size,n.last>
         -- } ;
 
-    OrdInt n = {s = n.s ++ "th"} ; --- DEPRECATED
     OrdDigits n = {s = n.s ! NOrd} ;
 
     NumNumeral numeral = {s = numeral.s ! NCard; n = numeral.n} ;
@@ -63,6 +71,21 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
 
     OrdSuperl a = {s = a.s ! AAdj Superl} ;
 
+    NumNumeralNP num = {
+      s = \\c => num.s ! NCard ; ---- case
+      a = agrP3 num.n
+      } ;
+
+    OrdNumeralNP ord = {
+      s = \\c => "the" ++ ord.s ! NOrd ; ---- case
+      a = agrP3 Sg
+      } ;
+
+    OrdSuperlNP a = {
+      s = \\c => "the" ++ a.s ! AAdj Superl ; ---- case
+      a = agrP3 Sg
+      } ;
+
     DefArt = {s = \\_ => artDef} ;
 
     IndefArt = {