.University~NEW ~~"NAME="("WU") ~lehren
.Professor~NEW ~~"NAME="("Prof_Flatscher") ~lehren
.Student~NEW ~~"NAME="("Tobias") ~lernen
.Student~NEW ~~"NAME="("Elif") ~lernen
.Student~NEW ~~"NAME="("Christoph") ~lernen
::CLASS University SUBCLASS Object
::ATTRIBUTE Name
::METHOD lehren
 SAY self~Name":" "Wir bilden Studenten aus" "-" self
::CLASS Professor SUBCLASS University
::METHOD lehren
 SAY self~Name":" "Wir forschen und halten Vortraege" "-" self
::CLASS Student SUBCLASS University
::METHOD lernen
 SAY self~Name":" "Wir lernen fleissig" "-" self