:- protocol(protop).


	:- info([
		version is 1.0,
		date is 2000/7/24,
		author is 'Paulo Moura',
		comment is 'Default protocol for all prototypes.']).


	:- public(clone/1).

	:- mode(clone(?object), zero_or_one).

	:- info(clone/1, [
		comment is 'Clones a prototype.',
		argnames is ['Clone']]).


	:- public(print/0).

	:- mode(print, one).

	:- info(print/0, [
		comment is 'Pretty prints an object description.']).


:- end_protocol.