bar :-					% test predicate
	write('bar predicate called'), nl.


:- object(bypass).

	:- public(foo//0).
	:- mode(foo, one).
	:- info(foo//0, [
		comment is 'Just the almighty and famous old foo.']).

	foo --> {{bar}}.	% the external pair of {}'s have the usual DCG semantics;
						% the internal pair of {}'s is the Logtalk compiler bypass control construct
:- end_object.