% formatiere(+Syntaxbaum) soll die Baumdarstellung 'formatiert' ausgeben.

% 1. Schreibe die Wurzel mit Einrueckung n
% 2. Schreibe alle Teilbaeume untereinander mit Einrueckung n+3

formatiere_Baum([Wurzel|Teilbaeume],Einrueckung) :-
    tab(Einrueckung),
    write(Wurzel), % writeq(Wurzel), wenn in eine Datei geschrieben wird,
                   % die von Prolog wieder eingelesen werden soll.
    ((Teilbaeume = [[A]], atom(A)) ->
        tab(2), write(A), nl
    ;  nl,NeueEinrueckung is Einrueckung + 3,
        formatiere_Baeume(Teilbaeume,NeueEinrueckung)
    ).
formatiere_Baum([],_).  % wenn es leere Baeume gibt.

formatiere_Baeume([Baum|Baeume],E) :-
    formatiere_Baum(Baum,E),
    formatiere_Baeume(Baeume,E).
formatiere_Baeume([],_). 
