Posted to tcl by bairui at Thu Jul 09 00:17:05 GMT 2015view pretty

  puts [join [list                               \
      "Unknown command: $subcmd"                 \
      "Usage: $cmd command \[options] args"      \
      "Commands: regsiter, run"                  \
      "See   command -help   for more details."] \
    "\n"]