(def but ((o text "submit") (o name nil))
  (gentag input type 'submit name name value text))

From html.arc ©