startFormTok |~| messageTag
  >~< startMessageTok |~| name
  >~< p' |~| endMessageTok |~| endFormTok