(#>) :: UI Element -> (Element -> E a,Element -> a -> UI void) -> UI Element
me #> (e,h) = do
  el <- me
  on e el $ h el
  return el
(#>) :: UI Element -> (Element -> E a,Element -> a -> UI void) -> UI Element
me #> (e,h) = do
  el <- me
  on e el $ h el
  return el
me #> (e,h) = do
  el <- me
  on e el $ h el
  return el