      +: (dynamicState
            ""
            (\_ t -> (Just t, Nothing))
            (\dynText ->
                list noOps $
                    textInput (onTextChange id)
                    +: [dynamicMarkup dynText (\t -> label $ text t)]
            ))
      +: empty
      )
