prolog

Zivjo, zamima me ce so kdo ukvarja z prologom in mi pomaga resiti problem.
'Program' naj bi izpisal stevila, ki so deljiva z 2, vendar ne deluje tako.
npr. ce klicemo proceduro:
izpisN(10).
bi moralo izpisati
2 4 6 8 10


:-unknown(_,fail).
izpisN(1).
izpisN(Stevilo):- M is Stevilo - 1,
izpisN(M),
%Stevilo mod 2 =:= 0,
write(M),
write(' ').

Ja vem, cudna stvar ta prolog, sicer sem pa ze resil problem.