From f6856c65e33ede7943548da91704ee611945a56f Mon Sep 17 00:00:00 2001
From: janna <janna@cs.chalmer.se[D[D>
Date: Tue, 26 Sep 2006 15:28:11 +0000
Subject: [PATCH] lexicon

---
 lib/resource-1.0/Examples/ResExamples.gf    | 139 +++++++
 lib/resource-1.0/Examples/ResExamplesEng.gf |  33 ++
 lib/resource-1.0/Examples/ResExamplesRus.gf |  34 ++
 lib/resource-1.0/Examples/examples.Abs.gf   |  86 ++++
 lib/resource-1.0/Examples/examples.Deu.gf   |  33 ++
 lib/resource-1.0/Examples/examples.Eng.gf   |  33 ++
 lib/resource-1.0/Examples/examples.Fra.gf   |  35 ++
 lib/resource-1.0/Examples/examples.Ita.gf   |  33 ++
 lib/resource-1.0/Examples/examples.RusU.gf  |  38 ++
 lib/resource-1.0/Examples/examples.Swe.gf   |  34 ++
 lib/resource-1.0/russian/LexiconRus.gf      | 409 ++++++++++++++++++++
 11 files changed, 907 insertions(+)
 create mode 100644 lib/resource-1.0/Examples/ResExamples.gf
 create mode 100644 lib/resource-1.0/Examples/ResExamplesEng.gf
 create mode 100644 lib/resource-1.0/Examples/ResExamplesRus.gf
 create mode 100644 lib/resource-1.0/Examples/examples.Abs.gf
 create mode 100644 lib/resource-1.0/Examples/examples.Deu.gf
 create mode 100644 lib/resource-1.0/Examples/examples.Eng.gf
 create mode 100644 lib/resource-1.0/Examples/examples.Fra.gf
 create mode 100644 lib/resource-1.0/Examples/examples.Ita.gf
 create mode 100644 lib/resource-1.0/Examples/examples.RusU.gf
 create mode 100644 lib/resource-1.0/Examples/examples.Swe.gf
 create mode 100644 lib/resource-1.0/russian/LexiconRus.gf

diff --git a/lib/resource-1.0/Examples/ResExamples.gf b/lib/resource-1.0/Examples/ResExamples.gf
new file mode 100644
index 000000000..4fec2d845
--- /dev/null
+++ b/lib/resource-1.0/Examples/ResExamples.gf
@@ -0,0 +1,139 @@
+--# -path=.:../abstract:../../prelude
+
+abstract ResExamples = Lang ** {
+fun 
+  ex1, ex2, ex4, ex8, ex13, ex19, ex20, ex23: Utt; 
+  ex3, ex5, ex6, ex7, ex10, ex12, ex14, ex15, ex16, ex24, ex25, ex26, ex27: S;
+  ex9: Phr;
+  ex11, ex17, ex18, ex21, ex22 : Text;
+
+def 
+  ex1 = UttS (UseCl TPres ASimul PPos (PredVP (UsePron he_Pron) 
+          (AdvVP (UseV sing_V) (AdAdv almost_AdA (PositAdvAdj correct_A)))));
+
+  ex2 = UttAdv (SubjS when_Subj (ConjS and_Conj (BaseS (UseCl TPast ASimul PPos
+          (PredVP everybody_NP (UseComp (CompAP (ConjAP and_Conj (BaseAP
+          (PositA young_A) (PositA beautiful_A))))))) (UseCl TPast ASimul PPos
+          (PredVP everything_NP (ComplVA become_VA (PositA probable_AS)))))));
+
+  ex3 = UseCl TPres ASimul PPos (CleftNP (PredetNP only_Predet 
+          (DetCN (DetPl (PlQuant IndefArt) (NumInt 2) NoOrd) (UseN woman_N)))
+          (UseRCl TCond ASimul PPos (RelSlash IdRP
+          (AdvSlash (SlashPrep (PredVP (UsePron i_Pron) (ComplVV want_VV
+          (PassV2 see_V2))) with_Prep) (PrepNP in_Prep (DetCN (DetSg 
+          (SgQuant DefArt) NoOrd) (UseN rain_N)))))));
+
+
+  ex4 = UttNP (DetCN someSg_Det (RelCN (UseN day_N) (UseRCl TFut ASimul PPos
+          (RelCl (ExistNP (AdvNP (DetCN (DetSg (SgQuant IndefArt) NoOrd)
+          (UseN peace_N)) (PrepNP on_Prep (DetCN (DetSg (SgQuant IndefArt)
+           NoOrd) (UseN earth_N)))))))));
+
+  ex5 = UseCl TPres ASimul PPos (PredVP (UsePron they_Pron) (AdvVP
+          (ProgrVP (UseV play_V)) (ComparAdvAdjS less_CAdv clever_A
+          (UseCl TPres ASimul PPos (GenericCl (UseV think_V))))));
+       
+  ex6 = UseCl TPres ASimul PPos (CleftAdv (AdvSC (EmbedVP (AdVVP always_AdV
+          (UseV stop_V)))) (UseCl TPres ASimul PPos (PredVP (UsePron we_Pron)
+          (ComplV2 beg_V2V (UsePron youPl_Pron)))));
+
+  ex7 = UseCl TCond ASimul PNeg (PredVP (UsePron i_Pron) (ComplV3 give_V3 
+          (DetCN (DetPl (PlQuant IndefArt) (AdNum (AdnCAdv more_CAdv) 
+          (NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))))) NoOrd)
+          (UseN star_N)) (DetCN (DetSg (SgQuant this_Quant) NoOrd)
+          (UseN restaurant_N))));
+
+  ex8 = UttImpSg PPos (ImpVP (ComplV2A paint_V2A (DetCN (DetSg (SgQuant DefArt)
+          NoOrd) (UseN earth_N)) (DConjAP both7and_DConj (BaseAP (ComparA
+          small_A (DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN sun_N)))
+          (ComparA big_A (DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN moon_N
+           ))))))) ;
+
+  ex9 = UseCl TPres ASimul PPos (PredVP everybody_NP (ComplVQ wonder_VQ
+          (UseQCl TPres ASimul PPos (QuestSlash whatSg_IP (SlashV2 (UsePron
+           youSg_Pron)love_V2)))));
+
+  ex10 = UseCl TPres ASimul PPos (PredSCVP (EmbedS (UseCl TPres ASimul PNeg
+           (PredVP (UsePron i_Pron) (UseComp (CompAP (ReflA2 married_A2))))))
+           (ComplV2 kill_V2 (UsePron i_Pron)));
+
+  ex11 = TQuestMark (PhrUtt (PConjConj and_Conj) (UttQS (UseQCl TPres ASimul
+            PNeg (QuestIAdv why_IAdv (PredVP (DetCN (DetSg MassDet NoOrd)
+           (UseN art_N)) (UseComp (CompAP (ComparA (UseA2 easy_A2V)
+           (DetCN (DetSg MassDet NoOrd) (UseN science_N))))))))) NoVoc) TEmpty;
+
+  ex12 = UseCl TPres ASimul PPos (CleftNP (DetCN (DetSg (SgQuant IndefArt)
+            NoOrd) (UseN dog_N)) (UseRCl TPres ASimul PPos (RelSlash (FunRP
+            with_Prep (DetCN (DetSg (SgQuant IndefArt) NoOrd) (UseN friend_N))
+            IdRP) (SlashVVV2 (DetCN (DetSg (SgQuant (PossPron i_Pron)) NoOrd)
+            (UseN2 brother_N2)) can_VV play_V2))));
+
+  ex13 = ImpPl1 (ComplVS hope_VS (DConjS either7or_DConj (BaseS (UseCl
+           TPres ASimul PPos (PredVP (DetCN (DetSg (SgQuant DefArt) NoOrd)
+           (ComplN2 father_N2 (DetCN (DetSg (SgQuant DefArt) NoOrd) 
+           (UseN baby_N)))) (UseV run_V))) (UseCl TPres ASimul PPos (PredVP
+           (DetCN (DetSg (SgQuant DefArt) NoOrd)(UseN3 distance_N3))
+           (UseComp (CompAP (PositA small_A))))))));
+
+  ex14 = UseCl TPres ASimul PNeg (PredVP (UsePron i_Pron) (AdvVP (ReflV2
+           (UseVS fear_VS)) now_Adv));
+
+  ex15 = UseCl TPres ASimul PPos (PredVP (UsePron i_Pron) (ComplV2 (UseVQ
+           wonder_VQ) (ConjNP or_Conj (BaseNP somebody_NP something_NP))));
+
+  ex16 = UseCl TPres ASimul PPos (PredVP (DetCN every_Det (UseN baby_N))
+          (UseComp (CompNP (DConjNP either7or_DConj (BaseNP (DetCN (DetSg
+          (SgQuant IndefArt) NoOrd) (UseN boy_N)) (DetCN (DetSg (SgQuant
+           IndefArt) NoOrd) (UseN girl_N)))))));
+
+  ex17 = TQuestMark (PhrUtt NoPConj (UttQS (UseQCl TPres ASimul PPos (QuestVP
+        (IDetCN whichSg_IDet NoNum NoOrd (ApposCN (ComplN2 (ComplN3 distance_N3
+           (DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN house_N))) (DetCN (DetSg
+           (SgQuant DefArt) NoOrd) (UseN bank_N))) (DetCN (DetSg (SgQuant
+            DefArt) (OrdSuperl short_A)) (UseN road_N)))) (PassV2 find_V2)))) 
+            NoVoc) TEmpty;
+
+  ex18 = TQuestMark (PhrUtt NoPConj ( UttQS (UseQCl TPres ASimul PPos
+           (QuestIComp (CompIAdv where_IAdv) (DetCN (DetSg (SgQuant DefArt)
+            NoOrd) (RelCN (UseN teacher_N) (UseRCl TPres ASimul PPos
+           (RelVP IdRP (ComplV3 sell_V3 (PPartNP (DetCN (DetPl (PlQuant DefArt)
+           NoNum NoOrd) (UseN book_N)) read_V2) (DetCN (DetPl (PlQuant IndefArt)
+           NoNum NoOrd) (UseN student_N)))))))))) NoVoc) TEmpty;
+
+  ex19 = UttIAdv (PrepIP with_Prep (AdvIP whoSg_IP (ConjAdv and_Conj (BaseAdv
+           (PositAdvAdj cold_A) (PositAdvAdj warm_A)))));
+
+  ex20 = UttAdv (DConjAdv either7or_DConj (ConsAdv here7from_Adv (BaseAdv
+           there_Adv everywhere_Adv)));
+
+  ex21 = TExclMark (PhrUtt NoPConj (UttImpPl PNeg (ImpVP (UseV die_V)))
+           please_Voc) TEmpty;
+
+  ex22 = TQuestMark (PhrUtt NoPConj (UttIP (IDetCN how8many_IDet NoNum NoOrd
+           (UseN year_N))) (VocNP (DetCN (DetSg (SgQuant (PossPron i_Pron))
+            NoOrd) (UseN friend_N)))) TEmpty;
+
+  ex23 = UttVP (PassV2 know_V2);
+
+  ex24 = UseCl TPres ASimul PPos (PredVP (DetCN (DetSg MassDet NoOrd) (SentCN
+           (UseN song_N) (EmbedVP (UseV sing_V)))) (UseComp (CompAP 
+           (PositA (UseA2 easy_A2V)))));
+
+  ex25 = UseCl TPast ASimul PNeg (PredVP (UsePron she_Pron) (ComplV2 know_V2
+           (DetCN (DetSg MassDet NoOrd) (AdvCN (UseN industry_N) (PrepNP
+        before_Prep (DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN university_N)))))));
+
+ ex26 = UseCl TPres ASimul PPos (PredVP (UsePron she_Pron) (UseComp (CompAP
+          (AdAP almost_AdA (SentAP (ComplA2 married_A2 (DetCN (DetSg (SgQuant
+          (PossPron she_Pron)) NoOrd) (UseN cousin_N))) (EmbedQS (UseQCl 
+           TPast ASimul PPos (QuestCl (PredVP (UsePron youPol_Pron)
+          (ComplV2 watch_V2 (DetCN (DetSg (SgQuant DefArt) NoOrd) 
+          (UseN television_N))))))))))));
+
+  ex27 = UseCl TPres ASimul PPos (ImpersCl (ComplVV can8know_VV (UseComp 
+           (CompAdv (PositAdvAdj important_A)))));
+}
+
+
+
+
diff --git a/lib/resource-1.0/Examples/ResExamplesEng.gf b/lib/resource-1.0/Examples/ResExamplesEng.gf
new file mode 100644
index 000000000..2405125c7
--- /dev/null
+++ b/lib/resource-1.0/Examples/ResExamplesEng.gf
@@ -0,0 +1,33 @@
+--# -path=.:../abstract:../english:../common:../../prelude
+
+concrete ResExamplesEng of ResExamples =  LangEng ** {
+
+lin
+  ex1 = {s = ["Example 1."]};
+  ex2 = {s = ["Example 2."]};
+  ex3 = {s = ["Example 3."]};
+  ex4 = {s = ["Example 4."]};
+  ex5 = {s = ["Example 5."]};
+  ex6 = {s = ["Example 6."]};
+  ex7 = {s = ["Example 7."]};
+  ex8 = {s = ["Example 8."]};
+  ex9 = {s = ["Example 9."]};
+  ex10 = {s = ["Example 10."]};
+  ex11 = {s = ["Example 11."]};
+  ex12 = {s = ["Example 12."]};
+  ex13 = {s = ["Example 13."]};
+  ex14 = {s = ["Example 14."]};
+  ex15 = {s = ["Example 15."]};
+  ex16 = {s = ["Example 16."]};
+  ex17 = {s = ["Example 17."]};
+  ex18 = {s = ["Example 18."]};
+  ex19 = {s = ["Example 19."]};
+  ex20 = {s = ["Example 20."]};
+  ex21 = {s = ["Example 21."]};
+  ex22 = {s = ["Example 22."]};
+  ex23 = {s = ["Example 23."]};
+  ex24 = {s = ["Example 24."]};
+  ex25 = {s = ["Example 25."]};
+  ex26 = {s = ["Example 26."]};
+  ex27 = {s = ["Example 27."]};
+}
\ No newline at end of file
diff --git a/lib/resource-1.0/Examples/ResExamplesRus.gf b/lib/resource-1.0/Examples/ResExamplesRus.gf
new file mode 100644
index 000000000..90c908202
--- /dev/null
+++ b/lib/resource-1.0/Examples/ResExamplesRus.gf
@@ -0,0 +1,34 @@
+--# -path=.:../abstract:../russian:../common:../../prelude
+
+concrete ResExamplesRus of ResExamples =  LangRus ** {
+
+lin
+  ex1 = {s = ["Example 1."]};
+  ex2 = {s = ["Example 2."]};
+  ex3 = {s = ["Example 3."]};
+  ex4 = {s = ["Example 4."]};
+  ex5 = {s = ["Example 5."]};
+  ex6 = {s = ["Example 6."]};
+  ex7 = {s = ["Example 7."]};
+  ex8 = {s = ["Example 8."]};
+  ex9 = {s = ["Example 9."]};
+  ex10 = {s = ["Example 10."]};
+  ex11 = {s = ["Example 11."]};
+  ex12 = {s = ["Example 12."]};
+  ex13 = {s = ["Example 13."]};
+  ex14 = {s = ["Example 14."]};
+  ex15 = {s = ["Example 15."]};
+  ex16 = {s = ["Example 16."]};
+  ex17 = {s = ["Example 17."]};
+  ex18 = {s = ["Example 18."]};
+  ex19 = {s = ["Example 19."]};
+  ex20 = {s = ["Example 20."]};
+  ex21 = {s = ["Example 21."]};
+  ex22 = {s = ["Example 22."]};
+  ex23 = {s = ["Example 23."]};
+  ex24 = {s = ["Example 24."]};
+  ex25 = {s = ["Example 25."]};
+  ex26 = {s = ["Example 26."]};
+  ex27 = {s = ["Example 27."]};
+
+}
\ No newline at end of file
diff --git a/lib/resource-1.0/Examples/examples.Abs.gf b/lib/resource-1.0/Examples/examples.Abs.gf
new file mode 100644
index 000000000..5d48cc9ac
--- /dev/null
+++ b/lib/resource-1.0/Examples/examples.Abs.gf
@@ -0,0 +1,86 @@
+--include test.Abs.gf;
+  include ../test.Abs.gf;
+
+cat Text ;
+
+fun 
+  onePhraseText : Phr -> Text ;
+  combine: Text -> Text -> Text ;
+  ex1, ex2, ex3, ex4, ex5, ex6, ex7, ex8, ex9, ex10, ex11, 
+    ex12, ex13, ex14, ex15, ex16, ex17, ex18, ex19: Text ;
+  russian : Adj1 ;
+  parkedNear : Adj2 ;
+
+def 
+  ex1 = onePhraseText (IndicPhrase (PredVP HeNP (PosVS Say (PredVP ThouNP (AdvVP (PosV Run ) Well))))) ;
+
+  ex2 = onePhraseText (IndicPhrase (PredVP SheNP (NegTV Send (DefOneNP (ModAdj (ConjAP OrConj (ConsAP
+          (TwoAP (PositAdjP Big ) (PositAdjP Small ) ) (ConjDAP EitherOr
+          (TwoAP (PositAdjP Old ) (PositAdjP Young ) ) ) ) ) (UseN Car)))))) ;
+
+  ex3 = onePhraseText (IndicPhrase (SubjS IfSubj (PredVP (UsePN John ) (AdvVP (NegV Walk ) Always ))                              (PredVP
+          WeNP (AdvVP (PosTV SwitchOn (IndefOneNP (UseN Light ) ))
+          (LocNP (DetNP EveryDet (ModAdj (PositAdjP Old ) (UseN House ))))))));
+
+  ex4 = onePhraseText (IndicPhrase (ConjDS EitherOr (TwoS (PredVP TheyNP (PosA (ComparAdjP Young YeNP ))) 
+          (PredVP INP (PosCN (AppFun Mother (SuperlNP Big (UseN Man ))))))));
+
+  ex5 = onePhraseText (IndicPhrase (PredVP (ModGenMany YeNP (AdvCN (UseFun
+          Mother ) Always ) ) (PosVS Prove (PredVP YeNP (PosA (PositAdjP
+          Small) ) ) ) ) );
+
+  ex6 = onePhraseText (IndicPhrase (PredVP (IndefManyNP (ModRC (UseN Man ) ( RelSuch ( PredVP (ModGenMany
+          TheyNP(UseFun Uncle ) ) (PosTV Love(ConjDNP NeitherNor (TwoNP
+          (DefManyNP (UseN Car )) (DefManyNP (UseN House ) ) ))) ) ) ) )
+          (NegA (PositAdjP Old )))) ;
+
+  ex7 =  onePhraseText (QuestPhrase (SubjQu WhenSubj (PredVP (IndefOneNP
+           (ModRC (UseN Man ) (RelVP IdRP (NegV Run ))))(PosV Walk ))
+           (IntVP WhoOne (PosV Run ) ) ) ) ;
+
+  ex8 =  onePhraseText (IndicPhrase (ConjS AndConj (ConsS (TwoS
+           (PredVP (DefOneNP (UseN Car)) (NegA (PositAdjP Big )))
+           (PredVP (DefOneNP (UseN House)) (PosA (PositAdjP Small ))))
+           (PredVP SheNP (PosA (PositAdjP Old)) )))) ; 
+  
+  ex9 = onePhraseText (ImperMany (SubjImper WhenSubj (PredVP YeNP
+          (PosA (PositAdjP Young ) ) ) (ImperVP (PosV Walk) ) ) ); 
+
+  ex10 = onePhraseText (QuestPhrase (IntSlash (FunIP Uncle (NounIPMany
+           (UseN Woman ) ) ) (PosSlashTV INP Wait ) ) ) ;
+
+  ex11 = onePhraseText (QuestPhrase (QuestAdv WhyIAdv TheyNP (PosTV
+           Love (UsePN Mary ) ) ) ) ;
+
+  ex12 = onePhraseText (QuestPhrase (QuestVP WeNP (PosCN (UseN Man ) ) ) );
+
+  ex13 = combine (combine (onePhraseText PhrYes ) (onePhraseText
+           (PhrNP (DetNP MostDet (UseN Car ) ) ) ) ) (combine
+           (onePhraseText (PhrManyCN (ModAdj (PositAdjP Old ) (UseN House 
+           ) ) ) ) (onePhraseText (PhrIAdv HowIAdv ) ) ) ;
+
+  ex14 = onePhraseText (IndicPhrase (PredVP SheNP (PosNP (IndefOneNP (ModRC
+         (UseN Woman) (RelSlash(FunRP Mother IdRP)(PosSlashTV HeNP Wait)))))));
+
+  ex15 = onePhraseText (IndicPhrase (PredVP (ConjNP OrConj (ConsNP (TwoNP
+           (UsePN Mary ) (UsePN John ) ) (ConjDNP EitherOr (TwoNP YouNP INP
+           ) ) ) ) (PosA (PositAdjP Young ) ) ) );
+
+  ex16 = onePhraseText (IndicPhrase (PredVP INP (PosTV Love (ConjNP AndConj
+           (TwoNP (IndefManyNP (ModAdj (PositAdjP Old ) (UseN House )))
+           (IndefManyNP (ModAdj (PositAdjP Young) (UseN Woman ) ))))))) ;
+
+  ex18 = combine ex1 (combine ex2 (combine ex3 (combine ex4 (combine ex5 
+           (combine ex6 (combine ex7 (combine ex8 (combine ex9 (combine ex10 
+           (combine ex11 (combine ex12  (combine ex14 (combine ex15 
+           ( combine ex16 ex13)))))))))))))) ;
+
+  ex17 = onePhraseText (PhrManyCN (ModAdj (ComplAdj parkedNear (DefOneNP
+           (ModAdj (AdjP1 russian ) (UseN House ) ) ) )(UseN  Car ) ) ) ;
+
+  ex19 = combine ex1 (combine ex2 (combine ex3 (combine ex4 (combine ex5 
+           (combine ex6 (combine ex7 (combine ex8 (combine ex9 (combine ex10 
+           (combine ex11 (combine ex12  (combine ex14 (combine ex15 
+           ( combine ex16 (combine ex17 ex13))))))))))))))) ;
+
+
diff --git a/lib/resource-1.0/Examples/examples.Deu.gf b/lib/resource-1.0/Examples/examples.Deu.gf
new file mode 100644
index 000000000..a621834bb
--- /dev/null
+++ b/lib/resource-1.0/Examples/examples.Deu.gf
@@ -0,0 +1,33 @@
+include 
+  examples.Abs.gf;
+--  test.Deu.gf;
+  ../test.Deu.gf;
+
+lincat 
+  Text = SS;
+
+lin
+  onePhraseText t = t ;
+  combine txt1 txt2 = { s = txt1.s ++ "<p>" ++ txt2.s } ;   
+--  combine txt1 txt2 = { s = txt1.s ++ txt2.s } ;   
+
+  ex1 = {s = ["Beispiel 1."]};
+  ex2 = {s = ["Beispiel 2."]};
+  ex3 = {s = ["Beispiel 3."]};
+  ex4 = {s = ["Beispiel 4."]};
+  ex5 = {s = ["Beispiel 5."]};
+  ex6 = {s = ["Beispiel 6."]};
+  ex7 = {s = ["Beispiel 7."]};
+  ex8 = {s = ["Beispiel 8."]};
+  ex9 = {s = ["Beispiel 9."]};
+  ex10 = {s = ["Beispiel 10."]};
+  ex11 = {s = ["Beispiel 11."]};
+  ex12 = {s = ["Beispiel 12."]};
+  ex13 = {s = ["Beispiel 13."]};
+  ex14 = {s = ["Beispiel 14."]};
+  ex15 = {s = ["Beispiel 15."]};
+  ex16 = {s = ["Beispiel 16."]};
+  ex17 = {s = ["Beispiel 17."]};
+  ex18 = {s = ["Beispiel 18. A combination of ex1-ex16"]};
+  ex19 = {s = ["Beispiel 19. A combination of ex1-ex17"]};
+
diff --git a/lib/resource-1.0/Examples/examples.Eng.gf b/lib/resource-1.0/Examples/examples.Eng.gf
new file mode 100644
index 000000000..658e9bba1
--- /dev/null
+++ b/lib/resource-1.0/Examples/examples.Eng.gf
@@ -0,0 +1,33 @@
+include 
+  examples.Abs.gf;
+--  test.Eng.gf;
+  ../test.Eng.gf;
+
+lincat 
+  Text = SS;
+
+lin
+  onePhraseText t = t ;
+  combine txt1 txt2 = { s = txt1.s ++ "<p>" ++ txt2.s } ;   
+  russian = simpleAdj "Russian"; 
+  parkedNear = (simpleAdj "parked") ** { s2 = "near" };
+
+  ex1 = {s = ["Example 1."]};
+  ex2 = {s = ["Example 2."]};
+  ex3 = {s = ["Example 3."]};
+  ex4 = {s = ["Example 4."]};
+  ex5 = {s = ["Example 5."]};
+  ex6 = {s = ["Example 6."]};
+  ex7 = {s = ["Example 7."]};
+  ex8 = {s = ["Example 8."]};
+  ex9 = {s = ["Example 9."]};
+  ex10 = {s = ["Example 10."]};
+  ex11 = {s = ["Example 11."]};
+  ex12 = {s = ["Example 12."]};
+  ex13 = {s = ["Example 13."]};
+  ex14 = {s = ["Example 14."]};
+  ex15 = {s = ["Example 15."]};
+  ex16 = {s = ["Example 16."]};
+  ex17 = {s = ["Example 17."]};
+  ex18 = {s = ["Example 18. A combination of ex1-ex16"]};
+  ex19 = {s = ["Example 19. A combination of ex1-ex17"]};
\ No newline at end of file
diff --git a/lib/resource-1.0/Examples/examples.Fra.gf b/lib/resource-1.0/Examples/examples.Fra.gf
new file mode 100644
index 000000000..22ebd99b3
--- /dev/null
+++ b/lib/resource-1.0/Examples/examples.Fra.gf
@@ -0,0 +1,35 @@
+include 
+  examples.Abs.gf;
+--  test.Fra.gf;
+  ../test.Fra.gf;
+
+lincat 
+  Text = SS;
+
+lin
+  onePhraseText t = t ;
+  combine txt1 txt2 = { s = txt1.s ++ "<p>" ++ txt2.s } ;   
+--  combine txt1 txt2 = { s = txt1.s ++ txt2.s } ;   
+  russian = mkAdjective (adjJeune "russe") adjPost ; 
+  parkedNear = mkAdjective (adjGrand "gar�") adjPost ** 
+       {s2 = "pr�s"; c = genitive};
+
+  ex1 = {s = ["Example 1."]};
+  ex2 = {s = ["Exemple 2."]};
+  ex3 = {s = ["Exemple 3."]};
+  ex4 = {s = ["Exemple 4."]};
+  ex5 = {s = ["Exemple 5."]};
+  ex6 = {s = ["Exemple 6."]};
+  ex7 = {s = ["Exemple 7."]};
+  ex8 = {s = ["Exemple 8."]};
+  ex9 = {s = ["Exemple 9."]};
+  ex10 = {s = ["Exemple 10."]};
+  ex11 = {s = ["Exemple 11."]};
+  ex12 = {s = ["Exemple 12."]};
+  ex13 = {s = ["Exemple 13."]};
+  ex14 = {s = ["Exemple 14."]};
+  ex15 = {s = ["Exemple 15."]};
+  ex16 = {s = ["Exemple 16."]};
+  ex17 = {s = ["Exemple 17."]};
+  ex18 = {s = ["Exemple 18. Une combination de ex1-ex16"]};
+  ex19 = {s = ["Exemple 19. Une combination de ex1-ex17"]};
\ No newline at end of file
diff --git a/lib/resource-1.0/Examples/examples.Ita.gf b/lib/resource-1.0/Examples/examples.Ita.gf
new file mode 100644
index 000000000..f6513b64b
--- /dev/null
+++ b/lib/resource-1.0/Examples/examples.Ita.gf
@@ -0,0 +1,33 @@
+include 
+  examples.Abs.gf;
+--  test.Ita.gf;
+  ../test.Ita.gf;
+
+lincat 
+  Text = SS;
+
+lin
+  onePhraseText t = t ;
+  combine txt1 txt2 = { s = txt1.s ++ "<p>" ++ txt2.s } ;   
+--  combine txt1 txt2 = { s = txt1.s ++ txt2.s } ;   
+
+  ex1 = {s = ["Esempio 1."]};
+  ex2 = {s = ["Esempio 2."]};
+  ex3 = {s = ["Esempio 3."]};
+  ex4 = {s = ["Esempio 4."]};
+  ex5 = {s = ["Esempio 5."]};
+  ex6 = {s = ["Esempio 6."]};
+  ex7 = {s = ["Esempio 7."]};
+  ex8 = {s = ["Esempio 8."]};
+  ex9 = {s = ["Esempio 9."]};
+  ex10 = {s = ["Esempio 10."]};
+  ex11 = {s = ["Esempio 11."]};
+  ex12 = {s = ["Esempio 12."]};
+  ex13 = {s = ["Esempio 13."]};
+  ex14 = {s = ["Esempio 14."]};
+  ex15 = {s = ["Esempio 15."]};
+  ex16 = {s = ["Esempio 16."]};
+  ex17 = {s = ["Esempio 17."]};
+  ex18 = {s = ["Esempio 18. A combination of ex1-ex16"]};
+  ex19 = {s = ["Esempio 19. A combination of ex1-ex17"]};
+
diff --git a/lib/resource-1.0/Examples/examples.RusU.gf b/lib/resource-1.0/Examples/examples.RusU.gf
new file mode 100644
index 000000000..c7b538ba4
--- /dev/null
+++ b/lib/resource-1.0/Examples/examples.RusU.gf
@@ -0,0 +1,38 @@
+include 
+  examples.Abs.gf;
+--  test.RusU.gf;
+  ../test.RusU.gf;
+
+
+lincat 
+  Text = SS;
+
+lin
+  onePhraseText t = t ;
+  combine txt1 txt2 = { s = txt1.s ++ "<p>" ++ txt2.s } ;   
+--  combine txt1 txt2 = { s = txt1.s ++ txt2.s } ;   
+  russian = russkij;
+--  parkedNear = mkAdj2 (adjEnd_uyj "запаркованн" ) "около" Gen ;
+
+  parkedNear = (uy_j_EndDecl "запаркованн" ) ** { s2 = "около";
+                c= Gen };
+
+  ex1 = {s = ["Example 1."]};
+  ex2 = {s = ["Example 2."]};
+  ex3 = {s = ["Example 3."]};
+  ex4 = {s = ["Example 4."]};
+  ex5 = {s = ["Example 5."]};
+  ex6 = {s = ["Example 6."]};
+  ex7 = {s = ["Example 7."]};
+  ex8 = {s = ["Example 8."]};
+  ex9 = {s = ["Example 9."]};
+  ex10 = {s = ["Example 10."]};
+  ex11 = {s = ["Example 11."]};
+  ex12 = {s = ["Example 12."]};
+  ex13 = {s = ["Example 13."]};
+  ex14 = {s = ["Example 14."]};
+  ex15 = {s = ["Example 15."]};
+  ex16 = {s = ["Example 16."]};
+  ex17 = {s = ["Example 17."]};
+  ex18 = {s = ["Example 18. A combination of ex1-ex16"]};
+  ex19 = {s = ["Example 19. A combination of ex1-ex17"]};
\ No newline at end of file
diff --git a/lib/resource-1.0/Examples/examples.Swe.gf b/lib/resource-1.0/Examples/examples.Swe.gf
new file mode 100644
index 000000000..4ac18a774
--- /dev/null
+++ b/lib/resource-1.0/Examples/examples.Swe.gf
@@ -0,0 +1,34 @@
+include 
+  examples.Abs.gf;
+--  test.Swe.gf;
+  ../test.Swe.gf;
+
+lincat 
+  Text = SS;
+
+lin
+  onePhraseText t = t ;
+  combine txt1 txt2 = { s = txt1.s ++ "<p>" ++ txt2.s } ;   
+--  combine txt1 txt2 = { s = txt1.s ++ txt2.s } ;   
+  russian = extAdjective (aFin "rysk");
+  parkedNear = extAdjective (aFin "parkerad") ** { s2 = "vid" };
+
+  ex1 = {s = ["Exempel 1."]};
+  ex2 = {s = ["Exempel 2."]};
+  ex3 = {s = ["Exempel 3."]};
+  ex4 = {s = ["Exempel 4."]};
+  ex5 = {s = ["Exempel 5."]};
+  ex6 = {s = ["Exempel 6."]};
+  ex7 = {s = ["Exempel 7."]};
+  ex8 = {s = ["Exempel 8."]};
+  ex9 = {s = ["Exempel 9."]};
+  ex10 = {s = ["Exempel 10."]};
+  ex11 = {s = ["Exempel 11."]};
+  ex12 = {s = ["Exempel 12."]};
+  ex13 = {s = ["Exempel 13."]};
+  ex14 = {s = ["Exempel 14."]};
+  ex15 = {s = ["Exempel 15."]};
+  ex16 = {s = ["Exempel 16."]};
+  ex17 = {s = ["Exempel 17."]};
+  ex18 = {s = ["Exempel 18. En combination av ex1-ex16"]};
+  ex19 = {s = ["Exempel 19. En combination av ex1-ex17"]};
\ No newline at end of file
diff --git a/lib/resource-1.0/russian/LexiconRus.gf b/lib/resource-1.0/russian/LexiconRus.gf
new file mode 100644
index 000000000..a4154a944
--- /dev/null
+++ b/lib/resource-1.0/russian/LexiconRus.gf
@@ -0,0 +1,409 @@
+--# -path=.:../abstract:../common:../../prelude
+
+--
+concrete LexiconRus of Lexicon = CatRus ** 
+  open ParadigmsRus, Prelude, StructuralRus, MorphoRus in {
+--, IrregRus
+flags 
+  optimize=values ;
+  coding=utf8 ;
+lin
+  airplane_N = nTelefon "самолет" ;
+  answer_V2S = dirV2 (regV imperfective  first "отвеча" "ю" "отвечал" "отвечай" "отвечать" );
+  apartment_N = nMashina "квартир" ;
+  apple_N = nChislo "яблок" ; 
+  art_N = nChislo "искусств" ;
+  ask_V2Q = dirV2 (regV imperfective  first "спрашива" "ю" "спрашивал" "спрашивай" "спрашивать") ;
+  baby_N = nMalush "малыш";
+  bad_A = AKakoj_Nibud  "плох" "" "хуже";
+  bank_N = nBank "банк" ;
+  beautiful_A =  AStaruyj "красив" "красивее";
+  become_VA = regV perfective second "станов" "лю" "стал" "стань" "стать" ;
+  beer_N = nChislo "пив" ;
+  beg_V2V = dirV2 (mkV  imperfective  "прошу" "просишь" "просит" "просим" "просите" "просят" "просил" "проси" "просить" );
+  big_A = AKakoj_Nibud  "больш" "" "больше" ;
+  bike_N = nTelefon "велосипед" ;
+  bird_N = nEdinica "птиц" ;
+  black_A = AStaruyj  "чёрн" "чернее";
+  blue_A =  AMolodoj  "голуб" "голубее";
+  boat_N = nMashina "лодк" ;
+  book_N = nNoga "книг" ;
+  boot_N = nBank "сапог" ;
+  boss_N = nStomatolog "начальник" ;
+  boy_N = nStomatolog "мальчик" ;
+  bread_N = nAdres "хлеб" ;
+  break_V2 = dirV2 (regV imperfective first "прерыва" "ю" "прерывал" "прерывай" "прерывать" );
+
  broad_A = AMalenkij  "широк" "шире";
+  brother_N2 = mkN2  (nBrat "брат") ;
+  brown_A = AStaruyj  "коричнев" "коричневее";
+  butter_N = nChislo "масл";
+  buy_V2 = dirV2 (regV imperfective first "покупа" "ю" "покупал" "покупай" "покупать" );
+  camera_N = nMashina "kamer" ;
+  cap_N = nNoga "чашк" ; -- чаш-ек Pl-Gen
+  car_N = nMashina "машин" ;
+  carpet_N =  mkN "ковёр" "ковра" "ковру" "ковёр" "ковром" "ковре" "ковры" "ковров" "коврам" "ковры" "коврами" "коврах" masculine inanimate;
+  cat_N = nMashina "кошк" ;
+ceiling_N =  nPotolok "потол" ; 
+  chair_N = nStul "стул"  ;
+cheese_N = nTelefon "сыр" ;
+child_N = mkN "ребёнок" "ребёнка" "ребёнку" "ребёнка" "ребёнком" "ребёнке" "дети"  "детей" "детям" "детей" "детьми"  "детях" masculine animate ;
+  church_N = mkN "церковь" "церкви" "церкви" "церковь" "церковью" "церкви" "церкви" "церквей" "церквям" "церкви" "церквями" "церквях" masculine inanimate;
+  city_N = nAdres "город" ;

+  clean_A =  AStaruyj  "чист" "чище"; 
+  clever_A =  AStaruyj "умн" "умнее";
+  close_V2= dirV2 (regV imperfective first "закрыва" "ю" "закрывал" "закрывай" "закрывать" );
+  coat_N = mkIndeclinableNoun "пальто" masculine inanimate ;
+  cold_A =  AStaruyj  "холодн" "холоднее";
+  come_V = regV imperfective first "прихо" "жу" "приходил" "приходи" "приходить" ;
+  computer_N = nTelefon  "компьютер" ;
+  country_N = nMashina "стран" ;
+cousin_N = nTelefon "кузен" ;
+cow_N = nMashina "коров" ;
+die_V = regV imperfective first "умира" "ю" "умирал" "умирай" "умирать" ;
+dirty_A =  AStaruyj  "грязн" "грязнее" ;
+doctor_N = nAdres "доктор" ;
+dog_N = nNoga "собак" ;
+door_N = nBol "двер" ;
+drink_V2 = dirV2 (regV imperfective firstE "пь" "ю" "пил" "пей" "пить" );
+eat_V2 = dirV2 (regV imperfective first "куша" "ю" "кушал" "кушай" "кушать" );
+enemy_N = nStomatolog "враг" ;
+factory_N = nNoga "фабрик" ;
+father_N2 = mkN2 (mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate);
+fear_VS= regV imperfective second "бо" "ю" "боял" "бой" "боять" ;
+find_V2 = dirV2 (mkV imperfective   "нахожу" "находишь" "находит" "находим" "находите" "находят" "находил" "находи" "находить" );
+fish_N = nMashina "рыб" ;
+floor_N = nTelefon "пол" ;
+forget_V2= dirV2 (regV imperfective first "забыва" "ю" "забывал" "забывай" "забывать" );
+fridge_N = nBank "холодильник" ;
+friend_N = mkN "друг" "друга" "другу" "друга" "другом" "друге" "друзья" "друзей" "друзьям" "друзей" "дузьями" "друзьях" masculine animate;
+fruit_N = nTelefon "фрукт" ;
+garden_N = nTelefon  "сад" ;
+girl_N = nNoga "девочк" ;
+glove_N = nNoga "перчатк" ;
+gold_N = nChislo "золот" ;
+good_A = AKhoroshij "хорош" "лучше" ; 
+go_V= regV imperfective second "хо" "жу" "ходил" "ходи" "ходить" ;
+green_A = AStaruyj  "зелен" "зеленее" ;
+harbour_N = nTelefon "залив" ;
+hate_V2= dirV2 (regV imperfective second "ненави" "жу" "ненавидел" "ненавидь" "ненавидеть" );
+hat_N = nMashina "шляп" ;
+have_V2= dirV2 (regV imperfective first "име" "ю" "имел" "имей" "иметь" );
+hear_V2= dirV2 (regV imperfective first "слуша" "ю" "слушал" "слушай" "слушать" );
+hill_N = nTelefon  "холм" ;
+hope_VS= regV imperfective first "наде" "ю" "надеял" "надей" "надеять" ;
+horse_N = nBol "лошад" ;
+hot_A = AKhoroshij "горяч" "горячее" ;
+house_N = nAdres "дом" ;

+important_A = AStaruyj  "важн" "важнее" ;
+industry_N = nChislo "производств" ;
+iron_N = nChislo "желез" ;
+king_N = mkN "король" "короля" "королю" "короля" "королем" "короле" "короли" "королей" "королям" "королей" "королями" "королях" masculine animate;
+know_V2= dirV2 (regV imperfective first "зна" "ю" "знал" "знай" "знать" );
+lake_N = nChislo "озер" ;
+lamp_N = nMashina "ламп" ;
+learn_V2= dirV2 (regV imperfective second "уч" "у" "учил" "учи" "учить" );
+leather_N = nEdinica "кож" ;
+leave_V2= dirV2 (regV imperfective second "ухож" "у" "уходил" "уходи" "уходить" );
+like_V2= dirV2 (regV imperfective second "нрав" "лю" "нравил" "нравь" "нравить" );
+listen_V2= dirV2 (regV imperfective first "слуша" "ю" "слушал" "слушай" "слушать" );
+live_V= regV imperfective firstE "жив" "у" "жил" "живи" "жить" ;
+long_A = AStaruyj  "длинн" "длиннее" ;
+lose_V2 = dirV2 (regV imperfective first "теря" "ю" "терял" "теряй" "терять" );
+love_N = nBol "любов" ;
+love_V2= dirV2 (regV imperfective second "люб" "лю" "любил" "люби" "любить" );
+man_N = nStomatolog "человек" ;
+meat_N =nChislo "мяс" ;
+milk_N = nChislo "молок" ;
+moon_N = nMashina  "лун" ;
+mother_N2 = mkN2 ( nMashina "мам") ;
+mountain_N = nMashina "гор" ;
+music_N = nNoga "музык" ;
+narrow_A =  AStaruyj  "узк" "уже" ;

+new_A =  AStaruyj  "нов" "новее" ;
+newspaper_N = nMashina "газет" ;
+oil_N = nBol "нефть" ;
+old_A =  AStaruyj  "стар" "старше" ;
+open_V2= dirV2 (regV imperfective first "открыва" "ю" "открывал" "открывай" "открывать" );
+paper_N = nNoga "бумаг" ;
+peace_N = nTelefon "мир" ;
+pen_N = nNoga "ручк" ;
+planet_N = nMashina "планет" ;
+plastic_N = nMashina "пластмасс" ;
+play_V2 = mkV2 (regV imperfective first "игра" "ю" "играл" "играй" "играть" ) "c" instructive;
+policeman_N = nTelefon "милиционер" ;
+priest_N = nStomatolog "священник" ;
+queen_N = nMashina "королев" ;
+radio_N = mkIndeclinableNoun "радио" neuter inanimate;
+read_V2 = dirV2 (regV imperfective first "чита" "ю" "читал" "читай" "читать" );
+red_A =  AStaruyj  "красн" "краснее" ;
+religion_N = nMalyariya "религи" ;
+restaurant_N = nTelefon "ресторан" ;
+river_N = nNoga "рек" ;
+rock_N = nUroven "кам" ;
+roof_N = nEdinica "крыш" ;
+rubber_N = nMashina "резин" ;
+run_V = regV imperfective first "бега" "ю" "бегал" "бегай" "бегать" ;
+say_VS = regV imperfective second "говор" "ю" "говорил" "говори" "говорить" ;
+school_N = nMashina "школ" ;
+science_N = nNoga "наук" ;
+sea_N = nProizvedenie "мор" ;
+seek_V2 = dirV2 (regV imperfective first "ищ" "у" "искал" "ищи" "искать" );
+see_V2 = dirV2 (regV imperfective second "виж" "у" "видел" "видь" "видеть" );
+sell_V3 = tvDirDir (regV imperfective firstE "прода" "ю" "продавал" "продавай" "продавать" );
+send_V3 = tvDirDir (regV imperfective first "посыла" "ю" "посылал" "посылай" "посылать" );
+sheep_N = nMashina "овц" ;
+ship_N = nNol "корабл" ;

+shirt_N = nNoga "рубашк" ;
+shoe_N =  mkN "туфля" "туфли" "туфле" "туфлю" "туфлей" "туфле" "туфли" "туфель" "туфлям" "туфли" "туфлями" "туфлях" masculine inanimate;
+shop_N = nTelefon "магазин" ;
+short_A = AMalenkij  "коротк" "короче" ;
+silver_N = nChislo "серебр" ;
+sister_N = nMashina "сестр" ;
+sleep_V = regV imperfective second "сп" "лю" "спал" "спи" "спать" ;
+small_A = AMalenkij  "маленьк" "меньше" ;
+snake_N = nTetya"зме" ;
+sock_N = nPotolok "нос" ;
+speak_V2 = dirV2 (regV imperfective second "говор" "ю" "говорил" "говори" "говорить" );
+star_N = nMashina "звезд" ;
+steel_N = nBol "стал" ;
+stone_N = nNol "камен" ;
+stove_N = nBol "печ" ;
+student_N = nTelefon "студент" ;
+stupid_A =  AMolodoj  "тупой" "тупее" ;
+sun_N =  mkN "солнце" "солнца" "солнцу" "солнце" "солнцем" "солнце" "солнца" "солнц" "солнцам" "солнца" "солнцами" "солнцах" neuter inanimate;
+switch8off_V2 = dirV2 (regV imperfective first "выключа" "ю" "выключал" "выключай" "выключать") ;
+switch8on_V2 = dirV2 (regV imperfective first "включа" "ю" "включал" "включай" "включать") ;
+table_N = nTelefon "стол" ;
+teacher_N = nNol "учител" ;
+teach_V2 = dirV2 (regV imperfective second "уч" "у" "учил" "учи" "учить" );
+television_N = nProizvedenie "телевидени" ;
+thick_A = AStaruyj  "толст" "толще" ;
+thin_A = AMalenkij  "тонк" "тоньше" ;
+train_N = nAdres "поезд" ;
+travel_V = regV imperfective first "путешеству" "ю" "путешествовал" "путешествуй" "путешествовать" ;
+tree_N = nChislo "дерев" ;
+--trousers_N =  mkN "" "" "" "" "" "" "штаны" "штанов" "штанам" "штаны" "штанами" "штанах" masculine inanimate;
+ugly_A = AStaruyj  "некрасив" "некрасивее" ;
+understand_V2 = dirV2 (regV imperfective first "понима" "ю" "понимал" "понимай" "понимать" );
+university_N = nTelefon "университет" ;
+village_N = nMalyariya "деревн" ;
+wait_V2 = dirV2 (regV imperfective firstE "жд" "у" "ждал" "жди" "ждать" );
+walk_V = regV imperfective first "гуля" "ю" "гулял" "гуляй" "гулять" ;
+warm_A = AStaruyj  "тёпл" "теплее" ;
+war_N = nMashina "войн" ;
+watch_V2 = dirV2 (regV imperfective second "смотр" "ю" "смотрел" "смотри" "смотреть" );
+water_N = nMashina "вод" ;
+white_A = AStaruyj  "бел" "белее" ;

+window_N = nChislo "окн" ;
+wine_N = nChislo "вин" ;
+win_V2 = dirV2 (regV imperfective first "выигрыва" "ю" "выигрывал" "выигрывай" "выигрывать" );
+woman_N = nZhenchina "женщин" ;
+wood_N = nChislo "дерев" ;
+write_V2 = dirV2 (regV imperfective first "пиш" "у" "писал" "пиши" "писать" );
+yellow_A = AStaruyj  "жёлт" "желтее" ;
+young_A = AMolodoj  "молод" "моложе";
+
+  do_V2 = dirV2 (regV imperfective first "дела" "ю" "делал" "делай" "делать" );
+  now_Adv  = mkAdv "сейчас" ;
+  already_Adv  = mkAdv "уже" ;
+  song_N =  nTetya "песн" ;
+  add_V3 = mkV3 (regV imperfective first "складыва" "ю" "складывал" "складывай" "складывать" ) "" "в" accusative accusative;
+  number_N  = nChislo  "числ" ;
+  put_V2 = dirV2 (regV imperfective firstE "клад" "у" "клал" "клади" "класть" );
+  stop_V = regV imperfective first "останавлива" "ю" "останавливал" "останавливай" "останавливать";
+  jump_V = regV imperfective first "прыга" "ю" "прыгал" "прыгай" "прыгать" ;
+
+distance_N3 = mkN3 (nProizvedenie "расстояни") from_Prep to_Prep ;
+
+-- in Russian combinations with verbs are expressed with adverbs:
+-- "легко понять" ("easy to understand"), which is different from 
+-- adjective expression "легкий для понимания" ("easy for understanding")
+-- So the next to words are adjectives, since there are such adjectives
+-- in Russian, but to use them with verb would be wrong in Russian:
+fun_AV = AStaruyj "весёл" "веселее";
+easy_A2V = mkA2 (AMalenkij "лёгк" "легче") "для" genitive ;
+
+empty_A =  AMolodoj "пуст" "пустее";
+married_A2 = mkA2 (adjInvar "замужем") "за" instructive ;
+paint_V2A = dirV2 (regV imperfective first "рису" "ю" "рисовал" "рисуй"  "рисовать" ) ;
+  probable_AS = AStaruyj "возможн" "возможнее";
+ rain_V0  = idetDozhd verbIdti; --  No such verb in Russian!
+talk_V3 = mkV3 (regV imperfective second "говор" "ю" "говорил" "говори" "говорить" ) "с" "о" instructive prepositional;
+wonder_VQ = regV imperfective first "интересу" "ю" "интересовал" "интересуй" "интересовать";  
+
+    -- Nouns
+
+    animal_N = nZhivotnoe "животн" ;
+    ashes_N = nPepel "пеп" ;
+    back_N = nMashina "спин" ;
+    bark_N = mkN "лай" "лая" "лаю" "лай" "лаем" "лае" "лаи" "лаев" "лаям" "лаи" "лаями" "лаях" masculine inanimate;
+    belly_N = nTelefon "живот" ;
+    bird_N = nEdinica "птиц" ;
+    blood_N = nBol "кров" ;
+    bone_N = nBol "кост" ;
+    breast_N = nBol "грудь" ;
+    
+    cloud_N = nChislo "облак" ;
+    day_N = mkN "день" "дня" "дню" "день" "днём" "дне" "дни" "дней" "дням" "дни" "днями" "днях" masculine inanimate ;
+
+    dust_N = nBol "пыл" ;
+   ear_N = nChislo "ухо" ;
+   earth_N = nTetya "земл" ;
+    egg_N = nChislo "яйц" ;
+    eye_N = nAdres "глаз" ;
+    fat_N = nBank "жир" ;
+
+--    father_N = UseN2 father_N2 ;
+    feather_N = mkN "перо" "пера" "перу" "пера" "пером" "пере" "перья" "перьев" "перьям" "перьев" "перьями" "перьях" neuter inanimate ;
+   fingernail_N = mkN "ноготь" "ногтя" "ногтю" "ногтя" "ногтем" "ногте" "ногти" "ногтей" "ногтям" "ногтей" "ногтями" "ногтях" masculine inanimate ;
+    fire_N = mkN "огонь" "огня" "огню" "огня" "огнём" "огне" "огни" "огней" "огням" "огней" "огнями" "огнях" masculine inanimate ;
+    fish_N = nMashina "рыб" ;
+    flower_N = mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate ;
+    fog_N = nTelefon "туман" ;
+    foot_N = nTetya "ступн" ;
+    forest_N = nAdres "лес" ;
+    fruit_N = nTelefon "фрукт";
+    grass_N = nMashina "трав" ;
+    guts_N =  nBol "внутренност" ;
+    hair_N = nTelefon "волос" ;
+   hand_N =  nNoga "рук" ;
+   head_N = nMashina "голов" ;
+   heart_N = mkN "сердце" "сердца" "сердцу" "сердца" "сердцем" "сердце" "сердца" "сердец" "сердцам" "сердец" "сердцами" "сердцах" neuter inanimate;
+   horn_N = nAdres "рог" ;
+   husband_N = mkN "муж" "мужа" "мужу" "мужа" "мужем" "муже" "мужья" "мужей" "мужьям" "мужей" "мужьями" "мужьях" masculine animate ;
+   ice_N = mkN "лёд" "льда" "льду" "льда" "льдом" "льде" "льды" "льдов" "льдам" "льдов" "льдами" "льдах" masculine inanimate ;
+   knee_N = mkN "колено" "колена" "колену" "колена" "коленом" "колене" "колени" "колен" "коленам" "колен" "коленями" "коленях" neuter inanimate ;
+    lake_N = nChislo "озер" ;
+   leaf_N = nStul "лист" ;
+   leg_N = nNoga "ног" ;
+  liver_N = nBol "печен" ;
+  louse_N = mkN "вошь" "вши" "вши" "вошь" "вошью" "вше" "вши" "вшей" "вшам" "вшей" "вшами" "вшах" feminine animate ;
+   
+    meat_N = nChislo "мяс" ;
+    moon_N = nMashina "лун" ;
+    
+
+    mountain_N = nMashina "гор" ;
+   mouth_N =  mkN "рот" "рта" "рту" "рот" "ртом" "рте" "рты" "ртов" "ртам" "рты" "ртами" "ртах" masculine inanimate;
+  name_N = mkN "имя" "имени" "имени" "имя" "именем" "имени" "имена" "имён" "именам" "имена" "именами" "именах" neuter inanimate;
+  neck_N = nTetya "ше"  ;
+  night_N = nBol "ноч" ;
+  nose_N = nTelefon "нос" ;
+  person_N = nBol "личность" ;
+  rain_N = nNol "дожд" ;
+   
+  road_N = nNoga "дорог" ;
+   root_N = nUroven "кор" ;
+   rope_N =  nNoga "веревк" ;
+   salt_N = nBol "сол" ;
+   sand_N = mkN "песок" "песка" "песку" "песок" "песком" "песке" "пески" "песков" "пескам" "песков" "песками" "песках" masculine inanimate ;
+    sea_N = nProizvedenie "мор" ;
+    seed_N = mkN "семя" "семени" "семении" "семя" "семенем" "семени" "семена" "семян" "семенам" "семена" "семенами" "семенах" neuter inanimate ;
+   skin_N =  nEdinica "кож" ;
+   sky_N = mkN "небо" "неба" "небу" "небо" "небом" "небе" "небеса" "небес" "небесам" "небес" "небесами" "небесах" neuter inanimate ; 
+   smoke_N =  nTelefon "дым" ;
+    snake_N = nTetya "зме" ;
+   snow_N = nAdres "снег" ;
+    star_N = nMashina "звезд" ;
+    stick_N = nNoga "палк" ;
+
+    
+   tail_N = nTelefon "хвост" ;
+   tongue_N = nBank "язык" ;
+   tooth_N = nTelefon "зуб" ;
+    tree_N = nChislo "дерев" ;
+    water_N = nMashina "вод" ;
+    wife_N = nMashina "жен" ;
+    wind_N = mkN "ветер" "ветра" "ветру" "ветер" "ветром" "ветра" "ветров" "ветра" "ветрам" "ветров" "ветрами" "ветрах" masculine inanimate ;
+    wing_N = mkN "крыло" "крыла" "крылу" "крыло" "крылом" "крыле" "крылья" "крыльев" "крыльям" "крылья" "крыльями" "крыльях" neuter inanimate ;
+    
+   worm_N = nNol "черв" ;
+   year_N = nAdres "год" ;
+
+
+-- Verbs
+
+    bite_V2 = dirV2 (regV imperfective  first "куса" "ю" "кусал" "кусай" "кусать");
+    blow_V = regV imperfective  first "ду" "ю" "дул" "дуй" "дуть"  ;
+   breathe_V = regV imperfective  second "дыш" "у" "дышал" "дыши" "дышать"  ;
+   burn_V = regV imperfective  second "гор" "ю" "горел" "гори" "гореть"  ;
+   count_V2 = dirV2 (regV imperfective  first "счита" "ю" "считал" "считай" "считать"  ) ;
+    cut_V2 = dirV2 (regV imperfective  first "реж" "у" "резал" "режь" "резать" ) ;
+    dig_V = regV imperfective  first "копа" "ю" "копал" "копай" "копать"  ;
+   
+    
+    fall_V = regV imperfective  first "пада" "ю" "падал" "падай" "падать"  ;
+    
+    fight_V2 = dirV2 (regV imperfective  firstE "дер" "у" "драл" "дери" "драть" ) ;
+    float_V = regV imperfective  firstE "плыв" "у" "плыл" "плыви" "плыть"  ;
+    flow_V = regV imperfective  firstE "тек" "у" "тёк" "теки" "течь"  ;
+    fly_V = regV imperfective  second "лета" "ю" "летал" "летай" "летать"  ;
+    freeze_V = regV imperfective  first "замерза" "ю" "замерзал" "замерзай" "замерзать"  ;
+    give_V3 = tvDirDir (regV imperfective  firstE "да" "ю" "давал" "давай" "давать" ) ;
+    
+    hit_V2 = dirV2 (regV imperfective  first "ударя" "ю" "ударял" "ударяй" "ударять"  );
+    hold_V2 = dirV2 (regV imperfective  second "держ" "у" "держал" "держи" "держать"  );
+    hunt_V2 = dirV2 (regV imperfective  second "охоч" "у" "охотил" "охоть" "охотить" ) ;
+    kill_V2 = dirV2 (regV imperfective  first "убива" "ю" "убивал" "убивай" "убивать" ) ;
+    
+    laugh_V = regV imperfective  firstE "сме" "ю" "смеял" "смей" "смеять"  ;
+    lie_V = regV imperfective  firstE "лг" "у" "лгал" "лги" "лгать"  ;
+    play_V = regV imperfective  first "игра" "ю" "играл" "играй" "играть"  ;
+    pull_V2 = dirV2 (regV imperfective  first "тян" "у" "тянул" "тяни" "тянуть" ) ;
+    push_V2 = dirV2 (regV imperfective  first "толка" "ю" "толкал" "толкай" "толкать"  );
+    rub_V2 = dirV2 (regV imperfective  firstE "тр" "у" "тёр" "три" "тереть"  );
+    
+    scratch_V2 = dirV2 (regV imperfective  first "чеш" "у" "чесал" "чеши" "чесать" ) ;    
+
+    sew_V = regV imperfective  firstE "шь" "ю" "шил" "шей" "шить"  ;
+    sing_V = regV imperfective  firstE "по" "ю" "пел" "пой" "петь"  ;
+    sit_V = mkV imperfective  "сижу" "сидишь" "сидит" "сидим" "сидите" "сидят" "сидел" "сиди" "сидеть"  ;
+    smell_V = regV imperfective  first "пахн" "у" "пахнул" "пахни" "пахнуть"  ;
+    spit_V = regV imperfective  firstE "плю" "ю" "плевал" "плюй" "плевать"  ;
+    split_V2 = dirV2 (regV imperfective  first "разбива" "ю" "разбивал" "разбей" "разбивать" ) ;
+    squeeze_V2 = dirV2 (regV imperfective  first "сжима" "ю" "сжимал" "сжимай" "сжимать" ) ;
+    stab_V2 = dirV2 (regV imperfective  first "кол" "ю" "колол" "коли" "колоть" ) ;
+    stand_V = regV imperfective second "сто" "ю" "стоял" "стой" "стоять"  ;
+    suck_V2 = dirV2 (regV imperfective  firstE "сос" "у" "сосал" "соси" "сосать")  ;
+    swell_V = regV imperfective  first "опуха" "ю" "опухал" "опухай" "опухать"  ;
+    swim_V = regV imperfective  first "плава" "ю" "плавал" "плавай" "плавать"  ;
+    think_V = regV imperfective  first "дума" "ю" "думал" "думай" "думать"  ;
+    throw_V2 = dirV2 (regV imperfective  first "броса" "ю" "бросал" "бросай" "бросать" ) ;
+    tie_V2 = dirV2 (regV imperfective  first "вяж" "у" "вязал" "вяжи" "вязать")  ;
+    turn_V = regV imperfective  first "поворачива" "ю" "поворачивал" "поворачивай" "поворачивать"  ;
+    vomit_V = regV imperfective  firstE "рв" "у" "рвал" "рви" "рвать"  ;
+    wash_V2 = dirV2 (regV imperfective  first "мо" "ю" "мыл" "мой" "мыть" ) ;
+    wipe_V2 = dirV2 (regV imperfective  first "вытира" "ю" "вытирал" "вытирай" "вытирать"  );
+
+
+    correct_A = AStaruyj "правильн" "правильнее"; 
+    dry_A = AMolodoj "сух" "суше";

+   
+    dull_A = AStaruyj "скучн" "скучнее";
+    far_Adv = mkAdv "далеко";
+    full_A = AStaruyj "полн" "полнее";
+    heavy_A = AStaruyj "тяжел" "тяжелее";
+    left_Ord = (uy_j_EndDecl   "лев" ) ** {lock_A = <>}; 
+    near_A = AMalenkij "близк" "ближе";
+    right_Ord = (uy_j_EndDecl  "прав") ** {lock_A = <>} ;
+    rotten_A = AMolodoj "гнил" "гнилее";
+    round_A = AStaruyj "кругл" "круглее";
+    sharp_A = AStaruyj "остр" "острее";
+    smooth_A = AMalenkij "гладк" "глаже";
+    straight_A = AMolodoj "прям" "прямее";
+    wet_A = AStaruyj "мокр" "мокрее";
+    wide_A = AMalenkij "широк" "шире";
+
+fear_V2 =dirV2 (regV imperfective first "бо" "ю" "боял" "бой" "боять" );
+paris_PN = mkPN   "Париж"  Masc  Inanimate ;
+
+
+
+
+
+   grammar_N = nNoga "грамматик";
+   language_N = nBank "язык" ;
+   rule_N = nChislo "правил" ;
+
+}
+
