/**/
.TabbyCat~NEW ~~"NAME="("Whiskers") ~Meow
.PersianCat~NEW ~~"NAME="("Fluffy") ~Meow
.SiameseCat~NEW ~~"NAME="("Mittens") ~Meow
::CLASS Cat SUBCLASS Object
::ATTRIBUTE Name
::METHOD Meow
 SAY self~Name":" "Meow" "-" self
::CLASS TabbyCat SUBCLASS Cat
::METHOD Meow
 SAY self~Name":" "Purr" "-" self
 self~meow:super
::CLASS PersianCat SUBCLASS Cat
::METHOD Meow
 SAY self~Name":" "Purr purr" "-" self
 self~meow:super
::CLASS SiameseCat SUBCLASS Cat
::METHOD Meow
 SAY self~Name":" "Meow meow" "-" self
 self~meow:super