struct -point init &x -int init &y -int endstruct init &mypoint -point setfield &mypoint &x 53 setfield &mypoint &y 32 getfield $mypoint &x &value println $value getfield $mypoint &y &value println $value