:- object(purple_martin,
	imports(descriptors),
	extends(swallow)).


	color(dark).


:- end_object.