.YummyFood ~new("Pizza") ~yummy
.BitterFood ~new("Cale Salad") ~bitter
.HealthyMeal ~new("Vegetable Bowl") ~HealthyAndYummy


:: CLASS food
:: ATTRIBUTE name
:: METHOD init
    self~name = arg(1)
:: METHOD edible
    say self~name": I am edible."

:: CLASS HealthyFood MIXINCLASS Food
:: METHOD healthy
    say self~name": And I am healthy."

:: CLASS FastFood MIXINCLASS Food
:: METHOD unhealthy
    say self~name": But I am not very healthy."

:: CLASS YummyFood MIXINCLASS FastFood
:: METHOD yummy
    self ~~edible
    self ~~unhealthy
    say self~name": I am delicious!"

:: CLASS BitterFood MIXINCLASS HealthyFood
:: METHOD bitter
    self ~~edible
    self ~~healthy
    say self~name": But I am pretty bitter. Not to everyone's taste!"

:: CLASS HealthyMeal MIXINCLASS HealthyFood
:: METHOD HealthyAndYummy
    self ~~edible
    self ~~healthy
    say self~name": Guess what? I am also delicious!"