open (ETaker u) w = do
  n <- liftIO $ randomIO
  (,) n <$> openWidget u (\(b,t,z) -> runIdentity $ step (New (Idx n) b t z) u w)
open (ETaker u) w = do
  n <- liftIO $ randomIO
  (,) n <$> openWidget u (\(b,t,z) -> runIdentity $ step (New (Idx n) b t z) u w)
open (ETaker u) w = do
  n <- liftIO $ randomIO
  (,) n <$> openWidget u (\(b,t,z) -> runIdentity $ step (New (Idx n) b t z) u w)