--# -path=.:../abstract:../common:../prelude

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)
                          (AMasc NonHuman) ;
  mkN002 : Str -> N ;
  mkN002 base = let v0 = tk 2 base;
                    v1 = last (base)
                in mkNoun (v0+"я"+v1)
                          (v0+"е"+v1+"ове")
                          (v0+"я"+v1+"а")
                          (v0+"я"+v1)
                          (AMasc NonHuman) ;
  mkN002a : Str -> N ;
  mkN002a base = let v0 = tk 2 base;
                     v1 = last (base)
                 in mkNoun (v0+"я"+v1)
                           (v0+"е"+v1+"ове")
                           (v0+"я"+v1+"а")
                           (v0+"я"+v1)
                           (AMasc NonHuman) ;
  mkN003 : Str -> N ;
  mkN003 base = let v0 = tk 3 base;
                    v1 = last (base)
                in mkNoun (v0+"ръ"+v1)
                          (v0+"ър"+v1+"ове")
                          (v0+"ър"+v1+"а")
                          (v0+"ръ"+v1)
                          (AMasc NonHuman) ;
  mkN004 : Str -> N ;
  mkN004 base = let v0 = tk 4 base
                in mkNoun (v0+"ятър")
                          (v0+"етрове")
                          (v0+"ятъра")
                          (v0+"етре")
                          (AMasc NonHuman) ;
  mkN005 : Str -> N ;
  mkN005 base = let v0 = base
                in mkNoun (v0)
                          (v0+"ове")
                          (v0+"а")
                          (v0)
                          (AMasc NonHuman) ;
  mkN006 : Str -> N ;
  mkN006 base = let v0 = base
                in mkNoun (v0)
                          (v0+"ове")
                          (v0+"а")
                          (v0)
                          (AMasc NonHuman) ;
  mkN007 : Str -> N ;
  mkN007 base = let v0 = base
                in mkNoun (v0)
                          (v0+"и")
                          (v0+"а")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN007b : Str -> N ;
  mkN007b base = let v0 = base
                 in mkNoun (v0)
                           (v0+"и")
                           (v0+"а")
                           (v0+"о")
                           (AMasc NonHuman) ;
  mkN007a : Str -> N ;
  mkN007a base = let v0 = base
                 in mkNoun (v0)
                           (v0+"и")
                           (v0+"а")
                           (v0+"е")
                           (AMasc Human) ;
  mkN008 : Str -> N ;
  mkN008 base = let v0 = tk 2 base;
                    v1 = last (base)
                in mkNoun (v0+"е"+v1)
                          (v0+v1+"и")
                          (v0+"е"+v1+"а")
                          (v0+"е"+v1+"о")
                          (AMasc NonHuman) ;
  mkN008b : Str -> N ;
  mkN008b base = let v0 = tk 2 base;
                     v1 = last (base)
                 in mkNoun (v0+"е"+v1)
                           (v0+v1+"и")
                           (v0+"е"+v1+"а")
                           (v0+"е"+v1+"е")
                           (AMasc NonHuman) ;
  mkN008c : Str -> N ;
  mkN008c base = let v0 = tk 2 base;
                     v1 = last (base)
                 in mkNoun (v0+"е"+v1)
                           (v0+v1+"и")
                           (v0+"е"+v1+"а")
                           (v0+v1+"е")
                           (AMasc NonHuman) ;
  mkN008a : Str -> N ;
  mkN008a base = let v0 = tk 2 base
                 in mkNoun (v0+"ец")
                           (v0+"ци")
                           (v0+"ци")
                           (v0+"ецо")
                           (AMasc Human) ;
  mkN009 : Str -> N ;
  mkN009 base = let v0 = tk 2 base;
                    v1 = last (base)
                in mkNoun (v0+"ъ"+v1)
                          (v0+v1+"и")
                          (v0+"ъ"+v1+"а")
                          (v0+v1+"е")
                          (AMasc NonHuman) ;
  mkN009a : Str -> N ;
  mkN009a base = let v0 = tk 2 base
                 in mkNoun (v0+"ър")
                           (v0+"рове")
                           (v0+"ъра")
                           (v0+"ре")
                           (AMasc NonHuman) ;
  mkN010 : Str -> N ;
  mkN010 base = let v0 = tk 2 base
                in mkNoun (v0+"ър")
                          (v0+"ри")
                          (v0+"ра")
                          (v0+"ре")
                          (AMasc NonHuman) ;
  mkN011 : Str -> N ;
  mkN011 base = let v0 = tk 2 base
                in mkNoun (v0+"ъм")
                          (v0+"ми")
                          (v0+"ъма")
                          (v0+"ме")
                          (AMasc NonHuman) ;
  mkN012 : Str -> N ;
  mkN012 base = let v0 = tk 3 base
                in mkNoun (v0+"рък")
                          (v0+"ърци")
                          (v0+"ърци")
                          (v0+"ърко")
                          (AMasc NonHuman) ;
  mkN013 : Str -> N ;
  mkN013 base = let v0 = tk 2 base
                in mkNoun (v0+"ец")
                          (v0+"йци")
                          (v0+"йци")
                          (v0+"ецо")
                          (AMasc Human) ;
  mkN014 : Str -> N ;
  mkN014 base = let v0 = tk 1 base
                in mkNoun (v0+"к")
                          (v0+"ци")
                          (v0+"ка")
                          (v0+"к")
                          (AMasc NonHuman) ;
  mkN014a : Str -> N ;
  mkN014a base = let v0 = tk 1 base
                 in mkNoun (v0+"к")
                           (v0+"ци")
                           (v0+"ка")
                           (v0+"ко")
                           (AMasc NonHuman) ;
  mkN015 : Str -> N ;
  mkN015 base = let v0 = tk 1 base
                in mkNoun (v0+"г")
                          (v0+"зи")
                          (v0+"га")
                          (v0+"зе")
                          (AMasc NonHuman) ;
  mkN015a : Str -> N ;
  mkN015a base = let v0 = tk 1 base
                 in mkNoun (v0+"г")
                           (v0+"зи")
                           (v0+"га")
                           (v0+"зе")
                           (AMasc Human) ;
  mkN016 : Str -> N ;
  mkN016 base = let v0 = tk 1 base
                in mkNoun (v0+"х")
                          (v0+"си")
                          (v0+"ха")
                          (v0+"хо")
                          (AMasc NonHuman) ;
  mkN016a : Str -> N ;
  mkN016a base = let v0 = tk 1 base
                 in mkNoun (v0+"х")
                           (v0+"си")
                           (v0+"ха")
                           (v0+"се")
                           (AMasc Human) ;
  mkN017 : Str -> N ;
  mkN017 base = let v0 = tk 1 base
                in mkNoun (v0+"к")
                          (v0+"ни")
                          (v0+"ка")
                          (v0+"ко")
                          (AMasc NonHuman) ;
  mkN018 : Str -> N ;
  mkN018 base = let v0 = tk 2 base
                in mkNoun (v0+"ин")
                          (v0+"и")
                          (v0+"и")
                          (v0+"ине")
                          (AMasc NonHuman) ;
  mkN018a : Str -> N ;
  mkN018a base = let v0 = tk 2 base;
                     v1 = last (base)
                 in mkNoun (v0+"и"+v1)
                           (v0+"и")
                           (v0+"и")
                           (v0+"и"+v1+"о")
                           (AMasc NonHuman) ;
  mkN019 : Str -> N ;
  mkN019 base = let v0 = tk 2 base
                in mkNoun (v0+"ък")
                          (v0+"ци")
                          (v0+"ци")
                          (v0+"ко")
                          (AMasc Human) ;
  mkN019a : Str -> N ;
  mkN019a base = let v0 = tk 2 base
                 in mkNoun (v0+"ек")
                           (v0+"йци")
                           (v0+"ека")
                           (v0+"о")
                           (AMasc NonHuman) ;
  mkN020 : Str -> N ;
  mkN020 base = let v0 = tk 3 base;
                    v1 = last (tk 2 base)
                in mkNoun (v0+v1+"ец")
                          (v0+"ъ"+v1+"ци")
                          (v0+"ъ"+v1+"ци")
                          (v0+v1+"ецо")
                          (AMasc Human) ;
  mkN021 : Str -> N ;
  mkN021 base = let v0 = tk 3 base
                in mkNoun (v0+"чин")
                          (v0+"ци")
                          (v0+"ци")
                          (v0+"чино")
                          (AMasc Human) ;
  mkN022 : Str -> N ;
  mkN022 base = let v0 = base
                in mkNoun (v0)
                          (v0+"а")
                          (v0+"а")
                          (v0+"о")
                          (AMasc NonHuman) ;
  mkN023 : Str -> N ;
  mkN023 base = let v0 = tk 2 base
                in mkNoun (v0+"ин")
                          (v0+"а")
                          (v0+"а")
                          (v0+"ине")
                          (AMasc Human) ;
  mkN024a : Str -> N ;
  mkN024a base = let v0 = tk 1 base
                 in mkNoun (v0+"з")
                           (v0+"зе")
                           (v0+"зе")
                           (v0+"же")
                           (AMasc Human) ;
  mkN024 : Str -> N ;
  mkN024 base = let v0 = base
                in mkNoun (v0)
                          (v0+"е")
                          (v0+"е")
                          (v0+"о")
                          (AMasc Human) ;
  mkN025 : Str -> N ;
  mkN025 base = let v0 = base
                in mkNoun (v0)
                          (v0+"я")
                          (v0+"я")
                          (v0+"е")
                          (AMasc Human) ;
  mkN026 : Str -> N ;
  mkN026 base = let v0 = base
                in mkNoun (v0)
                          (v0+"илища")
                          (v0+"илища")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN027 : Str -> N ;
  mkN027 base = let v0 = tk 2 base
                in mkNoun (v0+"ец")
                          (v0+"овце")
                          (v0+"еца")
                          (v0+"о")
                          (AMasc NonHuman) ;
  mkN028 : Str -> N ;
  mkN028 base = let v0 = tk 1 base
                in mkNoun (v0+"й")
                          (v0+"еве")
                          (v0+"я")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN028a : Str -> N ;
  mkN028a base = let v0 = tk 1 base
                 in mkNoun (v0+"й")
                           (v0+"йове")
                           (v0+"я")
                           (v0+"йо")
                           (AMasc NonHuman) ;
  mkN029 : Str -> N ;
  mkN029 base = let v0 = base
                in mkNoun (v0)
                          (v0+"ьове")
                          (v0+"ьове")
                          (v0+"ко")
                          (AMasc Human) ;
  mkN030 : Str -> N ;
  mkN030 base = let v0 = tk 2 base
                in mkNoun (v0+"ън")
                          (v0+"ньове")
                          (v0+"ъня")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN031 : Str -> N ;
  mkN031 base = let v0 = base
                in mkNoun (v0)
                          (v0+"и")
                          (v0+"я")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN031a : Str -> N ;
  mkN031a base = let v0 = base
                 in mkNoun (v0)
                           (v0+"и")
                           (v0+"я")
                           (v0+"ю")
                           (AMasc Human) ;
  mkN032 : Str -> N ;
  mkN032 base = let v0 = base ;
                    v1 = tk 1 base
                in mkNoun (v0)
                          (v1+"и")
                          (v1+"я")
                          (v0+"о")
                          (AMasc NonHuman) ;
  mkN032a : Str -> N ;
  mkN032a base = let v0 = tk 1 base
                 in mkNoun (v0+"й")
                           (v0+"и")
                           (v0+"я")
                           (v0+"ю")
                           (AMasc Human) ;
  mkN033 : Str -> N ;
  mkN033 base = let v0 = tk 2 base
                in mkNoun (v0+"ен")
                          (v0+"ни")
                          (v0+"ена")
                          (v0+"ене")
                          (AMasc NonHuman) ;
  mkN034 : Str -> N ;
  mkN034 base = let v0 = tk 2 base
                in mkNoun (v0+"ът")
                          (v0+"ти")
                          (v0+"ътя")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN035 : Str -> N ;
  mkN035 base = let v0 = base
                in mkNoun (v0)
                          (v0+"е")
                          (v0+"я")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN035a : Str -> N ;
  mkN035a base = let v0 = base
                 in mkNoun (v0)
                           (v0+"е")
                           (v0+"я")
                           (v0+"ю")
                           (AMasc Human) ;
  mkN036 : Str -> N ;
  mkN036 base = let v0 = tk 1 base
                in mkNoun (v0+"й")
                          (v0+"ища")
                          (v0+"я")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN037 : Str -> N ;
  mkN037 base = let v0 = base
                in mkNoun (v0)
                          (v0+"ища")
                          (v0+"я")
                          (v0+"е")
                          (AMasc NonHuman) ;
  mkN038 : Str -> N ;
  mkN038 base = let v0 = tk 1 base
                in mkNoun (v0+"а")
                          (v0+"и")
                          (v0+"и")
                          (v0+"а")
                          (AMasc Human) ;
  mkN039 : Str -> N ;
  mkN039 base = let v0 = tk 1 base
                in mkNoun (v0+"я")
                          (v0+"и")
                          (v0+"и")
                          (v0+"йo")
                          (AMasc Human) ;
  mkN040 : Str -> N ;
  mkN040 base = let v0 = tk 1 base
                in mkNoun (v0+"о")
                          (v0+"овци")
                          (v0+"овци")
                          (v0+"о")
                          (AMasc Human) ;
  mkN040a : Str -> N ;
  mkN040a base = let v0 = base
                 in mkNoun (v0)
                           (v0+"и")
                           (v0+"а")
                           (v0+"е")
                           (AMasc NonHuman) ;
  mkN041 : Str -> N ;
  mkN041 base = let v0 = tk 1 base
                in mkNoun (v0+"а")
                          (v0+"и")
                          (v0+"и")
                          (v0+"о")
                          AFem ;
  mkN041a : Str -> N ;
  mkN041a base = let v0 = tk 1 base
                 in mkNoun (v0+"а")
                           (v0+"и")
                           (v0+"и")
                           (v0+"о")
                           AFem ;
  mkN041b : Str -> N ;
  mkN041b base = let v0 = tk 1 base
                 in mkNoun (v0+"а")
                           (v0+"и")
                           (v0+"и")
                           (v0+"е")
                           AFem ;
  mkN042 : Str -> N ;
  mkN042 base = let v0 = base
                in mkNoun (v0)
                          (v0)
                          (v0)
                          (v0)
                          AFem ;
  mkN043 : Str -> N ;
  mkN043 base = let v0 = tk 3 base;
                    v1 = last (tk 1 base)
                in mkNoun (v0+"я"+v1+"а")
                          (v0+"е"+v1+"и")
                          (v0+"е"+v1+"и")
                          (v0+"о")
                          AFem ;
  mkN043a : Str -> N ;
  mkN043a base = let v0 = tk 4 base;
                     v1 = last (tk 2 base)
                 in mkNoun (v0+"я"+v1+"ка")
                           (v0+"е"+v1+"ки")
                           (v0+"е"+v1+"ки")
                           (v0+"о")
                           AFem ;
  mkN044 : Str -> N ;
  mkN044 base = let v0 = tk 1 base
                in mkNoun (v0+"а")
                          (v0+"е")
                          (v0+"е")
                          (v0+"о")
                          AFem ;
  mkN045 : Str -> N ;
  mkN045 base = let v0 = tk 2 base
                in mkNoun (v0+"ка")
                          (v0+"це")
                          (v0+"це")
                          (v0+"ка")
                          AFem ;
  mkN046 : Str -> N ;
  mkN046 base = let v0 = tk 2 base
                in mkNoun (v0+"га")
                          (v0+"зе")
                          (v0+"зе")
                          (v0+"га")
                          AFem ;
  mkN047 : Str -> N ;
  mkN047 base = let v0 = tk 1 base
                in mkNoun (v0+"я")
                          (v0+"и")
                          (v0+"и")
                          (v0+"о")
                          AFem ;
  mkN048 : Str -> N ;
  mkN048 base = let v0 = tk 1 base
                in mkNoun (v0+"я")
                          (v0+"е")
                          (v0+"е")
                          (v0+"ьо")
                          AFem ;
  mkN049 : Str -> N ;
  mkN049 base = let v0 = base
                in mkNoun (v0)
                          (v0+"и")
                          (v0+"и")
                          (v0)
                          AFem ;
  mkN050 : Str -> N ;
  mkN050 base = let v0 = tk 2 base
                in mkNoun (v0+"ен")
                          (v0+"ни")
                          (v0+"ни")
                          (v0+"ен")
                          AFem ;
  mkN051 : Str -> N ;
  mkN051 base = let v0 = tk 2 base;
                    v1 = last (base)
                in mkNoun (v0+"ъ"+v1)
                          (v0+v1+"и")
                          (v0+v1+"и")
                          (v0+"ъ"+v1)
                          AFem ;
  mkN052 : Str -> N ;
  mkN052 base = let v0 = tk 5 base
                in mkNoun (v0+"ялост")
                          (v0+"ялости")
                          (v0+"ялости")
                          (v0+"ялост")
                          AFem ;
  mkN052a : Str -> N ;
  mkN052a base = let v0 = tk 6 base
                 in mkNoun (v0+"ярност")
                           (v0+"ярности")
                           (v0+"ярности")
                           (v0+"ярност")
                           AFem ;
  mkN053 : Str -> N ;
  mkN053 base = let v0 = tk 3 base;
                    v1 = last (base)
                in mkNoun (v0+"ръ"+v1)
                          (v0+"ър"+v1+"и")
                          (v0+"ър"+v1+"и")
                          (v0+"ръ"+v1)
                          AFem ;
  mkN054 : Str -> N ;
  mkN054 base = let v0 = tk 1 base
                in mkNoun (v0+"о")
                          (v0+"а")
                          (v0+"а")
                          (v0+"о")
                          ANeut ;
  mkN055 : Str -> N ;
  mkN055 base = let v0 = tk 1 base
                in mkNoun (v0+"о")
                          (v0+"а")
                          (v0+"а")
                          (v0+"о")
                          ANeut ;
  mkN056 : Str -> N ;
  mkN056 base = let v0 = tk 1 base
                in mkNoun (v0+"о")
                          (v0+"а")
                          (v0+"а")
                          (v0+"о")
                          ANeut ;
  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+"о")
                          ANeut ;
  mkN057a : Str -> N ;
  mkN057a base = let v0 = tk 4 base
                 in mkNoun (v0+"ясто")
                           (v0+"еста")
                           (v0+"еста")
                           (v0+"ясто")
                           ANeut ;
  mkN058 : Str -> N ;
  mkN058 base = let v0 = tk 3 base
                in mkNoun (v0+"яно")
                          (v0+"ена")
                          (v0+"ена")
                          (v0+"яно")
                          ANeut ;
  mkN059 : Str -> N ;
  mkN059 base = let v0 = tk 1 base
                in mkNoun (v0+"о")
                          (v0+"ене")
                          (v0+"ене")
                          (v0+"о")
                          ANeut ;
  mkN060 : Str -> N ;
  mkN060 base = let v0 = tk 1 base
                in mkNoun (v0+"о")
                          (v0+"еса")
                          (v0+"еса")
                          (v0+"о")
                          ANeut ;
  mkN061 : Str -> N ;
  mkN061 base = let v0 = tk 1 base
                in mkNoun (v0+"о")
                          (v0+"а")
                          (v0+"а")
                          (v0+"о")
                          ANeut ;
  mkN062 : Str -> N ;
  mkN062 base = let v0 = tk 1 base
                in mkNoun (v0+"о")
                          (v0+"и")
                          (v0+"и")
                          (v0+"о")
                          ANeut ;
  mkN063 : Str -> N ;
  mkN063 base = let v0 = tk 2 base
                in mkNoun (v0+"ко")
                          (v0+"чи")
                          (v0+"чи")
                          (v0+"ко")
                          ANeut ;
  mkN064 : Str -> N ;
  mkN064 base = let v0 = tk 2 base
                in mkNoun (v0+"хо")
                          (v0+"ши")
                          (v0+"ши")
                          (v0+"хо")
                          ANeut ;
  mkN065 : Str -> N ;
  mkN065 base = let v0 = base
                in mkNoun (v0)
                          (v0+"та")
                          (v0+"та")
                          (v0)
                          ANeut ;
  mkN066 : Str -> N ;
  mkN066 base = let v0 = tk 1 base
                in mkNoun (v0+"е")
                          (v0+"а")
                          (v0+"а")
                          (v0+"е")
                          ANeut ;
  mkN067 : Str -> N ;
  mkN067 base = let v0 = tk 2 base
                in mkNoun (v0+"те")
                          (v0+"ца")
                          (v0+"ца")
                          (v0+"те")
                          ANeut ;
  mkN068 : Str -> N ;
  mkN068 base = let v0 = tk 1 base
                in mkNoun (v0+"е")
                          (v0+"я")
                          (v0+"я")
                          (v0+"е")
                          ANeut ;
  mkN069 : Str -> N ;
  mkN069 base = let v0 = base
                in mkNoun (v0)
                          (v0+"на")
                          (v0+"на")
                          (v0)
                          ANeut ;
  mkN070 : Str -> N ;
  mkN070 base = let v0 = base
                in mkNoun (v0)
                          (v0+"са")
                          (v0+"са")
                          (v0)
                          ANeut ;
  mkN071 : Str -> N ;
  mkN071 base = let v0 = tk 1 base
                in mkNoun (v0+"е")
                          (v0+"ия")
                          (v0+"ия")
                          (v0+"е")
                          ANeut ;
  mkN072 : Str -> N ;
  mkN072 base = let v0 = tk 1 base
                in mkNoun (v0+"е")
                          (v0+"я")
                          (v0+"я")
                          (v0+"е")
                          ANeut ;
  mkN073 : Str -> N ;
  mkN073 base = let v0 = base
                in mkNoun (v0)
                          (v0+"та")
                          (v0+"та")
                          (v0)
                          ANeut ;
  mkN074 : Str -> N ;
  mkN074 base = let v0 = base
                in { s = table {
                           NF Sg _     => variants {} ;
                           NF Pl Indef => v0 ;
                           NF Pl Def   => v0+"та" ;
                           NFSgDefNom  => variants {} ;
                           NFPlCount   => v0 ;
                           NFVocative  => v0
                         } ;
                     g = ANeut ;
                     lock_N = <>
                   } ;
  mkN075 : Str -> N ;
  mkN075 base = let v0 = base
                in { s = table {
                           NF Sg _     => variants {} ;
                           NF Pl Indef => v0 ;
                           NF Pl Def   => v0+"те" ;
                           NFSgDefNom  => variants {} ;
                           NFPlCount   => v0 ;
                           NFVocative  => v0
                         } ;
                     g = ANeut ;
                     lock_N = <>
                   } ;
  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+"ите") ;
  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=<>} ;
}