From Janna.

grammars/health/ExtraRus.gf

@@ -0,0 +1,36 @@
+-- use this path to read the grammar from the same directory
+--# -path=.:../abstract:../../prelude:../russian
+
+--1 Functions that are not in the API, but common in Russian 
+--
+-- Aarne Ranta, Janna Khegai 2003
+resource ExtraRus = open ResourceRus, Prelude, SyntaxRus in {
+
+flags  coding=utf8 ;
+
+oper
+  predNeedShortAdjective: Bool -> NP -> CN -> S = \b, Jag, Dig -> { s =
+    let {
+      mne  = Jag.s ! (mkPronForm Dat No NonPoss) ; 
+      nuzhen  = need.s ! AF Nom Inanimate (gNum Dig.g Sg)  ;
+      doctor = Dig.s ! Sg ! Nom ;
+      ne = negation b
+    } in
+       mne ++ ne ++ nuzhen ++ doctor ;
+      lock_S = <>
+    } ;
+
+  U_predTransVerb : Bool -> TV -> NP -> NP -> S = 
+    \b,Ser,Jag,Dig -> { s =
+    let {
+      menya  =  Jag.s ! (mkPronForm Gen Yes NonPoss) ; 
+      bolit  = Ser.s ! VFin (gNum (pgen2gen Dig.g) Dig.n) Dig.p ;
+      golova = Dig.s ! (mkPronForm Nom No NonPoss) ;
+      ne = negation b
+    } in
+       "у" ++ menya ++ ne ++ bolit  ++ golova  ;
+      lock_S = <>
+    } ;
+
+  tvHave : TV = mkDirectVerb (extVerb have Act Present) ** { lock_TV = <>};    
+};