gewinnzug(S,T) :-
	zug(S,T),
	\+ gewinnzug(T,_).

zug([N|S],[K|S]) :-
	kleiner(K,N).
zug([N|S],[N|T]) :-
	zug(S,T).

kleiner(K,N) :-
	N>0,
	N1 is N-1,
	(kleiner(K,N1); K=N1).
