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