ispred(X,Y) :- name(X,L1), name(Y,L2), manje_L(L1,L2).

manje_L([],[_|_]).
manje_L([X|_],[Y|_]) :- X<Y.
manje_L([X|R],[Y|T]) :- X=Y, manje_L(R,T).

stampaj(X,Y) :- ispred(X,Y), write(X), write(' je ispred '),
		write(Y), write(' po abecedi.').
stampaj(X,Y) :- not(ispred(X,Y)), write(X), write(' je iza '),
		write(Y), write(' po abecedi.').
stampaj(X,Y) :- write(X),write('i'),write(Y),write('se poklapaju'). 

main :- write('Unesite prvu rec (zavrsenu sa tackom) :'), read(X),
        write('Unesite drugu rec (zavrsenu sa tackom) :'), read(Y),
        stampaj(X,Y).

/* Poziva se sa: main. */