(set on-enter
     (lambda ()
       (rect-apply-force "box-1-3" '(20000 . -50000))))
(set on-leave (lambda ()))