(set on-enter
     (lambda ()
       (show-goal (car args))))
(set on-leave
     (lambda ()))