erzeuge_np(N) :-
    length(Eingabe,N),
    ( np(Art,Form,_Baum,Eingabe,[]),
        atomic_list_concat(Eingabe,' ',Atom),
        nl, write(Atom),
        fail
    ; true
    ).
    

wieviele_np(N,Anzahl) :-
    length(Eingabe,N),
    setof(Eingabe,Art^Form^Baum^np(Art,Form,Baum,Eingabe,[]),NPs),
    length(NPs,Anzahl).

erzeuge_s(N) :-
    length(Eingabe,N),
    ( s([def],[_Temp,_Mod,vz],[_S,_NP,[v([nom,akk],_Form),TV],_NP2],Eingabe,[]),
        atomic_list_concat(Eingabe,' ',Atom),
        nl, write(Atom),
        fail
    ; true
    ).
