class PARENT
feature
   eat (arg: FOOD) is 
      do -- some processing
      end
end -- PARENT