% PCL1 WS2004/2005 Uebungen 4

% Aufgabe 3)
count_down(Zahl) :-
	Zahl < 0,
	write('Gooo!!!').
count_down(Zahl) :-
	Zahl >= 0,
	write(Zahl),
	nl,
	Zahl_Minus_1 is Zahl - 1,
	count_down(Zahl_Minus_1).


% Aufgabe 4)

wort(1, 'Wenn').
wort(2, hinter).
wort(3, 'Fliegen').
wort(4, 'Fliegen').
wort(5, fliegen).
wort(6, ',').
wort(7, fliegen).
wort(8, 'Fliegen').
wort(9, 'Fliegen').
wort(10, nach).
wort(11, '.').