.houseswine ~new("Manfred") ~dirt
.spider ~new("Spinnlein") ~insects
.housecat ~new("Coco") ~cattoys

:: CLASS pets
:: METHOD Name Attribute
:: METHOD init
    self~name = ARG(1)

:: CLASS houseswine SUBCLASS pets
:: METHOD dirt
    say self~name "is playing in the dirt"

:: CLASS spider SUBCLASS pets
:: METHOD insects
say self~name "loves to eat insects"

:: CLASS housecat SUBCLASS pets
:: METHOD cattoys
say self~name "is playing with cattoys"