print_help_debug Subroutine

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

      header   = "Prints the debug representation provided by Forgex."
      usage(1) = "forgex-cli debug <command> ..."

      cmd(1)   = "ast"
      cdesc(1) = "Print the debug representation of an AST."
      cmd(2)   = "thompson"
      cdesc(2) = "Print the debug representation of a Thompson NFA."

      call generate_and_output(header, usage, "COMMANDS", cmd, cdesc)
   end subroutine print_help_debug