:- set_prolog_flag(verbose,silent).
:- prompt(_, '').
:- use_module(library(readutil)).

test([(_,_)],[]).
test([A|P],List):-
    B=(_,_),
    append([B],_,P),     
    vizinha(A,B,Dir), 
    append([Dir],List1,List), 
    test(P,List1).
    
/* Para testar */
vizinha((5,5),(5,6),0).
vizinha((5,6),(6,6),90).
vizinha((6,6),(6,7),0).
vizinha((6,7),(7,7),90).

main:-
	process,
	halt.

process:-
	test([ (5, 5), (5, 6), (6, 6), (6, 7), (7, 7)],L),
	write(L),
	nl,
	true.

:- main.