Проблема с запросом в прологе

[hunter03]

Здравствуйте,пишу лабу по прологу, что т не получается с запросом...

database-strana11
strana1(symbol,symbol)
predicates
capital(symbol,symbol)
cappob(symbol)
pobedil(symbol)
clauses
 
capital(paris,france).
capital(london,angliya).
capital(kiev,ukraine).
capital(oclo,norvegia).
capital(tokio,japan).
capital(moskva,possia).	
capital(deli,india).
capital(jeneva,shveicaria).
%pobedil(X):-strana(X,pobed).
	pobedil(ispania).
	pobedil(avstria).
	pobedil(azeirb).

goal 
consult("1.PRO",strana11),
assertz(strana1(france,nepobed)),
assertz(strana1(angliya,nepobed)),
assertz(strana1(ukrain,pobed)),
assertz(strana1(norvegia,pobed)),
assertz(strana1(japan,pobed)),
assertz(strana1(possia,nepobed)),
assertz(strana1(india,nepobed)),
assertz(strana1(shveicaria,pobed)),
save("1.PRO",strana11),
retractall(_,strana11).

cappob(X):-strana1(Y,pobed),capital(X,Y),write(X),fail.
%pobedil(X),write(X," "),fail.

Ошибку пишет на строке

cappob(X):-strana1(Y,pobed),capital(X,Y),write(X),fail.

как решить проблему?