 (define (DRAG object)

         (define (DRAW)
            


         (ezd `(when ,object-name movement ,draw))




