(macro on (thing event ...args-and-body)
  (macros.send thing 'on (macros.quote event) (apply macros.lambda args-and-body)))