REQUIRE vector ~ygrek/lib/hype/array.f

CLASS z
: q ." !!!" ;
;CLASS

CLASS d
z OBJ _z
;CLASS

d NewObj VALUE a
: r a => _z q ;
r