ValueEQ: obj
doIt:
Point:and: Value
print:
newString:and: Value
%id "newString"
=::
print:
V: var integer -- 2
W: val
P1: var Point:and -- 4
P2: var Point:and -- 6
S1: var NewString:and -- 8
S2: var NewString:and -- 10