;;--------------------> Sample Object <------------------
(circle (make-posn 0 0) 80 'red)
(disk (make-posn 30 30) 15 'blue)
(disk (make-posn -30 30) 15 'blue)
(rect (make-posn -40 -30) 80 5 'red)