print_help Subroutine

   subroutine print_help
      implicit none
      character(LINE_SIZ) :: header
      character(LINE_SIZ) :: usage(1)
      character(CMD_SIZ) :: cmd(2)
      character(CMD_DESC_SIZ) :: cdesc(2)

      header   = "A tool for interacting with Forgex on the command line."
      usage(1) = "forgex-cli <command> ..."

      cmd(1)   = "debug"
      cdesc(1)  = "Print the debug representation from Forgex's regex engine."

      cmd(2)   = "find"
      cdesc(2)  = "Search for a string using one of the regular expression engines."

      call generate_and_output(header, usage, "COMMANDS",  cmd, cdesc)

   end subroutine print_help