:- consult('lion_fr.pl').

:-op(500, fx, who).
:-op(400, fx, were).
:-op(400, fx, chased).

the(H):- countable(H), write('the '), !.
the(_).

write_list([H|[]]) :- the(H), write(H), write('.'),!. 
write_list([H|T]) :- length([H|T],2), the(H), write(H), write(' and '), write_list(T), !.
write_list([H|T]) :- the(H), write(H), write(','), write_list(T).

who(were(caught)) :- setof(Y, caught(Y), L), write_list(L).
who(chased(them)) :- setof(X, chaser(X), L), write_list(L).

thanks:- write('No problem.').
bye:- write('Take it easy.'). 

:-op(60, fx, hi).

hi(computer):- write('Howya!').