English complete (but needs more testing)

lib/resource/english/MorphoEng.gf

@@ -211,5 +211,15 @@ oper
   contractNot : Str -> Str = \is -> variants {is ++ "not" ; is + "n't"} ;
 
   dont = contractNot (verbP3Do.s ! InfImp) ;
+
+-- From $numerals$.
+
+param DForm = unit  | teen  | ten  ;
+oper mkNum : Str -> Str -> Str -> {s : DForm => Str} = 
+  \two -> \twelve -> \twenty -> 
+  {s = table {unit => two ; teen => twelve ; ten => twenty}} ;
+oper regNum : Str -> {s : DForm => Str} = 
+  \six -> mkNum six (six + "teen") (six + "ty") ;
+
 } ;