GRUPO 1

consult('C:/Users/rf.gaspar/Documents/kb.txt').
% consulting c:/users/rf.gaspar/documents/kb.txt...
% consulted c:/users/rf.gaspar/documents/kb.txt in module user, 0 msec -72 bytes
| ?- wizard(ron).
yes
| ?- witch(ron).
! Existence error in user:witch/1
! procedure user:witch/1 does not exist
! goal:  user:witch(ron)
| ?- wizard(hermione).
no
| ?- witch(hermione). 
! Existence error in user:witch/1
! procedure user:witch/1 does not exist
! goal:  user:witch(hermione)
| ?- wizard(harry).   
yes
| ?- wizard(Y).    
Y = ron ? ;
Y = harry ? ;
no
| ?- witch(Y)
     .
! Existence error in user:witch/1
! procedure user:witch/1 does not exist
! goal:  user:witch(_128)
| ?- wizard(ron).


GRUPO 2

| ?- sentence(W1,W2,W3,W4,W5).                               
W1 = a,
W2 = criminal,
W3 = eats,
W4 = a,
W5 = criminal ? ;
W1 = a,
W2 = criminal,
W3 = eats,
W4 = a,
W5 = 'big kahuna burger' ? ;
W1 = a,
W2 = criminal,
W3 = eats,
W4 = every,
W5 = criminal ? ;
W1 = a,
W2 = criminal,
W3 = eats,
W4 = every,
W5 = 'big kahuna burger' ? ;
W1 = a,
W2 = criminal,
W3 = likes,
W4 = a,
W5 = criminal ? ;
W1 = a,
W2 = criminal,
W3 = likes,
W4 = a,
W5 = 'big kahuna burger' ? ;
W1 = a,
W2 = criminal,
W3 = likes,
W4 = every,
W5 = criminal ? ;
W1 = a,
W2 = criminal,
W3 = likes,
W4 = every,
W5 = 'big kahuna burger' ? ;
W1 = a,
W2 = 'big kahuna burger',
W3 = eats,
W4 = a,
W5 = criminal ? ;
W1 = a,
W2 = 'big kahuna burger',
W3 = eats,
W4 = a,
W5 = 'big kahuna burger' ? ;
W1 = a,
W2 = 'big kahuna burger',
W3 = eats,
W4 = every,
W5 = criminal ? ;
W1 = a,
W2 = 'big kahuna burger',
W3 = eats,
W4 = every,
W5 = 'big kahuna burger' ? ;
W1 = a,
W2 = 'big kahuna burger',
W3 = likes,
W4 = a,
W5 = criminal ? ;
W1 = a,
W2 = 'big kahuna burger',
W3 = likes,
W4 = a,
W5 = 'big kahuna burger' ? ;


GRUPO 3