?- [nllex].
?- op(600,xfy,'::').

teste(L) :- lex2(A,X,Y),
            ((X==par)
            -> L=[] 
            ; (L=[A-X-Y|B], teste(B))).


?- set_string('quando eu te vi assustei-me.').
?- teste(L),write(L),nl,nl.

?- set_file('exem').
?- teste(L),write(L),nl,nl.