/*
 * 02-.pl
 *
 * ejecutar desde el shell con el siguiente mandato:
 * gprolog --entry-goal "consult('02-.pl')" --query-goal 'pruebas'
 */

pruebas :-
	paso('todo'), !.
pruebas :- fallo.

paso(Msg)  :- msg(paso,Msg), !.
fallo(Msg) :- msg(fallo,Msg), !.
fallo      :- msg(fallo,''), !.
msg(paso, Msg) :- write('Paso: '), write(Msg), nl.
msg(fallo, '') :- write('Fallo algo.'), nl.
msg(fallo, Msg) :- write('Fallo: '), write(Msg), nl.



/* EOF 02-.pl */