:- module(vflexion,[nomenflexion/1]).

% Flexionsprogramm: nomenflexion(+Stammform)
nomenflexion(Stammform) :-       % Stammform = Nominativ Singular
    form(nomen,Formmerkmale),    % moegl.Merkmale holen
    ( N = n ; N = rn ; N =en ),
    Kategorie =.. [N,_,Formmerkmale],
    wort(Stammform,Kategorie,Vollform),
    write(Formmerkmale),write(': '),write(Vollform),nl,
    fail.                        % weitere Loesungen?
nomenflexion(_).                 % fertig.

