newRefE :: a -> UI (Ref a,E a,H UI a)
newRefE a = do
  r <- newRef a
  (e,h) <- newEvent
  onEvent e $ writeRef r
  return (r,e,h)
newRefE :: a -> UI (Ref a,E a,H UI a)
newRefE a = do
  r <- newRef a
  (e,h) <- newEvent
  onEvent e $ writeRef r
  return (r,e,h)
newRefE a = do
  r <- newRef a
  (e,h) <- newEvent
  onEvent e $ writeRef r
  return (r,e,h)