grana(cvorA,cvorB).
grana(cvorA,cvorD).
grana(cvorC,cvorB).
grana(cvorC,cvorE).
grana(cvorD,cvorC).
grana(cvorE,cvorB).

pripada(X,[X|_]).
pripada(X,[_|Y]):- pripada(X,Y).

put_u_grafu(K1,K2,[K2]):- grana(K1, K2).
put_u_grafu(K1,K2,[G|R]):- grana(K1,G), put_u_grafu(G,K2,R),
 not(pripada(G,R)).

svi_putevi( K1, K2 ) :- put_u_grafu(K1, K2, L), 
  write( L ), nl, fail.
	
/*  Poziva se sa: put_u_grafu(Polazni_cvor,Odredisni_cvor,L).  */