added box representations (see descrip)

First of all, one of your data definitions says that ball-v is a
(make-shirt). You might want to change that. While we're on that, you
may as well call Ball a (make-ball BallP BallV) or otherwise specify
what the structures are.