require( play ) 

origin <- new( Point, 0, 0 )

pie <- new( Circle, origin, 3 )
pie$area()
pie$contains( new( Point, 1, 2 ) )

rec <- new( Rectangle, origin, 2, 3 )
rec$area()
rec$contains( new( Point, 1, 2 ) )