:- object(tubenose,
	imports(descriptors),
	extends(order)).


	order(tubenose).

	nostrils(external_tubular).

	live(at_sea).

	bill(hooked).


:- end_object.