Рекурсивная функция поиска пути - Prolog

Формулировка задачи:

нужно создать рекурсивную функцию которая ищет путь из Губкина в Дятьково

                    Листинг программы
                
 
                        
                          
                    
путешествие(белгород,орел,поезд).
путешествие(брянск,дятьково,автобус).
путешествие(губкин,белгород,автобус).
путешествие(орел,брянск,поезд).
можно_путешествоват(A,B):-путешествие(A,B,_).
можно_путешествоват(A,B):-путешествие(C,B,_),можно_путешествоват(A,C,_).
можно_путешествоват(A,B):-путешествие(C,B,_),путешествие(D,C,_),можно_путешествоват(A,D,_).
можно_путешествоват(A,B):-путешествие(C,B,_),путешествие(D,C,_),путешествие(E,D,_),можно_путешествоват(A,E,_).

однако при поиске выдаются ошибки, что не так?

Решение задачи: «Рекурсивная функция поиска пути»

textual
                            Листинг программы 
                        
 
                        
                          
                    
?- можно_путешествоват(A,B).
A = белгород,
B = орел ;
A = брянск,
B = дятьково ;
A = губкин,
B = белгород ;
A = орел,
B = брянск ;
A = губкин,
B = орел ;
A = орел,
B = дятьково ;
A = белгород,
B = дятьково ;
A = губкин,
B = дятьково ;
A = белгород,
B = брянск ;
A = губкин,
B = брянск ;
false.
 
?-