QUALIFIED: io  ! there already is print in io

GENERIC: print ( shape -- )

TUPLE: point x y ;
C: <point> point  ! shorthand constructor definition

M: point print drop "Point" io:print ;

TUPLE: circle radius x y ;
C: <circle> circle

M: circle print drop "Circle" io:print ;