Boas pessoal estou aqui com um pequeno problema em prolog, na realização de um menu...

Eu vou apresentar boas opções e depois o utilizador irá escolher uma delas e dependendo da escolha irá chamar uma outra função...

Tenho o seguinte código para este menu:

euro:-

write(' 1 - Adicionar Nova equipa'),nl,
write(' 2 - Remover equipa'),nl,

write('stop - para sair'),nl,
write('Escolha uma opçao '),nl,

read(X),nl,write(X). (Este write já não apresenta logo imagino que o read não funciona)

verifica(stop):-!.
verifica(X),X=:=1:-executa(portugal). (Para verificar o valor de X e chamar a função correspondente é assim??)


Desde já obrigado por qualquer ajuda que me possam dar...

euro:-
write('1 - Adicionar nova equipa'),nl,
write('2 - Remover equipa'),nl,
write('stop - para sair'),nl,
write('Escolha uma opcao'),nl,
read(X),
write(X),
verifica(X).

verifica(stop):-!.
verifica(1):-executa(portugal).

Desde já obrigado, mas o problema principal infelizmente ainda se mantém isto é o programa entra em execução, escreve o menu e fica a espera de um valor, mas por mais valores que introduza não faz nada, nem stop, nada de nada, isto é escreve aquilo que escrevo no monitor, mas continuar com a execução isso está quieto, lol

Assim já dá:

euro:-
write('1 - Adicionar nova equipa'),nl,
write('2 - Remover equipa'),nl,
write('stop - para sair'),nl,
write('Escolha uma opcao'),nl,
read(X),
write(X),
verifica(X),
X==stop,!,writeln('Fim').

verifica(1):-writeln('add'),nl,!.
verifica(2):-writeln('remove'),nl,!.
verifica(stop):-!.

A funkar...hehe obrigado pela ajuda...Abraço...