/**/
.RunningShoe ~new("Adidas“) ~run
.WalkingShoe ~new("Nike“) ~walk
 ::CLASS     Shoe
 ::ATTRIBUTE name
 ::METHOD    INIT
self~name = ARG(1)
 ::CLASS     RunningShoe   SUBCLASS Shoe
 ::METHOD    run
SAY self~name": 'I run now...'"
 ::CLASS     WalkingShoe  SUBCLASS Shoe
 ::METHOD    walk
SAY self~name": 'I walk now...'"