17 lines
161 B
Plaintext
17 lines
161 B
Plaintext
|
|
||
|
|
:- object(tubenose,
|
||
|
|
imports(descriptors),
|
||
|
|
extends(order)).
|
||
|
|
|
||
|
|
|
||
|
|
order(tubenose).
|
||
|
|
|
||
|
|
nostrils(external_tubular).
|
||
|
|
|
||
|
|
live(at_sea).
|
||
|
|
|
||
|
|
bill(hooked).
|
||
|
|
|
||
|
|
|
||
|
|
:- end_object.
|