14 lines
163 B
Text
14 lines
163 B
Text
class
|
|
PEAR
|
|
|
|
inherit
|
|
EATABLE
|
|
|
|
feature -- Basic operations
|
|
|
|
eat
|
|
-- Consume
|
|
do
|
|
print ("One pear eaten%N")
|
|
end
|
|
end
|