Noun inflection

regN: Str ->Cgender -> Noun = \w, g -> let wpl = case g of {

G1=>case w of {“mwa” + _ => Predef.drop 2 w;

“mwi” + _ => “e” + Predef.drop 3 w;

_ => PrefixPlNom G1 + Predef.drop 2 w };

G2=>case w of {“mw” + _ => “my” + Predef.drop 2 w;

_ => PrefixPlNom G2 + Predef.drop 2 w };

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

_ => PrefixPlNom g + Predef.drop 2 w};

in iregN w wpl g;

compoundN: N -> N ->Cgender-> N = \mundu,muume,g -> {

s = \\n,c => mundu.s! n! c ++ muume.s!n! c;

g = g; lock_N = <> };

iregN: Str-> Str ->Cgender -> Noun= \man,men,g -> {

s = table{Sg => table{Nom => man;

Loc=> man + “ni” | men + “ni” };

Pl => table{Nom => men; Loc=> “”}}; g = g; };