gf-3.2: lib/src/bulgarian/ParadigmsBul.gf
--# -path=.:../abstract:../common:../prelude
resource ParadigmsBul = MorphoFunsBul ** open
Predef,
Prelude,
MorphoBul,
CatBul
in {
flags coding=cp1251 ;
oper
mkN001 : Str -> N ;
-- numbers refer to Krustev, Bulg. Morph. in 187 Tables
mkN001 base = {s = table {
NF Sg Indef => base ;
NF Sg Def => base+"à" ;
NF Pl Indef => base+"îâå" ;
NF Pl Def => base+"îâåòå" ;
NFSgDefNom => base+"úò" ;
NFPlCount => base+"à" ;
NFVocative => base+"å"
} ;
g = AMasc NonHuman ;
lock_N = <>
} ;
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 = {s = table {
NF Sg Indef => base ;
NF Sg Def => base+"à" ;
NF Pl Indef => base+"è" ;
NF Pl Def => base+"èòå" ;
NFSgDefNom => base+"úò" ;
NFPlCount => base+"à" ;
NFVocative => base+"å"
} ;
g = AMasc NonHuman ;
lock_N = <>
} ;
mkN007b : Str -> N ;
mkN007b base = let v0 = base
in mkNoun (v0)
(v0+"è")
(v0+"à")
(v0+"î")
(AMasc NonHuman) ;
mkN007a : Str -> N ;
mkN007a base = {s = table {
NF Sg Indef => base ;
NF Sg Def => base+"à" ;
NF Pl Indef => base+"è" ;
NF Pl Def => base+"èòå" ;
NFSgDefNom => base+"úò" ;
NFPlCount => base+"è" ;
NFVocative => base+"å"
} ;
g = AMasc Human ;
lock_N = <>
} ;
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+"ÿé") ;
mkV188 : Str -> VTable ;
mkV188 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=<>} ;
}