diff options
Diffstat (limited to 'old-lib/resource/bulgarian/ParadigmsBul.gf')
| -rw-r--r-- | old-lib/resource/bulgarian/ParadigmsBul.gf | 1460 |
1 files changed, 0 insertions, 1460 deletions
diff --git a/old-lib/resource/bulgarian/ParadigmsBul.gf b/old-lib/resource/bulgarian/ParadigmsBul.gf deleted file mode 100644 index a22cc6fe9..000000000 --- a/old-lib/resource/bulgarian/ParadigmsBul.gf +++ /dev/null @@ -1,1460 +0,0 @@ -resource ParadigmsBul = MorphoFunsBul ** open
- Predef,
- Prelude,
- MorphoBul,
- CatBul
- in { - flags coding=cp1251 ; -
-oper
- mkN001 : Str -> N ;
- mkN001 base = let v0 = base
- in mkNoun (v0)
- (v0+"ове")
- (v0+"а")
- (v0+"-")
- DMasc ;
- mkN002 : Str -> N ;
- mkN002 base = let v0 = tk 2 base;
- v1 = last (base)
- in mkNoun (v0+"я"+v1)
- (v0+"е"+v1+"ове")
- (v0+"я"+v1+"а")
- (v0+"-")
- DMasc ;
- mkN002a : Str -> N ;
- mkN002a base = let v0 = tk 2 base;
- v1 = last (base)
- in mkNoun (v0+"я"+v1)
- (v0+"е"+v1+"ове")
- (v0+"я"+v1+"а")
- (v0+"-")
- DMasc ;
- mkN003 : Str -> N ;
- mkN003 base = let v0 = tk 3 base;
- v1 = last (base)
- in mkNoun (v0+"ръ"+v1)
- (v0+"ър"+v1+"ове")
- (v0+"ър"+v1+"а")
- (v0+"-")
- DMasc ;
- mkN004 : Str -> N ;
- mkN004 base = let v0 = tk 4 base
- in mkNoun (v0+"ятър")
- (v0+"етрове")
- (v0+"ятъра")
- (v0+"-")
- DMasc ;
- mkN005 : Str -> N ;
- mkN005 base = let v0 = base
- in mkNoun (v0)
- (v0+"ове")
- (v0+"а")
- (v0+"-")
- DMasc ;
- mkN006 : Str -> N ;
- mkN006 base = let v0 = base
- in mkNoun (v0)
- (v0+"ове")
- (v0+"а")
- (v0+"-")
- DMasc ;
- mkN007 : Str -> N ;
- mkN007 base = let v0 = base
- in mkNoun (v0)
- (v0+"и")
- (v0+"а")
- (v0+"-")
- DMasc ;
- mkN007b : Str -> N ;
- mkN007b base = let v0 = base
- in mkNoun (v0)
- (v0+"и")
- (v0+"а")
- (v0+"о")
- DMasc ;
- mkN007a : Str -> N ;
- mkN007a base = let v0 = base
- in mkNoun (v0)
- (v0+"и")
- (v0+"а")
- (v0+"е")
- DMascPersonal ;
- mkN008 : Str -> N ;
- mkN008 base = let v0 = tk 2 base;
- v1 = last (base)
- in mkNoun (v0+"е"+v1)
- (v0+v1+"и")
- (v0+"е"+v1+"а")
- (v0+"-")
- DMasc ;
- mkN008a : Str -> N ;
- mkN008a base = let v0 = tk 2 base
- in mkNoun (v0+"ец")
- (v0+"ци")
- (v0+"-")
- (v0+"ецо")
- DMasc ;
- mkN009 : Str -> N ;
- mkN009 base = let v0 = tk 2 base;
- v1 = last (base)
- in mkNoun (v0+"ъ"+v1)
- (v0+v1+"и")
- (v0+"ъ"+v1+"а")
- (v0+"-")
- DMasc ;
- mkN009a : Str -> N ;
- mkN009a base = let v0 = tk 2 base
- in mkNoun (v0+"ър")
- (v0+"рове")
- (v0+"ъра")
- (v0+"-")
- DMasc ;
- mkN010 : Str -> N ;
- mkN010 base = let v0 = tk 2 base
- in mkNoun (v0+"ър")
- (v0+"ри")
- (v0+"ра")
- (v0+"-")
- DMasc ;
- mkN011 : Str -> N ;
- mkN011 base = let v0 = tk 2 base
- in mkNoun (v0+"ъм")
- (v0+"ми")
- (v0+"ъма")
- (v0+"-")
- DMasc ;
- mkN012 : Str -> N ;
- mkN012 base = let v0 = tk 3 base
- in mkNoun (v0+"рък")
- (v0+"ърци")
- (v0+"-")
- (v0+"ърко")
- DMasc ;
- mkN013 : Str -> N ;
- mkN013 base = let v0 = tk 2 base
- in mkNoun (v0+"ец")
- (v0+"йци")
- (v0+"-")
- (v0+"ецо")
- DMasc ;
- mkN014 : Str -> N ;
- mkN014 base = let v0 = tk 1 base
- in mkNoun (v0+"к")
- (v0+"ци")
- (v0+"ка")
- (v0+"-")
- DMasc ;
- mkN014a : Str -> N ;
- mkN014a base = let v0 = tk 1 base
- in mkNoun (v0+"к")
- (v0+"ци")
- (v0+"ка")
- (v0+"ко")
- DMasc ;
- mkN015 : Str -> N ;
- mkN015 base = let v0 = tk 1 base
- in mkNoun (v0+"г")
- (v0+"зи")
- (v0+"га")
- (v0+"-")
- DMasc ;
- mkN016 : Str -> N ;
- mkN016 base = let v0 = tk 1 base
- in mkNoun (v0+"х")
- (v0+"си")
- (v0+"ха")
- (v0+"-")
- DMasc ;
- mkN017 : Str -> N ;
- mkN017 base = let v0 = tk 1 base
- in mkNoun (v0+"к")
- (v0+"ни")
- (v0+"ка")
- (v0+"-")
- DMasc ;
- mkN018 : Str -> N ;
- mkN018 base = let v0 = tk 2 base
- in mkNoun (v0+"ин")
- (v0+"и")
- (v0+"-")
- (v0+"ино")
- DMasc ;
- mkN018a : Str -> N ;
- mkN018a base = let v0 = tk 2 base;
- v1 = last (base)
- in mkNoun (v0+"и"+v1)
- (v0+"и")
- (v0+"-")
- (v0+"-")
- DMasc ;
- mkN019 : Str -> N ;
- mkN019 base = let v0 = tk 2 base
- in mkNoun (v0+"ък")
- (v0+"ци")
- (v0+"-")
- (v0+"ко")
- DMasc ;
- mkN019a : Str -> N ;
- mkN019a base = let v0 = tk 2 base
- in mkNoun (v0+"ек")
- (v0+"йци")
- (v0+"ека")
- (v0+"-")
- DMasc ;
- mkN020 : Str -> N ;
- mkN020 base = let v0 = tk 3 base;
- v1 = last (tk 2 base)
- in mkNoun (v0+v1+"ец")
- (v0+"ъ"+v1+"ци")
- (v0+"-")
- (v0+v1+"ецо")
- DMasc ;
- mkN021 : Str -> N ;
- mkN021 base = let v0 = tk 3 base
- in mkNoun (v0+"чин")
- (v0+"ци")
- (v0+"-")
- (v0+"чино")
- DMasc ;
- mkN022 : Str -> N ;
- mkN022 base = let v0 = base
- in mkNoun (v0)
- (v0+"а")
- (v0+"а")
- (v0+"-")
- DMasc ;
- mkN023 : Str -> N ;
- mkN023 base = let v0 = tk 2 base
- in mkNoun (v0+"ин")
- (v0+"а")
- (v0+"-")
- (v0+"ине")
- DMasc ;
- mkN024a : Str -> N ;
- mkN024a base = let v0 = tk 1 base
- in mkNoun (v0+"з")
- (v0+"зе")
- (v0+"-")
- (v0+"же")
- DMasc ;
- mkN024 : Str -> N ;
- mkN024 base = let v0 = base
- in mkNoun (v0)
- (v0+"е")
- (v0+"е")
- (v0+"о")
- DMascPersonal ;
- mkN025 : Str -> N ;
- mkN025 base = let v0 = base
- in mkNoun (v0)
- (v0+"я")
- (v0+"-")
- (v0+"е")
- DMascPersonal ;
- mkN026 : Str -> N ;
- mkN026 base = let v0 = base
- in mkNoun (v0)
- (v0+"илища")
- (v0+"а")
- (v0+"-")
- DMasc ;
- mkN027 : Str -> N ;
- mkN027 base = let v0 = tk 2 base
- in mkNoun (v0+"ец")
- (v0+"овце")
- (v0+"еца")
- (v0+"-")
- DMasc ;
- mkN028 : Str -> N ;
- mkN028 base = let v0 = tk 1 base
- in mkNoun (v0+"й")
- (v0+"еве")
- (v0+"я")
- (v0+"-")
- DMasc ;
- mkN028a : Str -> N ;
- mkN028a base = let v0 = tk 1 base
- in mkNoun (v0+"й")
- (v0+"йове")
- (v0+"я")
- (v0+"-")
- DMasc ;
- mkN029 : Str -> N ;
- mkN029 base = let v0 = base
- in mkNoun (v0)
- (v0+"ьове")
- (v0+"-")
- (v0+"ко")
- DMasc ;
- mkN030 : Str -> N ;
- mkN030 base = let v0 = tk 2 base
- in mkNoun (v0+"ън")
- (v0+"ньове")
- (v0+"ъня")
- (v0+"-")
- DMasc ;
- mkN031 : Str -> N ;
- mkN031 base = let v0 = base
- in mkNoun (v0)
- (v0+"и")
- (v0+"я")
- (v0+"-")
- DMasc ;
- mkN031a : Str -> N ;
- mkN031a base = let v0 = base
- in mkNoun (v0)
- (v0+"и")
- (v0+"я")
- (v0+"ю")
- DMascPersonal ;
- mkN032 : Str -> N ;
- mkN032 base = let v0 = tk 1 base
- in mkNoun (v0+"й")
- (v0+"и")
- (v0+"я")
- (v0+"-")
- DMasc ;
- mkN032a : Str -> N ;
- mkN032a base = let v0 = tk 1 base
- in mkNoun (v0+"й")
- (v0+"и")
- (v0+"я")
- (v0+"ю")
- DMascPersonal ;
- mkN033 : Str -> N ;
- mkN033 base = let v0 = tk 2 base
- in mkNoun (v0+"ен")
- (v0+"ни")
- (v0+"ена")
- (v0+"-")
- DMasc ;
- mkN034 : Str -> N ;
- mkN034 base = let v0 = tk 2 base
- in mkNoun (v0+"ът")
- (v0+"ти")
- (v0+"ътя")
- (v0+"-")
- DMasc ;
- mkN035 : Str -> N ;
- mkN035 base = let v0 = base
- in mkNoun (v0)
- (v0+"е")
- (v0+"я")
- (v0+"-")
- DMasc ;
- mkN035a : Str -> N ;
- mkN035a base = let v0 = base
- in mkNoun (v0)
- (v0+"е")
- (v0+"я")
- (v0+"ю")
- DMascPersonal ;
- mkN036 : Str -> N ;
- mkN036 base = let v0 = tk 1 base
- in mkNoun (v0+"й")
- (v0+"ища")
- (v0+"я")
- (v0+"-")
- DMasc ;
- mkN037 : Str -> N ;
- mkN037 base = let v0 = base
- in mkNoun (v0)
- (v0+"ища")
- (v0+"я")
- (v0+"-")
- DMasc ;
- mkN038 : Str -> N ;
- mkN038 base = let v0 = tk 1 base
- in mkNoun (v0+"а")
- (v0+"и")
- (v0+"-")
- (v0+"а")
- DMascPersonal ;
- mkN039 : Str -> N ;
- mkN039 base = let v0 = tk 1 base
- in mkNoun (v0+"я")
- (v0+"и")
- (v0+"-")
- (v0+"-")
- DMasc ;
- mkN040 : Str -> N ;
- mkN040 base = let v0 = tk 1 base
- in mkNoun (v0+"о")
- (v0+"овци")
- (v0+"-")
- (v0+"о")
- DMasc ;
- mkN040a : Str -> N ;
- mkN040a base = let v0 = base
- in mkNoun (v0)
- (v0+"-")
- (v0+"-")
- (v0+"-")
- DMasc ;
- mkN041 : Str -> N ;
- mkN041 base = let v0 = tk 1 base
- in mkNoun (v0+"а")
- (v0+"и")
- (v0+"и")
- (v0+"-")
- DFem ;
- mkN041a : Str -> N ;
- mkN041a base = let v0 = tk 1 base
- in mkNoun (v0+"а")
- (v0+"и")
- (v0+"и")
- (v0+"о")
- DFem ;
- mkN041b : Str -> N ;
- mkN041b base = let v0 = tk 1 base
- in mkNoun (v0+"а")
- (v0+"и")
- (v0+"и")
- (v0+"е")
- DFem ;
- mkN042 : Str -> N ;
- mkN042 base = let v0 = base
- in mkNoun (v0)
- (v0)
- (v0)
- (v0+"-")
- DFem ;
- mkN043 : Str -> N ;
- mkN043 base = let v0 = tk 3 base;
- v1 = last (tk 1 base)
- in mkNoun (v0+"я"+v1+"а")
- (v0+"е"+v1+"и")
- (v0+"е"+v1+"и")
- (v0+"-")
- DFem ;
- mkN043a : Str -> N ;
- mkN043a base = let v0 = tk 4 base;
- v1 = last (tk 2 base)
- in mkNoun (v0+"я"+v1+"ка")
- (v0+"е"+v1+"ки")
- (v0+"е"+v1+"ки")
- (v0+"-")
- DFem ;
- mkN044 : Str -> N ;
- mkN044 base = let v0 = tk 1 base
- in mkNoun (v0+"а")
- (v0+"е")
- (v0+"е")
- (v0+"-")
- DFem ;
- mkN045 : Str -> N ;
- mkN045 base = let v0 = tk 2 base
- in mkNoun (v0+"ка")
- (v0+"це")
- (v0+"це")
- (v0+"-")
- DFem ;
- mkN046 : Str -> N ;
- mkN046 base = let v0 = tk 2 base
- in mkNoun (v0+"га")
- (v0+"зе")
- (v0+"зе")
- (v0+"-")
- DFem ;
- mkN047 : Str -> N ;
- mkN047 base = let v0 = tk 1 base
- in mkNoun (v0+"я")
- (v0+"и")
- (v0+"и")
- (v0+"-")
- DFem ;
- mkN048 : Str -> N ;
- mkN048 base = let v0 = tk 1 base
- in mkNoun (v0+"я")
- (v0+"е")
- (v0+"е")
- (v0+"ьо")
- DFem ;
- mkN049 : Str -> N ;
- mkN049 base = let v0 = base
- in mkNoun (v0)
- (v0+"и")
- (v0+"и")
- (v0+"-")
- DFem ;
- mkN050 : Str -> N ;
- mkN050 base = let v0 = tk 2 base
- in mkNoun (v0+"ен")
- (v0+"ни")
- (v0+"ни")
- (v0+"-")
- DFem ;
- mkN051 : Str -> N ;
- mkN051 base = let v0 = tk 2 base;
- v1 = last (base)
- in mkNoun (v0+"ъ"+v1)
- (v0+v1+"и")
- (v0+v1+"и")
- (v0+"-")
- DFem ;
- mkN052 : Str -> N ;
- mkN052 base = let v0 = tk 5 base
- in mkNoun (v0+"ялост")
- (v0+"ялости")
- (v0+"ялости")
- (v0+"-")
- DFem ;
- mkN052a : Str -> N ;
- mkN052a base = let v0 = tk 6 base
- in mkNoun (v0+"ярност")
- (v0+"ярности")
- (v0+"ярности")
- (v0+"-")
- DFem ;
- mkN053 : Str -> N ;
- mkN053 base = let v0 = tk 3 base;
- v1 = last (base)
- in mkNoun (v0+"ръ"+v1)
- (v0+"ър"+v1+"и")
- (v0+"ър"+v1+"и")
- (v0+"-")
- DFem ;
- mkN054 : Str -> N ;
- mkN054 base = let v0 = tk 1 base
- in mkNoun (v0+"о")
- (v0+"а")
- (v0+"а")
- (v0+"о")
- DNeut ;
- mkN055 : Str -> N ;
- mkN055 base = let v0 = tk 1 base
- in mkNoun (v0+"о")
- (v0+"а")
- (v0+"а")
- (v0+"о")
- DNeut ;
- mkN056 : Str -> N ;
- mkN056 base = let v0 = tk 1 base
- in mkNoun (v0+"о")
- (v0+"а")
- (v0+"а")
- (v0+"о")
- DNeut ;
- mkN057 : Str -> N ;
- mkN057 base = let v0 = tk 3 base;
- v1 = last (tk 1 base)
- in mkNoun (v0+"я"+v1+"о")
- (v0+"е"+v1+"а")
- (v0+"е"+v1+"а")
- (v0+"я"+v1+"о")
- DNeut ;
- mkN057a : Str -> N ;
- mkN057a base = let v0 = tk 4 base
- in mkNoun (v0+"ясто")
- (v0+"еста")
- (v0+"еста")
- (v0+"ясто")
- DNeut ;
- mkN058 : Str -> N ;
- mkN058 base = let v0 = tk 3 base
- in mkNoun (v0+"яно")
- (v0+"ена")
- (v0+"ена")
- (v0+"яно")
- DNeut ;
- mkN059 : Str -> N ;
- mkN059 base = let v0 = tk 1 base
- in mkNoun (v0+"о")
- (v0+"ене")
- (v0+"ене")
- (v0+"о")
- DNeut ;
- mkN060 : Str -> N ;
- mkN060 base = let v0 = tk 1 base
- in mkNoun (v0+"о")
- (v0+"еса")
- (v0+"еса")
- (v0+"о")
- DNeut ;
- mkN061 : Str -> N ;
- mkN061 base = let v0 = tk 1 base
- in mkNoun (v0+"о")
- (v0+"а")
- (v0+"а")
- (v0+"о")
- DNeut ;
- mkN062 : Str -> N ;
- mkN062 base = let v0 = tk 1 base
- in mkNoun (v0+"о")
- (v0+"и")
- (v0+"и")
- (v0+"о")
- DNeut ;
- mkN063 : Str -> N ;
- mkN063 base = let v0 = tk 2 base
- in mkNoun (v0+"ко")
- (v0+"чи")
- (v0+"чи")
- (v0+"ко")
- DNeut ;
- mkN064 : Str -> N ;
- mkN064 base = let v0 = tk 2 base
- in mkNoun (v0+"хо")
- (v0+"ши")
- (v0+"ши")
- (v0+"хо")
- DNeut ;
- mkN065 : Str -> N ;
- mkN065 base = let v0 = base
- in mkNoun (v0)
- (v0+"та")
- (v0+"та")
- (v0)
- DNeut ;
- mkN066 : Str -> N ;
- mkN066 base = let v0 = tk 1 base
- in mkNoun (v0+"е")
- (v0+"а")
- (v0+"а")
- (v0+"е")
- DNeut ;
- mkN067 : Str -> N ;
- mkN067 base = let v0 = tk 2 base
- in mkNoun (v0+"те")
- (v0+"ца")
- (v0+"ца")
- (v0+"те")
- DNeut ;
- mkN068 : Str -> N ;
- mkN068 base = let v0 = tk 1 base
- in mkNoun (v0+"е")
- (v0+"я")
- (v0+"я")
- (v0+"е")
- DNeut ;
- mkN069 : Str -> N ;
- mkN069 base = let v0 = base
- in mkNoun (v0)
- (v0+"на")
- (v0+"на")
- (v0)
- DNeut ;
- mkN070 : Str -> N ;
- mkN070 base = let v0 = base
- in mkNoun (v0)
- (v0+"са")
- (v0+"са")
- (v0)
- DNeut ;
- mkN071 : Str -> N ;
- mkN071 base = let v0 = tk 1 base
- in mkNoun (v0+"е")
- (v0+"ия")
- (v0+"ия")
- (v0+"е")
- DNeut ;
- mkN072 : Str -> N ;
- mkN072 base = let v0 = tk 1 base
- in mkNoun (v0+"е")
- (v0+"я")
- (v0+"я")
- (v0+"е")
- DNeut ;
- mkN073 : Str -> N ;
- mkN073 base = let v0 = base
- in mkNoun (v0)
- (v0+"та")
- (v0+"та")
- (v0)
- DNeut ;
- mkN074 : Str -> N ;
- mkN074 base = let v0 = tk 1 base
- in mkNoun (v0+"-")
- (v0)
- (v0)
- (v0+"-")
- DNeut ;
- mkN075 : Str -> N ;
- mkN075 base = let v0 = tk 1 base
- in mkNoun (v0+"-")
- (v0)
- (v0)
- (v0+"-")
- DNeut ;
- mkA076 : Str -> A ;
- mkA076 base = let v0 = base
- in mkAdjective (v0)
- (v0+"ия")
- (v0+"ият")
- (v0+"а")
- (v0+"ата")
- (v0+"о")
- (v0+"ото")
- (v0+"и")
- (v0+"ите") ;
- mkA077 : Str -> A ;
- mkA077 base = let v0 = base
- in mkAdjective (v0)
- (v0+"ия")
- (v0+"ият")
- (v0+"а")
- (v0+"ата")
- (v0+"е")
- (v0+"ето")
- (v0+"и")
- (v0+"ите") ;
- mkA078 : Str -> A ;
- mkA078 base = let v0 = tk 1 base
- in adjAdv (mkAdjective (v0+"и")
- (v0+"ия")
- (v0+"ият")
- (v0+"а")
- (v0+"ата")
- (v0+"о")
- (v0+"ото")
- (v0+"и")
- (v0+"ите")) (v0+"и") ;
- mkA079 : Str -> A ;
- mkA079 base = let v0 = tk 2 base
- in mkAdjective (v0+"ен")
- (v0+"ния")
- (v0+"ният")
- (v0+"на")
- (v0+"ната")
- (v0+"но")
- (v0+"ното")
- (v0+"ни")
- (v0+"ните") ;
- mkA080 : Str -> A ;
- mkA080 base = let v0 = tk 2 base;
- v1 = last (base)
- in mkAdjective (v0+"ъ"+v1)
- (v0+v1+"ия")
- (v0+v1+"ият")
- (v0+v1+"а")
- (v0+v1+"ата")
- (v0+v1+"о")
- (v0+v1+"ото")
- (v0+v1+"и")
- (v0+v1+"ите") ;
- mkA081 : Str -> A ;
- mkA081 base = let v0 = tk 2 base;
- v1 = last (base)
- in mkAdjective (v0+"я"+v1)
- (v0+"е"+v1+"ия")
- (v0+"е"+v1+"ият")
- (v0+"я"+v1+"а")
- (v0+"я"+v1+"ата")
- (v0+"я"+v1+"о")
- (v0+"я"+v1+"ото")
- (v0+"е"+v1+"и")
- (v0+"е"+v1+"ите") ;
- mkA082 : Str -> A ;
- mkA082 base = let v0 = tk 3 base;
- v1 = last (base)
- in mkAdjective (v0+"ръ"+v1)
- (v0+"ър"+v1+"ия")
- (v0+"ър"+v1+"ият")
- (v0+"ър"+v1+"а")
- (v0+"ър"+v1+"ата")
- (v0+"ър"+v1+"о")
- (v0+"ър"+v1+"ото")
- (v0+"ър"+v1+"и")
- (v0+"ър"+v1+"ите") ;
- mkA082a : Str -> A ;
- mkA082a base = let v0 = tk 5 base
- in mkAdjective (v0+"ързък")
- (v0+"ръзкия")
- (v0+"ръзкият")
- (v0+"ръзка")
- (v0+"ръзката")
- (v0+"ръзко")
- (v0+"ръзкото")
- (v0+"ръзки")
- (v0+"ръзките") ;
- mkA083 : Str -> A ;
- mkA083 base = let v0 = tk 4 base;
- v1 = last (tk 2 base)
- in mkAdjective (v0+"я"+v1+"ък")
- (v0+"е"+v1+"кия")
- (v0+"е"+v1+"кият")
- (v0+"я"+v1+"ка")
- (v0+"я"+v1+"ката")
- (v0+"я"+v1+"ко")
- (v0+"я"+v1+"кото")
- (v0+"е"+v1+"ки")
- (v0+"е"+v1+"ките") ;
- mkA084 : Str -> A ;
- mkA084 base = let v0 = tk 4 base;
- v1 = last (tk 2 base)
- in mkAdjective (v0+"е"+v1+"ен")
- (v0+"е"+v1+"ния")
- (v0+"е"+v1+"ният")
- (v0+"я"+v1+"на")
- (v0+"я"+v1+"ната")
- (v0+"я"+v1+"но")
- (v0+"я"+v1+"ното")
- (v0+"е"+v1+"ни")
- (v0+"е"+v1+"ните") ;
- mkA084a : Str -> A ;
- mkA084a base = let v0 = tk 5 base
- in mkAdjective (v0+"естен")
- (v0+"естния")
- (v0+"естният")
- (v0+"ястна")
- (v0+"ястната")
- (v0+"ястно")
- (v0+"ястнота")
- (v0+"естни")
- (v0+"естните") ;
- mkA085 : Str -> A ;
- mkA085 base = let v0 = tk 2 base
- in mkAdjective (v0+"ен")
- (v0+"йния")
- (v0+"йният")
- (v0+"йна")
- (v0+"йната")
- (v0+"йно")
- (v0+"йното")
- (v0+"йни")
- (v0+"йните") ;
- mkA086 : Str -> A ;
- mkA086 base = let v0 = base
- in mkAdjective (v0)
- (v0+"ия")
- (v0+"ият")
- (v0+"я")
- (v0+"ята")
- (v0+"ьо")
- (v0+"ьото")
- (v0+"и")
- (v0+"ите") ;
- mkA087 : Str -> A ;
- mkA087 base = let v0 = tk 1 base
- in mkAdjective (v0+"и")
- (v0+"ия")
- (v0+"ият")
- (v0+"а")
- (v0+"ата")
- (v0+"е")
- (v0+"ето")
- (v0+"и")
- (v0+"ите") ;
- mkA088 : Str -> A ;
- mkA088 base = let v0 = tk 1 base
- in mkAdjective (v0+"и")
- (v0+"ия")
- (v0+"ият")
- (v0+"я")
- (v0+"ята")
- (v0+"е")
- (v0+"ето")
- (v0+"и")
- (v0+"ите") ;
- mkA089 : Str -> A ;
- mkA089 base = let v0 = tk 1 base
- in mkAdjective (v0+"-")
- (v0+"ия")
- (v0+"ият")
- (v0+"-")
- (v0+"ата")
- (v0+"-")
- (v0+"ото")
- (v0+"-")
- (v0+"ите") ;
- mkA089a : Str -> A ;
- mkA089a base = let v0 = base
- in mkAdjective (v0)
- (v0)
- (v0)
- (v0)
- (v0)
- (v0)
- (v0)
- (v0)
- (v0) ;
- mkV142 : Str -> VTable ;
- mkV142 base = let v0 = tk 3 base
- in mkVerb (v0+"съм")
- (v0+"е")
- (v0+"бях")
- (v0+"бях")
- (v0+"бил")
- (v0+"бил")
- (v0+"-")
- (v0+"-")
- (v0+"бъди") ;
- mkV143 : Str -> VTable ;
- mkV143 base = let v0 = tk 3 base
- in mkVerb (v0+"ъда")
- (v0+"ъде")
- (v0+"их")
- (v0+"ъдех")
- (v0+"ил")
- (v0+"ъдел")
- (v0+"-")
- (v0+"ъдещ")
- (v0+"ъди") ;
- mkV144 : Str -> VTable ;
- mkV144 base = let v0 = tk 1 base
- in mkVerb (v0+"а")
- (v0+"е")
- (v0+"ях")
- (v0+"ях")
- (v0+"ял")
- (v0+"ял")
- (v0+"-")
- (v0+"-")
- (v0+"-") ;
- mkV145 : Str -> VTable ;
- mkV145 base = let v0 = tk 2 base;
- v1 = last (tk 1 base)
- in mkVerb (v0+v1+"а")
- (v0+v1+"е")
- (v0+v1+"ох")
- (v0+v1+"ях")
- (v0+"л")
- (v0+v1+"ял")
- (v0+v1+"ен")
- (v0+v1+"ящ")
- (v0+v1+"и") ;
- mkV145a : Str -> VTable ;
- mkV145a base = let v0 = tk 3 base;
- v1 = last (tk 2 base)
- in mkVerb (v0+v1+"са")
- (v0+v1+"се")
- (v0+v1+"сох")
- (v0+v1+"сях")
- (v0+v1+"съл")
- (v0+v1+"сял")
- (v0+v1+"сен")
- (v0+v1+"сящ")
- (v0+v1+"си") ;
- mkV145b : Str -> VTable ;
- mkV145b base = let v0 = tk 2 base
- in mkVerb (v0+"та")
- (v0+"те")
- (v0+"тох")
- (v0+"тях")
- (v0+"ъл")
- (v0+"тял")
- (v0+"-")
- (v0+"тящ")
- (v0+"ти") ;
- mkV146 : Str -> VTable ;
- mkV146 base = let v0 = tk 2 base
- in mkVerb (v0+"да")
- (v0+"де")
- (v0+"дох")
- (v0+"дех")
- (v0+"шъл")
- (v0+"дел")
- (v0+"-")
- (v0+"-")
- (v0+"ди") ;
- mkV146a : Str -> VTable ;
- mkV146a base = let v0 = tk 3 base
- in mkVerb (v0+"йда")
- (v0+"йде")
- (v0+"йдох")
- (v0+"йдех")
- (v0+"шъл")
- (v0+"йдел")
- (v0+"-")
- (v0+"-")
- (v0+"йди") ;
- mkV147 : Str -> VTable ;
- mkV147 base = let v0 = tk 3 base
- in mkVerb (v0+"яза")
- (v0+"езе")
- (v0+"язох")
- (v0+"езех")
- (v0+"язъл")
- (v0+"езел")
- (v0+"-")
- (v0+"-")
- (v0+"ез") ;
- mkV148 : Str -> VTable ;
- mkV148 base = let v0 = tk 2 base
- in mkVerb (v0+"ка")
- (v0+"че")
- (v0+"кох")
- (v0+"чех")
- (v0+"къл")
- (v0+"чел")
- (v0+"чен")
- (v0+"чащ")
- (v0+"чи") ;
- mkV149 : Str -> VTable ;
- mkV149 base = let v0 = tk 3 base
- in mkVerb (v0+"ека")
- (v0+"ече")
- (v0+"якох")
- (v0+"ечех")
- (v0+"якъл")
- (v0+"ечел")
- (v0+"ечен")
- (v0+"-")
- (v0+"ечи") ;
- mkV150 : Str -> VTable ;
- mkV150 base = let v0 = tk 1 base
- in mkVerb (v0+"а")
- (v0+"е")
- (v0+"ях")
- (v0+"ях")
- (v0+"ял")
- (v0+"ял")
- (v0+"ян")
- (v0+"-")
- (v0+"и") ;
- mkV150a : Str -> VTable ;
- mkV150a base = let v0 = tk 1 base
- in mkVerb (v0+"а")
- (v0+"е")
- (v0+"ях")
- (v0+"ях")
- (v0+"ял")
- (v0+"ял")
- (v0+"-")
- (v0+"-")
- (v0+"и") ;
- mkV151 : Str -> VTable ;
- mkV151 base = let v0 = tk 1 base
- in mkVerb (v0+"а")
- (v0+"е")
- (v0+"ах")
- (v0+"ях")
- (v0+"ал")
- (v0+"ял")
- (v0+"ящ")
- (v0+"ан")
- (v0+"и") ;
- mkV152 : Str -> VTable ;
- mkV152 base = let v0 = tk 1 base
- in mkVerb (v0+"а")
- (v0+"е")
- (v0+"ах")
- (v0+"ех")
- (v0+"ал")
- (v0+"ел")
- (v0+"ат")
- (v0+"-")
- (v0+"и") ;
- mkV152a : Str -> VTable ;
- mkV152a base = let v0 = tk 4 base
- in mkVerb (v0+"ягна")
- (v0+"егне")
- (v0+"ягнах")
- (v0+"ягнех")
- (v0+"ягнал")
- (v0+"ягнел")
- (v0+"ягнат")
- (v0+"-")
- (v0+"егни") ;
- mkV153 : Str -> VTable ;
- mkV153 base = let v0 = tk 3 base
- in mkVerb (v0+"яна")
- (v0+"ене")
- (v0+"янах")
- (v0+"енех")
- (v0+"янал")
- (v0+"енел")
- (v0+"янат")
- (v0+"-")
- (v0+"ени") ;
- mkV154 : Str -> VTable ;
- mkV154 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"е")
- (v0+"ах")
- (v0+"ех")
- (v0+"ал")
- (v0+"ел")
- (v0+"ан")
- (v0+"ещ")
- (v0+"и") ;
- mkV155 : Str -> VTable ;
- mkV155 base = let v0 = tk 2 base
- in mkVerb (v0+"ча")
- (v0+"че")
- (v0+"ках")
- (v0+"чех")
- (v0+"кал")
- (v0+"чел")
- (v0+"-")
- (v0+"чещ")
- (v0+"чи") ;
- mkV156 : Str -> VTable ;
- mkV156 base = let v0 = tk 2 base
- in mkVerb (v0+"жа")
- (v0+"же")
- (v0+"зах")
- (v0+"жех")
- (v0+"зал")
- (v0+"жел")
- (v0+"зан")
- (v0+"-")
- (v0+"жи") ;
- mkV157 : Str -> VTable ;
- mkV157 base = let v0 = tk 3 base
- in mkVerb (v0+"ежа")
- (v0+"еже")
- (v0+"язах")
- (v0+"ежех")
- (v0+"язал")
- (v0+"ежел")
- (v0+"язан")
- (v0+"ежещ")
- (v0+"ежи") ;
- mkV158 : Str -> VTable ;
- mkV158 base = let v0 = tk 2 base
- in mkVerb (v0+"жа")
- (v0+"же")
- (v0+"гах")
- (v0+"жех")
- (v0+"гал")
- (v0+"жел")
- (v0+"ган")
- (v0+"жещ")
- (v0+"жи") ;
- mkV159 : Str -> VTable ;
- mkV159 base = let v0 = tk 2 base
- in mkVerb (v0+"ша")
- (v0+"ше")
- (v0+"сах")
- (v0+"шех")
- (v0+"сал")
- (v0+"шел")
- (v0+"сан")
- (v0+"шещ")
- (v0+"ши") ;
- mkV160 : Str -> VTable ;
- mkV160 base = let v0 = tk 2 base
- in mkVerb (v0+"ея")
- (v0+"ее")
- (v0+"ях")
- (v0+"еех")
- (v0+"ял")
- (v0+"еел")
- (v0+"ян")
- (v0+"еещ")
- (v0+"ей") ;
- mkV160a : Str -> VTable ;
- mkV160a base = let v0 = tk 2 base
- in mkVerb (v0+"ея")
- (v0+"ее")
- (v0+"ах")
- (v0+"еех")
- (v0+"ал")
- (v0+"еел")
- (v0+"ан")
- (v0+"еещ")
- (v0+"ей") ;
- mkV161 : Str -> VTable ;
- mkV161 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"е")
- (v0+"х")
- (v0+"ех")
- (v0+"л")
- (v0+"ел")
- (v0+"н")
- (v0+"ещ")
- (v0+"й") ;
- mkV161a : Str -> VTable ;
- mkV161a base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"е")
- (v0+"х")
- (v0+"ех")
- (v0+"л")
- (v0+"ел")
- (v0+"т")
- (v0+"ещ")
- (v0+"й") ;
- mkV162 : Str -> VTable ;
- mkV162 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"е")
- (v0+"ях")
- (v0+"ех")
- (v0+"ял")
- (v0+"ел")
- (v0+"-")
- (v0+"ещ")
- (v0+"й") ;
- mkV163 : Str -> VTable ;
- mkV163 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"е")
- (v0+"х")
- (v0+"ех")
- (v0+"л")
- (v0+"ел")
- (v0+"т")
- (v0+"ещ")
- (v0+"й") ;
- mkV164 : Str -> VTable ;
- mkV164 base = let v0 = tk 2 base
- in mkVerb (v0+"ея")
- (v0+"ее")
- (v0+"ях")
- (v0+"еех")
- (v0+"ял")
- (v0+"еел")
- (v0+"ят")
- (v0+"еещ")
- (v0+"ей") ;
- mkV165 : Str -> VTable ;
- mkV165 base = let v0 = tk 1 base
- in mkVerb (v0+"а")
- (v0+"е")
- (v0+"ох")
- (v0+"ех")
- (v0+"-")
- (v0+"ел")
- (v0+"-")
- (v0+"ещ")
- (v0+"и") ;
- mkV166 : Str -> VTable ;
- mkV166 base = let v0 = tk 2 base
- in mkVerb (v0+"га")
- (v0+"же")
- (v0+"жах")
- (v0+"жех")
- (v0+"гъл")
- (v0+"жел")
- (v0+"-")
- (v0+"жещ")
- (v0+"-") ;
- mkV167 : Str -> VTable ;
- mkV167 base = let v0 = tk 2 base
- in mkVerb (v0+"ка")
- (v0+"че")
- (v0+"ках")
- (v0+"чех")
- (v0+"кал")
- (v0+"чел")
- (v0+"кан")
- (v0+"чещ")
- (v0+"чи") ;
- mkV168 : Str -> VTable ;
- mkV168 base = let v0 = tk 1 base
- in mkVerb (v0+"м")
- (v0+"де")
- (v0+"дох")
- (v0+"дях")
- (v0+"л")
- (v0+"дял")
- (v0+"ден")
- (v0+"-")
- (v0+"й") ;
- mkV169 : Str -> VTable ;
- mkV169 base = let v0 = tk 1 base
- in mkVerb (v0+"м")
- (v0+"де")
- (v0+"дох")
- (v0+"дях")
- (v0+"л")
- (v0+"дял")
- (v0+"ден")
- (v0+"дещ")
- (v0+"ж") ;
- mkV170 : Str -> VTable ;
- mkV170 base = let v0 = tk 3 base
- in mkVerb (v0+"ера")
- (v0+"ере")
- (v0+"рах")
- (v0+"ерях")
- (v0+"рал")
- (v0+"ерял")
- (v0+"ран")
- (v0+"ерящ")
- (v0+"ери") ;
- mkV171 : Str -> VTable ;
- mkV171 base = let v0 = tk 2 base
- in mkVerb (v0+"ма")
- (v0+"ме")
- (v0+"х")
- (v0+"мех")
- (v0+"л")
- (v0+"мел")
- (v0+"т")
- (v0+"-")
- (v0+"ми") ;
- mkV172 : Str -> VTable ;
- mkV172 base = let v0 = tk 4 base
- in mkVerb (v0+"ълна")
- (v0+"ълне")
- (v0+"лех")
- (v0+"ълнех")
- (v0+"лел")
- (v0+"ълнел")
- (v0+"ълнат")
- (v0+"ълнещ")
- (v0+"ълни") ;
- mkV173 : Str -> VTable ;
- mkV173 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"и")
- (v0+"их")
- (v0+"ех")
- (v0+"ил")
- (v0+"ел")
- (v0+"ен")
- (v0+"ещ")
- (v0+"и") ;
- mkV174 : Str -> VTable ;
- mkV174 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"и")
- (v0+"их")
- (v0+"ях")
- (v0+"ил")
- (v0+"ял")
- (v0+"ен")
- (v0+"ящ")
- (v0+"и") ;
- mkV175 : Str -> VTable ;
- mkV175 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"и")
- (v0+"их")
- (v0+"ях")
- (v0+"ил")
- (v0+"ял")
- (v0+"ен")
- (v0+"ящ")
- (v0+"й") ;
- mkV176 : Str -> VTable ;
- mkV176 base = let v0 = tk 1 base
- in mkVerb (v0+"а")
- (v0+"и")
- (v0+"их")
- (v0+"ех")
- (v0+"ил")
- (v0+"ел")
- (v0+"ен")
- (v0+"ещ")
- (v0+"и") ;
- mkV177 : Str -> VTable ;
- mkV177 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"и")
- (v0+"ях")
- (v0+"ях")
- (v0+"ял")
- (v0+"ял")
- (v0+"ян")
- (v0+"ящ")
- (v0+"и") ;
- mkV178 : Str -> VTable ;
- mkV178 base = let v0 = tk 1 base
- in mkVerb (v0+"а")
- (v0+"и")
- (v0+"ах")
- (v0+"ех")
- (v0+"ал")
- (v0+"ел")
- (v0+"-")
- (v0+"ащ")
- (v0+"и") ;
- mkV179 : Str -> VTable ;
- mkV179 base = let v0 = tk 4 base
- in mkVerb (v0+"ържа")
- (v0+"ържи")
- (v0+"ържах")
- (v0+"ържех")
- (v0+"ържал")
- (v0+"ържел")
- (v0+"ържан")
- (v0+"ържащ")
- (v0+"ръж") ;
- mkV180 : Str -> VTable ;
- mkV180 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"и")
- (v0+"ях")
- (v0+"ях")
- (v0+"ял")
- (v0+"ял")
- (v0+"-")
- (v0+"ящ")
- (v0+"й") ;
- mkV181 : Str -> VTable ;
- mkV181 base = let v0 = tk 2 base
- in mkVerb (v0+"дя")
- (v0+"ди")
- (v0+"дях")
- (v0+"дех")
- (v0+"дял")
- (v0+"дел")
- (v0+"дян")
- (v0+"-")
- (v0+"ж") ;
- mkV182 : Str -> VTable ;
- mkV182 base = let v0 = tk 1 base
- in mkVerb (v0+"я")
- (v0+"и")
- (v0+"ах")
- (v0+"ях")
- (v0+"ал")
- (v0+"ял")
- (v0+"-")
- (v0+"ящ")
- (v0+"и") ;
- mkV183 : Str -> VTable ;
- mkV183 base = let v0 = tk 3 base
- in mkVerb (v0+"ежа")
- (v0+"ежи")
- (v0+"язах")
- (v0+"ежех")
- (v0+"язал")
- (v0+"ежел")
- (v0+"язан")
- (v0+"ежещ")
- (v0+"ежи") ;
- mkV184 : Str -> VTable ;
- mkV184 base = let v0 = tk 3 base
- in mkVerb (v0+"еля")
- (v0+"ели")
- (v0+"лях")
- (v0+"елех")
- (v0+"лял")
- (v0+"елел")
- (v0+"лян")
- (v0+"елещ")
- (v0+"ели") ;
- mkV185 : Str -> VTable ;
- mkV185 base = let v0 = tk 3 base
- in mkVerb (v0+"оля")
- (v0+"оли")
- (v0+"лах")
- (v0+"олех")
- (v0+"лал")
- (v0+"олел")
- (v0+"лан")
- (v0+"олещ")
- (v0+"оли") ;
- mkV186 : Str -> VTable ;
- mkV186 base = let v0 = tk 2 base
- in mkVerb (v0+"ам")
- (v0+"а")
- (v0+"ах")
- (v0+"ах")
- (v0+"ал")
- (v0+"ал")
- (v0+"ан")
- (v0+"ащ")
- (v0+"ай") ;
- mkV187 : Str -> VTable ;
- mkV187 base = let v0 = tk 2 base
- in mkVerb (v0+"ям")
- (v0+"я")
- (v0+"ях")
- (v0+"ях")
- (v0+"ял")
- (v0+"ял")
- (v0+"ян")
- (v0+"ящ")
- (v0+"яй") ;
-
- adjAdv : A -> Str -> A =
- \a,adv -> {s = a.s; adv = adv; lock_A=<>} ;
-}
\ No newline at end of file |