(import define-options)
(define-options
  7off
  `((allow-wack-headers
     "Allow skipping header levels instead of enforcing tree layout."
     (single-char #\w))
    (disable-warnings "Suppress warnings and lintings." (single-char #\q))
    (help "Print this help text." (single-char #\h))
    (input-file "Input file name." (single-char #\i) (value #t))
    (output-file "Output file name." (single-char #\o) (value #t))
    (default-alt
      "Alt text for verbatim blocks."
      (single-char #\a)
      (value #t)
      (default "Code"))
    (polish "Polish quotes and dashes." (single-char #\p)))
  ("--default-alt=Giraffe"))
(unless (equal? '"Giraffe" default-alt) (error "default-alt"))