(make-instance bogusi of BOGUS)
(send [bogusi] bad-message-1)
(send [bogusi] bad-message-2)
(send [bogusi] add-em-up)
(testit)