(define (dummyObject origin type radius)
    (define (dispatch msg)
      (case msg
        ((getOrigin) origin)
        ((getType) type)
        ((getRadius) radius)
        ((dummyObj?) #t)
        (else (println "Unknown msg ''" msg "'' in dummyObject, objects.rkt"))))
    dispatch)
  (define dummy (dummyObject orig 'circle radius))