/* Beispiel 1 */
.HuntingDog ~new("Dieko") ~hunt
.HerdingDog ~new("Dorie") ~herd
.CompanionDog ~new("Zelda") ~love

::CLASS Dog
::ATTRIBUTE name
::METHOD INIT
self~name =ARG (1)

::CLASS HuntingDog SUBCLASS Dog
::METHOD hunt
SAY self~name": 'I hunt ducks'"

::CLASS HerdingDog SUBCLASS Dog
::METHOD herd
SAY self~name": 'I heard sheep'"

::CLASS CompanionDog SUBCLASS Dog
::METHOD love
SAY self~name": 'I love my family'"


/* Beispiel 2 */
SAY REVERSE("Reittier123") 
SAY "Reittier123" ~REVERSE