%Computational Linguistics II, Feb-May 1999
%Joseba Abaitua, Universidad de Deusto
%---------------------dcg0.dec---------------------------
%Given these 7 words, how many "free" phrases can we get?
%Try ?-ph(Phrase,[]) 
%or try ?-go, but careful, there are 823,543 solutions.
%----------------------------------------------------------

w --> [if].
w --> [i].
w --> [profane].
w --> [with].
w --> [my].
w --> [unworthiest].
w --> [hand].

ph --> w, w, w, w, w, w, w.

%----------------------------------------------------------

go :-ph(Ph,[]), write(Ph), nl, fail.