nameArgCmd names command doc =
  (names, NameArg, doc, fnNameArg command)
nameArgCmd names command doc =
  (names, NameArg, doc, fnNameArg command)
nameArgCmd names command doc =
  (names, NameArg, doc, fnNameArg command)