clex_noun(Noun,RootNoun,Type,SG_OR_PL, mass):- clex_mass_noun(Noun,RootNoun,Type),member(SG_OR_PL,[sg,pl]).
clex_noun(Noun,RootNoun,Type,SG, count):-clex_noun0(Noun,RootNoun,Type,SG),NOT(clex_mass_noun(Noun,_,_)).
clex_noun(Noun,RootNoun,unknown,SG, count):-clex_noun1(Noun,RootNoun,SG),NOT(clex_noun0(Noun,RootNoun,_,SG)),NOT(clex_mass_noun(Noun,_,_)).
   clex_noun0(Noun,RootNoun,Type,sg):- noun_sg(Noun, RootNoun, Type).
   clex_noun0(Noun,RootNoun,Type,pl):- noun_pl(Noun, RootNoun, Type).
   clex_noun1(Noun,RootNoun,sg):- noun_plu_db(Noun,RootNoun).
   clex_noun1(Noun,RootNoun,pl):- noun_sin_db(Noun,RootNoun).