:- style_check(-discontiguous).

erzeuge_vollformen :- 
    ensure_loaded('Morphologie/flexion_slex'),
    write('\nLade Anwendungen/<Verzeichnis>/stammformen.pl aus:\
         <Verzeichnis><Punkt><Return>'),
    nl,read(Verz),
    concat_atom(['Anwendungen/',Verz,'/stammformen.pl'],Stammformen),
    concat_atom(['Anwendungen/',Verz,'/vollformen.pl'],Vollformen),
    [Stammformen],
    erzeuge_vollformenlexikon(Vollformen).
