% -*- Prolog -*-
%
% Simple ';'(Either, Or) test.
%
% $Id: 050,v 1.4 2000/07/25 13:29:01 peteg Exp $

main :-
	(
	    write(1), nl, fail
	;   write(2), nl, true
        ),
	write(3), nl, fail.
