Fazer Adjacência em Grafo em PROLOG

[crislanio_macedo]

Olá não tenho nenhuma experiência em prolog, e sei que este forum é de perl, contudo acredito que alguém aqui possa me ajudar.

tenho o seguinte código em prolog, e está dando erro.

aresta (a,b).
aresta (a,c).
aresta (b,d).
aresta (d,c).

adjacente (N, F) :- aresta (N, F).
adjacente (N, F) :- aresta (F, N).

está dando o seguinte erro,

?- ['Grafo.pl'].

ERROR: /home/crislanio/Área de Trabalho/Grafo.pl:1:7: Syntax error: Operator expected

true.

Att,

[crislanio_macedo]

aresta(a,b).
aresta(b,f).
aresta(b,c).
aresta(c,d).
aresta(d,g).
aresta(f,h).
aresta(h,g).


adjacente(N, F) :- aresta(N, F) ;  aresta(F, N).

triangulo(X, Y, Z) :- adjacente(X,Y), adjacente(Y,Z).

resolvido, têm a questão do espaço.

Att