anselme/test/tests/object constructor.ans

% class
	:a:b = "foo"
	:c = "bar"

$ new(o::&class, x)
	~ o.c := x
	@o

:o = class
:p = class!new("hoho")

{o}, {p}

{o.c} == {class.c}
{p.c} != {class.c}