(#<) :: UI Element -> (Element -> B a,Element -> a -> UI void) -> UI Element
me #< (b,h) = do
  el <- me
  sink (mkWriteAttr $ \a e -> void $ h e a) (b el) $ return el
(#<) :: UI Element -> (Element -> B a,Element -> a -> UI void) -> UI Element
me #< (b,h) = do
  el <- me
  sink (mkWriteAttr $ \a e -> void $ h e a) (b el) $ return el
me #< (b,h) = do
  el <- me
  sink (mkWriteAttr $ \a e -> void $ h e a) (b el) $ return el