added ca. 200 new Dictionary fun's from BNC top-6000 list. Seems to be much better quality than Google 1-grams.

lib/src/english/ExtraEng.gf

@@ -133,7 +133,35 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
       VVF VPresPart => ["being obliged to"] ;
       VVF VPast => "should" ; --# notpresent
       VVPastNeg => "shouldn't" ; --# notpresent
-      VVPresNeg => "shall not"  --- shan't
+      VVPresNeg => "shan't" 
+      } ;
+    p = [] ;
+    typ = VVAux
+    } ;
+
+   ought_VV = lin VV {
+     s = table { 
+      VVF VInf => ["be obliged to"] ; ---
+      VVF VPres => "ought to" ;
+      VVF VPPart => ["been obliged to"] ;
+      VVF VPresPart => ["being obliged to"] ;
+      VVF VPast => "ought to" ; --# notpresent
+      VVPastNeg => "oughtn't to" ; --# notpresent
+      VVPresNeg => "oughtn't to"  --- shan't
+      } ;
+    p = [] ;
+    typ = VVAux
+    } ;
+
+   used_VV = lin VV {
+     s = table { 
+      VVF VInf => Predef.nonExist ; ---
+      VVF VPres => Predef.nonExist ;
+      VVF VPPart => ["used to"] ;
+      VVF VPresPart => ["being used to"] ;
+      VVF VPast => "used to" ; --# notpresent
+      VVPastNeg => "used not to" ; --# notpresent
+      VVPresNeg => Predef.nonExist 
       } ;
     p = [] ;
     typ = VVAux

lib/src/english/ExtraEngAbs.gf

@@ -22,8 +22,9 @@ abstract ExtraEngAbs = Extra - [ProDrop] ** {
    do_VV : VV ;
 
    may_VV : VV ;
-
    shall_VV : VV ;
+   ought_VV : VV ;
+   used_VV : VV ;
 
    --- AR 7/3/2013
    ComplSlashPartLast : VPSlash -> NP -> VP ;