Adjective inflection

regA:Str -> {s: AForm => Str} = \seo -> {s = table {

AAdj G1 Sg=>case Predef.take 1 seo of {

“a”|”e”|”i”|”o” => “mw” + seo;

“u” => “m” + seo;

_ => ConsonantAdjprefix G1 Sg + seo };

…………………………………………………………..

AComp g Sg=>let af: Str = case Predef.take 1 seo of {

“i” => “mw” + seo;

“a” => “my” + seo;

“u” => “m” + seo;

_ => ConsonantAdjprefix g Sg + seo };

in init af + “ang” + last af } };