runLater :: UI void -> UI ()
runLater m = do
  w <- window
  liftIOLater $ void $ runUI w m
runLater :: UI void -> UI ()
runLater m = do
  w <- window
  liftIOLater $ void $ runUI w m
runLater m = do
  w <- window
  liftIOLater $ void $ runUI w m