Prolog - Suchalgorithmus

[Binni]

Hallo zusammen,

ich stehe gerade vor einem riesigen Problem: ich soll einen Suchalgorithmus mit Prolog programmieren und der nachfolgende Code liefert folgenden Fehler: no sense at line 20 after clause 13

tuer(a,b).
tuer(b,c).
tuer(c,d).
tuer(c,e).
tuer(d,e).
tuer(e,f).
tuer(g,h).
tuer(h,i).

benachbart(X,Y):-tuer(X,Y).
benachbart(X,Y):-tuer(Y,X).

%verbunden(X,X).
%verbunden(X,Y):- benachbart(X,Z), verbunden(Z,Y).

verbunden(X,Y,Ws):- erweitert([X],Ws), write(Ws), nl, endet(Ws,Y).
endet([K|Rs],K).
erweitert(Ls,Ls).
erweitert(Ls,Ms):- dir_erweitert(Ls,Ns), erweitert(Ns,Ms).
dir_erweitert(Ls, [Z|Ls]):- endet(Ls,K), benachbart(K,Z), not element(Z,Ls).
element(X, [X|Rs]).
element(X, [Y|Rs]):- element(X,Rs).

?-verbunden(a,b,Ws).

Kann mir jemand weiterhelfen? Danke im Vorab!

Viele Grüße - der Binni