"Blokk1"
|index b|
index:=2.
b := [ index := index + 1].
b value.
Transcript cr;cr;
    show: ' index= ', index asString; cr.


"Blokk2"
|b v|
b:=[ :i :j | i negated = j ].
"v:=b value:10 value:-10."
v:=b valueWithArguments: #(-10 10). "Tombben adjuk meg a parametereit"
"v:=b value  => Hiba uzenet: wrong number of arguments"
Transcript cr;cr;
    show: ' b= ', b asString; cr;
    show: ' v= ', v asString; cr.

"Metodusok"
|t n m|
t:= MyTestClass new.
n:=t testSquareFactorial: 2.
Transcript cr;cr;
    show: (t prettyPrint); cr;
    show: 'n = ',n printString.
m:=t testAddNumbers:4 and:9.
Transcript cr;cr;
    show: (t prettyPrint); cr;
    show: 'm = ',m printString.