TUPLE: foo bar ;
foo new bar>> .   ! f

TUPLE: my-tuple { n integer } ;
my-tuple new n>> .   ! 0