lista( ['+','-','+','-','-','-','+','+']) .

start :- lista(L), preradi(L).

preradi( [] ):- !.
preradi( L ) :- stampaj( L ), tran( L, L1 ), preradi( L1 ).

tran(['+'],[]).
tran(['-'],[]).
tran([H1,H2|R],['+'|L]) :- H1='+', H2='+', tran([H2|R],L). 
tran([H1,H2|R],['+'|L]) :- H1='-', H2='-', tran([H2|R],L). 
tran([H1,H2|R],['-'|L]) :- H1='+', H2='-', tran([H2|R],L). 
tran([H1,H2|R],['-'|L]) :- H1='-', H2='+', tran([H2|R],L). 

stampaj( [] ) :- nl.
stampaj( [H|T] ) :- write( H ), tab(1), stampaj( T ).

/* Poziva se sa start. */