|p b|
"p:=Person new.  Hiba abstrakt konstruktor"
"p:=Employee new."
p name:'Karoly'.
p age:40.
b:=Boss new.
b name: 'Hugo Boss'.
b age:60.
b level:9.
Transcript cr; show: p printString;cr;
    show: b printString;cr.

|p b i|
i:=0.
p:=Employee new.
p name:'Jozsi'.
b:= [Transcript cr;show: 'Doing job ...'.i:=i+1]  .
p doJob: b times:4.
p doJob: b times:3.
Transcript cr;show: 'JobsDone: ',p jobsDone printString.
Transcript cr;show: 'i = ',i  printString

"MyPoint2D origo"